mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 17:47:44 -04:00
c910a22c1b
* decomp: `eye-h` * decomp: `projectile-h` * decomp: `sky-utils` * decomp: decompile `water-h` and add `smush-control-h` to ref tests * decomp: `task-control-h`
88 lines
2.4 KiB
Common Lisp
88 lines
2.4 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: sky-utils.gc
|
|
;; name in dgo: sky-utils
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; definition for function sky-set-sun-radii
|
|
(defun
|
|
sky-set-sun-radii
|
|
((arg0 sky-parms) (arg1 int) (arg2 float) (arg3 float) (arg4 float))
|
|
(let ((v1-0 (logand arg1 1)))
|
|
(set! (-> arg0 upload-data sun v1-0 r-sun) arg2)
|
|
(set! (-> arg0 upload-data sun v1-0 r-halo) arg3)
|
|
(set! (-> arg0 upload-data sun v1-0 r-aurora) arg4)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors
|
|
(defun
|
|
sky-set-sun-colors
|
|
((arg0 sky-parms) (arg1 int) (arg2 uint) (arg3 uint) (arg4 uint) (arg5 uint))
|
|
(let ((v1-0 (logand arg1 1)))
|
|
(set! (-> arg0 upload-data sun v1-0 c-sun-start) arg2)
|
|
(set! (-> arg0 upload-data sun v1-0 c-sun-end) arg3)
|
|
(set! (-> arg0 upload-data sun v1-0 c-halo-start) arg3)
|
|
(set! (-> arg0 upload-data sun v1-0 c-halo-end) arg4)
|
|
(set! (-> arg0 upload-data sun v1-0 c-aurora-start) arg4)
|
|
(set! (-> arg0 upload-data sun v1-0 c-aurora-end) arg5)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-sun
|
|
(defun
|
|
sky-set-sun-colors-sun
|
|
((arg0 sky-parms) (arg1 int) (arg2 uint) (arg3 uint))
|
|
(let ((v1-0 (logand arg1 1)))
|
|
(set! (-> arg0 upload-data sun v1-0 c-sun-start) arg2)
|
|
(set! (-> arg0 upload-data sun v1-0 c-sun-end) arg3)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-halo
|
|
(defun
|
|
sky-set-sun-colors-halo
|
|
((arg0 sky-parms) (arg1 int) (arg2 uint) (arg3 uint))
|
|
(let ((v1-0 (logand arg1 1)))
|
|
(set! (-> arg0 upload-data sun v1-0 c-halo-start) arg2)
|
|
(set! (-> arg0 upload-data sun v1-0 c-halo-end) arg3)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-aurora
|
|
(defun
|
|
sky-set-sun-colors-aurora
|
|
((arg0 sky-parms) (arg1 int) (arg2 uint) (arg3 uint))
|
|
(let ((v1-0 (logand arg1 1)))
|
|
(set! (-> arg0 upload-data sun v1-0 c-aurora-start) arg2)
|
|
(set! (-> arg0 upload-data sun v1-0 c-aurora-end) arg3)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function sky-set-orbit
|
|
(defun
|
|
sky-set-orbit
|
|
((arg0 sky-parms)
|
|
(arg1 int)
|
|
(arg2 float)
|
|
(arg3 float)
|
|
(arg4 float)
|
|
(arg5 float)
|
|
(arg6 float)
|
|
(arg7 float)
|
|
)
|
|
(set! (-> arg0 orbit arg1 high-noon) arg2)
|
|
(set! (-> arg0 orbit arg1 tilt) (* 0.017453292 arg3))
|
|
(set! (-> arg0 orbit arg1 rise) (* 0.017453292 arg4))
|
|
(set! (-> arg0 orbit arg1 dist) arg5)
|
|
(set! (-> arg0 orbit arg1 min-halo) arg6)
|
|
(set! (-> arg0 orbit arg1 max-halo) arg7)
|
|
#f
|
|
)
|