;;-*-Lisp-*-
(in-package goal)

;; name: shadow-h.gc
;; name in dgo: shadow-h
;; dgos: GAME, ENGINE


(deftype fake-shadow (structure)
  ((px    float  :offset-assert 0)
   (py    float  :offset-assert 4)
   (pz    float  :offset-assert 8)
   (scale float  :offset-assert 12)
   (qx    float  :offset-assert 16)
   (qy    float  :offset-assert 20)
   (qz    float  :offset-assert 24)
   (flags int32  :offset-assert 28)
   )
  :pack-me
  :method-count-assert 9
  :size-assert         #x20
  :flag-assert         #x900000020
  )

(deftype fake-shadow-buffer (basic)
  ((num-shadows int32                  :offset-assert 4)
   (data        fake-shadow 32 :inline :offset-assert 8)
   )
  :method-count-assert 9
  :size-assert         #x408
  :flag-assert         #x900000408
  )

(define *fake-shadow-buffer-1* (new 'global 'fake-shadow-buffer))
(define *fake-shadow-buffer-2* (new 'global 'fake-shadow-buffer))
(define *fake-shadow-buffer* *fake-shadow-buffer-1*)

(define-extern swap-fake-shadow-buffers (function none))

(define-extern find-ground-and-draw-shadow (function vector vector float collide-kind process-drawable float float none))