;;-*-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
  )