about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-25 22:20:57 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-25 22:20:57 -0700
commit7148f1222e03303f4f894f4a4c9b3719d17a2f9e (patch)
tree6e48a3586562b30f210692e24626638a76cd2bb2
parent891083c44d91577e1bb29f9c9e46a2db392fa8c6 (diff)
downloadmu-7148f1222e03303f4f894f4a4c9b3719d17a2f9e.tar.gz
bug in bresenham lines
-rw-r--r--shell/data.limg4
1 files changed, 2 insertions, 2 deletions
diff --git a/shell/data.limg b/shell/data.limg
index 88adeeee..c61ebe98 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -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)