bug in bresenham lines

This commit is contained in:
Kartik K. Agaram 2021-04-25 22:20:57 -07:00
parent 891083c44d
commit 7148f1222e
1 changed files with 2 additions and 2 deletions

View File

@ -21,8 +21,8 @@
(- 0 (abs (- y1 y0)))
(sgn (- x1 x0))
(sgn (- y1 y0)))))
(brline1 . (fn () (screen x y xmax ymax dx dy sx sy err color)
(while (or (< x xmax) (< y ymax))
(brline1 . (fn () (screen x y xlast ylast dx dy sx sy err color)
(while (not (and (= x xlast) (= y ylast)))
(pixel screen x y color)
((fn (e2)
(if (>= e2 dy)