mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
93afb02cf4
This includes all the collision stuff needed to spawn `target`, decompiles the sparticle code and adds some of the PC hacks needed for merc to run (it doesn't work quite right and looks bad, likely due to a combination of code copied from Jak 2 and the time of day hacks). There are a bunch of temporary hacks (see commits) in place to prevent the game from crashing quite as much, but it is still extremely prone to doing so due to lots of missing functions/potentially bad decomp. --------- Co-authored-by: water <awaterford111445@gmail.com>
678 lines
25 KiB
Common Lisp
678 lines
25 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: manipulator.gc
|
|
;; name in dgo: manipulator
|
|
;; dgos: GAME
|
|
|
|
;; +++manipulator-action
|
|
(defenum manipulator-action
|
|
:type uint32
|
|
(ma0 0)
|
|
(ma1 1)
|
|
(ma2 2)
|
|
(ma3 3)
|
|
(ma4 4)
|
|
(ma5 5)
|
|
(ma6 6)
|
|
(ma7 7)
|
|
)
|
|
;; ---manipulator-action
|
|
|
|
|
|
;; +++manipulator-mode
|
|
(defenum manipulator-mode
|
|
:type uint32
|
|
(mm0 0)
|
|
(mm1 1)
|
|
)
|
|
;; ---manipulator-mode
|
|
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
(deftype manipulator (structure)
|
|
((action manipulator-action)
|
|
(mode manipulator-mode)
|
|
(dragging? symbol)
|
|
(position vector :inline)
|
|
(speed vector :inline)
|
|
(drag-ref-position vector :inline)
|
|
(mouse-ref-position vector :inline)
|
|
(mat matrix :inline)
|
|
(rotate-ref int32)
|
|
(angles euler-angles :inline)
|
|
)
|
|
(:methods
|
|
(set-mode (_type_ manipulator-mode) none)
|
|
(manipulator-method-10 (_type_) none)
|
|
(manipulator-method-11 (_type_) none)
|
|
(manipulator-method-12 (_type_ vector) none)
|
|
(manipulator-method-13 (_type_ vector vector) none)
|
|
(manipulator-method-14 (_type_) none)
|
|
)
|
|
)
|
|
|
|
|
|
;; WARN: Return type mismatch symbol vs none.
|
|
(defun draw-axis ((arg0 vector) (arg1 vector) (arg2 float) (arg3 float) (arg4 rgba))
|
|
(local-vars
|
|
(sv-160 int)
|
|
(sv-176 (function symbol bucket-id vector vector vector rgba symbol))
|
|
(sv-192 symbol)
|
|
(sv-208 int)
|
|
(sv-224 vector)
|
|
(sv-240 vector)
|
|
(sv-256 vector)
|
|
(sv-272 vector)
|
|
(sv-288 vector)
|
|
)
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf7 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(let ((s1-0 (new 'stack-no-clear 'vector)))
|
|
(cond
|
|
((< (fabs (vector-dot arg1 *x-vector*)) 0.5)
|
|
(vector-cross! s1-0 *x-vector* arg1)
|
|
)
|
|
((< (fabs (vector-dot arg1 *y-vector*)) 0.5)
|
|
(vector-cross! s1-0 *y-vector* arg1)
|
|
)
|
|
(else
|
|
(vector-cross! s1-0 *z-vector* arg1)
|
|
)
|
|
)
|
|
(vector-cross! s1-0 s1-0 arg1)
|
|
(vector-normalize! s1-0 1.0)
|
|
(let ((s0-0 (new 'stack-no-clear 'vector)))
|
|
(let ((v1-10 arg0))
|
|
(let ((a0-8 arg1))
|
|
(let ((a1-10 arg2))
|
|
(.mov vf7 a1-10)
|
|
)
|
|
(.lvf vf5 (&-> a0-8 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-10 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> s0-0 quad) vf6)
|
|
(set! sv-160 0)
|
|
(while (< sv-160 8)
|
|
(set! sv-176 add-debug-flat-triangle)
|
|
(set! sv-192 #t)
|
|
(set! sv-208 584)
|
|
(set! sv-224 (new 'stack-no-clear 'vector))
|
|
(let ((v1-16 s0-0))
|
|
(let ((a0-9 arg1))
|
|
(let ((a1-11 arg3))
|
|
(.mov vf7 a1-11)
|
|
)
|
|
(.lvf vf5 (&-> a0-9 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-16 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> sv-224 quad) vf6)
|
|
(set! sv-256 (new 'stack-no-clear 'vector))
|
|
(set! sv-240 s0-0)
|
|
(let* ((a2-3
|
|
(quaternion-vector-angle! (new 'stack-no-clear 'quaternion) arg1 (* 182.04445 (the float (* 45 sv-160))))
|
|
)
|
|
(v1-22 (vector-orient-by-quat! (new 'stack-no-clear 'vector) s1-0 a2-3))
|
|
)
|
|
(let ((a0-13 (* 0.25 arg3)))
|
|
(.mov vf7 a0-13)
|
|
)
|
|
(.lvf vf5 (&-> v1-22 quad))
|
|
)
|
|
(.lvf vf4 (&-> sv-240 quad))
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> sv-256 quad) vf6)
|
|
(set! sv-288 (new 'stack-no-clear 'vector))
|
|
(set! sv-272 s0-0)
|
|
(let* ((a2-7 (quaternion-vector-angle!
|
|
(new 'stack-no-clear 'quaternion)
|
|
arg1
|
|
(* 182.04445 (the float (* 45 (+ sv-160 1))))
|
|
)
|
|
)
|
|
(v1-29 (vector-orient-by-quat! (new 'stack-no-clear 'vector) s1-0 a2-7))
|
|
)
|
|
(let ((a0-17 (* 0.25 arg3)))
|
|
(.mov vf7 a0-17)
|
|
)
|
|
(.lvf vf5 (&-> v1-29 quad))
|
|
)
|
|
(.lvf vf4 (&-> sv-272 quad))
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> sv-288 quad) vf6)
|
|
(let ((t1-0 arg4))
|
|
(sv-176 sv-192 (the-as bucket-id sv-208) sv-224 sv-256 sv-288 t1-0)
|
|
)
|
|
(set! sv-160 (+ sv-160 1))
|
|
)
|
|
)
|
|
)
|
|
(add-debug-vector #t (bucket-id debug-no-zbuf2) arg0 arg1 arg2 arg4)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod set-mode ((this manipulator) (arg0 manipulator-mode))
|
|
(set! (-> this mode) arg0)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; ERROR: function was not converted to expressions. Cannot decompile.
|
|
|
|
(defmethod manipulator-method-11 ((this manipulator))
|
|
(local-vars (sv-240 rgba) (sv-256 vector) (sv-272 vector))
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf7 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(format *stdcon* "~M ~M ~M~%" (-> this position x) (-> this position y) (-> this position z))
|
|
(let ((s5-0 (-> this position)))
|
|
0.0
|
|
(let* ((v0-1
|
|
(vector-normalize! (vector-! (new 'stack-no-clear 'vector) (-> *math-camera* trans) (-> this position)) 1.0)
|
|
)
|
|
(s4-0 (< (fabs (vector-dot v0-1 (the-as vector (-> this mat)))) 0.9))
|
|
(s3-0 (< (fabs (vector-dot v0-1 (-> this mat uvec))) 0.9))
|
|
(s2-0 (< (fabs (vector-dot v0-1 (-> this mat fvec))) 0.9))
|
|
(f30-1 (* 0.15 (vector-vector-distance (-> *math-camera* trans) s5-0)))
|
|
)
|
|
(if s4-0
|
|
(draw-axis
|
|
s5-0
|
|
(the-as vector (-> this mat))
|
|
f30-1
|
|
(* 0.25 f30-1)
|
|
(if (= (-> this action) (manipulator-action ma1))
|
|
*color-yellow*
|
|
*color-red*
|
|
)
|
|
)
|
|
)
|
|
(if s3-0
|
|
(draw-axis s5-0 (-> this mat uvec) f30-1 (* 0.25 f30-1) (if (= (-> this action) (manipulator-action ma2))
|
|
*color-yellow*
|
|
*color-green*
|
|
)
|
|
)
|
|
)
|
|
(if s2-0
|
|
(draw-axis s5-0 (-> this mat fvec) f30-1 (* 0.25 f30-1) (if (= (-> this action) (manipulator-action ma3))
|
|
*color-yellow*
|
|
*color-blue*
|
|
)
|
|
)
|
|
)
|
|
(let ((s1-0 (new 'stack-no-clear 'vector))
|
|
(s0-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((f28-0 0.1))
|
|
(if (= (-> this action) (manipulator-action ma7))
|
|
(set! sv-240 *color-yellow*)
|
|
(set! sv-240 *color-light-blue*)
|
|
)
|
|
(let ((a1-7 s1-0))
|
|
(let ((v1-26 s5-0))
|
|
(let ((a0-13 (vector+!
|
|
(new 'stack-no-clear 'vector)
|
|
(the-as vector (-> *math-camera* inv-camera-rot))
|
|
(-> *math-camera* inv-camera-rot uvec)
|
|
)
|
|
)
|
|
)
|
|
(let ((a2-6 (* f30-1 f28-0)))
|
|
(.mov vf7 a2-6)
|
|
)
|
|
(.lvf vf5 (&-> a0-13 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-26 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-7 quad) vf6)
|
|
)
|
|
(let ((a0-14 s0-0))
|
|
(let ((v1-27 s1-0))
|
|
(let ((a1-9 (-> *math-camera* inv-camera-rot uvec)))
|
|
(let ((a2-8 (* -2.0 f30-1 f28-0)))
|
|
(.mov vf7 a2-8)
|
|
)
|
|
(.lvf vf5 (&-> a1-9 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-27 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-14 quad) vf6)
|
|
)
|
|
(add-debug-line #t (bucket-id debug-no-zbuf1) s1-0 s0-0 sv-240 #f (the-as rgba -1))
|
|
(set! (-> s1-0 quad) (-> s0-0 quad))
|
|
(let ((a0-18 s0-0))
|
|
(let ((v1-29 s0-0))
|
|
(let ((a1-12 (-> *math-camera* inv-camera-rot)))
|
|
(let ((a2-11 (* -2.0 f30-1 f28-0)))
|
|
(.mov vf7 a2-11)
|
|
)
|
|
(.lvf vf5 (&-> a1-12 rvec quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-29 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-18 quad) vf6)
|
|
)
|
|
(add-debug-line #t (bucket-id debug-no-zbuf1) s1-0 s0-0 sv-240 #f (the-as rgba -1))
|
|
(set! (-> s1-0 quad) (-> s0-0 quad))
|
|
(let ((a0-22 s0-0))
|
|
(let ((v1-31 s0-0))
|
|
(let ((a1-15 (-> *math-camera* inv-camera-rot uvec)))
|
|
(let ((a2-14 (* 2.0 f30-1 f28-0)))
|
|
(.mov vf7 a2-14)
|
|
)
|
|
(.lvf vf5 (&-> a1-15 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-31 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-22 quad) vf6)
|
|
)
|
|
(add-debug-line #t (bucket-id debug-no-zbuf1) s1-0 s0-0 sv-240 #f (the-as rgba -1))
|
|
(set! (-> s1-0 quad) (-> s0-0 quad))
|
|
(let ((a0-26 s0-0))
|
|
(let ((v1-33 s0-0))
|
|
(let ((a1-18 (-> *math-camera* inv-camera-rot)))
|
|
(let ((a2-17 (* 2.0 f30-1 f28-0)))
|
|
(.mov vf7 a2-17)
|
|
)
|
|
(.lvf vf5 (&-> a1-18 rvec quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-33 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-26 quad) vf6)
|
|
)
|
|
)
|
|
(let ((t9-9 add-debug-line)
|
|
(a0-27 #t)
|
|
(a1-19 577)
|
|
(t1-3 #f)
|
|
(t2-3 -1)
|
|
)
|
|
(t9-9 a0-27 (the-as bucket-id a1-19) s1-0 s0-0 sv-240 t1-3 (the-as rgba t2-3))
|
|
)
|
|
)
|
|
(let ((s1-1 (new 'stack-no-clear 'vector)))
|
|
(when (and s3-0 s2-0)
|
|
(let ((a1-20 s1-1))
|
|
(let ((v1-36 s5-0))
|
|
(let ((a0-29 (vector+! (new 'stack-no-clear 'vector) (-> this mat fvec) (-> this mat uvec))))
|
|
(let ((a2-20 f30-1))
|
|
(.mov vf7 a2-20)
|
|
)
|
|
(.lvf vf5 (&-> a0-29 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-36 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-20 quad) vf6)
|
|
)
|
|
(let ((s0-1 draw-axis))
|
|
(set! sv-256 s1-1)
|
|
(let ((a1-22 (vector-negate! (new 'stack-no-clear 'vector) (-> this mat uvec)))
|
|
(a2-21 (* 0.15 f30-1))
|
|
(a3-11 (* 0.15 f30-1))
|
|
(t0-11 (if (= (-> this action) (manipulator-action ma6))
|
|
*color-yellow*
|
|
*color-green*
|
|
)
|
|
)
|
|
)
|
|
(s0-1 sv-256 a1-22 a2-21 a3-11 t0-11)
|
|
)
|
|
)
|
|
(let ((s0-2 draw-axis))
|
|
(set! sv-272 s1-1)
|
|
(let ((a1-24 (vector-negate! (new 'stack-no-clear 'vector) (-> this mat fvec)))
|
|
(a2-22 (* 0.15 f30-1))
|
|
(a3-12 (* 0.15 f30-1))
|
|
(t0-12 (if (= (-> this action) (manipulator-action ma6))
|
|
*color-yellow*
|
|
*color-blue*
|
|
)
|
|
)
|
|
)
|
|
(s0-2 sv-272 a1-24 a2-22 a3-12 t0-12)
|
|
)
|
|
)
|
|
)
|
|
(set! s2-0 (and s4-0 s2-0))
|
|
(when s2-0
|
|
(let ((a1-25 s1-1))
|
|
(let ((v1-44 s5-0))
|
|
(let ((a0-37 (vector+! (new 'stack-no-clear 'vector) (the-as vector (-> this mat)) (-> this mat fvec))))
|
|
(let ((a2-24 f30-1))
|
|
(.mov vf7 a2-24)
|
|
)
|
|
(.lvf vf5 (&-> a0-37 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-44 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-25 quad) vf6)
|
|
)
|
|
(draw-axis
|
|
s1-1
|
|
(vector-negate! (new 'stack-no-clear 'vector) (the-as vector (-> this mat)))
|
|
(* 0.15 f30-1)
|
|
(* 0.15 f30-1)
|
|
(if (= (-> this action) (manipulator-action ma5))
|
|
*color-yellow*
|
|
*color-red*
|
|
)
|
|
)
|
|
(draw-axis
|
|
s1-1
|
|
(vector-negate! (new 'stack-no-clear 'vector) (-> this mat fvec))
|
|
(* 0.15 f30-1)
|
|
(* 0.15 f30-1)
|
|
(if (= (-> this action) (manipulator-action ma5))
|
|
*color-yellow*
|
|
*color-blue*
|
|
)
|
|
)
|
|
)
|
|
(set! s3-0 (and s4-0 s3-0))
|
|
(when s3-0
|
|
(let ((a0-44 s1-1))
|
|
(let ((v1-52 (vector+! (new 'stack-no-clear 'vector) (the-as vector (-> this mat)) (-> this mat uvec))))
|
|
(let ((a1-31 f30-1))
|
|
(.mov vf7 a1-31)
|
|
)
|
|
(.lvf vf5 (&-> v1-52 quad))
|
|
)
|
|
(.lvf vf4 (&-> s5-0 quad))
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-44 quad) vf6)
|
|
)
|
|
(draw-axis
|
|
s1-1
|
|
(vector-negate! (new 'stack-no-clear 'vector) (the-as vector (-> this mat)))
|
|
(* 0.15 f30-1)
|
|
(* 0.15 f30-1)
|
|
(if (= (-> this action) (manipulator-action ma4))
|
|
*color-yellow*
|
|
*color-red*
|
|
)
|
|
)
|
|
(draw-axis
|
|
s1-1
|
|
(vector-negate! (new 'stack-no-clear 'vector) (-> this mat uvec))
|
|
(* 0.15 f30-1)
|
|
(* 0.15 f30-1)
|
|
(if (= (-> this action) (manipulator-action ma4))
|
|
*color-yellow*
|
|
*color-green*
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod manipulator-method-12 ((this manipulator) (arg0 vector))
|
|
(set! (-> this rotate-ref) (the int (-> *mouse* posx)))
|
|
(set! (-> this mouse-ref-position quad) (-> arg0 quad))
|
|
(set! (-> this drag-ref-position quad) (-> this position quad))
|
|
(set! (-> this dragging?) #t)
|
|
(set! (-> this speed quad) (the-as uint128 0))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod manipulator-method-13 ((this manipulator) (arg0 vector) (arg1 vector))
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf7 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(cond
|
|
((= (-> this mode) (manipulator-mode mm0))
|
|
(set! (-> this speed quad) (-> this position quad))
|
|
(let ((s5-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))
|
|
(s4-1 (vector-! (new 'stack-no-clear 'vector) (-> this mouse-ref-position) arg0))
|
|
)
|
|
0.0
|
|
0.0
|
|
(let ((s2-0 (new 'stack-no-clear 'vector))
|
|
(s1-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(cond
|
|
((or (= (-> this action) (manipulator-action ma1))
|
|
(= (-> this action) (manipulator-action ma2))
|
|
(= (-> this action) (manipulator-action ma3))
|
|
)
|
|
(cond
|
|
((= (-> this action) (manipulator-action ma1))
|
|
(cond
|
|
((< (fabs (vector-dot s5-1 (-> this mat uvec))) (fabs (vector-dot s5-1 (-> this mat fvec))))
|
|
(set! (-> s2-0 quad) (-> this mat fvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat uvec quad))
|
|
)
|
|
(else
|
|
(set! (-> s2-0 quad) (-> this mat uvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat fvec quad))
|
|
)
|
|
)
|
|
)
|
|
((= (-> this action) (manipulator-action ma2))
|
|
(cond
|
|
((< (fabs (vector-dot s5-1 (the-as vector (-> this mat)))) (fabs (vector-dot s5-1 (-> this mat fvec))))
|
|
(set! (-> s2-0 quad) (-> this mat fvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat rvec quad))
|
|
)
|
|
(else
|
|
(set! (-> s2-0 quad) (-> this mat rvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat fvec quad))
|
|
)
|
|
)
|
|
)
|
|
((= (-> this action) (manipulator-action ma3))
|
|
(cond
|
|
((< (fabs (vector-dot s5-1 (-> this mat uvec))) (fabs (vector-dot s5-1 (the-as vector (-> this mat)))))
|
|
(set! (-> s2-0 quad) (-> this mat rvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat uvec quad))
|
|
)
|
|
(else
|
|
(set! (-> s2-0 quad) (-> this mat uvec quad))
|
|
(set! (-> s1-0 quad) (-> this mat rvec quad))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((f30-0 (intersect-ray-plane arg0 s5-1 (-> this position) s2-0))
|
|
(f0-11 (intersect-ray-plane arg0 s4-1 (-> this position) s2-0))
|
|
)
|
|
(let ((a1-3 s5-1))
|
|
(let ((v1-41 arg0))
|
|
(let ((a0-43 s5-1))
|
|
(let ((a2-3 f30-0))
|
|
(.mov vf7 a2-3)
|
|
)
|
|
(.lvf vf5 (&-> a0-43 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-41 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-3 quad) vf6)
|
|
)
|
|
(let ((a0-44 s4-1))
|
|
(let ((v1-42 s4-1))
|
|
(let ((a1-4 f0-11))
|
|
(.mov vf7 a1-4)
|
|
)
|
|
(.lvf vf5 (&-> v1-42 quad))
|
|
)
|
|
(.lvf vf4 (&-> arg0 quad))
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a0-44 quad) vf6)
|
|
)
|
|
)
|
|
(vector-flatten! s5-1 (vector-! (new 'stack-no-clear 'vector) s5-1 (-> this position)) s1-0)
|
|
(vector-flatten! s4-1 (vector-! (new 'stack-no-clear 'vector) s4-1 (-> this position)) s1-0)
|
|
(let ((v1-46 (vector-! (new 'stack-no-clear 'vector) s5-1 s4-1)))
|
|
(vector+! (-> this position) (-> this drag-ref-position) v1-46)
|
|
(format *stdcon* "delta ~M ~M ~M~%" (-> v1-46 x) (-> v1-46 y) (-> v1-46 z))
|
|
)
|
|
)
|
|
((or (= (-> this action) (manipulator-action ma4))
|
|
(= (-> this action) (manipulator-action ma5))
|
|
(= (-> this action) (manipulator-action ma6))
|
|
(= (-> this action) (manipulator-action ma7))
|
|
)
|
|
(cond
|
|
((= (-> this action) (manipulator-action ma4))
|
|
(set! (-> s2-0 quad) (-> *z-vector* quad))
|
|
)
|
|
((= (-> this action) (manipulator-action ma5))
|
|
(set! (-> s2-0 quad) (-> *y-vector* quad))
|
|
)
|
|
((= (-> this action) (manipulator-action ma6))
|
|
(set! (-> s2-0 quad) (-> *x-vector* quad))
|
|
)
|
|
((= (-> this action) (manipulator-action ma7))
|
|
(set! (-> s2-0 quad) (-> *math-camera* inv-camera-rot fvec quad))
|
|
)
|
|
)
|
|
(vector-normalize! s2-0 1.0)
|
|
(let ((f30-1 (intersect-ray-plane arg0 s5-1 (-> this position) s2-0))
|
|
(f0-15 (intersect-ray-plane arg0 s4-1 (-> this position) s2-0))
|
|
)
|
|
(let ((a1-14 s5-1))
|
|
(let ((v1-69 arg0))
|
|
(let ((a0-69 s5-1))
|
|
(let ((a2-13 f30-1))
|
|
(.mov vf7 a2-13)
|
|
)
|
|
(.lvf vf5 (&-> a0-69 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-69 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> a1-14 quad) vf6)
|
|
)
|
|
(let ((v1-70 s4-1))
|
|
(let ((a0-70 arg0))
|
|
(let ((a1-15 s4-1))
|
|
(let ((a2-14 f0-15))
|
|
(.mov vf7 a2-14)
|
|
)
|
|
(.lvf vf5 (&-> a1-15 quad))
|
|
)
|
|
(.lvf vf4 (&-> a0-70 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> v1-70 quad) vf6)
|
|
)
|
|
)
|
|
(vector+! (-> this position) (-> this drag-ref-position) (vector-! (new 'stack-no-clear 'vector) s5-1 s4-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(vector-! (-> this speed) (-> this position) (-> this speed))
|
|
)
|
|
((= (-> this mode) (manipulator-mode mm1))
|
|
(let ((s4-2 (- (-> this rotate-ref) (the int (-> *mouse* posx))))
|
|
(s5-2 (new 'stack-no-clear 'matrix))
|
|
)
|
|
(new 'stack 'euler-angles)
|
|
(matrix-identity! s5-2)
|
|
(cond
|
|
((= (-> this action) (manipulator-action ma1))
|
|
(matrix-axis-angle! s5-2 (the-as vector (-> this mat)) (* 182.04445 (the float s4-2)))
|
|
)
|
|
((= (-> this action) (manipulator-action ma2))
|
|
(matrix-axis-angle! s5-2 (-> this mat uvec) (* 182.04445 (the float s4-2)))
|
|
)
|
|
((= (-> this action) (manipulator-action ma3))
|
|
(matrix-axis-angle! s5-2 (-> this mat fvec) (* 182.04445 (the float s4-2)))
|
|
)
|
|
)
|
|
(matrix*! (-> this mat) (-> this mat) s5-2)
|
|
)
|
|
(vector-normalize! (the-as vector (-> this mat)) 1.0)
|
|
(vector-normalize! (-> this mat uvec) 1.0)
|
|
(vector-normalize! (-> this mat fvec) 1.0)
|
|
(matrix->eul (-> this angles) (-> this mat) 21)
|
|
(format *stdcon* "X = ~R~%Y = ~R~%Z = ~R~%" (-> this angles x) (-> this angles y) (-> this angles z))
|
|
(set! (-> this rotate-ref) (the int (-> *mouse* posx)))
|
|
)
|
|
(else
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod manipulator-method-14 ((this manipulator))
|
|
(set! (-> this speed quad) (the-as uint128 0))
|
|
(set! (-> this dragging?) #f)
|
|
0
|
|
(none)
|
|
)
|