;;-*-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)))