decomp: finalize rigid-body

goal_src/engine/collide/collide-shape-h.gc

@@ -62,33 +62,35 @@
   :flag-assert         #x900000020
   )
 
+(declare-type collide-shape-prim basic)
 (deftype collide-shape-intersect (basic)
   ((move-vec       vector             :inline :offset-assert 16)
    (best-u         float                      :offset-assert 32)
    (best-tri       collide-tri-result :inline :offset-assert 48)
-   (best-from-prim basic                      :offset-assert 132)
-   (best-to-prim   basic                      :offset-assert 136)
+   (best-from-prim collide-shape-prim                      :offset-assert 132)
+   (best-to-prim   collide-shape-prim                      :offset-assert 136)
    )
   :method-count-assert 10
   :size-assert         #x8c
   :flag-assert         #xa0000008c
   (:methods
-   (dummy-9 () none 9)
-   )
+    (dummy-9 () none 9)
+    )
   )
 
+(declare-type collide-shape-prim basic)
 (deftype collide-overlap-result (structure)
   ((best-dist      float                      :offset-assert 0)
-   (best-from-prim basic                      :offset-assert 4)
-   (best-to-prim   basic                      :offset-assert 8)
+   (best-from-prim collide-shape-prim                      :offset-assert 4)
+   (best-to-prim   collide-shape-prim                      :offset-assert 8)
    (best-from-tri  collide-tri-result :inline :offset-assert 16)
    )
   :method-count-assert 10
   :size-assert         #x64
   :flag-assert         #xa00000064
   (:methods
-   (reset! (_type_) none 9)
-   )
+    (reset! (_type_) none 9)
+    )
   )
 
 (defmethod reset! collide-overlap-result ((obj collide-overlap-result))

goal_src/engine/collide/collide-shape.gc

@@ -5,3 +5,5 @@
 ;; name in dgo: collide-shape
 ;; dgos: GAME, ENGINE
 
+;; TODO - for rigid-body
+(define-extern default-collision-reaction (function collide-shape-moving collide-shape-intersect vector vector none)) ;; TODO - not completely confirmed

goal_src/engine/draw/process-drawable.gc

@@ -7,3 +7,6 @@
 
 ;; TODO - for water-anim
 (define-extern ja-post (function int))
+;; TODO - for rigid-body
+(define-extern rider-post (function int))
+(define-extern transform-post (function int))

goal_src/engine/entity/entity.gc

@@ -117,3 +117,6 @@
    )
   (the-as entity-actor #f)
   )
+
+;; TODO - for rigid-body
+(define-extern process-drawable-from-entity! (function process-drawable object none))

goal_src/engine/gfx/ocean/ocean.gc

@@ -7,3 +7,5 @@
 
 ;; TODO - for ocean-transition
 (define-extern *ocean-map* ocean-map)
+;; TODO - for rigid-body
+(define-extern ocean-get-height (function vector float))

goal_src/kernel-defs.gc

@@ -228,7 +228,7 @@
     )
 
 (declare-type process basic)
-
+(declare-type res-lump basic)
 (deftype process-tree (basic)
   ((name basic :offset-assert 4)
    (mask process-mask :offset-assert 8)
@@ -243,7 +243,7 @@
    (new (symbol type basic) _type_ 0)
    (activate (_type_ process-tree basic pointer) process-tree 9)
    (deactivate  (_type_) none 10)
-   (dummy-method-11 (_type_ object) none 11)
+   (copy-defaults (_type_ res-lump) none 11)
    (run-logic? (_type_) symbol 12)
    (dummy-method () none 13)
    )  

goal_src/kernel/gkernel-h.gc

@@ -212,7 +212,7 @@
     (new (symbol type basic) _type_ 0)
     (activate (_type_ process-tree basic pointer) process-tree 9)
     (deactivate  (_type_) none 10)
-    (dummy-method-11 (_type_ object) none 11)
+    (copy-defaults (_type_ res-lump) none 11)
     (run-logic? (_type_) symbol 12)
     (dummy-method () none 13)
    )  
@@ -246,16 +246,9 @@
    (connection-list connectable :inline :offset-assert #x60)
    (stack uint8 :dynamic :offset-assert #x70)
    )
-  
   (:methods
     (new (symbol type basic int) _type_ 0)
-    (activate (_type_ process-tree basic pointer) process-tree 9)
-    (deactivate  (process) none 10)
-    (dummy-method-11 (_type_ object) none 11)
-    (run-logic? (process) symbol 12)
-    (dummy-method () none 13)
-   )  
-  
+   )
   :size-assert #x70
   :method-count-assert 14
   :no-runtime-type ;; already defined by kscheme. Don't do it again.
@@ -593,4 +586,4 @@
 (defmacro scratchpad-object (type &key (offset 0))
   "Access an object on the scratchpad."
   `(the-as ,type (&+ *fake-scratchpad-data* ,offset))
-  )
+  )

goal_src/levels/common/rigid-body-h.gc

@@ -31,20 +31,20 @@
   :size-assert         #x1a8
   :flag-assert         #x17000001a8
   (:methods
-    (dummy-9 () none 9)
-    (dummy-10 () none 10)
-    (dummy-11 () none 11)
-    (dummy-12 () none 12)
-    (dummy-13 () none 13)
-    (dummy-14 () none 14)
-    (dummy-15 () none 15)
-    (dummy-16 () none 16)
-    (dummy-17 () none 17)
-    (dummy-18 () none 18)
-    (dummy-19 () none 19)
-    (dummy-20 () none 20)
-    (dummy-21 () none 21)
-    (dummy-22 () none 22)
+    (TODO-RENAME-9 (_type_ float float float float) none 9)
+    (dummy-10 (_type_ float) none 10)
+    (clear-force-torque! (_type_) none 11)
+    (clear-momentum! (_type_) none 12)
+    (TODO-RENAME-13 (_type_ vector vector) none 13)
+    (TODO-RENAME-14 (_type_ vector vector) none 14)
+    (TODO-RENAME-15 (_type_ vector) none 15)
+    (TODO-RENAME-16 (_type_ vector vector float) none 16)
+    (TODO-RENAME-17 (_type_ vector vector) vector 17)
+    (TODO-RENAME-18 (_type_ vector) vector 18)
+    (dummy-19 (_type_) none 19)
+    (dummy-20 (_type_) none 20)
+    (TODO-RENAME-21 (_type_) none 21)
+    (TODO-RENAME-22 (_type_ vector quaternion float float) none 22)
     )
   )