mirror of
https://github.com/open-goal/jak-project
synced 2026-08-05 01:30:22 -04:00
ManDude
0ce5835818
Updates the decompiler for the new format and there's new macros. This new format should be easier to read/parse. Also rewrote `sp-init-fields!` (both jak 1 and 2) from assembly to GOAL. Hopefully I did not miss any regressions in Jak 1/2 while updating the files, it's a lot.
1055 lines
33 KiB
Common Lisp
Vendored
Generated
1055 lines
33 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function draw-end-credits
|
|
(defun draw-end-credits ((arg0 level) (arg1 float))
|
|
(let ((f30-0 (- 416.0 arg1))
|
|
(s5-0 3839)
|
|
(f28-0 0.0)
|
|
(s3-0 #t)
|
|
(s4-0
|
|
(new 'stack 'font-context *font-default-matrix* 6 0 0.0 (font-color default) (font-flags shadow kerning))
|
|
)
|
|
)
|
|
(let ((v1-2 s4-0))
|
|
(set! (-> v1-2 width) (the float 500))
|
|
)
|
|
(let ((v1-3 s4-0))
|
|
(set! (-> v1-3 height) (the float 150))
|
|
)
|
|
(let ((v1-4 s4-0))
|
|
(set! (-> v1-4 scale) 0.8)
|
|
)
|
|
(set! (-> s4-0 flags) (font-flags shadow kerning middle large))
|
|
(while (or s3-0 (and (< f30-0 (- f28-0)) (< (the-as uint s5-0) (the-as uint 4272))))
|
|
(+! f30-0 f28-0)
|
|
(+! s5-0 1)
|
|
(let ((a0-6 (lookup-text arg0 (the-as text-id s5-0) #t)))
|
|
(while (and a0-6 (zero? (-> a0-6 data 0)) (< (the-as uint s5-0) (the-as uint 4272)))
|
|
(+! s5-0 1)
|
|
(set! a0-6 (lookup-text arg0 (the-as text-id s5-0) #t))
|
|
)
|
|
(set! f28-0 (if a0-6
|
|
(+ 5.0 (print-game-text a0-6 s4-0 #t 35 (bucket-id progress)))
|
|
40.0
|
|
)
|
|
)
|
|
)
|
|
(set! s3-0 #f)
|
|
)
|
|
(cond
|
|
((and (< (the-as uint 3895) (the-as uint s5-0)) (cpad-pressed? 0 triangle circle x))
|
|
#t
|
|
)
|
|
((and (= s5-0 4272) (< f30-0 (- f28-0)))
|
|
#t
|
|
)
|
|
(else
|
|
(set! (-> s4-0 origin y) f30-0)
|
|
(while (< (-> s4-0 origin y) 416.0)
|
|
(let ((a0-15 (lookup-text arg0 (the-as text-id s5-0) #t)))
|
|
(while (and a0-15 (zero? (-> a0-15 data 0)) (< (the-as uint s5-0) (the-as uint 4272)))
|
|
(+! s5-0 1)
|
|
(set! a0-15 (lookup-text arg0 (the-as text-id s5-0) #t))
|
|
)
|
|
(let ((f0-10 (if a0-15
|
|
(+ 5.0 (print-game-text a0-15 s4-0 #f 35 (bucket-id progress)))
|
|
40.0
|
|
)
|
|
)
|
|
)
|
|
(+! (-> s4-0 origin y) f0-10)
|
|
)
|
|
)
|
|
(+! s5-0 1)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function start-credits
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun start-credits ((arg0 process))
|
|
(remove-setting! 'movie)
|
|
(remove-setting! 'music-volume)
|
|
(persist-with-delay *setting-control* 'music-volume (seconds 3) 'music-volume 'abs 0.001 0)
|
|
(process-spawn-function
|
|
process
|
|
(lambda :behavior scene-player
|
|
()
|
|
(set-setting! 'allow-pause #f 0 0)
|
|
(set-setting! 'allow-progress #f 0 0)
|
|
(set-setting! 'music 'forest 0 0)
|
|
(set-setting! 'sound-mode #f 0 1)
|
|
(apply-settings *setting-control*)
|
|
(let ((gp-0 (ppointer->process (-> self parent))))
|
|
(when (type? gp-0 scene-player)
|
|
(if (lookup-gui-connection
|
|
*gui-control*
|
|
(the-as process gp-0)
|
|
(gui-channel art-load)
|
|
(the-as string #f)
|
|
(new 'static 'sound-id)
|
|
)
|
|
(sound-group-pause (sound-group dialog))
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (-> self clock frame-counter)))
|
|
(while (let ((a0-9 (level-get *level* 'outrocst)))
|
|
(and a0-9 (not (draw-end-credits a0-9 (* 0.15 (the float (- (-> self clock frame-counter) gp-1))))))
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(let ((gp-2 (ppointer->process (-> self parent))))
|
|
(when (type? gp-2 scene-player)
|
|
(if (lookup-gui-connection
|
|
*gui-control*
|
|
(the-as process gp-2)
|
|
(gui-channel art-load)
|
|
(the-as string #f)
|
|
(new 'static 'sound-id)
|
|
)
|
|
(sound-group-continue (sound-group dialog))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:to arg0
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-ctyport-fireworks
|
|
:id 1272
|
|
:duration (seconds 169.6)
|
|
:flags (always-draw)
|
|
:bounds (static-bspherem 0 0 0 2500)
|
|
:parts ((sp-item 5406 :binding 5402)
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5402 :flags (start-dead))
|
|
(sp-item 5407 :binding 5403)
|
|
(sp-item 5403 :flags (start-dead launch-asap) :binding 5404)
|
|
(sp-item 5403 :flags (start-dead launch-asap) :binding 5404)
|
|
(sp-item 5403 :flags (start-dead launch-asap) :binding 5404)
|
|
(sp-item 5403 :flags (start-dead launch-asap) :binding 5404)
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5404 :flags (start-dead))
|
|
(sp-item 5408 :binding 5405)
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
(sp-item 5405 :flags (start-dead))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5408
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:num 0.01)
|
|
(:sound (static-sound-spec "whistle-green"))
|
|
(:scale-x (meters 2.5))
|
|
(:scale-y (meters 4.5))
|
|
(:r 128.0 128.0)
|
|
(:g 255.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0.1575))
|
|
(:vel-y (meters 0.4) (meters 0.033333335))
|
|
(:rotvel-z (degrees -720) (degrees 1440))
|
|
(:friction 0.96)
|
|
(:timer (seconds 2.5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:userdata 4096000.0)
|
|
(:func 'check-pop-level-firework-green-userdata)
|
|
(:next-time (seconds 0.667) (seconds 0.33))
|
|
(:next-launcher 5409)
|
|
(:conerot-x (degrees 20) (degrees 60))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5405
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x3 :page #xdb9))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 64.0 64.0)
|
|
(:g 128.0)
|
|
(:b 64.0)
|
|
(:a 16.0 48.0)
|
|
(:vel-y (meters -0.04) (meters 0.12))
|
|
(:scalevel-x (meters 0.01) (meters 0.01))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.10666667 -0.21333334)
|
|
(:accel-y (meters -0.00016666666) (meters -0.00033333333))
|
|
(:friction 0.9 0.02)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-ctyport-firework-green-pop
|
|
:id 1273
|
|
:duration (seconds 0.835)
|
|
:linger-duration (seconds 1.5)
|
|
:bounds (static-bspherem 0 0 0 120)
|
|
:parts ((sp-item 5412 :flags (launch-asap))
|
|
(sp-item 5413 :flags (launch-asap))
|
|
(sp-item 5414 :binding 5410)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5410 :flags (bit1 start-dead launch-asap) :binding 5411)
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
(sp-item 5411 :flags (start-dead))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5412
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:sound (static-sound-spec "explode-green"))
|
|
(:scale-x (meters 48) (meters 0.1))
|
|
(:rot-z (degrees -17) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -1.6))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -10.2)
|
|
(:fade-g 0.0)
|
|
(:fade-b -10.2)
|
|
(:timer (seconds 1.167))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5415)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5415
|
|
:init-specs ((:scale-x (meters 8))
|
|
(:scale-y :copy scale-x)
|
|
(:scalevel-x (meters -0.026666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5413
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 24) (meters 0.1))
|
|
(:rot-z (degrees -17) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.8))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:timer (seconds 1.167))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5416)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5416
|
|
:init-specs ((:scale-x (meters 4))
|
|
(:scale-y :copy scale-x)
|
|
(:scalevel-x (meters -0.013333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5414
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:num 0.0 1.0)
|
|
(:scale-x (meters 0))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 255.0)
|
|
(:vel-y (meters 0.2) (meters 0.05))
|
|
(:accel-y (meters -0.0016666667) (meters 0.00083333335))
|
|
(:friction 0.94 0.02)
|
|
(:timer (seconds 0.835))
|
|
(:flags (sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5410
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:num 1.0)
|
|
(:x (meters 0) (meters 160))
|
|
(:y (meters 0) (meters 160))
|
|
(:z (meters 0.75))
|
|
(:scale-x (meters 3))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 255.0)
|
|
(:omega (degrees 0) (degrees 3600))
|
|
(:vel-x (meters 0.44444442))
|
|
(:vel-z (meters 0.006666667))
|
|
(:fade-r -2.55 -2.55)
|
|
(:fade-g -1.7)
|
|
(:fade-b -10.2 -10.2)
|
|
(:accel-x (meters -0.0074074077))
|
|
(:timer (seconds 0.335) (seconds 0.665))
|
|
(:flags (sp-cpuinfo-flag-1 sp-cpuinfo-flag-3 ready-to-launch sp-cpuinfo-flag-14))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5411
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:birth-func 'birth-func-firework-color)
|
|
(:num 3.0)
|
|
(:scale-x (meters 2.5))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0) (meters 0.033333335))
|
|
(:scalevel-x (meters -0.006666667) (meters -0.0033333334))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:accel-x (meters -0.00016666666) (meters -0.00008333333))
|
|
(:accel-y (meters -0.00033333333) (meters -0.00016666666))
|
|
(:friction 0.9 0.02)
|
|
(:timer (seconds 0.5) (seconds 1.497))
|
|
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
|
(:next-time (seconds 0.5) (seconds 1.997))
|
|
(:next-launcher 5417)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5417
|
|
:init-specs ((:scale-x (meters 1) (meters 1))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.025))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:timer (seconds 0.267))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5407
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 0.01)
|
|
(:sound (static-sound-spec "whistle-red"))
|
|
(:scale-x (meters 2.5))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 0.0)
|
|
(:omega (degrees 0.1575))
|
|
(:vel-y (meters 0.33333334) (meters 0.06666667))
|
|
(:accel-y (meters -0.00083333335))
|
|
(:friction 0.98 0.02)
|
|
(:timer (seconds 2.335))
|
|
(:flags (sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:userdata 4096000.0)
|
|
(:func 'check-pop-level-firework-red-userdata)
|
|
(:next-time (seconds 1.985))
|
|
(:next-launcher 5409)
|
|
(:conerot-x (degrees -10) (degrees 30))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5403
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:num 1.0)
|
|
(:x (meters 0))
|
|
(:y (meters 0))
|
|
(:z (meters 0.75))
|
|
(:scale-x (meters 2.5) (meters 0.3))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0))
|
|
(:vel-x (meters 0.7407408))
|
|
(:vel-y (meters 0.14814815))
|
|
(:vel-z (meters 0))
|
|
(:accel-x (meters -0.0074074077))
|
|
(:timer (seconds 1.967))
|
|
(:flags (sp-cpuinfo-flag-3 ready-to-launch sp-cpuinfo-flag-14))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5404
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x4 :page #xdb9))
|
|
(:num 1.0)
|
|
(:scale-x (meters 3) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters -0.01) (meters 0.03))
|
|
(:scalevel-x (meters -0.006666667) (meters -0.013333334))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:accel-y (meters -0.0005) (meters -0.00033333333))
|
|
(:friction 0.9 0.02)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-ctyport-firework-red-pop
|
|
:id 1274
|
|
:duration (seconds 0.75)
|
|
:linger-duration (seconds 1.5)
|
|
:bounds (static-bspherem 0 0 0 120)
|
|
:parts ((sp-item 5419 :flags (launch-asap)) (sp-item 5420 :flags (launch-asap) :binding 5418))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5419
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:sound (static-sound-spec "explode-red"))
|
|
(:scale-x (meters 48) (meters 0.1))
|
|
(:rot-z (degrees -17) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -1.28))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -5.12)
|
|
(:fade-b -10.2)
|
|
(:timer (seconds 0.667))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5421)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5421
|
|
:init-specs ((:scalevel-x (meters -0.09142857)) (:scalevel-y :copy scalevel-x))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5420
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x4 :page #xdb9))
|
|
(:num 128.0)
|
|
(:scale-x (meters 0.75) (meters 0.25))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0.225) (degrees 0.225))
|
|
(:vel-y (meters 0.26666668) (meters 0.06666667))
|
|
(:fade-r 0.0)
|
|
(:fade-g -0.85 -0.85)
|
|
(:fade-b -1.7 -1.7)
|
|
(:accel-y (meters -0.0016666667) (meters 0.00083333335))
|
|
(:friction 0.94 0.02)
|
|
(:timer (seconds 1.5))
|
|
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:func 'sparticle-motion-blur)
|
|
(:next-time (seconds 0.585) (seconds 0.165))
|
|
(:next-launcher 5422)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5422
|
|
:init-specs ((:scale-x (meters 2.5))
|
|
(:scale-y :copy scale-x)
|
|
(:scalevel-x (meters -0.016666668))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-g 0.0)
|
|
(:func 'nothing)
|
|
(:next-time (seconds 0.017) (seconds 0.497))
|
|
(:next-launcher 5423)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5423
|
|
:init-specs ((:scale-x (meters 3))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 255.0)
|
|
(:timer (seconds 0.335))
|
|
(:next-time (seconds 0.035))
|
|
(:next-launcher 5424)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5424
|
|
:init-specs ((:scale-x (meters 2)) (:scale-y :copy scale-x) (:a 128.0) (:fade-a -0.8 -0.8))
|
|
)
|
|
|
|
;; definition for function check-pop-level-firework-userdata
|
|
;; INFO: Used lq/sq
|
|
(defun check-pop-level-firework-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
|
|
(when (< (-> arg1 user-float) (-> arg2 launchrot y))
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! s3-0 (-> arg2 launchrot x) (-> arg2 launchrot y) (-> arg2 launchrot z) 1.0)
|
|
(let ((s2-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s2-0
|
|
(let ((t9-2 (method-of-type part-tracker activate)))
|
|
(t9-2
|
|
(the-as part-tracker s2-0)
|
|
*entity-pool*
|
|
(symbol->string (-> part-tracker symbol))
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(let ((t9-3 run-function-in-process)
|
|
(a0-5 s2-0)
|
|
(a1-4 part-tracker-init)
|
|
(a2-5 (-> *part-group-id-table* 1275))
|
|
(a3-1 0)
|
|
(t0-0 #f)
|
|
(t1-0 #f)
|
|
(t2-0 #f)
|
|
(t3-0 *launch-matrix*)
|
|
)
|
|
(set! (-> t3-0 trans quad) (-> s3-0 quad))
|
|
((the-as (function object object object object object object object object none) t9-3)
|
|
a0-5
|
|
a1-4
|
|
a2-5
|
|
a3-1
|
|
t0-0
|
|
t1-0
|
|
t2-0
|
|
t3-0
|
|
)
|
|
)
|
|
(-> s2-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(sparticle-motion-blur arg0 arg1 (the-as vector arg2))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function check-pop-level-firework-red-userdata
|
|
;; INFO: Used lq/sq
|
|
(defun check-pop-level-firework-red-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
|
|
(when (< (-> arg1 user-float) (-> arg2 launchrot y))
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! s3-0 (-> arg2 launchrot x) (-> arg2 launchrot y) (-> arg2 launchrot z) 1.0)
|
|
(let ((s2-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s2-0
|
|
(let ((t9-2 (method-of-type part-tracker activate)))
|
|
(t9-2
|
|
(the-as part-tracker s2-0)
|
|
*entity-pool*
|
|
(symbol->string (-> part-tracker symbol))
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(let ((t9-3 run-function-in-process)
|
|
(a0-5 s2-0)
|
|
(a1-4 part-tracker-init)
|
|
(a2-5 (-> *part-group-id-table* 1274))
|
|
(a3-1 0)
|
|
(t0-0 #f)
|
|
(t1-0 #f)
|
|
(t2-0 #f)
|
|
(t3-0 *launch-matrix*)
|
|
)
|
|
(set! (-> t3-0 trans quad) (-> s3-0 quad))
|
|
((the-as (function object object object object object object object object none) t9-3)
|
|
a0-5
|
|
a1-4
|
|
a2-5
|
|
a3-1
|
|
t0-0
|
|
t1-0
|
|
t2-0
|
|
t3-0
|
|
)
|
|
)
|
|
(-> s2-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(sparticle-motion-blur arg0 arg1 (the-as vector arg2))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function check-pop-level-firework-green-userdata
|
|
;; INFO: Used lq/sq
|
|
(defun check-pop-level-firework-green-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
|
|
(when (< (-> arg1 user-float) (-> arg2 launchrot y))
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! s3-0 (-> arg2 launchrot x) (-> arg2 launchrot y) (-> arg2 launchrot z) 1.0)
|
|
(let ((s2-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s2-0
|
|
(let ((t9-2 (method-of-type part-tracker activate)))
|
|
(t9-2
|
|
(the-as part-tracker s2-0)
|
|
*entity-pool*
|
|
(symbol->string (-> part-tracker symbol))
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(let ((t9-3 run-function-in-process)
|
|
(a0-5 s2-0)
|
|
(a1-4 part-tracker-init)
|
|
(a2-5 (-> *part-group-id-table* 1273))
|
|
(a3-1 0)
|
|
(t0-0 #f)
|
|
(t1-0 #f)
|
|
(t2-0 #f)
|
|
(t3-0 *launch-matrix*)
|
|
)
|
|
(set! (-> t3-0 trans quad) (-> s3-0 quad))
|
|
((the-as (function object object object object object object object object none) t9-3)
|
|
a0-5
|
|
a1-4
|
|
a2-5
|
|
a3-1
|
|
t0-0
|
|
t1-0
|
|
t2-0
|
|
t3-0
|
|
)
|
|
)
|
|
(-> s2-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(sparticle-motion-blur arg0 arg1 (the-as vector arg2))
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-ctyport-firework-pop
|
|
:id 1275
|
|
:duration (seconds 0.75)
|
|
:linger-duration (seconds 1.5)
|
|
:bounds (static-bspherem 0 0 0 120)
|
|
:parts ((sp-item 5425 :flags (launch-asap))
|
|
(sp-item 5426 :flags (launch-asap) :binding 5418)
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
(sp-item 5418 :flags (start-dead))
|
|
)
|
|
)
|
|
|
|
;; definition for function birth-func-firework-color
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun birth-func-firework-color ((arg0 sparticle-system)
|
|
(arg1 sparticle-cpuinfo)
|
|
(arg2 sprite-vec-data-3d)
|
|
(arg3 sparticle-launcher)
|
|
(arg4 sparticle-launch-state)
|
|
)
|
|
(let ((v1-0 (-> arg4 sprite)))
|
|
(set! (-> arg2 r-g-b-a x) (-> v1-0 sprite r-g-b-a x))
|
|
(set! (-> arg2 r-g-b-a y) (-> v1-0 sprite r-g-b-a y))
|
|
(set! (-> arg2 r-g-b-a z) (-> v1-0 sprite r-g-b-a z))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5418
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x3 :page #xdb9))
|
|
(:birth-func 'birth-func-firework-color)
|
|
(:num 0.25 0.5)
|
|
(:scale-x (meters 1.5) (meters 0.5))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters -0.01) (meters 0.03))
|
|
(:scalevel-x (meters 0.0033333334) (meters 0.006666667))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.21333334 -0.21333334)
|
|
(:accel-x (meters -0.00016666666) (meters -0.00008333333))
|
|
(:accel-y (meters -0.00033333333) (meters -0.00016666666))
|
|
(:friction 0.9 0.02)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
|
(:next-time (seconds 0.167))
|
|
(:next-launcher 5427)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5427
|
|
:init-specs ((:scalevel-x (meters 0.0016666667) (meters 0.0033333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:next-time (seconds 0.167))
|
|
(:next-launcher 5428)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5428
|
|
:init-specs ((:scalevel-x (meters -0.00083333335) (meters -0.0016666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:next-time (seconds 0.5) (seconds 1.997))
|
|
(:next-launcher 5429)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5429
|
|
:init-specs ((:scale-x (meters 1))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0 128.0)
|
|
(:next-time (seconds 0.035))
|
|
(:next-launcher 5430)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5430
|
|
:init-specs ((:r 128.0) (:g 128.0) (:b 128.0) (:a 64.0) (:fade-a -0.8))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5425
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:sound (static-sound-spec "explode-blue"))
|
|
(:scale-x (meters 48) (meters 0.1))
|
|
(:rot-z (degrees -17) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -1.28))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -5.12)
|
|
(:fade-b -10.2)
|
|
(:timer (seconds 0.667))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5431)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5431
|
|
:init-specs ((:r 0.0)
|
|
(:scalevel-x (meters -0.09142857))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -1.6)
|
|
(:fade-b 0.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5426
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2 :page #xdb9))
|
|
(:num 24.0 12.0)
|
|
(:scale-x (meters 2) (meters 0.3))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0.225))
|
|
(:vel-y (meters 0.26666668) (meters 0.06666667))
|
|
(:fade-r -3.4)
|
|
(:fade-g -1.7)
|
|
(:fade-b -0.85)
|
|
(:accel-y (meters -0.0016666667) (meters 0.00083333335))
|
|
(:friction 0.94 0.02)
|
|
(:timer (seconds 1) (seconds 0.247))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:func 'sparticle-motion-blur)
|
|
(:next-time (seconds 0.585) (seconds 0.08))
|
|
(:next-launcher 5432)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5432
|
|
:init-specs ((:fade-g 0.0) (:fade-a -0.85333335 -0.85333335))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5406
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x1 :page #xdb9))
|
|
(:num 0.01)
|
|
(:sound (static-sound-spec "whistle--blue"))
|
|
(:scale-x (meters 4.5) (meters 0.3))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0.1575))
|
|
(:vel-y (meters 0.4) (meters 0.06666667))
|
|
(:accel-y (meters -0.0016666667))
|
|
(:friction 0.98 0.02)
|
|
(:timer (seconds 2.5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:userdata 4096000.0)
|
|
(:func 'check-pop-level-firework-userdata)
|
|
(:next-time (seconds 1) (seconds 0.997))
|
|
(:next-launcher 5409)
|
|
(:conerot-x (degrees -20) (degrees 60))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5409
|
|
:init-specs ((:userdata -4096000.0))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5402
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x1 :page #xdb9))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters -0.01) (meters 0.03))
|
|
(:scalevel-x (meters 0.01) (meters 0.01))
|
|
(:rotvel-z (degrees -0.15) (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.21333334 -0.42666668)
|
|
(:accel-y (meters -0.00016666666) (meters -0.00033333333))
|
|
(:friction 0.9 0.02)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-z (degrees 0) (degrees 3600))
|
|
)
|
|
)
|