-----------------------------------

MihaiG

Mon Nov 29, 2004 6:58 pm


::RAIN RENDER::

-----------------------------------

here is an awesome render of rain i made


var n : int
n := 1000
var x, y, l : array 1 .. n of int
for i : 1 .. n
    randint (l (i),1,5)
    randint (x (i), 1, maxx - l(i))
    randint (y (i), l(i), maxy)
end for
loop
    for i : 1 .. n
        if y (i) < maxy - l (i) then
            drawline (x (i), y (i), x (i), y (i) + l(i) , white)
        else
            drawline (x (i), maxy, x (i), y (i), white)
        end if
        if y (i)  0 then
        randint (aiDrops (i).x, 1 - abs (iDir), 640)
    elsif iDir < 0 then
        randint (aiDrops (i).x, 1, 640 + abs (iDir))
    else
        randint (aiDrops (i).x, 1, 640)
    end if
    randint (aiDrops (i).y, 480, 480 * 2)
end for
RGB.SetColour (0, 0, 0, 0)

loop
    delay (10)
    Window.Update (iWindow)
    cls
    for i : 1 .. cDropCount
        if aiDrops (i).y < -5 then
            if iDir > 0 then
                randint (aiDrops (i).x, 1 - abs (iDir), 640)
            elsif iDir < 0 then
                randint (aiDrops (i).x, 1, 640 + abs (iDir))
            else
                randint (aiDrops (i).x, 1, 640)
            end if
            randint (aiDrops (i).y, 480, 490)
        else
            mousewhere (iX, iY, iButton)
            iDir := iX - maxx div 2
            aiDrops (i).x += iDir div 50
            aiDrops (i).y -= iSpeed
        end if
        DrawDrop (aiDrops (i).x, aiDrops (i).y)
    end for
    exit when buttonmoved ("down")
end loop
Window.Close (iWindow)


-----------------------------------

zomg

Tue Nov 30, 2004 10:44 am



-----------------------------------

i kinda like the first one it may not look like real rain but for some reason i like the effect:)


-----------------------------------

the_short1

Wed Dec 01, 2004 4:56 pm



-----------------------------------

Rapscallion... u :king:  ... ncie stuff....  kidna like the good snowflake ones by mazer and asian...


-----------------------------------

MihaiG

Wed Dec 01, 2004 6:49 pm



-----------------------------------


var n, font2, clr : int
n := 1000
var x, y, l, cl : array 1 .. n of int
for i : 1 .. n
    randint (clr , 1, 255)
end for
font2 := Font.New ("sans serif:20:bold,italic,underline")
assert font2 > 0
Font.Draw ("Are you happy Tony?", 50, 80, font2, clr)
Font.Free (font2)
for i : 1 .. n
    randint (cl (i), 1, 255)
    randint (l (i), 1, 5)
    randint (x (i), 1, maxx - l (i))
    randint (y (i), l (i), maxy)
end for
loop
    for i : 1 .. n
        if y (i) < maxy - l (i) then
            drawline (x (i), y (i), x (i), y (i) + l (i), white)
        else
            drawline (x (i), maxy, x (i), y (i), white)
        end if

        if y (i)