mirror of
https://github.com/open-goal/jak-project
synced 2026-05-25 07:23:19 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
116 lines
3.4 KiB
Common Lisp
Vendored
Generated
116 lines
3.4 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function cspace-by-name-no-fail
|
|
;; INFO: Return type mismatch object vs cspace.
|
|
(defun cspace-by-name-no-fail ((arg0 process-drawable) (arg1 string))
|
|
(let ((result (cspace-by-name arg0 arg1)))
|
|
(the-as cspace (cond
|
|
(result
|
|
(empty)
|
|
result
|
|
)
|
|
(else
|
|
(format 0 "no cspace (~A)~%" arg1)
|
|
(the-as cspace (-> arg0 node-list data))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function cspace-index-by-name-no-fail
|
|
(defun cspace-index-by-name-no-fail ((arg0 process-drawable) (arg1 string))
|
|
(let ((v0-0 (cspace-index-by-name arg0 arg1)))
|
|
(cond
|
|
((< v0-0 0)
|
|
(format 0 "no cspace[ndx] (~A)~%" arg1)
|
|
0
|
|
)
|
|
(else
|
|
(empty)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-none
|
|
(defun num-func-none ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(-> arg0 frame-num)
|
|
)
|
|
|
|
;; definition for function num-func-+!
|
|
(defun num-func-+! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(let ((f0-1 (+ (-> arg0 frame-num) (* arg1 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio))))))
|
|
(set! (-> arg0 frame-num) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func--!
|
|
(defun num-func--! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(let ((f0-1 (- (-> arg0 frame-num) (* arg1 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio))))))
|
|
(set! (-> arg0 frame-num) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-loop!
|
|
(defun num-func-loop! ((chan joint-control-channel) (inc float) (arg2 float))
|
|
(let* ((duration (the float (+ (-> chan frame-group data 0 length) -1)))
|
|
(after-inc
|
|
(+ (-> chan frame-num) duration (* inc (* (-> chan frame-group speed) (-> *display* time-adjust-ratio))))
|
|
)
|
|
(wrapped (- after-inc (* (the float (the int (/ after-inc duration))) duration)))
|
|
)
|
|
(set! (-> chan frame-num) wrapped)
|
|
wrapped
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-seek!
|
|
(defun num-func-seek! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(let ((f0-3
|
|
(seek (-> arg0 frame-num) arg1 (* arg2 (* (-> arg0 frame-group speed) (-> *display* time-adjust-ratio))))
|
|
)
|
|
)
|
|
(set! (-> arg0 frame-num) f0-3)
|
|
(set! (-> arg0 frame-num) f0-3)
|
|
f0-3
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-blend-in!
|
|
(defun num-func-blend-in! ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(let ((f30-0 (seek (-> arg0 frame-interp) 1.0 (* arg1 (-> *display* time-adjust-ratio)))))
|
|
(set! (-> arg0 frame-interp) f30-0)
|
|
(set! (-> arg0 frame-interp) f30-0)
|
|
(if (= f30-0 1.0)
|
|
(joint-control-reset! (-> arg0 parent) arg0)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-chan
|
|
(defun num-func-chan ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(let ((f0-2
|
|
(-> (the-as joint-control-channel (+ (the-as uint arg0) (* 48 (- (the int arg1) (-> arg0 group-sub-index)))))
|
|
frame-num
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg0 frame-num) f0-2)
|
|
f0-2
|
|
)
|
|
)
|
|
|
|
;; definition for function num-func-identity
|
|
(defun num-func-identity ((arg0 joint-control-channel) (arg1 float) (arg2 float))
|
|
(-> arg0 frame-num)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|