Re: Markus-Spiralen
Geschrieben von Markus am 14. September 2004 23:19:04:
Als Antwort auf: Fermat-Spirale geschrieben von Gabi am 07. September 2004 17:01:46:
Habe mal mit der Archimedes Spirale rum gespielt :-)
Der Übergang sieht harmonisch aus ohne Knicke find ich ...
sieht in bewegung besser aus ...Als BB Quelltext :
Graphics 800,600,16,0
SetBuffer BackBuffer()
Origin 400,300MainLoop()
EndFunction MainLoop()
Local wa#=0.0
While Not KeyHit(1)
Cls
Spirale(wa)
wa=wa+2:If wa>360 Then wa=wa-360
If KeyHit(31) Then SaveBuffer BackBuffer(),"sp.bmp"
Flip
WendEnd Function
Function Spirale(wa#)
Local r#,w#,z#,x#,y#,x1#,y1#
For w=-360*4 To 360*4 Step 5
x=Sin(w+wa)*r
y=Cos(w+wa)*rx1=Sin(w+wa)*r
y1=Cos(w+wa)*rPlot x+x1 ,z+y1*Sgn(w) ;Y Achse
Plot z+x1*Sgn(w),y+y1 ;X Achser=w/22.5
z=w/5.0
NextEnd Function