mirror of
https://github.com/open-goal/jak-project
synced 2026-06-16 14:50:32 -04:00
6a06291e6e
Ports the `get-texture` macro added in Jak 3 to Jak 1 and 2.
18 lines
613 B
Common Lisp
Vendored
Generated
18 lines
613 B
Common Lisp
Vendored
Generated
;;-*-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)
|