mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
1e11a588f5
* [decomp] `loader` prelim work + some cleanup * more things * more * even more * yet even more * minor fixes * decompiler fix + use behaviors for two funcs * last functions * Create loader_REF.gc * more work * change vag tool config format + unrelated farmer and yakow stuff * update some things * fix some decomp * cleanup things i came across + make dgo compileable * fix consistency test * update refs * offline test: skip buggy `external-art-buffer` method * fix test
62 lines
2 KiB
Common Lisp
62 lines
2 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: sky-utils.gc
|
|
;; name in dgo: sky-utils
|
|
;; dgos: GAME, ENGINE
|
|
|
|
(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
|
|
)
|
|
|
|
(defun sky-set-sun-colors ((arg0 sky-parms) (arg1 int) (arg2 rgba) (arg3 rgba) (arg4 rgba) (arg5 rgba))
|
|
(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
|
|
)
|
|
|
|
(defun sky-set-sun-colors-sun ((arg0 sky-parms) (arg1 int) (arg2 rgba) (arg3 rgba))
|
|
(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
|
|
)
|
|
|
|
(defun sky-set-sun-colors-halo ((arg0 sky-parms) (arg1 int) (arg2 rgba) (arg3 rgba))
|
|
(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
|
|
)
|
|
|
|
(defun sky-set-sun-colors-aurora ((arg0 sky-parms) (arg1 int) (arg2 rgba) (arg3 rgba))
|
|
(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
|
|
)
|
|
|
|
(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
|
|
)
|