Mercurial > vba-clojure

changeset 572:58a25fa15176

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor formatting changes.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 03:42:16 -0500
parents c6b01ff2f1e5
children 40f62391db9d
files clojure/com/aurellem/run/adv_choreo.clj
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:40:50 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:42:16 2012 -0500
     1.3 @@ -199,9 +199,8 @@
     1.4                  ;; clear screen if we are at 0,0
     1.5                  0x57 0xB3 ;; D->A, OR E A ==> (= D E 0)
     1.6                  0x20 ;; skip clear-screen if D and E are not both zero
     1.7 -                :clear-screen-length
     1.8 +                :clear-screen-length])
     1.9  
    1.10 -                ])
    1.11                clear-screen
    1.12                (flatten
    1.13                 [;; save all registers
    1.14 @@ -229,17 +228,21 @@
    1.15                     0x20
    1.16                     (->signed-8-bit -8)
    1.17                  ;; end of do-while-loop
    1.18 -                
    1.19 -                
    1.20 +
    1.21                  ;; restore all registers
    1.22 -                0xF1 0xE1 0xD1 0xC1
    1.23 +                0xF1 0xE1 0xD1 0xC1])
    1.24 +
    1.25 +              render-glyph
    1.26 +              (flatten
    1.27 +               [0 0 
    1.28                  ])
    1.29  
    1.30 +              
    1.31                init (replace
    1.32                      {:clear-screen-length (count clear-screen)} init*)
    1.33                ]
    1.34            
    1.35 -              (concat init clear-screen))
    1.36 +              (concat init clear-screen render-glyph))
    1.37                
    1.38          cleanup
    1.39          ;; restore all registers