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