mirror of
https://github.com/open-goal/jak-project
synced 2026-06-02 02:00:40 -04:00
water111
f3c63f26bb
Fixes https://github.com/open-goal/jak-project/issues/1821 by adding a special case for `new` method calls where the argument with type `symbol` is actually an address to uninitialized structure on the stack. Fixes https://github.com/open-goal/jak-project/issues/1849 (or at least the cause of the issue Vaser gave in chat, and one random one I found in `debug-sphere`) Fixes https://github.com/open-goal/jak-project/issues/1853 Fixes https://github.com/open-goal/jak-project/issues/1857 by moving the cast into the cond if the body is a single form and the destination type is a bitfield/enum which is likely to work well. Seems to work on the examples we could find in jak 1 and jak 2. Also fixes an issue with casts on the result of `handle->process` (a common place to use casts) the output of process->handle is a plain process. Most of the time, you end up casting this to a more specific. If you add a cast on every use of the variable, the decompiler will decide to change the type of that variable to the more specific type, and this breaks the handle cast. so previously it was impossible to get code like ``` (let* ((s2-0 (the-as swingpole (handle->process (-> self control hack)))) (gp-0 (-> s2-0 dir)) ) ``` But now it will work
1467 lines
52 KiB
Common Lisp
Vendored
Generated
1467 lines
52 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function transform-float-point
|
|
;; ERROR: Bad vector register dependency: vf1
|
|
;; ERROR: Bad vector register dependency: vf2
|
|
;; ERROR: Bad vector register dependency: vf3
|
|
;; ERROR: Bad vector register dependency: vf4
|
|
;; ERROR: Bad vector register dependency: vf6
|
|
;; ERROR: Bad vector register dependency: vf8
|
|
;; ERROR: Bad vector register dependency: vf9
|
|
(defun transform-float-point ((arg0 vector) (arg1 vector4w))
|
|
(rlet ((acc :class vf)
|
|
(Q :class vf)
|
|
(vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf8 :class vf)
|
|
(vf9 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(.lvf vf5 (&-> arg0 quad))
|
|
(.mul.w.vf acc vf4 vf5)
|
|
(.add.mul.x.vf acc vf1 vf5 acc)
|
|
(.add.mul.y.vf acc vf2 vf5 acc)
|
|
(.add.mul.z.vf vf5 vf3 vf5 acc)
|
|
(.div.vf Q vf9 vf5 :fsf #b0 :ftf #b11)
|
|
(.wait.vf)
|
|
(.mul.vf vf5 vf5 Q :mask #b111)
|
|
(.add.vf vf5 vf5 vf8)
|
|
(.max.x.vf vf5 vf5 vf0 :mask #b1000)
|
|
(.min.x.vf vf5 vf5 vf6 :mask #b1000)
|
|
(vftoi4.xyzw vf5 vf5)
|
|
(.svf (&-> arg1 quad) vf5)
|
|
arg1
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-point
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-point ((enable-draw symbol) (bucket bucket-id) (pt vector))
|
|
(if (not enable-draw)
|
|
(return #f)
|
|
)
|
|
(let ((s5-0 (new 'stack 'vector4w-2)))
|
|
(set! (-> pt w) 1.0)
|
|
(when (transform-point-qword! (the-as vector4w (-> s5-0 quad)) pt)
|
|
(let* ((buf (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(a2-1 (-> buf base))
|
|
)
|
|
(let ((a0-6 (the-as (pointer uint64) (-> buf base))))
|
|
(let* ((a1-3 buf)
|
|
(a3-0 (the-as dma-packet (-> a1-3 base)))
|
|
)
|
|
(set! (-> a3-0 dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> a3-0 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a3-0 vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> a1-3 base) (&+ (the-as pointer a3-0) 16))
|
|
)
|
|
(let* ((a1-4 buf)
|
|
(a3-2 (the-as gs-gif-tag (-> a1-4 base)))
|
|
)
|
|
(set! (-> a3-2 tag) (new 'static 'gif-tag64
|
|
:nloop #x1
|
|
:eop #x1
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :abe #x1)
|
|
:nreg #x8
|
|
)
|
|
)
|
|
(set! (-> a3-2 regs) (new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id rgbaq)
|
|
:regs1 (gif-reg-id xyzf2)
|
|
:regs2 (gif-reg-id rgbaq)
|
|
:regs3 (gif-reg-id xyzf2)
|
|
:regs4 (gif-reg-id rgbaq)
|
|
:regs5 (gif-reg-id xyzf2)
|
|
:regs6 (gif-reg-id rgbaq)
|
|
:regs7 (gif-reg-id xyzf2)
|
|
)
|
|
)
|
|
(set! (-> a1-4 base) (&+ (the-as pointer a3-2) 16))
|
|
)
|
|
(set! (-> s5-0 vector 1 x) 255)
|
|
(set! (-> s5-0 vector 1 y) 128)
|
|
(set! (-> s5-0 vector 1 z) 128)
|
|
(set! (-> s5-0 vector 1 w) 128)
|
|
(+! (-> s5-0 vector 0 y) 160)
|
|
(let* ((a1-11 buf)
|
|
(a3-4 (the-as vector4w-2 (-> a1-11 base)))
|
|
)
|
|
(set! (-> a3-4 quad 0) (-> (&-> s5-0 quad 1) 0))
|
|
(set! (-> a3-4 quad 1) (-> s5-0 quad 0))
|
|
(set! (-> a1-11 base) (&+ (the-as pointer a3-4) 32))
|
|
)
|
|
(+! (-> s5-0 vector 0 x) -256)
|
|
(+! (-> s5-0 vector 0 y) -160)
|
|
(set! (-> s5-0 vector 1 x) 128)
|
|
(set! (-> s5-0 vector 1 y) 255)
|
|
(let* ((a1-18 buf)
|
|
(a3-6 (the-as vector4w-2 (-> a1-18 base)))
|
|
)
|
|
(set! (-> a3-6 quad 0) (-> (&-> s5-0 quad 1) 0))
|
|
(set! (-> a3-6 quad 1) (-> s5-0 quad 0))
|
|
(set! (-> a1-18 base) (&+ (the-as pointer a3-6) 32))
|
|
)
|
|
(+! (-> s5-0 vector 0 x) 512)
|
|
(set! (-> s5-0 vector 1 y) 128)
|
|
(set! (-> s5-0 vector 1 z) 255)
|
|
(let* ((a1-23 buf)
|
|
(a3-8 (the-as vector4w-2 (-> a1-23 base)))
|
|
)
|
|
(set! (-> a3-8 quad 0) (-> (&-> s5-0 quad 1) 0))
|
|
(set! (-> a3-8 quad 1) (-> s5-0 quad 0))
|
|
(set! (-> a1-23 base) (&+ (the-as pointer a3-8) 32))
|
|
)
|
|
(+! (-> s5-0 vector 0 x) -256)
|
|
(+! (-> s5-0 vector 0 y) -160)
|
|
(set! (-> s5-0 vector 1 x) 255)
|
|
(set! (-> s5-0 vector 1 y) 128)
|
|
(let* ((a3-10 buf)
|
|
(a1-30 (the-as vector4w-2 (-> a3-10 base)))
|
|
)
|
|
(set! (-> a1-30 quad 0) (-> (&-> s5-0 quad 1) 0))
|
|
(set! (-> a1-30 quad 1) (-> s5-0 quad 0))
|
|
(set! (-> a3-10 base) (&+ (the-as pointer a1-30) 32))
|
|
)
|
|
(let ((a3-14 (/ (the-as int (+ (&- (the-as pointer -16) (the-as uint a0-6)) (the-as int (-> buf base)))) 16)))
|
|
(cond
|
|
((nonzero? a3-14)
|
|
(logior! (-> a0-6 0) (shr (shl a3-14 48) 48))
|
|
(logior! (-> a0-6 1) (shl (shr (shl a3-14 48) 48) 32))
|
|
)
|
|
(else
|
|
(set! (-> buf base) a0-6)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a3-20 (-> buf base)))
|
|
(let ((a0-7 (the-as dma-packet (-> buf base))))
|
|
(set! (-> a0-7 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> a0-7 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a0-7 vif1) (new 'static 'vif-tag))
|
|
(set! (-> buf base) (&+ (the-as pointer a0-7) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
bucket
|
|
a2-1
|
|
(the-as (pointer dma-tag) a3-20)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function internal-draw-debug-line
|
|
;; INFO: Used lq/sq
|
|
(defun-debug internal-draw-debug-line ((arg0 bucket-id) (arg1 vector) (arg2 vector) (arg3 rgba) (arg4 symbol) (arg5 rgba))
|
|
(local-vars (sv-80 vector))
|
|
(set! sv-80 arg2)
|
|
(let ((s2-0 arg3)
|
|
(s3-0 arg4)
|
|
(s5-0 arg5)
|
|
)
|
|
(let ((a0-4 (-> *display* frames (-> *display* on-screen) frame debug-buf)))
|
|
(if (< (the-as uint (shr (+ (&- (-> a0-4 end) (the-as uint (-> a0-4 base))) 15) 4)) (the-as uint #x8000))
|
|
(return (the-as pointer #f))
|
|
)
|
|
)
|
|
(if (or (= s5-0 -1) (= s5-0 (new 'static 'rgba :r #xff :g #xff :b #xff :a #xff)))
|
|
(set! s5-0 s2-0)
|
|
)
|
|
(case s3-0
|
|
(('fade)
|
|
(set! s5-0
|
|
(new 'static 'rgba :r (shr (-> s5-0 r) 1) :g (shr (-> s5-0 g) 1) :b (shr (-> s5-0 b) 1) :a (-> s5-0 a))
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-0 (new 'stack 'vector4w-2))
|
|
(s1-0 (new 'stack 'vector4w-2))
|
|
)
|
|
(set! (-> arg1 w) 1.0)
|
|
(set! (-> sv-80 w) 1.0)
|
|
(when (and (transform-point-qword! (the-as vector4w (-> s4-0 quad)) arg1)
|
|
(transform-point-qword! (the-as vector4w (&-> s4-0 quad 1)) sv-80)
|
|
)
|
|
(let* ((v1-28 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(a2-1 (-> v1-28 base))
|
|
)
|
|
(let ((a0-31 (the-as (pointer uint64) (-> v1-28 base))))
|
|
(let* ((a1-5 v1-28)
|
|
(a3-1 (the-as dma-packet (-> a1-5 base)))
|
|
)
|
|
(set! (-> a3-1 dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> a3-1 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a3-1 vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> a1-5 base) (&+ (the-as pointer a3-1) 16))
|
|
)
|
|
(let* ((a1-6 v1-28)
|
|
(a3-3 (the-as gs-gif-tag (-> a1-6 base)))
|
|
)
|
|
(set! (-> a3-3 tag) (new 'static 'gif-tag64
|
|
:nloop #x1
|
|
:eop #x1
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line) :iip #x1 :abe #x1)
|
|
:nreg #x4
|
|
)
|
|
)
|
|
(set! (-> a3-3 regs) (new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id rgbaq)
|
|
:regs1 (gif-reg-id xyzf2)
|
|
:regs2 (gif-reg-id rgbaq)
|
|
:regs3 (gif-reg-id xyzf2)
|
|
)
|
|
)
|
|
(set! (-> a1-6 base) (&+ (the-as pointer a3-3) 16))
|
|
)
|
|
(case s3-0
|
|
(('fade-depth)
|
|
(let ((f0-3 (fmax 0.2 (fmin 1.0 (* 0.00000005960465 (the float (-> s4-0 vector 0 z)))))))
|
|
(set! (-> s1-0 vector 0 x) (the int (* (the float (-> s2-0 r)) f0-3)))
|
|
(set! (-> s1-0 vector 0 y) (the int (* (the float (-> s2-0 g)) f0-3)))
|
|
(set! (-> s1-0 vector 0 z) (the int (* (the float (-> s2-0 b)) f0-3)))
|
|
)
|
|
(set! (-> s1-0 vector 0 w) (the-as int (-> s2-0 a)))
|
|
)
|
|
(else
|
|
(set! (-> s1-0 vector 0 x) (the-as int (-> s2-0 r)))
|
|
(set! (-> s1-0 vector 0 y) (the-as int (-> s2-0 g)))
|
|
(set! (-> s1-0 vector 0 z) (the-as int (-> s2-0 b)))
|
|
(set! (-> s1-0 vector 0 w) (the-as int (-> s2-0 a)))
|
|
)
|
|
)
|
|
(cond
|
|
((= s3-0 'fade-depth)
|
|
(let ((f0-7 (fmax 0.2 (fmin 1.0 (* 0.00000005960465 (the float (-> s4-0 vector 1 z)))))))
|
|
(set! (-> s1-0 vector 1 x) (the int (* (the float (-> s5-0 r)) f0-7)))
|
|
(set! (-> s1-0 vector 1 y) (the int (* (the float (-> s5-0 g)) f0-7)))
|
|
(set! (-> s1-0 vector 1 z) (the int (* (the float (-> s5-0 b)) f0-7)))
|
|
)
|
|
(set! (-> s1-0 vector 1 w) (the-as int (-> s5-0 a)))
|
|
)
|
|
(else
|
|
(set! (-> s1-0 vector 1 x) (the-as int (-> s5-0 r)))
|
|
(set! (-> s1-0 vector 1 y) (the-as int (-> s5-0 g)))
|
|
(set! (-> s1-0 vector 1 z) (the-as int (-> s5-0 b)))
|
|
(set! (-> s1-0 vector 1 w) (the-as int (-> s5-0 a)))
|
|
)
|
|
)
|
|
(+! (-> s4-0 vector 0 z) -8192)
|
|
(+! (-> s4-0 vector 1 z) -8192)
|
|
(let* ((a3-6 v1-28)
|
|
(a1-43 (the-as (inline-array vector4w-2) (-> a3-6 base)))
|
|
)
|
|
(set! (-> a1-43 0 quad 0) (-> s1-0 quad 0))
|
|
(set! (-> a1-43 0 quad 1) (-> s4-0 quad 0))
|
|
(set! (-> a1-43 1 quad 0) (-> (&-> s1-0 quad 1) 0))
|
|
(set! (-> a1-43 1 quad 1) (-> (&-> s4-0 quad 1) 0))
|
|
(set! (-> a3-6 base) (&+ (the-as pointer a1-43) 64))
|
|
)
|
|
(let ((a3-10 (/ (the-as int (+ (&- (the-as pointer -16) (the-as uint a0-31)) (the-as int (-> v1-28 base)))) 16)))
|
|
(cond
|
|
((nonzero? a3-10)
|
|
(logior! (-> a0-31 0) (shr (shl a3-10 48) 48))
|
|
(logior! (-> a0-31 1) (shl (shr (shl a3-10 48) 48) 32))
|
|
)
|
|
(else
|
|
(set! (-> v1-28 base) a0-31)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a3-16 (-> v1-28 base)))
|
|
(let ((a0-32 (the-as dma-packet (-> v1-28 base))))
|
|
(set! (-> a0-32 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> a0-32 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a0-32 vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-28 base) (&+ (the-as pointer a0-32) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
arg0
|
|
a2-1
|
|
(the-as (pointer dma-tag) a3-16)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function internal-draw-debug-text-3d
|
|
;; INFO: Used lq/sq
|
|
(defun-debug internal-draw-debug-text-3d ((arg0 bucket-id) (arg1 string) (arg2 vector) (arg3 font-color) (arg4 vector2h))
|
|
(let ((s2-0 (new 'stack-no-clear 'vector4w)))
|
|
(set! (-> s2-0 quad) (the-as uint128 0))
|
|
(when (transform-point-qword! s2-0 arg2)
|
|
(let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(s5-0 (-> s3-0 base))
|
|
)
|
|
(let ((a2-2 (new
|
|
'stack
|
|
'font-context
|
|
*font-default-matrix*
|
|
(+ (-> arg4 x) -1792 (/ (-> s2-0 x) 16))
|
|
(- (+ (-> arg4 y) -8 (/ (-> s2-0 y) 16)) (-> *video-parms* screen-miny))
|
|
0.0
|
|
arg3
|
|
(font-flags shadow kerning)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-9 a2-2))
|
|
(set! (-> v1-9 origin z) (the float (/ (-> s2-0 z) 16)))
|
|
)
|
|
(draw-string arg1 s3-0 a2-2)
|
|
)
|
|
(let ((a3-4 (-> s3-0 base)))
|
|
(let ((v1-11 (the-as dma-packet (-> s3-0 base))))
|
|
(set! (-> v1-11 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> v1-11 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-11 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s3-0 base) (&+ (the-as pointer v1-11) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
arg0
|
|
s5-0
|
|
(the-as (pointer dma-tag) a3-4)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-outline-triangle
|
|
(defun-debug add-debug-outline-triangle ((enable symbol) (bucket bucket-id) (p0 vector) (p1 vector) (p2 vector) (color rgba))
|
|
(when enable
|
|
(add-debug-line #t bucket p0 p1 color #f (the-as rgba -1))
|
|
(add-debug-line #t bucket p1 p2 color #f (the-as rgba -1))
|
|
(add-debug-line #t bucket p2 p0 color #f (the-as rgba -1))
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-triangle-normal
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-triangle-normal ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 vector) (arg5 rgba))
|
|
(local-vars (sv-48 (function vector vector float vector)) (sv-64 vector) (sv-80 vector))
|
|
(when arg0
|
|
(let ((s4-0 (new 'stack-no-clear 'vector))
|
|
(s3-0 (vector-3pt-cross! (new 'stack-no-clear 'vector) arg2 arg3 arg4))
|
|
)
|
|
(set! sv-48 vector-float/!)
|
|
(set! sv-64 s3-0)
|
|
(set! sv-80 s3-0)
|
|
(let ((a2-2 (* 0.00024414062 (vector-length s3-0))))
|
|
(sv-48 sv-64 sv-80 a2-2)
|
|
)
|
|
(vector+! s4-0 arg2 arg3)
|
|
(vector+! s4-0 s4-0 arg4)
|
|
(vector-float/! s4-0 s4-0 3.0)
|
|
(vector+! s3-0 s3-0 s4-0)
|
|
(add-debug-line #t arg1 s4-0 s3-0 arg5 #f (the-as rgba -1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-flat-triangle
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-flat-triangle ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 vector) (arg5 rgba))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((s5-0 (new 'stack 'vector4w-3))
|
|
(s4-0 (new 'stack 'vector4w-3))
|
|
)
|
|
(set! (-> arg2 w) 1.0)
|
|
(set! (-> arg3 w) 1.0)
|
|
(set! (-> arg4 w) 1.0)
|
|
(when (and (transform-point-qword! (the-as vector4w (-> s5-0 vector)) arg2)
|
|
(transform-point-qword! (-> s5-0 vector 1) arg3)
|
|
(transform-point-qword! (-> s5-0 vector 2) arg4)
|
|
)
|
|
(let* ((v1-9 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(a2-1 (-> v1-9 base))
|
|
)
|
|
(let ((a0-9 (the-as (pointer uint64) (-> v1-9 base))))
|
|
(let* ((a1-6 v1-9)
|
|
(a3-1 (the-as dma-packet (-> a1-6 base)))
|
|
)
|
|
(set! (-> a3-1 dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> a3-1 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a3-1 vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> a1-6 base) (&+ (the-as pointer a3-1) 16))
|
|
)
|
|
(let* ((a1-7 v1-9)
|
|
(a3-3 (the-as gs-gif-tag (-> a1-7 base)))
|
|
)
|
|
(set! (-> a3-3 tag) (new 'static 'gif-tag64
|
|
:nloop #x1
|
|
:eop #x1
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri) :iip #x1 :abe #x1)
|
|
:nreg #x6
|
|
)
|
|
)
|
|
(set! (-> a3-3 regs) (new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id rgbaq)
|
|
:regs1 (gif-reg-id xyzf2)
|
|
:regs2 (gif-reg-id rgbaq)
|
|
:regs3 (gif-reg-id xyzf2)
|
|
:regs4 (gif-reg-id rgbaq)
|
|
:regs5 (gif-reg-id xyzf2)
|
|
)
|
|
)
|
|
(set! (-> a1-7 base) (&+ (the-as pointer a3-3) 16))
|
|
)
|
|
(set! (-> s4-0 vector 0 x) (the-as int (-> arg5 r)))
|
|
(set! (-> s4-0 vector 0 y) (the-as int (-> arg5 g)))
|
|
(set! (-> s4-0 vector 0 z) (the-as int (-> arg5 b)))
|
|
(set! (-> s4-0 vector 0 w) (the-as int (-> arg5 a)))
|
|
(+! (-> s5-0 vector 0 z) -8192)
|
|
(+! (-> s5-0 vector 1 z) -8192)
|
|
(+! (-> s5-0 vector 2 z) -8192)
|
|
(let* ((a1-21 v1-9)
|
|
(a3-5 (the-as (inline-array vector4w-3) (-> a1-21 base)))
|
|
)
|
|
(set! (-> a3-5 0 vector 0 quad) (-> s4-0 vector 0 quad))
|
|
(set! (-> a3-5 0 vector 1 quad) (-> s5-0 vector 0 quad))
|
|
(set! (-> a3-5 0 vector 2 quad) (-> s4-0 vector 0 quad))
|
|
(set! (-> a3-5 1 vector 0 quad) (-> s5-0 vector 1 quad))
|
|
(set! (-> a3-5 1 vector 1 quad) (-> s4-0 vector 0 quad))
|
|
(set! (-> a3-5 1 vector 2 quad) (-> s5-0 vector 2 quad))
|
|
(set! (-> a1-21 base) (&+ (the-as pointer a3-5) 96))
|
|
)
|
|
(let ((a1-25 (/ (the-as int (+ (&- (the-as pointer -16) (the-as uint a0-9)) (the-as int (-> v1-9 base)))) 16)))
|
|
(cond
|
|
((nonzero? a1-25)
|
|
(logior! (-> a0-9 0) (shr (shl a1-25 48) 48))
|
|
(logior! (-> a0-9 1) (shl (shr (shl a1-25 48) 48) 32))
|
|
)
|
|
(else
|
|
(set! (-> v1-9 base) a0-9)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a3-7 (-> v1-9 base)))
|
|
(let ((a0-10 (the-as dma-packet (-> v1-9 base))))
|
|
(set! (-> a0-10 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> a0-10 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a0-10 vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-9 base) (&+ (the-as pointer a0-10) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
arg1
|
|
a2-1
|
|
(the-as (pointer dma-tag) a3-7)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; this part is debug only
|
|
(when *debug-segment*
|
|
;; definition of type debug-line
|
|
(deftype debug-line (structure)
|
|
((flags int32 :offset-assert 0)
|
|
(bucket bucket-id :offset-assert 4)
|
|
(v1 vector :inline :offset-assert 16)
|
|
(v2 vector :inline :offset-assert 32)
|
|
(color rgba :offset-assert 48)
|
|
(mode symbol :offset-assert 52)
|
|
(color2 rgba :offset-assert 56)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x3c
|
|
:flag-assert #x90000003c
|
|
)
|
|
|
|
;; definition for method 3 of type debug-line
|
|
(defmethod inspect debug-line ((obj debug-line))
|
|
(format #t "[~8x] ~A~%" obj 'debug-line)
|
|
(format #t "~Tflags: ~D~%" (-> obj flags))
|
|
(format #t "~Tbucket: ~D~%" (-> obj bucket))
|
|
(format #t "~Tv1: #<vector @ #x~X>~%" (-> obj v1))
|
|
(format #t "~Tv2: #<vector @ #x~X>~%" (-> obj v2))
|
|
(format #t "~Tcolor: ~D~%" (-> obj color))
|
|
(format #t "~Tmode: ~A~%" (-> obj mode))
|
|
(format #t "~Tcolor2: ~D~%" (-> obj color2))
|
|
obj
|
|
)
|
|
|
|
;; definition of type debug-text-3d
|
|
(deftype debug-text-3d (structure)
|
|
((flags int32 :offset-assert 0)
|
|
(bucket bucket-id :offset-assert 4)
|
|
(pos vector :inline :offset-assert 16)
|
|
(color font-color :offset-assert 32)
|
|
(offset vector2h :inline :offset-assert 40)
|
|
(str string :offset-assert 44)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x30
|
|
:flag-assert #x900000030
|
|
)
|
|
|
|
;; definition for method 3 of type debug-text-3d
|
|
(defmethod inspect debug-text-3d ((obj debug-text-3d))
|
|
(format #t "[~8x] ~A~%" obj 'debug-text-3d)
|
|
(format #t "~Tflags: ~D~%" (-> obj flags))
|
|
(format #t "~Tbucket: ~D~%" (-> obj bucket))
|
|
(format #t "~Tpos: #<vector @ #x~X>~%" (-> obj pos))
|
|
(format #t "~Tcolor: ~D~%" (-> obj color))
|
|
(format #t "~Toffset: #<vector2h @ #x~X>~%" (-> obj offset))
|
|
(format #t "~Tstr: ~A~%" (-> obj str))
|
|
obj
|
|
)
|
|
|
|
;; definition of type debug-tracking-thang
|
|
(deftype debug-tracking-thang (basic)
|
|
((length int32 :offset-assert 4)
|
|
(allocated-length int32 :offset-assert 8)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #xc
|
|
:flag-assert #x90000000c
|
|
)
|
|
|
|
;; definition for method 3 of type debug-tracking-thang
|
|
(defmethod inspect debug-tracking-thang ((obj debug-tracking-thang))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tlength: ~D~%" (-> obj length))
|
|
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
|
|
obj
|
|
)
|
|
|
|
;; definition for symbol *debug-lines*, type (inline-array debug-line)
|
|
(define *debug-lines* (the-as (inline-array debug-line) (malloc 'debug #x100000)))
|
|
|
|
;; definition for symbol *debug-lines-trk*, type debug-tracking-thang
|
|
(define *debug-lines-trk* (new 'debug 'debug-tracking-thang))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *debug-lines-trk* allocated-length) #x4000)
|
|
|
|
;; definition for symbol *debug-text-3ds*, type (inline-array debug-text-3d)
|
|
(define *debug-text-3ds* (the-as (inline-array debug-text-3d) (malloc 'debug #x6000)))
|
|
|
|
;; definition for symbol *debug-text-3d-trk*, type debug-tracking-thang
|
|
(define *debug-text-3d-trk* (new 'debug 'debug-tracking-thang))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *debug-text-3d-trk* allocated-length) 512)
|
|
|
|
;; failed to figure out what this is:
|
|
(dotimes (gp-0 (-> *debug-text-3d-trk* allocated-length))
|
|
(set! (-> *debug-text-3ds* gp-0 str) (new 'debug 'string 80 (the-as string #f)))
|
|
)
|
|
|
|
)
|
|
;; definition (debug) for function get-debug-line
|
|
(defun-debug get-debug-line ()
|
|
(cond
|
|
((< (-> *debug-lines-trk* length) (-> *debug-lines-trk* allocated-length))
|
|
(+! (-> *debug-lines-trk* length) 1)
|
|
(-> *debug-lines* (+ (-> *debug-lines-trk* length) -1))
|
|
)
|
|
(else
|
|
(the-as debug-line #f)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function get-debug-text-3d
|
|
(defun-debug get-debug-text-3d ()
|
|
(cond
|
|
((< (-> *debug-text-3d-trk* length) (-> *debug-text-3d-trk* allocated-length))
|
|
(+! (-> *debug-text-3d-trk* length) 1)
|
|
(-> *debug-text-3ds* (+ (-> *debug-text-3d-trk* length) -1))
|
|
)
|
|
(else
|
|
(the-as debug-text-3d #f)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function debug-reset-buffers
|
|
(defun-debug debug-reset-buffers ()
|
|
(set! (-> *debug-lines-trk* length) 0)
|
|
(set! (-> *debug-text-3d-trk* length) 0)
|
|
(set! *debug-draw-pauseable* #f)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function debug-draw-buffers
|
|
(defun-debug debug-draw-buffers ()
|
|
(dotimes (gp-0 (-> *debug-lines-trk* length))
|
|
(let ((v1-1 (-> *debug-lines* gp-0)))
|
|
(internal-draw-debug-line
|
|
(-> v1-1 bucket)
|
|
(-> v1-1 v1)
|
|
(-> v1-1 v2)
|
|
(-> v1-1 color)
|
|
(-> v1-1 mode)
|
|
(-> v1-1 color2)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (gp-1 (-> *debug-text-3d-trk* length))
|
|
(let ((v1-8 (-> *debug-text-3ds* gp-1)))
|
|
(internal-draw-debug-text-3d (-> v1-8 bucket) (-> v1-8 str) (-> v1-8 pos) (-> v1-8 color) (-> v1-8 offset))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-line
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-line ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 rgba) (arg5 symbol) (arg6 rgba))
|
|
(when arg0
|
|
(cond
|
|
(*debug-draw-pauseable*
|
|
(let ((v1-2 (get-debug-line)))
|
|
(when v1-2
|
|
(set! (-> v1-2 bucket) arg1)
|
|
(set! (-> v1-2 v1 quad) (-> arg2 quad))
|
|
(set! (-> v1-2 v2 quad) (-> arg3 quad))
|
|
(set! (-> v1-2 color) arg4)
|
|
(set! (-> v1-2 color2) arg6)
|
|
(set! (-> v1-2 mode) arg5)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(internal-draw-debug-line arg1 arg2 arg3 arg4 arg5 arg6)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-line2d
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-line2d ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 vector))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let* ((s4-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(s5-0 (-> s4-0 base))
|
|
)
|
|
(let ((s2-0 (new 'stack 'vector4w))
|
|
(v1-7 (new 'stack 'vector4w))
|
|
)
|
|
(set! (-> s2-0 quad) (-> arg2 quad))
|
|
(set! (-> v1-7 quad) (-> arg3 quad))
|
|
(set! (-> s2-0 x) (* (+ (-> s2-0 x) 2048) 16))
|
|
(set! (-> s2-0 y) (* -16 (- 2048 (-> s2-0 y))))
|
|
(set! (-> s2-0 z) #x7fffff)
|
|
(set! (-> v1-7 x) (* (+ (-> v1-7 x) 2048) 16))
|
|
(set! (-> v1-7 y) (* -16 (- 2048 (-> v1-7 y))))
|
|
(set! (-> v1-7 z) #x7fffff)
|
|
(let ((a0-20 (the-as (pointer uint64) (-> s4-0 base))))
|
|
(let* ((a1-7 s4-0)
|
|
(a2-3 (the-as dma-packet (-> a1-7 base)))
|
|
)
|
|
(set! (-> a2-3 dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> a2-3 vif0) (new 'static 'vif-tag))
|
|
(set! (-> a2-3 vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> a1-7 base) (&+ (the-as pointer a2-3) 16))
|
|
)
|
|
(let* ((a1-8 s4-0)
|
|
(a2-5 (the-as gs-gif-tag (-> a1-8 base)))
|
|
)
|
|
(set! (-> a2-5 tag) (new 'static 'gif-tag64
|
|
:nloop #x1
|
|
:eop #x1
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line) :iip #x1 :abe #x1)
|
|
:nreg #x4
|
|
)
|
|
)
|
|
(set! (-> a2-5 regs) (new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id rgbaq)
|
|
:regs1 (gif-reg-id xyzf2)
|
|
:regs2 (gif-reg-id rgbaq)
|
|
:regs3 (gif-reg-id xyzf2)
|
|
)
|
|
)
|
|
(set! (-> a1-8 base) (&+ (the-as pointer a2-5) 16))
|
|
)
|
|
(let* ((a1-9 s4-0)
|
|
(a2-7 (the-as (inline-array vector4w) (-> a1-9 base)))
|
|
)
|
|
(set! (-> a2-7 0 quad) (-> arg4 quad))
|
|
(set! (-> a2-7 1 quad) (-> s2-0 quad))
|
|
(set! (-> a1-9 base) (&+ (the-as pointer a2-7) 32))
|
|
)
|
|
(let* ((a1-10 s4-0)
|
|
(a2-9 (the-as (inline-array vector4w) (-> a1-10 base)))
|
|
)
|
|
(set! (-> a2-9 0 quad) (-> arg4 quad))
|
|
(set! (-> a2-9 1 quad) (-> v1-7 quad))
|
|
(set! (-> a1-10 base) (&+ (the-as pointer a2-9) 32))
|
|
)
|
|
(let ((a1-14 (/ (the-as int (+ (&- (the-as pointer -16) (the-as uint a0-20)) (the-as int (-> s4-0 base)))) 16)))
|
|
(cond
|
|
((nonzero? a1-14)
|
|
(logior! (-> a0-20 0) (shr (shl a1-14 48) 48))
|
|
(logior! (-> a0-20 1) (shl (shr (shl a1-14 48) 48) 32))
|
|
)
|
|
(else
|
|
(set! (-> s4-0 base) a0-20)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a3-11 (-> s4-0 base)))
|
|
(let ((v1-10 (the-as dma-packet (-> s4-0 base))))
|
|
(set! (-> v1-10 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> v1-10 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-10 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s4-0 base) (&+ (the-as pointer v1-10) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
arg1
|
|
s5-0
|
|
(the-as (pointer dma-tag) a3-11)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-box
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-box ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 rgba))
|
|
(let ((s5-0 (new-stack-vector0)))
|
|
(set! (-> s5-0 quad) (-> arg2 quad))
|
|
(let ((s1-0 (new-stack-vector0)))
|
|
(set! (-> s1-0 quad) (-> arg2 quad))
|
|
(when arg0
|
|
(set! (-> s1-0 x) (-> arg3 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 x) (-> arg2 x))
|
|
(set! (-> s1-0 y) (-> arg3 y))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 y) (-> arg2 y))
|
|
(set! (-> s1-0 z) (-> arg3 z))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s5-0 y) (-> arg3 y))
|
|
(set! (-> s1-0 y) (-> arg3 y))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 z) (-> arg2 z))
|
|
(set! (-> s1-0 x) (-> arg3 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 y) (-> arg2 y))
|
|
(set! (-> s5-0 x) (-> arg3 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s5-0 quad) (-> arg3 quad))
|
|
(set! (-> s1-0 quad) (-> arg3 quad))
|
|
(set! (-> s1-0 x) (-> arg2 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 x) (-> arg3 x))
|
|
(set! (-> s1-0 y) (-> arg2 y))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 y) (-> arg3 y))
|
|
(set! (-> s1-0 z) (-> arg2 z))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s5-0 y) (-> arg2 y))
|
|
(set! (-> s1-0 y) (-> arg2 y))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 z) (-> arg3 z))
|
|
(set! (-> s1-0 x) (-> arg2 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
(set! (-> s1-0 y) (-> arg3 y))
|
|
(set! (-> s5-0 x) (-> arg2 x))
|
|
(add-debug-line #t arg1 s5-0 s1-0 arg4 #f (the-as rgba -1))
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-x
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-x ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 rgba))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((s3-0 (new-stack-vector0))
|
|
(s2-0 (new-stack-vector0))
|
|
)
|
|
(vector+! s3-0 arg2 (new 'static 'vector :x -1228.8))
|
|
(vector+! s2-0 arg2 (new 'static 'vector :x 1228.8))
|
|
(add-debug-line #t arg1 s3-0 s2-0 arg3 #f (the-as rgba -1))
|
|
(vector+! s3-0 arg2 (new 'static 'vector :z -1228.8))
|
|
(vector+! s2-0 arg2 (new 'static 'vector :z 1228.8))
|
|
(add-debug-line #t arg1 s3-0 s2-0 arg3 #f (the-as rgba -1))
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-text-3d
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-text-3d ((arg0 symbol) (arg1 bucket-id) (arg2 string) (arg3 vector) (arg4 font-color) (arg5 vector2h))
|
|
(when arg0
|
|
(cond
|
|
(*debug-draw-pauseable*
|
|
(let ((v1-2 (get-debug-text-3d)))
|
|
(when v1-2
|
|
(set! (-> v1-2 flags) 0)
|
|
(set! (-> v1-2 bucket) arg1)
|
|
(set! (-> v1-2 pos quad) (-> arg3 quad))
|
|
(cond
|
|
(arg5
|
|
(set! (-> v1-2 offset x) (-> arg5 x))
|
|
(set! (-> v1-2 offset y) (-> arg5 y))
|
|
)
|
|
(else
|
|
(set! (-> v1-2 offset x) 0)
|
|
(set! (-> v1-2 offset y) 0)
|
|
0
|
|
)
|
|
)
|
|
(set! (-> v1-2 color) arg4)
|
|
(let ((a0-6 0)
|
|
(a1-2 (-> arg2 data))
|
|
(v1-4 (-> v1-2 str data))
|
|
)
|
|
(while (and (nonzero? (-> a1-2 0)) (< a0-6 79))
|
|
(set! (-> v1-4 0) (-> a1-2 0))
|
|
(set! a1-2 (&-> a1-2 1))
|
|
(set! v1-4 (&-> v1-4 1))
|
|
(+! a0-6 1)
|
|
)
|
|
(set! (-> v1-4 0) (the-as uint 0))
|
|
)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(internal-draw-debug-text-3d arg1 arg2 arg3 arg4 (cond
|
|
(arg5
|
|
(empty)
|
|
arg5
|
|
)
|
|
(else
|
|
(new 'static 'vector2h)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-sphere-with-transform
|
|
(defun-debug add-debug-sphere-with-transform ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 meters) (arg4 matrix) (arg5 rgba))
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(when arg0
|
|
(.lvf vf5 (&-> arg2 quad))
|
|
(.lvf vf1 (&-> arg4 vector 0 quad))
|
|
(.lvf vf2 (&-> arg4 vector 1 quad))
|
|
(.lvf vf3 (&-> arg4 vector 2 quad))
|
|
(.lvf vf4 (&-> arg4 vector 3 quad))
|
|
(.mul.w.vf acc vf4 vf0)
|
|
(.add.mul.x.vf acc vf1 vf5 acc)
|
|
(.add.mul.y.vf acc vf2 vf5 acc)
|
|
(.add.mul.z.vf vf5 vf3 vf5 acc)
|
|
(let ((a2-1 (new 'stack-no-clear 'vector)))
|
|
(.svf (&-> a2-1 quad) vf5)
|
|
(add-debug-sphere arg0 arg1 a2-1 arg3 arg5)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-sphere
|
|
(defun-debug add-debug-sphere ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 rgba))
|
|
(if arg0
|
|
(add-debug-sphere-from-table arg1 arg2 arg3 arg4)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-text-sphere
|
|
(defun-debug add-debug-text-sphere ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 string) (arg5 rgba))
|
|
(add-debug-sphere arg0 arg1 arg2 arg3 arg5)
|
|
(add-debug-text-3d arg0 arg1 arg4 arg2 (font-color default) (the-as vector2h #f))
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-spheres
|
|
(defun-debug add-debug-spheres ((arg0 symbol) (arg1 bucket-id) (arg2 (inline-array vector)) (arg3 int) (arg4 rgba))
|
|
(when arg0
|
|
(let ((s4-0 (-> arg2 0)))
|
|
(countdown (s3-0 arg3)
|
|
(add-debug-sphere #t arg1 s4-0 (-> s4-0 w) arg4)
|
|
(&+! s4-0 16)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-circle
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-circle ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 rgba) (arg5 matrix))
|
|
(local-vars (sv-48 int) (sv-64 vector) (sv-80 vector))
|
|
"note: you may pass #f for orientation"
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((f30-0 0.0)
|
|
(s1-0 (new-stack-vector0))
|
|
(s0-0 (new-stack-vector0))
|
|
)
|
|
(set! sv-48 0)
|
|
(while (< sv-48 12)
|
|
(set! sv-64 s1-0)
|
|
(set! (-> sv-64 x) (* arg3 (cos f30-0)))
|
|
(set! (-> sv-64 y) 0.0)
|
|
(set! (-> sv-64 z) (* arg3 (sin f30-0)))
|
|
(set! (-> sv-64 w) 1.0)
|
|
(set! f30-0 (+ 5461.3335 f30-0))
|
|
(set! sv-80 s0-0)
|
|
(set! (-> sv-80 x) (* arg3 (cos f30-0)))
|
|
(set! (-> sv-80 y) 0.0)
|
|
(set! (-> sv-80 z) (* arg3 (sin f30-0)))
|
|
(set! (-> sv-80 w) 1.0)
|
|
(when arg5
|
|
(vector-matrix*! s1-0 s1-0 arg5)
|
|
(vector-matrix*! s0-0 s0-0 arg5)
|
|
)
|
|
(vector+! s1-0 s1-0 arg2)
|
|
(vector+! s0-0 s0-0 arg2)
|
|
(add-debug-line #t arg1 s1-0 s0-0 arg4 #f (the-as rgba -1))
|
|
(set! sv-48 (+ sv-48 1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-vector
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-vector ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 vector) (arg4 meters) (arg5 rgba))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((v1-2 (new-stack-vector0)))
|
|
(set! (-> v1-2 x) (+ (-> arg2 x) (* (-> arg3 x) arg4)))
|
|
(set! (-> v1-2 y) (+ (-> arg2 y) (* (-> arg3 y) arg4)))
|
|
(set! (-> v1-2 z) (+ (-> arg2 z) (* (-> arg3 z) arg4)))
|
|
(add-debug-line #t arg1 arg2 v1-2 arg5 #f (the-as rgba -1))
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-matrix
|
|
(defun-debug add-debug-matrix ((arg0 symbol) (arg1 bucket-id) (arg2 matrix))
|
|
(add-debug-vector
|
|
arg0
|
|
arg1
|
|
(-> arg2 vector 3)
|
|
(the-as vector (-> arg2 vector))
|
|
(meters 2.0)
|
|
(new 'static 'rgba :r #xff :a #x80)
|
|
)
|
|
(add-debug-vector
|
|
arg0
|
|
arg1
|
|
(-> arg2 vector 3)
|
|
(-> arg2 vector 1)
|
|
(meters 2.0)
|
|
(new 'static 'rgba :g #xff :a #x80)
|
|
)
|
|
(add-debug-vector
|
|
arg0
|
|
arg1
|
|
(-> arg2 vector 3)
|
|
(-> arg2 vector 2)
|
|
(meters 2.0)
|
|
(new 'static 'rgba :b #xff :a #x80)
|
|
)
|
|
arg2
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-rot-matrix
|
|
(defun-debug add-debug-rot-matrix ((arg0 symbol) (arg1 bucket-id) (arg2 matrix) (arg3 vector))
|
|
(add-debug-vector
|
|
arg0
|
|
arg1
|
|
arg3
|
|
(the-as vector (-> arg2 vector))
|
|
(meters 2.0)
|
|
(new 'static 'rgba :r #xff :a #x80)
|
|
)
|
|
(add-debug-vector arg0 arg1 arg3 (-> arg2 vector 1) (meters 2.0) (new 'static 'rgba :g #xff :a #x80))
|
|
(add-debug-vector arg0 arg1 arg3 (-> arg2 vector 2) (meters 2.0) (new 'static 'rgba :b #xff :a #x80))
|
|
arg2
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-yrot-vector
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Stack slot offset 32 signed mismatch
|
|
;; WARN: Stack slot load at 32 mismatch: defined as size 4, got size 16
|
|
(defun-debug add-debug-yrot-vector ((arg0 symbol) (arg1 bucket-id) (arg2 vector) (arg3 float) (arg4 float) (arg5 rgba))
|
|
(local-vars (sv-32 float))
|
|
(set! sv-32 arg3)
|
|
(let ((s0-0 arg4)
|
|
(s3-0 arg5)
|
|
)
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((s1-0 (new-stack-vector0)))
|
|
(set-vector! s1-0 (+ (-> arg2 x) (* (sin sv-32) s0-0)) (-> arg2 y) (+ (-> arg2 z) (* (cos sv-32) s0-0)) 1.0)
|
|
(add-debug-line arg0 arg1 s1-0 arg2 s3-0 #f (the-as rgba -1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-arc
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-arc ((arg0 symbol)
|
|
(arg1 bucket-id)
|
|
(arg2 vector)
|
|
(arg3 float)
|
|
(arg4 float)
|
|
(arg5 float)
|
|
(arg6 rgba)
|
|
(arg7 matrix)
|
|
)
|
|
(local-vars (sv-48 vector) (sv-64 vector) (sv-80 int) (sv-96 vector) (sv-112 vector))
|
|
"note: you may pass #f for orientation"
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((f30-0 arg3))
|
|
(set! sv-48 (new 'stack-no-clear 'vector))
|
|
(set! (-> sv-48 quad) (the-as uint128 0))
|
|
(set! sv-64 (new 'stack-no-clear 'vector))
|
|
(set! (-> sv-64 quad) (the-as uint128 0))
|
|
(set! sv-80 0)
|
|
(while (< sv-80 12)
|
|
(set! sv-96 sv-48)
|
|
(set! (-> sv-96 x) (* arg5 (sin f30-0)))
|
|
(set! (-> sv-96 y) 0.0)
|
|
(set! (-> sv-96 z) (* arg5 (cos f30-0)))
|
|
(set! (-> sv-96 w) 1.0)
|
|
(+! f30-0 (the float (/ (the int (- arg4 arg3)) 12)))
|
|
(set! sv-112 sv-64)
|
|
(set! (-> sv-112 x) (* arg5 (sin f30-0)))
|
|
(set! (-> sv-112 y) 0.0)
|
|
(set! (-> sv-112 z) (* arg5 (cos f30-0)))
|
|
(set! (-> sv-112 w) 1.0)
|
|
(when arg7
|
|
(vector-matrix*! sv-48 sv-48 arg7)
|
|
(vector-matrix*! sv-64 sv-64 arg7)
|
|
)
|
|
(vector+! sv-48 sv-48 arg2)
|
|
(vector+! sv-64 sv-64 arg2)
|
|
(add-debug-line #t arg1 sv-48 sv-64 arg6 #f (the-as rgba -1))
|
|
(cond
|
|
((zero? sv-80)
|
|
(add-debug-line #t arg1 sv-48 arg2 arg6 #f (the-as rgba -1))
|
|
)
|
|
((= sv-80 11)
|
|
(add-debug-line #t arg1 sv-64 arg2 arg6 #f (the-as rgba -1))
|
|
)
|
|
)
|
|
(set! sv-80 (+ sv-80 1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-curve
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-curve ((arg0 symbol)
|
|
(arg1 bucket-id)
|
|
(arg2 (inline-array vector))
|
|
(arg3 int)
|
|
(arg4 (pointer float))
|
|
(arg5 int)
|
|
(arg6 rgba)
|
|
)
|
|
(local-vars (sv-48 vector) (sv-64 int) (sv-80 int))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let ((s0-0 (new-stack-vector0)))
|
|
(set! sv-48 (new 'stack-no-clear 'vector))
|
|
(set! (-> sv-48 quad) (the-as uint128 0))
|
|
(set! sv-64 (* arg3 4))
|
|
(curve-evaluate! sv-48 (-> arg4 0) arg2 arg3 arg4 arg5)
|
|
(set! sv-80 0)
|
|
(while (< sv-80 sv-64)
|
|
(set! (-> s0-0 quad) (-> sv-48 quad))
|
|
(curve-evaluate! sv-48 (/ (the float (+ sv-80 1)) (the float sv-64)) arg2 arg3 arg4 arg5)
|
|
(add-debug-line #t arg1 s0-0 sv-48 arg6 #f (the-as rgba -1))
|
|
(set! sv-80 (+ sv-80 1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-curve2
|
|
(defun-debug add-debug-curve2 ((arg0 symbol) (arg1 bucket-id) (arg2 curve) (arg3 rgba) (arg4 symbol))
|
|
(if arg0
|
|
(add-debug-curve #t arg1 (-> arg2 cverts) (-> arg2 num-cverts) (-> arg2 knots) (-> arg2 num-knots) arg3)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-points
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-points ((arg0 symbol) (arg1 bucket-id) (arg2 (inline-array vector)) (arg3 int) (arg4 rgba) (arg5 float) (arg6 int))
|
|
(local-vars
|
|
(sv-32 (function symbol bucket-id string vector font-color vector2h symbol))
|
|
(sv-48 symbol)
|
|
(sv-64 bucket-id)
|
|
(sv-80 (function _varargs_ object))
|
|
(sv-96 vector)
|
|
)
|
|
(when arg0
|
|
(dotimes (s0-0 arg3)
|
|
(set! sv-96 (new 'stack-no-clear 'vector))
|
|
(set! (-> sv-96 quad) (the-as uint128 0))
|
|
(set! (-> sv-96 quad) (-> arg2 s0-0 quad))
|
|
(if (!= arg5 0.0)
|
|
(set! (-> sv-96 y) arg5)
|
|
)
|
|
(set! sv-32 add-debug-text-3d)
|
|
(set! sv-48 #t)
|
|
(set! sv-64 arg1)
|
|
(set! sv-80 format)
|
|
(let ((a0-5 (clear *temp-string*))
|
|
(a1-1 "~d")
|
|
(a2-1 s0-0)
|
|
)
|
|
(sv-80 a0-5 a1-1 a2-1)
|
|
)
|
|
(let ((a2-2 *temp-string*)
|
|
(a3-1 sv-96)
|
|
(t0-1 1)
|
|
(t1-1 #f)
|
|
)
|
|
(sv-32 sv-48 sv-64 a2-2 a3-1 (the-as font-color t0-1) (the-as vector2h t1-1))
|
|
)
|
|
(let ((t9-3 add-debug-x)
|
|
(a0-7 #t)
|
|
(a1-3 arg1)
|
|
(a3-2 (if (= s0-0 arg6)
|
|
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
|
|
arg4
|
|
)
|
|
)
|
|
)
|
|
(t9-3 a0-7 a1-3 sv-96 a3-2)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function debug-percent-bar
|
|
(defun-debug debug-percent-bar ((arg0 symbol) (arg1 bucket-id) (arg2 int) (arg3 int) (arg4 float) (arg5 rgba))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(let* ((s0-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(s5-0 (-> s0-0 base))
|
|
)
|
|
(draw-sprite2d-xy s0-0 arg2 arg3 255 14 (new 'static 'rgba :a #x40))
|
|
(draw-sprite2d-xy s0-0 arg2 (+ arg3 2) (the int (* 255.0 arg4)) 10 arg5)
|
|
(let ((a3-3 (-> s0-0 base)))
|
|
(let ((v1-5 (the-as dma-packet (-> s0-0 base))))
|
|
(set! (-> v1-5 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> v1-5 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-5 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s0-0 base) (&+ (the-as pointer v1-5) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
arg1
|
|
s5-0
|
|
(the-as (pointer dma-tag) a3-3)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function debug-pad-display
|
|
;; INFO: Used lq/sq
|
|
(defun-debug debug-pad-display ((arg0 cpad-info))
|
|
(let ((gp-0 (new 'static 'inline-array vector 8
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
(new 'static 'vector)
|
|
)
|
|
)
|
|
)
|
|
(countdown (v1-0 31)
|
|
(let ((a0-3 (-> gp-0 v1-0 quad)))
|
|
(set! (-> gp-0 (+ v1-0 1) quad) a0-3)
|
|
)
|
|
)
|
|
(set! (-> gp-0 0 x) (* (sin (-> arg0 stick0-dir)) (-> arg0 stick0-speed)))
|
|
(set! (-> gp-0 0 y) (* (cos (-> arg0 stick0-dir)) (-> arg0 stick0-speed)))
|
|
(dotimes (s5-1 32)
|
|
(let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(s4-0 (-> s3-0 base))
|
|
)
|
|
(draw-sprite2d-xy
|
|
s3-0
|
|
(the int (* 120.0 (-> gp-0 s5-1 x)))
|
|
(the int (* 144.0 (-> gp-0 s5-1 y)))
|
|
10
|
|
10
|
|
(new 'static 'rgba :a #x80 :r (- 255 (* 7 s5-1)))
|
|
)
|
|
(let ((a3-1 (-> s3-0 base)))
|
|
(let ((v1-12 (the-as dma-packet (-> s3-0 base))))
|
|
(set! (-> v1-12 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> v1-12 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-12 vif1) (new 'static 'vif-tag))
|
|
(set! (-> s3-0 base) (&+ (the-as pointer v1-12) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
(bucket-id debug)
|
|
s4-0
|
|
(the-as (pointer dma-tag) a3-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-light
|
|
;; INFO: Used lq/sq
|
|
(defun-debug add-debug-light ((arg0 symbol) (arg1 bucket-id) (arg2 light) (arg3 vector) (arg4 string))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(when (!= (-> arg2 levels x) 0.0)
|
|
(add-debug-vector
|
|
arg0
|
|
arg1
|
|
arg3
|
|
(-> arg2 direction)
|
|
(meters 3.0)
|
|
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
|
|
)
|
|
(let ((s2-1 (vector+*! (new-stack-vector0) arg3 (-> arg2 direction) (* 12288.0 (-> arg2 levels x))))
|
|
(s1-0 (logior (logior (logior (shr (shl (the int (* 128.0 (-> arg2 color w))) 56) 32)
|
|
(shr (shl (the int (* 128.0 (-> arg2 color z))) 56) 40)
|
|
)
|
|
(shr (shl (the int (* 128.0 (-> arg2 color y))) 56) 48)
|
|
)
|
|
(shr (shl (the int (* 128.0 (-> arg2 color x))) 56) 56)
|
|
)
|
|
)
|
|
)
|
|
(format (clear *temp-string*) "~S ~,,2f" arg4 (-> arg2 levels x))
|
|
(let ((t0-2 *temp-string*))
|
|
(add-debug-text-sphere arg0 arg1 s2-1 (* 2048.0 (-> arg2 levels x)) t0-2 (the-as rgba s1-0))
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function add-debug-lights
|
|
(defun-debug add-debug-lights ((arg0 symbol) (arg1 bucket-id) (arg2 (inline-array light)) (arg3 vector))
|
|
(if (not arg0)
|
|
(return #f)
|
|
)
|
|
(add-debug-light arg0 arg1 (-> arg2 0) arg3 "dir0")
|
|
(add-debug-light arg0 arg1 (-> arg2 1) arg3 "dir1")
|
|
(add-debug-light arg0 arg1 (-> arg2 2) arg3 "dir2")
|
|
(add-debug-light arg0 arg1 (-> arg2 3) arg3 "ambi")
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function drawable-frag-count
|
|
(defun-debug drawable-frag-count ((arg0 drawable))
|
|
(let ((gp-0 0))
|
|
(cond
|
|
((not arg0)
|
|
)
|
|
((type-type? (-> arg0 type) drawable-group)
|
|
(dotimes (s4-0 (-> (the-as drawable-group arg0) length))
|
|
(+! gp-0 (drawable-frag-count (-> (the-as drawable-group arg0) data s4-0)))
|
|
)
|
|
)
|
|
(else
|
|
(+! gp-0 1)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type debug-vertex-stats
|
|
;; INFO: this function exists in multiple non-identical object files
|
|
(defmethod inspect debug-vertex-stats ((obj debug-vertex-stats))
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~Tlength: ~D~%" (-> obj length))
|
|
(format #t "~Tpos-count: ~D~%" (-> obj pos-count))
|
|
(format #t "~Tdata[~D]: @ #x~X~%" (-> obj length) (-> obj vertex))
|
|
(dotimes (s5-0 (-> obj length))
|
|
(let ((s4-0 (-> obj vertex s5-0)))
|
|
(format
|
|
#t
|
|
" ~D : trans: ~D ~D ~D ~D"
|
|
s5-0
|
|
(-> s4-0 trans x)
|
|
(-> s4-0 trans y)
|
|
(-> s4-0 trans z)
|
|
(-> s4-0 trans w)
|
|
)
|
|
(format #t " st: ~D ~D~%" (-> s4-0 st x) (-> s4-0 st y))
|
|
(format
|
|
#t
|
|
" col: ~X norm: ~D ~D ~D~%"
|
|
(-> s4-0 color)
|
|
(-> s4-0 normal x)
|
|
(-> s4-0 normal y)
|
|
(-> s4-0 normal z)
|
|
)
|
|
)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition (debug) for function history-init
|
|
(defun-debug history-init ((arg0 pos-history) (arg1 int))
|
|
(set! (-> arg0 num-points) arg1)
|
|
(set! (-> arg0 points) (the-as (inline-array vector) #f))
|
|
arg0
|
|
)
|
|
|
|
;; definition (debug) for function history-draw-and-update
|
|
;; INFO: Used lq/sq
|
|
(defun-debug history-draw-and-update ((arg0 pos-history) (arg1 int) (arg2 vector))
|
|
(if (and arg1 (not (-> arg0 points)))
|
|
(set! (-> arg0 points) (the-as (inline-array vector) (malloc 'debug (* (-> arg0 num-points) 16))))
|
|
)
|
|
(when (-> arg0 points)
|
|
(set! (-> arg0 points (-> arg0 h-first) quad) (-> arg2 quad))
|
|
(+! (-> arg0 h-first) 1)
|
|
(when (>= (-> arg0 h-first) (-> arg0 num-points))
|
|
(set! (-> arg0 h-first) 0)
|
|
0
|
|
)
|
|
)
|
|
(when arg1
|
|
(dotimes (s5-1 (+ (-> arg0 num-points) -1))
|
|
(if (!= (+ s5-1 1) (-> arg0 h-first))
|
|
(add-debug-line
|
|
#t
|
|
(bucket-id debug-no-zbuf)
|
|
(-> arg0 points s5-1)
|
|
(-> arg0 points (+ s5-1 1))
|
|
(new 'static 'rgba :r #x80 :g #xc0 :b #x80 :a #x80)
|
|
#f
|
|
(the-as rgba -1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition (debug) for function dma-timeout-cam
|
|
;; INFO: Used lq/sq
|
|
(defun-debug dma-timeout-cam ()
|
|
(let ((a0-0 (new-stack-vector0))
|
|
(a1-0 (new-stack-matrix0))
|
|
)
|
|
(set! (-> a0-0 x) -666764.4)
|
|
(set! (-> a0-0 y) 21102.984)
|
|
(set! (-> a0-0 z) 51613.348)
|
|
(set! (-> a0-0 w) 1.0)
|
|
(set! (-> a1-0 vector 0 x) -0.911)
|
|
(set! (-> a1-0 vector 0 y) 0.0)
|
|
(set! (-> a1-0 vector 0 z) 0.4122)
|
|
(set! (-> a1-0 vector 0 w) 0.0)
|
|
(set! (-> a1-0 vector 1 x) -0.0984)
|
|
(set! (-> a1-0 vector 1 y) 0.971)
|
|
(set! (-> a1-0 vector 1 z) -0.2174)
|
|
(set! (-> a1-0 vector 1 w) 0.0)
|
|
(set! (-> a1-0 vector 2 x) -0.4003)
|
|
(set! (-> a1-0 vector 2 y) -0.2387)
|
|
(set! (-> a1-0 vector 2 z) -0.8847)
|
|
(set! (-> a1-0 vector 2 w) 0.0)
|
|
(set! (-> a1-0 vector 3 x) 0.0)
|
|
(set! (-> a1-0 vector 3 y) 0.0)
|
|
(set! (-> a1-0 vector 3 z) 0.0)
|
|
(set! (-> a1-0 vector 3 w) 1.0)
|
|
(debug-set-camera-pos-rot! a0-0 a1-0)
|
|
)
|
|
)
|
|
|
|
;; definition (debug) for function display-file-info
|
|
(defun-debug display-file-info ()
|
|
(when (and *display-file-info* (!= *master-mode* 'menu))
|
|
(dotimes (gp-0 (-> *level* length))
|
|
(let ((v1-7 (-> *level* level gp-0)))
|
|
(when (= (-> v1-7 status) 'active)
|
|
(let ((s5-0 (-> v1-7 bsp)))
|
|
(format *stdcon* "file name: ~S~%" (-> s5-0 info file-name))
|
|
(format *stdcon* "version: ~D.~D~%" (-> s5-0 info major-version) (-> s5-0 info minor-version))
|
|
(format *stdcon* "maya file: ~S~%" (-> s5-0 info maya-file-name))
|
|
(format *stdcon* "mdb file: ~S~%" (-> s5-0 info mdb-file-name))
|
|
(format *stdcon* "~S" (-> s5-0 info tool-debug))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
)
|