mirror of
https://github.com/open-goal/jak-project
synced 2026-06-16 14:50:32 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
22 lines
667 B
Common Lisp
Vendored
Generated
22 lines
667 B
Common Lisp
Vendored
Generated
;;-*-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))
|
|
|
|
)
|