From 1c7799486d83b9b17c0aa25277551ef72858ad03 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 17 Apr 2021 22:37:29 -0700
Subject: allow drawing all pixels

So far we aren't running out of memory. Might as well loosen our belts.
---
 500fake-screen.mu | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/500fake-screen.mu b/500fake-screen.mu
index fce0dc5d..3e74a5bd 100644
--- a/500fake-screen.mu
+++ b/500fake-screen.mu
@@ -52,10 +52,9 @@ fn initialize-screen _screen: (addr screen), width: int, height: int {
     tmp <- multiply width
     populate data-addr, tmp
   }
-  # allocate space for 16 pixels per 16x8 character. So one column of pixels
-  # per character.
   var pixels-ah/ecx: (addr handle stream pixel) <- get screen, pixels
-  tmp <- shift-left 4
+  tmp <- shift-left 3/log2-font-width
+  tmp <- shift-left 4/log2-font-height
   populate-stream pixels-ah, tmp
   # screen->cursor-x = 0
   dest <- get screen, cursor-x
-- 
cgit 1.4.1-2-gfad0