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

;; name: rope-prim-system-h.gc
;; name in dgo: rope-prim-system-h
;; dgos: DESRESC

;; DECOMP BEGINS

(deftype rope-joint-system (rope-system)
  ((info        rope-joint-system-info)
   (joint-mods  joint-mod-world-array)
   (proc        handle)
   )
  (:methods
    (init (_type_ rope-joint-system-info process-drawable) symbol)
    )
  )


(deftype rope-prim-system (rope-system)
  ((strip1          prim-strip)
   (strip2          prim-strip)
   (width           float)
   (alpha           float)
   (uv-repeat-dist  float)
   )
  (:methods
    (add-prim-vert (_type_ prim-strip vector rgba float float) none)
    )
  )
