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

;; name: prim-beam-h.gc
;; name in dgo: prim-beam-h
;; dgos: GAME

(declare-type prim-beam process)
(declare-type prim-beam-tracker prim-beam)
(declare-type prim-beam-params structure)
(declare-type prim-beam-tracker-params prim-beam-params)

(define-extern prim-beam-tracker-init-by-other (function prim-beam-tracker-params object :behavior prim-beam-tracker))
(define-extern spawn-prim-beam-tracker (function prim-beam-tracker-params symbol process handle))


;; DECOMP BEGINS

(deftype prim-beam-settings (structure)
  ((width      float)
   (color      rgba)
   (alpha      float)
   (tex-id     uint32)
   (num-tiles  float)
   )
  )


(deftype prim-beam-params (structure)
  ((appearance  prim-beam-settings)
   )
  )


(deftype prim-beam-tracker-params (prim-beam-params)
  ((track-obj1    handle)
   (track-obj2    handle)
   (track-joint1  int32)
   (track-joint2  int32)
   (pos0          vector)
   (pos1          vector)
   (duration      time-frame)
   )
  )