XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Kreis zeichnen

PROC Circle

    ==========
    Parameters X%,Y%,R%,C%
    UsePen 0,1,C%
    UseBrush 0,C%
    Ellipse (X% - R%),(Y% - R%) - (X% + R%),(Y% + R%)

ENDPROC

Aufruf:
Circle X%, Y%, Radius%, Farbe%
Es wird ein Kreis mit dem Radius% um den Punkt X%,Y% in der gewünschten Farbe% gezeichnet.
cls
Circle 100,100,50,rgb(255,0,0)
WaitInput
end