-- draw a line from point to point in lingo - the PRE-IMAGELINGO TECHNIQUE

-- there needs to be 3 vector members already in the cast
--  - one with an upsloping line
--  - one with an downsloping line
--  - one with a rectangle

on draw_line_raw whichSprite,upslope_member,dnslope_member, straight_member, x1,y1, x2,y2
    sprite(whichSprite).rect = rect(x1,y1,x2,y2)
    -- swap members depending on which quadrant
    if (x1<x2) <> (y1<y2) then
        sprite(whichSprite).member = upslope_member
    else
        sprite(whichSprite).member = dnslope_member
    end if
    -- this stuff accounts for the perfectly vertical and horizontal instances
    if abs(x1-x2)<= 1 then
        sprite(whichSprite).member = member(straight_member)
        sprite(whichSprite).width = 1
    end if
    if abs(y1-y2)<= 1 then
        sprite(whichSprite).member = member(straight_member)
        sprite(whichSprite).height = 1
    end if
end