mirror of
https://github.com/open-goal/jak-project
synced 2026-06-04 18:59:37 -04:00
water111
96 lines
2.2 KiB
Common Lisp
96 lines
2.2 KiB
Common Lisp
;;-*-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))
|
|
(let ((v1-0 (-> arg0 ambient)))
|
|
(set! (-> v1-0 x) 0.3)
|
|
(set! (-> v1-0 y) 0.3)
|
|
(set! (-> v1-0 z) 0.3)
|
|
(set! (-> v1-0 w) 1.0)
|
|
)
|
|
(let ((v1-1 (-> arg0 color)))
|
|
(set! (-> v1-1 0 x) 1.0)
|
|
(set! (-> v1-1 0 y) 1.0)
|
|
(set! (-> v1-1 0 z) 1.0)
|
|
(set! (-> v1-1 0 w) 1.0)
|
|
)
|
|
(let ((v1-2 (-> arg0 color 1)))
|
|
(set! (-> v1-2 x) 0.2)
|
|
(set! (-> v1-2 y) 0.2)
|
|
(set! (-> v1-2 z) 0.2)
|
|
(set! (-> v1-2 w) 1.0)
|
|
)
|
|
(let ((v1-3 (-> arg0 color 2)))
|
|
(set! (-> v1-3 x) 0.0)
|
|
(set! (-> v1-3 y) 0.0)
|
|
(set! (-> v1-3 z) 0.0)
|
|
(set! (-> v1-3 w) 1.0)
|
|
)
|
|
(let ((v1-4 (-> arg0 direction)))
|
|
(set! (-> v1-4 0 x) 1.0)
|
|
(set! (-> v1-4 0 y) 0.0)
|
|
(set! (-> v1-4 0 z) 0.0)
|
|
(set! (-> v1-4 0 w) 1.0)
|
|
)
|
|
(let ((v1-5 (-> arg0 direction 1)))
|
|
(set! (-> v1-5 x) 0.0)
|
|
(set! (-> v1-5 y) 1.0)
|
|
(set! (-> v1-5 z) 0.0)
|
|
(set! (-> v1-5 w) 1.0)
|
|
)
|
|
(let ((v1-6 (-> arg0 direction 2)))
|
|
(set! (-> v1-6 x) 0.0)
|
|
(set! (-> v1-6 y) 0.0)
|
|
(set! (-> v1-6 z) 1.0)
|
|
(set! (-> v1-6 w) 1.0)
|
|
)
|
|
arg0
|
|
)
|