DNA-Spirale

Übersicht

BlitzBasic

Beginners-Corner

	N0X Betreff: DNA-Spirale	Fr, Apr 23, 2010 17:46 Antworten mit Zitat
Hey! Ich habe eine Frage: Wie kann man so eine DNA-Spirale programmieren? (2D!) Ich weiß schon, dass das mit [Sin] und [Cos] geht, aber nicht welche Werte ich benutzen muss um eine Spirale zu erzeugen! Mfg, N0X
Projekte: \|Tibario\| http://www.blitzforum.de/worklogs/325/ \| 5%

N0X

Betreff: DNA-Spirale

Fr, Apr 23, 2010 17:46
Antworten mit Zitat

Hey!
Ich habe eine Frage:
Wie kann man so eine DNA-Spirale programmieren? (2D!)

Ich weiß schon, dass das mit [Sin] und [Cos] geht, aber nicht welche Werte ich benutzen muss um eine Spirale zu erzeugen!

Mfg,
N0X

Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%

	Hubsi	Fr, Apr 23, 2010 17:55 Antworten mit Zitat
Welche Werte Du benutzt ist davon abhängig wie groß die Kurven sein sollen. Eine Spirale entseht wenn du die eine Kurve bei z.B. Y = 100 und die zweite bei Y = 200 startest. Oder eben X wenn sie vertikal laufen soll.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Fr, Apr 23, 2010 17:55
Antworten mit Zitat

Welche Werte Du benutzt ist davon abhängig wie groß die Kurven sein sollen. Eine Spirale entseht wenn du die eine Kurve bei z.B. Y = 100 und die zweite bei Y = 200 startest. Oder eben X wenn sie vertikal laufen soll.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	N0X	Fr, Apr 23, 2010 18:57 Antworten mit Zitat
Hab noch nie mit den [Sin] und [Cos] Befehlen gearbeitet ^^ Das hab ich raus, nich grad ne Spirale... Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() While Not KeyHit(1) Cls W=W+1 For y=0 To 50 Step 10 Plot 100+Sin(x+y+w)*10,y+100 Next Flip 0 Wend End Wie macht man jetzt eine Spirale? Mfg, N0X
Projekte: \|Tibario\| http://www.blitzforum.de/worklogs/325/ \| 5%

N0X

Fr, Apr 23, 2010 18:57
Antworten mit Zitat

Hab noch nie mit den [Sin] und [Cos] Befehlen gearbeitet ^^
Das hab ich raus, nich grad ne Spirale... Rolling Eyes

Code: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()

While Not KeyHit(1)
Cls
W=W+1
For y=0 To 50 Step 10
Plot 100+Sin(x+y+w)*10,y+100
Next

Flip 0
Wend
End

Wie macht man jetzt eine Spirale? Embarassed

Mfg,
N0X

Projekte: |Tibario| http://www.blitzforum.de/worklogs/325/ | 5%

	ToeB	Fr, Apr 23, 2010 19:20 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 SetBuffer BackBuffer() Local sx = 200 Local sy = 200 While Not KeyHit(1) Cls W=W+10 LockBuffer() For y=0 To 400 Step 1 WritePixelFast(sx+Cos(w+y3)10,sy+Sin(w+y3)5+y/2,$FFFFFF) Next UnlockBuffer() Flip Wend End mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Fr, Apr 23, 2010 19:20
Antworten mit Zitat

Code: [AUSKLAPPEN]

Graphics 640,480,16,2
SetBuffer BackBuffer()

Local sx = 200
Local sy = 200

While Not KeyHit(1)
Cls
W=W+10
LockBuffer()
For y=0 To 400 Step 1
WritePixelFast(sx+Cos(w+y*3)*10,sy+Sin(w+y*3)*5+y/2,$FFFFFF)
Next
UnlockBuffer()
Flip
Wend
End

mfg ToeB

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!