From f66de6139270475828f1dffd1985d68325bef34d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 16 Apr 2021 20:12:55 -0700 Subject: handle drawing 16*4 = 64 pixels Previously we'd only drawn 8*5 = 40 pixels. Current contents of data.img: ( (globals . ( (hline . (fn () (screen y) (hline1 screen y 0 (width screen)))) (hline1 . (fn () (screen y lo hi) (if (>= lo hi) () ((fn () (pixel screen lo y 12) (hline1 screen y (+ lo 1) hi)))))) (vline1 . (fn () (screen x lo hi) (if (>= lo hi) () ((fn () (pixel screen x lo 12) (vline1 screen x (+ lo 1) hi)))))) )) (sandbox . (vline1 screen 5 0 (height screen))) ) --- shell/sandbox.mu | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/shell/sandbox.mu b/shell/sandbox.mu index b1b8c7e3..1d9e2289 100644 --- a/shell/sandbox.mu +++ b/shell/sandbox.mu @@ -31,7 +31,7 @@ fn initialize-sandbox _self: (addr sandbox), screen-and-keyboard?: boolean { var trace-ah/eax: (addr handle trace) <- get self, trace allocate trace-ah var trace/eax: (addr trace) <- lookup *trace-ah - initialize-trace trace, 0x4000/lines, 0x80/visible-lines + initialize-trace trace, 0x8000/lines, 0x80/visible-lines var cursor-in-data?/eax: (addr boolean) <- get self, cursor-in-data? copy-to *cursor-in-data?, 1/true } -- cgit 1.4.1-2-gfad0