Cool Effects

[copthesaint]

Have a good effect?
Why not post it here!
here is one thats realy awsome

code:

View.Set ("graphics:max;max;offscreenonly;nocursor")       loop     for x : 1 .. 200         var b := Rand.Int (1,999)         var fnt2 := Font.New ("Ariel:600x200")         for i : 1 .. 100         drawfillbox (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), x div 2)         Draw.Box (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), white)         Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)             end for                drawfillbox (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), x)         Draw.Box (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), white)         Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)         delay (50)         View.Update             end for end loop

[lordroba]

how about something useful like drawing parabolas.

Turing:

procedure drawparabola (x:int,y:int,xlen:int,ylen:int,col:int)   var xn,yn:real   for t:1..10000     xn:=0.5*xlen* sin (t)+x     yn:=0.5*ylen* cos (2*t)+y-round(0.5*ylen)     drawdot(round(xn),round(yn),col)   end for end drawparabola drawparabola(100,100,50,60,45) drawbox(99,99,101,101,54)        drawbox(75,40,125,40,78) drawbox(75,40,75,100,78)

[Insectoid]

Download is in the post

Basically, it takes the pixels of a picture and drops them down the screen in a seemingly random pattern before suddenly morphing into a picture. I have a better one where the pixels fall at varying speeds depending on how far they are from their destination.

[Saad]

copthesaint @ Tue Nov 11, 2008 3:58 pm wrote:

Why not post it here!

This is usually why.

[Insectoid]

Well, mine passes the test (I watched it run for about 75 minutes)

[[Gandalf]]

Well yours already has it's own post, and since this post is in essence a 'trippy flash', locked.

Edit: Hrm, though, 75 minutes? You might want to get your eyes checked or some such!