mirror of
https://github.com/open-goal/jak-project
synced 2026-07-28 23:28:09 -04:00
ManDude
56 lines
1.2 KiB
Common Lisp
56 lines
1.2 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: capture-h.gc
|
|
;; name in dgo: capture-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
(defmacro not-screen-shot? ()
|
|
"return #f if we are screen shotting"
|
|
`(or (zero? *screen-shot-work*) (= (-> *screen-shot-work* count) -1)))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(declare-file (debug))
|
|
|
|
|
|
;; GS packet to download the framebuffer.
|
|
(deftype gs-store-image-packet (structure)
|
|
((vifcode vif-tag 4)
|
|
(giftag gif-tag)
|
|
(bitbltbuf gs-bitbltbuf)
|
|
(bitbltbuf-addr gs-reg64)
|
|
(trxpos gs-trxpos)
|
|
(trxpos-addr gs-reg64)
|
|
(trxreg gs-trxreg)
|
|
(trxreg-addr gs-reg64)
|
|
(finish int64)
|
|
(finish-addr gs-reg64)
|
|
(trxdir gs-trxdir)
|
|
(trxdir-addr gs-reg64)
|
|
)
|
|
)
|
|
|
|
;; screen shot settings.
|
|
(deftype screen-shot-work (structure)
|
|
((count int16)
|
|
(size int16)
|
|
(name string)
|
|
(highres-enable symbol)
|
|
(hud-enable symbol)
|
|
)
|
|
)
|
|
|
|
|
|
(define *screen-shot-work* (new 'global 'screen-shot-work))
|
|
|
|
(set! (-> *screen-shot-work* count) -1)
|
|
|
|
(set! (-> *screen-shot-work* size) -1)
|
|
|
|
(set! (-> *screen-shot-work* highres-enable) #f)
|
|
|
|
(set! (-> *screen-shot-work* hud-enable) #f)
|
|
|
|
(define *image-name* (new 'global 'string 32 (the-as string #f)))
|