mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 07:37:45 -04:00
26c3fb65e9
* [compiler] allow infinite args for `logior` * make some dma macros and use them on `display` * [goos] add `string->symbol` * make a sketchy macro * fix tests * `with-dma-bucket` and `dma-buffer-add-vector4w-2` * cleanup `debug` * cleanup `menu` * go thru `texture` pt 1 * finish `texture` * `sprite` pt 1 * `sprite` pt 2 * `generic` * `gs` and `main`
50 lines
1.4 KiB
Common Lisp
50 lines
1.4 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: generic-vu1-h.gc
|
|
;; name in dgo: generic-vu1-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
|
|
(deftype pris-mtx (structure)
|
|
((data float 32 :offset 0)
|
|
(vector vector 8 :inline :offset 0)
|
|
(t-mtx matrix :inline :offset 0)
|
|
(n-mtx matrix3 :inline :offset 64)
|
|
(scale vector :inline :offset 112)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x80
|
|
:flag-assert #x900000080
|
|
)
|
|
|
|
(deftype generic-pris-mtx-save (structure)
|
|
((loc-mtx pris-mtx :inline :offset-assert 0)
|
|
(par-mtx pris-mtx :inline :offset-assert 128)
|
|
(dif-mtx pris-mtx :inline :offset-assert 256)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x180
|
|
:flag-assert #x900000180
|
|
)
|
|
|
|
(deftype generic-constants (structure)
|
|
((fog vector :inline :offset-assert 0)
|
|
(adgif gs-gif-tag :inline :offset-assert 16) ;; was qword
|
|
(giftag gs-gif-tag :inline :offset-assert 32) ;; was qword
|
|
(hvdf-offset vector :inline :offset-assert 48)
|
|
(hmge-scale vector :inline :offset-assert 64)
|
|
(invh-scale vector :inline :offset-assert 80)
|
|
(guard vector :inline :offset-assert 96)
|
|
(adnop qword :inline :offset-assert 112)
|
|
(flush qword :inline :offset-assert 128)
|
|
(stores qword :inline :offset-assert 144)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #xa0
|
|
:flag-assert #x9000000a0
|
|
)
|
|
|
|
(defun-extern generic-init-buf dma-buffer int gs-zbuf none)
|
|
|