Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Picture Effect
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
jonos




PostPosted: Fri Mar 12, 2004 1:25 am   Post subject: 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:

code:

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
Sponsor
Sponsor
Sponsor
sponsor
Delos




PostPosted: Fri Mar 12, 2004 12:50 pm   Post subject: (No subject)

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




PostPosted: Fri Mar 12, 2004 1:13 pm   Post subject: (No subject)

yeah ive seen that, thanks for the uh compliment, it wasn't supposed to be spectacular.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 3 Posts ]
Jump to:   


Style:  
Search: