diff clojure/com/aurellem/run/adv_choreo.clj @ 563:a70d9223f6eb

added blank glyph.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 09:37:18 -0500
parents 114f58b5b6d0
children a5cb3f8d12ee
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:22:52 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:37:18 2012 -0500
     1.3 @@ -175,13 +175,27 @@
     1.4            ])
     1.5  
     1.6          display-glyph
     1.7 -        (flatten
     1.8 -         [0xF1 ;; pop A, now A is equal to key input
     1.9  
    1.10 -          0 0 0
    1.11 +        (let [init
    1.12 +              
    1.13 +              (flatten
    1.14 +               [0xF1 ;; pop A, now A is equal to key input
    1.15 +                ;; BC is current number of glyphs rendered.
    1.16 +                ;; each glyph is two characters, and the screen can hold up
    1.17 +                ;; to 360 characters. Thus, if the current glyphs is a
    1.18 +                ;; multiple of 180, the screen must be refreshed.
    1.19  
    1.20 +                ;; DE contains max-glyphs and HL will be overwritten next
    1.21 +                ;; section, so both are free to use here.
    1.22 +                0 0 0
    1.23 +                
    1.24  
    1.25 -          ])
    1.26 +                ])
    1.27 +              clear-screen
    1.28 +
    1.29 +              []]
    1.30 +              (concat init clear-screen))
    1.31 +              
    1.32           
    1.33  
    1.34          cleanup