|
500 | 500 | (s5-0 (new-stack-matrix0))
|
501 | 501 | )
|
502 | 502 | (when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
503 |
| - (let ((f30-0 (analog-input |
| 503 | + ;; og:preserve-this |
| 504 | + (let ((f30-0 (analog-input-horizontal-first |
504 | 505 | (the-as int (+ (-> *cpad-list* cpads 0 rightx) -256 (-> *cpad-list* cpads 0 leftx)))
|
505 | 506 | 0.0
|
506 | 507 | 48.0
|
507 | 508 | 110.0
|
508 | 509 | -1.0
|
509 | 510 | )
|
510 | 511 | )
|
511 |
| - (f0-0 (analog-input |
| 512 | + (f0-0 (analog-input-vertical-first |
512 | 513 | (the-as int (+ (-> *cpad-list* cpads 0 righty) -256 (-> *cpad-list* cpads 0 lefty)))
|
513 | 514 | 0.0
|
514 | 515 | 48.0
|
|
517 | 518 | )
|
518 | 519 | )
|
519 | 520 | )
|
520 |
| - (set! (-> s4-0 y) (- (-> s4-0 y) (* (- f30-0) (-> *CAM_EYE-bank* rot-speed)))) |
521 |
| - (set! (-> s4-0 x) (- (-> s4-0 x) (* (- f0-0) (-> *CAM_EYE-bank* rot-speed)))) |
| 521 | + ;; og:preserve-this changed for high fps |
| 522 | + (set! (-> s4-0 y) (- (-> s4-0 y) (* (- f30-0) (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed))))) |
| 523 | + (set! (-> s4-0 x) (- (-> s4-0 x) (* (- f0-0) (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed))))) |
522 | 524 | )
|
523 | 525 | )
|
| 526 | + ;; og:preserve-this changed for high fps |
524 | 527 | (cond
|
525 |
| - ((< (-> *CAM_EYE-bank* rot-speed) (-> s4-0 x)) |
526 |
| - (set! (-> s4-0 x) (-> *CAM_EYE-bank* rot-speed)) |
| 528 | + ((< (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)) (-> s4-0 x)) |
| 529 | + (set! (-> s4-0 x) (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed))) |
527 | 530 | )
|
528 |
| - ((< (-> s4-0 x) (- (-> *CAM_EYE-bank* rot-speed))) |
529 |
| - (set! (-> s4-0 x) (- (-> *CAM_EYE-bank* rot-speed))) |
| 531 | + ((< (-> s4-0 x) (- (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)))) |
| 532 | + (set! (-> s4-0 x) (- (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)))) |
530 | 533 | )
|
531 | 534 | )
|
| 535 | + ;; og:preserve-this changed for high fps |
532 | 536 | (cond
|
533 |
| - ((< (-> *CAM_EYE-bank* rot-speed) (-> s4-0 y)) |
534 |
| - (set! (-> s4-0 y) (-> *CAM_EYE-bank* rot-speed)) |
| 537 | + ((< (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)) (-> s4-0 y)) |
| 538 | + (set! (-> s4-0 y) (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed))) |
535 | 539 | )
|
536 |
| - ((< (-> s4-0 y) (- (-> *CAM_EYE-bank* rot-speed))) |
537 |
| - (set! (-> s4-0 y) (- (-> *CAM_EYE-bank* rot-speed))) |
| 540 | + ((< (-> s4-0 y) (- (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)))) |
| 541 | + (set! (-> s4-0 y) (- (* (-> *display* base-clock time-adjust-ratio) (-> *CAM_EYE-bank* rot-speed)))) |
538 | 542 | )
|
539 | 543 | )
|
540 | 544 | (cond
|
|
821 | 825 | (s4-0 (new 'stack-no-clear 'matrix))
|
822 | 826 | )
|
823 | 827 | (when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
| 828 | + ;; og:preserve-this |
824 | 829 | (let ((f24-0
|
825 |
| - (analog-input (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 32.0 110.0 (* 8192.0 (seconds-per-frame))) |
| 830 | + (analog-input-horizontal-third (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 32.0 110.0 (* 8192.0 (seconds-per-frame))) |
826 | 831 | )
|
827 | 832 | (f1-2
|
828 |
| - (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 (* 8192.0 (seconds-per-frame))) |
| 833 | + (analog-input-vertical-third (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 (* 8192.0 (seconds-per-frame))) |
829 | 834 | )
|
830 | 835 | (s2-0 (new-stack-matrix0))
|
831 | 836 | )
|
|
2221 | 2226 | )
|
2222 | 2227 |
|
2223 | 2228 | (defun cam-dist-analog-input ((arg0 int) (arg1 float))
|
2224 |
| - (let ((f0-0 (the-as number 0.0))) |
| 2229 | + ;; og:preserve-this |
| 2230 | + (let ((f0-0 0.0)) |
2225 | 2231 | (cond
|
2226 | 2232 | ((< arg0 28)
|
2227 | 2233 | (set! f0-0 (- (fmin arg1 (* 0.083333336 (- 28.0 (the float arg0)) arg1))))
|
|
2230 | 2236 | (set! f0-0 (fmin arg1 (* 0.0125 (+ -160.0 (the float arg0)) arg1)))
|
2231 | 2237 | )
|
2232 | 2238 | )
|
2233 |
| - (the-as float f0-0) |
| 2239 | + ;; og:preserve-this |
| 2240 | + (#if PC_PORT |
| 2241 | + (* (if (-> *pc-settings* third-camera-v-inverted?) 1.0 -1.0) f0-0) |
| 2242 | + f0-0 |
| 2243 | + ) |
2234 | 2244 | )
|
2235 | 2245 | )
|
2236 | 2246 |
|
|
2411 | 2421 | )
|
2412 | 2422 | )
|
2413 | 2423 | (when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
2414 |
| - (let ((f30-2 (analog-input |
| 2424 | + ;; og:preserve-this |
| 2425 | + (let ((f30-2 (analog-input-horizontal-third |
2415 | 2426 | (the-as int (-> *cpad-list* cpads 0 rightx))
|
2416 | 2427 | 128.0
|
2417 | 2428 | 32.0
|
|
3317 | 3328 | )
|
3318 | 3329 | (when (not (paused?))
|
3319 | 3330 | (when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
3320 |
| - (let ((f0-0 (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 0.05))) |
| 3331 | + ;; og:preserve-this |
| 3332 | + (let ((f0-0 (analog-input-vertical-third (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 0.05))) |
3321 | 3333 | (cond
|
3322 | 3334 | ((< (* 0.05 (- 1.0 (-> self view-off-param))) f0-0)
|
3323 | 3335 | (+! (-> self view-off-param) (* 0.05 (- 1.0 (-> self view-off-param))))
|
|
3338 | 3350 | (lerp (-> *CAM_STICK-bank* min-z) (-> *CAM_STICK-bank* max-z) (-> self view-off-param))
|
3339 | 3351 | )
|
3340 | 3352 | (when (not (logtest? (-> *camera* settings master-options) (cam-master-options IGNORE_ANALOG)))
|
| 3353 | + ;; og:preserve-this |
3341 | 3354 | (let ((f0-16
|
3342 |
| - (analog-input (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 32.0 110.0 (* 21845.334 (seconds-per-frame))) |
| 3355 | + (analog-input-horizontal-third (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 32.0 110.0 (* 21845.334 (seconds-per-frame))) |
3343 | 3356 | )
|
3344 | 3357 | (gp-0 (new-stack-matrix0))
|
3345 | 3358 | (s3-0 (new-stack-vector0))
|
|
0 commit comments