mirror of
https://github.com/open-goal/jak-project
synced 2026-05-25 07:23:19 -04:00
Tyler Wilding
142961a747
* decomp: Add texture-upload to ref tests * maybe 50% done? * 5 functions to go! * decomp: stuck in `navigate` * work-around fp issue * some cleanup and label casts * working on supporting asm instructions -- this is currently WRONG * support ASM operations * fixes for asm op support * decomp: finish the vast majority of `navigate` * format * update test though i think this suggests a regression! * decomp: cleanup some more of navigate * decomp: finish `rolling-lightning-mole` * revert `r0` handling for `pcpyud` and `pextuw` * update ref tests * lint * fix a failing test * help * navigate mostly works now, with some potential bugs * remove my debugging logs * update ref tests * review feedback cleanup * these are all likely fine * can't get the crab to chase me anymore * the crab is back
18 lines
683 B
Common Lisp
Vendored
Generated
18 lines
683 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* (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)
|