bug in bresenham lines
This commit is contained in:
parent
891083c44d
commit
7148f1222e
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue