ich hab da mal ne Frage: Ich wollte ein sanftes Einblenden von Schwarz zum eigentlichen Screen machen aber ich weis nicht wie man eine Transparenz für Schwarz macht.
Ich hab zwar ein bisschen gesucht
KeyKon
Code: Alles auswählen
InitSprite()
InitKeyboard()
RGB=100
OpenScreen(1024,768,16,"Test")
ChangeGamma(0,0,0,1)
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
FrontColor(255,255,0)
Box(0,0,123,123)
DrawingMode(1)
FrontColor(255,0,0)
Locate(5,5)
DrawText("RGB: "+Str(RGB))
StopDrawing()
ChangeGamma(RGB,RGB,RGB,0)
If Timer = 100
RGB=255
EndIf
Timer+1
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
EndCode: Alles auswählen
InitSprite()
InitKeyboard()
OpenScreen(1024,768,16,"Test")
ChangeGamma(0,0,0,1)
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
FrontColor(255,255,0)
Box(0,0,123,123)
DrawingMode(1)
FrontColor(255,0,0)
Locate(5,5)
DrawText("RGB: "+Str(RGB))
StopDrawing()
ChangeGamma(RGB,RGB,RGB,0)
If RGB <> 255
RGB+1
EndIf
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
EndCode: Alles auswählen
InitSprite()
InitKeyboard()
RGB=100
OpenScreen(1024,768,16,"Test")
ChangeGamma(0,0,0,1)
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
FrontColor(255,255,0)
Box(0,0,123,123)
DrawingMode(1)
FrontColor(255,0,0)
Locate(5,5)
DrawText("RGB: "+Str(RGB))
StopDrawing()
ChangeGamma(RGB,RGB,RGB,0)
If Timer >= 5 And RGB < 255
RGB+1
EndIf
Timer+1
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
End