jak-project/test/decompiler/reference/engine/util/sync-info_REF.gc

;;-*-Lisp-*-
(in-package goal)

;; definition for method 14 of type sync-info
(defmethod
  dummy-14
  sync-info
  ((obj sync-info) (arg0 uint) (arg1 float) (arg2 float) (arg3 float))
  (set! (-> obj period) arg0)
  (let* ((f0-1 (the float arg0))
         (f1-1 (* arg1 f0-1))
         )
   (set! (-> obj offset) (- f1-1 (* (the float (the int (/ f1-1 f0-1))) f0-1)))
   )
  0
  )

;; definition for method 14 of type sync-info-eased
(defmethod
  dummy-14
  sync-info-eased
  ((obj sync-info-eased) (arg0 uint) (arg1 float) (arg2 float) (arg3 float))
  (set! (-> obj period) arg0)
  (let* ((f0-1 (the float arg0))
         (f1-1 (* arg1 f0-1))
         )
   (set! (-> obj offset) (- f1-1 (* (the float (the int (/ f1-1 f0-1))) f0-1)))
   )
  (if (< arg2 0.0)
   (set! arg2 0.0)
   )
  (if (< 1.0 arg2)
   (set! arg2 1.0)
   )
  (if (< arg3 0.001)
   (set! arg3 0.001)
   )
  (if (< 1.0 arg3)
   (set! arg3 1.0)
   )
  (let ((f0-9 (+ arg2 arg3)))
   (when (< 1.0 f0-9)
    (set! f0-9 1.0)
    (set! arg2 (- 1.0 arg3))
    )
   (let* ((f1-11 (- 1.0 f0-9))
          (f0-10 arg2)
          (f1-12 (+ arg2 f1-11))
          (f2-5 (* f0-10 f0-10))
          (f3-3 (+ (* (* 2.0 f0-10) (- f1-12 f0-10)) f2-5))
          (f4-3 (/ f0-10 (- 1.0 f1-12)))
          (f3-4 (+ (* (* (- 1.0 f1-12) (- 1.0 f1-12)) f4-3) f3-3))
          )
    (set! (-> obj tlo) f0-10)
    (set! (-> obj thi) f1-12)
    (set! (-> obj ylo) f2-5)
    (set! (-> obj m2) f4-3)
    (set! (-> obj yend) f3-4)
    )
   )
  0
  )

;; definition for method 14 of type sync-info-paused
(defmethod
  dummy-14
  sync-info-paused
  ((obj sync-info-paused) (arg0 uint) (arg1 float) (arg2 float) (arg3 float))
  (set! (-> obj period) arg0)
  (let* ((f0-1 (the float arg0))
         (f1-1 (* arg1 f0-1))
         )
   (set! (-> obj offset) (- f1-1 (* (the float (the int (/ f1-1 f0-1))) f0-1)))
   )
  (cond
   ((< arg2 0.0)
    (set! arg2 0.0)
    )
   ((< 1.0 arg2)
    (set! arg2 1.0)
    )
   )
  (cond
   ((< arg3 0.0)
    (set! arg3 0.0)
    )
   ((< (- 1.0 arg2) arg3)
    (set! arg3 (- 1.0 arg2))
    )
   )
  (set! (-> obj pause-after-in) arg3)
  (set! (-> obj pause-after-out) arg2)
  0
  )

;; definition for method 15 of type sync-info
;; ERROR: function was not converted to expressions. Cannot decompile.

;; definition for method 15 of type sync-info-eased
;; ERROR: function was not converted to expressions. Cannot decompile.

;; definition for method 15 of type sync-info-paused
;; ERROR: function was not converted to expressions. Cannot decompile.

