mirror of
https://github.com/open-goal/jak-project
synced 2026-05-26 23:47:57 -04:00
water111
61 lines
1.6 KiB
Common Lisp
Vendored
61 lines
1.6 KiB
Common Lisp
Vendored
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function light-slerp
|
|
(defun light-slerp ((arg0 light) (arg1 light) (arg2 light) (arg3 float))
|
|
(let ((s3-0 (fmax 0.0 (fmin 1.0 arg3))))
|
|
(vector-lerp! (-> arg0 color) (-> arg1 color) (-> arg2 color) s3-0)
|
|
(vector-deg-slerp
|
|
(-> arg0 direction)
|
|
(-> arg1 direction)
|
|
(-> arg2 direction)
|
|
s3-0
|
|
)
|
|
(let ((f0-2 (-> arg1 levels x))
|
|
(f1-2 (-> arg2 levels x))
|
|
)
|
|
(set! (-> arg0 levels x) (+ f0-2 (* s3-0 (- f1-2 f0-2))))
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for function light-group-slerp
|
|
(defun
|
|
light-group-slerp
|
|
((arg0 light-group) (arg1 light-group) (arg2 light-group) (arg3 float))
|
|
(dotimes (s2-0 4)
|
|
(light-slerp
|
|
(-> arg0 lights s2-0)
|
|
(-> arg1 lights s2-0)
|
|
(-> arg2 lights s2-0)
|
|
arg3
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for function light-group-process!
|
|
(defun
|
|
light-group-process!
|
|
((arg0 vu-lights) (arg1 light-group) (arg2 vector) (arg3 vector))
|
|
(rotate-y<-vector+vector arg3 arg2)
|
|
(vu-lights<-light-group! arg0 arg1)
|
|
(none)
|
|
)
|
|
|
|
;; definition for symbol *default-lights*, type vu-lights
|
|
(define *default-lights* (new 'global 'vu-lights))
|
|
|
|
;; definition for function vu-lights-default!
|
|
(defun vu-lights-default! ((arg0 vu-lights))
|
|
(set-vector! (-> arg0 ambient) 0.3 0.3 0.3 1.0)
|
|
(set-vector! (-> arg0 color 0) 1.0 1.0 1.0 1.0)
|
|
(set-vector! (-> arg0 color 1) 0.2 0.2 0.2 1.0)
|
|
(set-vector! (-> arg0 color 2) 0.0 0.0 0.0 1.0)
|
|
(set-vector! (-> arg0 direction 0) 1.0 0.0 0.0 1.0)
|
|
(set-vector! (-> arg0 direction 1) 0.0 1.0 0.0 1.0)
|
|
(set-vector! (-> arg0 direction 2) 0.0 0.0 1.0 1.0)
|
|
arg0
|
|
)
|