Computer Science Canada

Pic.Draw help
Author:  cycro1234 [ Sun Jan 16, 2005 4:27 pm ]
Post subject:  Pic.Draw help
I'm trying to use Pic.New and Pic.Draw to help me move something on my screen, but it's not working. Here is the code that doesn't work, and the file attached.

code:
procedure arrowDown (x, x2, x3, x4 : int)
    var arrow : int   
    arrow := Pic.New (x, 560, x2, 670)
    for decreasing a : 560 .. 550
        Pic.Draw (arrow, x, a, picMerge) 
    end for
end arrowDown


When the user has the arrow on top of the first column and presses enter, the arrowd should move down a little bit. It moves down, but it leaves traces after it. Please help!
Author:  Neo [ Sun Jan 16, 2005 4:50 pm ]
Post subject: 
Dont use a for loop .You need to refresh the screen each time the picture moves down 1 unit or else you wont see it. Stick the draw procedure in ur main loop and subtract 'a' by 1 if it meets whatever condition.
Author:  cycro1234 [ Sun Jan 16, 2005 5:22 pm ]
Post subject: 
OK. Thanks

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy