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

eskalion

Thu Dec 11, 2008 11:14 am


Paint Program... cannot draw continuous line

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

Here is my code for my Paint Program. 


setscreen ("graphics:max;max")

proc paint
    var x, y, button : int
    var xrdi, yrdi : int
    var xrdi2, yrdi2 : int

    var clrbr : int

    var keys : array char of boolean

    xrdi := 2
    yrdi := 3

    xrdi2 := 10
    yrdi2 := 10

    clrbr := 7

    loop
        if xrdi