Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 21:27:52 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity
jak-project/goal_src/jak2/engine/gfx/ocean/ocean-trans-tables.gc
Tyler Wilding 81b6d5fe08
d/jak2: finish find-nearest | trajectory | editable-h and most of editable and editable-player (#1847) 
Also made a first-pass of their SQL schema in preparation for getting
that working.
2022-09-10 18:03:17 -04:00

1111 lines
46 KiB
Common Lisp
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; name: ocean-trans-tables.gc
;; name in dgo: ocean-trans-tables
;; dgos: ENGINE, GAME
;; og:ignore-from-loc
;; DECOMP BEGINS
;; definition for symbol *ocean-left-table*, type (pointer float)
(define *ocean-left-table* (new 'static 'array float 28
0.0
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.25
0.0
0.75
0.0
0.5
0.0
0.5
0.0
0.75
0.0
0.25
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-right-table*, type (pointer float)
(define *ocean-right-table* (new 'static 'array float 28
0.0
0.0
1.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.75
0.0
0.25
0.0
0.5
0.0
0.5
0.0
0.25
0.0
0.75
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-up-table*, type (pointer float)
(define *ocean-up-table* (new 'static 'array float 28
0.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
1.0
0.0
0.0
0.25
0.75
0.0
0.0
0.5
0.5
0.0
0.0
0.75
0.25
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-down-table*, type (pointer float)
(define *ocean-down-table* (new 'static 'array float 28
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.75
0.25
0.0
0.0
0.5
0.5
0.0
0.0
0.25
0.75
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-down-left-table*, type (pointer float)
(define *ocean-down-left-table* (new 'static 'array float 40
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.75
0.0
0.25
0.0
0.5
0.0
0.5
0.0
0.25
0.0
0.75
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.75
0.25
0.0
0.0
0.5
0.5
0.0
0.0
0.25
0.75
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-down-right-table*, type (pointer float)
(define *ocean-down-right-table* (new 'static 'array float 40
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.0
0.75
0.25
0.0
0.75
0.0
0.25
0.0
0.0
0.5
0.5
0.0
0.5
0.0
0.5
0.0
0.0
0.25
0.75
0.0
0.25
0.0
0.75
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-up-right-table*, type (pointer float)
(define *ocean-up-right-table* (new 'static 'array float 40
0.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
0.25
0.0
0.75
0.0
0.5
0.0
0.5
0.0
0.75
0.0
0.25
0.0
1.0
0.0
0.0
0.25
0.75
0.0
0.0
0.5
0.5
0.0
0.0
0.75
0.25
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-up-left-table*, type (pointer float)
(define *ocean-up-left-table* (new 'static 'array float 40
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.25
0.0
0.75
0.0
0.25
0.75
0.0
0.0
0.5
0.0
0.5
0.0
0.5
0.5
0.0
0.0
0.75
0.0
0.25
0.0
0.75
0.25
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-trans-left-table*, type (pointer float)
(define *ocean-trans-left-table* (new 'static 'array float 44
0.0
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.125
0.0
0.875
0.0
0.25
0.0
0.75
0.0
0.375
0.0
0.625
0.0
0.5
0.0
0.5
0.0
0.625
0.0
0.375
0.0
0.75
0.0
0.25
0.0
0.875
0.0
0.125
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-trans-right-table*, type (pointer float)
(define *ocean-trans-right-table* (new 'static 'array float 44
0.0
0.0
1.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.875
0.0
0.125
0.0
0.75
0.0
0.25
0.0
0.625
0.0
0.375
0.0
0.5
0.0
0.5
0.0
0.375
0.0
0.625
0.0
0.25
0.0
0.75
0.0
0.125
0.0
0.875
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-trans-up-table*, type (pointer float)
(define *ocean-trans-up-table* (new 'static 'array float 44
0.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
1.0
0.0
0.0
0.125
0.875
0.0
0.0
0.25
0.75
0.0
0.0
0.375
0.625
0.0
0.0
0.5
0.5
0.0
0.0
0.625
0.375
0.0
0.0
0.75
0.25
0.0
0.0
0.875
0.125
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-trans-down-table*, type (pointer float)
(define *ocean-trans-down-table* (new 'static 'array float 44
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.875
0.125
0.0
0.0
0.75
0.25
0.0
0.0
0.625
0.375
0.0
0.0
0.5
0.5
0.0
0.0
0.375
0.625
0.0
0.0
0.25
0.75
0.0
0.0
0.125
0.875
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-trans-down-left-table*, type (pointer float)
(define *ocean-trans-down-left-table* (new 'static 'array float 72
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.875
0.0
0.125
0.0
0.75
0.0
0.25
0.0
0.625
0.0
0.375
0.0
0.5
0.0
0.5
0.0
0.375
0.0
0.625
0.0
0.25
0.0
0.75
0.0
0.125
0.0
0.875
0.0
0.0
0.0
1.0
0.0
0.0
0.0
0.875
0.125
0.0
0.0
0.75
0.25
0.0
0.0
0.625
0.375
0.0
0.0
0.5
0.5
0.0
0.0
0.375
0.625
0.0
0.0
0.25
0.75
0.0
0.0
0.125
0.875
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-trans-down-right-table*, type (pointer float)
(define *ocean-trans-down-right-table* (new 'static 'array float 72
1.0
0.0
0.0
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.0
0.0
0.875
0.125
0.0
0.875
0.0
0.125
0.0
0.0
0.75
0.25
0.0
0.75
0.0
0.25
0.0
0.0
0.625
0.375
0.0
0.625
0.0
0.375
0.0
0.0
0.5
0.5
0.0
0.5
0.0
0.5
0.0
0.0
0.375
0.625
0.0
0.375
0.0
0.625
0.0
0.0
0.25
0.75
0.0
0.25
0.0
0.75
0.0
0.0
0.125
0.875
0.0
0.125
0.0
0.875
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-trans-up-right-table*, type (pointer float)
(define *ocean-trans-up-right-table* (new 'static 'array float 72
0.0
0.0
1.0
0.0
0.0
0.0
0.0
1.0
0.0
0.125
0.0
0.875
0.0
0.25
0.0
0.75
0.0
0.375
0.0
0.625
0.0
0.5
0.0
0.5
0.0
0.625
0.0
0.375
0.0
0.75
0.0
0.25
0.0
0.875
0.0
0.125
0.0
1.0
0.0
0.0
0.125
0.875
0.0
0.0
0.25
0.75
0.0
0.0
0.375
0.625
0.0
0.0
0.5
0.5
0.0
0.0
0.625
0.375
0.0
0.0
0.75
0.25
0.0
0.0
0.875
0.125
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-trans-up-left-table*, type (pointer float)
(define *ocean-trans-up-left-table* (new 'static 'array float 72
0.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
1.0
0.0
0.0
0.125
0.0
0.875
0.0
0.125
0.875
0.0
0.0
0.25
0.0
0.75
0.0
0.25
0.75
0.0
0.0
0.375
0.0
0.625
0.0
0.375
0.625
0.0
0.0
0.5
0.0
0.5
0.0
0.5
0.5
0.0
0.0
0.625
0.0
0.375
0.0
0.625
0.375
0.0
0.0
0.75
0.0
0.25
0.0
0.75
0.25
0.0
0.0
0.875
0.0
0.125
0.0
0.875
0.125
0.0
0.0
1.0
0.0
0.0
0.0
)
)
;; definition for symbol *ocean-trans-corner-table*, type (inline-array vector4w-2)
(define *ocean-trans-corner-table* (the-as (inline-array vector4w-2) (new 'static 'array float 100
1.0
0.0
0.0
0.0
0.75
0.25
0.0
0.0
0.5
0.5
0.0
0.0
0.25
0.75
0.0
0.0
0.0
1.0
0.0
0.0
0.75
0.0
0.25
0.0
0.5625
0.1875
0.1875
0.0625
0.375
0.375
0.125
0.125
0.1875
0.5625
0.0625
0.1875
0.0
0.75
0.0
0.25
0.5
0.0
0.5
0.0
0.375
0.125
0.375
0.125
0.25
0.25
0.25
0.25
0.125
0.375
0.125
0.375
0.0
0.5
0.0
0.5
0.25
0.0
0.75
0.0
0.1875
0.0625
0.5625
0.1875
0.125
0.125
0.375
0.375
0.0625
0.1875
0.1875
0.5625
0.0
0.25
0.0
0.75
0.0
0.0
1.0
0.0
0.0
0.0
0.75
0.25
0.0
0.0
0.5
0.5
0.0
0.0
0.25
0.75
0.0
0.0
0.0
1.0
)
)
)
;; definition for symbol *ocean-trans-strip-array*, type (pointer float)
(define *ocean-trans-strip-array* (new 'static 'array float 160
1.0
0.0
0.0
0.0
0.75
0.0
0.25
0.0
0.75
0.25
0.0
0.0
0.5625
0.1875
0.1875
0.0625
0.5
0.5
0.0
0.0
0.375
0.375
0.125
0.125
0.25
0.75
0.0
0.0
0.1875
0.5625
0.0625
0.1875
0.0
1.0
0.0
0.0
0.0
0.75
0.0
0.25
0.75
0.0
0.25
0.0
0.5
0.0
0.5
0.0
0.5625
0.1875
0.1875
0.0625
0.375
0.125
0.375
0.125
0.375
0.375
0.125
0.125
0.25
0.25
0.25
0.25
0.1875
0.5625
0.0625
0.1875
0.125
0.375
0.125
0.375
0.0
0.75
0.0
0.25
0.0
0.5
0.0
0.5
0.5
0.0
0.5
0.0
0.25
0.0
0.75
0.0
0.375
0.125
0.375
0.125
0.1875
0.0625
0.5625
0.1875
0.25
0.25
0.25
0.25
0.125
0.125
0.375
0.375
0.125
0.375
0.125
0.375
0.0625
0.1875
0.1875
0.5625
0.0
0.5
0.0
0.5
0.0
0.25
0.0
0.75
0.25
0.0
0.75
0.0
0.0
0.0
1.0
0.0
0.1875
0.0625
0.5625
0.1875
0.0
0.0
0.75
0.25
0.125
0.125
0.375
0.375
0.0
0.0
0.5
0.5
0.0625
0.1875
0.1875
0.5625
0.0
0.0
0.25
0.75
0.0
0.25
0.0
0.75
0.0
0.0
0.0
1.0
)
)
;; definition for symbol *ocean-trans-st-table*, type (inline-array vector)
(define *ocean-trans-st-table* (new 'static 'inline-array vector 4
(new 'static 'vector :z 1.0)
(new 'static 'vector :x 1.0 :z 1.0)
(new 'static 'vector :y 1.0 :z 1.0)
(new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
)
)
Reference in a new issue View git blame Copy permalink