diff clojure/com/aurellem/run/adv_choreo.clj @ 565:bb1dc927859b

saving progress.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 12:14:47 -0500
parents a5cb3f8d12ee
children a2ff0032119e
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 11:01:22 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 12:14:47 2012 -0500
     1.3 @@ -187,7 +187,13 @@
     1.4  
     1.5                  ;; DE contains max-glyphs and HL will be overwritten next
     1.6                  ;; section, so both are free to use here.
     1.7 -                0 0 0
     1.8 +                (repeat 100 0)
     1.9 +                ;; Reset HL to initial value
    1.10 +                0x21
    1.11 +                (reverse (disect-bytes-2 data-start))
    1.12 +                
    1.13 +                0x78 0x22 ;; B -> save glyphs-rendered
    1.14 +                0x79 0x22 ;; 
    1.15                  
    1.16  
    1.17                  ])
    1.18 @@ -218,6 +224,7 @@
    1.19          (replace {:to-stack-cleanup
    1.20                    (+ (count display-glyph) (count cleanup))}
    1.21                   handle-glyph-count*)]
    1.22 +    (println  (+ (count display-glyph) (count cleanup)))
    1.23      (concat load-data
    1.24              handle-glyph-count
    1.25              display-glyph