Bänder

Übersicht

BlitzBasic

Codearchiv

	Smily Betreff: Bänder	Fr, März 09, 2007 23:08 Antworten mit Zitat
Hallo, Ich habe Heute mal wieder eine kleine Spielerei auf meiner Platte ausgegraben und ein wenig damit rumgespielt ^^ Und dabei kam folgendes raus: Das Interesannte an dem Programm ist, dass die Bewegungen der Punkte/bänder nicht zufällig bestimmt werden, sondern einfach von der Position abhängig sind. Code: [AUSKLAPPEN] [EINKLAPPEN] Type p Field r,g,b Field x# Field y# Field e Field ri End Type Global gx = 1024 Global gy = 768 ;For x = 0 To gx Step 50 ; For y = 0 To gy Step 50 ; createp(x,y) ; Next ;Next Graphics gx,gy,16,2 Repeat If KeyDown(57) Cls For p.p = Each p s = p\e/5 cm# = 1;(1.0/255.0)(255-p\e) Color p\rcm, p\gcm,p\bcm Oval p\x, p\y, 5,5 p\e = p\e + 1 p\y = p\y - Cos(p\ri)2 p\x = p\x + Sin(p\ri)2 p\ri = p\ri + sin(p\y)5 If p\e => 255 Delete p.p Next If MouseDown(1) Or MouseHit(2) createp(MouseX(),MouseY()) End If If Not KeyDown(15) Flip Until KeyHit(1) Function Createp(x,y) p.p = New p p\b = 255.0/gxx p\g = 255.0/gy*y p\r = 255 p\x = x p\y = y p\e = 0 p\ri = x End Function
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Betreff: Bänder

Fr, März 09, 2007 23:08
Antworten mit Zitat

Hallo,
Ich habe Heute mal wieder eine kleine Spielerei auf meiner Platte ausgegraben und ein wenig damit rumgespielt ^^
Und dabei kam folgendes raus:

Das Interesannte an dem Programm ist, dass die Bewegungen der Punkte/bänder nicht zufällig bestimmt werden, sondern einfach von der Position abhängig sind.

Code: [AUSKLAPPEN]

Type p
Field r,g,b
Field x#
Field y#
Field e
Field ri
End Type
Global gx = 1024
Global gy = 768

;For x = 0 To gx Step 50
; For y = 0 To gy Step 50
; createp(x,y)
; Next
;Next

Graphics gx,gy,16,2
Repeat
If KeyDown(57) Cls

For p.p = Each p
s = p\e/5
cm# = 1;(1.0/255.0)*(255-p\e)
Color p\r*cm, p\g*cm,p\b*cm
Oval p\x, p\y, 5,5
p\e = p\e + 1
p\y = p\y - Cos(p\ri)*2
p\x = p\x + Sin(p\ri)*2
p\ri = p\ri + sin(p\y)*5

If p\e => 255 Delete p.p
Next

If MouseDown(1) Or MouseHit(2)
createp(MouseX(),MouseY())
End If
If Not KeyDown(15) Flip
Until KeyHit(1)

Function Createp(x,y)
p.p = New p
p\b = 255.0/gx*x
p\g = 255.0/gy*y
p\r = 255
p\x = x
p\y = y
p\e = 0
p\ri = x
End Function

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org