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

;; definition for symbol *background-draw-engine*, type engine
(define *background-draw-engine* (new 'global 'engine 'draw 10))

;; definition for symbol *matrix-engine*, type (array handle)
(define *matrix-engine* (the-as (array handle) (new 'global 'boxed-array handle 1024)))

;; failed to figure out what this is:
(set! (-> *matrix-engine* length) 0)

;; definition for symbol *camera-engine*, type engine
(define *camera-engine* (new 'global 'engine 'camera-eng 128))

;; this part is debug only
(when *debug-segment*
;; definition for symbol *debug-engine*, type engine
(define *debug-engine* (new 'debug 'engine 'debug 512))

)
