From 315926f732464affdb21ef102dde7380974a3ab1 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 9 Oct 2020 21:43:42 -0700
Subject: 6979

Use the fake-screen infrastructure we already have for non-interactive
mode.
---
 apps/tile/box.mu  | 4 ++--
 apps/tile/main.mu | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'apps')

diff --git a/apps/tile/box.mu b/apps/tile/box.mu
index bc0f58e1..f13eee81 100644
--- a/apps/tile/box.mu
+++ b/apps/tile/box.mu
@@ -21,7 +21,7 @@ fn draw-hatching screen: (addr screen), row1: int, col1: int, row2: int, col2: i
 
 fn draw-horizontal-line screen: (addr screen), row: int, col1: int, col2: int {
   var col/eax: int <- copy col1
-  move-cursor 0, row, col
+  move-cursor screen, row, col
   {
     compare col, col2
     break-if->=
@@ -36,7 +36,7 @@ fn draw-vertical-line screen: (addr screen), row1: int, row2: int, col: int {
   {
     compare row, row2
     break-if->=
-    move-cursor 0, row, col
+    move-cursor screen, row, col
     print-code-point screen, 0x2502
     row <- increment
     loop
diff --git a/apps/tile/main.mu b/apps/tile/main.mu
index b9cfde53..165e92e0 100644
--- a/apps/tile/main.mu
+++ b/apps/tile/main.mu
@@ -74,7 +74,7 @@ fn interactive {
 fn test {
   var env-storage: environment
   var env/esi: (addr environment) <- address env-storage
-  initialize-environment env
+  initialize-environment-with-fake-screen env, 0x30, 0xa0  # 48 rows, 160 columns
   var g/eax: grapheme <- copy 0x31  # '1'
   process env, g
   g <- copy 0x20  # space
-- 
cgit 1.4.1-2-gfad0