mirror of
https://github.com/open-goal/jak-project
synced 2026-05-24 07:11:15 -04:00
water111
637990314b
Closes #736 --------- Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
595 lines
20 KiB
Common Lisp
Vendored
Generated
595 lines
20 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 9 of type path-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod debug-draw ((this path-control))
|
|
(cond
|
|
((logtest? (-> this flags) (path-control-flag not-found))
|
|
(when (and (type? (-> this process) process-drawable) *display-entity-errors* (not *display-capture-mode*))
|
|
(let ((s5-0 add-debug-text-3d)
|
|
(s4-0 #t)
|
|
(s3-0 577)
|
|
)
|
|
(format (clear *temp-string*) "path data error in ~S" (-> this process name))
|
|
(s5-0
|
|
s4-0
|
|
(the-as bucket-id s3-0)
|
|
*temp-string*
|
|
(-> this process root trans)
|
|
(font-color red)
|
|
(the-as vector2h #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((let ((a0-5 this))
|
|
(and *display-path-marks* (logtest? (-> a0-5 flags) (path-control-flag display)))
|
|
)
|
|
(dotimes (s5-1 (-> this curve num-cverts))
|
|
(let ((s4-1 (-> this curve cverts s5-1)))
|
|
(if (and (logtest? (-> this flags) (path-control-flag draw-line)) (< s5-1 (+ (-> this curve num-cverts) -1)))
|
|
(add-debug-line
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
s4-1
|
|
(-> this curve cverts (+ s5-1 1))
|
|
(new 'static 'rgba :r #xff :g #x80 :a #x80)
|
|
#f
|
|
(the-as rgba -1)
|
|
)
|
|
)
|
|
(if (logtest? (-> this flags) (path-control-flag draw-point))
|
|
(add-debug-x #t (bucket-id debug-no-zbuf1) s4-1 (new 'static 'rgba :r #xff :a #x80))
|
|
)
|
|
(when (logtest? (-> this flags) (path-control-flag draw-text))
|
|
(let ((s3-1 add-debug-text-3d)
|
|
(s2-1 #t)
|
|
(s1-0 577)
|
|
)
|
|
(format (clear *temp-string*) "~D" s5-1)
|
|
(s3-1 s2-1 (the-as bucket-id s1-0) *temp-string* s4-1 (font-color orange) (the-as vector2h #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 18 of type path-control
|
|
(defmethod total-distance ((this path-control))
|
|
(let ((f30-0 (-> this curve length)))
|
|
(when (= f30-0 0.0)
|
|
(dotimes (s5-0 (+ (-> this curve num-cverts) -1))
|
|
(+! f30-0 (vector-vector-distance (-> this curve cverts s5-0) (-> this curve cverts (+ s5-0 1))))
|
|
)
|
|
(set! (-> this curve length) f30-0)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 18 of type curve-control
|
|
(defmethod total-distance ((this curve-control))
|
|
(let ((f0-0 (-> this curve length)))
|
|
(when (= f0-0 0.0)
|
|
(set! f0-0 (curve-length (-> this curve)))
|
|
(set! (-> this curve length) f0-0)
|
|
)
|
|
f0-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 26 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod path-control-method-26 ((this path-control) (arg0 float) (arg1 float))
|
|
(local-vars (v1-9 float))
|
|
(let ((f30-0 (* arg0 (the float (+ (-> this curve num-cverts) -1))))
|
|
(f28-0 (if (< 0.0 arg1)
|
|
1.0
|
|
-1.0
|
|
)
|
|
)
|
|
(f26-0 (fabs arg1))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(get-point-in-path! this s5-0 f30-0 'interp)
|
|
0.0
|
|
(while (< 0.0 f26-0)
|
|
(let ((f24-0 (the float (the int (+ f28-0 f30-0)))))
|
|
(set! f30-0 (cond
|
|
((or (< f24-0 0.0) (>= f24-0 (the float (-> this curve num-cverts))))
|
|
(set! v1-9 f24-0)
|
|
(goto cfg-19)
|
|
f30-0
|
|
)
|
|
(else
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! s4-0 (-> this curve cverts (the int (the float (the int f24-0)))))
|
|
0.0
|
|
(let ((f0-16 (vector-vector-distance s5-0 s4-0)))
|
|
(cond
|
|
((< f0-16 f26-0)
|
|
(set! f26-0 (- f26-0 f0-16))
|
|
(vector-copy! s5-0 s4-0)
|
|
f24-0
|
|
)
|
|
(else
|
|
(let ((f0-17 (/ f26-0 f0-16)))
|
|
(set! v1-9 (lerp f30-0 f24-0 f0-17))
|
|
)
|
|
(goto cfg-19)
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! v1-9 (the-as float #f))
|
|
(label cfg-19)
|
|
(let* ((f0-21 (/ v1-9 (the float (+ (-> this curve num-cverts) -1))))
|
|
(f0-22 (fmin 1.0 f0-21))
|
|
)
|
|
(fmax 0.0 f0-22)
|
|
)
|
|
)
|
|
|
|
;; definition for method 10 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod get-point-in-path! ((this path-control) (arg0 vector) (arg1 float) (arg2 symbol))
|
|
(let ((a1-1 (-> this curve num-cverts))
|
|
(f0-3 (the float (the int arg1)))
|
|
)
|
|
(cond
|
|
((< arg1 0.0)
|
|
(vector-copy! arg0 (-> this curve cverts 0))
|
|
)
|
|
((>= f0-3 (the float (+ a1-1 -1)))
|
|
(vector-copy! arg0 (-> this curve cverts (+ a1-1 -1)))
|
|
)
|
|
((or (= arg2 'exact) (= f0-3 arg1))
|
|
(vector-copy! arg0 (-> this curve cverts (the int f0-3)))
|
|
)
|
|
(else
|
|
(vector-lerp!
|
|
arg0
|
|
(-> this curve cverts (the int f0-3))
|
|
(-> this curve cverts (the int (+ 1.0 f0-3)))
|
|
(- arg1 f0-3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for method 11 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod get-random-point ((this path-control) (arg0 vector))
|
|
(with-pp
|
|
(cond
|
|
((> (-> this curve num-cverts) 0)
|
|
(let ((a0-2 (rand-vu-int-count (-> this curve num-cverts))))
|
|
(vector-copy! arg0 (-> this curve cverts a0-2))
|
|
)
|
|
)
|
|
(else
|
|
(format #t "WARNING: method get-random-point called on a path-control object with no vertices.~%")
|
|
(if pp
|
|
(format #t "current process is ~A~%" (-> pp name))
|
|
)
|
|
(vector-copy! arg0 *null-vector*)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
)
|
|
|
|
;; definition for method 14 of type path-control
|
|
(defmethod get-point-at-percent-along-path! ((this path-control) (arg0 vector) (arg1 float) (arg2 symbol))
|
|
(get-point-in-path! this arg0 (* arg1 (the float (+ (-> this curve num-cverts) -1))) arg2)
|
|
)
|
|
|
|
;; definition for method 14 of type curve-control
|
|
(defmethod get-point-at-percent-along-path! ((this curve-control) (arg0 vector) (arg1 float) (arg2 symbol))
|
|
(if (not (logtest? (-> this flags) (path-control-flag not-found)))
|
|
(curve-evaluate!
|
|
arg0
|
|
arg1
|
|
(-> this curve cverts)
|
|
(-> this curve num-cverts)
|
|
(-> this curve knots)
|
|
(-> this curve num-knots)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for method 10 of type curve-control
|
|
(defmethod get-point-in-path! ((this curve-control) (arg0 vector) (arg1 float) (arg2 symbol))
|
|
(if (not (logtest? (-> this flags) (path-control-flag not-found)))
|
|
(curve-evaluate!
|
|
arg0
|
|
(/ arg1 (the float (+ (-> this curve num-cverts) -1)))
|
|
(-> this curve cverts)
|
|
(-> this curve num-cverts)
|
|
(-> this curve knots)
|
|
(-> this curve num-knots)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for method 31 of type path-control
|
|
(defmethod displacement-between-two-points! ((this path-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(let ((v1-0 (-> this curve num-cverts))
|
|
(f0-3 (the float (the int arg1)))
|
|
)
|
|
(cond
|
|
((or (logtest? (-> this flags) (path-control-flag not-found)) (< v1-0 2) (< arg1 0.0))
|
|
(vector-reset! arg0)
|
|
)
|
|
(else
|
|
(let ((f0-4 (fmin f0-3 (the float (+ v1-0 -2)))))
|
|
(vector-! arg0 (-> this curve cverts (the int (+ 1.0 f0-4))) (-> this curve cverts (the int f0-4)))
|
|
)
|
|
(vector-float*! arg0 arg0 arg2)
|
|
)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for method 12 of type path-control
|
|
(defmethod path-control-method-12 ((this path-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(displacement-between-two-points! this arg0 arg1 arg2)
|
|
)
|
|
|
|
;; definition for method 15 of type path-control
|
|
(defmethod path-control-method-15 ((this path-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(path-control-method-12
|
|
this
|
|
arg0
|
|
(* arg1 (the float (+ (-> this curve num-cverts) -1)))
|
|
(* arg2 (the float (+ (-> this curve num-cverts) -1)))
|
|
)
|
|
)
|
|
|
|
;; definition for method 13 of type path-control
|
|
(defmethod displacement-between-two-points-normalized! ((this path-control) (arg0 vector) (arg1 float))
|
|
(displacement-between-two-points! this arg0 arg1 1.0)
|
|
(vector-normalize! arg0 1.0)
|
|
)
|
|
|
|
;; definition for method 16 of type path-control
|
|
(defmethod displacement-between-points-at-percent-normalized! ((this path-control) (arg0 vector) (arg1 float))
|
|
(displacement-between-two-points-normalized! this arg0 (* arg1 (the float (+ (-> this curve num-cverts) -1))))
|
|
)
|
|
|
|
;; definition for method 31 of type curve-control
|
|
(defmethod displacement-between-two-points! ((this curve-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(when (not (logtest? (-> this flags) (path-control-flag not-found)))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(curve-evaluate!
|
|
arg0
|
|
arg1
|
|
(-> this curve cverts)
|
|
(-> this curve num-cverts)
|
|
(-> this curve knots)
|
|
(-> this curve num-knots)
|
|
)
|
|
(cond
|
|
((< arg1 (- 1.0 arg2))
|
|
(curve-evaluate!
|
|
s4-0
|
|
(+ arg1 arg2)
|
|
(-> this curve cverts)
|
|
(-> this curve num-cverts)
|
|
(-> this curve knots)
|
|
(-> this curve num-knots)
|
|
)
|
|
(vector-! arg0 s4-0 arg0)
|
|
)
|
|
(else
|
|
(curve-evaluate!
|
|
s4-0
|
|
(- arg1 arg2)
|
|
(-> this curve cverts)
|
|
(-> this curve num-cverts)
|
|
(-> this curve knots)
|
|
(-> this curve num-knots)
|
|
)
|
|
(vector-! arg0 arg0 s4-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 26 of type curve-control
|
|
(defmethod path-control-method-26 ((this curve-control) (arg0 float) (arg1 float))
|
|
(let* ((f30-0 0.0001)
|
|
(v1-2 (displacement-between-two-points! this (new 'stack-no-clear 'vector) arg0 f30-0))
|
|
)
|
|
0.0
|
|
0.0
|
|
(let* ((f0-3 (/ f30-0 (vector-length v1-2)))
|
|
(v1-4 (+ arg0 (* f0-3 arg1)))
|
|
)
|
|
(fmax 0.0 (fmin 1.0 v1-4))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 12 of type curve-control
|
|
(defmethod path-control-method-12 ((this curve-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(displacement-between-two-points! this arg0 (/ arg1 (the float (+ (-> this curve num-cverts) -1))) arg2)
|
|
)
|
|
|
|
;; definition for method 15 of type curve-control
|
|
(defmethod path-control-method-15 ((this curve-control) (arg0 vector) (arg1 float) (arg2 float))
|
|
(displacement-between-two-points! this arg0 arg1 arg2)
|
|
)
|
|
|
|
;; definition for method 16 of type curve-control
|
|
(defmethod displacement-between-points-at-percent-normalized! ((this curve-control) (arg0 vector) (arg1 float))
|
|
(displacement-between-two-points! this arg0 arg1 0.01)
|
|
(vector-normalize! arg0 1.0)
|
|
)
|
|
|
|
;; definition for method 13 of type curve-control
|
|
(defmethod displacement-between-two-points-normalized! ((this curve-control) (arg0 vector) (arg1 float))
|
|
(displacement-between-points-at-percent-normalized!
|
|
this
|
|
arg0
|
|
(/ arg1 (the float (+ (-> this curve num-cverts) -1)))
|
|
)
|
|
)
|
|
|
|
;; definition for method 28 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod path-control-method-28 ((this path-control) (arg0 vector) (arg1 vector) (arg2 symbol))
|
|
(let ((sv-96 (new 'stack-no-clear 'vector))
|
|
(sv-100 (new 'stack-no-clear 'vector))
|
|
(sv-104 (new 'stack-no-clear 'vector))
|
|
(sv-108 (new 'stack-no-clear 'vector))
|
|
(sv-112 -1.0)
|
|
(sv-116 (new 'stack-no-clear 'vector))
|
|
(sv-120 (the-as symbol #f))
|
|
(sv-124 (the-as float -1.0))
|
|
)
|
|
(get-point-in-path! this sv-96 0.0 'interp)
|
|
(set! sv-112 (gpr->fpr #x7f800000))
|
|
(when (not arg2)
|
|
(set! sv-124 (path-control-method-22 this arg0))
|
|
(get-point-in-path! this sv-108 sv-124 'interp)
|
|
(set! sv-112 (vector-vector-distance-squared sv-108 arg0))
|
|
)
|
|
(let ((s3-1 (new 'stack-no-clear 'vector)))
|
|
(vector+! s3-1 arg0 arg1)
|
|
(dotimes (s2-0 (+ (-> this curve num-cverts) -1))
|
|
(get-point-in-path! this sv-100 (the float (+ s2-0 1)) 'interp)
|
|
(vector-! sv-104 sv-100 sv-96)
|
|
(let ((s0-0 #f))
|
|
0.0
|
|
(let ((s1-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s1-0 x) -1.0)
|
|
(set! (-> s1-0 y) -1.0)
|
|
(line-line-find-intersection-xz arg0 arg1 sv-96 sv-104 s1-0)
|
|
(when (>= (-> s1-0 x) 0.0)
|
|
(if (and (< 0.0 (-> s1-0 y)) (>= 1.0 (-> s1-0 y)))
|
|
(set! s0-0 #t)
|
|
)
|
|
(vector+float*! sv-116 arg0 arg1 (-> s1-0 x))
|
|
(cond
|
|
((and s0-0 (not sv-120))
|
|
(vector-copy! sv-108 sv-116)
|
|
(set! sv-112 (vector-vector-distance-squared sv-116 arg0))
|
|
(set! sv-124 (lerp (the float s2-0) (the float (+ s2-0 1)) (-> s1-0 y)))
|
|
(set! sv-120 #t)
|
|
)
|
|
((and s0-0 sv-120)
|
|
(let ((f0-22 (vector-vector-distance-squared sv-116 arg0)))
|
|
(when (< f0-22 (the-as float sv-112))
|
|
(vector-copy! sv-108 sv-116)
|
|
(set! sv-112 f0-22)
|
|
(set! sv-124 (lerp (the float s2-0) (the float (+ s2-0 1)) (-> s1-0 y)))
|
|
)
|
|
)
|
|
)
|
|
((not (or s0-0 sv-120))
|
|
(let ((s0-1 (new 'stack-no-clear 'vector))
|
|
(a3-5 (new 'stack-no-clear 'vector))
|
|
)
|
|
(set! (-> s1-0 y) (fmax 0.0 (fmin 1.0 (-> s1-0 y))))
|
|
(vector+float*! s0-1 sv-96 sv-104 (-> s1-0 y))
|
|
(let ((f0-33 (square (vector-segment-distance-point! s0-1 arg0 s3-1 a3-5))))
|
|
(when (< f0-33 (the-as float sv-112))
|
|
(vector-copy! sv-108 s0-1)
|
|
(set! sv-112 f0-33)
|
|
(set! sv-124 (lerp (the float s2-0) (the float (+ s2-0 1)) (-> s1-0 y)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(vector-copy! sv-96 sv-100)
|
|
)
|
|
)
|
|
(/ sv-124 (the float (+ (-> this curve num-cverts) -1)))
|
|
)
|
|
)
|
|
|
|
;; definition for method 29 of type path-control
|
|
(defmethod path-control-method-29 ((this path-control) (arg0 vector) (arg1 int) (arg2 float))
|
|
(let ((s2-0 (get-point-in-path! this (new 'stack-no-clear 'vector) (the float arg1) 'interp))
|
|
(a2-3 (get-point-in-path! this (new 'stack-no-clear 'vector) (the float (+ arg1 1)) 'interp))
|
|
)
|
|
(vector-segment-distance-point! arg0 s2-0 a2-3 (the-as vector arg2))
|
|
)
|
|
)
|
|
|
|
;; definition for method 22 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod path-control-method-22 ((this path-control) (arg0 vector))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
(s3-0 (new 'stack-no-clear 'vector))
|
|
(f30-0 4096000000.0)
|
|
(f28-0 0.0)
|
|
)
|
|
(let ((s2-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! s3-0 arg0)
|
|
(set! (-> s3-0 y) 0.0)
|
|
(get-point-in-path! this s4-0 0.0 'interp)
|
|
(set! (-> s4-0 y) 0.0)
|
|
(dotimes (s1-0 (+ (-> this curve num-cverts) -1))
|
|
(vector-copy! s5-0 s4-0)
|
|
(get-point-in-path! this s4-0 (the float (+ s1-0 1)) 'interp)
|
|
(set! (-> s4-0 y) 0.0)
|
|
(let ((f0-5 (vector-segment-distance-point! s3-0 s5-0 s4-0 s2-0)))
|
|
(when (< f0-5 f30-0)
|
|
(set! f30-0 f0-5)
|
|
(set! f28-0
|
|
(+ (/ (vector-vector-xz-distance s2-0 s5-0) (vector-vector-xz-distance s4-0 s5-0)) (the float s1-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f28-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 24 of type path-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod path-control-method-24 ((this path-control) (arg0 vector))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
(s3-0 (new 'stack-no-clear 'vector))
|
|
(f30-0 4096000000.0)
|
|
(f28-0 0.0)
|
|
)
|
|
(let ((s2-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! s3-0 arg0)
|
|
(get-point-in-path! this s4-0 0.0 'interp)
|
|
(dotimes (s1-0 (+ (-> this curve num-cverts) -1))
|
|
(vector-copy! s5-0 s4-0)
|
|
(get-point-in-path! this s4-0 (the float (+ s1-0 1)) 'interp)
|
|
(let ((f0-2 (vector-segment-distance-point! s3-0 s5-0 s4-0 s2-0)))
|
|
(when (< f0-2 f30-0)
|
|
(set! f30-0 f0-2)
|
|
(set! f28-0 (+ (/ (vector-vector-distance s2-0 s5-0) (vector-vector-distance s4-0 s5-0)) (the float s1-0)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f28-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 25 of type path-control
|
|
(defmethod path-control-method-25 ((this path-control) (arg0 vector))
|
|
(/ (path-control-method-24 this arg0) (the float (+ (-> this curve num-cverts) -1)))
|
|
)
|
|
|
|
;; definition for method 23 of type path-control
|
|
(defmethod path-control-method-23 ((this path-control) (arg0 vector))
|
|
(/ (path-control-method-22 this arg0) (the float (+ (-> this curve num-cverts) -1)))
|
|
)
|
|
|
|
;; definition for method 9 of type curve-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod debug-draw ((this curve-control))
|
|
(cond
|
|
((logtest? (-> this flags) (path-control-flag not-found))
|
|
(when (and (type? (-> this process) process-drawable) *display-entity-errors* (not *display-capture-mode*))
|
|
(let ((s5-0 add-debug-text-3d)
|
|
(s4-0 #t)
|
|
(s3-0 577)
|
|
)
|
|
(format (clear *temp-string*) "curve data error in ~S" (-> this process name))
|
|
(s5-0
|
|
s4-0
|
|
(the-as bucket-id s3-0)
|
|
*temp-string*
|
|
(-> this process root trans)
|
|
(font-color red)
|
|
(the-as vector2h #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((let ((a0-5 this))
|
|
(and *display-path-marks* (logtest? (-> a0-5 flags) (path-control-flag display)))
|
|
)
|
|
(if (and (logtest? (-> this flags) (path-control-flag draw-line)) (> (-> this curve num-cverts) 0))
|
|
(add-debug-curve2
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> this curve)
|
|
(new 'static 'rgba :r #xff :g #x80 :a #x80)
|
|
#f
|
|
)
|
|
)
|
|
(dotimes (s5-1 (-> this curve num-cverts))
|
|
(let ((s4-1 (-> this curve cverts s5-1)))
|
|
(if (logtest? (-> this flags) (path-control-flag draw-point))
|
|
(add-debug-x #t (bucket-id debug-no-zbuf1) s4-1 (new 'static 'rgba :r #xff :a #x80))
|
|
)
|
|
(when (logtest? (-> this flags) (path-control-flag draw-text))
|
|
(let ((s3-1 add-debug-text-3d)
|
|
(s2-1 #t)
|
|
(s1-0 577)
|
|
)
|
|
(format (clear *temp-string*) "~D" s5-1)
|
|
(s3-1 s2-1 (the-as bucket-id s1-0) *temp-string* s4-1 (font-color orange) (the-as vector2h #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 27 of type path-control
|
|
(defmethod path-control-method-27 ((this path-control) (arg0 vector))
|
|
(let ((s4-0 (-> this curve num-cverts)))
|
|
(let ((f30-0 (/ 1.0 (the float s4-0))))
|
|
(set-vector! arg0 0.0 0.0 0.0 0.0)
|
|
(dotimes (s3-0 s4-0)
|
|
(vector+float*!
|
|
arg0
|
|
arg0
|
|
(get-point-in-path! this (new 'stack-no-clear 'vector) (the float s3-0) 'interp)
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
(dotimes (s3-1 s4-0)
|
|
(let ((f0-10
|
|
(vector-vector-distance arg0 (get-point-in-path! this (new 'stack-no-clear 'vector) (the float s3-1) 'interp))
|
|
)
|
|
)
|
|
(if (< (-> arg0 w) f0-10)
|
|
(set! (-> arg0 w) (+ 4096.0 f0-10))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
arg0
|
|
)
|