mirror of
https://github.com/open-goal/jak-project
synced 2026-06-02 02:00:40 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
64 lines
2.3 KiB
Common Lisp
Vendored
Generated
64 lines
2.3 KiB
Common Lisp
Vendored
Generated
;;-*-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
|
|
)
|