Сообщение от moka
Зачем?
Не лучше ли заняться реальной разработкой игр или приложений, исползуя современные и развитые платформы и библиотеки?
Зачем заниматься некро-кодингом?
|
По теме: Может я что-то не так делаю, но результат странный получается. При уменьшении/увеличении альфы, прямоугольник меняет цвет непредсказуемым образом. ЧЯДНТ?
Graphics 1024, 768, 32, 2
SetBuffer BackBuffer()
Local Alpha#=1
While Not KeyHit(1)
If KeyDown(2) Then Alpha=Alpha+.01
If KeyDown(3) Then Alpha=Alpha-.01
If Alpha<0
Alpha=0
ElseIf Alpha>1
Alpha=1
EndIf
AlphaRect(50 , 50 , 100 , 100, 255, 0, 0, Alpha, False)
Text 20, 20, Alpha
Flip:Cls
Wend
End