mirror of
https://github.com/open-goal/jak-project
synced 2026-06-07 03:58:11 -04:00
ManDude
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
84 lines
2.3 KiB
Common Lisp
Vendored
84 lines
2.3 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; 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 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
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-sun
|
|
(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
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-halo
|
|
(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
|
|
)
|
|
|
|
;; definition for function sky-set-sun-colors-aurora
|
|
(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
|
|
)
|
|
|
|
;; 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
|
|
)
|