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

;; 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 #x70000000))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr y) (+ 6160 #x70000000))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr z) (+ 6160 #x70000000))

;; failed to figure out what this is:
(set! (-> *tfrag-work* color-ptr w) (+ 6160 #x70000000))
