# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346423838 18000
# Node ID a70d9223f6ebc7e1d3580f083017cddaa9714cd9
# Parent  114f58b5b6d0dfa765041cb21d47c8b3baaa7e3c
added blank glyph.

diff -r 114f58b5b6d0 -r a70d9223f6eb clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:22:52 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:37:18 2012 -0500
@@ -175,13 +175,27 @@
           ])
 
         display-glyph
-        (flatten
-         [0xF1 ;; pop A, now A is equal to key input
 
-          0 0 0
+        (let [init
+              
+              (flatten
+               [0xF1 ;; pop A, now A is equal to key input
+                ;; BC is current number of glyphs rendered.
+                ;; each glyph is two characters, and the screen can hold up
+                ;; to 360 characters. Thus, if the current glyphs is a
+                ;; multiple of 180, the screen must be refreshed.
 
+                ;; DE contains max-glyphs and HL will be overwritten next
+                ;; section, so both are free to use here.
+                0 0 0
+                
 
-          ])
+                ])
+              clear-screen
+
+              []]
+              (concat init clear-screen))
+              
          
 
         cleanup
diff -r 114f58b5b6d0 -r a70d9223f6eb font/_.png
Binary file font/_.png has changed