;;-*-Lisp-*-
(in-package goal)

;; name: tfrag-work.gc
;; name in dgo: tfrag-work
;; dgos: GAME, ENGINE

;; definition for symbol *tfrag-work*, type tfrag-work
(define
  *tfrag-work*
  (new 'static 'tfrag-work
   :base-tmpl
   (new 'static 'dma-packet
    :dma
    (new 'static 'dma-tag :id (dma-tag-id ref))
    :vif0
    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
    )
   :level-0-tmpl
   (new 'static 'dma-packet
    :dma
    (new 'static 'dma-tag :id (dma-tag-id ref))
    :vif0
    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
    )
   :common-tmpl
   (new 'static 'dma-packet
    :dma
    (new 'static 'dma-tag :id (dma-tag-id ref))
    :vif0
    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
    )
   :level-1-tmpl
   (new 'static 'dma-packet
    :dma
    (new 'static 'dma-tag :id (dma-tag-id ref))
    :vif0
    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
    )
   :color-tmpl
   (new 'static 'dma-packet
    :dma
    (new 'static 'dma-tag :id (dma-tag-id cnt))
    :vif0
    (new 'static 'vif-tag :imm #x102 :cmd (vif-cmd stcycl))
    :vif1
    (new 'static 'vif-tag :imm #xc000 :cmd (vif-cmd unpack-v4-8))
    )
   :max-dist (new 'static 'vector :z 4095996000.0)
   )
  )


;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr x) (+ 6160 (the-as int *fake-scratchpad-data*)))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr y) (+ 6160 (the-as int *fake-scratchpad-data*)))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr z) (+ 6160 (the-as int *fake-scratchpad-data*)))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr w) (+ 6160 (the-as int *fake-scratchpad-data*)))