;;-*-Lisp-*-
(in-package goal)

;; definition for function part-progress-hud-left-func
;; INFO: Return type mismatch float vs none.
(defun part-progress-hud-left-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let ((v1-0 *progress-process*))
    (set! (-> arg2 vector 0 w) (-> v1-0 0 left-side-x-scale))
    (set! (-> arg2 vector 1 w) (-> v1-0 0 left-side-y-scale))
    )
  (none)
  )

;; definition for function part-progress-hud-right-func
;; INFO: Return type mismatch float vs none.
(defun part-progress-hud-right-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let ((v1-0 *progress-process*))
    (set! (-> arg2 vector 0 w) (-> v1-0 0 right-side-x-scale))
    (set! (-> arg2 vector 1 w) (-> v1-0 0 right-side-y-scale))
    )
  (none)
  )

;; definition for function part-progress-hud-orb-func
;; INFO: Return type mismatch float vs none.
(defun part-progress-hud-orb-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 0 w) (/ 5324.8 (-> *progress-process* 0 sides-x-scale)))
  (set! (-> arg2 vector 1 w) (/ 5324.8 (-> *progress-process* 0 sides-x-scale)))
  (none)
  )

;; definition for function part-progress-hud-buzzer-func
;; INFO: Return type mismatch float vs none.
(defun part-progress-hud-buzzer-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 0 w) (/ 6144.0 (-> *progress-process* 0 sides-x-scale)))
  (set! (-> arg2 vector 1 w) (/ 6144.0 (-> *progress-process* 0 sides-x-scale)))
  (none)
  )

;; definition for function part-progress-hud-button-func
;; INFO: Return type mismatch float vs none.
(defun part-progress-hud-button-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 0 w) (/ 6553.6 (-> *progress-process* 0 sides-x-scale)))
  (set! (-> arg2 vector 1 w) (/ 6553.6 (-> *progress-process* 0 sides-x-scale)))
  (none)
  )

;; definition for function part-progress-hud-tint-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-hud-tint-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 2 w) (the float (- 64 (sar (* 63 (-> *progress-process* 0 in-out-position)) 12))))
  0
  (none)
  )

;; definition for function part-progress-card-slot-01-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-card-slot-01-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 2 w) (if (zero? (-> *progress-process* 0 option-index))
                                 64.0
                                 32.0
                                 )
        )
  (set! (-> arg2 vector 1 w) (-> *progress-process* 0 slot-scale))
  0
  (none)
  )

;; definition for function part-progress-card-slot-02-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-card-slot-02-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 2 w) (if (= (-> *progress-process* 0 option-index) 1)
                                 64.0
                                 32.0
                                 )
        )
  (set! (-> arg2 vector 1 w) (-> *progress-process* 0 slot-scale))
  0
  (none)
  )

;; definition for function part-progress-card-slot-03-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-card-slot-03-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 2 w) (if (= (-> *progress-process* 0 option-index) 2)
                                 64.0
                                 32.0
                                 )
        )
  (set! (-> arg2 vector 1 w) (-> *progress-process* 0 slot-scale))
  0
  (none)
  )

;; definition for function part-progress-card-slot-04-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-card-slot-04-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 2 w) (if (= (-> *progress-process* 0 option-index) 3)
                                 64.0
                                 32.0
                                 )
        )
  (set! (-> arg2 vector 1 w) (-> *progress-process* 0 slot-scale))
  0
  (none)
  )

;; definition for function part-progress-card-cell-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-card-cell-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let ((f0-1 (* 2.0 (+ -0.5 (-> *progress-process* 0 transition-percentage-invert)))))
    (if (< f0-1 0.0)
        (set! f0-1 0.0)
        )
    (set! (-> arg2 vector 2 w) (* 128.0 f0-1))
    )
  0
  (none)
  )

;; definition for function part-progress-save-icon-func
;; INFO: Return type mismatch int vs none.
(defun part-progress-save-icon-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let ((f0-1 (* 6144.0 (-> *progress-process* 0 transition-percentage-invert))))
    (set! (-> arg2 vector 0 w) f0-1)
    (set! (-> arg2 vector 1 w) f0-1)
    )
  0
  (none)
  )

