Farbverlauf

Übersicht

BlitzBasic

Codearchiv

	Kabelbinder Sieger des WM-Contest 2006 Betreff: Farbverlauf	Di, Jul 20, 2004 13:38 Antworten mit Zitat
Ich habe mal was gemacht, womit man Farbverläufe erstellen kann (für HP-Leisten, Texturen, Hintergründe, etc.) Man kann die linke Farbe ändern, indem man den entsprechen Buchstaben gedrückt hält: r für Rot, g für Grün und b für Blau und gleichzeitig mit den Pfeiltasten nach oben, oder nach unten drückt. Und un die rechte Farbe zu ändern das gleiche, nur mit Bild rauf und Bild runter. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] AppTitle "Farbverlauf" Graphics 640,480,16,1 SetBuffer BackBuffer() Const teil = 255 Global rr#,gg#,bb# Dim Farbe#(3,2) Farbe(1,1) = 255 Farbe(2,1) = 0 Farbe(3,1) = 0 Farbe(1,2) = 255 Farbe(2,2) = 255 Farbe(3,2) = 0 Function colors() If KeyDown(19)=1 Then If KeyDown(200)=1 And Farbe(1,1)<255 Then Farbe(1,1)=Farbe(1,1)+1 If KeyDown(208)=1 And Farbe(1,1)>0 Then Farbe(1,1)=Farbe(1,1)-1 If KeyDown(201)=1 And Farbe(1,2)<255 Then Farbe(1,2)=Farbe(1,2)+1 If KeyDown(209)=1 And Farbe(1,2)>0 Then Farbe(1,2)=Farbe(1,2)-1 EndIf If KeyDown(34)=1 Then If KeyDown(200)=1 And Farbe(2,1)<255 Then Farbe(2,1)=Farbe(2,1)+1 If KeyDown(208)=1 And Farbe(2,1)>0 Then Farbe(2,1)=Farbe(2,1)-1 If KeyDown(201)=1 And Farbe(2,2)<255 Then Farbe(2,2)=Farbe(2,2)+1 If KeyDown(209)=1 And Farbe(2,2)>0 Then Farbe(2,2)=Farbe(2,2)-1 EndIf If KeyDown(48)=1 Then If KeyDown(200)=1 And Farbe(3,1)<255 Then Farbe(3,1)=Farbe(3,1)+1 If KeyDown(208)=1 And Farbe(3,1)>0 Then Farbe(3,1)=Farbe(3,1)-1 If KeyDown(201)=1 And Farbe(3,2)<255 Then Farbe(3,2)=Farbe(3,2)+1 If KeyDown(209)=1 And Farbe(3,2)>0 Then Farbe(3,2)=Farbe(3,2)-1 EndIf End Function Repeat colors() Color 255,255,255 For i = 1 To 2 For j = 1 To 3 Text i100+300,j20+50,Farbe(j,i),0,0 Next Next Color Farbe(1,1),Farbe(2,1),Farbe(3,1) Rect 400,30,50,30 Color Farbe(1,2),Farbe(2,2),Farbe(3,2) Rect 500,30,50,30 rr = (Farbe(1,1)-Farbe(1,2))/teil gg = (Farbe(2,1)-Farbe(2,2))/teil bb = (Farbe(3,1)-Farbe(3,2))/teil For i = 1 To teil Color Farbe(1,1)-rri,Farbe(2,1)-ggi,Farbe(3,1)-bb*i Rect i+100,100,1,100 Next Flip Cls Until KeyHit(1) End
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Betreff: Farbverlauf

Di, Jul 20, 2004 13:38
Antworten mit Zitat

Ich habe mal was gemacht, womit man Farbverläufe erstellen kann (für HP-Leisten, Texturen, Hintergründe, etc.)

Man kann die linke Farbe ändern, indem man den entsprechen Buchstaben gedrückt hält: r für Rot, g für Grün und b für Blau und gleichzeitig mit den Pfeiltasten nach oben, oder nach unten drückt.

Und un die rechte Farbe zu ändern das gleiche, nur mit Bild rauf und Bild runter.

BlitzBasic: [AUSKLAPPEN]

AppTitle "Farbverlauf"
Graphics 640,480,16,1
SetBuffer BackBuffer()

Const teil = 255
Global rr#,gg#,bb#
Dim Farbe#(3,2)

Farbe(1,1) = 255
Farbe(2,1) = 0
Farbe(3,1) = 0
Farbe(1,2) = 255
Farbe(2,2) = 255
Farbe(3,2) = 0

Function colors()
If KeyDown(19)=1 Then
If KeyDown(200)=1 And Farbe(1,1)<255 Then Farbe(1,1)=Farbe(1,1)+1
If KeyDown(208)=1 And Farbe(1,1)>0 Then Farbe(1,1)=Farbe(1,1)-1
If KeyDown(201)=1 And Farbe(1,2)<255 Then Farbe(1,2)=Farbe(1,2)+1
If KeyDown(209)=1 And Farbe(1,2)>0 Then Farbe(1,2)=Farbe(1,2)-1
EndIf

If KeyDown(34)=1 Then
If KeyDown(200)=1 And Farbe(2,1)<255 Then Farbe(2,1)=Farbe(2,1)+1
If KeyDown(208)=1 And Farbe(2,1)>0 Then Farbe(2,1)=Farbe(2,1)-1
If KeyDown(201)=1 And Farbe(2,2)<255 Then Farbe(2,2)=Farbe(2,2)+1
If KeyDown(209)=1 And Farbe(2,2)>0 Then Farbe(2,2)=Farbe(2,2)-1
EndIf

If KeyDown(48)=1 Then
If KeyDown(200)=1 And Farbe(3,1)<255 Then Farbe(3,1)=Farbe(3,1)+1
If KeyDown(208)=1 And Farbe(3,1)>0 Then Farbe(3,1)=Farbe(3,1)-1
If KeyDown(201)=1 And Farbe(3,2)<255 Then Farbe(3,2)=Farbe(3,2)+1
If KeyDown(209)=1 And Farbe(3,2)>0 Then Farbe(3,2)=Farbe(3,2)-1
EndIf
End Function

Repeat

colors()

Color 255,255,255
For i = 1 To 2
For j = 1 To 3
Text i*100+300,j*20+50,Farbe(j,i),0,0
Next
Next
Color Farbe(1,1),Farbe(2,1),Farbe(3,1)
Rect 400,30,50,30
Color Farbe(1,2),Farbe(2,2),Farbe(3,2)
Rect 500,30,50,30

rr = (Farbe(1,1)-Farbe(1,2))/teil
gg = (Farbe(2,1)-Farbe(2,2))/teil
bb = (Farbe(3,1)-Farbe(3,2))/teil
For i = 1 To teil
Color Farbe(1,1)-rr*i,Farbe(2,1)-gg*i,Farbe(3,1)-bb*i
Rect i+100,100,1,100
Next

Flip
Cls
Until KeyHit(1)
End

	Kekskiller	Di, Jul 20, 2004 18:53 Antworten mit Zitat
Nette Funktion, zumindest flexibler als die, die ich vorher nutze. Dicken Dank an den Verfasser ^_^ .

Kekskiller

Di, Jul 20, 2004 18:53
Antworten mit Zitat

Nette Funktion, zumindest flexibler als die, die ich vorher nutze.
Dicken Dank an den Verfasser ^_^ .