;;-*-Lisp-*-
(in-package goal)
(bundles "ENGINE.CGO" "GAME.CGO")
(require "engine/dma/dma-buffer.gc")
(require "engine/math/vector-h.gc")
(require "engine/gfx/tfrag/tfrag-h.gc")
(require "kernel/gkernel.gc")

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