This commit is contained in:
Hat Kid
2024-12-07 16:43:55 +01:00
parent a294f298c0
commit 407db66d5c
151 changed files with 473 additions and 496 deletions
+2 -2
View File
@@ -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
View File
@@ -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
View File
@@ -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
View File
@@ -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
View File
@@ -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
View File
@@ -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)