mirror of
https://github.com/open-goal/jak-project
synced 2026-09-10 04:22:13 -04:00
[bones] Part 1: Joint (#1110)
* joints * bones * align spr to 16k * fix bug * lack of sound hack * clean up
This commit is contained in:
water111
+6
-6
@@ -3,12 +3,12 @@
|
||||
|
||||
;; definition of type collide-using-spheres-params
|
||||
(deftype collide-using-spheres-params (structure)
|
||||
((spheres (pointer sphere) :offset-assert 0)
|
||||
(num-spheres uint32 :offset-assert 4)
|
||||
(collide-with collide-kind :offset-assert 8)
|
||||
(proc process-drawable :offset-assert 16)
|
||||
(ignore-pat uint32 :offset-assert 20)
|
||||
(solid-only basic :offset-assert 24)
|
||||
((spheres (inline-array sphere) :offset-assert 0)
|
||||
(num-spheres uint32 :offset-assert 4)
|
||||
(collide-with collide-kind :offset-assert 8)
|
||||
(proc process-drawable :offset-assert 16)
|
||||
(ignore-pat uint32 :offset-assert 20)
|
||||
(solid-only basic :offset-assert 24)
|
||||
)
|
||||
:method-count-assert 9
|
||||
:size-assert #x1c
|
||||
|
||||
+66
-276
@@ -876,292 +876,82 @@
|
||||
)
|
||||
|
||||
;; definition for function foreground-engine-execute
|
||||
;; WARN: Type Propagation failed: Failed type prop at op 114 ((set! a0 (l.wu (+ v1 276)))): Could not get type of load: (set! a0 (l.wu (+ v1 276))).
|
||||
;; WARN: Type Propagation failed: Type analysis failed
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
;; WARN: Unsupported inline assembly instruction kind - [sync.l]
|
||||
;; WARN: Unsupported inline assembly instruction kind - [cache dxwbin v1, 0]
|
||||
;; WARN: Unsupported inline assembly instruction kind - [sync.l]
|
||||
;; WARN: Unsupported inline assembly instruction kind - [cache dxwbin v1, 1]
|
||||
;; WARN: Unsupported inline assembly instruction kind - [sync.l]
|
||||
(defun foreground-engine-execute ((a0-0 engine) (a1-0 display-frame) (a2-0 int) (a3-0 int))
|
||||
(local-vars
|
||||
(v0-0 profile-frame)
|
||||
(v0-1 none)
|
||||
(v0-2 int)
|
||||
(v0-3 none)
|
||||
(v0-4 profile-frame)
|
||||
(v0-5 none)
|
||||
(v0-6 none)
|
||||
(v1-0 display)
|
||||
(v1-1 int)
|
||||
(v1-2 display-frame)
|
||||
(v1-3 dma-buffer)
|
||||
(v1-4 symbol)
|
||||
(v1-6 display)
|
||||
(v1-7 int)
|
||||
(v1-8 display-frame)
|
||||
(v1-9 type)
|
||||
(v1-11 int)
|
||||
(v1-12 int)
|
||||
(v1-13 int)
|
||||
(v1-14 pointer)
|
||||
(v1-15 int)
|
||||
(v1-16 type)
|
||||
(v1-19 symbol)
|
||||
(v1-20 display)
|
||||
(v1-21 int)
|
||||
(v1-22 display-frame)
|
||||
(v1-23 type)
|
||||
(v1-24 memory-usage-block)
|
||||
(v1-25 vu1-renderer-mask)
|
||||
(v1-26 vu1-renderer-mask)
|
||||
(v1-28 merc-globals)
|
||||
(v1-29 uint)
|
||||
(v1-31 display)
|
||||
(v1-32 int)
|
||||
(v1-33 display-frame)
|
||||
(v1-34 dma-buffer)
|
||||
(v1-35 level-group)
|
||||
(v1-36 int)
|
||||
(v1-37 int)
|
||||
(v1-39 none)
|
||||
(v1-41 none)
|
||||
(a0-1 display)
|
||||
(a0-2 int)
|
||||
(a0-3 int)
|
||||
(a0-4 display)
|
||||
(a0-5 int)
|
||||
(a0-6 int)
|
||||
(a0-7 profile-bar)
|
||||
(a0-8 int)
|
||||
(a0-9 int)
|
||||
(a0-10 level-group)
|
||||
(a0-11 dma-buffer)
|
||||
(a0-12 engine)
|
||||
(a0-14 display)
|
||||
(a0-15 int)
|
||||
(a0-16 int)
|
||||
(a0-17 profile-bar)
|
||||
(a0-19 display)
|
||||
(a0-20 int)
|
||||
(a0-21 int)
|
||||
(a0-22 int)
|
||||
(a0-23 int)
|
||||
(a0-24 int)
|
||||
(a0-25 none)
|
||||
(a0-26 none)
|
||||
(a0-27 none)
|
||||
(a0-28 none)
|
||||
(a1-1 symbol)
|
||||
(a1-2 int)
|
||||
(a1-3 dma-buffer)
|
||||
(a1-4 symbol)
|
||||
(a1-6 int)
|
||||
(a1-7 int)
|
||||
(a1-8 string)
|
||||
(a1-9 int)
|
||||
(a1-10 int)
|
||||
(a1-11 int)
|
||||
(a1-12 int)
|
||||
(a1-13 int)
|
||||
(a1-15 none)
|
||||
(a1-16 none)
|
||||
(a1-17 none)
|
||||
(a1-18 none)
|
||||
(a1-19 none)
|
||||
(a1-20 none)
|
||||
(a1-21 none)
|
||||
(a1-22 none)
|
||||
(a2-1 uint)
|
||||
(a2-2 uint)
|
||||
(a2-3 int)
|
||||
(a2-4 display)
|
||||
(a2-5 int)
|
||||
(a2-6 display-frame)
|
||||
(a2-7 dma-buffer)
|
||||
(a2-8 pointer)
|
||||
(a2-9 int)
|
||||
(a2-10 none)
|
||||
(a2-11 none)
|
||||
(a2-12 none)
|
||||
(a2-13 none)
|
||||
(a2-14 none)
|
||||
(a2-15 none)
|
||||
(a2-16 none)
|
||||
(a3-1 display)
|
||||
(a3-2 int)
|
||||
(a3-3 int)
|
||||
(a3-4 none)
|
||||
(a3-5 none)
|
||||
(a3-6 none)
|
||||
(s2-1 dma-buffer)
|
||||
(s4-0 pointer)
|
||||
(s4-1 pointer)
|
||||
(t9-0 (function profile-bar symbol rgba profile-frame))
|
||||
(t9-1 (function dma-buffer dma-foreground-sink-group none))
|
||||
(t9-2 (function engine object int))
|
||||
(t9-3 (function none))
|
||||
(t9-4 (function profile-bar symbol rgba profile-frame))
|
||||
(t9-5 none)
|
||||
)
|
||||
(when (begin
|
||||
(when (begin
|
||||
(when (begin
|
||||
(set! v1-0 *display*)
|
||||
(set! a0-1 *display*)
|
||||
(set! a0-2 (-> a0-1 on-screen))
|
||||
(set! a0-3 (sll a0-2 5))
|
||||
(set! v1-1 (+ v1-0 a0-3))
|
||||
(set! v1-2 (dynamic-array-field-access v1-1 frames PLACEHOLDER frame))
|
||||
(set! v1-3 (-> v1-2 global-buf))
|
||||
(set! s4-0 (-> v1-3 base))
|
||||
(set! v1-4 *debug-segment*)
|
||||
v1-4
|
||||
)
|
||||
(set! v1-6 *display*)
|
||||
(set! a0-4 *display*)
|
||||
(set! a0-5 (-> a0-4 on-screen))
|
||||
(set! a0-6 (sll a0-5 5))
|
||||
(set! v1-7 (+ v1-6 a0-6))
|
||||
(set! v1-8 (dynamic-array-field-access v1-7 frames PLACEHOLDER frame))
|
||||
(set! a0-7 (-> v1-8 profile-bar 0))
|
||||
(set! v1-9 (-> a0-7 type))
|
||||
(set! t9-0 (method-of-type v1-9 add-frame))
|
||||
(set! a1-1 'draw)
|
||||
(set! a2-1 (the-as uint #x80400040))
|
||||
(call! a0-7 a1-1 a2-1)
|
||||
(set! v1-10 v0-0)
|
||||
)
|
||||
(set! v1-11 (sll a3-0 5))
|
||||
(set! v1-12 (+ v1-11 272))
|
||||
(set! a0-8 2608)
|
||||
(set! a0-9 (*.si a0-8 a2-0))
|
||||
(set! v1-13 (+ v1-12 a0-9))
|
||||
(set! a0-10 *level*)
|
||||
(set! a1-2 (+ v1-13 a0-10))
|
||||
(set! s2-1 (-> a1-0 global-buf))
|
||||
(set! v1-14 (-> s2-1 base))
|
||||
(.sync.l)
|
||||
(.cache dxwbin v1-14 0)
|
||||
(.sync.l)
|
||||
(.cache dxwbin v1-14 1)
|
||||
(.sync.l)
|
||||
(set! v1-15 0)
|
||||
(set! t9-1 bones-init)
|
||||
(set! a0-11 s2-1)
|
||||
(call! a0-11 a1-2)
|
||||
(set! v1-16 (-> a0-0 type))
|
||||
(set! t9-2 (method-of-type v1-16 execute-connections))
|
||||
(set! a0-12 a0-0)
|
||||
(set! a1-3 s2-1)
|
||||
(call! a0-12 a1-3)
|
||||
(set! v1-17 v0-2)
|
||||
(set! t9-3 bones-wrapup)
|
||||
(call!)
|
||||
(set! v1-18 v0-3)
|
||||
(set! v1-19 *debug-segment*)
|
||||
v1-19
|
||||
)
|
||||
(set! v1-20 *display*)
|
||||
(set! a0-14 *display*)
|
||||
(set! a0-15 (-> a0-14 on-screen))
|
||||
(set! a0-16 (sll a0-15 5))
|
||||
(set! v1-21 (+ v1-20 a0-16))
|
||||
(set! v1-22 (dynamic-array-field-access v1-21 frames PLACEHOLDER frame))
|
||||
(set! a0-17 (-> v1-22 profile-bar 0))
|
||||
(set! v1-23 (-> a0-17 type))
|
||||
(set! t9-4 (method-of-type v1-23 add-frame))
|
||||
(set! a1-4 'draw)
|
||||
(set! a2-2 (the-as uint #x808255be))
|
||||
(call! a0-17 a1-4 a2-2)
|
||||
(set! a0-18 v0-4)
|
||||
)
|
||||
(when (begin (set! v1-24 *dma-mem-usage*) (nonzero? v1-24))
|
||||
(set! a1-6 36)
|
||||
(set! a2-3 (-> v1-24 length))
|
||||
(set! a1-7 (max.si a1-6 a2-3))
|
||||
(set! (-> v1-24 length) a1-7)
|
||||
(set! a1-8 L171)
|
||||
(set! (-> v1-24 data 35 name) a1-8)
|
||||
(set! a1-9 (-> v1-24 data 35 count))
|
||||
(set! a1-10 (+ a1-9 1))
|
||||
(set! (-> v1-24 data 35 count) a1-10)
|
||||
(set! a1-11 (-> v1-24 data 35 used))
|
||||
(set! a2-4 *display*)
|
||||
(set! a3-1 *display*)
|
||||
(set! a3-2 (-> a3-1 on-screen))
|
||||
(set! a3-3 (sll a3-2 5))
|
||||
(set! a2-5 (+ a2-4 a3-3))
|
||||
(set! a2-6 (dynamic-array-field-access a2-5 frames PLACEHOLDER frame))
|
||||
(set! a2-7 (-> a2-6 global-buf))
|
||||
(set! a2-8 (-> a2-7 base))
|
||||
(set! a2-9 (- a2-8 s4-0))
|
||||
(set! a1-12 (+ a1-11 a2-9))
|
||||
(set! (-> v1-24 data 35 used) a1-12)
|
||||
(set! a1-13 (-> v1-24 data 35 used))
|
||||
(set! (-> v1-24 data 35 total) a1-13)
|
||||
)
|
||||
(set! v1-25 *vu1-enable-user*)
|
||||
(set! v1-26 (logand v1-25 512))
|
||||
(nonzero? v1-26)
|
||||
(defun foreground-engine-execute ((arg0 engine) (arg1 display-frame) (arg2 int) (arg3 int))
|
||||
(let ((s4-0 (-> *display* frames (-> *display* on-screen) frame global-buf base)))
|
||||
(if *debug-segment*
|
||||
(add-frame
|
||||
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
||||
'draw
|
||||
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
||||
)
|
||||
(when (begin (set! v1-28 *merc-globals*) (set! v1-29 (-> v1-28 first)) (nonzero? v1-29))
|
||||
(when (begin
|
||||
(set! v1-31 *display*)
|
||||
(set! a0-19 *display*)
|
||||
(set! a0-20 (-> a0-19 on-screen))
|
||||
(set! a0-21 (sll a0-20 5))
|
||||
(set! v1-32 (+ v1-31 a0-21))
|
||||
(set! v1-33 (dynamic-array-field-access v1-32 frames PLACEHOLDER frame))
|
||||
(set! v1-34 (-> v1-33 global-buf))
|
||||
(set! s4-1 (-> v1-34 base))
|
||||
(set! v1-35 *level*)
|
||||
(set! a0-22 2608)
|
||||
(set! a0-23 (*.si a0-22 a2-0))
|
||||
(set! v1-36 (+ v1-35 a0-23))
|
||||
(set! a0-24 (sll a3-0 5))
|
||||
(set! v1-37 (+ v1-36 a0-24))
|
||||
(set! a0-25 (the-as none (l.wu (+ v1-37 276))))
|
||||
(set! t9-5 (the-as none generic-merc-add-to-cue))
|
||||
(call!)
|
||||
(set! v1-38 (the-as none v0-5))
|
||||
(set! a0-26 (the-as none *dma-mem-usage*))
|
||||
(nonzero? a0-26)
|
||||
)
|
||||
(set! a1-15 (the-as none 87))
|
||||
(set! a2-10 (the-as none (l.w (+ a0-26 4))))
|
||||
(set! a1-16 (the-as none (max.si a1-15 a2-10)))
|
||||
(s.w! (+ a0-26 4) a1-16)
|
||||
(set! a1-17 (the-as none L170))
|
||||
(s.w! (+ a0-26 1388) a1-17)
|
||||
(set! a1-18 (the-as none (l.w (+ a0-26 1392))))
|
||||
(set! a1-19 (the-as none (+ a1-18 1)))
|
||||
(s.w! (+ a0-26 1392) a1-19)
|
||||
(set! a1-20 (the-as none (l.w (+ a0-26 1396))))
|
||||
(set! a2-11 (the-as none *display*))
|
||||
(set! a3-4 (the-as none *display*))
|
||||
(set! a3-5 (the-as none (l.w (+ a3-4 556))))
|
||||
(set! a3-6 (the-as none (sll a3-5 5)))
|
||||
(set! a2-12 (the-as none (+ a2-11 a3-6)))
|
||||
(set! a2-13 (the-as none (l.wu (+ a2-12 580))))
|
||||
(set! a2-14 (the-as none (l.wu (+ a2-13 36))))
|
||||
(set! a2-15 (the-as none (l.wu (+ a2-14 4))))
|
||||
(set! a2-16 (the-as none (- a2-15 s4-1)))
|
||||
(set! a1-21 (the-as none (+ a1-20 a2-16)))
|
||||
(s.w! (+ a0-26 1396) a1-21)
|
||||
(set! a1-22 (the-as none (l.w (+ a0-26 1396))))
|
||||
(s.w! (+ a0-26 1400) a1-22)
|
||||
)
|
||||
(let ((a1-2 (+ (+ (* arg3 32) 272 (* 2608 arg2)) (the-as int *level*)))
|
||||
(s2-1 (-> arg1 global-buf))
|
||||
)
|
||||
(let ((v1-14 (-> s2-1 base)))
|
||||
(.sync.l)
|
||||
(.cache dxwbin v1-14 0)
|
||||
(.sync.l)
|
||||
(.cache dxwbin v1-14 1)
|
||||
)
|
||||
(.sync.l)
|
||||
0
|
||||
(bones-init s2-1 (the-as dma-foreground-sink-group a1-2))
|
||||
(execute-connections arg0 s2-1)
|
||||
)
|
||||
(bones-wrapup)
|
||||
(if *debug-segment*
|
||||
(add-frame
|
||||
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
||||
'draw
|
||||
(new 'static 'rgba :r #xbe :g #x55 :b #x82 :a #x80)
|
||||
)
|
||||
)
|
||||
(let ((v1-24 *dma-mem-usage*))
|
||||
(when (nonzero? v1-24)
|
||||
(set! (-> v1-24 length) (max 36 (-> v1-24 length)))
|
||||
(set! (-> v1-24 data 35 name) "pris-fragment")
|
||||
(+! (-> v1-24 data 35 count) 1)
|
||||
(+! (-> v1-24 data 35 used)
|
||||
(&- (-> *display* frames (-> *display* on-screen) frame global-buf base) (the-as uint s4-0))
|
||||
)
|
||||
(set! (-> v1-24 data 35 total) (-> v1-24 data 35 used))
|
||||
)
|
||||
)
|
||||
)
|
||||
(when (begin (set! v1-39 (the-as none #t)) v1-39)
|
||||
(set! v1-41 (the-as none *shadow-queue*))
|
||||
(set! a0-27 (the-as none (l.wu (+ v1-41 4))))
|
||||
(set! a0-28 (the-as none (+ a0-27 1)))
|
||||
(s.w! (+ v1-41 4) a0-28)
|
||||
(when (logtest? *vu1-enable-user* (vu1-renderer-mask generic))
|
||||
(when (nonzero? (-> *merc-globals* first))
|
||||
(let ((s4-1 (-> *display* frames (-> *display* on-screen) frame global-buf base)))
|
||||
(let ((a0-25 (-> (the-as (pointer uint32) (+ (the-as uint *level*) (* 2608 arg2) (* arg3 32))) 69)))
|
||||
(generic-merc-add-to-cue a0-25)
|
||||
)
|
||||
(let ((a0-26 *dma-mem-usage*))
|
||||
(when (nonzero? a0-26)
|
||||
(set! (-> a0-26 length) (max 87 (-> a0-26 length)))
|
||||
(set! (-> a0-26 data 86 name) "pris-generic")
|
||||
(+! (-> a0-26 data 86 count) 1)
|
||||
(+! (-> a0-26 data 86 used)
|
||||
(&- (-> *display* frames (-> *display* on-screen) frame global-buf base) (the-as uint s4-1))
|
||||
)
|
||||
(set! (-> a0-26 data 86 total) (-> a0-26 data 86 used))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! v0-6 (the-as none 0))
|
||||
(ret-none)
|
||||
(when #t
|
||||
(let ((v1-41 *shadow-queue*))
|
||||
(+! (-> v1-41 cur-run) 1)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition (debug) for function main-debug-hook
|
||||
|
||||
+4
-4
@@ -272,7 +272,7 @@
|
||||
(countdown (s5-0 (-> gp-0 length))
|
||||
(let ((a0-1 (handle->process (-> gp-0 s5-0))))
|
||||
(if a0-1
|
||||
(dummy-17 (the-as process-drawable a0-1))
|
||||
(do-joint-math! (the-as process-drawable a0-1))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -285,7 +285,7 @@
|
||||
;; definition for method 17 of type process-drawable
|
||||
;; INFO: Return type mismatch int vs none.
|
||||
;; Used lq/sq
|
||||
(defmethod dummy-17 process-drawable ((obj process-drawable))
|
||||
(defmethod do-joint-math! process-drawable ((obj process-drawable))
|
||||
(cond
|
||||
((logtest? (-> obj draw status) (draw-status drwf01 drwf02))
|
||||
)
|
||||
@@ -601,7 +601,7 @@
|
||||
)
|
||||
|
||||
;; definition for method 15 of type process-drawable
|
||||
(defmethod dummy-15 process-drawable ((obj process-drawable) (arg0 string) (arg1 object))
|
||||
(defmethod initialize-skeleton-by-name process-drawable ((obj process-drawable) (arg0 string) (arg1 object))
|
||||
(let ((s3-0 string->symbol))
|
||||
(format (clear *temp-string*) "*~S-sg*" arg0)
|
||||
(let ((s3-1 (-> (s3-0 *temp-string*) value)))
|
||||
@@ -999,7 +999,7 @@
|
||||
(when (nonzero? (-> self skel))
|
||||
(dummy-19 self)
|
||||
(when (or (logtest? (-> self skel status) 1) gp-1)
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(if (and gp-1 (type-type? (-> self root type) collide-shape))
|
||||
(update-transforms! (the-as collide-shape (-> self root)))
|
||||
)
|
||||
|
||||
+2
-2
@@ -25,9 +25,9 @@
|
||||
:flag-assert #x14004000b0
|
||||
(:methods
|
||||
(initialize-skeleton (_type_ skeleton-group pair) none 14)
|
||||
(dummy-15 (_type_ string object) _type_ 15)
|
||||
(initialize-skeleton-by-name (_type_ string object) _type_ 15)
|
||||
(dummy-16 (_type_ int (inline-array vector) vector) collide-shape 16)
|
||||
(dummy-17 (_type_) none 17)
|
||||
(do-joint-math! (_type_) none 17)
|
||||
(dummy-18 (_type_) none 18)
|
||||
(dummy-19 (_type_) none 19)
|
||||
)
|
||||
|
||||
+34
-51
@@ -51,7 +51,7 @@
|
||||
(logior! (-> self draw status) (draw-status drwf02))
|
||||
)
|
||||
)
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(let ((a0-22 (-> self skel effect)))
|
||||
(if a0-22
|
||||
(TODO-RENAME-9 a0-22)
|
||||
@@ -554,7 +554,7 @@
|
||||
""
|
||||
)
|
||||
)
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
)
|
||||
(('clone-anim)
|
||||
(clone-anim-once
|
||||
@@ -836,35 +836,37 @@
|
||||
)
|
||||
|
||||
;; definition for function command-get-camera
|
||||
;; INFO: Return type mismatch object vs state.
|
||||
(defun command-get-camera ((arg0 object) (arg1 state))
|
||||
(cond
|
||||
((null? arg0)
|
||||
(empty)
|
||||
arg1
|
||||
)
|
||||
((= arg0 'base)
|
||||
*camera-base-mode*
|
||||
)
|
||||
((= arg0 'string)
|
||||
cam-string
|
||||
)
|
||||
((= arg0 'fixed)
|
||||
cam-fixed
|
||||
)
|
||||
((type-type? (rtype-of arg0) symbol)
|
||||
(the-as state (-> (the-as symbol arg0) value))
|
||||
)
|
||||
((type-type? (rtype-of arg0) string)
|
||||
(the-as state arg0)
|
||||
)
|
||||
((type-type? (rtype-of arg0) state)
|
||||
(the-as state arg0)
|
||||
)
|
||||
(else
|
||||
(empty)
|
||||
arg1
|
||||
)
|
||||
)
|
||||
(the-as state (cond
|
||||
((null? arg0)
|
||||
(empty)
|
||||
arg1
|
||||
)
|
||||
((= arg0 'base)
|
||||
*camera-base-mode*
|
||||
)
|
||||
((= arg0 'string)
|
||||
cam-string
|
||||
)
|
||||
((= arg0 'fixed)
|
||||
cam-fixed
|
||||
)
|
||||
((type-type? (rtype-of arg0) symbol)
|
||||
(the-as state (-> (the-as symbol arg0) value))
|
||||
)
|
||||
((type-type? (rtype-of arg0) string)
|
||||
(the-as state arg0)
|
||||
)
|
||||
((type-type? (rtype-of arg0) state)
|
||||
(the-as state arg0)
|
||||
)
|
||||
(else
|
||||
(empty)
|
||||
arg1
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function command-get-trans
|
||||
@@ -938,26 +940,7 @@
|
||||
)
|
||||
|
||||
;; definition for function camera-change-to
|
||||
(defun camera-change-to ((arg0 string) (arg1 int) (arg2 symbol))
|
||||
(let ((gp-0 (command-get-camera arg0 *camera-base-mode*)))
|
||||
(cond
|
||||
((not gp-0)
|
||||
#f
|
||||
)
|
||||
((type-type? (rtype-of gp-0) string)
|
||||
(send-event *camera* 'change-to-entity-by-name gp-0)
|
||||
#t
|
||||
)
|
||||
((type-type? (rtype-of gp-0) state)
|
||||
(send-event *camera* 'change-state gp-0 arg1)
|
||||
(if arg2
|
||||
(send-event *camera* 'blend-from-as-fixed)
|
||||
)
|
||||
#t
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function camera-look-at
|
||||
(defbehavior camera-look-at camera-tracker ((arg0 pair) (arg1 uint))
|
||||
@@ -1489,7 +1472,7 @@
|
||||
(* s3-1 8)
|
||||
)
|
||||
)
|
||||
(dummy-15 obj *lev-string* '())
|
||||
(initialize-skeleton-by-name obj *lev-string* '())
|
||||
(logior! (-> obj draw status) (draw-status drwf06))
|
||||
(if (nonzero? (-> obj draw))
|
||||
(go med-res-level-idle)
|
||||
|
||||
+2
-2
@@ -10,12 +10,12 @@
|
||||
:size-assert #x20
|
||||
:flag-assert #x1000000020
|
||||
(:methods
|
||||
(add-spheres! (_type_ (pointer sphere) int) int 9)
|
||||
(add-spheres! (_type_ (inline-array sphere) int) int 9)
|
||||
(add-point! (_type_ vector3s) int 10)
|
||||
(set-from-point-offset! (_type_ vector3s vector3s) int 11)
|
||||
(set-from-point-offset-pad! (_type_ vector3s vector3s float) int 12)
|
||||
(set-from-sphere! (_type_ sphere) int 13)
|
||||
(set-from-spheres! (_type_ (pointer sphere) int) int 14)
|
||||
(set-from-spheres! (_type_ (inline-array sphere) int) int 14)
|
||||
(add-box! (_type_ bounding-box) int 15)
|
||||
)
|
||||
)
|
||||
|
||||
+3
-3
@@ -1329,7 +1329,7 @@
|
||||
)
|
||||
)
|
||||
(set-quaternion! (-> self control) (-> self control dir-targ))
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -1359,7 +1359,7 @@
|
||||
)
|
||||
)
|
||||
(set! (-> self control unknown-float110) 0.0)
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(none)
|
||||
)
|
||||
|
||||
@@ -1448,7 +1448,7 @@
|
||||
)
|
||||
)
|
||||
(set-quaternion! (-> self control) (-> self control dir-targ))
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(update-transforms! (-> self control))
|
||||
(none)
|
||||
)
|
||||
|
||||
+1
-1
@@ -157,7 +157,7 @@
|
||||
(new 'static 'rgba :r #x40 :b #x40 :a #x80)
|
||||
)
|
||||
)
|
||||
(dummy-17 self)
|
||||
(do-joint-math! self)
|
||||
(if *debug-segment*
|
||||
(add-frame
|
||||
(-> *display* frames (-> *display* on-screen) frame profile-bar 0)
|
||||
|
||||
+1
-1
@@ -66,7 +66,7 @@
|
||||
(target-flut-clone-anim handle)
|
||||
(target-flut-death symbol)
|
||||
(target-flut-double-jump float float)
|
||||
target-flut-falling
|
||||
(target-flut-falling symbol)
|
||||
(target-flut-get-off handle)
|
||||
(target-flut-get-off-hit-ground symbol)
|
||||
(target-flut-get-off-jump handle)
|
||||
|
||||
+1
-1
@@ -958,7 +958,7 @@
|
||||
(set! (-> s5-0 1 quad) (-> self control trans quad))
|
||||
(set! (-> s5-0 1 y) (+ 2867.2 (-> *TARGET-bank* body-radius) (-> s5-0 1 y)))
|
||||
(set! (-> s5-0 1 w) (-> *TARGET-bank* body-radius))
|
||||
(set! (-> gp-0 spheres) (the-as (pointer sphere) s5-0))
|
||||
(set! (-> gp-0 spheres) s5-0)
|
||||
)
|
||||
(set! (-> gp-0 num-spheres) (the-as uint 2))
|
||||
(set! (-> gp-0 collide-with) (-> self control root-prim collide-with))
|
||||
|
||||
+1
-1
@@ -1553,7 +1553,7 @@
|
||||
(= (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) stick0-speed) 0.0)
|
||||
)
|
||||
(let ((a1-2 (new 'stack-no-clear 'collide-using-spheres-params)))
|
||||
(set! (-> a1-2 spheres) (the-as (pointer sphere) (-> *collide-edge-work* world-player-leap-up-spheres)))
|
||||
(set! (-> a1-2 spheres) (-> *collide-edge-work* world-player-leap-up-spheres))
|
||||
(set! (-> a1-2 num-spheres) (the-as uint 6))
|
||||
(set! (-> a1-2 collide-with) (-> self control root-prim collide-with))
|
||||
(set! (-> a1-2 proc) #f)
|
||||
|
||||
Reference in New Issue
Block a user