mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 17:47:44 -04:00
a80b331c27
* begin work on vf support * split reg kind into reg hw kind and class, use class for ireg * try test * clang format * add some more ops and some example functions * better lvf on statics * add documentation
7 lines
273 B
Common Lisp
7 lines
273 B
Common Lisp
(define my-vector (new 'global 'vector))
|
|
(rlet ((vf1 :class vf :reset-here #t))
|
|
(.lvf vf1 (new 'static 'vector :x 1.0 :y 1.2 :z 1.5 :w 1.6))
|
|
(.svf my-vector vf1)
|
|
)
|
|
|
|
(format #t "~f~%" (+ (-> my-vector x) (-> my-vector y) (-> my-vector z) (-> my-vector w))) |