;; definition for method 10 of type sync-info
(defmethod dummy-10 sync-info ((obj sync-info))
  (let* ((v1-0 (-> obj period))
         (f0-1 (the float v1-0))
         (f1-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         )
   (/ (- f1-2 (* (the float (the int (/ f1-2 f0-1))) f0-1)) f0-1)
   )
  )

;; definition for method 17 of type sync-info
(defmethod dummy-17 sync-info ((obj sync-info))
  (/ (-> obj offset) (the float (-> obj period)))
  )

;; definition for method 16 of type sync-info
(defmethod dummy-16 sync-info ((obj sync-info) (arg0 float))
  (let* ((a2-0 (-> obj period))
         (f0-1 (the float a2-0))
         (v1-0 (- arg0 (* (the float (the int (/ arg0 f0-1))) f0-1)))
         (f1-4
          (+
           (the float (mod (-> *display* base-frame-counter) a2-0))
           (-> obj offset)
           )
          )
         (f1-6 (/ (- f1-4 (* (the float (the int (/ f1-4 f0-1))) f0-1)) f0-1))
         (f1-10 (+ (+ (* (- v1-0 f1-6) f0-1) f0-1) (-> obj offset)))
         (f0-3 (- f1-10 (* (the float (the int (/ f1-10 f0-1))) f0-1)))
         )
   (set! (-> obj offset) f0-3)
   f0-3
   )
  )

;; definition for method 11 of type sync-info
(defmethod dummy-11 sync-info ((obj sync-info))
  (let* ((v1-0 (-> obj period))
         (f0-1 (the float v1-0))
         (f1-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         )
   (/ (- f1-2 (* (the float (the int (/ f1-2 f0-1))) f0-1)) f0-1)
   )
  )

;; definition for method 11 of type sync-info-paused
(defmethod dummy-11 sync-info-paused ((obj sync-info-paused))
  (let* ((v1-0 (-> obj period))
         (f1-0 (the float v1-0))
         (f0-1 1.0)
         (f2-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         )
   (fmin
    f0-1
    (/
     (- f2-2 (* (the float (the int (/ f2-2 f1-0))) f1-0))
     (* f1-0 (- 1.0 (-> obj pause-after-out)))
     )
    )
   )
  )

;; definition for method 9 of type sync-info
(defmethod dummy-9 sync-info ((obj sync-info) (arg0 float))
  (let* ((v1-0 (-> obj period))
         (f0-1 (the float v1-0))
         (f1-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         )
   (* (/ (- f1-2 (* (the float (the int (/ f1-2 f0-1))) f0-1)) f0-1) arg0)
   )
  )

;; definition for method 9 of type sync-info-paused
(defmethod dummy-9 sync-info-paused ((obj sync-info-paused) (arg0 float))
  (* (dummy-11 obj) arg0)
  )

;; definition for method 13 of type sync-info
(defmethod dummy-13 sync-info ((obj sync-info))
  (let* ((v1-0 (-> obj period))
         (f1-0 (the float v1-0))
         (f0-1 2.0)
         (f2-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         (f0-2
          (*
           f0-1
           (/ (- f2-2 (* (the float (the int (/ f2-2 f1-0))) f1-0)) f1-0)
           )
          )
         )
   (if (>= f0-2 1.0)
    (set! f0-2 (- 2.0 f0-2))
    )
   f0-2
   )
  )

;; definition for method 13 of type sync-info-eased
(defmethod dummy-13 sync-info-eased ((obj sync-info-eased))
  (let* ((v1-0 (-> obj period))
         (f1-0 (the float v1-0))
         (f0-1 2.0)
         (f2-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         (f0-2
          (*
           f0-1
           (/ (- f2-2 (* (the float (the int (/ f2-2 f1-0))) f1-0)) f1-0)
           )
          )
         (v1-2 #f)
         )
   (when (>= f0-2 1.0)
    (set! v1-2 #t)
    (set! f0-2 (+ -1.0 f0-2))
    )
   (let* ((f1-4 (-> obj tlo))
          (f0-7 (/ (cond
                    ((< f0-2 f1-4)
                     (* f0-2 f0-2)
                     )
                    ((< f0-2 (-> obj thi))
                     (+ (* (* 2.0 f1-4) (- f0-2 f1-4)) (-> obj ylo))
                     )
                    (else
                     (let ((f1-7 (- 1.0 f0-2)))
                      (- (-> obj yend) (* (* f1-7 f1-7) (-> obj m2)))
                      )
                     )
                    )
                 (-> obj yend)
                 )
           )
          )
    (if v1-2
     (set! f0-7 (- 1.0 f0-7))
     )
    f0-7
    )
   )
  )

;; definition for method 13 of type sync-info-paused
(defmethod dummy-13 sync-info-paused ((obj sync-info-paused))
  (let* ((v1-0 (-> obj period))
         (f1-0 (the float v1-0))
         (f0-1 2.0)
         (f2-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         (f0-2
          (*
           f0-1
           (/ (- f2-2 (* (the float (the int (/ f2-2 f1-0))) f1-0)) f1-0)
           )
          )
         (f1-3 (- 1.0 (* 2.0 (-> obj pause-after-in))))
         (f2-7 (- 1.0 (* 2.0 (-> obj pause-after-out))))
         )
   (cond
    ((>= f0-2 (+ 1.0 f1-3))
     0.0
     )
    ((< 1.0 f0-2)
     (- 1.0 (/ (+ -1.0 f0-2) f1-3))
     )
    ((>= f0-2 f2-7)
     1.0
     )
    (else
     (/ f0-2 f2-7)
     )
    )
   )
  )

;; definition for method 12 of type sync-info
(defmethod dummy-12 sync-info ((obj sync-info) (arg0 float))
  (let* ((v1-0 (-> obj period))
         (f1-0 (the float v1-0))
         (f0-1 2.0)
         (f2-2
          (+
           (the float (mod (-> *display* base-frame-counter) v1-0))
           (-> obj offset)
           )
          )
         (f0-2
          (*
           f0-1
           (/ (- f2-2 (* (the float (the int (/ f2-2 f1-0))) f1-0)) f1-0)
           )
          )
         )
   (if (>= f0-2 1.0)
    (set! f0-2 (- 2.0 f0-2))
    )
   (* f0-2 arg0)
   )
  )

;; definition for method 12 of type sync-info-eased
(defmethod dummy-12 sync-info-eased ((obj sync-info-eased) (arg0 float))
  (* (dummy-13 obj) arg0)
  )

;; definition for method 12 of type sync-info-paused
(defmethod dummy-12 sync-info-paused ((obj sync-info-paused) (arg0 float))
  (* (dummy-13 obj) arg0)
  )

;; definition for method 9 of type delayed-rand-float
(defmethod
  dummy-9
  delayed-rand-float
  ((obj delayed-rand-float) (arg0 int) (arg1 int) (arg2 float))
  (set! (-> obj min-time) arg0)
  (set! (-> obj max-time) arg1)
  (set! (-> obj max-val) (* 0.5 arg2))
  (set! (-> obj start-time) (the-as uint 0))
  (set! (-> obj timer) 0)
  (set! (-> obj value) 0.0)
  (-> obj value)
  )

;; definition for method 10 of type delayed-rand-float
(defmethod dummy-10 delayed-rand-float ((obj delayed-rand-float))
  (when
   (>=
    (the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
    (-> obj timer)
    )
   (set! (-> obj start-time) (-> *display* base-frame-counter))
   (set! (-> obj timer) (rand-vu-int-range (-> obj min-time) (-> obj max-time)))
   (set!
    (-> obj value)
    (rand-vu-float-range (- (-> obj max-val)) (-> obj max-val))
    )
   )
  (-> obj value)
  )

;; definition for method 9 of type oscillating-float
(defmethod
  dummy-9
  oscillating-float
  ((obj oscillating-float) (arg0 float) (arg1 float) (arg2 float) (arg3 float))
  (set! (-> obj value) arg0)
  (set! (-> obj target) arg0)
  (set! (-> obj vel) 0.0)
  (set! (-> obj max-vel) arg2)
  (set! (-> obj damping) arg3)
  (set! (-> obj accel) arg1)
  (-> obj value)
  )

;; definition for method 10 of type oscillating-float
(defmethod dummy-10 oscillating-float ((obj oscillating-float) (arg0 float))
  (let
   ((f0-3
     (*
      (- (+ (-> obj target) arg0) (-> obj value))
      (* (-> obj accel) (-> *display* time-adjust-ratio))
      )
     )
    )
   (set! (-> obj vel) (+ (-> obj vel) f0-3))
   )
  (set!
   (-> obj vel)
   (fmin (-> obj max-vel) (fmax (- (-> obj max-vel)) (-> obj vel)))
   )
  (set! (-> obj vel) (* (-> obj vel) (-> obj damping)))
  (set!
   (-> obj value)
   (+ (-> obj value) (* (-> obj vel) (-> *display* time-adjust-ratio)))
   )
  (-> obj value)
  )

;; definition for method 9 of type bouncing-float
(defmethod
  dummy-9
  bouncing-float
  ((obj bouncing-float)
   (arg0 float)
   (arg1 float)
   (arg2 float)
   (arg3 float)
   (arg4 float)
   (arg5 float)
   (arg6 float)
   )
  (dummy-9 (-> obj osc) arg0 arg4 arg5 arg6)
  (set! (-> obj max-value) arg1)
  (set! (-> obj min-value) arg2)
  (set! (-> obj elasticity) arg3)
  (set! (-> obj state) 0)
  (-> obj osc value)
  )

;; definition for method 10 of type bouncing-float
(defmethod dummy-10 bouncing-float ((obj bouncing-float) (arg0 float))
  (dummy-10 (-> obj osc) arg0)
  (set! (-> obj state) 0)
  (when (>= (-> obj osc value) (-> obj max-value))
   (set! (-> obj osc value) (-> obj max-value))
   (if (< 0.0 (-> obj osc vel))
    (set! (-> obj osc vel) (* (-> obj osc vel) (- (-> obj elasticity))))
    )
   (set! (-> obj state) 1)
   )
  (when (>= (-> obj min-value) (-> obj osc value))
   (set! (-> obj osc value) (-> obj min-value))
   (if (< (-> obj osc vel) 0.0)
    (set! (-> obj osc vel) (* (-> obj osc vel) (- (-> obj elasticity))))
    )
   (set! (-> obj state) -1)
   )
  (-> obj osc value)
  )

;; definition for method 11 of type bouncing-float
(defmethod dummy-11 bouncing-float ((obj bouncing-float))
  (= (-> obj state) -1)
  )

;; definition for method 12 of type bouncing-float
(defmethod dummy-12 bouncing-float ((obj bouncing-float))
  (= (-> obj state) 1)
  )

;; definition for method 9 of type delayed-rand-vector
(defmethod
  dummy-9
  delayed-rand-vector
  ((obj delayed-rand-vector) (arg0 int) (arg1 int) (arg2 float) (arg3 float))
  (set! (-> obj min-time) arg0)
  (set! (-> obj max-time) arg1)
  (set! (-> obj xz-max) (* 0.5 arg2))
  (set! (-> obj y-max) (* 0.5 arg3))
  (set! (-> obj start-time) (the-as uint 0))
  (set! (-> obj timer) 0)
  (vector-reset! (-> obj value))
  (-> obj value)
  )

;; definition for method 10 of type delayed-rand-vector
(defmethod dummy-10 delayed-rand-vector ((obj delayed-rand-vector))
  (set! (-> obj start-time) (-> *display* base-frame-counter))
  (set! (-> obj timer) (rand-vu-int-range (-> obj min-time) (-> obj max-time)))
  (set!
   (-> obj value x)
   (rand-vu-float-range (- (-> obj xz-max)) (-> obj xz-max))
   )
  (set!
   (-> obj value y)
   (rand-vu-float-range (- (-> obj y-max)) (-> obj y-max))
   )
  (set!
   (-> obj value z)
   (rand-vu-float-range (- (-> obj xz-max)) (-> obj xz-max))
   )
  (-> obj value)
  )

;; definition for method 11 of type delayed-rand-vector
(defmethod dummy-11 delayed-rand-vector ((obj delayed-rand-vector))
  (if
   (>=
    (the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
    (-> obj timer)
    )
   (dummy-10 obj)
   )
  (-> obj value)
  )

;; definition for method 12 of type delayed-rand-vector
(defmethod dummy-12 delayed-rand-vector ((obj delayed-rand-vector))
  (if
   (>=
    (the-as int (- (-> *display* base-frame-counter) (-> obj start-time)))
    (-> obj timer)
    )
   (dummy-10 obj)
   (vector-reset! (-> obj value))
   )
  (-> obj value)
  )

;; definition for method 9 of type oscillating-vector
;; Used lq/sq
(defmethod
  dummy-9
  oscillating-vector
  ((obj oscillating-vector)
   (arg0 vector)
   (arg1 float)
   (arg2 float)
   (arg3 float)
   )
  (cond
   (arg0
    (set! (-> obj value quad) (-> arg0 quad))
    (set! (-> obj target quad) (-> arg0 quad))
    )
   (else
    (vector-reset! (-> obj value))
    (vector-reset! (-> obj target))
    )
   )
  (vector-reset! (-> obj vel))
  (set! (-> obj max-vel) arg2)
  (set! (-> obj damping) arg3)
  (set! (-> obj accel) arg1)
  (-> obj value)
  )

;; definition for method 10 of type oscillating-vector
(defmethod dummy-10 oscillating-vector ((obj oscillating-vector) (arg0 vector))
  (let ((s5-0 (new 'stack-no-clear 'vector)))
   (cond
    (arg0
     (vector+! s5-0 (-> obj target) arg0)
     (vector-! s5-0 s5-0 (-> obj value))
     )
    (else
     (vector-! s5-0 (-> obj target) (-> obj value))
     )
    )
   (vector-float*!
    s5-0
    s5-0
    (* (-> obj accel) (-> *display* time-adjust-ratio))
    )
   (vector+! (-> obj vel) (-> obj vel) s5-0)
   (let ((f0-2 (vector-length (-> obj vel))))
    (if (< (-> obj max-vel) f0-2)
     (vector-float*! (-> obj vel) (-> obj vel) (/ (-> obj max-vel) f0-2))
     )
    )
   (vector-float*! (-> obj vel) (-> obj vel) (-> obj damping))
   (vector-float*! s5-0 (-> obj vel) (-> *display* time-adjust-ratio))
   (vector+! (-> obj value) (-> obj value) s5-0)
   )
  (-> obj value)
  )