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

cycro1234

Sun Jan 16, 2005 4:27 pm


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. 

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!


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

Neo

Sun Jan 16, 2005 4:50 pm



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

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.


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

cycro1234

Sun Jan 16, 2005 5:22 pm



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

OK. Thanks