Kreise Zeichnen

[fastix®]

Moin!

Es fehlt noch was... der Mittelpunkt

Moin!

'640*480
iX=320
iY=240

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)+iX, iR*sin(a)+iY, 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®