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

copthesaint

Tue Nov 11, 2008 3:58 pm


Cool Effects

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

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

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

Tue Nov 11, 2008 4:16 pm


Re: Cool Effects

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

how about something useful like drawing parabolas.  


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

Tue Nov 11, 2008 4:36 pm


RE:Cool Effects

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

[url=http://compsci.ca/v3/viewtopic.php?p=172578#172578]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

Tue Nov 11, 2008 6:31 pm


Re: Cool Effects

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

Why not post it here!

[url=http://compsci.ca/v3/viewtopic.php?t=7734]This is usually why.


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

Insectoid

Tue Nov 11, 2008 8:34 pm


RE:Cool Effects

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

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


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

[Gandalf]

Tue Nov 11, 2008 9:07 pm


RE:Cool Effects

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

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!