mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 10:12:14 -04:00
water111
22 lines
527 B
Common Lisp
22 lines
527 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: shadow-cpu.gc
|
|
;; name in dgo: shadow-cpu
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; TODO - for video
|
|
(define-extern *shadow-data* shadow-data)
|
|
|
|
;; todo
|
|
(define *shadow-data* (new 'static 'shadow-data))
|
|
|
|
(defmethod dummy-14 shadow-control ((obj shadow-control))
|
|
(let ((v1-1 (-> *time-of-day-context* current-shadow)))
|
|
(set! (-> obj settings shadow-dir x) (-> v1-1 x))
|
|
(set! (-> obj settings shadow-dir y) (-> v1-1 y))
|
|
(set! (-> obj settings shadow-dir z) (-> v1-1 z))
|
|
)
|
|
0
|
|
(none)
|
|
) |