;; definition for function fuel-cell-progress-hud-orbit-callback
;; INFO: Return type mismatch int vs none.
(defun fuel-cell-progress-hud-orbit-callback ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let* ((a0-1 (-> arg1 key))
         (s5-0 (the-as progress (-> a0-1 proc)))
         (v1-0 (the int (the-as float (-> arg1 user-float))))
         (s4-0 -1)
         )
    (let ((a1-1 0))
      (dotimes (a2-1 (-> *progress-process* 0 nb-of-particles))
        (if (= (-> a0-1 matrix) (-> s5-0 particles a1-1 part matrix))
            (set! s4-0 a1-1)
            )
        (+! a1-1 1)
        )
      )
    (cond
      ((= v1-0 3)
       (if (= (-> s5-0 particle-state s4-0) 1)
           (set! (-> arg2 vector 2 w) 42.0)
           (set! (-> arg2 vector 2 w) 128.0)
           )
       0
       )
      (else
        (let ((s3-0 (new 'stack-no-clear 'vector))
              (s2-0 (new 'stack-no-clear 'vector))
              )
          (cond
            ((or (= s4-0 -1) (= (-> s5-0 particle-state s4-0) 2) (= (-> s5-0 particle-state s4-0) 1))
             (set! (-> arg2 vector 0 x) 245760.0)
             )
            ((= v1-0 -1)
             (set! (-> arg2 vector 0 x) 0.0)
             (set! (-> arg2 vector 0 y) 0.0)
             )
            (else
              (vector<-cspace! s3-0 (-> s5-0 icons (logand s4-0 3) icon 0 node-list data v1-0))
              (vector<-cspace! s2-0 (-> s5-0 icons (logand s4-0 3) icon 0 node-list data 3))
              (vector-! s3-0 s3-0 s2-0)
              (set! (-> arg2 vector 0 x) (* 48.0 (-> s3-0 x)))
              (set! (-> arg2 vector 0 y) (* 60.0 (-> s3-0 y)))
              (set! (-> arg2 vector 0 z) (* 32.0 (-> s3-0 z)))
              )
            )
          )
        0
        )
      )
    )
  0
  (none)
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-previous
  :id 85
  :flags (use-local-clock screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 332 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-next
  :id 86
  :flags (use-local-clock screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 333 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-selector
  :id 87
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 334 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-left
  :id 88
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 335 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-right
  :id 89
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 336 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-tint
  :id 90
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 337 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-card-cell
  :id 91
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2190 :flags (launch-asap)) (sp-item 2191 :flags (launch-asap)) (sp-item 2192 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-button-x
  :id 570
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2336 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-button-square
  :id 571
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2337 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-button-triangle
  :id 572
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2338 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-button-circle
  :id 573
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2339 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-card-slot-01
  :id 92
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2142 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-card-slot-02
  :id 93
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2143 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-card-slot-03
  :id 94
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2144 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-card-slot-04
  :id 95
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 1)
  :parts ((sp-item 2145 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-power-cell-center
  :id 96
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 338 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpart 337
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 15))
    (sp-flt spt-scale-y (meters 11.5))
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-tint-func)
    )
  )

;; failed to figure out what this is:
(defpart 2190
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6e :page #x1cf))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.8))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-cell-func)
    )
  )

;; failed to figure out what this is:
(defpart 2191
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6d :page #x1cf))
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters 1.05))
    (sp-flt spt-scale-x (meters 0.8))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-cell-func)
    )
  )

;; failed to figure out what this is:
(defpart 2192
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6c :page #x1cf))
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters 2.3))
    (sp-flt spt-scale-x (meters 0.8))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-cell-func)
    )
  )

;; failed to figure out what this is:
(defpart 2336
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-button-func)
    )
  )

;; failed to figure out what this is:
(defpart 2337
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-button-func)
    )
  )

;; failed to figure out what this is:
(defpart 2338
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-button-func)
    )
  )

;; failed to figure out what this is:
(defpart 2339
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-button-func)
    )
  )

;; failed to figure out what this is:
(defpart 2142
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 9.2))
    (sp-flt spt-scale-y (meters 2))
    (sp-flt spt-r 0.0)
    (sp-flt spt-g 0.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-slot-01-func)
    )
  )

;; failed to figure out what this is:
(defpart 2143
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 9.2))
    (sp-flt spt-scale-y (meters 2))
    (sp-flt spt-r 0.0)
    (sp-flt spt-g 0.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-slot-02-func)
    )
  )

;; failed to figure out what this is:
(defpart 2144
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 9.2))
    (sp-flt spt-scale-y (meters 2))
    (sp-flt spt-r 0.0)
    (sp-flt spt-g 0.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-slot-03-func)
    )
  )

