PAL patch beach-obs

This commit is contained in:
ManDude
2022-06-18 18:15:27 +01:00
parent df045188a9
commit 9841b4c502
2 changed files with 3 additions and 2 deletions
+1 -1
View File
@@ -6,7 +6,7 @@
// if you want to filter to only some object names.
// it will make the decompiler much faster.
"allowed_objects": ["title-obs", "logo-ag", "logo-volumes-ag", "logo-black-ag", "ndi-ag", "ndi-volumes-ag", "logo-cam-ag", "ndi-cam-ag"],
"allowed_objects": ["rolling-obs"],
"banned_objects": [],
////////////////////////////
+2 -1
View File
@@ -1155,7 +1155,8 @@
(set! (-> self state-time) (-> *display* base-frame-counter))
(loop
(+! (-> self pos) (* (-> self vel) (-> *display* seconds-per-frame)))
(set! (-> self vel) (* 0.95 (-> self vel)))
;; PAL patch here
(set! (-> self vel) (* (-> self vel) (- 1.0 (* 0.05 (-> *display* time-adjust-ratio)))))
(move! (-> self wobbler))
(let ((a1-0 (new 'stack-no-clear 'vector)))
(vector-float*! a1-0 (-> self dir) (-> self pos))