----------------------------------- jonos Fri Mar 12, 2004 1:25 am Picture Effect ----------------------------------- Well, this sucks kind of but i was working on trying something and i thought of just doing this which turned out not to be too hard, and i ended up not finishing the other thing, so here it is, inspired by zylum's program, though they have little in common: var picID : int picID := Pic.FileNew ("picture.bmp") var newPicID : int newPicID := Pic.Scale (picID, 200, 200) Pic.Draw (newPicID, 0, 0, picCopy) var colours : array 1 .. 200, 1 .. 200 of int for x : 1 .. 200 for y : 1 .. 200 colours (x, y) := whatdotcolour (x, y) end for end for cls for x : 1 .. 100 for y : 1 .. 100 drawdot (x, y, colours (x, y)) end for end for for x : 101 .. 200 for y : 101 .. 200 drawdot (x, y, colours (x, y)) end for end for for x : 1 .. 100 for y : 101 .. 200 drawdot (x, y, colours (x, y) div 2) end for end for for x : 101 .. 200 for y : 1 .. 100 drawdot (x, y, colours (x, y) div 2) end for end for ----------------------------------- Delos Fri Mar 12, 2004 12:50 pm ----------------------------------- Time for a plug...hehehe. That was a workable effect...as in it could use some work. Check this out for an idea of what I mean: http://www.compsci.ca/v2/viewtopic.php?t=3316 ----------------------------------- jonos Fri Mar 12, 2004 1:13 pm ----------------------------------- yeah ive seen that, thanks for the uh compliment, it wasn't supposed to be spectacular.