Files
jak-project/goal_src/engine/sparticle/sparticle.gc
T
2021-08-03 22:40:07 -04:00

49 lines
762 B
Common Lisp

;;-*-Lisp-*-
(in-package goal)
;; name: sparticle.gc
;; name in dgo: sparticle
;; dgos: GAME, ENGINE
(defun set-particle-frame-time ((arg0 int))
(cond
((= arg0 5)
(set-vector!
*sp-frame-time*
0.00000000000000000000000000000000000001175495
5.0
1.0
1.0
)
)
((= arg0 6)
(set-vector!
*sp-frame-time*
0.000000000000000000000000000000000000011754952
6.0
1.2
1.2
)
)
((= arg0 10)
(set-vector!
*sp-frame-time*
0.000000000000000000000000000000000000011754958
10.0
2.0
2.0
)
)
((= arg0 12)
(set-vector!
*sp-frame-time*
0.00000000000000000000000000000000000001175496
12.0
2.4
2.4
)
)
)
0
(none)
)