replace 'hline' with Mu implementation

1 files changed, 4 insertions, 8 deletions

diff --git a/shell/data.limg b/shell/data.limg
index 576d91a0..e4a5c8cb 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -122,17 +122,13 @@
      (while ,test
        ,@body
        ,update))])
-    (hline1 . [def (hline1 screen y x xmax color)
-  while (x < xmax)
-    (pixel screen x y color)
-    ++x])
     (vline1 . [def (vline1 screen x y ymax color)
   while (y < ymax)
     (pixel screen x y color)
     ++y])
-    (hline . [def (hline scr y color)
-  (hline1 scr y 0 (width scr) color)])
-    (vline . [def (vline scr x color)
+    (hborder . [def (hborder scr y color)
+  (hline scr y 0 (width scr) color)])
+    (vborder . [def (vborder scr x color)
   (vline1 scr x 0 (height scr) color)])
     (read_line . [def (read_line keyboard)
   ret str (stream)
@@ -147,7 +143,7 @@
     (cube . [def (cube n) (n * n * n)])
     (fill_rect . [def (fill_rect screen x1 y1 x2 y2 color)
   for y y1 (y < y2) ++y
-    (hline1 screen y x1 x2 color)])
+    (hline screen y x1 x2 color)])
     (circle . [def (circle scr cx cy r clr)
   with (x (0 - r)
         y 0