Re: Markus-Spiralen


[ Zauberspiegel Wissenschaft Ideenfabrik ]


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,300

MainLoop()
End

Function 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
Wend

End 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)*r

x1=Sin(w+wa)*r
y1=Cos(w+wa)*r

Plot x+x1 ,z+y1*Sgn(w) ;Y Achse
Plot z+x1*Sgn(w),y+y1 ;X Achse

r=w/22.5
z=w/5.0
Next

End Function





Antworten:


[ Zauberspiegel Wissenschaft Ideenfabrik ]