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

;; this file is debug only
(declare-file (debug))

;; definition of type visvol-edit-info
(deftype visvol-edit-info (structure)
  ((editing       symbol)
   (current-func  visvol-edit-func)
   (analog-func   visvol-edit-func)
   )
  (:methods
    (handle-pad-input (_type_) object)
    (draw-menu (_type_ process-drawable) object)
    (set-origin-joint-idx! (_type_ process-drawable) none)
    )
  )

;; definition for method 3 of type visvol-edit-info
(defmethod inspect ((this visvol-edit-info))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'visvol-edit-info)
  (format #t "~1Tediting: ~A~%" (-> this editing))
  (format #t "~1Tcurrent-func: ~D~%" (-> this current-func))
  (format #t "~1Tanalog-func: ~D~%" (-> this analog-func))
  (label cfg-4)
  this
  )

;; definition of type visvol-editor
(deftype visvol-editor (process)
  ((proc  handle)
   )
  (:state-methods
    idle
    )
  )

;; definition for method 3 of type visvol-editor
(defmethod inspect ((this visvol-editor))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type process inspect)))
    (t9-0 this)
    )
  (format #t "~2Tproc: ~D~%" (-> this proc))
  (label cfg-4)
  this
  )

;; definition for method 9 of type visvol-edit-info
;; WARN: Return type mismatch int vs object.
(defmethod handle-pad-input ((this visvol-edit-info))
  (if (cpad-pressed? 0 up)
      (+! (-> this current-func) -1)
      )
  (if (cpad-pressed? 0 left)
      (+! (-> this current-func) -4)
      )
  (if (cpad-pressed? 0 down)
      (+! (-> this current-func) 1)
      )
  (if (cpad-pressed? 0 right)
      (+! (-> this current-func) 4)
      )
  (cond
    ((< (the-as int (-> this current-func)) 0)
     (let ((v0-0 2))
       (set! (-> this current-func) (the-as visvol-edit-func v0-0))
       v0-0
       )
     )
    ((>= (the-as int (-> this current-func)) 3)
     (set! (-> this current-func) (visvol-edit-func visvol-positive))
     0
     )
    )
  )

