mirror of
https://github.com/open-goal/jak-project
synced 2026-08-17 13:40:39 -04:00
jak2 ref
This commit is contained in:
+4
-10
@@ -76,9 +76,7 @@
|
||||
(* arg0
|
||||
(+ 0.33333334
|
||||
(* arg0
|
||||
(+ -0.25
|
||||
(* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (* 0.11111111 arg0)))))))))
|
||||
)
|
||||
(+ -0.25 (* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (/ arg0 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -106,9 +104,7 @@
|
||||
(* f0-5
|
||||
(+ 0.33333334
|
||||
(* f0-5
|
||||
(+ -0.25
|
||||
(* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
|
||||
)
|
||||
(+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -141,9 +137,7 @@
|
||||
(* f0-5
|
||||
(+ 0.33333334
|
||||
(* f0-5
|
||||
(+ -0.25
|
||||
(* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
|
||||
)
|
||||
(+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -285,7 +279,7 @@
|
||||
0
|
||||
0
|
||||
(let* ((f0-1 (* 0.0033333334 (the float arg1)))
|
||||
(a2-0 (the int (* 0.016666668 f0-1)))
|
||||
(a2-0 (the int (/ f0-1 60)))
|
||||
(f0-2 (- f0-1 (* 60.0 (the float a2-0))))
|
||||
(a3-0 (the int f0-2))
|
||||
(f0-3 (- f0-2 (the float a3-0)))
|
||||
|
||||
+4
-4
@@ -19,7 +19,7 @@
|
||||
(defun quaternion-axis-angle! ((arg0 quaternion) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
|
||||
"Construct a quaternion from an axis and angle. The axis should be normalized."
|
||||
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
||||
(sincos! s5-0 (* 0.5 arg4))
|
||||
(sincos! s5-0 (/ arg4 2))
|
||||
(let ((f0-2 (-> s5-0 x)))
|
||||
(set! (-> arg0 x) (* arg1 f0-2))
|
||||
(set! (-> arg0 y) (* arg2 f0-2))
|
||||
@@ -34,7 +34,7 @@
|
||||
(defun quaternion-vector-angle! ((arg0 quaternion) (arg1 vector) (arg2 float))
|
||||
"Construct a quaternion from an axis and angle. The axis should be normalized."
|
||||
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
||||
(sincos! s5-0 (* 0.5 arg2))
|
||||
(sincos! s5-0 (/ arg2 2))
|
||||
(let ((f0-2 (-> s5-0 x)))
|
||||
(set! (-> arg0 x) (* (-> arg1 x) f0-2))
|
||||
(set! (-> arg0 y) (* (-> arg1 y) f0-2))
|
||||
@@ -480,7 +480,7 @@
|
||||
(cond
|
||||
((< 0.0 f0-2)
|
||||
(let ((f0-4 (sqrtf (+ 1.0 f0-2))))
|
||||
(set! (-> arg0 w) (* 0.5 f0-4))
|
||||
(set! (-> arg0 w) (/ f0-4 2))
|
||||
(let ((f0-5 (/ 0.5 f0-4)))
|
||||
(set! (-> arg0 x) (* f0-5 (- (-> arg1 vector 1 z) (-> arg1 vector 2 y))))
|
||||
(set! (-> arg0 y) (* f0-5 (- (-> arg1 vector 2 x) (-> arg1 vector 0 z))))
|
||||
@@ -515,7 +515,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 data a2-0) (* 0.5 f0-12))
|
||||
(set! (-> arg0 data a2-0) (/ f0-12 2))
|
||||
(if (!= f0-12 0.0)
|
||||
(set! f0-12 (/ 0.5 f0-12))
|
||||
)
|
||||
|
||||
+1
-1
@@ -47,7 +47,7 @@
|
||||
f30-0
|
||||
)
|
||||
(else
|
||||
(* 0.000000001 f30-0)
|
||||
(/ f30-0 1000000000)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user