mirror of
https://github.com/open-goal/jak-project
synced 2026-06-24 01:41:29 -04:00
water
25 lines
674 B
Common Lisp
Vendored
25 lines
674 B
Common Lisp
Vendored
;;-*-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))
|
|
|
|
)
|