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

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

(declare-type ambient-list structure)

;; These are the base classes for the draw nodes in the engine.

(deftype drawable (basic)
  ((id      int16          :offset-assert 4)
   (bsphere vector :inline :offset-assert 16)
   )
  :method-count-assert 18
  :size-assert         #x20
  :flag-assert         #x1200000020
  (:methods
    (login (_type_) _type_ 9) ;; probably login or init.
    (draw (_type_ drawable display-frame) none 10) ;; display-frame is from the method inspect tool
    (dummy-11 (_type_ int object) none 11) ; int - length
    (dummy-12 (_type_ int object) none 12) ; int - length
    (dummy-13 (_type_ int object) none 13) ; int - length
    (dummy-14 (_type_) none 14) ;; related to culling?
    (dummy-15 (_type_ object object) none 15)
    (dummy-16 (_type_ object object) object 16)
    (dummy-17 (_type_ sphere int ambient-list) none 17)
    )
  )

(deftype drawable-error (drawable)
  ((name    basic          :offset-assert 32)
   )
  :method-count-assert 18
  :size-assert         #x24
  :flag-assert         #x1200000024
  )

(declare-type process-drawable process)
(define-extern process-drawable-art-error (state string process-drawable))
(define-extern foreground-engine-execute (function engine display-frame int int none))