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

;; failed to figure out what this is:
(setup-font-texture! *texture-pool*)

;; definition for symbol *shadow-middot-texture*, type texture
(define *shadow-middot-texture* (lookup-texture-by-id (new 'static 'texture-id :index #x4 :page #x2)))

;; definition for symbol *generic-envmap-texture*, type texture
(define *generic-envmap-texture* (lookup-texture-by-id (the-as texture-id #x10000014)))

;; definition for symbol *ocean-texture*, type texture
(define *ocean-texture* (lookup-texture-by-id (new 'static 'texture-id :page #x370)))

;; failed to figure out what this is:
(set! (-> *texture-pool* allocate-func) texture-page-common-boot-allocate)