mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
79 lines
4.3 KiB
Common Lisp
79 lines
4.3 KiB
Common Lisp
;;-*-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
|
|
)
|
|
)
|
|
|
|
;; hack
|
|
|
|
(defun draw-raw-image ((arg0 bucket-id) (arg1 art-group) (arg2 int) (arg3 int) (arg4 level) (arg5 int))
|
|
(format 0 "unimplemented draw-raw-image~%")
|
|
(none)
|
|
)
|
|
|
|
|
|
;; DECOMP BEGINS
|
|
|