Kreise Zeichnen

[fastix®]

Moin!

iR    = 200         'Radius: 200 Pixel
dPhi  = 3.14159265  'die Zahl Pi
dStart= dPhi*(-1)
dEnde = dPhi
dStep = dPhi*2/360  ' oder:dPhi/180

FOR a = dStart TO dEnde STEP dStep
PSET(iR*cos(a),iR*sin(a)),rgb(255,255,255) 'x,y,farbwert
SLEEP 10 'Du willst wirklich 3600 Sekunden oder eine Stunde warten?
NEXT a

MFFG (Mit freundlich- friedfertigem Grinsen)

fastix®