jak-project/goal_src/jak3/engine/gfx/blit-displays-h.gc
2024-05-12 09:36:50 -04:00

91 lines
2.9 KiB
Common Lisp

;;-*-Lisp-*-
(in-package goal)
;; name: blit-displays-h.gc
;; name in dgo: blit-displays-h
;; dgos: GAME
;; DECOMP BEGINS
(deftype blit-displays-work (structure)
((adgif-tmpl dma-gif-packet :inline)
(sprite-tmpl dma-gif-packet :inline)
(contrast-tmpl dma-gif-packet :inline)
(sprite-slow-tmpl dma-gif-packet :inline)
(draw-slow-time-tmpl dma-gif-packet :inline)
(line-tmpl dma-gif-packet :inline)
(scan-tmpl dma-gif-packet :inline)
(color vector4w :inline)
(line-color uint64)
(scan-colors vector4w 15 :inline)
(zoom-blur-pos vector :inline)
(zoom-blur-count int32)
(zoom-blur-texels int32)
(zoom-blur-alpha-target float)
(zoom-blur-alpha-current float)
(zoom-blur-2d basic)
(menu-mode symbol)
(screen-copied symbol)
(vu1-enable-user-menu vu1-renderer-mask)
(texture-enable-user-menu uint32)
(count-down uint32)
(horizontal-flip-flag symbol)
(scan-alpha float)
(scanline uint32)
(progress-interp float)
(progress-interp-dest float)
(progress-interp-speed float)
(slow-time float)
)
(:methods
(blit-displays-work-method-9 () none)
(blit-displays-work-method-10 () none)
(blit-displays-work-method-11 () none)
(blit-displays-work-method-12 () none)
(blit-displays-work-method-13 () none)
(blit-displays-work-method-14 () none)
(blit-displays-work-method-15 () none)
(blit-displays-work-method-16 () none)
(blit-displays-work-method-17 (_type_ vector int float symbol) none)
(blit-displays-work-method-18 () none)
(blit-displays-work-method-19 (_type_) none)
(blit-displays-work-method-20 (_type_) none)
(get-menu-mode (_type_) symbol)
(get-screen-copied (_type_) symbol)
(get-horizontal-flip-flag (_type_) symbol)
(set-menu-mode (_type_ symbol) symbol)
(set-screen-copied (_type_ symbol) symbol)
(set-horizontal-flip-flag (_type_ symbol) symbol)
)
)
(defmethod get-menu-mode ((this blit-displays-work))
(-> this menu-mode)
)
(defmethod get-screen-copied ((this blit-displays-work))
(-> this screen-copied)
)
(defmethod get-horizontal-flip-flag ((this blit-displays-work))
(-> this horizontal-flip-flag)
)
(defmethod set-menu-mode ((this blit-displays-work) (arg0 symbol))
(set! (-> this menu-mode) arg0)
arg0
)
(defmethod set-screen-copied ((this blit-displays-work) (arg0 symbol))
(set! (-> this screen-copied) arg0)
arg0
)
(defmethod set-horizontal-flip-flag ((this blit-displays-work) (arg0 symbol))
(set! (-> this horizontal-flip-flag) arg0)
arg0
)
(define-extern *blit-displays-work* blit-displays-work)