| Hilbertkurven von ??? |
| Lustiges Programm zur Erstellung von Hilbertkurven (Fraktal): Aufruf: Hilbert(Anzahl Iteration, Länge einer Linie, links-/rechtsgedreht {90 oder 270}) [code:1:721ab20b02]Global TurtleDir, TurtleX, TurtleY ;=========================================== ;=========================================== Function TurtleWalk(Length) Local x,y x = TurtleX + Length*Sin(TurtleDir) y = TurtleY + Length*Cos(TurtleDir) Line TurtleX,TurtleY,x,y TurtleX = x TurtleY = y End Function ;=========================================== Function TurtleTurn(angle) TurtleDir = (TurtleDir + angle + 360) Mod 360 End Function ;=========================================== Function TurtleSetTo(x,y,dir) TurtleX = x TurtleY = y TurtleDir = dir End Function ;=========================================== Function Hilbert(itr, size, d) Local a If itr=1 Then TurtleTurn(-d) TurtleWalk(size) TurtleTurn(d) TurtleWalk(size) TurtleTurn(d) TurtleWalk(size) TurtleTurn(-d) Else TurtleTurn(-d) Hilbert(itr-1,size,-d) TurtleWalk(size) TurtleTurn(d) Hilbert(itr-1,size,d) TurtleWalk(size) Hilbert(itr-1,size,d) TurtleTurn(d) TurtleWalk(size) Hilbert(itr-1,size,-d) TurtleTurn(-d) EndIf End Function ;=========================================== ;BEGIN Graphics 640,480 TurtleSetTo(320,240,0) Hilbert(5,5,270) While Not KeyHit(1) Color MilliSecs()/3 Mod 255,MilliSecs()/3 Mod 255,MilliSecs()/3 Mod 255 Plot 320,240 Wend End[/code:1:721ab20b02] |
| von ??? |
| Hui man kann ShadowTurtle durch die Gegend schieben :D Sieht gut aus Die Kröte erinnert mich an Logo (würgh) |
| von ??? |
| Sieht lustig aus ^_^ |
| von ??? |
| Da bekommt man ja gleich Lust auf Spagettie :) Sind noch interessant solche mathematischen Gebilde... |