Mercurial > vba-clojure
comparison clojure/com/aurellem/run/adv_choreo.clj @ 595:96ee9d72aeb9
saving progress.... sleepy time :)
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 01 Sep 2012 13:32:19 -0500 |
| parents | ba185915c24f |
| children | 747d47d96d2f |
comparison
equal
deleted
inserted
replaced
| 594:ea448eecb615 | 595:96ee9d72aeb9 |
|---|---|
| 334 ([script] | 334 ([script] |
| 335 (->> script | 335 (->> script |
| 336 (transfer-control main-program-base-address) | 336 (transfer-control main-program-base-address) |
| 337 (do-nothing 1800)))) | 337 (do-nothing 1800)))) |
| 338 | 338 |
| 339 (def advanced-render-dir | |
| 340 (File. user-home "proj/vba-clojure/render/advanced")) | |
| 341 | |
| 342 (defn advanced-steps [] (first (activate-program))) | |
| 343 | |
| 344 (defn advanced-step-1! [] | |
| 345 (render-files! | |
| 346 advanced-render-dir | |
| 347 (root) (advanced-steps))) | |
| 348 | |
| 349 (defn advanced-step-2! [] | |
| 350 (generate-composite-frames! | |
| 351 advanced-render-dir)) | |
| 352 | |
| 353 (defn advanced-step-3! [] (final-cut! advanced-render-dir)) | |
| 354 | |
| 355 | |
| 356 | |
| 339 | 357 |
| 340 ;; possible screen writing programs | 358 ;; possible screen writing programs |
| 341 | 359 |
| 342 ;; (program needs to stop executing at some point) | 360 ;; (program needs to stop executing at some point) |
| 343 ;; maybe have total length counter or something? | 361 ;; maybe have total length counter or something? |