;;-*-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* (get-texture middot effects)) ;; definition for symbol *generic-envmap-texture*, type texture (define *generic-envmap-texture* (get-texture pal-environment-front environment-generic)) ;; definition for symbol *ocean-texture*, type texture (define *ocean-texture* (get-texture ocn-water ocean)) ;; failed to figure out what this is: (set! (-> *texture-pool* allocate-func) texture-page-common-boot-allocate)