Mercurial > vba-clojure
changeset 571:c6b01ff2f1e5
added row and column variables; clear-screen logic works now.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 01 Sep 2012 03:40:50 -0500 |
| parents | a6dcb6236fbc |
| children | 58a25fa15176 |
| files | clojure/com/aurellem/run/adv_choreo.clj |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj Sat Sep 01 03:36:33 2012 -0500 1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj Sat Sep 01 03:40:50 2012 -0500 1.3 @@ -137,9 +137,9 @@ 1.4 (flatten 1.5 [;; data region 1.6 0x18 1.7 - 2 1.8 + 4 1.9 0 0 ;; current num of glyphs-rendered 1.10 - 1.11 + 0 0 ;; current row and column 1.12 ;; save all registers 1.13 0xC5 0xD5 0xE5 0xF5 1.14 1.15 @@ -198,8 +198,8 @@ 1.16 1.17 ;; clear screen if we are at 0,0 1.18 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0) 1.19 - ;;0x20 ;; skip clear-screen if D and E are not both zero 1.20 - ;;:clear-screen-length 1.21 + 0x20 ;; skip clear-screen if D and E are not both zero 1.22 + :clear-screen-length 1.23 1.24 ]) 1.25 clear-screen 1.26 @@ -241,8 +241,6 @@ 1.27 1.28 (concat init clear-screen)) 1.29 1.30 - 1.31 - 1.32 cleanup 1.33 ;; restore all registers 1.34 (flatten