XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster mit lustigen Formen
Lauffähig ab Profan-Version 5.0
 $I winform.inc
cls
EllipseWindow 0,0,%MaxX,%MaxY
usebrush 1, 0
fill 100, 100, 0
waitkey
RoundWindow 0,0,%MaxX,%MaxY,60,60
usebrush 1, 0
fill 100, 100, 0
waitkey
TriangleWindow 0,0,%MaxX,0,@Div&(%MaxX,2),%MaxY
usebrush 1, 0
fill 100, 100, 0
waitkey
RectangleWindow 0,0,%MaxX,%MaxY
usebrush 1, 0
fill 100, 100, 0
waitkey