;;-*-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 () none)
    (blit-displays-work-method-18 () none)
    (blit-displays-work-method-19 () none)
    (blit-displays-work-method-20 () 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)