about summary refs log tree commit diff stats
path: root/prototypes/tile/4.mu
diff options
context:
space:
mode:
Diffstat (limited to 'prototypes/tile/4.mu')
-rw-r--r--prototypes/tile/4.mu56
1 files changed, 0 insertions, 56 deletions
diff --git a/prototypes/tile/4.mu b/prototypes/tile/4.mu
deleted file mode 100644
index 6e2a57b7..00000000
--- a/prototypes/tile/4.mu
+++ /dev/null
@@ -1,56 +0,0 @@
-# animate a large box
-#
-# To run (on Linux and x86):
-#   $ git clone https://github.com/akkartik/mu
-#   $ cd mu
-#   $ ./translate_mu prototypes/tile/4.mu
-#   $ ./a.elf
-
-fn main -> exit-status/ebx: int {
-  clear-screen 0
-  enable-keyboard-immediate-mode
-  var dummy/eax: grapheme <- read-key-from-real-keyboard
-  draw-box 5, 5, 0x23, 0x23  # 35, 35
-  sleep 0 0x5f5e100  # 100ms
-  sleep 0 0x5f5e100  # 100ms
-  draw-box 5, 5, 0x23, 0x69  # 35, 105
-  sleep 0 0x5f5e100  # 100ms
-  sleep 0 0x5f5e100  # 100ms
-  draw-box 5, 5, 0x23, 0xaf  # 35, 175
-  var dummy/eax: grapheme <- read-key-from-real-keyboard
-  enable-keyboard-type-mode
-  clear-screen 0
-  exit-status <- copy 0
-}
-
-fn draw-box row1: int, col1: int, row2: int, col2: int {
-  clear-screen 0
-  draw-horizontal-line row1, col1, col2
-  draw-vertical-line row1, row2, col1
-  draw-horizontal-line row2, col1, col2
-  draw-vertical-line row1, row2, col2
-}
-
-fn draw-horizontal-line row: int, col1: int, col2: int {
-  var col/eax: int <- copy col1
-  move-cursor 0, row, col
-  {
-    compare col, col2
-    break-if->=
-    print-string 0, "-"
-    col <- increment
-    loop
-  }
-}
-
-fn draw-vertical-line row1: int, row2: int, col: int {
-  var row/eax: int <- copy row1
-  {
-    compare row, row2
-    break-if->=
-    move-cursor 0, row, col
-    print-string 0, "|"
-    row <- increment
-    loop
-  }
-}