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