Anonymous

QUAN lX1
QUAN lX2
QUAN lY1
QUAN lY2
QUAN lColor
: Line // x1 y1 x2 y2 color
 TO lColor
 TO lY2
 TO lX2
 TO lY1
 TO lX1
 lX1 lX2 > IF
  lX1 lX2 TO lX1 TO lX2
  lY1 lY2 TO lY1 TO lY2
 THEN

 lY2 lY1 - S>F lX2 lX1 - S>F F/
 lX2 lX1 DO
  I DUP lX1 - FDUP S>F F* F>S lY1 + lColor PIXEL
 LOOP
;