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

;; name: process-drawable.gc
;; name in dgo: process-drawable
;; dgos: ENGINE, GAME

;; temp hacks to avoid crash at startup
(defmethod add-to-loading-level skeleton-group ((obj skeleton-group))
  (let ((v1-1 (-> *level* loading-level)))
    (if v1-1
        (set-loaded-art (-> v1-1 art-group) obj)
        )
    )
  obj
  )

(defun vector<-matrix! ((arg0 vector) (arg1 matrix))
  (rlet ((Q :class vf)
         (vf0 :class vf)
         (vf2 :class vf)
         )
    (init-vf0-vector)
    (.lvf vf2 (&-> arg1 trans quad))
    (.div.vf Q vf0 vf2 :fsf #b11 :ftf #b11)
    (.wait.vf)
    (.mul.vf vf2 vf2 Q :mask #b111)
    (.nop.vf)
    (.nop.vf)
    (.mov.vf vf2 vf0 :mask #b1000)
    (.svf (&-> arg0 quad) vf2)
    arg0
    )
  )

(defun draw-joint-axes ((arg0 process-drawable))
  (format 0 "draw-joint-axes not yet implemented~%")
  (none)
  )

;; DECOMP BEGINS

;; ERROR: top level function was not converted to expressions. Cannot decompile.