;; failed to figure out what this is:
(defpart 2145
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 9.2))
    (sp-flt spt-scale-y (meters 2))
    (sp-flt spt-r 0.0)
    (sp-flt spt-g 0.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-progress-card-slot-04-func)
    )
  )

;; failed to figure out what this is:
(defpart 332
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpart 333
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpart 334
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.8))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpart 335
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 3.5))
    (sp-flt spt-scale-y (meters 13))
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-left-func)
    )
  )

;; failed to figure out what this is:
(defpart 336
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 6))
    (sp-flt spt-scale-y (meters 13))
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-right-func)
    )
  )

;; failed to figure out what this is:
(defpart 339
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-flt spt-userdata 4.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 340
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-flt spt-userdata 5.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 341
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-flt spt-userdata 6.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 342
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-flt spt-userdata 7.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 343
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 0.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-flt spt-userdata 9.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 338
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-flt spt-userdata 3.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 344
  :init-specs ((sp-flt spt-fade-a -0.53333336))
  )

;; failed to figure out what this is:
(defpart 345
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
    (sp-flt spt-num 0.5)
    (sp-flt spt-z (meters 0.52734375))
    (sp-flt spt-scale-x (meters 0.25))
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.07) (meters 0.46) 1.0)
    (sp-rnd-int spt-r 0 1 255.0)
    (sp-rnd-int spt-g 0 1 255.0)
    (sp-rnd-int spt-b 0 1 255.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-scalevel-x (meters 0.009765625))
    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
    (sp-flt spt-scalevel-y (meters 0.009765625))
    (sp-flt spt-fade-a 0.35555556)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
    (sp-flt spt-userdata -1.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    (sp-int spt-next-time 90)
    (sp-launcher-by-id spt-next-launcher 232)
    )
  )

;; failed to figure out what this is:
(defpart 346
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
    (sp-flt spt-num 0.06)
    (sp-flt spt-z (meters 0.52734375))
    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.1))
    (sp-rnd-int spt-r 0 1 255.0)
    (sp-rnd-int spt-g 0 1 255.0)
    (sp-rnd-int spt-b 0 1 255.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-scalevel-x (meters 0.009765625))
    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
    (sp-flt spt-fade-a 0.32)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
    (sp-flt spt-userdata -1.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    (sp-int spt-next-time 75)
    (sp-launcher-by-id spt-next-launcher 232)
    )
  )

;; failed to figure out what this is:
(defpart 347
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-z (meters 0.52734375))
    (sp-flt spt-scale-x (meters 2))
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 1.8))
    (sp-flt spt-r 192.0)
    (sp-flt spt-g 192.0)
    (sp-rnd-flt spt-b 0.0 128.0 1.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-rotvel-z (degrees -0.4))
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
    (sp-flt spt-userdata -1.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpart 348
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-z (meters 0.52734375))
    (sp-flt spt-scale-x (meters 2.4))
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 2))
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-rotvel-z (degrees 0.3))
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
    (sp-flt spt-userdata -1.0)
    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-hud-power-cell-whole
  :id 97
  :flags (use-local-clock screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 338 :flags (launch-asap))
    (sp-item 347 :flags (launch-asap) :period 3600 :length 5)
    (sp-item 348 :flags (launch-asap) :period 3600 :length 5)
    (sp-item 343 :flags (launch-asap))
    (sp-item 339 :flags (launch-asap))
    (sp-item 340 :flags (launch-asap))
    (sp-item 341 :flags (launch-asap))
    (sp-item 342 :flags (launch-asap))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-buzzer
  :id 98
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 1982 :flags (launch-asap) :binding 1981) (sp-item 1981 :flags (start-dead launch-asap)))
  )

;; failed to figure out what this is:
(defpart 1982
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 2.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpart 1981
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters 0))
    (sp-flt spt-y (meters 1.3333334))
    (sp-flt spt-z (meters 0.1))
    (sp-flt spt-scale-x (meters 2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-omega 0.0)
    (sp-flt spt-vel-x (meters 0.053333335))
    (sp-flt spt-vel-z (meters 0))
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-orb
  :id 99
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 1983 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpart 1983
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 2.2))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-buzzer-small
  :id 100
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 1985 :flags (launch-asap) :binding 1984) (sp-item 1984 :flags (start-dead launch-asap)))
  )

;; failed to figure out what this is:
(defpart 1985
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    )
  )

