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

;; failed to figure out what this is:
(if *debug-segment*
  (set! *debug-engine* (new 'debug 'engine 'debug 512))
  )