;;-*-Lisp-*-
(in-package goal)

;; name: blit-displays.gc
;; name in dgo: blit-displays
;; dgos: ENGINE, GAME

(define *blit-displays-work* (new 'static 'blit-displays-work
                               :adgif-tmpl (new 'static 'dma-gif-packet
                                 :dma-vif (new 'static 'dma-packet
                                   :dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
                                   :vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
                                   )
                                 :gif (new 'static 'array uint64 2 #x1000000000008005 #xe)
                                 )
                               :sprite-tmpl (new 'static 'dma-gif-packet
                                 :dma-vif (new 'static 'dma-packet
                                   :dma (new 'static 'dma-tag :qwc #x51 :id (dma-tag-id cnt))
                                   :vif1 (new 'static 'vif-tag :imm #x51 :cmd (vif-cmd direct) :msk #x1)
                                   )
                                 :gif (new 'static 'array uint64 2 #x508b400000008010 #x53531)
                                 )
                               :sprite-slow-tmpl (new 'static 'dma-gif-packet
                                 :dma-vif (new 'static 'dma-packet
                                   :dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
                                   :vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
                                   )
                                 :gif (new 'static 'array uint64 2 #x508b400000008001 #x53531)
                                 )
                               :line-tmpl (new 'static 'dma-gif-packet
                                 :dma-vif (new 'static 'dma-packet
                                   :dma (new 'static 'dma-tag :qwc #x41 :id (dma-tag-id cnt))
                                   :vif1 (new 'static 'vif-tag :imm #x41 :cmd (vif-cmd direct) :msk #x1)
                                   )
                                 :gif (new 'static 'array uint64 2 #x2020c00000008020 #x55)
                                 )
                               :scan-tmpl (new 'static 'dma-gif-packet
                                 :dma-vif (new 'static 'dma-packet
                                   :dma (new 'static 'dma-tag :qwc #x4c :id (dma-tag-id cnt))
                                   :vif1 (new 'static 'vif-tag :imm #x4c :cmd (vif-cmd direct) :msk #x1)
                                   )
                                 :gif (new 'static 'array uint64 2 #x5020c0000000800f #x55551)
                                 )
                               :color (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80)
                               :line-color #x3f80000000000000
                               :scan-colors (new 'static 'inline-array vector4w 15
                                 (new 'static 'vector4w :y 1 :z 1)
                                 (new 'static 'vector4w :y 1 :z 1)
                                 (new 'static 'vector4w :y 1 :z 1)
                                 (new 'static 'vector4w :y 1 :z 1)
                                 (new 'static 'vector4w :x 1 :y 3 :z 2)
                                 (new 'static 'vector4w :x 1 :y 4 :z 3)
                                 (new 'static 'vector4w :x 2 :y 6 :z 5)
                                 (new 'static 'vector4w :x 3 :y 8 :z 7)
                                 (new 'static 'vector4w :x 5 :y 11 :z 10)
                                 (new 'static 'vector4w :x 6 :y 14 :z 13)
                                 (new 'static 'vector4w :x 9 :y 20 :z 17)
                                 (new 'static 'vector4w :x 13 :y 27 :z 21)
                                 (new 'static 'vector4w :x 17 :y 36 :z 24)
                                 (new 'static 'vector4w :x 22 :y 45 :z 28)
                                 (new 'static 'vector4w :x 32 :y 63 :z 32)
                                 )
                               :menu-mode #f
                               :screen-copied #f
                               :horizontal-flip-flag #f
                               )
        )

;; DECOMP BEGINS