mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-10 03:06:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

[decompiler] implement defskelgroup (#955)

Browse Source 
* implement `defskelgroup` in decompiler

0 lines removed!

* clang

* fix matcher code

* it was fine actually

* update all files (pt 1)

* update all files

* remaining fixes!

* null deref

* use METER_LENGTH

* move max lod warning

* clang

* math error

* fix macros too

* fix bug in a print
This commit is contained in:
ManDude
2021-11-04 23:10:39 +00:00
committed by GitHub
parent 6a606d7222
commit 2ea2d6a58a
160 changed files with 2347 additions and 4665 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/decompiler-macros.gc
Vendored
+46 -1
View File
@@ -777,4 +777,49 @@
(send-event-function ,proc event-data)
)
)
)
)
;; vector-h
(defmacro static-spherem (x y z r)
"actually makes a vector"
`(new 'static 'vector :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,r))
)
;; art-h
(defmacro defskelgroup (name art-name joint-geom joint-anim lods
&key (shadow 0)
&key bounds
&key longest-edge
&key (texture-level 0)
&key (sort 0)
&key (version 6) ;; do NOT use this!
)
"define a new static skeleton group"
`(let ((skel (new 'static 'skeleton-group
:art-group-name ,(symbol->string art-name)
:bounds ,bounds
:longest-edge ,longest-edge
:version ,version
:max-lod ,(- (length lods) 1)
:shadow ,shadow
:texture-level ,texture-level
:sort ,sort
)))
;; set joint geometry and joint bones
(set! (-> skel jgeo) ,joint-geom)
(set! (-> skel janim) ,joint-anim)
;; set lods
,@(apply-i (lambda (x i)
`(begin
(set! (-> skel mgeo ,i) ,(car x))
(set! (-> skel lod-dist ,i) ,(cadr x))
)
) lods)
;; define skel group
(define ,name skel)
)
)
test/decompiler/reference/engine/target/target-util_REF.gc
Vendored
+9 -19
View File
@@ -2,25 +2,15 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "eichar"
:bounds
(new 'static 'vector :y 8192.0 :w 12288.0)
:longest-edge (meters 1.0)
:texture-level 2
:version #x6
:shadow 2
:sort 1
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) -1)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *jchar-sg* v1-0)
(defskelgroup *jchar-sg* eichar
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 3)
:longest-edge (meters 1)
:shadow 2
:texture-level 2
:sort 1
)
;; definition for symbol *target-shadow-control*, type shadow-control
test/decompiler/reference/engine/ui/hud-classes_REF.gc
Vendored
+7 -16
View File
@@ -1248,22 +1248,13 @@
)
;; failed to figure out what this is:
(let
((v1-24
(new 'static 'skeleton-group
:art-group-name "fuelcell-naked"
:bounds
(new 'static 'vector :y 4096.0 :w 6553.6)
:texture-level 2
:version #x6
)
)
)
(set! (-> v1-24 jgeo) 0)
(set! (-> v1-24 janim) 2)
(set! (-> v1-24 mgeo 0) 1)
(set! (-> v1-24 lod-dist 0) 4095996000.0)
(set! *fuelcell-naked-sg* v1-24)
(defskelgroup *fuelcell-naked-sg* fuelcell-naked
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 1 0 1.6)
:longest-edge (meters 0)
:texture-level 2
)
;; failed to figure out what this is:
test/decompiler/reference/levels/beach/beach-rocks_REF.gc
Vendored
+6 -15
View File
@@ -2,21 +2,12 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "lrocklrg"
:bounds (new 'static 'vector :w 20480.0)
:longest-edge (meters 11.0)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 2)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *lrocklrg-sg* v1-0)
(defskelgroup *lrocklrg-sg* lrocklrg
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 5)
:longest-edge (meters 11)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/beach/bird-lady-beach_REF.gc
Vendored
+7 -15
View File
@@ -23,21 +23,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "bird-lady-beach"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *bird-lady-beach-sg* v1-1)
(defskelgroup *bird-lady-beach-sg* bird-lady-beach
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; failed to figure out what this is:
test/decompiler/reference/levels/beach/bird-lady_REF.gc
Vendored
+7 -16
View File
@@ -19,22 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "bird-lady"
:bounds
(new 'static 'vector :y 4096.0 :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *bird-lady-sg* v1-1)
(defskelgroup *bird-lady-sg* bird-lady
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 1 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type bird-lady
test/decompiler/reference/levels/beach/lurkercrab_REF.gc
Vendored
+6 -19
View File
@@ -96,25 +96,12 @@
)
;; failed to figure out what this is:
(let
((v1-4
(new 'static 'skeleton-group
:art-group-name "lurkercrab"
:bounds (new 'static 'vector :w 10240.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-4 jgeo) 0)
(set! (-> v1-4 janim) 4)
(set! (-> v1-4 mgeo 0) 1)
(set! (-> v1-4 lod-dist 0) 81920.0)
(set! (-> v1-4 mgeo 1) 2)
(set! (-> v1-4 lod-dist 1) 163840.0)
(set! (-> v1-4 mgeo 2) 3)
(set! (-> v1-4 lod-dist 2) 4095996000.0)
(set! *lurkercrab-sg* v1-4)
(defskelgroup *lurkercrab-sg* lurkercrab
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
)
;; definition for method 44 of type lurkercrab
test/decompiler/reference/levels/beach/lurkerpuppy_REF.gc
Vendored
+7 -20
View File
@@ -19,26 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "lurkerpuppy"
:bounds (new 'static 'vector :w 8192.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *lurkerpuppy-sg* v1-1)
(defskelgroup *lurkerpuppy-sg* lurkerpuppy
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 2)
:longest-edge (meters 0)
:shadow 4
)
;; failed to figure out what this is:
test/decompiler/reference/levels/beach/mayor_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "mayor"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *mayor-sg* v1-1)
(defskelgroup *mayor-sg* mayor
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type mayor
test/decompiler/reference/levels/beach/sculptor_REF.gc
Vendored
+13 -29
View File
@@ -21,38 +21,22 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "sculptor-muse"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *sculptor-muse-sg* v1-1)
(defskelgroup *sculptor-muse-sg* sculptor-muse
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "sculptor"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 4)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *sculptor-sg* v1-2)
(defskelgroup *sculptor-sg* sculptor
0
4
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type sculptor
test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant-lavatube-end"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *assistant-lavatube-end-sg* v1-1)
(defskelgroup *assistant-lavatube-end-sg* assistant-lavatube-end
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type assistant-lavatube-end
test/decompiler/reference/levels/citadel/citb-drop-plat-CIT_REF.gc
Vendored
+30 -85
View File
@@ -2,103 +2,48 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "citb-drop-plat"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 3)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 81920.0)
(set! (-> v1-0 mgeo 1) 2)
(set! (-> v1-0 lod-dist 1) 4095996000.0)
(set! *citb-drop-plat-sg* v1-0)
(defskelgroup *citb-drop-plat-sg* citb-drop-plat
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "citb-drop-plat"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 4)
(set! (-> v1-1 janim) 7)
(set! (-> v1-1 mgeo 0) 5)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 6)
(set! (-> v1-1 lod-dist 1) 4095996000.0)
(set! *citb-drop-plat-red-sg* v1-1)
(defskelgroup *citb-drop-plat-red-sg* citb-drop-plat
4
7
((5 (meters 20)) (6 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "citb-drop-plat"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 8)
(set! (-> v1-2 janim) 11)
(set! (-> v1-2 mgeo 0) 9)
(set! (-> v1-2 lod-dist 0) 81920.0)
(set! (-> v1-2 mgeo 1) 10)
(set! (-> v1-2 lod-dist 1) 4095996000.0)
(set! *citb-drop-plat-green-sg* v1-2)
(defskelgroup *citb-drop-plat-green-sg* citb-drop-plat
8
11
((9 (meters 20)) (10 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "citb-drop-plat"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 12)
(set! (-> v1-3 janim) 15)
(set! (-> v1-3 mgeo 0) 13)
(set! (-> v1-3 lod-dist 0) 81920.0)
(set! (-> v1-3 mgeo 1) 14)
(set! (-> v1-3 lod-dist 1) 4095996000.0)
(set! *citb-drop-plat-blue-sg* v1-3)
(defskelgroup *citb-drop-plat-blue-sg* citb-drop-plat
12
15
((13 (meters 20)) (14 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-4
(new 'static 'skeleton-group
:art-group-name "citb-drop-plat"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-4 jgeo) 16)
(set! (-> v1-4 janim) 19)
(set! (-> v1-4 mgeo 0) 17)
(set! (-> v1-4 lod-dist 0) 81920.0)
(set! (-> v1-4 mgeo 1) 18)
(set! (-> v1-4 lod-dist 1) 4095996000.0)
(set! *citb-drop-plat-yellow-sg* v1-4)
(defskelgroup *citb-drop-plat-yellow-sg* citb-drop-plat
16
19
((17 (meters 20)) (18 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; definition of type drop-plat
test/decompiler/reference/levels/common/babak_REF.gc
Vendored
+7 -22
View File
@@ -19,28 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "babak"
:bounds
(new 'static 'vector :y 8192.0 :w 12288.0)
:max-lod 2
:longest-edge (meters 1.0)
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) -1)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *babak-sg* v1-1)
(defskelgroup *babak-sg* babak
0
-1
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 2 0 3)
:longest-edge (meters 1)
:shadow 4
)
;; failed to figure out what this is:
test/decompiler/reference/levels/common/basebutton_REF.gc
Vendored
+6 -14
View File
@@ -60,20 +60,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "generic-button"
:bounds (new 'static 'vector :w 12288.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *generic-button-sg* v1-1)
(defskelgroup *generic-button-sg* generic-button
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 0)
)
;; definition for method 30 of type basebutton
test/decompiler/reference/levels/common/blocking-plane_REF.gc
Vendored
+6 -14
View File
@@ -19,20 +19,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "ef-plane"
:bounds (new 'static 'vector :w 122880.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *ef-plane-sg* v1-1)
(defskelgroup *ef-plane-sg* ef-plane
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 30)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/common/plat-button_REF.gc
Vendored
+6 -15
View File
@@ -57,21 +57,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "plat-button"
:bounds
(new 'static 'vector :y -4096.0 :w 27033.6)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *plat-button-sg* v1-1)
(defskelgroup *plat-button-sg* plat-button
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -1 0 6.6)
:longest-edge (meters 0)
)
;; definition for method 30 of type plat-button
test/decompiler/reference/levels/common/plat_REF.gc
Vendored
+18 -50
View File
@@ -104,62 +104,30 @@
)
;; failed to figure out what this is:
(let
((v1-4
(new 'static 'skeleton-group
:art-group-name "plat"
:bounds
(new 'static 'vector :y -2048.0 :w 12288.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-4 jgeo) 0)
(set! (-> v1-4 janim) 4)
(set! (-> v1-4 mgeo 0) 1)
(set! (-> v1-4 lod-dist 0) 81920.0)
(set! (-> v1-4 mgeo 1) 2)
(set! (-> v1-4 lod-dist 1) 163840.0)
(set! (-> v1-4 mgeo 2) 3)
(set! (-> v1-4 lod-dist 2) 4095996000.0)
(set! *plat-sg* v1-4)
(defskelgroup *plat-sg* plat
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 -0.5 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-5
(new 'static 'skeleton-group
:art-group-name "plat-jungleb"
:bounds
(new 'static 'vector :y -2048.0 :w 12288.0)
:version #x6
)
)
)
(set! (-> v1-5 jgeo) 0)
(set! (-> v1-5 janim) 4)
(set! (-> v1-5 mgeo 0) 1)
(set! (-> v1-5 lod-dist 0) 4095996000.0)
(set! *plat-jungleb-sg* v1-5)
(defskelgroup *plat-jungleb-sg* plat-jungleb
0
4
((1 (meters 999999)))
:bounds (static-spherem 0 -0.5 0 3)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-6
(new 'static 'skeleton-group
:art-group-name "plat-sunken"
:bounds
(new 'static 'vector :y -2048.0 :w 13107.2)
:version #x6
)
)
)
(set! (-> v1-6 jgeo) 0)
(set! (-> v1-6 janim) 4)
(set! (-> v1-6 mgeo 0) 1)
(set! (-> v1-6 lod-dist 0) 4095996000.0)
(set! *plat-sunken-sg* v1-6)
(defskelgroup *plat-sunken-sg* plat-sunken
0
4
((1 (meters 999999)))
:bounds (static-spherem 0 -0.5 0 3.2)
:longest-edge (meters 0)
)
;; definition for method 23 of type plat
test/decompiler/reference/levels/common/sharkey_REF.gc
Vendored
+6 -14
View File
@@ -82,20 +82,12 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "sharkey"
:bounds (new 'static 'vector :w 24576.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 2)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *sharkey-sg* v1-2)
(defskelgroup *sharkey-sg* sharkey
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 6)
:longest-edge (meters 0)
)
;; definition for method 44 of type sharkey
test/decompiler/reference/levels/common/water-anim_REF.gc
Vendored
+288 -695
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/finalboss/final-door_REF.gc
Vendored
+18 -44
View File
@@ -64,56 +64,30 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "power-left"
:bounds
(new 'static 'vector :y 45056.0 :w 49152.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 2)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *power-left-sg* v1-2)
(defskelgroup *power-left-sg* power-left
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 11 0 12)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "power-right"
:bounds
(new 'static 'vector :y 45056.0 :w 49152.0)
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 0)
(set! (-> v1-3 janim) 2)
(set! (-> v1-3 mgeo 0) 1)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *power-right-sg* v1-3)
(defskelgroup *power-right-sg* power-right
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 11 0 12)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-4
(new 'static 'skeleton-group
:art-group-name "powercellalt"
:bounds (new 'static 'vector :w 8192.0)
:version #x6
)
)
)
(set! (-> v1-4 jgeo) 0)
(set! (-> v1-4 janim) 2)
(set! (-> v1-4 mgeo 0) 1)
(set! (-> v1-4 lod-dist 0) 4095996000.0)
(set! *powercellalt-sg* v1-4)
(defskelgroup *powercellalt-sg* powercellalt
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/finalboss/green-eco-lurker_REF.gc
Vendored
+7 -15
View File
@@ -54,21 +54,13 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "green-eco-lurker"
:bounds (new 'static 'vector :w 24371.2)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *green-eco-lurker-sg* v1-2)
(defskelgroup *green-eco-lurker-sg* green-eco-lurker
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 5.95)
:longest-edge (meters 0)
:shadow 2
)
;; definition for symbol *green-eco-lurker-nav-enemy-info*, type nav-enemy-info
test/decompiler/reference/levels/finalboss/light-eco_REF.gc
Vendored
+12 -28
View File
@@ -80,37 +80,21 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "light-eco"
:bounds (new 'static 'vector :w 36864.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *light-eco-big-sg* v1-2)
(defskelgroup *light-eco-big-sg* light-eco
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 9)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "light-eco"
:bounds (new 'static 'vector :w 6144.0)
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 3)
(set! (-> v1-3 janim) -1)
(set! (-> v1-3 mgeo 0) 4)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *light-eco-small-sg* v1-3)
(defskelgroup *light-eco-small-sg* light-eco
3
-1
((4 (meters 999999)))
:bounds (static-spherem 0 0 0 1.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/finalboss/robotboss-h_REF.gc
Vendored
+6 -16
View File
@@ -180,20 +180,10 @@
)
;; failed to figure out what this is:
(let
((v0-6
(new 'static 'skeleton-group
:art-group-name "robotboss"
:bounds
(new 'static 'vector :y -40960.0 :w 327680.0)
:longest-edge (meters 19.9)
:version #x6
)
)
)
(set! (-> v0-6 jgeo) 0)
(set! (-> v0-6 janim) 2)
(set! (-> v0-6 mgeo 0) 1)
(set! (-> v0-6 lod-dist 0) 4095996000.0)
(set! *robotboss-sg* v0-6)
(defskelgroup *robotboss-sg* robotboss
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -10 0 80)
:longest-edge (meters 19.9)
)
test/decompiler/reference/levels/finalboss/robotboss-misc_REF.gc
Vendored
+24 -59
View File
@@ -2,22 +2,12 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "medres-snowback"
:bounds
(new 'static 'vector :x -1474560.0 :y 409600.0 :z 409600.0 :w 1556480.0)
:longest-edge (meters 0.01)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 2)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *med-res-snow1-sg* v1-0)
(defskelgroup *med-res-snow1-sg* medres-snowback
0
2
((1 (meters 999999)))
:bounds (static-spherem -360 100 100 380)
:longest-edge (meters 0.01)
)
;; failed to figure out what this is:
@@ -147,21 +137,12 @@
)
;; failed to figure out what this is:
(let
((v1-4
(new 'static 'skeleton-group
:art-group-name "ecoclaw"
:bounds
(new 'static 'vector :y 8192.0 :w 36864.0)
:version #x6
)
)
)
(set! (-> v1-4 jgeo) 0)
(set! (-> v1-4 janim) 2)
(set! (-> v1-4 mgeo 0) 1)
(set! (-> v1-4 lod-dist 0) 4095996000.0)
(set! *ecoclaw-sg* v1-4)
(defskelgroup *ecoclaw-sg* ecoclaw
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 9)
:longest-edge (meters 0)
)
;; definition for function ecoclaw-beam-particle-callback
@@ -507,20 +488,12 @@
)
;; failed to figure out what this is:
(let
((v1-10
(new 'static 'skeleton-group
:art-group-name "silodoor"
:bounds (new 'static 'vector :w 102400.0)
:version #x6
)
)
)
(set! (-> v1-10 jgeo) 0)
(set! (-> v1-10 janim) 2)
(set! (-> v1-10 mgeo 0) 1)
(set! (-> v1-10 lod-dist 0) 4095996000.0)
(set! *silodoor-sg* v1-10)
(defskelgroup *silodoor-sg* silodoor
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 25)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
@@ -773,20 +746,12 @@
)
;; failed to figure out what this is:
(let
((v1-17
(new 'static 'skeleton-group
:art-group-name "finalbosscam"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-17 jgeo) 0)
(set! (-> v1-17 janim) 2)
(set! (-> v1-17 mgeo 0) 1)
(set! (-> v1-17 lod-dist 0) 4095996000.0)
(set! *finalbosscam-sg* v1-17)
(defskelgroup *finalbosscam-sg* finalbosscam
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; definition for function robotboss-manipy-trans-hook
test/decompiler/reference/levels/finalboss/robotboss-weapon_REF.gc
Vendored
+18 -43
View File
@@ -298,21 +298,12 @@
)
;; failed to figure out what this is:
(let
((v1-8
(new 'static 'skeleton-group
:art-group-name "darkecobomb"
:bounds
(new 'static 'vector :y 14336.0 :w 24576.0)
:version #x6
)
)
)
(set! (-> v1-8 jgeo) 0)
(set! (-> v1-8 janim) 2)
(set! (-> v1-8 mgeo 0) 1)
(set! (-> v1-8 lod-dist 0) 4095996000.0)
(set! *darkecobomb-sg* v1-8)
(defskelgroup *darkecobomb-sg* darkecobomb
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 3.5 0 6)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
@@ -912,20 +903,12 @@
)
;; failed to figure out what this is:
(let
((v1-17
(new 'static 'skeleton-group
:art-group-name "greenshot"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-17 jgeo) 0)
(set! (-> v1-17 janim) 2)
(set! (-> v1-17 mgeo 0) 1)
(set! (-> v1-17 lod-dist 0) 4095996000.0)
(set! *greenshot-sg* v1-17)
(defskelgroup *greenshot-sg* greenshot
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
@@ -1124,20 +1107,12 @@
)
;; failed to figure out what this is:
(let
((v1-22
(new 'static 'skeleton-group
:art-group-name "redring"
:bounds (new 'static 'vector :w 163840.0)
:version #x6
)
)
)
(set! (-> v1-22 jgeo) 0)
(set! (-> v1-22 janim) 2)
(set! (-> v1-22 mgeo 0) 1)
(set! (-> v1-22 lod-dist 0) 4095996000.0)
(set! *redring-sg* v1-22)
(defskelgroup *redring-sg* redring
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 40)
:longest-edge (meters 0)
)
;; definition for function redshot-trans
test/decompiler/reference/levels/finalboss/robotboss_REF.gc
Vendored
+18 -42
View File
@@ -7,54 +7,30 @@
)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "robotboss-blueeco"
:bounds (new 'static 'vector :w 819200.0)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 2)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *robotboss-blueeco-sg* v1-0)
(defskelgroup *robotboss-blueeco-sg* robotboss-blueeco
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 200)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "robotboss-redeco"
:bounds (new 'static 'vector :w 819200.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *robotboss-redeco-sg* v1-1)
(defskelgroup *robotboss-redeco-sg* robotboss-redeco
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 200)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "robotboss-yelloweco"
:bounds (new 'static 'vector :w 819200.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 2)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *robotboss-yelloweco-sg* v1-2)
(defskelgroup *robotboss-yelloweco-sg* robotboss-yelloweco
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 200)
:longest-edge (meters 0)
)
;; definition for function robotboss-cut-cam-exit
test/decompiler/reference/levels/firecanyon/assistant-firecanyon_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant-firecanyon"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *assistant-firecanyon-sg* v1-1)
(defskelgroup *assistant-firecanyon-sg* assistant-firecanyon
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type assistant-firecanyon
test/decompiler/reference/levels/flut_common/flutflut_REF.gc
Vendored
+8 -16
View File
@@ -75,22 +75,14 @@
)
;; failed to figure out what this is:
(let
((v1-5
(new 'static 'skeleton-group
:art-group-name "flut-saddle"
:bounds (new 'static 'vector :w 14336.0)
:version #x6
:shadow 2
:sort 1
)
)
)
(set! (-> v1-5 jgeo) 0)
(set! (-> v1-5 janim) -1)
(set! (-> v1-5 mgeo 0) 1)
(set! (-> v1-5 lod-dist 0) 4095996000.0)
(set! *flutflut-sg* v1-5)
(defskelgroup *flutflut-sg* flut-saddle
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 3.5)
:longest-edge (meters 0)
:shadow 2
:sort 1
)
;; definition for function flutflut-effect
test/decompiler/reference/levels/intro/evilbro_REF.gc
Vendored
+14 -30
View File
@@ -21,21 +21,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "evilbro"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *evilbro-intro-sg* v1-1)
(defskelgroup *evilbro-intro-sg* evilbro
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type evilbro
@@ -248,21 +240,13 @@
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "evilsis"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 3)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 4095996000.0)
(set! *evilsis-intro-sg* v1-7)
(defskelgroup *evilsis-intro-sg* evilsis
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type evilsis
test/decompiler/reference/levels/jungle/bouncer_REF.gc
Vendored
+6 -14
View File
@@ -26,20 +26,12 @@
(method-set! springbox 12 (method-of-type process run-logic?))
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "bounceytarp"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 2)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *bouncer-sg* v1-2)
(defskelgroup *bouncer-sg* bounceytarp
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc
Vendored
+31 -77
View File
@@ -911,95 +911,49 @@
)
;; failed to figure out what this is:
(let
((v1-16
(new 'static 'skeleton-group
:art-group-name "catch-fisha"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-16 jgeo) 0)
(set! (-> v1-16 janim) 2)
(set! (-> v1-16 mgeo 0) 1)
(set! (-> v1-16 lod-dist 0) 4095996000.0)
(set! *catch-fisha-sg* v1-16)
(defskelgroup *catch-fisha-sg* catch-fisha
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-17
(new 'static 'skeleton-group
:art-group-name "catch-fishb"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-17 jgeo) 0)
(set! (-> v1-17 janim) 2)
(set! (-> v1-17 mgeo 0) 1)
(set! (-> v1-17 lod-dist 0) 4095996000.0)
(set! *catch-fishb-sg* v1-17)
(defskelgroup *catch-fishb-sg* catch-fishb
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-18
(new 'static 'skeleton-group
:art-group-name "catch-fishc"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-18 jgeo) 0)
(set! (-> v1-18 janim) 2)
(set! (-> v1-18 mgeo 0) 1)
(set! (-> v1-18 lod-dist 0) 4095996000.0)
(set! *catch-fishc-sg* v1-18)
(defskelgroup *catch-fishc-sg* catch-fishc
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-19
(new 'static 'skeleton-group
:art-group-name "fish-net"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-19 jgeo) 0)
(set! (-> v1-19 janim) 2)
(set! (-> v1-19 mgeo 0) 1)
(set! (-> v1-19 lod-dist 0) 4095996000.0)
(set! *fish-net-sg* v1-19)
(defskelgroup *fish-net-sg* fish-net
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-20
(new 'static 'skeleton-group
:art-group-name "fisher"
:bounds
(new 'static 'vector :y -24576.0 :w 57344.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-20 jgeo) 0)
(set! (-> v1-20 janim) 6)
(set! (-> v1-20 mgeo 0) 1)
(set! (-> v1-20 lod-dist 0) 81920.0)
(set! (-> v1-20 mgeo 1) 2)
(set! (-> v1-20 lod-dist 1) 163840.0)
(set! (-> v1-20 mgeo 2) 3)
(set! (-> v1-20 lod-dist 2) 4095996000.0)
(set! *fisher-sg* v1-20)
(defskelgroup *fisher-sg* fisher
0
6
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 -6 0 14)
:longest-edge (meters 0)
:shadow 4
)
;; definition for method 52 of type fisher
test/decompiler/reference/levels/jungle/hopper_REF.gc
Vendored
+7 -21
View File
@@ -23,27 +23,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "hopper"
:bounds (new 'static 'vector :w 12288.0)
:max-lod 2
:longest-edge (meters 1.0)
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *hopper-sg* v1-1)
(defskelgroup *hopper-sg* hopper
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 3)
:longest-edge (meters 1)
:shadow 4
)
;; failed to figure out what this is:
test/decompiler/reference/levels/jungle/junglefish_REF.gc
Vendored
+6 -20
View File
@@ -19,26 +19,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "junglefish"
:bounds
(new 'static 'vector :y 4096.0 :w 6144.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 4)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *junglefish-sg* v1-1)
(defskelgroup *junglefish-sg* junglefish
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 1 0 1.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/jungle/junglesnake_REF.gc
Vendored
+6 -16
View File
@@ -2,22 +2,12 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "junglesnake"
:bounds
(new 'static 'vector :y 57344.0 :w 73728.0)
:longest-edge (meters 2.5)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 2)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *junglesnake-sg* v1-0)
(defskelgroup *junglesnake-sg* junglesnake
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 14 0 18)
:longest-edge (meters 2.5)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/jungleb/aphid_REF.gc
Vendored
+7 -16
View File
@@ -21,22 +21,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "aphid-lurker"
:bounds
(new 'static 'vector :y 8192.0 :w 8192.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) -1)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *aphid-sg* v1-1)
(defskelgroup *aphid-sg* aphid-lurker
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 2)
:longest-edge (meters 0)
:shadow 2
)
;; definition for function aphid-invulnerable
test/decompiler/reference/levels/jungleb/plat-flip_REF.gc
Vendored
+6 -14
View File
@@ -38,20 +38,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "plat-flip"
:bounds (new 'static 'vector :w 32768.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *plat-flip-sg* v1-1)
(defskelgroup *plat-flip-sg* plat-flip
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/lavatube/assistant-lavatube_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant-lavatube-start"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *assistant-lavatube-start-sg* v1-1)
(defskelgroup *assistant-lavatube-start-sg* assistant-lavatube-start
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type assistant-lavatube-start
test/decompiler/reference/levels/maincave/baby-spider_REF.gc
Vendored
+7 -21
View File
@@ -101,27 +101,13 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "baby-spider"
:bounds
(new 'static 'vector :y 4096.0 :w 9216.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 81920.0)
(set! (-> v1-2 mgeo 1) 2)
(set! (-> v1-2 lod-dist 1) 163840.0)
(set! (-> v1-2 mgeo 2) 3)
(set! (-> v1-2 lod-dist 2) 4095996000.0)
(set! *baby-spider-sg* v1-2)
(defskelgroup *baby-spider-sg* baby-spider
0
-1
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 1 0 2.25)
:longest-edge (meters 0)
:shadow 4
)
;; definition for symbol *baby-spider-nav-enemy-info*, type nav-enemy-info
test/decompiler/reference/levels/maincave/spiderwebs_REF.gc
Vendored
+6 -14
View File
@@ -57,20 +57,12 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "spiderwebs"
:bounds (new 'static 'vector :w 14336.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *spiderwebs-sg* v1-2)
(defskelgroup *spiderwebs-sg* spiderwebs
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 3.5)
:longest-edge (meters 0)
)
;; definition for function spiderwebs-default-event-handler
test/decompiler/reference/levels/misty/bonelurker_REF.gc
Vendored
+7 -21
View File
@@ -21,27 +21,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "bonelurker"
:bounds
(new 'static 'vector :y 8192.0 :w 24576.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *bonelurker-sg* v1-1)
(defskelgroup *bonelurker-sg* bonelurker
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 2 0 6)
:longest-edge (meters 0)
:shadow 4
)
;; definition for function bonelurker-set-small-bounds-sphere
test/decompiler/reference/levels/misty/misty-conveyor_REF.gc
Vendored
+19 -50
View File
@@ -141,62 +141,31 @@
)
;; failed to figure out what this is:
(let
((v1-6
(new 'static 'skeleton-group
:art-group-name "keg-conveyor"
:bounds
(new 'static 'vector :y -24576.0 :w 32768.0)
:version #x6
)
)
)
(set! (-> v1-6 jgeo) 0)
(set! (-> v1-6 janim) 2)
(set! (-> v1-6 mgeo 0) 1)
(set! (-> v1-6 lod-dist 0) 4095996000.0)
(set! *keg-conveyor-sg* v1-6)
(defskelgroup *keg-conveyor-sg* keg-conveyor
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -6 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "keg-conveyor-paddle"
:bounds
(new 'static 'vector :y -24576.0 :w 32768.0)
:version #x6
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 2)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 4095996000.0)
(set! *keg-conveyor-paddle-sg* v1-7)
(defskelgroup *keg-conveyor-paddle-sg* keg-conveyor-paddle
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -6 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-8
(new 'static 'skeleton-group
:art-group-name "keg"
:bounds (new 'static 'vector :w 16384.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-8 jgeo) 0)
(set! (-> v1-8 janim) 5)
(set! (-> v1-8 mgeo 0) 1)
(set! (-> v1-8 lod-dist 0) 81920.0)
(set! (-> v1-8 mgeo 1) 2)
(set! (-> v1-8 lod-dist 1) 163840.0)
(set! (-> v1-8 mgeo 2) 3)
(set! (-> v1-8 lod-dist 2) 4095996000.0)
(set! *keg-sg* v1-8)
(defskelgroup *keg-sg* keg
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 4
)
;; definition for function keg-update-smush
test/decompiler/reference/levels/misty/misty-teetertotter_REF.gc
Vendored
+6 -19
View File
@@ -25,25 +25,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "teetertotter"
:bounds (new 'static 'vector :w 32768.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 4)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *teetertotter-sg* v1-1)
(defskelgroup *teetertotter-sg* teetertotter
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; definition for function target-on-end-of-teetertotter?
test/decompiler/reference/levels/misty/misty-warehouse_REF.gc
Vendored
+12 -32
View File
@@ -23,21 +23,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "silostep"
:bounds
(new 'static 'vector :y 8192.0 :w 32768.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *silostep-sg* v1-1)
(defskelgroup *silostep-sg* silostep
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
@@ -276,23 +267,12 @@
)
;; failed to figure out what this is:
(let
((v1-6
(new 'static 'skeleton-group
:art-group-name "rounddoor"
:bounds (new 'static 'vector :w 32768.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-6 jgeo) 0)
(set! (-> v1-6 janim) 3)
(set! (-> v1-6 mgeo 0) 1)
(set! (-> v1-6 lod-dist 0) 81920.0)
(set! (-> v1-6 mgeo 1) 2)
(set! (-> v1-6 lod-dist 1) 4095996000.0)
(set! *rounddoor-sg* v1-6)
(defskelgroup *rounddoor-sg* rounddoor
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; definition of type rounddoor
test/decompiler/reference/levels/misty/muse_REF.gc
Vendored
+7 -16
View File
@@ -239,22 +239,13 @@
)
;; failed to figure out what this is:
(let
((v1-5
(new 'static 'skeleton-group
:art-group-name "muse"
:bounds
(new 'static 'vector :y 8192.0 :w 12288.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-5 jgeo) 0)
(set! (-> v1-5 janim) 3)
(set! (-> v1-5 mgeo 0) 1)
(set! (-> v1-5 lod-dist 0) 4095996000.0)
(set! *muse-sg* v1-5)
(defskelgroup *muse-sg* muse
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 3)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 44 of type muse
test/decompiler/reference/levels/misty/sidekick-human_REF.gc
Vendored
+31 -71
View File
@@ -1459,89 +1459,49 @@
)
;; failed to figure out what this is:
(let
((v1-46
(new 'static 'skeleton-group
:art-group-name "sidekick-human"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-46 jgeo) 0)
(set! (-> v1-46 janim) 3)
(set! (-> v1-46 mgeo 0) 1)
(set! (-> v1-46 lod-dist 0) 4095996000.0)
(set! *sidekick-human-sg* v1-46)
(defskelgroup *sidekick-human-sg* sidekick-human
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; failed to figure out what this is:
(let
((v1-47
(new 'static 'skeleton-group
:art-group-name "darkecocan"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-47 jgeo) 0)
(set! (-> v1-47 janim) 4)
(set! (-> v1-47 mgeo 0) 1)
(set! (-> v1-47 lod-dist 0) 4095996000.0)
(set! *darkecocan-sg* v1-47)
(defskelgroup *darkecocan-sg* darkecocan
0
4
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-48
(new 'static 'skeleton-group
:art-group-name "darkecocan"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-48 jgeo) 2)
(set! (-> v1-48 janim) 4)
(set! (-> v1-48 mgeo 0) 3)
(set! (-> v1-48 lod-dist 0) 4095996000.0)
(set! *darkecocan-glow-sg* v1-48)
(defskelgroup *darkecocan-glow-sg* darkecocan
2
4
((3 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-49
(new 'static 'skeleton-group
:art-group-name "evilbro"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-49 jgeo) 0)
(set! (-> v1-49 janim) 3)
(set! (-> v1-49 mgeo 0) 1)
(set! (-> v1-49 lod-dist 0) 4095996000.0)
(set! *evilbro-sg* v1-49)
(defskelgroup *evilbro-sg* evilbro
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-50
(new 'static 'skeleton-group
:art-group-name "evilsis"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-50 jgeo) 0)
(set! (-> v1-50 janim) 3)
(set! (-> v1-50 mgeo 0) 1)
(set! (-> v1-50 lod-dist 0) 4095996000.0)
(set! *evilsis-sg* v1-50)
(defskelgroup *evilsis-sg* evilsis
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; definition of type army-info
test/decompiler/reference/levels/ogre/flying-lurker_REF.gc
Vendored
+19 -57
View File
@@ -2,21 +2,12 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "ogrecam"
:bounds
(new 'static 'vector :y 8192.0 :w 24576.0)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) -1)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *ogrecam-sg* v1-0)
(defskelgroup *ogrecam-sg* ogrecam
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 2 0 6)
:longest-edge (meters 0)
)
;; definition of type plunger-lurker
@@ -41,26 +32,12 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "plunger-lurker"
:bounds
(new 'static 'vector :x 8192.0 :y 16384.0 :w 49152.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 4)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 81920.0)
(set! (-> v1-2 mgeo 1) 2)
(set! (-> v1-2 lod-dist 1) 163840.0)
(set! (-> v1-2 mgeo 2) 3)
(set! (-> v1-2 lod-dist 2) 4095996000.0)
(set! *plunger-lurker-sg* v1-2)
(defskelgroup *plunger-lurker-sg* plunger-lurker
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 2 4 0 12)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
@@ -684,28 +661,13 @@
)
;; failed to figure out what this is:
(let
((v1-8
(new 'static 'skeleton-group
:art-group-name "flying-lurker"
:bounds
(new 'static 'vector :y 8192.0 :w 24576.0)
:max-lod 2
:longest-edge (meters 2.3)
:version #x6
:shadow 4
)
)
)
(set! (-> v1-8 jgeo) 0)
(set! (-> v1-8 janim) 5)
(set! (-> v1-8 mgeo 0) 1)
(set! (-> v1-8 lod-dist 0) 81920.0)
(set! (-> v1-8 mgeo 1) 2)
(set! (-> v1-8 lod-dist 1) 163840.0)
(set! (-> v1-8 mgeo 2) 3)
(set! (-> v1-8 lod-dist 2) 4095996000.0)
(set! *flying-lurker-sg* v1-8)
(defskelgroup *flying-lurker-sg* flying-lurker
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 2 0 6)
:longest-edge (meters 2.3)
:shadow 4
)
;; definition for method 20 of type flying-lurker
test/decompiler/reference/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL_REF.gc
Vendored
+6 -18
View File
@@ -284,22 +284,10 @@
)
;; failed to figure out what this is:
(let
((v0-4
(new 'static 'skeleton-group
:art-group-name "balloon"
:bounds
(new 'static 'vector :y 6963.2 :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v0-4 jgeo) 0)
(set! (-> v0-4 janim) 3)
(set! (-> v0-4 mgeo 0) 1)
(set! (-> v0-4 lod-dist 0) 81920.0)
(set! (-> v0-4 mgeo 1) 2)
(set! (-> v0-4 lod-dist 1) 4095996000.0)
(set! *balloon-sg* v0-4)
(defskelgroup *balloon-sg* balloon
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 1.7 0 3)
:longest-edge (meters 0)
)
test/decompiler/reference/levels/snow/yeti_REF.gc
Vendored
+6 -16
View File
@@ -55,22 +55,12 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "yeti"
:bounds
(new 'static 'vector :y 3072.0 :w 15974.4)
:longest-edge (meters 1.3)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *yeti-sg* v1-2)
(defskelgroup *yeti-sg* yeti
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 0.75 0 3.9)
:longest-edge (meters 1.3)
)
;; definition for symbol *yeti-nav-enemy-info*, type nav-enemy-info
test/decompiler/reference/levels/sunken/qbert-plat_REF.gc
Vendored
+12 -30
View File
@@ -19,21 +19,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "qbert-plat-on"
:bounds
(new 'static 'vector :y -8192.0 :w 18432.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *qbert-plat-on-sg* v1-1)
(defskelgroup *qbert-plat-on-sg* qbert-plat-on
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -2 0 4.5)
:longest-edge (meters 0)
)
;; definition of type qbert-plat
@@ -64,21 +55,12 @@
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "qbert-plat"
:bounds
(new 'static 'vector :y -8192.0 :w 18432.0)
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 0)
(set! (-> v1-3 janim) 2)
(set! (-> v1-3 mgeo 0) 1)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *qbert-plat-sg* v1-3)
(defskelgroup *qbert-plat-sg* qbert-plat
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -2 0 4.5)
:longest-edge (meters 0)
)
;; definition for symbol *qbert-plat-constants*, type rigid-body-platform-constants
test/decompiler/reference/levels/sunken/square-platform_REF.gc
Vendored
+6 -18
View File
@@ -42,24 +42,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "square-platform"
:bounds
(new 'static 'vector :y -45056.0 :w 32768.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 4095996000.0)
(set! *square-platform-sg* v1-1)
(defskelgroup *square-platform-sg* square-platform
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 -11 0 8)
:longest-edge (meters 0)
)
;; definition of type square-platform-button
test/decompiler/reference/levels/sunken/sunken-fish_REF.gc
Vendored
+18 -45
View File
@@ -77,57 +77,30 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "sunkenfisha"
:bounds
(new 'static 'vector :y 6144.0 :w 10240.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) -1)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *sunkenfisha-red-yellow-sg* v1-1)
(defskelgroup *sunkenfisha-red-yellow-sg* sunkenfisha
0
-1
((1 (meters 999999)))
:bounds (static-spherem 0 1.5 0 2.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "sunkenfisha"
:bounds
(new 'static 'vector :y 6144.0 :w 10240.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 2)
(set! (-> v1-2 janim) -1)
(set! (-> v1-2 mgeo 0) 3)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *sunkenfisha-yellow-blue-sg* v1-2)
(defskelgroup *sunkenfisha-yellow-blue-sg* sunkenfisha
2
-1
((3 (meters 999999)))
:bounds (static-spherem 0 1.5 0 2.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "sunkenfisha"
:bounds
(new 'static 'vector :y 6144.0 :w 10240.0)
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 4)
(set! (-> v1-3 janim) -1)
(set! (-> v1-3 mgeo 0) 5)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *sunkenfisha-yellow-eye-sg* v1-3)
(defskelgroup *sunkenfisha-yellow-eye-sg* sunkenfisha
4
-1
((5 (meters 999999)))
:bounds (static-spherem 0 1.5 0 2.5)
:longest-edge (meters 0)
)
;; definition for method 22 of type sunkenfisha
test/decompiler/reference/levels/sunken/wall-plat_REF.gc
Vendored
+6 -15
View File
@@ -30,21 +30,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "wall-plat"
:bounds
(new 'static 'vector :x 4096.0 :y -8192.0 :w 26624.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) -1)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *wall-plat-sg* v1-1)
(defskelgroup *wall-plat-sg* wall-plat
0
-1
((1 (meters 999999)))
:bounds (static-spherem 1 -2 0 6.5)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/sunken/wedge-plats_REF.gc
Vendored
+12 -28
View File
@@ -120,20 +120,12 @@
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "wedge-plat"
:bounds (new 'static 'vector :w 24576.0)
:version #x6
)
)
)
(set! (-> v1-3 jgeo) 0)
(set! (-> v1-3 janim) 2)
(set! (-> v1-3 mgeo 0) 1)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *wedge-plat-sg* v1-3)
(defskelgroup *wedge-plat-sg* wedge-plat
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 6)
:longest-edge (meters 0)
)
;; definition for method 27 of type wedge-plat
@@ -404,20 +396,12 @@
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "wedge-plat-outer"
:bounds (new 'static 'vector :w 32768.0)
:version #x6
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 2)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 4095996000.0)
(set! *wedge-plat-outer-sg* v1-7)
(defskelgroup *wedge-plat-outer-sg* wedge-plat-outer
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; definition for method 27 of type wedge-plat-outer
test/decompiler/reference/levels/swamp/swamp-bat_REF.gc
Vendored
+6 -19
View File
@@ -220,25 +220,12 @@ swamp-bat-slave-event-handler
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "swamp-bat"
:bounds (new 'static 'vector :w 10240.0)
:max-lod 2
:version #x6
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 4)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 81920.0)
(set! (-> v1-7 mgeo 1) 2)
(set! (-> v1-7 lod-dist 1) 163840.0)
(set! (-> v1-7 mgeo 2) 3)
(set! (-> v1-7 lod-dist 2) 4095996000.0)
(set! *swamp-bat-slave-sg* v1-7)
(defskelgroup *swamp-bat-slave-sg* swamp-bat
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
)
;; definition for function swamp-bat-slave-get-new-path
test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc
Vendored
+18 -48
View File
@@ -1731,60 +1731,30 @@ swamp-rat-nest-default-event-handler
)
;; failed to figure out what this is:
(let
((v1-51
(new 'static 'skeleton-group
:art-group-name "swamp-rat-nest"
:bounds (new 'static 'vector :w 32768.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-51 jgeo) 0)
(set! (-> v1-51 janim) 3)
(set! (-> v1-51 mgeo 0) 1)
(set! (-> v1-51 lod-dist 0) 81920.0)
(set! (-> v1-51 mgeo 1) 2)
(set! (-> v1-51 lod-dist 1) 4095996000.0)
(set! *swamp-rat-nest-dummy-a-sg* v1-51)
(defskelgroup *swamp-rat-nest-dummy-a-sg* swamp-rat-nest
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-52
(new 'static 'skeleton-group
:art-group-name "swamp-rat-nest"
:bounds (new 'static 'vector :w 32768.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v1-52 jgeo) 4)
(set! (-> v1-52 janim) 7)
(set! (-> v1-52 mgeo 0) 5)
(set! (-> v1-52 lod-dist 0) 81920.0)
(set! (-> v1-52 mgeo 1) 6)
(set! (-> v1-52 lod-dist 1) 4095996000.0)
(set! *swamp-rat-nest-dummy-b-sg* v1-52)
(defskelgroup *swamp-rat-nest-dummy-b-sg* swamp-rat-nest
4
7
((5 (meters 20)) (6 (meters 999999)))
:bounds (static-spherem 0 0 0 8)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-53
(new 'static 'skeleton-group
:art-group-name "swamp-rat-nest"
:bounds (new 'static 'vector :w 20480.0)
:version #x6
)
)
)
(set! (-> v1-53 jgeo) 8)
(set! (-> v1-53 janim) 11)
(set! (-> v1-53 mgeo 0) 9)
(set! (-> v1-53 lod-dist 0) 4095996000.0)
(set! *swamp-rat-nest-dummy-c-sg* v1-53)
(defskelgroup *swamp-rat-nest-dummy-c-sg* swamp-rat-nest
8
11
((9 (meters 999999)))
:bounds (static-spherem 0 0 0 5)
:longest-edge (meters 0)
)
;; definition for method 20 of type swamp-rat-nest-dummy-a
test/decompiler/reference/levels/swamp/swamp-rat_REF.gc
Vendored
+6 -21
View File
@@ -41,27 +41,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "swamp-rat"
:bounds
(new 'static 'vector :y 4096.0 :w 16384.0)
:max-lod 2
:longest-edge (meters 1.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 4)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *swamp-rat-sg* v1-1)
(defskelgroup *swamp-rat-sg* swamp-rat
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 1 0 4)
:longest-edge (meters 1)
)
;; definition for method 44 of type swamp-rat
test/decompiler/reference/levels/village1/assistant_REF.gc
Vendored
+7 -15
View File
@@ -21,21 +21,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant"
:bounds (new 'static 'vector :w 8192.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *assistant-sg* v1-1)
(defskelgroup *assistant-sg* assistant
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type assistant
test/decompiler/reference/levels/village1/explorer_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "explorer"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *explorer-sg* v1-1)
(defskelgroup *explorer-sg* explorer
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type explorer
test/decompiler/reference/levels/village1/farmer_REF.gc
Vendored
+7 -18
View File
@@ -19,24 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "farmer"
:bounds (new 'static 'vector :w 16384.0)
:max-lod 1
:version #x6
:shadow 3
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 4)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 4095996000.0)
(set! *farmer-sg* v1-1)
(defskelgroup *farmer-sg* farmer
0
4
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 3
)
;; definition for method 32 of type farmer
test/decompiler/reference/levels/village1/fishermans-boat_REF.gc
Vendored
+18 -47
View File
@@ -718,59 +718,30 @@
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "fishermans-boat"
:bounds
(new 'static 'vector :y 12288.0 :w 61440.0)
:max-lod 1
:longest-edge (meters 7.3)
:version #x6
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 3)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 81920.0)
(set! (-> v1-7 mgeo 1) 2)
(set! (-> v1-7 lod-dist 1) 4095996000.0)
(set! *fishermans-boat-sg* v1-7)
(defskelgroup *fishermans-boat-sg* fishermans-boat
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 3 0 15)
:longest-edge (meters 7.3)
)
;; failed to figure out what this is:
(let
((v1-8
(new 'static 'skeleton-group
:art-group-name "evilbro"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-8 jgeo) 0)
(set! (-> v1-8 janim) 3)
(set! (-> v1-8 mgeo 0) 1)
(set! (-> v1-8 lod-dist 0) 4095996000.0)
(set! *fb-evilbro-sg* v1-8)
(defskelgroup *fb-evilbro-sg* evilbro
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(let
((v1-9
(new 'static 'skeleton-group
:art-group-name "evilsis"
:bounds (new 'static 'vector :w 4096.0)
:version #x6
)
)
)
(set! (-> v1-9 jgeo) 0)
(set! (-> v1-9 janim) 3)
(set! (-> v1-9 mgeo 0) 1)
(set! (-> v1-9 lod-dist 0) 4095996000.0)
(set! *fb-evilsis-sg* v1-9)
(defskelgroup *fb-evilsis-sg* evilsis
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 1)
:longest-edge (meters 0)
)
;; definition for method 23 of type fishermans-boat
test/decompiler/reference/levels/village1/sage_REF.gc
Vendored
+7 -15
View File
@@ -23,21 +23,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "sage"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 4)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *sage-sg* v1-1)
(defskelgroup *sage-sg* sage
0
4
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type sage
test/decompiler/reference/levels/village1/yakow_REF.gc
Vendored
+13 -34
View File
@@ -2,20 +2,12 @@
(in-package goal)
;; failed to figure out what this is:
(let
((v1-0
(new 'static 'skeleton-group
:art-group-name "village1cam"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-0 jgeo) 0)
(set! (-> v1-0 janim) 2)
(set! (-> v1-0 mgeo 0) 1)
(set! (-> v1-0 lod-dist 0) 4095996000.0)
(set! *village1cam-sg* v1-0)
(defskelgroup *village1cam-sg* village1cam
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; definition for function yakow-cam
@@ -211,26 +203,13 @@
)
;; failed to figure out what this is:
(let
((v1-5
(new 'static 'skeleton-group
:art-group-name "yakow"
:bounds
(new 'static 'vector :y 10240.0 :w 18022.4)
:max-lod 1
:longest-edge (meters 1.3)
:version #x6
:shadow 3
)
)
)
(set! (-> v1-5 jgeo) 0)
(set! (-> v1-5 janim) 4)
(set! (-> v1-5 mgeo 0) 1)
(set! (-> v1-5 lod-dist 0) 81920.0)
(set! (-> v1-5 mgeo 1) 2)
(set! (-> v1-5 lod-dist 1) 4095996000.0)
(set! *yakow-sg* v1-5)
(defskelgroup *yakow-sg* yakow
0
4
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 2.5 0 4.4)
:longest-edge (meters 1.3)
:shadow 3
)
;; definition for function yakow-default-event-handler
test/decompiler/reference/levels/village2/assistant-village2_REF.gc
Vendored
+13 -34
View File
@@ -50,43 +50,22 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant-village2"
:bounds (new 'static 'vector :w 8192.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *assistant-village2-sg* v1-1)
(defskelgroup *assistant-village2-sg* assistant-village2
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 2)
:longest-edge (meters 0)
:shadow 4
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "jaws"
:bounds (new 'static 'vector :w 1024.0)
:version #x6
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 2)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *jaws-sg* v1-2)
(defskelgroup *jaws-sg* jaws
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 0.25)
:longest-edge (meters 0)
)
;; definition for method 52 of type assistant-levitator
test/decompiler/reference/levels/village2/flutflut-bluehut_REF.gc
Vendored
+6 -14
View File
@@ -19,20 +19,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "flutflut-bluehut"
:bounds (new 'static 'vector :w 13312.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *flutflut-bluehut-sg* v1-1)
(defskelgroup *flutflut-bluehut-sg* flutflut-bluehut
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 3.25)
:longest-edge (meters 0)
)
;; definition for method 32 of type flutflut-bluehut
test/decompiler/reference/levels/village2/gambler_REF.gc
Vendored
+7 -20
View File
@@ -19,26 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "gambler"
:bounds (new 'static 'vector :w 16384.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *gambler-sg* v1-1)
(defskelgroup *gambler-sg* gambler
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 4
)
;; definition for method 32 of type gambler
test/decompiler/reference/levels/village2/geologist_REF.gc
Vendored
+7 -20
View File
@@ -19,26 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "geologist"
:bounds (new 'static 'vector :w 16384.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *geologist-sg* v1-1)
(defskelgroup *geologist-sg* geologist
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 4
)
;; definition for method 32 of type geologist
test/decompiler/reference/levels/village2/sage-bluehut_REF.gc
Vendored
+7 -15
View File
@@ -48,21 +48,13 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "sage-bluehut"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 3)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *sage-bluehut-sg* v1-2)
(defskelgroup *sage-bluehut-sg* sage-bluehut
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type sage-bluehut
test/decompiler/reference/levels/village2/sunken-elevator_REF.gc
Vendored
+6 -15
View File
@@ -29,21 +29,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "sunken-elevator"
:bounds
(new 'static 'vector :y -4096.0 :w 27033.6)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *sunken-elevator-sg* v1-1)
(defskelgroup *sunken-elevator-sg* sunken-elevator
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 -1 0 6.6)
:longest-edge (meters 0)
)
;; definition for method 30 of type sunken-elevator
test/decompiler/reference/levels/village2/warrior_REF.gc
Vendored
+7 -20
View File
@@ -19,26 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "warrior"
:bounds (new 'static 'vector :w 16384.0)
:max-lod 2
:version #x6
:shadow 4
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 5)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 81920.0)
(set! (-> v1-1 mgeo 1) 2)
(set! (-> v1-1 lod-dist 1) 163840.0)
(set! (-> v1-1 mgeo 2) 3)
(set! (-> v1-1 lod-dist 2) 4095996000.0)
(set! *warrior-sg* v1-1)
(defskelgroup *warrior-sg* warrior
0
5
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 4
)
;; definition for method 52 of type warrior
test/decompiler/reference/levels/village3/assistant-village3_REF.gc
Vendored
+7 -15
View File
@@ -19,21 +19,13 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "assistant-village3"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *assistant-village3-sg* v1-1)
(defskelgroup *assistant-village3-sg* assistant-village3
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type assistant-villagec
test/decompiler/reference/levels/village3/miners_REF.gc
Vendored
+20 -44
View File
@@ -49,21 +49,13 @@
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "minertall"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 3)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *minertall-sg* v1-2)
(defskelgroup *minertall-sg* minertall
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 52 of type minertall
@@ -175,21 +167,13 @@
)
;; failed to figure out what this is:
(let
((v1-7
(new 'static 'skeleton-group
:art-group-name "minershort"
:bounds (new 'static 'vector :w 10240.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-7 jgeo) 0)
(set! (-> v1-7 janim) 3)
(set! (-> v1-7 mgeo 0) 1)
(set! (-> v1-7 lod-dist 0) 4095996000.0)
(set! *minershort-sg* v1-7)
(defskelgroup *minershort-sg* minershort
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 2.5)
:longest-edge (meters 0)
:shadow 2
)
;; failed to figure out what this is:
@@ -922,20 +906,12 @@
)
;; failed to figure out what this is:
(let
((v1-18
(new 'static 'skeleton-group
:art-group-name "cavegem"
:bounds (new 'static 'vector :w 36864.0)
:version #x6
)
)
)
(set! (-> v1-18 jgeo) 0)
(set! (-> v1-18 janim) 2)
(set! (-> v1-18 mgeo 0) 1)
(set! (-> v1-18 lod-dist 0) 4095996000.0)
(set! *cavegem-sg* v1-18)
(defskelgroup *cavegem-sg* cavegem
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 9)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
test/decompiler/reference/levels/village3/sage-village3_REF.gc
Vendored
+21 -45
View File
@@ -25,57 +25,33 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "sage-village3"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 3)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *sage-village3-sg* v1-1)
(defskelgroup *sage-village3-sg* sage-village3
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; failed to figure out what this is:
(let
((v1-2
(new 'static 'skeleton-group
:art-group-name "evilbro-village3"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-2 jgeo) 0)
(set! (-> v1-2 janim) 3)
(set! (-> v1-2 mgeo 0) 1)
(set! (-> v1-2 lod-dist 0) 4095996000.0)
(set! *evilbro-village3-sg* v1-2)
(defskelgroup *evilbro-village3-sg* evilbro-village3
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; failed to figure out what this is:
(let
((v1-3
(new 'static 'skeleton-group
:art-group-name "evilsis-village3"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
:shadow 2
)
)
)
(set! (-> v1-3 jgeo) 0)
(set! (-> v1-3 janim) 3)
(set! (-> v1-3 mgeo 0) 1)
(set! (-> v1-3 lod-dist 0) 4095996000.0)
(set! *evilsis-village3-sg* v1-3)
(defskelgroup *evilsis-village3-sg* evilsis-village3
0
3
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
:shadow 2
)
;; definition for method 32 of type sage-villagec
test/decompiler/reference/levels/village_common/oracle_REF.gc
Vendored
+6 -14
View File
@@ -27,20 +27,12 @@
)
;; failed to figure out what this is:
(let
((v1-1
(new 'static 'skeleton-group
:art-group-name "oracle"
:bounds (new 'static 'vector :w 16384.0)
:version #x6
)
)
)
(set! (-> v1-1 jgeo) 0)
(set! (-> v1-1 janim) 2)
(set! (-> v1-1 mgeo 0) 1)
(set! (-> v1-1 lod-dist 0) 4095996000.0)
(set! *oracle-sg* v1-1)
(defskelgroup *oracle-sg* oracle
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; definition for method 32 of type oracle