2D-Effekt

Übersicht

BlitzBasic

Codearchiv

	sami Betreff: 2D-Effekt	So, März 21, 2004 16:35 Antworten mit Zitat
weiß nicht wie ich es beschreiben sollte, aber ich dachte es passt hier rein. ich glaub nicht das das jemand braucht aber was solls BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type frag Field x Field y Field size# Field r#,g#,b# End Type Graphics 640,480,32,2 SetBuffer BackBuffer() While Not KeyHit(1) createfrag() Cls ClsColor 0,128,255 update() HidePointer Flip Wend End Function createfrag() frag.frag=New frag frag\x=MouseX() frag\y=MouseY() frag\size#=10 frag\r=0 frag\g=0 frag\b=0 End Function Function update() For frag.frag=Each frag frag\size#=frag\size#+1 frag\r#=frag\r#+3 frag\g#=frag\g#+2 frag\b#=frag\b#+1 Color frag\r#,frag\g#,frag\b# Oval frag\x,frag\y,frag\size,frag\size If frag\r>250 Then Delete frag Next End Function

sami

Betreff: 2D-Effekt

So, März 21, 2004 16:35
Antworten mit Zitat

weiß nicht wie ich es beschreiben sollte, aber ich dachte es passt hier rein.
ich glaub nicht das das jemand braucht aber was solls

BlitzBasic: [AUSKLAPPEN]

Type frag
Field x
Field y
Field size#
Field r#,g#,b#
End Type


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


While Not KeyHit(1)
createfrag() 
Cls
ClsColor 0,128,255
update()
HidePointer
Flip

Wend
End


Function createfrag()
frag.frag=New frag
frag\x=MouseX()
frag\y=MouseY()
frag\size#=10
frag\r=0
frag\g=0
frag\b=0
End Function


Function update()
For frag.frag=Each frag
frag\size#=frag\size#+1

frag\r#=frag\r#+3
frag\g#=frag\g#+2
frag\b#=frag\b#+1

Color frag\r#,frag\g#,frag\b#
Oval frag\x,frag\y,frag\size,frag\size

If frag\r>250 Then Delete frag
Next
End Function

	c64	Mo, März 22, 2004 12:00 Antworten mit Zitat
ERSETZE DAS BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Oval frag\x-frag,frag\y,frag\size,frag\size DURCH DAS BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Oval frag\x-frag\size/2,frag\y-frag\size/2,frag\size,frag\size is besser ! weil Kreis immer Mittig ! Immer schön weiter Progn !!!

c64

Mo, März 22, 2004 12:00
Antworten mit Zitat

ERSETZE

DAS

BlitzBasic: [AUSKLAPPEN]


Oval frag\x-frag,frag\y,frag\size,frag\size

DURCH
DAS

BlitzBasic: [AUSKLAPPEN]


Oval frag\x-frag\size/2,frag\y-frag\size/2,frag\size,frag\size

is besser ! weil Kreis immer Mittig !
Immer schön weiter Progn !!! Wink