hestified life: initial commit

https://ivanish.ca/hest-podcast

1 files changed, 11 insertions, 0 deletions

diff --git a/507line.mu b/507line.mu
index 8da67b07..b8ee5efb 100644
--- a/507line.mu
+++ b/507line.mu
@@ -82,3 +82,14 @@ fn draw-vertical-line screen: (addr screen), x: int, y0: int, y1: int, color: in
     loop
   }
 }
+
+fn draw-rect screen: (addr screen), xmin: int, ymin: int, xmax: int, ymax: int, color: int {
+  var y/eax: int <- copy ymin
+  {
+    compare y, ymax
+    break-if->=
+    draw-horizontal-line screen, y, xmin, xmax, color
+    y <- increment
+    loop
+  }
+}