mirror of
https://github.com/open-goal/jak-project
synced 2026-06-06 03:39:01 -04:00
water111
27 lines
635 B
Common Lisp
27 lines
635 B
Common Lisp
;;-*-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))
|
|
)
|
|
|
|
|
|
|
|
|