Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Wasser effekt
| Uploader: |  AndT |
| Datum/Zeit: | 27.01.2008 13:33:46 |
#include once "fbgfx.bi"
Using FB
screenres 640, 480, 32
Dim As Uinteger blue = rgb(0,0,255), red = rgb(0,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
' Main Loop
do
Put (-200+int(rnd*740),-200+int(rnd*680)), img, Alpha, 1
loop until inkey <> ""