| DNA (oder wie man das bezeichnen kann) von ??? |
| Max steht für die Anzahl der Kugeln. Rad für den Abstand zur Mitte. [code:1:9595ee5a7f]Const w=640,h=480 Graphics w,h SetBuffer BackBuffer() ;Frei veränderbar--- Const max=40,rad=80 ;-------------------- Const ste=h/max,fak#=255.0/180, Midd=w Shr 1 DebugLog ste Dim Win(max) wi=0 For n=0 To max Win(n)=Win(n)+wi wi=wi+ste Next While Not KeyHit(1) Cls For n=0 To max x1=rad*Cos(Win(n)-90)+Midd x2=rad*Cos(Win(n)+90)+Midd y=n*ste f1=Win(n)*fak f2=((Win(n)+180) Mod 360)*fak If f1>255 Then f1=255-(f1-255) If f2>255 Then f2=255-(f2-255) If f1<f2 Then Color f1,f1,f1 Oval x1,y,10,10 Color f2,f2,f2 Oval x2,y,10,10 Else Color f2,f2,f2 Oval x2,y,10,10 Color f1,f1,f1 Oval x1,y,10,10 End If Win(n)=(Win(n)+1) Mod 360 Next Flip Wend EndGraphics End[/code:1:9595ee5a7f] |
| von ??? |
| sieht cool aus....nice 3D... (Die Form nennt man aber Helix :)) |
| von ??? |
| Helix, so heißt das Teil also. Naja für mich sahs aus wie die menschliche DNA, die ist ja auch spiralförmig |
| von ??? |
| naja, DNA hat halt (DOppel)Helix form :) |