mirror of
https://github.com/open-goal/jak-project
synced 2026-05-31 09:22:14 -04:00
Tyler Wilding
c162c66118
This PR does two main things: 1. Work through the main low-hanging fruit issues in the formatter keeping it from feeling mature and usable 2. Iterate and prove that point by formatting all of the Jak 1 code base. **This has removed around 100K lines in total.** - The decompiler will now format it's results for jak 1 to keep things from drifting back to where they were. This is controlled by a new config flag `format_code`. How am I confident this hasn't broken anything?: - I compiled the entire project and stored it's `out/jak1/obj` files separately - I then recompiled the project after formatting and wrote a script that md5's each file and compares it (`compare-compilation-outputs.py` - The results (eventually) were the same:  > This proves that the only difference before and after is non-critical whitespace for all code/macros that is actually in use. I'm still aware of improvements that could be made to the formatter, as well as general optimization of it's performance. But in general these are for rare or non-critical situations in my opinion and I'll work through them before doing Jak 2. The vast majority looks great and is working properly at this point. Those known issues are the following if you are curious: 
1020 lines
56 KiB
Common Lisp
1020 lines
56 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
(require "engine/collide/pat-h.gc")
|
|
(require "engine/anim/joint-mod-h.gc")
|
|
(require "engine/math/euler.gc")
|
|
(require "engine/geometry/bounding-box-h.gc")
|
|
(require "engine/debug/debug.gc")
|
|
(require "engine/collide/collide-mesh-h.gc")
|
|
(require "engine/camera/camera.gc")
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
;; failed to figure out what this is:
|
|
(when (or (not *camera-old-cpu*) (zero? *camera-old-cpu*))
|
|
(set! *camera-old-cpu* 0)
|
|
0)
|
|
|
|
;; failed to figure out what this is:
|
|
(when (or (not *camera-old-vu*) (zero? *camera-old-vu*))
|
|
(set! *camera-old-vu* 0)
|
|
0)
|
|
|
|
;; failed to figure out what this is:
|
|
(when (or (not *camera-old-tfrag-bytes*) (zero? *camera-old-tfrag-bytes*))
|
|
(set! *camera-old-tfrag-bytes* 0)
|
|
0)
|
|
|
|
;; definition (perm) for symbol *camera-old-level*, type string
|
|
(define-perm *camera-old-level* string (new 'global 'string 128 (the-as string #f)))
|
|
|
|
;; definition (perm) for symbol *camera-old-stat-string-tfrag*, type string
|
|
(define-perm *camera-old-stat-string-tfrag* string (new 'global 'string 128 (the-as string #f)))
|
|
|
|
;; definition (perm) for symbol *camera-old-stat-string-tfrag-near*, type string
|
|
(define-perm *camera-old-stat-string-tfrag-near* string (new 'global 'string 128 (the-as string #f)))
|
|
|
|
;; definition (perm) for symbol *camera-old-stat-string-total*, type string
|
|
(define-perm *camera-old-stat-string-total* string (new 'global 'string 128 (the-as string #f)))
|
|
|
|
;; definition of type cam-dbg-scratch
|
|
(deftype cam-dbg-scratch (structure)
|
|
((linevec4w vector4w 2 :inline :offset-assert 0)
|
|
(color vector :inline :offset-assert 32)
|
|
(plotvec vector4w 2 :inline :offset-assert 48)
|
|
(linevec vector4w 2 :inline :offset-assert 80)
|
|
(rel-vec vector :inline :offset-assert 112)
|
|
(sphere-v-start vector :inline :offset-assert 128)
|
|
(sphere-v-end vector :inline :offset-assert 144)
|
|
(sphere-v-down vector :inline :offset-assert 160)
|
|
(sphere-vec vector :inline :offset-assert 176)
|
|
(crossvec vector 3 :inline :offset-assert 192)
|
|
(bboxvec vector 6 :inline :offset-assert 240)
|
|
(fov-vv vector 4 :inline :offset-assert 336)
|
|
(fov-src vector :inline :offset-assert 400)
|
|
(fov-dest vector :inline :offset-assert 416)
|
|
(fov-vert vector :inline :offset-assert 432)
|
|
(fov-horz vector :inline :offset-assert 448))
|
|
:method-count-assert 9
|
|
:size-assert #x1d0
|
|
:flag-assert #x9000001d0)
|
|
|
|
;; definition for method 3 of type cam-dbg-scratch
|
|
(defmethod inspect ((obj cam-dbg-scratch))
|
|
(format #t "[~8x] ~A~%" obj 'cam-dbg-scratch)
|
|
(format #t "~Tlinevec4w[2] @ #x~X~%" (-> obj linevec4w))
|
|
(format #t "~Tcolor: ~`vector`P~%" (-> obj color))
|
|
(format #t "~Tplotvec[2] @ #x~X~%" (-> obj plotvec))
|
|
(format #t "~Tlinevec[2] @ #x~X~%" (-> obj linevec))
|
|
(format #t "~Trel-vec: ~`vector`P~%" (-> obj rel-vec))
|
|
(format #t "~Tsphere-v-start: ~`vector`P~%" (-> obj sphere-v-start))
|
|
(format #t "~Tsphere-v-end: ~`vector`P~%" (-> obj sphere-v-end))
|
|
(format #t "~Tsphere-v-down: ~`vector`P~%" (-> obj sphere-v-down))
|
|
(format #t "~Tsphere-vec: ~`vector`P~%" (-> obj sphere-vec))
|
|
(format #t "~Tcrossvec[3] @ #x~X~%" (-> obj crossvec))
|
|
(format #t "~Tbboxvec[6] @ #x~X~%" (-> obj bboxvec))
|
|
(format #t "~Tfov-vv[4] @ #x~X~%" (-> obj fov-vv))
|
|
(format #t "~Tfov-src: ~`vector`P~%" (-> obj fov-src))
|
|
(format #t "~Tfov-dest: ~`vector`P~%" (-> obj fov-dest))
|
|
(format #t "~Tfov-vert: ~`vector`P~%" (-> obj fov-vert))
|
|
(format #t "~Tfov-horz: ~`vector`P~%" (-> obj fov-horz))
|
|
obj)
|
|
|
|
;; definition for function cam-slave-options->string
|
|
;; INFO: Return type mismatch object vs string.
|
|
(defun cam-slave-options->string ((arg0 cam-slave-options) (arg1 object))
|
|
(if (= (logand (cam-slave-options AIR_EXIT) arg0) (cam-slave-options AIR_EXIT)) (format arg1 "AIR_EXIT "))
|
|
(if (= (logand (cam-slave-options STICKY_ANGLE) arg0) (cam-slave-options STICKY_ANGLE)) (format arg1 "STICKY_ANGLE "))
|
|
(if (= (logand arg0 (cam-slave-options NO_ROTATE)) (cam-slave-options NO_ROTATE)) (format arg1 "NO_ROTATE "))
|
|
(if (= (logand arg0 (cam-slave-options BIKE_MODE)) (cam-slave-options BIKE_MODE)) (format arg1 "BIKE_MODE "))
|
|
(if (= (logand arg0 (cam-slave-options BLOCK_SHIFT_BUTTONS)) (cam-slave-options BLOCK_SHIFT_BUTTONS))
|
|
(format arg1 "BLOCK_SHIFT_BUTTONS "))
|
|
(if (= (logand arg0 (cam-slave-options GOTO_GOOD_POINT)) (cam-slave-options GOTO_GOOD_POINT))
|
|
(format arg1 "GOTO_GOOD_POINT "))
|
|
(if (= (logand arg0 (cam-slave-options SHRINK_MAX_ANGLE)) (cam-slave-options SHRINK_MAX_ANGLE))
|
|
(format arg1 "SHRINK_MAX_ANGLE "))
|
|
(if (= (logand arg0 (cam-slave-options MOVEMENT_BLOCKED)) (cam-slave-options MOVEMENT_BLOCKED))
|
|
(format arg1 "MOVEMENT_BLOCKED "))
|
|
(if (= (logand arg0 (cam-slave-options LINE_OF_SIGHT)) (cam-slave-options LINE_OF_SIGHT)) (format arg1 "LINE_OF_SIGHT "))
|
|
(if (= (logand arg0 (cam-slave-options PLAYER_MOVING_CAMERA)) (cam-slave-options PLAYER_MOVING_CAMERA))
|
|
(format arg1 "PLAYER_MOVING_CAMERA "))
|
|
(if (= (logand arg0 (cam-slave-options DRAG)) (cam-slave-options DRAG)) (format arg1 "DRAG "))
|
|
(if (= (logand arg0 (cam-slave-options FIND_HIDDEN_TARGET)) (cam-slave-options FIND_HIDDEN_TARGET))
|
|
(format arg1 "FIND_HIDDEN_TARGET "))
|
|
(if (= (logand arg0 (cam-slave-options COLLIDE)) (cam-slave-options COLLIDE)) (format arg1 "COLLIDE "))
|
|
(if (= (logand arg0 (cam-slave-options JUMP_PITCHES)) (cam-slave-options JUMP_PITCHES)) (format arg1 "JUMP_PITCHES "))
|
|
(if (= (logand arg0 (cam-slave-options ALLOW_Z_ROT)) (cam-slave-options ALLOW_Z_ROT)) (format arg1 "ALLOW_Z_ROT "))
|
|
(if (= (logand arg0 (cam-slave-options MOVE_SPHERICAL)) (cam-slave-options MOVE_SPHERICAL)) (format arg1 "MOVE_SPHERICAL "))
|
|
(if (= (logand arg0 (cam-slave-options SAME_SIDE)) (cam-slave-options SAME_SIDE)) (format arg1 "SAME_SIDE "))
|
|
(if (= (logand arg0 (cam-slave-options BUTT_CAM)) (cam-slave-options BUTT_CAM)) (format arg1 "BUTT_CAM "))
|
|
(the-as string arg1))
|
|
|
|
;; definition for function cam-index-options->string
|
|
;; INFO: Return type mismatch object vs string.
|
|
(defun cam-index-options->string ((arg0 cam-index-options) (arg1 object))
|
|
(if (= (logand arg0 (cam-index-options SPHERICAL)) (cam-index-options SPHERICAL)) (format arg1 "RADIAL "))
|
|
(if (= (logand arg0 (cam-index-options RADIAL)) (cam-index-options RADIAL)) (format arg1 "SPHERICAL "))
|
|
(the-as string arg1))
|
|
|
|
;; definition for function slave-los-state->string
|
|
(defun slave-los-state->string ((arg0 slave-los-state))
|
|
(case arg0
|
|
(((slave-los-state between)) "between")
|
|
(((slave-los-state ccw)) "ccw")
|
|
(((slave-los-state cw)) "cw")
|
|
(((slave-los-state none)) "none")
|
|
(else "*unknown*")))
|
|
|
|
;; definition for function cam-line-dma
|
|
;; Used lq/sq
|
|
(defun cam-line-dma ()
|
|
(let* ((v1-3 (-> *display* frames (-> *display* on-screen) frame debug-buf))
|
|
(a2-0 (-> v1-3 base)))
|
|
(let ((a0-3 (the-as object (-> v1-3 base))))
|
|
(let* ((a1-0 v1-3)
|
|
(a3-0 (the-as object (-> a1-0 base))))
|
|
(set! (-> (the-as dma-packet a3-0) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet a3-0) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet a3-0) vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> a1-0 base) (&+ (the-as pointer a3-0) 16)))
|
|
(let* ((a1-1 v1-3)
|
|
(a3-2 (the-as object (-> a1-1 base))))
|
|
(set! (-> (the-as gs-gif-tag a3-2) 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! (-> (the-as gs-gif-tag 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)))
|
|
(set! (-> a1-1 base) (&+ (the-as pointer a3-2) 16)))
|
|
(let* ((a1-2 v1-3)
|
|
(a3-4 (-> a1-2 base)))
|
|
(set! (-> (the-as (pointer uint128) a3-4) 0) (-> (the-as vector (+ 32 (scratchpad-object int))) quad))
|
|
(set! (-> (the-as (pointer uint128) a3-4) 1)
|
|
(-> (the-as vector (-> (scratchpad-object cam-dbg-scratch) linevec4w)) quad))
|
|
(set! (-> a1-2 base) (&+ a3-4 32)))
|
|
(let* ((a3-6 v1-3)
|
|
(a1-3 (-> a3-6 base)))
|
|
(set! (-> (the-as (pointer uint128) a1-3) 0) (-> (the-as vector (+ 32 (scratchpad-object int))) quad))
|
|
(set! (-> (the-as (pointer uint128) a1-3) 1) (-> (the-as vector (+ 16 (scratchpad-object int))) quad))
|
|
(set! (-> a3-6 base) (&+ a1-3 32)))
|
|
(let ((a3-10 (/ (the-as int (+ (- -16 (the-as int a0-3)) (the-as int (-> v1-3 base)))) 16)))
|
|
(cond
|
|
((nonzero? a3-10)
|
|
(logior! (-> (the-as dma-packet a0-3) dma) (shr (shl a3-10 48) 48))
|
|
(logior! (-> (the-as (pointer uint64) a0-3) 1) (shl (shr (shl a3-10 48) 48) 32)))
|
|
(else (set! (-> v1-3 base) (the-as (pointer uint64) a0-3))))))
|
|
(let ((a3-16 (-> v1-3 base)))
|
|
(let ((a0-4 (the-as object (-> v1-3 base))))
|
|
(set! (-> (the-as dma-packet a0-4) dma) (new 'static 'dma-tag :id (dma-tag-id next)))
|
|
(set! (-> (the-as dma-packet a0-4) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet a0-4) vif1) (new 'static 'vif-tag))
|
|
(set! (-> v1-3 base) (&+ (the-as pointer a0-4) 16)))
|
|
(dma-bucket-insert-tag (-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
(bucket-id debug-no-zbuf)
|
|
a2-0
|
|
(the-as (pointer dma-tag) a3-16)))))
|
|
|
|
;; definition for function camera-line2d
|
|
(defun camera-line2d ((arg0 vector4w) (arg1 vector4w))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 0 x) (* (+ (-> arg0 x) 1792) 16))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 0 y) (* (- (-> *video-parms* screen-maxy) (-> arg0 y)) 16))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 0 z) #x7fffff)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 1 x) (* (+ (-> arg1 x) 1792) 16))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 1 y) (* (- (-> *video-parms* screen-maxy) (-> arg1 y)) 16))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec4w 1 z) #x7fffff)
|
|
(cam-line-dma))
|
|
|
|
;; definition for function camera-plot-float-func
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun camera-plot-float-func ((arg0 float) (arg1 float) (arg2 float) (arg3 float) (arg4 (function float float)) (arg5 vector4w))
|
|
(let ((f30-0 (- arg1 arg0))
|
|
(f24-0 (- arg3 arg2)))
|
|
0.0
|
|
0.0
|
|
(let ((f28-0 (/ 200.0 f24-0))
|
|
(f26-0 (/ 400.0 f30-0)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) color x) (the-as float 128))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) color y) (the-as float 128))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) color z) (the-as float 128))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) color w) (the-as float 128))
|
|
(when (and (< arg0 0.0) (< 0.0 arg1))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) (+ (the int (* f26-0 f30-0 (/ (- arg0) f30-0))) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (+ (the int (* f28-0 f24-0)) 20))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int)))))
|
|
(when (and (< arg2 0.0) (< 0.0 arg3))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) (+ (the int (* f28-0 f24-0 (/ (- arg2) f24-0))) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (+ (the int (* f26-0 f30-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int)))))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (+ (the int (* f26-0 f30-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) 20)
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int))))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) (+ (the int (* f28-0 f24-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (+ (the int (* f26-0 f30-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (+ (the int (* f28-0 f24-0)) 20))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int))))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (+ (the int (* f28-0 f24-0)) 20))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int))))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 x) (+ (the int (* f26-0 f30-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 y) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (+ (the int (* f26-0 f30-0)) 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (+ (the int (* f28-0 f24-0)) 20))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int))))
|
|
(let ((v1-62 (-> arg5 quad))) (set! (-> (scratchpad-object cam-dbg-scratch) color quad) v1-62))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) 20)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y) (+ (the int (* f28-0 (- (arg4 arg0) arg2))) 20))
|
|
(let ((s3-1 1))
|
|
(while (>= (the int (* f26-0 f30-0)) s3-1)
|
|
(let ((v1-67 (-> (scratchpad-object cam-dbg-scratch) plotvec 1 quad)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 0 quad) v1-67))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 x) (+ s3-1 20))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) plotvec 1 y)
|
|
(+ (the int (* f28-0 (- (arg4 (+ arg0 (* f30-0 (/ (the float s3-1) (* f26-0 f30-0))))) arg2))) 20))
|
|
(camera-line2d (the-as vector4w (+ 48 (scratchpad-object int))) (the-as vector4w (+ 64 (scratchpad-object int))))
|
|
(+! s3-1 1)))))
|
|
0
|
|
(none))
|
|
|
|
;; definition for function camera-line-setup
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun camera-line-setup ((arg0 vector4w))
|
|
(let ((v1-0 (-> arg0 quad))) (set! (-> (scratchpad-object cam-dbg-scratch) color quad) v1-0))
|
|
(init-for-transform *identity-matrix*)
|
|
0
|
|
(none))
|
|
|
|
;; definition for function camera-line-draw
|
|
;; INFO: Return type mismatch int vs symbol.
|
|
;; Used lq/sq
|
|
(defun camera-line-draw ((arg0 vector) (arg1 vector))
|
|
(set! (-> (the-as (pointer uint128) (+ 80 (scratchpad-object int)))) (-> arg0 quad))
|
|
(set! (-> (the-as (pointer uint128) (+ 96 (scratchpad-object int)))) (-> arg1 quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec 0 w) (the-as int 1.0))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) linevec 1 w) (the-as int 1.0))
|
|
(transform-float-point (the-as vector (+ 80 (scratchpad-object int)))
|
|
(the-as vector4w (-> (scratchpad-object cam-dbg-scratch) linevec4w)))
|
|
(transform-float-point (the-as vector (+ 96 (scratchpad-object int))) (the-as vector4w (+ 16 (scratchpad-object int))))
|
|
(cond
|
|
((< (the-as uint #xe00000) (the-as uint (-> (scratchpad-object cam-dbg-scratch) linevec4w 0 z)))
|
|
(return (the-as symbol #f)))
|
|
((< (the-as uint #xe00000) (the-as uint (-> (scratchpad-object cam-dbg-scratch) linevec4w 1 z)))
|
|
(return (the-as symbol #f))))
|
|
(cam-line-dma)
|
|
(the-as symbol 0))
|
|
|
|
;; definition for function camera-line
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun camera-line ((arg0 vector) (arg1 vector) (arg2 vector4w))
|
|
(camera-line-setup arg2)
|
|
(camera-line-draw arg0 arg1)
|
|
0
|
|
(none))
|
|
|
|
;; definition for function camera-line-rel
|
|
(defun camera-line-rel ((arg0 vector) (arg1 vector) (arg2 vector4w))
|
|
(vector+! (the-as vector (+ 112 (scratchpad-object int))) arg0 arg1)
|
|
(camera-line arg0 (the-as vector (+ 112 (scratchpad-object int))) arg2)
|
|
(none))
|
|
|
|
;; definition for function camera-line-rel-len
|
|
(defun camera-line-rel-len ((arg0 vector) (arg1 vector) (arg2 float) (arg3 vector4w))
|
|
(vector-normalize-copy! (the-as vector (+ 112 (scratchpad-object int))) arg1 arg2)
|
|
(vector+! (the-as vector (+ 112 (scratchpad-object int))) (the-as vector (+ 112 (scratchpad-object int))) arg0)
|
|
(camera-line arg0 (the-as vector (+ 112 (scratchpad-object int))) arg3)
|
|
(none))
|
|
|
|
;; definition for function camera-sphere
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun camera-sphere ((arg0 vector) (arg1 float) (arg2 vector))
|
|
(camera-line-setup (the-as vector4w arg2))
|
|
(dotimes (s4-0 10)
|
|
(let ((f30-1 (* arg1 (sin (* 3276.8 (the float s4-0)))))
|
|
(f28-1 (* arg1 (sin (* 3276.8 (the float (+ s4-0 1)))))))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-start y)
|
|
(+ (-> arg0 y) (* (cos (* 3276.8 (the float s4-0))) arg1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-end y) (-> (scratchpad-object cam-dbg-scratch) sphere-v-start y))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-down y)
|
|
(+ (-> arg0 y) (* (cos (* 3276.8 (the float (+ s4-0 1)))) arg1)))
|
|
(dotimes (s3-0 10)
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-start x)
|
|
(+ (-> arg0 x) (* (cos (* 6553.6 (the float s3-0))) f30-1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-start z)
|
|
(+ (-> arg0 z) (* (sin (* 6553.6 (the float s3-0))) f30-1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-end x)
|
|
(+ (-> arg0 x) (* (cos (* 6553.6 (the float (+ s3-0 1)))) f30-1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-end z)
|
|
(+ (-> arg0 z) (* (sin (* 6553.6 (the float (+ s3-0 1)))) f30-1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-down x)
|
|
(+ (-> arg0 x) (* (cos (* 6553.6 (the float s3-0))) f28-1)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) sphere-v-down z)
|
|
(+ (-> arg0 z) (* (sin (* 6553.6 (the float s3-0))) f28-1)))
|
|
(camera-line-draw (the-as vector (+ 128 (scratchpad-object int))) (the-as vector (+ 144 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 128 (scratchpad-object int))) (the-as vector (+ 160 (scratchpad-object int)))))))
|
|
0
|
|
(none))
|
|
|
|
;; definition for function camera-cross
|
|
;; INFO: Return type mismatch none vs basic.
|
|
(defun camera-cross ((arg0 vector) (arg1 vector) (arg2 vector) (arg3 vector4w) (arg4 meters))
|
|
(vector-normalize-copy! (the-as vector (+ 192 (scratchpad-object int))) arg0 arg4)
|
|
(vector+! (the-as vector (+ 208 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(vector-! (the-as vector (+ 224 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(camera-line (the-as vector (+ 208 (scratchpad-object int))) (the-as vector (+ 224 (scratchpad-object int))) arg3)
|
|
(vector-cross! (the-as vector (+ 192 (scratchpad-object int))) (the-as vector (+ 192 (scratchpad-object int))) arg1)
|
|
(vector-normalize! (the-as vector (+ 192 (scratchpad-object int))) arg4)
|
|
(vector+! (the-as vector (+ 208 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(vector-! (the-as vector (+ 224 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(camera-line (the-as vector (+ 208 (scratchpad-object int))) (the-as vector (+ 224 (scratchpad-object int))) arg3)
|
|
(vector-cross! (the-as vector (+ 192 (scratchpad-object int))) (the-as vector (+ 192 (scratchpad-object int))) arg0)
|
|
(vector-normalize! (the-as vector (+ 192 (scratchpad-object int))) arg4)
|
|
(vector+! (the-as vector (+ 208 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(vector-! (the-as vector (+ 224 (scratchpad-object int))) arg2 (the-as vector (+ 192 (scratchpad-object int))))
|
|
(the-as basic
|
|
(camera-line (the-as vector (+ 208 (scratchpad-object int))) (the-as vector (+ 224 (scratchpad-object int))) arg3)))
|
|
|
|
;; definition for function camera-bounding-box-draw
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun camera-bounding-box-draw ((arg0 bounding-box) (arg1 basic) (arg2 rgba))
|
|
(camera-line-setup (new 'static 'vector4w :x #x7f :y #x7f :z #x7f :w #x80))
|
|
(set! (-> (the-as (pointer uint128) (+ 240 (scratchpad-object int)))) (-> arg0 min quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 0 x) (-> arg0 max x))
|
|
(set! (-> (the-as (pointer uint128) (+ 256 (scratchpad-object int)))) (-> arg0 min quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 1 y) (-> arg0 max y))
|
|
(set! (-> (the-as (pointer uint128) (+ 272 (scratchpad-object int)))) (-> arg0 min quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 2 z) (-> arg0 max z))
|
|
(set! (-> (the-as (pointer uint128) (+ 288 (scratchpad-object int)))) (-> arg0 max quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 3 x) (-> arg0 min x))
|
|
(set! (-> (the-as (pointer uint128) (+ 304 (scratchpad-object int)))) (-> arg0 max quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 4 y) (-> arg0 min y))
|
|
(set! (-> (the-as (pointer uint128) (+ 320 (scratchpad-object int)))) (-> arg0 max quad))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) bboxvec 5 z) (-> arg0 min z))
|
|
(camera-line-draw (-> arg0 min) (the-as vector (+ 240 (scratchpad-object int))))
|
|
(camera-line-draw (-> arg0 min) (the-as vector (+ 256 (scratchpad-object int))))
|
|
(camera-line-draw (-> arg0 min) (the-as vector (+ 272 (scratchpad-object int))))
|
|
(camera-line-draw (-> arg0 max) (the-as vector (+ 288 (scratchpad-object int))))
|
|
(camera-line-draw (-> arg0 max) (the-as vector (+ 304 (scratchpad-object int))))
|
|
(camera-line-draw (-> arg0 max) (the-as vector (+ 320 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 240 (scratchpad-object int))) (the-as vector (+ 304 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 304 (scratchpad-object int))) (the-as vector (+ 272 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 272 (scratchpad-object int))) (the-as vector (+ 288 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 288 (scratchpad-object int))) (the-as vector (+ 256 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 256 (scratchpad-object int))) (the-as vector (+ 320 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 320 (scratchpad-object int))) (the-as vector (+ 240 (scratchpad-object int))))
|
|
0
|
|
(none))
|
|
|
|
;; definition of type cam-debug-tri
|
|
(deftype cam-debug-tri (structure)
|
|
((vertex vector 3 :inline :offset-assert 0)
|
|
(intersect vector :inline :offset-assert 48)
|
|
(color vector4w :offset-assert 64))
|
|
:method-count-assert 9
|
|
:size-assert #x44
|
|
:flag-assert #x900000044)
|
|
|
|
;; definition for method 3 of type cam-debug-tri
|
|
(defmethod inspect ((obj cam-debug-tri))
|
|
(format #t "[~8x] ~A~%" obj 'cam-debug-tri)
|
|
(format #t "~Tvertex[3] @ #x~X~%" (-> obj vertex))
|
|
(format #t "~Tintersect: #<vector @ #x~X>~%" (-> obj intersect))
|
|
(format #t "~Tcolor: #<vector4w @ #x~X>~%" (-> obj color))
|
|
obj)
|
|
|
|
;; definition for symbol *cam-debug-los-tri-current*, type int
|
|
(define *cam-debug-los-tri-current* 0)
|
|
|
|
;; definition for symbol *cam-debug-los-tri*, type (inline-array cam-debug-tri)
|
|
(define *cam-debug-los-tri* (the-as (inline-array cam-debug-tri) (malloc 'debug #x8fc0)))
|
|
|
|
;; definition for symbol *cam-debug-coll-tri-current*, type int
|
|
(define *cam-debug-coll-tri-current* 0)
|
|
|
|
;; definition for symbol *cam-debug-coll-tri*, type (inline-array cam-debug-tri)
|
|
(define *cam-debug-coll-tri* (the-as (inline-array cam-debug-tri) (malloc 'debug #x8fc0)))
|
|
|
|
;; definition for function cam-debug-reset-coll-tri
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun cam-debug-reset-coll-tri ()
|
|
(set! *cam-debug-los-tri-current* 0)
|
|
(set! *cam-debug-coll-tri-current* 0)
|
|
0
|
|
(none))
|
|
|
|
;; definition for function cam-debug-add-los-tri
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun cam-debug-add-los-tri ((arg0 (inline-array collide-cache-tri)) (arg1 vector) (arg2 vector))
|
|
(cond
|
|
((>= *cam-debug-los-tri-current* 460))
|
|
(else
|
|
(let ((v1-3 (-> *cam-debug-los-tri* *cam-debug-los-tri-current*)))
|
|
(set! (-> v1-3 vertex 0 quad) (-> arg0 0 vertex 0 quad))
|
|
(set! (-> v1-3 vertex 1 quad) (-> arg0 0 vertex 1 quad))
|
|
(set! (-> v1-3 vertex 2 quad) (-> arg0 0 vertex 2 quad))
|
|
(set! (-> v1-3 intersect quad) (-> arg1 quad))
|
|
(set! (-> v1-3 color) (the-as vector4w arg2)))
|
|
(set! *cam-debug-los-tri-current* (+ *cam-debug-los-tri-current* 1))
|
|
(if (= *cam-debug-los-tri-current* 460) (format 0 "ERROR <GMJ>: cam-debug-add-los-tri overflow~%"))))
|
|
0
|
|
(none))
|
|
|
|
;; definition for function cam-debug-add-coll-tri
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defun cam-debug-add-coll-tri ((arg0 cam-debug-tri) (arg1 vector) (arg2 cam-debug-tri))
|
|
(cond
|
|
((>= *cam-debug-coll-tri-current* 460))
|
|
(else
|
|
(let ((v1-3 (-> *cam-debug-coll-tri* *cam-debug-coll-tri-current*)))
|
|
(set! (-> v1-3 vertex 0 quad) (-> arg0 vertex 0 quad))
|
|
(set! (-> v1-3 vertex 1 quad) (-> arg0 vertex 1 quad))
|
|
(set! (-> v1-3 vertex 2 quad) (-> arg0 vertex 2 quad))
|
|
(set! (-> v1-3 intersect quad) (-> arg1 quad))
|
|
(set! (-> v1-3 color) (the-as vector4w arg2)))
|
|
(set! *cam-debug-coll-tri-current* (+ *cam-debug-coll-tri-current* 1))
|
|
(if (>= *cam-debug-coll-tri-current* 460) (format 0 "ERROR <GMJ>: cam-debug-add-coll-tri overflow~%"))))
|
|
0
|
|
(none))
|
|
|
|
;; definition for function cam-debug-draw-tris
|
|
;; Used lq/sq
|
|
(defun cam-debug-draw-tris ()
|
|
(camera-line-setup (new 'stack 'vector4w))
|
|
(when *display-cam-los-marks*
|
|
(dotimes (gp-1 *cam-debug-los-tri-current*)
|
|
(let ((v1-7 (-> *cam-debug-los-tri* gp-1 color quad))) (set! (-> (scratchpad-object cam-dbg-scratch) color quad) v1-7))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0)) (* 80 gp-1)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0 vertex 1)) (* 80 gp-1))))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0 vertex 1)) (* 80 gp-1)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0 vertex 2)) (* 80 gp-1))))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0 vertex 2)) (* 80 gp-1)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-los-tri* 0)) (* 80 gp-1))))
|
|
(camera-cross (new 'static 'vector :y 1024.0)
|
|
(new 'static 'vector :z 1024.0)
|
|
(-> *cam-debug-los-tri* gp-1 intersect)
|
|
(-> *cam-debug-los-tri* gp-1 color)
|
|
(meters 0.25))))
|
|
(when *display-cam-coll-marks*
|
|
(dotimes (gp-2 *cam-debug-coll-tri-current*)
|
|
(let ((v1-34 (-> *cam-debug-coll-tri* gp-2 color quad)))
|
|
(set! (-> (scratchpad-object cam-dbg-scratch) color quad) v1-34))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0)) (* 80 gp-2)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0 vertex 1)) (* 80 gp-2))))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0 vertex 1)) (* 80 gp-2)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0 vertex 2)) (* 80 gp-2))))
|
|
(camera-line-draw (the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0 vertex 2)) (* 80 gp-2)))
|
|
(the-as vector (+ (the-as uint (-> *cam-debug-coll-tri* 0)) (* 80 gp-2))))
|
|
(camera-cross (new 'static 'vector :y 1024.0)
|
|
(new 'static 'vector :z 1024.0)
|
|
(-> *cam-debug-coll-tri* gp-2 intersect)
|
|
(-> *cam-debug-coll-tri* gp-2 color)
|
|
(meters 0.25)))
|
|
#f))
|
|
|
|
;; definition for function camera-fov-draw
|
|
(defun camera-fov-draw ((arg0 int) (arg1 int) (arg2 vector) (arg3 float) (arg4 float) (arg5 vector4w))
|
|
(vector+float*! (the-as vector (+ 336 (scratchpad-object int))) arg2 (the-as vector arg1) arg3)
|
|
(vector+float*! (the-as vector (+ 352 (scratchpad-object int))) arg2 (the-as vector arg0) arg3)
|
|
(vector+float*! (the-as vector (+ 368 (scratchpad-object int))) arg2 (the-as vector arg0) arg4)
|
|
(vector+float*! (the-as vector (+ 384 (scratchpad-object int))) arg2 (the-as vector arg1) arg4)
|
|
(camera-line-setup arg5)
|
|
(camera-line-draw (the-as vector (+ 336 (scratchpad-object int))) (the-as vector (+ 352 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 352 (scratchpad-object int))) (the-as vector (+ 368 (scratchpad-object int))))
|
|
(camera-line-draw (the-as vector (+ 368 (scratchpad-object int))) (the-as vector (+ 384 (scratchpad-object int)))))
|
|
|
|
;; definition for function camera-fov-frame
|
|
;; INFO: Return type mismatch symbol vs none.
|
|
;; Used lq/sq
|
|
(defun camera-fov-frame ((arg0 matrix) (arg1 vector) (arg2 float) (arg3 float) (arg4 float) (arg5 vector4w))
|
|
(vector-float*! (the-as vector (+ 432 (scratchpad-object int))) (-> arg0 vector 1) (* arg3 (tan arg2)))
|
|
(vector-float*! (the-as vector (+ 448 (scratchpad-object int))) (the-as vector (-> arg0 vector)) (* arg4 (tan arg2)))
|
|
(vector+! (the-as vector (+ 400 (scratchpad-object int)))
|
|
(-> arg0 vector 2)
|
|
(vector+! (the-as vector (+ 400 (scratchpad-object int)))
|
|
(the-as vector (+ 432 (scratchpad-object int)))
|
|
(the-as vector (+ 448 (scratchpad-object int)))))
|
|
(vector-normalize! (the-as vector (+ 400 (scratchpad-object int))) 1.0)
|
|
(vector+! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(-> arg0 vector 2)
|
|
(vector-! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(the-as vector (+ 432 (scratchpad-object int)))
|
|
(the-as vector (+ 448 (scratchpad-object int)))))
|
|
(vector-normalize! (the-as vector (+ 416 (scratchpad-object int))) 1.0)
|
|
(camera-fov-draw (+ 400 (scratchpad-object int)) (+ 416 (scratchpad-object int)) arg1 4096.0 20480.0 arg5)
|
|
(set! (-> (the-as (pointer uint128) (+ 400 (scratchpad-object int))))
|
|
(-> (the-as vector (+ 416 (scratchpad-object int))) quad))
|
|
(vector-! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(-> arg0 vector 2)
|
|
(vector+! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(the-as vector (+ 432 (scratchpad-object int)))
|
|
(the-as vector (+ 448 (scratchpad-object int)))))
|
|
(vector-normalize! (the-as vector (+ 416 (scratchpad-object int))) 1.0)
|
|
(camera-fov-draw (+ 400 (scratchpad-object int)) (+ 416 (scratchpad-object int)) arg1 4096.0 20480.0 arg5)
|
|
(set! (-> (the-as (pointer uint128) (+ 400 (scratchpad-object int))))
|
|
(-> (the-as vector (+ 416 (scratchpad-object int))) quad))
|
|
(vector-! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(-> arg0 vector 2)
|
|
(vector-! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(the-as vector (+ 432 (scratchpad-object int)))
|
|
(the-as vector (+ 448 (scratchpad-object int)))))
|
|
(vector-normalize! (the-as vector (+ 416 (scratchpad-object int))) 1.0)
|
|
(camera-fov-draw (+ 400 (scratchpad-object int)) (+ 416 (scratchpad-object int)) arg1 4096.0 20480.0 arg5)
|
|
(set! (-> (the-as (pointer uint128) (+ 400 (scratchpad-object int))))
|
|
(-> (the-as vector (+ 416 (scratchpad-object int))) quad))
|
|
(vector+! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(-> arg0 vector 2)
|
|
(vector+! (the-as vector (+ 416 (scratchpad-object int)))
|
|
(the-as vector (+ 432 (scratchpad-object int)))
|
|
(the-as vector (+ 448 (scratchpad-object int)))))
|
|
(vector-normalize! (the-as vector (+ 416 (scratchpad-object int))) 1.0)
|
|
(camera-fov-draw (+ 400 (scratchpad-object int)) (+ 416 (scratchpad-object int)) arg1 4096.0 20480.0 arg5)
|
|
(none))
|
|
|
|
;; definition for method 11 of type tracking-spline
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod print-nth-point ((obj tracking-spline) (arg0 int))
|
|
(if (= arg0 (-> obj used-point)) (format 0 "u") (format 0 " "))
|
|
(if (= arg0 (-> obj next-to-last-point)) (format 0 "n") (format 0 " "))
|
|
(if (= arg0 (-> obj end-point)) (format 0 "e") (format 0 " "))
|
|
(if (= arg0 -134250495)
|
|
(format 0 " ~D~%" arg0)
|
|
(format 0
|
|
" ~D ~M ~M ~M~%"
|
|
arg0
|
|
(-> obj point arg0 position x)
|
|
(-> obj point arg0 position y)
|
|
(-> obj point arg0 position z)))
|
|
0
|
|
(none))
|
|
|
|
(defmethod tracking-spline-method-12 ((obj tracking-spline))
|
|
(let ((s5-0 (-> obj used-point)))
|
|
(while (!= s5-0 -134250495)
|
|
(print-nth-point obj s5-0)
|
|
(set! s5-0 (-> obj point s5-0 next)))
|
|
(print-nth-point obj s5-0))
|
|
0
|
|
(none))
|
|
|
|
(defmethod tracking-spline-method-23 ((obj tracking-spline))
|
|
(let ((s5-0 (-> obj used-point))
|
|
(s4-0 (-> obj point (-> obj used-point) next)))
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(when (!= s4-0 -134250495)
|
|
(tracking-spline-method-19 obj 0.0 s3-0 (the-as tracking-spline-sampler #f))
|
|
(camera-cross (new 'static 'vector :y 1024.0)
|
|
(new 'static 'vector :z 1024.0)
|
|
s3-0
|
|
(new 'static 'vector4w :x #xff :w #x80)
|
|
(meters 0.25))
|
|
(tracking-spline-method-19 obj (-> obj sample-len) s3-0 (the-as tracking-spline-sampler #f))
|
|
(camera-cross (new 'static 'vector :y 1024.0)
|
|
(new 'static 'vector :z 1024.0)
|
|
s3-0
|
|
(new 'static 'vector4w :x #xff :w #x80)
|
|
(meters 0.25))))
|
|
(while (!= s4-0 -134250495)
|
|
(camera-line (the-as vector (-> obj point s5-0))
|
|
(the-as vector (-> obj point s4-0))
|
|
(new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80))
|
|
(set! s5-0 s4-0)
|
|
(set! s4-0 (-> obj point s4-0 next))))
|
|
(let ((s5-1 (new 'stack-no-clear 'vector)))
|
|
(camera-line (-> obj debug-out-position) (-> obj debug-old-position) (new 'static 'vector4w :x #xff :y #xff :w #x80))
|
|
(vector-! s5-1 (-> obj debug-out-position) (-> obj debug-old-position))
|
|
(tracking-spline-method-20 obj s5-1 (-> obj debug-last-point))
|
|
(camera-line-rel (-> obj debug-old-position) s5-1 (new 'static 'vector4w :x #xff :z #xff :w #x80)))
|
|
0
|
|
(none))
|
|
|
|
(defun debug-euler ((arg0 cam-dbg-scratch))
|
|
(let ((s4-0 (new 'stack-no-clear 'euler-angles))
|
|
(gp-0 (new 'stack-no-clear 'matrix)))
|
|
(matrix->eul s4-0 (the-as matrix (&-> arg0 sphere-vec w)) 21)
|
|
(format *stdcon* "euler angles x ~R y ~R z ~R~%" (-> s4-0 x) (-> s4-0 y) (-> s4-0 z))
|
|
(format *stdcon*
|
|
"~f ~f ~f ~f~%"
|
|
(-> arg0 sphere-vec w)
|
|
(-> arg0 crossvec 0 x)
|
|
(-> arg0 crossvec 0 y)
|
|
(-> arg0 crossvec 0 z))
|
|
(format *stdcon*
|
|
"~f ~f ~f ~f~%"
|
|
(-> arg0 crossvec 0 w)
|
|
(-> arg0 crossvec 1 x)
|
|
(-> arg0 crossvec 1 y)
|
|
(-> arg0 crossvec 1 z))
|
|
(format *stdcon*
|
|
"~f ~f ~f ~f~%"
|
|
(-> arg0 crossvec 1 w)
|
|
(-> arg0 crossvec 2 x)
|
|
(-> arg0 crossvec 2 y)
|
|
(-> arg0 crossvec 2 z))
|
|
(format *stdcon*
|
|
"~f ~f ~f ~f~%"
|
|
(-> arg0 crossvec 2 w)
|
|
(-> arg0 bboxvec 0 x)
|
|
(-> arg0 bboxvec 0 y)
|
|
(-> arg0 bboxvec 0 z))
|
|
(eul->matrix gp-0 s4-0)
|
|
(format *stdcon* "~f ~f ~f ~f~%" (-> gp-0 vector 0 x) (-> gp-0 vector 0 y) (-> gp-0 vector 0 z) (-> gp-0 vector 0 w))
|
|
(format *stdcon* "~f ~f ~f ~f~%" (-> gp-0 vector 1 x) (-> gp-0 vector 1 y) (-> gp-0 vector 1 z) (-> gp-0 vector 1 w))
|
|
(format *stdcon* "~f ~f ~f ~f~%" (-> gp-0 vector 2 x) (-> gp-0 vector 2 y) (-> gp-0 vector 2 z) (-> gp-0 vector 2 w))
|
|
(format *stdcon* "~f ~f ~f ~f~%" (-> gp-0 vector 3 x) (-> gp-0 vector 3 y) (-> gp-0 vector 3 z) (-> gp-0 vector 3 w))
|
|
(if (or (< 0.001 (fabs (- (-> arg0 sphere-vec w) (-> gp-0 vector 0 x))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 0 x) (-> gp-0 vector 0 y))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 0 y) (-> gp-0 vector 0 z))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 0 z) (-> gp-0 vector 0 w))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 0 w) (-> gp-0 vector 1 x))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 1 x) (-> gp-0 vector 1 y))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 1 y) (-> gp-0 vector 1 z))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 1 z) (-> gp-0 vector 1 w))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 1 w) (-> gp-0 vector 2 x))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 2 x) (-> gp-0 vector 2 y))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 2 y) (-> gp-0 vector 2 z))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 2 z) (-> gp-0 vector 2 w))))
|
|
(< 0.001 (fabs (- (-> arg0 crossvec 2 w) (-> gp-0 vector 3 x))))
|
|
(< 0.001 (fabs (- (-> arg0 bboxvec 0 x) (-> gp-0 vector 3 y))))
|
|
(< 0.001 (fabs (- (-> arg0 bboxvec 0 y) (-> gp-0 vector 3 z))))
|
|
(< 0.001 (fabs (- (-> arg0 bboxvec 0 z) (-> gp-0 vector 3 w)))))
|
|
(format *stdcon* "different~%")
|
|
(format *stdcon* "same~%"))))
|
|
|
|
(defun bike-cam-limit ((arg0 float))
|
|
(let* ((f0-1 (* 10012.444 arg0))
|
|
(f30-0 (fmax 0.0 f0-1)))
|
|
(if (< f30-0 8192.0) (* (/ 1.0 (- 1.0 (cos 21845.334))) (+ (- (cos 21845.334)) (cos (* 2.6666667 (- 8192.0 f30-0))))) 1.0)))
|
|
|
|
(defun camera-slave-debug ((arg0 camera-slave))
|
|
(when *display-camera-marks*
|
|
(let ((f30-0 (* 0.5 (-> *camera-combiner* fov))))
|
|
(camera-fov-frame (-> *camera-combiner* inv-camera-rot)
|
|
(camera-pos)
|
|
f30-0
|
|
0.75
|
|
1.0
|
|
(new 'static 'vector4w :z #xff :w #x80)))
|
|
(cond
|
|
((= (-> arg0 blend-to-type) 2)
|
|
(let ((f0-2 (* 0.5 (-> arg0 fov))))
|
|
(camera-fov-frame (the-as matrix (-> *camera-combiner* tracking))
|
|
(-> arg0 trans)
|
|
f0-2
|
|
0.75
|
|
1.0
|
|
(new 'static 'vector4w :y #xff :w #x80))))
|
|
(else
|
|
(let ((f0-4 (* 0.5 (-> arg0 fov))))
|
|
(camera-fov-frame (the-as matrix (-> arg0 tracking))
|
|
(-> arg0 trans)
|
|
f0-4
|
|
0.75
|
|
1.0
|
|
(new 'static 'vector4w :y #xff :w #x80)))))
|
|
(tracking-spline-method-23 (-> arg0 position-spline))
|
|
(let ((s5-1 (new-stack-vector0)))
|
|
(let ((s4-1 (new-stack-vector0)))
|
|
(new-stack-matrix0)
|
|
(cond
|
|
((or (= (-> arg0 next-state name) 'cam-fixed)
|
|
(or (= (-> arg0 next-state name) 'cam-eye)
|
|
(= (-> arg0 next-state name) 'cam-point-watch)
|
|
(= (-> arg0 next-state name) 'cam-free-floating)
|
|
(= (-> arg0 next-state name) 'cam-orbit)))
|
|
(vector+float*! s5-1 (-> arg0 trans) (-> *camera* local-down) 4096.0)
|
|
(camera-line (-> arg0 trans) s5-1 (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80)))
|
|
((= (-> arg0 blend-to-type) 2)
|
|
(camera-line (-> *camera-combiner* tracking follow-pt)
|
|
(-> arg0 trans)
|
|
(new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80))
|
|
(vector+float*! s5-1 (-> *camera-combiner* tracking follow-pt) (-> *camera* local-down) 4096.0)
|
|
(camera-line (-> *camera-combiner* tracking follow-pt) s5-1 (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80)))
|
|
(else
|
|
(camera-line (-> arg0 tracking follow-pt) (-> arg0 trans) (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80))
|
|
(vector+float*! s5-1 (-> arg0 tracking follow-pt) (-> *camera* local-down) 4096.0)
|
|
(camera-line (-> arg0 tracking follow-pt) s5-1 (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80))))
|
|
(set! (-> s4-1 quad) (-> arg0 trans quad))
|
|
(cond
|
|
((= (-> arg0 blend-to-type) 2)
|
|
(vector+float*! s5-1 s4-1 (the-as vector (-> *camera-combiner* tracking)) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :x #xff :w #x80))
|
|
(vector+float*! s5-1 s4-1 (-> *camera-combiner* tracking inv-mat vector 1) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :y #xff :w #x80))
|
|
(vector+float*! s5-1 s4-1 (-> *camera-combiner* tracking inv-mat vector 2) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :z #xff :w #x80)))
|
|
(else
|
|
(vector+float*! s5-1 s4-1 (the-as vector (-> arg0 tracking)) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :x #xff :w #x80))
|
|
(vector+float*! s5-1 s4-1 (-> arg0 tracking inv-mat vector 1) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :y #xff :w #x80))
|
|
(vector+float*! s5-1 s4-1 (-> arg0 tracking inv-mat vector 2) 2048.0)
|
|
(camera-line s4-1 s5-1 (new 'static 'vector4w :z #xff :w #x80)))))
|
|
(vector--float*! s5-1 (-> *camera* tpos-curr) (-> *camera* local-down) (-> *camera* foot-offset))
|
|
(camera-sphere s5-1 512.0 (the-as vector (new 'static 'vector4w :y #xff :w #x80)))
|
|
(vector--float*! s5-1 (-> *camera* tpos-curr) (-> *camera* local-down) (-> *camera* head-offset))
|
|
(camera-sphere s5-1 512.0 (the-as vector (new 'static 'vector4w :y #xff :w #x80))))
|
|
(cond
|
|
((= (-> arg0 next-state name) 'cam-string)
|
|
(camera-sphere (-> arg0 desired-pos) 512.0 (the-as vector (new 'static 'vector4w :z #xff :w #x80)))
|
|
(camera-line-rel (-> *camera* tpos-curr-adj) (-> arg0 view-flat) (new 'static 'vector4w :z #xff :w #x80))
|
|
(camera-line (-> arg0 string-trans)
|
|
(the-as vector (+ (the-as uint (-> *camera* target-spline)) (* 48 (-> arg0 los-tgt-spline-pt))))
|
|
(new 'static 'vector4w :y #xff :w #x80))
|
|
(camera-line (-> arg0 los-last-pos)
|
|
(the-as vector (+ (the-as uint (-> *camera* target-spline)) (* 48 (-> arg0 los-tgt-spline-pt))))
|
|
(new 'static 'vector4w :x #xff :w #x80)))
|
|
((= (-> arg0 next-state name) 'cam-circular)
|
|
(let ((s5-2 (new-stack-vector0)))
|
|
(vector+float*! s5-2 (-> arg0 pivot-pt) (-> *camera* local-down) 4096.0)
|
|
(camera-line (-> arg0 pivot-pt) s5-2 (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80)))
|
|
(camera-line (-> arg0 pivot-pt) (-> arg0 trans) (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80)))
|
|
((= (-> arg0 next-state name) 'cam-spline)
|
|
(let ((s5-3 (new 'stack 'curve))
|
|
(s4-2 (res-lump-struct (-> arg0 cam-entity) 'spline-offset structure)))
|
|
(if (not s4-2) (set! s4-2 (new-stack-vector0)))
|
|
(when (get-curve-data! (-> arg0 cam-entity) s5-3 'campath 'campath-k -1000000000.0)
|
|
(let ((s3-0 (new-stack-vector0))
|
|
(s2-0 (new-stack-vector0))
|
|
(gp-1 (res-lump-data (-> arg0 cam-entity) 'campoints pointer :time 1.0)))
|
|
(curve-get-pos! s2-0 0.0 s5-3)
|
|
(vector+! s2-0 s2-0 (the-as vector s4-2))
|
|
(dotimes (s1-0 8)
|
|
(set! (-> s3-0 quad) (-> s2-0 quad))
|
|
(curve-get-pos! s2-0 (* 0.125 (the float (+ s1-0 1))) s5-3)
|
|
(vector+! s2-0 s2-0 (the-as vector s4-2))
|
|
(camera-line s3-0 s2-0 (new 'static 'vector4w :x #xff :y #xff :w #x80)))
|
|
(dotimes (s1-1 (-> s5-3 num-cverts))
|
|
(vector+! s3-0 (-> s5-3 cverts s1-1) (the-as vector s4-2))
|
|
(vector+! s2-0 (-> s5-3 cverts (mod (+ s1-1 1) (-> s5-3 num-cverts))) (the-as vector s4-2))
|
|
(camera-line s3-0 s2-0 (new 'static 'vector4w :y #xff :z #xff :w #x80)))
|
|
(if gp-1
|
|
(camera-line (the-as vector (&+ gp-1 0))
|
|
(the-as vector (&+ gp-1 16))
|
|
(new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80))
|
|
(camera-line (-> s5-3 cverts 0)
|
|
(-> s5-3 cverts (+ (-> s5-3 num-cverts) -1))
|
|
(new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80)))))))))
|
|
0
|
|
(none))
|
|
|
|
(defun master-draw-coordinates ((arg0 vector))
|
|
(let ((s5-0 (new-stack-vector0))
|
|
(gp-0 (new-stack-vector0)))
|
|
(let ((a0-1 (new-stack-matrix0))) (set-vector! s5-0 0.0 8192.0 0.0 1.0) (matrix-rotate-yxz! a0-1 s5-0))
|
|
(vector+! gp-0
|
|
(-> *camera-combiner* trans)
|
|
(vector-normalize-copy! gp-0 (-> *camera-combiner* inv-camera-rot vector 2) 24576.0))
|
|
(let ((a1-2 s5-0)
|
|
(v1-4 gp-0)
|
|
(a0-3 s5-0))
|
|
(set! (-> a0-3 x) 4096.0)
|
|
(set! (-> a0-3 y) 0.0)
|
|
(set! (-> a0-3 z) 0.0)
|
|
(set! (-> a0-3 w) 1.0)
|
|
(vector+! a1-2 v1-4 a0-3))
|
|
(add-debug-line #t (bucket-id debug-no-zbuf) gp-0 s5-0 (new 'static 'rgba :r #xff :a #x80) #f (the-as rgba -1))
|
|
(let ((a1-5 s5-0)
|
|
(v1-5 gp-0)
|
|
(a0-5 s5-0))
|
|
(set! (-> a0-5 x) 0.0)
|
|
(set! (-> a0-5 y) 4096.0)
|
|
(set! (-> a0-5 z) 0.0)
|
|
(set! (-> a0-5 w) 1.0)
|
|
(vector+! a1-5 v1-5 a0-5))
|
|
(add-debug-line #t (bucket-id debug-no-zbuf) gp-0 s5-0 (new 'static 'rgba :g #xff :a #x80) #f (the-as rgba -1))
|
|
(let ((a1-8 s5-0)
|
|
(v1-6 gp-0)
|
|
(a0-7 s5-0))
|
|
(set! (-> a0-7 x) 0.0)
|
|
(set! (-> a0-7 y) 0.0)
|
|
(set! (-> a0-7 z) 4096.0)
|
|
(set! (-> a0-7 w) 1.0)
|
|
(vector+! a1-8 v1-6 a0-7))
|
|
(add-debug-line #t (bucket-id debug-no-zbuf) gp-0 s5-0 (new 'static 'rgba :b #xff :a #x80) #f (the-as rgba -1))
|
|
(when arg0
|
|
(set! (-> s5-0 quad) (-> arg0 quad))
|
|
(vector-normalize! s5-0 4096.0)
|
|
(vector+! s5-0 gp-0 s5-0)
|
|
(add-debug-line #t (bucket-id debug-no-zbuf) gp-0 s5-0 (new 'static 'rgba :r #x7f :g #x7f :a #x80) #f (the-as rgba -1))))
|
|
0
|
|
(none))
|
|
|
|
(deftype cam-collision-record (structure)
|
|
((pos vector :inline :offset-assert 0)
|
|
(vel vector :inline :offset-assert 16)
|
|
(desired-pos vector :inline :offset-assert 32)
|
|
(cam-tpos-cur vector :inline :offset-assert 48)
|
|
(cam-tpos-old vector :inline :offset-assert 64)
|
|
(view-flat vector :inline :offset-assert 80)
|
|
(string-min-val vector :inline :offset-assert 96)
|
|
(string-max-val vector :inline :offset-assert 112)
|
|
(view-off vector :inline :offset-assert 128)
|
|
(min-z-override float :offset-assert 144)
|
|
(string-push-z float :offset-assert 148)
|
|
(view-off-param float :offset-assert 152)
|
|
(frame int32 :offset-assert 156)
|
|
(iteration int32 :offset-assert 160)
|
|
(move-type symbol :offset-assert 164))
|
|
:method-count-assert 9
|
|
:size-assert #xa8
|
|
:flag-assert #x9000000a8)
|
|
|
|
(deftype cam-collision-record-array (inline-array-class)
|
|
((data cam-collision-record :dynamic :offset-assert 16))
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010)
|
|
|
|
(set! (-> cam-collision-record-array heap-base) (the-as uint 176))
|
|
|
|
(define *cam-collision-record-first* 0)
|
|
|
|
(define *cam-collision-record-last* 0)
|
|
|
|
(define *cam-collision-record-show* 0)
|
|
|
|
(define *cam-collision-record* (new 'debug 'cam-collision-record-array 600))
|
|
|
|
(defun cam-collision-record-save ((arg0 vector) (arg1 vector) (arg2 int) (arg3 symbol) (arg4 camera-slave))
|
|
(when *record-cam-collide-history*
|
|
(let ((v1-5 (the-as cam-collision-record (+ (+ (* 176 *cam-collision-record-last*) 12) (the-as int *cam-collision-record*)))))
|
|
(set! (-> v1-5 pos quad) (-> arg0 quad))
|
|
(set! (-> v1-5 vel quad) (-> arg1 quad))
|
|
(set! (-> v1-5 view-flat quad) (-> arg4 view-flat quad))
|
|
(set! (-> v1-5 desired-pos quad) (-> arg4 desired-pos quad))
|
|
(set! (-> v1-5 cam-tpos-cur quad) (-> *camera* tpos-curr-adj quad))
|
|
(set! (-> v1-5 cam-tpos-old quad) (-> *camera* tpos-old-adj quad))
|
|
(set! (-> v1-5 string-min-val quad) (-> arg4 string-min-val quad))
|
|
(set! (-> v1-5 string-max-val quad) (-> arg4 string-max-val quad))
|
|
(set! (-> v1-5 view-off quad) (-> arg4 view-off quad))
|
|
(set! (-> v1-5 frame) (the-as int (-> *display* base-frame-counter)))
|
|
(set! (-> v1-5 iteration) arg2)
|
|
(set! (-> v1-5 move-type) arg3)
|
|
(set! (-> v1-5 min-z-override) (-> arg4 min-z-override))
|
|
(set! (-> v1-5 string-push-z) (-> *camera* string-push-z))
|
|
(set! (-> v1-5 view-off-param) (-> arg4 view-off-param)))
|
|
(set! *cam-collision-record-show* *cam-collision-record-last*)
|
|
(set! *cam-collision-record-last* (+ *cam-collision-record-last* 1))
|
|
(set! *cam-collision-record-last* (mod *cam-collision-record-last* 600))
|
|
(when (= *cam-collision-record-last* *cam-collision-record-first*)
|
|
(set! *cam-collision-record-first* (+ *cam-collision-record-first* 1))
|
|
(set! *cam-collision-record-first* (mod *cam-collision-record-first* 600))))
|
|
0
|
|
(none))
|
|
|
|
(defun cam-collision-record-step ((arg0 int))
|
|
(set! *cam-collision-record-show* (+ *cam-collision-record-show* arg0))
|
|
(while (>= *cam-collision-record-show* 600)
|
|
(set! *cam-collision-record-show* (+ *cam-collision-record-show* -600)))
|
|
(while (< *cam-collision-record-show* 0)
|
|
(set! *cam-collision-record-show* (+ *cam-collision-record-show* 600)))
|
|
0
|
|
(none))
|
|
|
|
(defun cam-collision-record-draw ()
|
|
(cond
|
|
((cpad-pressed? 0 down) (cam-collision-record-step 1))
|
|
((cpad-hold? 0 right) (cam-collision-record-step 1))
|
|
((cpad-pressed? 0 up) (cam-collision-record-step -1))
|
|
((cpad-hold? 0 left) (cam-collision-record-step -1)))
|
|
(let ((s5-0 (the-as cam-collision-record (+ (+ (* 176 *cam-collision-record-show*) 12) (the-as int *cam-collision-record*))))
|
|
(s4-0 (new 'stack 'vector4w))
|
|
(gp-0 (new 'stack 'vector4w)))
|
|
(format *stdcon* "move-type ~A~%" (-> s5-0 move-type))
|
|
(cond
|
|
((= (-> s5-0 move-type) 'normal) (set! (-> s4-0 x) 255) (set! (-> s4-0 y) 255))
|
|
((= (-> s5-0 move-type) 'jump) (set! (-> s4-0 x) 255))
|
|
((= (-> s5-0 move-type) 'no-hit) (set! (-> s4-0 y) 255))
|
|
(else (set! (-> s4-0 z) 255)))
|
|
(set! (-> s4-0 w) 128)
|
|
(set! (-> gp-0 x) 127)
|
|
(set! (-> gp-0 y) 127)
|
|
(set! (-> gp-0 z) 127)
|
|
(set! (-> gp-0 w) 128)
|
|
(camera-line-rel-len (-> s5-0 pos) (-> s5-0 vel) (fmax 81.92 (vector-length (-> s5-0 vel))) s4-0)
|
|
(let* ((s3-1 (new 'stack-no-clear 'collide-tri-result))
|
|
(f30-1 (fill-and-probe-using-line-sphere *collide-cache*
|
|
(-> s5-0 pos)
|
|
(-> s5-0 vel)
|
|
(-> *CAMERA-bank* collide-move-rad)
|
|
(collide-kind background)
|
|
(the-as process #f)
|
|
s3-1
|
|
(new 'static 'pat-surface :nocamera #x1)))
|
|
(s2-1 (new 'stack-no-clear 'vector)))
|
|
(format *stdcon* "frame ~D iteration ~D travel ~f~%" (-> s5-0 frame) (-> s5-0 iteration) f30-1)
|
|
(format *stdcon* "mzo ~M psz ~M vop ~f~%" (-> s5-0 min-z-override) (-> s5-0 string-push-z) (-> s5-0 view-off-param))
|
|
(format *stdcon* "pos ~M ~M ~M~%" (-> s5-0 pos x) (-> s5-0 pos y) (-> s5-0 pos z))
|
|
(format *stdcon* "vel ~M ~M ~M~%" (-> s5-0 vel x) (-> s5-0 vel y) (-> s5-0 vel z))
|
|
(format *stdcon* "des ~M ~M ~M~%" (-> s5-0 desired-pos x) (-> s5-0 desired-pos y) (-> s5-0 desired-pos z))
|
|
(format *stdcon* "flt ~M ~M ~M~%" (-> s5-0 view-flat x) (-> s5-0 view-flat y) (-> s5-0 view-flat z))
|
|
(format *stdcon* "cur ~M ~M ~M~%" (-> s5-0 cam-tpos-cur x) (-> s5-0 cam-tpos-cur y) (-> s5-0 cam-tpos-cur z))
|
|
(format *stdcon* "old ~M ~M ~M~%" (-> s5-0 cam-tpos-old x) (-> s5-0 cam-tpos-old y) (-> s5-0 cam-tpos-old z))
|
|
(format *stdcon* "smn ~M ~M ~M~%" (-> s5-0 string-min-val x) (-> s5-0 string-min-val y) (-> s5-0 string-min-val z))
|
|
(format *stdcon* "smx ~M ~M ~M~%" (-> s5-0 string-max-val x) (-> s5-0 string-max-val y) (-> s5-0 string-max-val z))
|
|
(format *stdcon* "vof ~M ~M ~M~%" (-> s5-0 view-off x) (-> s5-0 view-off y) (-> s5-0 view-off z))
|
|
(when (>= f30-1 0.0)
|
|
(camera-line (the-as vector (-> s3-1 vertex)) (-> s3-1 vertex 1) s4-0)
|
|
(camera-line (-> s3-1 vertex 1) (-> s3-1 vertex 2) s4-0)
|
|
(camera-line (-> s3-1 vertex 2) (the-as vector (-> s3-1 vertex)) s4-0)
|
|
(vector-! s2-1 (-> s5-0 pos) (-> s3-1 intersect))
|
|
(vector-normalize! s2-1 1.0)
|
|
(camera-line-rel-len (-> s3-1 intersect) s2-1 (-> *CAMERA-bank* collide-move-rad) gp-0)
|
|
(camera-line-rel-len (-> s3-1 intersect) (-> s3-1 normal) (-> *CAMERA-bank* collide-move-rad) gp-0))))
|
|
0
|
|
(none))
|
|
|
|
(defun camera-master-debug ((arg0 camera-master))
|
|
(when *display-cam-other*
|
|
(let ((f0-1 (* 0.5 (-> *camera-other-fov* data))))
|
|
(camera-fov-frame *camera-other-matrix* *camera-other-trans* f0-1 0.75 1.0 (new 'static 'vector4w :x #xff :w #x80)))
|
|
(camera-line *camera-other-trans* *camera-other-root* (new 'static 'vector4w :x #xff :y #xff :z #xff :w #x80))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 *camera-other-trans*))
|
|
(vector+float*! s4-0 s5-0 (the-as vector (-> *camera-other-matrix* vector)) 2048.0)
|
|
(camera-line s5-0 s4-0 (new 'static 'vector4w :x #xff :w #x80))
|
|
(vector+float*! s4-0 s5-0 (-> *camera-other-matrix* vector 1) 2048.0)
|
|
(camera-line s5-0 s4-0 (new 'static 'vector4w :y #xff :w #x80))
|
|
(vector+float*! s4-0 s5-0 (-> *camera-other-matrix* vector 2) 2048.0)
|
|
(camera-line s5-0 s4-0 (new 'static 'vector4w :z #xff :w #x80))))
|
|
(when *display-camera-last-attacker*
|
|
(format *stdcon* "last attacker '")
|
|
(let ((v1-12 (handle->process (-> last-try-to-look-at-data who)))) (if v1-12 (format *stdcon* "~S" (-> v1-12 name))))
|
|
(format *stdcon* "'~%"))
|
|
(when *display-camera-old-stats*
|
|
(format *stdcon*
|
|
"old ~S cpu ~D old vu ~D (go to menu before comparing)~%"
|
|
*camera-old-level*
|
|
*camera-old-cpu*
|
|
*camera-old-vu*)
|
|
(format *stdcon* "old tfrag-mem ~D~%" (sar *camera-old-tfrag-bytes* 10))
|
|
(format *stdcon* "~S~%" *camera-old-stat-string-tfrag-near*)
|
|
(format *stdcon* "~S~%" *camera-old-stat-string-tfrag*)
|
|
(format *stdcon* "~S~%" *camera-old-stat-string-total*))
|
|
(if *display-cam-collide-history* (cam-collision-record-draw))
|
|
(if *display-cam-master-marks* (tracking-spline-method-23 (-> arg0 target-spline)))
|
|
(if *display-xyz-axes* (master-draw-coordinates (the-as vector #f)))
|
|
(cam-debug-draw-tris)
|
|
0
|
|
(none))
|
|
|
|
(defun debug-set-camera-pos-rot! ((arg0 vector) (arg1 matrix))
|
|
(when (and *camera* *camera-combiner*)
|
|
(send-event *camera* 'change-state cam-free-floating 0)
|
|
(set! (-> *camera-combiner* trans quad) (-> arg0 quad))
|
|
(let ((a2-0 (-> *camera-combiner* inv-camera-rot))
|
|
(v1-10 (-> arg1 vector 0 quad))
|
|
(a0-4 (-> arg1 vector 1 quad))
|
|
(a1-2 (-> arg1 vector 2 quad))
|
|
(a3-0 (-> arg1 vector 3 quad)))
|
|
(set! (-> a2-0 vector 0 quad) v1-10)
|
|
(set! (-> a2-0 vector 1 quad) a0-4)
|
|
(set! (-> a2-0 vector 2 quad) a1-2)
|
|
(set! (-> a2-0 vector 3 quad) a3-0))
|
|
(send-event *camera* 'change-state cam-fixed 0))
|
|
arg0)
|
|
|
|
(defun external-cam-reset! ()
|
|
(vector-reset! (-> *math-camera* trans))
|
|
(matrix-identity! (-> *math-camera* inv-camera-rot))
|
|
(when *camera-combiner*
|
|
(let* ((v1-6 (-> *math-camera* inv-camera-rot))
|
|
(a3-0 (-> *camera-combiner* inv-camera-rot))
|
|
(a0-2 (-> a3-0 vector 0 quad))
|
|
(a1-0 (-> a3-0 vector 1 quad))
|
|
(a2-0 (-> a3-0 vector 2 quad))
|
|
(a3-1 (-> a3-0 vector 3 quad)))
|
|
(set! (-> v1-6 vector 0 quad) a0-2)
|
|
(set! (-> v1-6 vector 1 quad) a1-0)
|
|
(set! (-> v1-6 vector 2 quad) a2-0)
|
|
(set! (-> v1-6 vector 3 quad) a3-1))
|
|
(set! (-> *math-camera* trans quad) (-> *camera-combiner* trans quad)))
|
|
0
|
|
(none))
|