Farbverlauf
Übersicht

BlitzBasic303Betreff: Farbverlauf |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi!
Weil ziemlich oft danach gefragt wurde, habe ich mich mal gewagt einen Farbvelauf zu proggen... Hier mein Ergebnis: Code: [AUSKLAPPEN] Graphics 640,480,32,0 a$=input("Soll der Farbvelauf mit Text(a) oder mit Grafik(b) dargestellt werden? a\b: ") If a$ = "a" Then textschreiben=1 Graphics 800,600,32,1 SetBuffer BackBuffer() Cls r=5 g=5 b=5 darfrot=1 While Not KeyHit(1) If textschreiben=1 Then Cls If darfrot=1 And r < 255 Then r=r+1 If darfgrun=1 And g < 255 Then g=g+1 If darfblau=1 And b < 255 Then b=b+1 If r>250 And darfrot=1 Then darfgrun=1 If g>250 And darfgrun=1 Then darfblau=1 If b>250 And darfblau=1 Then darfrot=-1 If darfrot=-1 Then r=r-1 If darfgrun=-1 Then g=g-1 If darfblau=-1 Then b=b-1 If r < 5 Then darfgrun=-1:darfrot=0 If g < 5 Then darfblau=-1:darfgrun=0 If b < 5 Then darfrot=1:darfblau=0 If r < 5 Then r=5 If g < 5 Then g=5 If b < 5 Then b=5 Color r,g,b If textschreiben = 1 Text 10,10,r Text 10,30,g Text 10,50,b End If If textschreiben = 0 Then If yplus=0 Then y=y+1 If yplus=1 Then y=y-1 If y<-10 Then yplus=0 If y>300 Then yplus=1 Rect 0,y,255,y,1 End if Flip Wend End Mfg BlitzBasic303 |
||
![]() |
Spikespine |
![]() Antworten mit Zitat ![]() |
---|---|---|
Des Codearchivs nicht würdig, würde ich sagen... | ||
Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax |
![]() |
orpheus_2003Betreff: Naja |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ich finds gut.
Gefällt mir. Wenns auch nicht anspruchsvoll ist. Aber nett. |
||
GazerStar - the beginning
http://gazerstar.lexigame.de/ Wizard (Worktitel) http://wizard.lexigame.de |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group