Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Das Alpha-Channel Experiment
| Uploader: |  AndT |
| Datum/Zeit: | 26.01.2008 19:29:22 |
#include once "fbgfx.bi"
Using FB
screenres 640, 480, 32
Dim As Uinteger red = rgb(0,0,255), blue = rgb(255,0,0)
Dim As image Ptr img
img = imagecreate (200, 200, blue)
Circle img, (100,100), 75, red,,,,F
Dim As Double i = .3, a = 0
a=32
do
Put (-200+int(rnd*740),-200+int(rnd*680)), img, Alpha, a
a += i
If (a >=64) Or a < = 32 Then
i = -i
a += i
Endif
sleep 1
loop until inkey <> ""