mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 21:57:54 -04:00
jak2 ref
This commit is contained in:
+2
-2
@@ -400,8 +400,8 @@
|
||||
(let ((f1-2 (* 20.0 f1-0 f0-0))
|
||||
(f0-1 (* 20.0 f0-0))
|
||||
)
|
||||
(set! (-> a0-23 x) (the float (the int (- (-> a2-1 x) (* 0.5 f1-2)))))
|
||||
(set! (-> a0-23 y) (the float (the int (- (-> a2-1 y) (* 0.5 f0-1)))))
|
||||
(set! (-> a0-23 x) (the float (the int (- (-> a2-1 x) (/ f1-2 2)))))
|
||||
(set! (-> a0-23 y) (the float (the int (- (-> a2-1 y) (/ f0-1 2)))))
|
||||
(set! (-> v1-21 x) (+ (-> a0-23 x) f1-2))
|
||||
(set! (-> v1-21 y) (+ (-> a0-23 y) f0-1))
|
||||
)
|
||||
|
||||
+1
-5
@@ -1249,7 +1249,7 @@
|
||||
:code (behavior ()
|
||||
(until #f
|
||||
(if (not (logtest? (-> *kernel-context* prevent-from-run) (process-mask pause)))
|
||||
(seek! (-> self offset) 0.0 (* 0.1 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self offset) 0.0 (/ (-> self clock time-adjust-ratio) 10))
|
||||
)
|
||||
(if (>= 0.0 (-> self offset))
|
||||
(go hud-in)
|
||||
@@ -1499,7 +1499,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+13
-13
@@ -1399,7 +1399,7 @@
|
||||
(set! (-> this target-inv-scale) 0.5)
|
||||
)
|
||||
)
|
||||
(seek! (-> this offset y) (-> this target-inv-scale) (* 0.5 f30-2))
|
||||
(seek! (-> this offset y) (-> this target-inv-scale) (/ f30-2 2))
|
||||
)
|
||||
(run-pending-updates! (-> this engine) (-> *display* base-clock frame-counter))
|
||||
(when (and (-> this ctywide) (and (= (-> this ctywide status) 'active) (!= (-> this offset w) 0.0)))
|
||||
@@ -1992,23 +1992,23 @@
|
||||
(set-vector! (-> arg0 mat vector 2) (* (-> s1-0 x) f30-0) 0.0 (-> s1-0 z) 0.0)
|
||||
)
|
||||
(vector-! s2-0 (target-pos 0) (-> this minimap-corner))
|
||||
(set! (-> s2-0 x) (* 0.00000023841858 (-> s2-0 x)))
|
||||
(set! (-> s2-0 z) (* 0.00000023841858 (-> s2-0 z)))
|
||||
(set! (-> s2-0 x) (/ (-> s2-0 x) (meters 1024)))
|
||||
(set! (-> s2-0 z) (/ (-> s2-0 z) (meters 1024)))
|
||||
(vector+! (-> arg0 mat trans) s2-0 (-> this offset))
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 mat trans y) 0.0)
|
||||
(set! (-> arg0 corner 0 x) (* 0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 0 z) (* 0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 0 x) (/ (-> this offset y) 4))
|
||||
(set! (-> arg0 corner 0 z) (/ (-> this offset y) 4))
|
||||
(set! (-> arg0 corner 0 w) 1.0)
|
||||
(set! (-> arg0 corner 1 x) (* -0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 1 z) (* 0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 1 x) (/ (-> this offset y) -4))
|
||||
(set! (-> arg0 corner 1 z) (/ (-> this offset y) 4))
|
||||
(set! (-> arg0 corner 1 w) 1.0)
|
||||
(set! (-> arg0 corner 2 x) (* 0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 2 z) (* -0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 2 x) (/ (-> this offset y) 4))
|
||||
(set! (-> arg0 corner 2 z) (/ (-> this offset y) -4))
|
||||
(set! (-> arg0 corner 2 w) 1.0)
|
||||
(set! (-> arg0 corner 3 x) (* -0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 3 z) (* -0.25 (-> this offset y)))
|
||||
(set! (-> arg0 corner 3 x) (/ (-> this offset y) -4))
|
||||
(set! (-> arg0 corner 3 z) (/ (-> this offset y) -4))
|
||||
(set! (-> arg0 corner 3 w) 1.0)
|
||||
(vector-matrix*! (the-as vector (-> arg0 corner)) (the-as vector (-> arg0 corner)) (-> arg0 mat))
|
||||
(vector-matrix*! (-> arg0 corner 1) (-> arg0 corner 1) (-> arg0 mat))
|
||||
@@ -2516,8 +2516,8 @@
|
||||
(let ((f1-16 (* 20.0 (-> *video-params* relative-x-scale) f0-48))
|
||||
(f0-49 (* 20.0 f0-48))
|
||||
)
|
||||
(set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (* 0.5 f1-16)))))
|
||||
(set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (* 0.5 f0-49)))))
|
||||
(set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (/ f1-16 2)))))
|
||||
(set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (/ f0-49 2)))))
|
||||
(set! (-> arg0 corner 1 x) (+ (-> arg0 corner 0 x) f1-16))
|
||||
(set! (-> arg0 corner 1 z) (+ (-> arg0 corner 0 z) f0-49))
|
||||
)
|
||||
|
||||
+1
-1
@@ -5256,7 +5256,7 @@
|
||||
0
|
||||
0
|
||||
0
|
||||
(let* ((minutes (the int (* 0.016666668 time)))
|
||||
(let* ((minutes (the int (/ time 60)))
|
||||
(remainder-minutes (- time (* 60.0 (the float minutes))))
|
||||
(seconds (the int remainder-minutes))
|
||||
(remainder-seconds (- remainder-minutes (the float seconds)))
|
||||
|
||||
+31
-31
@@ -1167,14 +1167,14 @@
|
||||
(seek-ease
|
||||
(-> self menu-transition)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.4
|
||||
(* 0.01 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 100)
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(seek! (-> self menu-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self menu-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))
|
||||
(when (and (= (-> self menu-transition) 1.0)
|
||||
(or (and (nonzero? (-> self state-pos)) (= (-> self anim-frame) 1.0))
|
||||
(or (and (zero? (-> self state-pos)) (= (-> self anim-frame) 0.0))
|
||||
@@ -1215,12 +1215,12 @@
|
||||
(if (= (-> self ring-angle) (-> self ring-want-angle))
|
||||
(respond-to-cpad self)
|
||||
)
|
||||
(let ((f30-0 (* 0.005 (-> self clock time-adjust-ratio))))
|
||||
(let ((f30-0 (/ (-> self clock time-adjust-ratio) 200)))
|
||||
(cond
|
||||
((= (-> self menu-transition) 1.0)
|
||||
(if (and (zero? (-> self state-pos)) (= (-> *progress-state* starting-state) 'main))
|
||||
(seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self anim-frame) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(seek! (-> self anim-frame) 1.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
)
|
||||
(let ((f0-27 (if (and (zero? (-> self state-pos)) (!= (-> *progress-state* starting-state) 'title))
|
||||
0.0
|
||||
@@ -1230,14 +1230,14 @@
|
||||
)
|
||||
(when (= (-> self next) 'bigmap)
|
||||
(set! f0-27 0.4)
|
||||
(set! f30-0 (* 0.008 (-> self clock time-adjust-ratio)))
|
||||
(set! f30-0 (/ (-> self clock time-adjust-ratio) 125))
|
||||
)
|
||||
(seek! (-> self pos-transition) f0-27 f30-0)
|
||||
)
|
||||
)
|
||||
((zero? (-> self state-pos))
|
||||
(if (= (-> self current) 'bigmap)
|
||||
(set! f30-0 (* 0.05 (-> self clock time-adjust-ratio)))
|
||||
(set! f30-0 (/ (-> self clock time-adjust-ratio) 20))
|
||||
)
|
||||
(if (!= (-> *progress-state* starting-state) 'title)
|
||||
(seek! (-> self pos-transition) 0.0 f30-0)
|
||||
@@ -1288,9 +1288,9 @@
|
||||
(set! (-> self swing) (seek-ease
|
||||
(-> self swing)
|
||||
4.0
|
||||
(* 0.05 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 20)
|
||||
0.5
|
||||
(* 0.005 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 200)
|
||||
)
|
||||
)
|
||||
(set! (-> self swing) (seek-ease
|
||||
@@ -1464,9 +1464,9 @@
|
||||
(set! (-> self scanlines-alpha) (seek-ease
|
||||
(-> self scanlines-alpha)
|
||||
(- 1.0 (-> self menu-transition))
|
||||
(* 0.05 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 20)
|
||||
0.3
|
||||
(* 0.001 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 1000)
|
||||
)
|
||||
)
|
||||
(end-scan sv-152 (-> self scanlines-alpha))
|
||||
@@ -1769,16 +1769,16 @@
|
||||
)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(cond
|
||||
((= (-> self anim-frame) 0.0)
|
||||
(seek! (-> self pos-transition) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self pos-transition) 1.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(if (= (-> self pos-transition) 1.0)
|
||||
(go-virtual gone)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(seek! (-> self pos-transition) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> self pos-transition) 0.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
)
|
||||
)
|
||||
(set-ring-position self)
|
||||
@@ -1926,13 +1926,13 @@
|
||||
(arg1
|
||||
(cond
|
||||
((cpad-hold? 0 left l-analog-left)
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 0.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(if (!= (-> (the-as (pointer float) gp-0)) 0.0)
|
||||
(set! s4-0 #t)
|
||||
)
|
||||
)
|
||||
((cpad-hold? 0 right l-analog-right)
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 1.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(if (!= (-> (the-as (pointer float) gp-0)) 1.0)
|
||||
(set! s4-0 #t)
|
||||
)
|
||||
@@ -1945,13 +1945,13 @@
|
||||
(else
|
||||
(cond
|
||||
((cpad-hold? 0 left l-analog-left)
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 0.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(if (!= (-> (the-as (pointer float) gp-0)) 0.0)
|
||||
(set! s4-0 #t)
|
||||
)
|
||||
)
|
||||
((cpad-hold? 0 right l-analog-right)
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
|
||||
(seek! (-> (the-as (pointer float) gp-0)) 1.0 (/ (-> self clock time-adjust-ratio) 50))
|
||||
(if (!= (-> (the-as (pointer float) gp-0)) 1.0)
|
||||
(set! s4-0 #t)
|
||||
)
|
||||
@@ -2952,9 +2952,9 @@
|
||||
(set! (-> arg0 sliding-height) (seek-ease
|
||||
(-> arg0 sliding-height)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.3
|
||||
(* 0.001 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 1000)
|
||||
)
|
||||
)
|
||||
(let ((s4-0 #f))
|
||||
@@ -3048,9 +3048,9 @@
|
||||
(set! (-> arg0 sliding-height) (seek-ease
|
||||
(-> arg0 sliding-height)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.3
|
||||
(* 0.01 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 100)
|
||||
)
|
||||
)
|
||||
(let ((gp-0 #f))
|
||||
@@ -3133,9 +3133,9 @@
|
||||
(set! (-> arg0 sliding-height) (seek-ease
|
||||
(-> arg0 sliding-height)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.3
|
||||
(* 0.01 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 100)
|
||||
)
|
||||
)
|
||||
(let ((s5-0 #f))
|
||||
@@ -3183,17 +3183,17 @@
|
||||
(set! (-> progress sliding) (seek-ease
|
||||
(-> progress sliding)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.3
|
||||
(* 0.001 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 1000)
|
||||
)
|
||||
)
|
||||
(set! (-> progress sliding-off) (seek-ease
|
||||
(-> progress sliding-off)
|
||||
1.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
-0.3
|
||||
(* 0.001 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 1000)
|
||||
)
|
||||
)
|
||||
(when (-> *bigmap* progress-minimap)
|
||||
@@ -3263,9 +3263,9 @@
|
||||
(set! (-> arg0 sliding) (seek-ease
|
||||
(-> arg0 sliding)
|
||||
0.0
|
||||
(* 0.1 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 10)
|
||||
0.3
|
||||
(* 0.001 (-> self clock time-adjust-ratio))
|
||||
(/ (-> self clock time-adjust-ratio) 1000)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
|
||||
+1
-1
@@ -536,7 +536,7 @@
|
||||
)
|
||||
(set! sv-64 0)
|
||||
(if (logtest? (-> arg1 flags) (font-flags middle))
|
||||
(+! (-> arg1 origin x) (* 0.5 (-> arg1 width)))
|
||||
(+! (-> arg1 origin x) (/ (-> arg1 width) 2))
|
||||
)
|
||||
(set! sv-72 (-> sv-32 0))
|
||||
(set! sv-80 0)
|
||||
|
||||
Reference in New Issue
Block a user