rlm@542: ;;;; "Basic Choreography" -- just show off audio/video
rlm@542: 
rlm@549: (ns com.aurellem.run.basic-choreo
rlm@541:   (:use (com.aurellem.gb saves gb-driver util constants
rlm@541:                          items vbm characters money
rlm@541:                          rlm-assembly))
rlm@541:   (:use (com.aurellem.run util music title save-corruption
rlm@541:                           bootstrap-0 bootstrap-1 image
rlm@542:                           ram-display final-cut))
rlm@541:   (:require clojure.string)
rlm@541:   (:import [com.aurellem.gb.gb_driver SaveState])
rlm@541:   (:import java.io.File))
rlm@541: 
rlm@541: ;; take over game
rlm@541: ;; [X] silence noise
rlm@542: ;; [X] preload audio/video programs
rlm@542: ;; [X] run picture program to display pinkie pie mark
rlm@542: ;; [X] play pony song 
rlm@541: 
rlm@541: (defn-memo silence-noise
rlm@542:   ([] (silence-noise (launch-main-bootstrap-program)))
rlm@541:   ([script]
rlm@541:      (->> script
rlm@542:           (write-RAM 0xFF1A [0 0 0])
rlm@542:           (relocate-main-bootstrap))))
rlm@541: 
rlm@541: (def music-program-start 0xC000)
rlm@541: (def image-program-start 0xCE00)
rlm@541: 
rlm@542: (defn-memo write-pony-music
rlm@542:   ([] (write-pony-music (silence-noise)))
rlm@541:   ([script]
rlm@541:      (let [bytes (midi-bytes
rlm@541:                   pony-csv
rlm@551:                   music-program-start
rlm@541:                   0xC400
rlm@541:                   0xC800
rlm@551:                   0xCC00)]
rlm@541:        (->> script
rlm@541:             (write-RAM (:address (:voice-1 bytes))
rlm@541:                        (:data    (:voice-1 bytes)))
rlm@541:             (write-RAM (:address (:voice-2 bytes))
rlm@541:                        (:data    (:voice-2 bytes)))
rlm@541:             (write-RAM (:address (:noise bytes))
rlm@541:                        (:data    (:noise bytes)))
rlm@541:             (write-RAM (:address (:kernel bytes))
rlm@541:                        (:data    (:kernel bytes)))))))
rlm@541: 
rlm@541: (defn-memo write-image-display-program
rlm@542:   ([] (write-image-display-program (write-pony-music)))
rlm@541:   ([script]
rlm@542:      (let [goto-music
rlm@541:            (flatten
rlm@541:             [0xC3
rlm@542:              (reverse (disect-bytes-2 music-program-start))])]
rlm@541:        (->> script
rlm@541:             (write-RAM
rlm@541:              image-program-start
rlm@541:              (concat
rlm@541:               (display-image-kernel
rlm@541:                image-program-start
rlm@541:                pinkie-pie-mark)
rlm@542:               goto-music))))))
rlm@542:               
rlm@541: (defn-memo activate-media
rlm@541:   ([] (activate-media (write-image-display-program)))
rlm@541:   ([script]
rlm@541:      (->> script
rlm@541:           (transfer-control image-program-start)
rlm@542:           (do-nothing 1800))))
rlm@541: 
rlm@542: (def basic-render-dir
rlm@546:   (File. user-home "proj/vba-clojure/render/basic3"))
rlm@542: 
rlm@542: (defn basic-steps [] (first (activate-media)))
rlm@542: 
rlm@542: (defn basic-step-1! []
rlm@542:   (render-files!
rlm@542:    basic-render-dir
rlm@542:    (root) (basic-steps)))
rlm@542: 
rlm@542: (defn basic-step-2! []
rlm@542:   (generate-composite-frames!
rlm@547:    basic-render-dir))
rlm@542: 
rlm@542: (defn basic-step-3! [] (final-cut! basic-render-dir))