about summary refs log tree commit diff stats
path: root/apps/tile/box.mu
diff options
context:
space:
mode:
Diffstat (limited to 'apps/tile/box.mu')
-rw-r--r--apps/tile/box.mu109
1 files changed, 0 insertions, 109 deletions
diff --git a/apps/tile/box.mu b/apps/tile/box.mu
deleted file mode 100644
index 859d0b8e..00000000
--- a/apps/tile/box.mu
+++ /dev/null
@@ -1,109 +0,0 @@
-fn draw-box screen: (addr screen), row1: int, col1: int, row2: int, col2: int {
-  draw-horizontal-line screen, row1, col1, col2
-  draw-vertical-line screen, row1, row2, col1
-  draw-horizontal-line screen, row2, col1, col2
-  draw-vertical-line screen, row1, row2, col2
-  draw-top-left-corner screen, row1, col1
-  draw-top-right-corner screen, row1, col2
-  draw-bottom-left-corner screen, row2, col1
-  draw-bottom-right-corner screen, row2, col2
-}
-
-fn draw-hatching screen: (addr screen), row1: int, col1: int, row2: int, col2: int {
-  var c/eax: int <- copy col1
-  var r1/ecx: int <- copy row1
-  r1 <- increment
-  c <- add 2
-  {
-    compare c, col2
-    break-if->=
-    draw-vertical-line screen, r1, row2, c
-    c <- add 2
-    loop
-  }
-}
-
-fn draw-horizontal-line screen: (addr screen), row: int, col1: int, col2: int {
-  var col/eax: int <- copy col1
-  move-cursor screen, row, col
-  {
-    compare col, col2
-    break-if->=
-    print-code-point screen, 0x2500
-    col <- increment
-    loop
-  }
-}
-
-fn draw-vertical-line screen: (addr screen), row1: int, row2: int, col: int {
-  var row/eax: int <- copy row1
-  {
-    compare row, row2
-    break-if->=
-    move-cursor screen, row, col
-    print-code-point screen, 0x2502
-    row <- increment
-    loop
-  }
-}
-
-fn draw-top-left-corner screen: (addr screen), row: int, col: int {
-  move-cursor screen, row, col
-  print-code-point screen, 0x250c
-}
-
-fn draw-top-right-corner screen: (addr screen), row: int, col: int {
-  move-cursor screen, row, col
-  print-code-point screen, 0x2510
-}
-
-fn draw-bottom-left-corner screen: (addr screen), row: int, col: int {
-  move-cursor screen, row, col
-  print-code-point screen, 0x2514
-}
-
-fn draw-bottom-right-corner screen: (addr screen), row: int, col: int {
-  move-cursor screen, row, col
-  print-code-point screen, 0x2518
-}
-
-# erase parts of screen the slow way
-fn clear-rect screen: (addr screen), row1: int, col1: int, row2: int, col2: int {
-  var i/eax: int <- copy row1
-  {
-    compare i, row2
-    break-if->
-    var j/ecx: int <- copy col1
-    move-cursor screen, i, j
-    {
-      compare j, col2
-      break-if->
-      print-grapheme screen 0x20/space
-      j <- increment
-      loop
-    }
-    i <- increment
-    loop
-  }
-}
-
-fn clear-rect2 screen: (addr screen), row1: int, col1: int, w: int, h: int {
-  var i/eax: int <- copy 0
-  var curr-row/esi: int <- copy row1
-  {
-    compare i, w
-    break-if->=
-    move-cursor screen, curr-row, col1
-    var j/ecx: int <- copy 0
-    {
-      compare j, h
-      break-if->=
-      print-grapheme screen 0x20/space
-      j <- increment
-      loop
-    }
-    i <- increment
-    curr-row <- increment
-    loop
-  }
-}