Farbverlauf

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

 

BlitzBasic303

Betreff: Farbverlauf

BeitragMo, Dez 12, 2005 20:11
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMo, Dez 12, 2005 20:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Des Codearchivs nicht würdig, würde ich sagen...
Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax

orpheus_2003

Betreff: Naja

BeitragMo, Dez 12, 2005 21:32
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group