;; failed to figure out what this is:
(defpart 1984
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters 0))
    (sp-flt spt-y (meters 1.3333334))
    (sp-flt spt-z (meters 0.05))
    (sp-flt spt-scale-x (meters 1.5))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-omega 0.0)
    (sp-flt spt-vel-x (meters 0.05037037))
    (sp-flt spt-vel-z (meters 0))
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-buzzer-func)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-orb-small
  :id 101
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 1986 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpart 1986
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.3))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-hud-orb-func)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-progress-save-icon
  :id 615
  :flags (screen-space)
  :bounds (static-bspherem 0 0 0 100)
  :parts ((sp-item 2478 :flags (launch-asap)))
  )

;; failed to figure out what this is:
(defpart 2478
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 1.8))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-progress-save-icon-func)
    )
  )

;; definition for method 34 of type progress
;; INFO: Return type mismatch int vs none.
(defmethod initialize-particles progress ((obj progress))
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-0 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-0) (new 'static 'hud-particle))
      (set! (-> obj particles s5-0 part) (create-launch-control (-> *part-group-id-table* 90) obj))
      (set! (-> obj particles s5-0 init-pos x) 256.0)
      (set! (-> obj particles s5-0 init-pos y) 224.0)
      (set! (-> obj particles s5-0 init-pos z) 16.0)
      (set! (-> obj particles s5-0 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-1 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-1) (new 'static 'hud-particle))
      (set! (-> obj particles s5-1 part) (create-launch-control (-> *part-group-id-table* 88) obj))
      (set! (-> obj particles s5-1 init-pos x) -42.0)
      (set! (-> obj particles s5-1 init-pos y) 254.0)
      (set! (-> obj particles s5-1 init-pos z) 5.0)
      (set! (-> obj particles s5-1 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-2 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-2) (new 'static 'hud-particle))
      (set! (-> obj particles s5-2 part) (create-launch-control (-> *part-group-id-table* 89) obj))
      (set! (-> obj particles s5-2 init-pos x) 610.0)
      (set! (-> obj particles s5-2 init-pos y) 254.0)
      (set! (-> obj particles s5-2 init-pos z) 5.0)
      (set! (-> obj particles s5-2 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-3 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-3) (new 'static 'hud-particle))
      (set! (-> obj particles s5-3 part) (create-launch-control (-> *part-group-id-table* 85) obj))
      (set! (-> obj particles s5-3 init-pos x) -320.0)
      (set! (-> obj particles s5-3 init-pos y) 40.0)
      (set! (-> obj particles s5-3 init-pos z) 14.0)
      (set! (-> obj particles s5-3 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-4 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-4) (new 'static 'hud-particle))
      (set! (-> obj particles s5-4 part) (create-launch-control (-> *part-group-id-table* 86) obj))
      (set! (-> obj particles s5-4 init-pos x) -320.0)
      (set! (-> obj particles s5-4 init-pos y) 400.0)
      (set! (-> obj particles s5-4 init-pos z) 14.0)
      (set! (-> obj particles s5-4 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-5 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-5) (new 'static 'hud-particle))
      (set! (-> obj particles s5-5 part) (create-launch-control (-> *part-group-id-table* 87) obj))
      (set! (-> obj particles s5-5 init-pos x) -320.0)
      (set! (-> obj particles s5-5 init-pos y) 194.0)
      (set! (-> obj particles s5-5 init-pos z) 15.0)
      (set! (-> obj particles s5-5 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-6 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-6) (new 'static 'hud-particle))
      (set! (-> obj particles s5-6 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-6 init-pos x) -320.0)
      (set! (-> obj particles s5-6 init-pos y) 194.0)
      (set! (-> obj particles s5-6 init-pos z) 14.0)
      (set! (-> obj particles s5-6 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-7 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-7) (new 'static 'hud-particle))
      (set! (-> obj particles s5-7 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-7 init-pos x) -320.0)
      (set! (-> obj particles s5-7 init-pos y) 194.0)
      (set! (-> obj particles s5-7 init-pos z) 14.0)
      (set! (-> obj particles s5-7 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-8 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-8) (new 'static 'hud-particle))
      (set! (-> obj particles s5-8 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-8 init-pos x) -320.0)
      (set! (-> obj particles s5-8 init-pos y) 194.0)
      (set! (-> obj particles s5-8 init-pos z) 14.0)
      (set! (-> obj particles s5-8 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-9 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-9) (new 'static 'hud-particle))
      (set! (-> obj particles s5-9 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-9 init-pos x) -320.0)
      (set! (-> obj particles s5-9 init-pos y) 194.0)
      (set! (-> obj particles s5-9 init-pos z) 14.0)
      (set! (-> obj particles s5-9 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-10 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-10) (new 'static 'hud-particle))
      (set! (-> obj particles s5-10 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-10 init-pos x) -320.0)
      (set! (-> obj particles s5-10 init-pos y) 194.0)
      (set! (-> obj particles s5-10 init-pos z) 14.0)
      (set! (-> obj particles s5-10 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-11 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-11) (new 'static 'hud-particle))
      (set! (-> obj particles s5-11 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-11 init-pos x) -320.0)
      (set! (-> obj particles s5-11 init-pos y) 194.0)
      (set! (-> obj particles s5-11 init-pos z) 14.0)
      (set! (-> obj particles s5-11 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-12 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-12) (new 'static 'hud-particle))
      (set! (-> obj particles s5-12 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-12 init-pos x) -320.0)
      (set! (-> obj particles s5-12 init-pos y) 194.0)
      (set! (-> obj particles s5-12 init-pos z) 14.0)
      (set! (-> obj particles s5-12 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-13 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-13) (new 'static 'hud-particle))
      (set! (-> obj particles s5-13 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-13 init-pos x) -320.0)
      (set! (-> obj particles s5-13 init-pos y) 194.0)
      (set! (-> obj particles s5-13 init-pos z) 14.0)
      (set! (-> obj particles s5-13 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-14 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-14) (new 'static 'hud-particle))
      (set! (-> obj particles s5-14 part) (create-launch-control (-> *part-group-id-table* 98) obj))
      (set! (-> obj particles s5-14 init-pos x) -320.0)
      (set! (-> obj particles s5-14 init-pos y) 224.0)
      (set! (-> obj particles s5-14 init-pos z) 14.0)
      (set! (-> obj particles s5-14 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-15 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-15) (new 'static 'hud-particle))
      (set! (-> obj particles s5-15 part) (create-launch-control (-> *part-group-id-table* 99) obj))
      (set! (-> obj particles s5-15 init-pos x) -320.0)
      (set! (-> obj particles s5-15 init-pos y) 224.0)
      (set! (-> obj particles s5-15 init-pos z) 14.0)
      (set! (-> obj particles s5-15 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-16 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-16) (new 'static 'hud-particle))
      (set! (-> obj particles s5-16 part) (create-launch-control (-> *part-group-id-table* 97) obj))
      (set! (-> obj particles s5-16 init-pos x) -320.0)
      (set! (-> obj particles s5-16 init-pos y) 112.0)
      (set! (-> obj particles s5-16 init-pos z) 4.0)
      (set! (-> obj particles s5-16 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-17 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-17) (new 'static 'hud-particle))
      (set! (-> obj particles s5-17 part) (create-launch-control (-> *part-group-id-table* 100) obj))
      (set! (-> obj particles s5-17 init-pos x) -320.0)
      (set! (-> obj particles s5-17 init-pos y) 193.0)
      (set! (-> obj particles s5-17 init-pos z) 4.0)
      (set! (-> obj particles s5-17 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-18 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-18) (new 'static 'hud-particle))
      (set! (-> obj particles s5-18 part) (create-launch-control (-> *part-group-id-table* 101) obj))
      (set! (-> obj particles s5-18 init-pos x) -320.0)
      (set! (-> obj particles s5-18 init-pos y) 40.0)
      (set! (-> obj particles s5-18 init-pos z) 4.0)
      (set! (-> obj particles s5-18 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-19 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-19) (new 'static 'hud-particle))
      (set! (-> obj particles s5-19 part) (create-launch-control (-> *part-group-id-table* 92) obj))
      (set! (-> obj particles s5-19 init-pos x) -320.0)
      (set! (-> obj particles s5-19 init-pos y) 90.0)
      (set! (-> obj particles s5-19 init-pos z) 16.0)
      (set! (-> obj particles s5-19 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-20 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-20) (new 'static 'hud-particle))
      (set! (-> obj particles s5-20 part) (create-launch-control (-> *part-group-id-table* 93) obj))
      (set! (-> obj particles s5-20 init-pos x) -320.0)
      (set! (-> obj particles s5-20 init-pos y) 172.0)
      (set! (-> obj particles s5-20 init-pos z) 16.0)
      (set! (-> obj particles s5-20 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-21 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-21) (new 'static 'hud-particle))
      (set! (-> obj particles s5-21 part) (create-launch-control (-> *part-group-id-table* 94) obj))
      (set! (-> obj particles s5-21 init-pos x) -320.0)
      (set! (-> obj particles s5-21 init-pos y) 254.0)
      (set! (-> obj particles s5-21 init-pos z) 16.0)
      (set! (-> obj particles s5-21 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-22 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-22) (new 'static 'hud-particle))
      (set! (-> obj particles s5-22 part) (create-launch-control (-> *part-group-id-table* 95) obj))
      (set! (-> obj particles s5-22 init-pos x) -320.0)
      (set! (-> obj particles s5-22 init-pos y) 336.0)
      (set! (-> obj particles s5-22 init-pos z) 16.0)
      (set! (-> obj particles s5-22 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-23 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-23) (new 'static 'hud-particle))
      (set! (-> obj particles s5-23 part) (create-launch-control (-> *part-group-id-table* 91) obj))
      (set! (-> obj particles s5-23 init-pos x) -320.0)
      (set! (-> obj particles s5-23 init-pos y) 102.0)
      (set! (-> obj particles s5-23 init-pos z) 13.0)
      (set! (-> obj particles s5-23 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-24 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-24) (new 'static 'hud-particle))
      (set! (-> obj particles s5-24 part) (create-launch-control (-> *part-group-id-table* 91) obj))
      (set! (-> obj particles s5-24 init-pos x) -320.0)
      (set! (-> obj particles s5-24 init-pos y) 184.0)
      (set! (-> obj particles s5-24 init-pos z) 13.0)
      (set! (-> obj particles s5-24 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-25 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-25) (new 'static 'hud-particle))
      (set! (-> obj particles s5-25 part) (create-launch-control (-> *part-group-id-table* 91) obj))
      (set! (-> obj particles s5-25 init-pos x) -320.0)
      (set! (-> obj particles s5-25 init-pos y) 266.0)
      (set! (-> obj particles s5-25 init-pos z) 13.0)
      (set! (-> obj particles s5-25 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-26 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-26) (new 'static 'hud-particle))
      (set! (-> obj particles s5-26 part) (create-launch-control (-> *part-group-id-table* 91) obj))
      (set! (-> obj particles s5-26 init-pos x) -320.0)
      (set! (-> obj particles s5-26 init-pos y) 348.0)
      (set! (-> obj particles s5-26 init-pos z) 13.0)
      (set! (-> obj particles s5-26 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-27 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-27) (new 'static 'hud-particle))
      (set! (-> obj particles s5-27 part) (create-launch-control (-> *part-group-id-table* 570) obj))
      (set! (-> obj particles s5-27 init-pos x) -320.0)
      (set! (-> obj particles s5-27 init-pos y) 338.0)
      (set! (-> obj particles s5-27 init-pos z) 4.0)
      (set! (-> obj particles s5-27 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-28 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-28) (new 'static 'hud-particle))
      (set! (-> obj particles s5-28 part) (create-launch-control (-> *part-group-id-table* 571) obj))
      (set! (-> obj particles s5-28 init-pos x) -320.0)
      (set! (-> obj particles s5-28 init-pos y) 338.0)
      (set! (-> obj particles s5-28 init-pos z) 4.0)
      (set! (-> obj particles s5-28 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-29 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-29) (new 'static 'hud-particle))
      (set! (-> obj particles s5-29 part) (create-launch-control (-> *part-group-id-table* 572) obj))
      (set! (-> obj particles s5-29 init-pos x) -320.0)
      (set! (-> obj particles s5-29 init-pos y) 338.0)
      (set! (-> obj particles s5-29 init-pos z) 4.0)
      (set! (-> obj particles s5-29 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-30 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-30) (new 'static 'hud-particle))
      (set! (-> obj particles s5-30 part) (create-launch-control (-> *part-group-id-table* 573) obj))
      (set! (-> obj particles s5-30 init-pos x) -320.0)
      (set! (-> obj particles s5-30 init-pos y) 338.0)
      (set! (-> obj particles s5-30 init-pos z) 4.0)
      (set! (-> obj particles s5-30 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
    (let ((s5-31 (-> obj nb-of-particles)))
      (set! (-> obj particles s5-31) (new 'static 'hud-particle))
      (set! (-> obj particles s5-31 part) (create-launch-control (-> *part-group-id-table* 615) obj))
      (set! (-> obj particles s5-31 init-pos x) -320.0)
      (set! (-> obj particles s5-31 init-pos y) 180.0)
      (set! (-> obj particles s5-31 init-pos z) 4.0)
      (set! (-> obj particles s5-31 part matrix) -1)
      )
    (+! (-> obj nb-of-particles) 1)
    )
  0
  (none)
  )
