jak-project/test/goalc/source_templates/with_game/test-vector-int-float-conversions.gc

(defmacro print-vf (vf)
  `(let ((temp (new 'stack 'vector)))
     (.svf temp ,vf)
     (format #t "~f ~f ~f ~f~%" (-> temp x) (-> temp y) (-> temp z) (-> temp w))
     )
  )

(defmacro print-vf-hex (vf)
  `(let ((temp (new 'stack 'vector4w)))
     (.svf temp ,vf)
     (format #t "~d ~d ~d ~d~%" (-> temp x) (-> temp y) (-> temp z) (-> temp w))
     )
  )


(defun itof-test ()
  (rlet ((vf1 :class vf)
         (vf2 :class vf))
    (.lvf vf1 (new 'static 'vector :x 1.0 :y -2.0 :z 3.0 :w 4.0))
    (.ftoi.vf vf2 vf1)
    (print-vf vf1)
    (print-vf-hex vf2)
    (.itof.vf vf2 vf2)
    (print-vf vf2)
    )
  )

(itof-test)
0