;; definition for method 11 of type visvol-edit-info
;; WARN: Return type mismatch int vs none.
;; WARN: Function (method 11 visvol-edit-info) has a return type of none, but the expression builder found a return statement.
(defmethod set-origin-joint-idx! ((this visvol-edit-info) (arg0 process-drawable))
  (if (or (not arg0) (!= (-> this analog-func) 2))
      (return #f)
      )
  (let ((v0-1 (the-as int (-> arg0 draw origin-joint-index))))
    (let ((v1-7 (+ (-> arg0 node-list length) -1)))
      (when (cpad-pressed? 0 r1)
        (set! v0-1 (the-as int (+ (the-as uint v0-1) 1)))
        (if (cpad-hold? 0 l1)
            (set! v0-1 (the-as int (+ (the-as uint v0-1) 4)))
            )
        (case v0-1
          ((1 2)
           (set! v0-1 3)
           )
          )
        )
      (when (cpad-pressed? 0 l1)
        (+! v0-1 -1)
        (if (cpad-hold? 0 r1)
            (+! v0-1 -4)
            )
        (case v0-1
          ((1 2)
           (set! v0-1 0)
           )
          )
        )
      (if (< v0-1 0)
          (set! v0-1 v1-7)
          )
      (if (< v1-7 v0-1)
          (set! v0-1 0)
          )
      )
    (set! (-> arg0 draw origin-joint-index) (the-as uint v0-1))
    )
  (none)
  )

;; definition for method 10 of type visvol-edit-info
;; INFO: Used lq/sq
;; WARN: Return type mismatch int vs object.
(defmethod draw-menu ((this visvol-edit-info) (arg0 process-drawable))
  (when (cpad-pressed? 0 l2)
    (set! (-> this editing) (not (-> this editing)))
    (cond
      ((-> this editing)
       (set! *external-cam-mode* 'locked)
       )
      (*target*
        (set! *external-cam-mode* #f)
        )
      (else
        (set! *external-cam-mode* 'pad-0)
        )
      )
    )
  (cond
    ((or (not (-> this editing)) (cpad-hold? 0 r2))
     (if (not (-> this editing))
         (format *stdcon* "press l2 to edit visvol~%")
         (format *stdcon* "release r2 to continue editing visvol~%")
         )
     (if (or (cpad-hold? 0 r2) (not *target*))
         (set! *external-cam-mode* 'pad-0)
         )
     )
    (else
      (set! *external-cam-mode* 'locked)
      (handle-pad-input this)
      (set-origin-joint-idx! this arg0)
      (let ((s3-0 ">")
            (s4-0 " ")
            )
        (if (not (logtest? (-> *display* real-frame-clock integral-frame-counter) 8))
            (set! s3-0 " ")
            )
        (format *stdcon* " r2/l2: move camera~%")
        (format
          *stdcon*
          " r1/l1: select joint ~D ~S~%"
          (if arg0
              (the-as int (-> arg0 draw origin-joint-index))
              -1
              )
          (if (and arg0 (-> arg0 node-list data (-> arg0 draw origin-joint-index) joint))
              (-> arg0 node-list data (-> arg0 draw origin-joint-index) joint name)
              "?"
              )
          )
        (format *stdcon* " dpad: select function~%")
        (format *stdcon* " x, tri: toggle/call~%")
        (format *stdcon* "------------------------~%")
        (let ((t9-9 format)
              (a0-14 *stdcon*)
              (a1-9 " ~S analog: ~S~%")
              (a2-1 (if (= (-> this current-func) (visvol-edit-func visvol-positive))
                        s3-0
                        s4-0
                        )
                    )
              (v1-45 (-> this analog-func))
              )
          (t9-9 a0-14 a1-9 a2-1 (cond
                                  ((= v1-45 (visvol-edit-func visvol-positive))
                                   (set! *display-xyz-axes* #t)
                                   "visvol positive"
                                   )
                                  ((= v1-45 (visvol-edit-func visvol-negative))
                                   (set! *display-xyz-axes* #t)
                                   "visvol negative"
                                   )
                                  ((= v1-45 (visvol-edit-func adjust-sphere))
                                   (set! *display-xyz-axes* #f)
                                   "adjust sphere"
                                   )
                                  ((= v1-45 (visvol-edit-func adjust-vis-distance))
                                   (set! *display-xyz-axes* #f)
                                   "adjust vis distance"
                                   )
                                  (else
                                    "???"
                                    )
                                  )
                )
          )
        (format *stdcon* " ~S print to listener~%" (if (= (-> this current-func) (visvol-edit-func visvol-negative))
                                                       s3-0
                                                       s4-0
                                                       )
                )
        (format *stdcon* " ~S quit~%" (cond
                                        ((= (-> this current-func) (visvol-edit-func adjust-sphere))
                                         (empty)
                                         s3-0
                                         )
                                        (else
                                          s4-0
                                          )
                                        )
                )
        )
      (let ((v1-51 0))
        (if (cpad-pressed? 0 x)
            (+! v1-51 1)
            )
        (if (cpad-pressed? 0 triangle)
            (+! v1-51 -1)
            )
        (when (nonzero? v1-51)
          (case (-> this current-func)
            (((visvol-edit-func visvol-positive))
             (+! (-> this analog-func) v1-51)
             )
            (((visvol-edit-func visvol-negative))
             (when arg0
               (let ((s4-1 (entity-by-name (-> arg0 name))))
                 (when s4-1
                   (let ((f30-0 (res-lump-float s4-1 'vis-dist :default 200.0))
                         (s4-2 (res-lump-data s4-1 'visvol (pointer float)))
                         )
                     (when s4-2
                       (format #t "~%actor-vis ~S ~M " (-> arg0 name) f30-0)
                       (format #t "~M ~M ~M  ~M ~M ~M~%~%" (-> s4-2 0) (-> s4-2 1) (-> s4-2 2) (-> s4-2 4) (-> s4-2 5) (-> s4-2 6))
                       )
                     )
                   )
                 )
               (format
                 #t
                 "~%:bounds (static-spherem ~M ~M ~M ~M)~%"
                 (-> arg0 draw bounds x)
                 (-> arg0 draw bounds y)
                 (-> arg0 draw bounds z)
                 (-> arg0 draw bounds w)
                 )
               (let ((v1-63 (-> arg0 draw origin-joint-index)))
                 (format
                   #t
                   ":origin-joint ~s~%~%"
                   (if (and (>= v1-63 0) (< v1-63 (the-as uint (-> arg0 node-list length))) (-> arg0 node-list data v1-63 joint))
                       (-> arg0 node-list data v1-63 joint name)
                       "?"
                       )
                   )
                 )
               )
             )
            (((visvol-edit-func adjust-sphere))
             (kill-by-type visvol-editor *active-pool*)
             )
            (else
              (format 0 "~%ERROR<GMJ>: bad visvol-edit-func~%")
              )
            )
          )
        )
      (cond
        ((< (the-as int (-> this analog-func)) 0)
         (set! (-> this analog-func) (visvol-edit-func adjust-vis-distance))
         )
        ((>= (the-as int (-> this analog-func)) 4)
         (set! (-> this analog-func) (visvol-edit-func visvol-positive))
         0
         )
        )
      (when arg0
        (let ((f28-0 (analog-input (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 48.0 110.0 1.0))
              (f30-1 (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 48.0 110.0 1.0))
              (f26-0 (analog-input (the-as int (-> *cpad-list* cpads 0 lefty)) 128.0 48.0 110.0 1.0))
              (f0-10 (analog-input (the-as int (-> *cpad-list* cpads 0 leftx)) 128.0 48.0 110.0 1.0))
              )
          (when (or (!= f28-0 0.0) (!= f30-1 0.0) (!= f26-0 0.0) (!= f0-10 0.0))
            (case (-> this analog-func)
              (((visvol-edit-func visvol-positive) (visvol-edit-func visvol-negative))
               (set! f28-0 (* 1228.8 f28-0))
               (set! f30-1 (* -1228.8 f30-1))
               (set! f26-0 (* 1228.8 f26-0))
               (let ((f0-11 (/ f0-10 -100)))
                 (set! f0-10 (+ 1.0 f0-11))
                 )
               )
              (((visvol-edit-func adjust-sphere))
               (set! f28-0 (* -409.6 f28-0))
               (set! f30-1 (* -409.6 f30-1))
               (set! f26-0 (* -409.6 f26-0))
               (let ((f0-12 (/ f0-10 100)))
                 (set! f0-10 (+ 1.0 f0-12))
                 )
               )
              (((visvol-edit-func adjust-vis-distance))
               (let ((f1-15 (/ f28-0 100)))
                 (set! f28-0 (+ 1.0 f1-15))
                 )
               (let ((f1-17 (/ f30-1 -100)))
                 (set! f30-1 (+ 1.0 f1-17))
                 )
               (let ((f1-19 (/ f26-0 100)))
                 (set! f26-0 (+ 1.0 f1-19))
                 )
               )
              )
            (case (-> this analog-func)
              (((visvol-edit-func visvol-positive))
               (let ((a0-57 (entity-by-name (-> arg0 name))))
                 (when a0-57
                   (let ((v1-110 (res-lump-data a0-57 'visvol (pointer float))))
                     (when v1-110
                       (let ((a2-23 (&-> v1-110 4))
                             (a0-58 (&-> v1-110 4))
                             (a1-29 (new 'stack-no-clear 'vector))
                             )
                         (set! (-> a1-29 x) f28-0)
                         (set! (-> a1-29 y) f30-1)
                         (set! (-> a1-29 z) f26-0)
                         (set! (-> a1-29 w) 1.0)
                         (vector+! (the-as vector a2-23) (the-as vector a0-58) a1-29)
                         )
                       (set! (-> v1-110 4) (fmax (-> v1-110 4) (+ 4096.0 (-> v1-110 0))))
                       (set! (-> v1-110 5) (fmax (-> v1-110 5) (+ 4096.0 (-> v1-110 1))))
                       (set! (-> v1-110 6) (fmax (-> v1-110 6) (+ 4096.0 (-> v1-110 2))))
                       )
                     )
                   )
                 )
               )
              (((visvol-edit-func visvol-negative))
               (let ((a0-65 (entity-by-name (-> arg0 name))))
                 (when a0-65
                   (let ((v1-112 (res-lump-data a0-65 'visvol (pointer float))))
                     (when v1-112
                       (let ((a2-26 (&-> v1-112 0))
                             (a0-66 (&-> v1-112 0))
                             (a1-34 (new 'stack-no-clear 'vector))
                             )
                         (set! (-> a1-34 x) f28-0)
                         (set! (-> a1-34 y) f30-1)
                         (set! (-> a1-34 z) f26-0)
                         (set! (-> a1-34 w) 1.0)
                         (vector+! (the-as vector a2-26) (the-as vector a0-66) a1-34)
                         )
                       (set! (-> v1-112 0) (fmin (-> v1-112 0) (+ -4096.0 (-> v1-112 4))))
                       (set! (-> v1-112 1) (fmin (-> v1-112 1) (+ -4096.0 (-> v1-112 5))))
                       (set! (-> v1-112 2) (fmin (-> v1-112 2) (+ -4096.0 (-> v1-112 6))))
                       )
                     )
                   )
                 )
               )
              (((visvol-edit-func adjust-sphere))
               (set! (-> arg0 draw bounds w) (* (-> arg0 draw bounds w) f0-10))
               (let ((s4-3 (matrix-copy! (new 'stack-no-clear 'matrix) (matrix-local->world #f #f)))
                     (s2-0 (matrix-copy!
                             (new 'stack-no-clear 'matrix)
                             (-> arg0 node-list data (-> arg0 draw origin-joint-index) bone transform)
                             )
                           )
                     (s3-1 (new 'stack-no-clear 'vector))
                     )
                 (set! (-> s3-1 x) f28-0)
                 (set! (-> s3-1 y) f30-1)
                 (set! (-> s3-1 z) f26-0)
                 (set! (-> s3-1 w) 1.0)
                 (vector-reset! (-> s4-3 trans))
                 (vector-matrix*! s3-1 s3-1 s4-3)
                 (vector-reset! (-> s2-0 trans))
                 (matrix-transpose! s2-0 s2-0)
                 (vector-matrix*! s3-1 s3-1 s2-0)
                 (+! (-> arg0 draw bounds x) (-> s3-1 x))
                 (+! (-> arg0 draw bounds y) (-> s3-1 y))
                 (+! (-> arg0 draw bounds z) (-> s3-1 z))
                 )
               )
              (((visvol-edit-func adjust-vis-distance))
               (let ((s4-4 (entity-by-name (-> arg0 name))))
                 (when s4-4
                   (let ((f0-36 (* (res-lump-float s4-4 'vis-dist :default 200.0) f30-1)))
                     (add-32bit-data!
                       s4-4
                       (new 'static 'res-tag :name 'vis-dist :key-frame -1000000000.0 :elt-count #x1 :elt-type float)
                       f0-36
                       )
                     )
                   )
                 )
               )
              )
            )
          )
        (case (-> this analog-func)
          (((visvol-edit-func adjust-vis-distance))
           (let ((a0-93 (entity-by-name (-> arg0 name))))
             (when a0-93
               (let ((f0-37 (res-lump-float a0-93 'vis-dist :default 200.0)))
                 (format *stdcon* "~%vis distance: ~M" f0-37)
                 )
               )
             )
           )
          )
        )
      )
    )
  (case (-> this analog-func)
    (((visvol-edit-func adjust-sphere))
     (when arg0
       (let ((a1-53 (-> arg0 draw origin-joint-index)))
         (show-maya-skeleton arg0 (the-as int a1-53) #x46400000)
         )
       )
     )
    )
  0
  )

;; definition for symbol *visvol-edit-info*, type visvol-edit-info
(define *visvol-edit-info* (the-as visvol-edit-info 0))

;; definition for symbol *visvol-edit-info*, type visvol-edit-info
(define *visvol-edit-info* (new 'static 'visvol-edit-info :editing #t))

;; failed to figure out what this is:
(defstate idle (visvol-editor)
  :virtual #t
  :enter (behavior ()
    (set! *display-actor-vis* #t)
    )
  :exit (behavior ()
    (set! *display-xyz-axes* #f)
    (set! *display-actor-vis* #f)
    (set! *external-cam-mode* #f)
    )
  :trans (behavior ()
    (draw-menu
      *visvol-edit-info*
      (the-as process-drawable (as-type (handle->process (-> self proc)) process-drawable))
      )
    )
  :code sleep-code
  )

;; definition for function visvol-editor-init-by-other
(defbehavior visvol-editor-init-by-other visvol-editor ((arg0 handle))
  (set! (-> self proc) arg0)
  (go-virtual idle)
  )

;; definition for function stop-visvol-edit
;; WARN: Return type mismatch int vs object.
(defun stop-visvol-edit ()
  (kill-by-type visvol-editor *active-pool*)
  0
  )

;; definition for function visvol-edit
;; WARN: Return type mismatch int vs object.
(defun visvol-edit ((arg0 string))
  (stop-visvol-edit)
  (let* ((v1-0 (process->ppointer (process-by-name arg0 *active-pool*)))
         (gp-0 (logior (if v1-0
                           (new 'static 'handle :pid (-> v1-0 0 pid))
                           (new 'static 'handle)
                           )
                       (new 'static 'handle :process v1-0)
                       )
               )
         )
    (if (not (handle->process gp-0))
        (set! gp-0 (process->handle *debug-actor*))
        (debug-actor arg0)
        )
    (process-spawn visvol-editor gp-0 :name "visvol-editor")
    )
  0
  )