All pastes #579856 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-20 21:15 UTC
rendered paste body
QUAN lX1
QUAN lX2
QUAN lY1
QUAN lY2
QUAN fbColor
: Line // x1 y1 x2 y2 color
 TO fbЦвет
 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 + fbColor PIXEL
 LOOP
;