jak2: some high fps fixes (#3177)

This commit is contained in:
Hat Kid
2023-11-08 23:34:58 +01:00
committed by GitHub
parent 4e3d35e97c
commit a80b4f1b97
5 changed files with 10 additions and 4 deletions
@@ -311,7 +311,8 @@
)
)
(when (< v1-1 32)
(let* ((a3-1 (the-as int (-> pp clock integral-frame-counter)))
;; og:preserve-this high fps fix
(let* ((a3-1 (the int (* DISPLAY_FPS_RATIO (-> pp clock integral-frame-counter))))
(a2-3 (-> a1-1 time-factor))
(t0-2 (+ (ash 1 a2-3) -1))
)
+2
View File
@@ -10,6 +10,8 @@
;(defconstant DMA_BUFFER_DEBUG_SIZE (* 8 1024 1024)) ;; 8M
(defconstant DMA_BUFFER_DEBUG_SIZE (* 12 1024 1024)) ;; expand to 12M because we can
(defconstant DISPLAY_FPS_RATIO (/ (-> *display* time-factor) 5.0))
;; DECOMP BEGINS
(defun get-current-time ()
+2 -1
View File
@@ -121,7 +121,8 @@
)
)
(when (not (paused?))
(let ((v1-10 8))
;; og:preserve-this high fps fix
(let ((v1-10 (* DISPLAY_FPS_RATIO 8)))
(if (and (< (-> this values 1 target) 270) (< 270 (+ (-> this values 1 target) v1-10)))
(set! (-> this values 1 target) 270)
)
+2 -1
View File
@@ -2429,7 +2429,8 @@
(if (or (logtest? (-> arg1 class flags) (minimap-flag frustum))
(logtest? (-> arg1 class flags) (minimap-flag racer))
(and (logtest? (-> arg1 class flags) (minimap-flag flash))
(< (the-as int (logand (-> *display* base-clock integral-frame-counter) 15)) 8)
;; og:preserve-this high fps fix
(< (the-as int (logand (the int (* DISPLAY_FPS_RATIO (-> *display* base-clock integral-frame-counter))) 15)) 8)
)
)
(set! s2-0 #t)
+2 -1
View File
@@ -796,7 +796,8 @@
(ja :group! ginsu-idle-ja :num! min)
)
(vector-seek! (-> self root scale) (new 'static 'vector :x 1.0 :y 1.0 :z 1.0) 0.02)
(+! (-> self path-pos) (/ 2048.0 (total-distance (-> self ambush-path))))
;; og:preserve-this high fps fix
(+! (-> self path-pos) (/ (* DISPLAY_FPS_RATIO 2048.0) (total-distance (-> self ambush-path))))
(let ((f30-1 (-> self path-pos)))
(when (>= f30-1 1.0)
(set! (-> self path-pos) 1.0)