jak-project/goal_src/jak2/engine/debug/editable.gc

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

;; name: editable.gc
;; name in dgo: editable
;; dgos: ENGINE, GAME

;; DECOMP BEGINS

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

(defmethod new editable-region ((allocation symbol) (type-to-make type))
  (let ((gp-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
    (set! (-> gp-0 changed) #t)
    (set! (-> gp-0 locked) #f)
    (let ((v1-4 (level-get-target-inside *level*)))
      (set! (-> gp-0 level) (the-as string (if v1-4
                                               (-> v1-4 info dbname)
                                               )
                                    )
            )
      )
    (set! (-> gp-0 tree) (the-as string 'camera))
    (set! (-> gp-0 on-enter) #f)
    (set! (-> gp-0 on-exit) #f)
    (set! (-> gp-0 on-inside) #f)
    (set! (-> gp-0 filter) (editable-region-method-12 gp-0))
    gp-0
    )
  )

(defmethod print editable-region ((obj editable-region))
  (format #t "#<~A region-~D ~A ~A @ #x~X>" (-> obj type) (-> obj id) (-> obj level) (-> obj tree) obj)
  obj
  )

(defmethod editable-region-method-10 editable-region ((obj editable-region) (arg0 int))
  (local-vars (sv-16 string) (sv-32 string))
  (when (nonzero? (-> obj id))
    (let ((s5-0 (clear *temp-string*)))
      (format s5-0 "delete from region_sphere where region_id=~D" (-> obj id))
      (let ((a2-1 (sql-query s5-0)))
        (when (!= (-> a2-1 error) 'modify)
          (format 0 "ERROR: sql: modify error ~A for ~A~%" a2-1 obj)
          (return #t)
          )
        )
      (clear s5-0)
      (format s5-0 "select region_face_id from region_face where region_id=~D" (-> obj id))
      (let ((s3-0 (sql-query s5-0)))
        (when (!= (-> s3-0 error) 'select)
          (format 0 "ERROR: sql: face select error ~A for ~A~%" s3-0 obj)
          (return #t)
          )
        (when (> (-> s3-0 len) 0)
          (clear s5-0)
          (format s5-0 "delete from region_point where region_face_id in (")
          (dotimes (s2-0 (-> s3-0 len))
            (cond
              ((zero? s2-0)
               (let ((s1-0 format)
                     (s0-0 s5-0)
                     )
                 (set! sv-16 "~D")
                 (let ((a2-4 (string->int (-> s3-0 data s2-0))))
                   (s1-0 s0-0 sv-16 a2-4)
                   )
                 )
               )
              (else
                (let ((s1-1 format)
                      (s0-1 s5-0)
                      )
                  (set! sv-32 ",~D")
                  (let ((a2-5 (string->int (-> s3-0 data s2-0))))
                    (s1-1 s0-1 sv-32 a2-5)
                    )
                  )
                )
              )
            )
          (format s5-0 ")")
          (let ((a2-6 (sql-query s5-0)))
            (when (!= (-> a2-6 error) 'modify)
              (format 0 "ERROR: sql: modify error ~A for ~A~%" a2-6 obj)
              (return #t)
              )
            )
          )
        )
      (clear s5-0)
      (format s5-0 "delete from region_face where region_id=~D" (-> obj id))
      (let ((a2-8 (sql-query s5-0)))
        (when (!= (-> a2-8 error) 'modify)
          (format 0 "ERROR: sql: modify error ~A for ~A~%" a2-8 obj)
          (return #t)
          )
        )
      (when (zero? arg0)
        (clear s5-0)
        (format s5-0 "delete from region where region_id=~D" (-> obj id))
        (let ((a2-10 (sql-query s5-0)))
          (when (!= (-> a2-10 error) 'modify)
            (format 0 "ERROR: sql: modify error ~A for ~A~%" a2-10 obj)
            (return #t)
            )
          )
        )
      )
    )
  #f
  )

;; ERROR: function was not converted to expressions. Cannot decompile.

(defmethod editable-region-method-11 editable-region ((obj editable-region) (arg0 vector) (arg1 int))
  (local-vars (sv-32 vector2h))
  (set! sv-32 (new 'stack 'vector2h))
  (add-debug-x #t (bucket-id debug-no-zbuf1) arg0 (new 'static 'rgba :r #xff :g #xff :a #x80))
  (let ((s3-0 add-debug-text-3d)
        (s2-0 #t)
        (s1-0 (bucket-id debug-no-zbuf1))
        )
    (format (clear *temp-string*) "region-~D~%" (-> obj id))
    (s3-0 s2-0 (the-as bucket-id s1-0) *temp-string* arg0 (font-color white) sv-32)
    )
  (+! (-> sv-32 y) 8)
  (when (>= arg1 1)
    (let ((s4-1 (-> obj on-enter)))
      (when s4-1
        (let ((s3-1 add-debug-text-3d)
              (s2-1 #t)
              (s1-1 (bucket-id debug-no-zbuf1))
              )
          (format (clear *temp-string*) "(on-enter ~S)" s4-1)
          (s3-1 s2-1 (the-as bucket-id s1-1) *temp-string* arg0 (font-color white) sv-32)
          )
        (+! (-> sv-32 y) 8)
        )
      )
    (let ((s4-2 (-> obj on-inside)))
      (when s4-2
        (let ((s3-2 add-debug-text-3d)
              (s2-2 #t)
              (s1-2 318)
              )
          (format (clear *temp-string*) "(on-inside ~S)" s4-2)
          (s3-2 s2-2 (the-as bucket-id s1-2) *temp-string* arg0 (font-color white) sv-32)
          )
        (+! (-> sv-32 y) 8)
        )
      )
    (let ((s5-1 (-> obj on-exit)))
      (when s5-1
        (let ((s4-3 add-debug-text-3d)
              (s3-3 #t)
              (s2-3 318)
              )
          (format (clear *temp-string*) "(on-exit ~S)" s5-1)
          (s4-3 s3-3 (the-as bucket-id s2-3) *temp-string* arg0 (font-color white) sv-32)
          )
        (+! (-> sv-32 y) 8)
        )
      )
    )
  0
  (none)
  )

;; WARN: Return type mismatch int vs editable-filter.
(defmethod editable-region-method-12 editable-region ((obj editable-region))
  (let* ((s5-0 0)
         (s4-0 (lambda ((arg0 string)) (let ((gp-0 0))
                                         (when (not (type? arg0 string))
                                           (format (clear *temp-string*) "~A" arg0)
                                           (set! arg0 *temp-string*)
                                           )
                                         (if (>= (string-position "(sound-play" arg0) 0)
                                             (set! gp-0 (logior gp-0 4))
                                             )
                                         (if (>= (string-position "(part-tracker" arg0) 0)
                                             (set! gp-0 (logior gp-0 8))
                                             )
                                         (if (>= (string-position "(want-" arg0) 0)
                                             (set! gp-0 (logior gp-0 64))
                                             )
                                         (if (>= (string-position "(setting-" arg0) 0)
                                             (set! gp-0 (logior gp-0 16))
                                             )
                                         (if (>= (string-position "(water" arg0) 0)
                                             (set! gp-0 (logior gp-0 128))
                                             )
                                         gp-0
                                         )
                       )
               )
         (v0-3
           (logior (logior (logior s5-0 (s4-0 (-> obj on-inside))) (s4-0 (-> obj on-enter))) (s4-0 (-> obj on-exit)))
           )
         )
    (when (zero? v0-3)
      (if (and (not (-> obj on-inside)) (not (-> obj on-enter)) (not (-> obj on-exit)))
          (set! v0-3 1)
          (set! v0-3 2)
          )
      )
    (case (-> obj tree)
      (('target)
       (set! v0-3 (logior v0-3 512))
       )
      (('camera)
       (set! v0-3 (logior v0-3 256))
       )
      (('data)
       (set! v0-3 (logior v0-3 2048))
       )
      (('water)
       (set! v0-3 (logior v0-3 1024))
       )
      (('city_vis)
       (set! v0-3 4096)
       )
      (('sample)
       (set! v0-3 8192)
       )
      (('light)
       (set! v0-3 #x4000)
       )
      (('entity)
       (set! v0-3 #x8000)
       )
      )
    (the-as editable-filter v0-3)
    )
  )

(defmethod editable-method-23 editable ((obj editable))
  #t
  )

(defmethod editable-method-28 editable ((obj editable) (arg0 editable-filter))
  (let* ((s5-0 (-> obj owner))
         (a0-1 (car s5-0))
         )
    (while (not (null? s5-0))
      (editable-method-28 (the-as editable a0-1) arg0)
      (set! s5-0 (cdr s5-0))
      (set! a0-1 (car s5-0))
      )
    )
  0
  (none)
  )

;; WARN: Return type mismatch int vs symbol.
(defmethod editable-method-29 editable ((obj editable) (arg0 editable-filter))
  (let* ((s5-0 (-> obj owner))
         (a0-1 (car s5-0))
         )
    (while (not (null? s5-0))
      (editable-method-29 (the-as editable a0-1) arg0)
      (set! s5-0 (cdr s5-0))
      (set! a0-1 (car s5-0))
      )
    )
  (the-as symbol 0)
  )

(defmethod editable-method-21 editable ((obj editable) (arg0 editable-region))
  (when (not (and (-> obj region) (-> obj region locked)))
    (if arg0
        (set! (-> arg0 changed) #t)
        )
    (if (-> obj region)
        (set! (-> obj region changed) #t)
        )
    (logior! (-> obj flags) (editable-flag changed))
    (set! (-> obj region) arg0)
    )
  0
  (none)
  )

;; WARN: Return type mismatch int vs rgba.
(defmethod get-color editable ((obj editable) (arg0 int))
  "Returns the [[rgba]] that corresponds to the type of [[editable]] TODO - document the colors"
  (the-as rgba (cond
                 ((and (logtest? (-> obj flags) (editable-flag selected))
                       (< (mod (-> *display* real-clock frame-counter) 60) 30)
                       )
                  (the-as int (the-as uint #x80ffffff))
                  )
                 ((logtest? (-> obj flags) (editable-flag no-save))
                  (shl #x80ff 16)
                  )
                 ((= (-> obj type) editable-point)
                  (the-as int (the-as uint #x800080ff))
                  )
                 ((= (-> obj type) editable-sample)
                  (the-as int (the-as uint #x80ff8000))
                  )
                 ((= (-> obj type) editable-light)
                  (the-as int (the-as uint #x80ff0080))
                  )
                 ((= (-> obj type) editable-entity)
                  (the-as int (the-as uint #x80ff00ff))
                  )
                 (else
                   (the-as int (the-as uint #x800000ff))
                   )
                 )
          )
  )

(defmethod editable-method-10 editable ((obj editable))
  (when (logtest? (-> obj flags) (editable-flag selected))
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (when (editable-method-11 obj s5-0)
        (set! (-> s5-0 y) (-> s5-0 y))
        (add-debug-x #t (bucket-id debug-no-zbuf1) s5-0 (new 'static 'rgba :r #xff :g #xff :b #xff :a #x80))
        )
      )
    (add-debug-x #t (bucket-id debug-no-zbuf1) (edit-get-trans obj) (new 'static 'rgba :r #xff :g #xff :a #x80))
    )
  0
  (none)
  )

(defmethod select-editable! editable ((obj editable) (arg0 symbol))
  (case arg0
    (('toggle)
     (logxor! (-> obj flags) (editable-flag selected))
     )
    ((#f)
     (logclear! (-> obj flags) (editable-flag selected))
     )
    (else
      (logior! (-> obj flags) (editable-flag selected))
      )
    )
  0
  (none)
  )

(defmethod edit-get-distance editable ((obj editable) (arg0 vector))
  "Returns the distance from the camera to the [[editable]], or -1.0"
  -1.0
  )

(defmethod editable-method-20 editable ((obj editable) (arg0 vector) (arg1 vector) (arg2 vector) (arg3 vector))
  (local-vars (sv-48 vector) (sv-52 vector))
  (set! sv-48 (new 'stack-no-clear 'vector))
  (set! sv-52 (new 'stack-no-clear 'vector))
  (let ((s4-0 (edit-get-trans obj)))
    (reverse-transform-point! sv-48 s4-0 arg2 arg0)
    (reverse-transform-point! sv-52 s4-0 arg2 arg1)
    (vector-! arg3 sv-52 sv-48)
    (vector-! (new 'stack-no-clear 'vector) s4-0 (-> *math-camera* trans))
    )
  (if (< 20480.0 (vector-length arg3))
      (vector-normalize! arg3 20480.0)
      )
  (editable-method-15 obj arg3 56)
  0
  (none)
  )

(defmethod editable-method-11 editable ((obj editable) (arg0 vector))
  (with-pp
    (let ((s5-0 (new 'stack 'collide-query)))
      (set! (-> s5-0 start-pos quad) (-> (edit-get-trans obj) quad))
      (set-vector! (-> s5-0 move-dist) 0.0 -204800.0 0.0 1.0)
      (let ((v1-5 s5-0))
        (set! (-> v1-5 radius) 40.96)
        (set! (-> v1-5 collide-with)
              (collide-spec backgnd crate obstacle hit-by-player-list hit-by-others-list collectable pusher)
              )
        (set! (-> v1-5 ignore-process0) pp)
        (set! (-> v1-5 ignore-process1) #f)
        (set! (-> v1-5 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
        (set! (-> v1-5 action-mask) (collide-action solid))
        )
      (when (>= (fill-and-probe-using-line-sphere *collide-cache* s5-0) 0.0)
        (set! (-> arg0 quad) (-> s5-0 best-other-tri intersect quad))
        #t
        )
      )
    )
  )

(defmethod editable-method-24 editable ((obj editable))
  0
  (none)
  )

(defmethod editable-method-17 editable ((obj editable) (arg0 vector))
  0
  (none)
  )

(defmethod editable-method-22 editable ((obj editable) (arg0 editable-array) (arg1 int) (arg2 int))
  #t
  )

(defmethod editable-method-15 editable ((obj editable) (arg0 vector) (arg1 int))
  0
  (none)
  )

(defmethod edit-coord! editable ((obj editable) (arg0 vector) (arg1 editable-flag))
  0
  (none)
  )

(defmethod editable-method-18 editable ((obj editable) (arg0 vector) (arg1 matrix))
  0
  (none)
  )

(defmethod edit-get-trans editable ((obj editable))
  "Returns the `trans` [[vector]] or [[*null-vector*]]"
  *null-vector*
  )

(defmethod editable-method-19 editable ((obj editable) (arg0 vector))
  0
  (none)
  )

(defmethod editable-method-26 editable ((obj editable) (arg0 editable) (arg1 editable-array))
  0
  (none)
  )

(defmethod editable-method-25 editable ((obj editable) (arg0 editable-array))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (let* ((s4-0 (-> obj owner))
         (a0-3 (car s4-0))
         )
    (while (not (null? s4-0))
      (editable-method-26 (the-as editable a0-3) obj arg0)
      (set! s4-0 (cdr s4-0))
      (set! a0-3 (car s4-0))
      )
    )
  0
  (none)
  )

(defmethod editable-method-27 editable ((obj editable) (arg0 editable-array))
  (local-vars (s4-0 editable))
  (let ((v1-0 0))
    (while (< v1-0 (-> arg0 selection length))
      (when (= obj (-> arg0 selection v1-0))
        (set! s4-0 (-> arg0 selection (+ v1-0 1)))
        (goto cfg-10)
        )
      (+! v1-0 2)
      )
    )
  (let ((s3-0 (editable-array-method-11 arg0)))
    (set! s4-0 (when (>= s3-0 0)
                 (set! s4-0 (copy obj 'debug))
                 (let ((v1-9 (-> arg0 region)))
                   (if v1-9
                       (set! (-> s4-0 region) v1-9)
                       )
                   )
                 (set! (-> s4-0 region changed) #t)
                 (logior! (-> obj flags) (editable-flag changed))
                 (set! (-> s4-0 id) (the-as uint 0))
                 (set! (-> s4-0 owner) '())
                 (select-editable! s4-0 #f)
                 (let ((s2-0 (new 'debug 'string 32 (the-as string #f))))
                   (format s2-0 "undefined-~d" *editable-temp-id*)
                   (set! (-> s4-0 name) s2-0)
                   )
                 (set! *editable-temp-id* (+ *editable-temp-id* 1))
                 (set! (-> arg0 data s3-0) s4-0)
                 (set! (-> arg0 selection (-> arg0 selection length)) obj)
                 (set! (-> arg0 selection (+ (-> arg0 selection length) 1)) s4-0)
                 (+! (-> arg0 selection length) 2)
                 s4-0
                 )
          )
    )
  (label cfg-10)
  s4-0
  )

(defmethod print editable-point ((obj editable-point))
  (format
    #t
    "#<~A~S~m ~m ~m :r ~m"
    (-> obj type)
    (if (logtest? (-> obj flags) (editable-flag changed))
        " (m)"
        ""
        )
    (-> obj trans x)
    (-> obj trans y)
    (-> obj trans z)
    (-> obj radius)
    )
  (format #t " @ #x~X>" obj)
  obj
  )

;; WARN: Function (method 28 editable-point) has a return type of none, but the expression builder found a return statement.
(defmethod editable-method-28 editable-point ((obj editable-point) (arg0 editable-filter))
  (if (logtest? arg0 (editable-filter water-command))
      (return #f)
      )
  (let ((s4-0 (-> *editable* 0 current)))
    (cond
      ((logtest? (-> obj flags) (editable-flag top-set))
       (let* ((s3-0 (-> s4-0 length))
              (s2-0 0)
              (a0-1 (-> s4-0 data s2-0))
              )
         (while (< s2-0 s3-0)
           (if (and a0-1 (= (-> a0-1 region) (-> obj region)) (logtest? (-> a0-1 flags) (editable-flag top-set)))
               (edit-coord! a0-1 (-> obj trans) (editable-flag y no-update))
               )
           (+! s2-0 1)
           (set! a0-1 (-> s4-0 data s2-0))
           )
         )
       )
      ((logtest? (-> obj flags) (editable-flag bot-set))
       (let* ((s3-1 (-> s4-0 length))
              (s2-1 0)
              (a0-2 (-> s4-0 data s2-1))
              )
         (while (< s2-1 s3-1)
           (if (and a0-2 (= (-> a0-2 region) (-> obj region)) (logtest? (-> a0-2 flags) (editable-flag bot-set)))
               (edit-coord! a0-2 (-> obj trans) (editable-flag y no-update))
               )
           (+! s2-1 1)
           (set! a0-2 (-> s4-0 data s2-1))
           )
         )
       )
      )
    )
  ((the-as (function editable-point editable-command none) (find-parent-method editable-point 28))
   obj
   (the-as editable-command arg0)
   )
  0
  (none)
  )

(defmethod editable-method-15 editable-point ((obj editable-point) (arg0 vector) (arg1 int))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (vector+! (-> obj trans) (-> obj trans) arg0)
  (editable-method-28 obj (the-as editable-filter arg1))
  0
  (none)
  )

(defmethod edit-coord! editable-point ((obj editable-point) (arg0 vector) (arg1 editable-flag))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (if (logtest? arg1 (editable-flag x))
      (set! (-> obj trans x) (-> arg0 x))
      )
  (if (logtest? arg1 (editable-flag y))
      (set! (-> obj trans y) (-> arg0 y))
      )
  (if (logtest? arg1 (editable-flag z))
      (set! (-> obj trans z) (-> arg0 z))
      )
  (editable-method-28 obj (the-as editable-filter arg1))
  0
  (none)
  )

(defmethod edit-get-trans editable-point ((obj editable-point))
  "Returns the `trans` [[vector]] or [[*null-vector*]]"
  (-> obj trans)
  )

(defmethod editable-method-18 editable-point ((obj editable-point) (arg0 vector) (arg1 matrix))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (let ((s4-1 (vector-! (new 'stack-no-clear 'vector) (-> obj trans) arg0)))
    (vector-matrix*! s4-1 s4-1 arg1)
    (vector+! (-> obj trans) s4-1 arg0)
    )
  0
  (none)
  )

(defmethod editable-method-10 editable-point ((obj editable-point))
  (let* ((s5-0 vector-vector-distance)
         (a0-1 (math-camera-pos))
         (a1-0 (-> obj trans))
         (f0-1 (- (s5-0 a0-1 a1-0) (-> obj radius)))
         (s2-0 (cond
                 ((logtest? (-> obj flags) (editable-flag selected))
                  6
                  )
                 ((>= f0-1 983040.0)
                  3
                  )
                 ((>= f0-1 491520.0)
                  4
                  )
                 ((>= f0-1 245760.0)
                  5
                  )
                 (else
                   6
                   )
                 )
               )
         )
    (add-debug-sphere-from-table
      (bucket-id debug2)
      (-> obj trans)
      (-> obj radius)
      (get-color obj (the-as int a1-0))
      s2-0
      )
    )
  ((method-of-type editable editable-method-10) obj)
  (none)
  )

(defmethod edit-get-distance editable-point ((obj editable-point) (arg0 vector))
  "Returns the distance from the camera to the [[editable]], or -1.0"
  (let ((a0-1 (new 'stack-no-clear 'sphere))
        (s5-0 (new 'stack-no-clear 'vector))
        )
    (set! (-> a0-1 quad) (-> obj trans quad))
    (set! (-> a0-1 r) (-> obj radius))
    (when (sphere-in-view-frustum? a0-1)
      (reverse-transform-point! s5-0 (-> obj trans) (-> *math-camera* inv-camera-rot vector 2) arg0)
      (let ((f0-1 (vector-vector-distance (edit-get-trans obj) s5-0)))
        (if (>= (-> obj radius) f0-1)
            (return f0-1)
            )
        )
      )
    )
  -1.0
  )

(defmethod editable-method-19 editable-point ((obj editable-point) (arg0 vector))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (let ((s4-1 (vector-! (new 'stack-no-clear 'vector) arg0 (-> obj trans))))
    (vector-normalize! s4-1 (-> obj radius))
    (vector-! (-> obj trans) arg0 s4-1)
    )
  (editable-method-28 obj (editable-filter load))
  0
  (none)
  )

(defmethod editable-method-22 editable-point ((obj editable-point) (arg0 editable-array) (arg1 int) (arg2 int))
  (case arg1
    ((2)
     (let ((s3-0 (clear *temp-string*)))
       (format
         s3-0
         "insert into region_point set region_face_id=LAST_INSERT_ID(),idx=~D,x=~f,y=~f,z=~f"
         arg2
         (- (-> obj trans x) (-> arg0 level-offset x))
         (- (-> obj trans y) (-> arg0 level-offset y))
         (- (-> obj trans z) (-> arg0 level-offset z))
         )
       (let ((a0-5 (sql-query s3-0)))
         (when (= (-> a0-5 error) 'modify)
           (logclear! (-> obj flags) (editable-flag changed))
           #t
           )
         )
       )
     )
    (else
      #t
      )
    )
  )

(defmethod editable-method-17 editable-sphere ((obj editable-sphere) (arg0 vector))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (if (= (-> arg0 y) 0.0)
      (+! (-> obj radius) (-> arg0 x))
      (set! (-> obj radius) (-> arg0 y))
      )
  (if (< (-> obj radius) 0.0)
      (set! (-> obj radius) 0.0)
      )
  (editable-method-28 obj (editable-filter load))
  0
  (none)
  )

(defmethod editable-method-22 editable-sphere ((obj editable-sphere) (arg0 editable-array) (arg1 int) (arg2 int))
  (let ((gp-0 (clear *temp-string*)))
    (format
      gp-0
      "insert into region_sphere set region_id=~D,x=~f,y=~f,z=~f,r=~f"
      (-> obj region id)
      (- (-> obj trans x) (-> arg0 level-offset x))
      (- (-> obj trans y) (-> arg0 level-offset y))
      (- (-> obj trans z) (-> arg0 level-offset z))
      (-> obj radius)
      )
    (= (-> (sql-query gp-0) error) 'modify)
    )
  )

(defmethod editable-method-22 editable-sample ((obj editable-sample) (arg0 editable-array) (arg1 int) (arg2 int))
  (let ((s5-0 (clear *temp-string*)))
    (format
      s5-0
      "insert into sample_point set level_info_id=~D,x=~f,y=~f,z=~f,source='manual'"
      (-> arg0 level-info-id)
      (* 0.00024414062 (- (-> obj trans x) (-> arg0 level-offset x)))
      (* 0.00024414062 (- (-> obj trans y) (-> arg0 level-offset y)))
      (* 0.00024414062 (- (-> obj trans z) (-> arg0 level-offset z)))
      )
    (let ((a0-4 (sql-query s5-0)))
      (when (= (-> a0-4 error) 'modify)
        (logclear! (-> obj flags) (editable-flag changed))
        #t
        )
      )
    )
  )

(defmethod print editable-light ((obj editable-light))
  (format
    #t
    "#<~A~S ~S ~m ~m ~m"
    (-> obj type)
    (if (logtest? (-> obj flags) (editable-flag changed))
        " (m)"
        ""
        )
    (-> obj name)
    (-> obj trans x)
    (-> obj trans y)
    (-> obj trans z)
    )
  (format #t " :r ~m @ #x~X>" (-> obj radius) obj)
  obj
  )

(defmethod editable-method-23 editable-light ((obj editable-light))
  (let ((v1-0 *light-hash*))
    (let* ((a2-0 (-> v1-0 num-lights))
           (a1-1 (-> v1-0 light-sphere-array a2-0))
           )
      (set! (-> a1-1 name) (-> obj name))
      (set! (-> a1-1 decay-start) (-> obj decay-start))
      (set! (-> a1-1 ambient-point-ratio) (-> obj ambient-point-ratio))
      (set! (-> a1-1 brightness) (-> obj brightness))
      (set! (-> a1-1 bsphere quad) (-> obj trans quad))
      (set! (-> a1-1 bsphere w) (-> obj radius))
      (set! (-> a1-1 direction quad) (-> obj direction quad))
      (set! (-> a1-1 color quad) (-> obj color quad))
      (set! (-> a1-1 palette-index) (the int (-> obj color w)))
      )
    (+! (-> v1-0 num-lights) 1)
    )
  #t
  )

(defun update-light-sphere-from-editable-light ((arg0 editable-light))
  (let ((v1-0 (lookup-light-sphere-by-name (-> arg0 name) *light-hash*)))
    (when v1-0
      (set! (-> v1-0 name) (-> arg0 name))
      (set! (-> v1-0 decay-start) (-> arg0 decay-start))
      (set! (-> v1-0 ambient-point-ratio) (-> arg0 ambient-point-ratio))
      (set! (-> v1-0 brightness) (-> arg0 brightness))
      (set! (-> v1-0 bsphere quad) (-> arg0 trans quad))
      (set! (-> v1-0 bsphere w) (-> arg0 radius))
      (set! (-> v1-0 direction quad) (-> arg0 direction quad))
      (set! (-> v1-0 color quad) (-> arg0 color quad))
      (set! (-> v1-0 palette-index) (the int (-> arg0 color w)))
      )
    )
  (none)
  )

(defmethod editable-method-17 editable-light ((obj editable-light) (arg0 vector))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (if (= (-> arg0 y) 0.0)
      (+! (-> obj radius) (-> arg0 x))
      (set! (-> obj radius) (-> arg0 y))
      )
  (if (< (-> obj radius) 0.0)
      (set! (-> obj radius) 0.0)
      )
  (update-light-sphere-from-editable-light obj)
  (editable-method-28 obj (editable-filter load))
  0
  (none)
  )

(defmethod editable-method-15 editable-light ((obj editable-light) (arg0 vector) (arg1 int))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (vector+! (-> obj trans) (-> obj trans) arg0)
  (update-light-sphere-from-editable-light obj)
  (editable-method-28 obj (the-as editable-filter arg1))
  0
  (none)
  )

;; WARN: Function (method 25 editable-light) has a return type of none, but the expression builder found a return statement.
(defmethod editable-method-25 editable-light ((obj editable-light) (arg0 editable-array))
  ((the-as (function editable-light editable-array none) (find-parent-method editable-light 25)) obj arg0)
  (when (nonzero? (-> obj id))
    (let ((s5-1 (clear *temp-string*)))
      (format s5-1 "delete from light where light_id=~D" (-> obj id))
      (let ((a2-1 (sql-query s5-1)))
        (when (!= (-> a2-1 error) 'modify)
          (format 0 "ERROR: sql: modify error ~A for ~A~%" a2-1 obj)
          (return 0)
          )
        )
      )
    )
  0
  (none)
  )

(defmethod editable-method-22 editable-light ((obj editable-light) (arg0 editable-array) (arg1 int) (arg2 int))
  (cond
    ((logtest? (-> obj flags) (editable-flag changed))
     (let ((s5-0 (clear *temp-string*)))
       (when (zero? (-> obj id))
         (format s5-0 "insert into light set level_name='~S'" (-> obj region level))
         (let ((s3-0 (sql-query s5-0)))
           (when (= (-> s3-0 error) 'modify)
             (let ((v1-7 (sql-query "select LAST_INSERT_ID()")))
               (when (= (-> v1-7 error) 'select)
                 (set! (-> obj id) (the-as uint (string->int (-> v1-7 data 0))))
                 (goto cfg-8)
                 )
               )
             )
           (format 0 "ERROR: sql: id insert error ~A for ~A~%" s3-0 obj)
           )
         (return #f)
         (label cfg-8)
         (let ((s3-1 (new 'debug 'string 32 (the-as string #f))))
           (format s3-1 "light-~d" (-> obj id))
           (set! (-> obj name) s3-1)
           )
         )
       (format (clear s5-0) "update light set level_name='~S', name='~S'" (-> obj region level) (-> obj name))
       (format
         s5-0
         ", pos_x=~f, pos_y=~f, pos_z=~f, r=~f"
         (* 0.00024414062 (- (-> obj trans x) (-> arg0 level-offset x)))
         (* 0.00024414062 (- (-> obj trans y) (-> arg0 level-offset y)))
         (* 0.00024414062 (- (-> obj trans z) (-> arg0 level-offset z)))
         (* 0.00024414062 (-> obj radius))
         )
       (if (= (-> obj direction w) 0.0)
           (format s5-0 ", dir_x=0.0, dir_y=0.0, dir_z=0.0")
           (format s5-0 ", dir_x=~f, dir_y=~f, dir_z=~f" (-> obj direction x) (-> obj direction y) (-> obj direction z))
           )
       (format
         s5-0
         ", color0_r=~f, color0_g=~f, color0_b=~f, color0_a=~f"
         (-> obj color x)
         (-> obj color y)
         (-> obj color z)
         (-> obj color w)
         )
       (format
         s5-0
         ", decay_start=~f, ambient_point_ratio=~f, brightness=~f"
         (-> obj decay-start)
         (-> obj ambient-point-ratio)
         (-> obj brightness)
         )
       (format s5-0 " where light_id=~D" (-> obj id))
       (let ((a0-21 (sql-query s5-0)))
         (when (= (-> a0-21 error) 'modify)
           (logclear! (-> obj flags) (editable-flag changed))
           #t
           )
         )
       )
     )
    (else
      #t
      )
    )
  )

(defmethod editable-method-10 editable-light ((obj editable-light))
  (if (!= (-> obj direction w) 0.0)
      (add-debug-vector
        #t
        (bucket-id debug-no-zbuf1)
        (edit-get-trans obj)
        (-> obj direction)
        (* -1.2 (-> obj radius))
        (new 'static 'rgba :r #xff :b #xff :a #x80)
        )
      )
  (when (-> *editable* 0 light-names)
    (let ((s5-1 add-debug-text-3d)
          (s4-1 #t)
          (s3-1 318)
          )
      (format (clear *temp-string*) "~S~%" (-> obj name))
      (s5-1 s4-1 (the-as bucket-id s3-1) *temp-string* (-> obj trans) (font-color white) (the-as vector2h #f))
      )
    )
  ((method-of-type editable-sphere editable-method-10) obj)
  (none)
  )

(defmethod edit-get-trans editable-face ((obj editable-face))
  "Returns the `trans` [[vector]] or [[*null-vector*]]"
  "The center of the obj."
  (cond
    ((>= (-> obj length) 3)
     (let ((s5-0 (new 'static 'vector)))
       (set! (-> s5-0 quad) (the-as uint128 0))
       (vector+! s5-0 s5-0 (edit-get-trans (-> obj vertex 0)))
       (vector+! s5-0 s5-0 (edit-get-trans (-> obj vertex 1)))
       (vector+! s5-0 s5-0 (edit-get-trans (-> obj vertex 2)))
       (vector-float*! s5-0 s5-0 0.33333334)
       )
     )
    ((>= (-> obj length) 2)
     (let ((s5-1 (new 'static 'vector)))
       (set! (-> s5-1 quad) (the-as uint128 0))
       (vector+! s5-1 s5-1 (edit-get-trans (-> obj vertex 0)))
       (vector+! s5-1 s5-1 (edit-get-trans (-> obj vertex 1)))
       (vector-float*! s5-1 s5-1 0.5)
       )
     )
    (else
      *null-vector*
      )
    )
  )

(defmethod editable-method-22 editable-face ((obj editable-face) (arg0 editable-array) (arg1 int) (arg2 int))
  (let ((s4-0 (clear *temp-string*)))
    (format s4-0 "insert into region_face set kind='face',region_id=~D" (-> obj region id))
    (if (logtest? (-> obj flags) (editable-flag orient))
        (format s4-0 ",flags='orient'")
        )
    (let ((a0-5 (sql-query s4-0)))
      (if (!= (-> a0-5 error) 'modify)
          (return #f)
          )
      )
    )
  (dotimes (s4-1 (-> obj length))
    (editable-method-22 (-> obj vertex s4-1) arg0 2 s4-1)
    )
  (logclear! (-> obj flags) (editable-flag changed))
  #t
  )

(defmethod editable-method-25 editable-face ((obj editable-face) (arg0 editable-array))
  (dotimes (s4-0 (-> obj length))
    (let ((s3-0 (-> obj vertex s4-0)))
      (set! (-> s3-0 owner) (delete! obj (-> s3-0 owner)))
      )
    )
  ((the-as (function editable-face editable-array none) (find-parent-method editable-face 25)) obj arg0)
  (none)
  )

(defmethod editable-method-26 editable-face ((obj editable-face) (arg0 editable) (arg1 editable-array))
  (-> obj length)
  (countdown (v1-1 (-> obj length))
    (when (= (-> obj vertex v1-1) arg0)
      (let ((a0-5 v1-1)
            (a1-2 (+ (-> obj length) -2))
            )
        (while (>= a1-2 a0-5)
          (set! (-> obj vertex a0-5) (-> obj vertex (+ a0-5 1)))
          (+! a0-5 1)
          )
        )
      (+! (-> obj length) -1)
      )
    )
  (if (< (-> obj length) 3)
      (editable-array-method-15 arg1 obj)
      )
  ((method-of-type editable editable-method-26) obj arg0 arg1)
  (none)
  )

;; WARN: Return type mismatch editable-face vs editable.
(defmethod editable-method-27 editable-face ((obj editable-face) (arg0 editable-array))
  (let ((gp-1
          (the-as
            editable-face
            ((the-as (function editable-face editable-array editable) (find-parent-method editable-face 27)) obj arg0)
            )
          )
        )
    (dotimes (s4-0 (-> gp-1 length))
      (set! (-> gp-1 vertex s4-0) (the-as editable-point (editable-method-27 (-> gp-1 vertex s4-0) arg0)))
      (set! (-> gp-1 vertex s4-0 owner) (cons gp-1 (-> gp-1 vertex s4-0 owner)))
      )
    (the-as editable gp-1)
    )
  )

(defmethod editable-method-24 editable-face ((obj editable-face))
  (logxor! (-> obj flags) (editable-flag orient))
  (editable-face-method-31 obj (-> obj normal))
  (logior! (-> obj flags) (editable-flag changed))
  (set! (-> obj region changed) #t)
  0
  (none)
  )

(defmethod editable-face-method-30 editable-face ((obj editable-face) (arg0 (inline-array vector)))
  (let ((v1-0 (-> obj length)))
    (cond
      ((or (zero? v1-0) (= v1-0 1))
       0
       )
      ((= v1-0 2)
       (let ((s4-0 (edit-get-trans (-> obj vertex 0)))
             (v1-3 (edit-get-trans (-> obj vertex 1)))
             )
         (set! (-> arg0 0 quad) (-> s4-0 quad))
         (set! (-> arg0 1 quad) (-> s4-0 quad))
         (set! (-> arg0 1 y) (-> v1-3 y))
         (set! (-> arg0 2 quad) (-> v1-3 quad))
         (set! (-> arg0 2 y) (-> s4-0 y))
         (set! (-> arg0 3 quad) (-> v1-3 quad))
         )
       4
       )
      (else
        (dotimes (s4-1 (-> obj length))
          (set! (-> arg0 s4-1 quad) (-> (edit-get-trans (-> obj vertex s4-1)) quad))
          )
        (-> obj length)
        )
      )
    )
  )

(defmethod editable-face-method-31 editable-face ((obj editable-face) (arg0 vector))
  (let ((s4-0 (new 'stack-no-clear 'matrix)))
    (dotimes (v1-0 6)
      (set! (-> s4-0 quad v1-0) (the-as uint128 0))
      )
    (if (>= (editable-face-method-30 obj (the-as (inline-array vector) s4-0)) 3)
        (normal-of-plane arg0 (the-as vector (-> s4-0 vector)) (-> s4-0 vector 1) (-> s4-0 vector 2))
        )
    )
  (if (logtest? (-> obj flags) (editable-flag orient))
      (vector-negate! arg0 arg0)
      )
  arg0
  )

(defmethod edit-get-distance editable-face ((obj editable-face) (arg0 vector))
  "Returns the distance from the camera to the [[editable]], or -1.0"
  (let ((gp-0 (new 'stack-no-clear 'vector))
        (s5-0 (editable-face-method-31 obj (new 'stack-no-clear 'vector)))
        (s2-0 (new 'stack-no-clear 'vector))
        )
    (set! (-> s2-0 quad) (-> (edit-get-trans (-> obj vertex 0)) quad))
    (transform-point-vector! gp-0 s2-0)
    (when (< 0.0 (-> gp-0 z))
      (reverse-transform-point! gp-0 s2-0 s5-0 arg0)
      (let ((s3-1 (the-as object (new 'stack-no-clear 'inline-array 'vector 6))))
        (dotimes (v1-5 6)
          (set! (-> (the-as (inline-array vector) s3-1) v1-5 quad) (the-as uint128 0))
          )
        (let ((s4-1 (editable-face-method-30 obj (the-as (inline-array vector) s3-1)))
              (s2-1 0)
              (s1-1 (vector-negate! (new 'stack-no-clear 'vector) s5-0))
              )
          (while (< (+ s2-1 2) s4-1)
            (if (or (point-in-triangle-cross
                      gp-0
                      s5-0
                      (-> (the-as (inline-array vector) s3-1) 0)
                      (-> (the-as (inline-array vector) s3-1) 1)
                      (-> (the-as (inline-array vector) s3-1) 2)
                      )
                    (point-in-triangle-cross
                      gp-0
                      s1-1
                      (-> (the-as (inline-array vector) s3-1) 0)
                      (-> (the-as (inline-array vector) s3-1) 1)
                      (-> (the-as (inline-array vector) s3-1) 2)
                      )
                    )
                (return (vector-vector-distance (camera-pos) gp-0))
                )
            (+! s2-1 1)
            (set! s3-1 (-> (the-as (inline-array vector) s3-1) 1))
            )
          )
        )
      )
    )
  -1.0
  )

;; ERROR: function was not converted to expressions. Cannot decompile.

(defmethod editable-method-10 editable-face ((obj editable-face))
  (local-vars (sv-112 int))
  (let ((gp-0 (new 'stack-no-clear 'inline-array 'vector 6)))
    (dotimes (v1-0 6)
      (set! (-> gp-0 v1-0 quad) (the-as uint128 0))
      )
    (set! sv-112 (editable-face-method-30 obj gp-0))
    (when (>= sv-112 3)
      (let ((s1-0 (editable-face-method-31 obj (new 'stack-no-clear 'vector))))
        (add-debug-vector
          #t
          (bucket-id debug-no-zbuf1)
          (edit-get-trans obj)
          s1-0
          (meters 2)
          (new 'static 'rgba :r #xff :g #xff :a #x80)
          )
        )
      (when (logtest? (-> obj flags) (editable-flag selected))
        (dotimes (s4-1 sv-112)
          (let ((s3-1 add-debug-text-3d)
                (s2-1 #t)
                (s1-1 318)
                )
            (format (clear *temp-string*) "~D" s4-1)
            (s3-1
              s2-1
              (the-as bucket-id s1-1)
              *temp-string*
              (-> gp-0 s4-1)
              (if (logtest? (-> obj flags) (editable-flag orient))
                  (font-color yellow)
                  (font-color white)
                  )
              (the-as vector2h #f)
              )
            )
          )
        )
      (add-debug-bound
        (bucket-id debug2)
        gp-0
        sv-112
        (if (logtest? (-> obj flags) (editable-flag orient))
            (new 'static 'rgba :r #xff :a #x80)
            (new 'static 'rgba :r #xff :g #xff :a #x80)
            )
        (if (not (logtest? (-> obj flags) (editable-flag orient)))
            (new 'static 'rgba :r #xff :a #x80)
            (new 'static 'rgba :r #xff :g #xff :a #x80)
            )
        (if (logtest? (-> obj flags) (editable-flag selected))
            1
            0
            )
        )
      )
    )
  0
  (none)
  )

(defmethod edit-get-trans editable-plane ((obj editable-plane))
  "Returns the `trans` [[vector]] or [[*null-vector*]]"
  (if (>= (-> obj length) 1)
      (edit-get-trans (-> obj vertex 0))
      *null-vector*
      )
  )

(defmethod editable-method-22 editable-plane ((obj editable-plane) (arg0 editable-array) (arg1 int) (arg2 int))
  (let ((s4-0 (clear *temp-string*)))
    (format
      s4-0
      "insert into region_face set kind='plane',region_id=~D,radius=~f"
      (-> obj region id)
      (-> obj radius)
      )
    (let ((a0-4 (sql-query s4-0)))
      (if (!= (-> a0-4 error) 'modify)
          (return #f)
          )
      )
    )
  (dotimes (s4-1 (-> obj length))
    (editable-method-22 (-> obj vertex s4-1) arg0 2 s4-1)
    )
  (logclear! (-> obj flags) (editable-flag changed))
  #t
  )

(defmethod editable-method-25 editable-plane ((obj editable-plane) (arg0 editable-array))
  (dotimes (s4-0 (-> obj length))
    (let ((s3-0 (-> obj vertex s4-0)))
      (set! (-> s3-0 owner) (delete! obj (-> s3-0 owner)))
      )
    )
  ((the-as (function editable-plane editable-array none) (find-parent-method editable-plane 25)) obj arg0)
  (none)
  )

(defmethod editable-method-26 editable-plane ((obj editable-plane) (arg0 editable) (arg1 editable-array))
  (editable-array-method-15 arg1 obj)
  ((method-of-type editable editable-method-26) obj arg0 arg1)
  (none)
  )

;; WARN: Return type mismatch editable-plane vs editable.
(defmethod editable-method-27 editable-plane ((obj editable-plane) (arg0 editable-array))
  (let ((gp-1
          (the-as
            editable-plane
            ((the-as (function editable-plane editable-array editable) (find-parent-method editable-plane 27)) obj arg0)
            )
          )
        )
    (dotimes (s4-0 (-> gp-1 length))
      (set! (-> gp-1 vertex s4-0) (the-as editable-point (editable-method-27 (-> gp-1 vertex s4-0) arg0)))
      (set! (-> gp-1 vertex s4-0 owner) (cons gp-1 (-> gp-1 vertex s4-0 owner)))
      )
    (the-as editable gp-1)
    )
  )

(defmethod editable-method-24 editable-plane ((obj editable-plane))
  (let ((s5-1
          (vector-! (new 'stack-no-clear 'vector) (edit-get-trans (-> obj vertex 1)) (edit-get-trans (-> obj vertex 0)))
          )
        )
    (edit-coord! (-> obj vertex 1) (vector-! s5-1 (edit-get-trans (-> obj vertex 0)) s5-1) (editable-flag x y z))
    )
  (set! (-> obj region changed) #t)
  (logior! (-> obj flags) (editable-flag changed))
  0
  (none)
  )

(defmethod editable-plane-method-30 editable-plane ((obj editable-plane) (arg0 matrix))
  (case (-> obj length)
    ((2)
     (let* ((v1-2 (editable-plane-method-31 obj (new 'stack-no-clear 'vector)))
            (s5-1 (vector-cross!
                    (new 'stack-no-clear 'vector)
                    v1-2
                    (if (< 0.7 (fabs (vector-dot v1-2 (new 'static 'vector :z 1.0 :w 1.0))))
                        (new 'static 'vector :x 1.0 :w 1.0)
                        (new 'static 'vector :z 1.0 :w 1.0)
                        )
                    )
                  )
            (s4-1 (vector-cross! (new 'stack-no-clear 'vector) s5-1 v1-2))
            (f30-0 (-> obj radius))
            )
       (let ((v1-4 (edit-get-trans (-> obj vertex 0))))
         (vector+float*! (the-as vector (-> arg0 vector)) v1-4 s5-1 f30-0)
         (vector+float*! (the-as vector (-> arg0 vector)) (the-as vector (-> arg0 vector)) s4-1 (- f30-0))
         (vector+float*! (-> arg0 vector 1) v1-4 s5-1 (- f30-0))
         (vector+float*! (-> arg0 vector 1) (-> arg0 vector 1) s4-1 (- f30-0))
         (vector+float*! (-> arg0 vector 2) v1-4 s5-1 f30-0)
         (vector+float*! (-> arg0 vector 2) (-> arg0 vector 2) s4-1 f30-0)
         (vector+float*! (-> arg0 trans) v1-4 s5-1 (- f30-0))
         )
       (vector+float*! (-> arg0 trans) (-> arg0 trans) s4-1 f30-0)
       )
     4
     )
    (else
      0
      )
    )
  )

(defmethod editable-plane-method-31 editable-plane ((obj editable-plane) (arg0 vector))
  (case (-> obj length)
    ((2)
     (let ((s3-0 (-> obj vertex 0))
           (a0-1 (-> obj vertex 1))
           )
       (vector-! arg0 (edit-get-trans a0-1) (edit-get-trans s3-0))
       )
     (vector-normalize! arg0 1.0)
     )
    )
  arg0
  )

(defmethod edit-get-distance editable-plane ((obj editable-plane) (arg0 vector))
  "Returns the distance from the camera to the [[editable]], or -1.0"
  (let ((gp-0 (new 'stack-no-clear 'vector))
        (s5-0 (editable-plane-method-31 obj (new 'stack-no-clear 'vector)))
        )
    (let ((s1-0 (new 'stack-no-clear 'vector)))
      (set! (-> s1-0 quad) (-> (edit-get-trans (-> obj vertex 0)) quad))
      (transform-point-vector! gp-0 s1-0)
      )
    (when (< 0.0 (-> gp-0 z))
      (reverse-transform-point! gp-0 (edit-get-trans (-> obj vertex 0)) s5-0 arg0)
      (let ((s3-1 (the-as object (new 'stack-no-clear 'inline-array 'vector 4))))
        (dotimes (v1-6 4)
          (set! (-> (the-as (inline-array vector) s3-1) v1-6 quad) (the-as uint128 0))
          )
        (let ((s4-1 (editable-plane-method-30 obj (the-as matrix s3-1)))
              (s2-2 0)
              (s1-2 (vector-negate! (new 'stack-no-clear 'vector) s5-0))
              )
          (while (< (+ s2-2 2) s4-1)
            (if (or (point-in-triangle-cross
                      gp-0
                      s5-0
                      (-> (the-as (inline-array vector) s3-1) 0)
                      (-> (the-as (inline-array vector) s3-1) 1)
                      (-> (the-as (inline-array vector) s3-1) 2)
                      )
                    (point-in-triangle-cross
                      gp-0
                      s1-2
                      (-> (the-as (inline-array vector) s3-1) 0)
                      (-> (the-as (inline-array vector) s3-1) 1)
                      (-> (the-as (inline-array vector) s3-1) 2)
                      )
                    )
                (return (vector-vector-distance (camera-pos) gp-0))
                )
            (+! s2-2 1)
            (set! s3-1 (-> (the-as (inline-array vector) s3-1) 1))
            )
          )
        )
      )
    )
  -1.0
  )

(defmethod editable-method-10 editable-plane ((obj editable-plane))
  (let ((gp-0 (new 'stack-no-clear 'matrix)))
    (dotimes (v1-0 4)
      (set! (-> gp-0 quad v1-0) (the-as uint128 0))
      )
    (let ((s4-0 (editable-plane-method-30 obj gp-0)))
      (when (>= s4-0 3)
        (add-debug-line
          #t
          (bucket-id debug-no-zbuf1)
          (edit-get-trans (-> obj vertex 0))
          (edit-get-trans (-> obj vertex 1))
          (new 'static 'rgba :r #xff :g #xff :a #x80)
          #f
          (the-as rgba -1)
          )
        (add-debug-bound
          (bucket-id debug2)
          (the-as (inline-array vector) gp-0)
          s4-0
          (if (logtest? (-> obj flags) (editable-flag orient))
              (new 'static 'rgba :r #xff :a #x80)
              (new 'static 'rgba :r #xff :g #xff :a #x80)
              )
          (if (not (logtest? (-> obj flags) (editable-flag orient)))
              (new 'static 'rgba :r #xff :a #x80)
              (new 'static 'rgba :r #xff :g #xff :a #x80)
              )
          (if (logtest? (-> obj flags) (editable-flag selected))
              1
              0
              )
          )
        )
      )
    )
  0
  (none)
  )

(defmethod editable-method-17 editable-plane ((obj editable-plane) (arg0 vector))
  (let ((v1-0 (-> obj region)))
    (if v1-0
        (set! (-> v1-0 changed) #t)
        )
    )
  (logior! (-> obj flags) (editable-flag changed))
  (if (= (-> arg0 y) 0.0)
      (+! (-> obj radius) (-> arg0 x))
      (set! (-> obj radius) (-> arg0 y))
      )
  (if (< (-> obj radius) 0.0)
      (set! (-> obj radius) 0.0)
      )
  (editable-method-28 obj (editable-filter load))
  0
  (none)
  )

;; WARN: Return type mismatch (array editable) vs editable-array.
(defmethod relocate editable-array ((obj editable-array) (arg0 int))
  (the-as editable-array (when (nonzero? (-> obj selection))
                           (let ((v0-0 (&+ (-> obj selection) arg0)))
                             (set! (-> obj selection) v0-0)
                             v0-0
                             )
                           )
          )
  )

(defmethod length editable-array ((obj editable-array))
  (-> obj length)
  )

;; WARN: Return type mismatch uint vs int.
(defmethod asize-of editable-array ((obj editable-array))
  (the-as int (+ (-> obj type size) (* (-> obj allocated-length) 4)))
  )

(defmethod editable-array-method-11 editable-array ((obj editable-array))
  (dotimes (v1-0 (-> obj length))
    (if (not (-> obj data v1-0))
        (return v1-0)
        )
    )
  (when (< (-> obj length) (-> obj allocated-length))
    (+! (-> obj length) 1)
    (return (+ (-> obj length) -1))
    )
  -1
  )

(defmethod editable-array-method-10 editable-array ((obj editable-array) (arg0 vector) (arg1 int))
  (when (or (!= (-> arg0 x) (-> *editable-work* last-x)) (!= (-> arg0 y) (-> *editable-work* last-y)))
    (set! (-> *editable-work* last-found) 0)
    (set! (-> *editable-work* last-x) (-> arg0 x))
    (set! (-> *editable-work* last-y) (-> arg0 y))
    )
  4095996000.0
  (let ((s5-0 (the-as editable #f)))
    (set! (-> *editable-work* num-found) 0)
    (let* ((s2-0 (-> obj length))
           (s1-0 0)
           (s0-0 (-> obj data s1-0))
           )
      (while (< s1-0 s2-0)
        (when (and s0-0 (or (and (logtest? (-> s0-0 region filter) (-> obj filter 0))
                                 (logtest? (-> s0-0 region filter) (-> obj filter 1))
                                 )
                            (logtest? (-> s0-0 flags) (editable-flag selected))
                            )
                   )
          (let ((f0-5 (edit-get-distance s0-0 arg0)))
            (when (>= f0-5 0.0)
              (set! (-> *editable-work* found (-> *editable-work* num-found)) s0-0)
              (set! (-> *editable-work* dists (-> *editable-work* num-found)) (the-as uint f0-5))
              (if (< (-> *editable-work* num-found) 255)
                  (+! (-> *editable-work* num-found) 1)
                  )
              )
            )
          )
        (+! s1-0 1)
        (set! s0-0 (-> obj data s1-0))
        )
      )
    (countdown (v1-43 (-> *editable-work* num-found))
      (when (> v1-43 0)
        (countdown (a0-12 v1-43)
          (when (< (the-as float (-> *editable-work* dists v1-43)) (the-as float (-> *editable-work* dists a0-12)))
            (let ((a1-10 (-> *editable-work* found v1-43))
                  (f0-7 (-> *editable-work* dists v1-43))
                  )
              (set! (-> *editable-work* found v1-43) (-> *editable-work* found a0-12))
              (set! (-> *editable-work* dists v1-43) (-> *editable-work* dists a0-12))
              (set! (-> *editable-work* found a0-12) a1-10)
              (set! (-> *editable-work* dists a0-12) f0-7)
              )
            )
          )
        )
      )
    (when (nonzero? (-> *editable-work* num-found))
      (when (>= (-> *editable-work* last-found) (-> *editable-work* num-found))
        (set! (-> *editable-work* last-found) 0)
        0
        )
      (set! s5-0 (cond
                   ((zero? arg1)
                    (set! s5-0 (-> *editable-work* found (-> *editable-work* last-found)))
                    (+! (-> *editable-work* last-found) 1)
                    s5-0
                    )
                   (else
                     (-> *editable-work* found 0)
                     )
                   )
            )
      )
    s5-0
    )
  )

;; WARN: Return type mismatch (array editable) vs none.
(defmethod editable-array-method-14 editable-array ((obj editable-array) (arg0 (function symbol)) (arg1 symbol))
  (let ((gp-0 (-> obj selection)))
    (set! (-> gp-0 length) 0)
    (let* ((s2-0 (-> obj length))
           (s1-0 0)
           (s0-0 (-> obj data s1-0))
           )
      (while (< s1-0 s2-0)
        (when (and s0-0 (logtest? (-> s0-0 flags) (editable-flag selected)))
          (when (arg0)
            (set! (-> gp-0 (-> gp-0 length)) s0-0)
            (+! (-> gp-0 length) 1)
            )
          )
        (+! s1-0 1)
        (set! s0-0 (-> obj data s1-0))
        )
      )
    )
  (none)
  )

(defmethod editable-array-method-15 editable-array ((obj editable-array) (arg0 editable))
  (let ((gp-0 (-> arg0 region)))
    (when gp-0
      (editable-method-25 arg0 obj)
      (let* ((v1-3 (-> obj length))
             (a0-2 0)
             (a1-4 (-> obj data a0-2))
             )
        (while (< a0-2 v1-3)
          (if (and a1-4 (= arg0 a1-4))
              (set! (-> obj data a0-2) #f)
              )
          (+! a0-2 1)
          (set! a1-4 (-> obj data a0-2))
          )
        )
      (let* ((v1-6 (-> obj length))
             (a0-3 0)
             (a1-14 (-> obj data a0-3))
             )
        (while (< a0-3 v1-6)
          (if (and a1-14 (= (-> a1-14 region) gp-0) (!= a1-14 arg0))
              (goto cfg-21)
              )
          (+! a0-3 1)
          (set! a1-14 (-> obj data a0-3))
          )
        )
      (editable-region-method-10 gp-0 0)
      )
    )
  (label cfg-21)
  0
  (none)
  )

;; WARN: Return type mismatch symbol vs none.
;; WARN: Function (method 12 editable-array) has a return type of none, but the expression builder found a return statement.
(defmethod editable-array-method-12 editable-array ((obj editable-array) (arg0 editable-array))
  (local-vars
    (sv-16 sql-result)
    (sv-20 sql-result)
    (sv-24 sql-result)
    (sv-28 sql-result)
    (sv-32 sql-result)
    (sv-36 editable-region)
    (sv-40 float)
    (sv-44 float)
    (sv-64 int)
    (sv-72 int)
    (sv-80 editable-plane)
    (sv-84 string)
    (sv-112 vector)
    (sv-120 int)
    (sv-128 editable-point)
    (sv-136 int)
    (sv-144 int)
    (sv-152 editable-face)
    (sv-156 string)
    (sv-176 vector)
    (sv-180 editable)
    (sv-184 int)
    (sv-192 int)
    (sv-200 editable-point)
    (sv-208 int)
    (sv-216 sql-result)
    (sv-240 sql-result)
    )
  (format #t "sql: load from level ~A~%" arg0)
  (set! (-> *editable-sample-region* level) (the-as string arg0))
  (set! (-> *editable-light-region* level) (the-as string arg0))
  (set! (-> *editable-entity-region* level) (the-as string arg0))
  (vector-reset! (-> obj level-offset))
  (set! (-> obj level-info-id) (the-as uint -1))
  (set! (-> obj level) (the-as uint arg0))
  (let ((s4-0 sql-query))
    (format
      (clear *temp-string*)
      "select translate_x,translate_y,translate_z,level_info_id from level_info where name='~S'"
      arg0
      )
    (set! sv-16 (s4-0 *temp-string*))
    )
  (when (and (= (-> sv-16 error) 'select) (>= (-> sv-16 len) 3))
    (set-vector!
      (-> obj level-offset)
      (* 4096.0 (string->float (-> sv-16 data 0)))
      (* 4096.0 (string->float (-> sv-16 data 1)))
      (* 4096.0 (string->float (-> sv-16 data 2)))
      1.0
      )
    (set! (-> obj level-info-id) (the-as uint (string->int (-> sv-16 data 3))))
    )
  (let ((s4-2 sql-query))
    (format
      (clear *temp-string*)
      "select region_id,level_name,tree,on_enter,on_exit,on_inside from region where level_name='~S'"
      arg0
      )
    (set! sv-20 (s4-2 *temp-string*))
    )
  (if (!= (-> sv-20 error) 'select)
      (return #f)
      )
  (format #t "sql: read region ~D~%" (/ (-> sv-20 len) 6))
  (let ((s4-3 sql-query))
    (format
      (clear *temp-string*)
      "select region_face.region_id,region_face_id,kind,flags,radius from region,region_face where level_name='~S' and region.region_id=region_face.region_id"
      arg0
      )
    (set! sv-24 (s4-3 *temp-string*))
    )
  (if (!= (-> sv-24 error) 'select)
      (return #f)
      )
  (format #t "sql: read face ~D~%" (/ (-> sv-24 len) 5))
  (let ((s4-4 sql-query))
    (format
      (clear *temp-string*)
      "select region_face.region_face_id,idx,x,y,z from region,region_face,region_point where level_name='~S' and region.region_id=region_face.region_id and region_face.region_face_id=region_point.region_face_id"
      arg0
      )
    (set! sv-28 (s4-4 *temp-string*))
    )
  (if (!= (-> sv-28 error) 'select)
      (return #f)
      )
  (format #t "sql: read point ~D~%" (/ (-> sv-28 len) 5))
  (let ((s4-5 sql-query))
    (format
      (clear *temp-string*)
      "select region_sphere.region_id,x,y,z,r from region,region_sphere where level_name='~S' and region.region_id=region_sphere.region_id"
      arg0
      )
    (set! sv-32 (s4-5 *temp-string*))
    )
  (if (!= (-> sv-32 error) 'select)
      (return #f)
      )
  (format #t "sql: read sphere ~D~%" (/ (-> sv-32 len) 5))
  (let ((s5-1 0))
    (while (< s5-1 (-> sv-20 len))
      (set! sv-36 (new 'debug 'editable-region))
      (set! sv-40 (the-as float 4095996000.0))
      (set! sv-44 (the-as float -4095996000.0))
      (set! (-> sv-36 id) (the-as uint (string->int (-> sv-20 data s5-1))))
      (set! (-> sv-36 level) (the-as string (string->symbol (-> sv-20 data (+ s5-1 1)))))
      (set! (-> sv-36 tree) (the-as string (string->symbol (-> sv-20 data (+ s5-1 2)))))
      (set! (-> sv-36 on-enter) (if (string= (-> sv-20 data (+ s5-1 3)) "")
                                    (the-as string #f)
                                    (-> sv-20 data (+ s5-1 3))
                                    )
            )
      (set! (-> sv-36 on-exit) (if (string= (-> sv-20 data (+ s5-1 4)) "")
                                   (the-as string #f)
                                   (-> sv-20 data (+ s5-1 4))
                                   )
            )
      (set! (-> sv-36 on-inside) (if (string= (-> sv-20 data (+ s5-1 5)) "")
                                     (the-as string #f)
                                     (-> sv-20 data (+ s5-1 5))
                                     )
            )
      (let* ((v1-75 (-> obj length))
             (a0-54 0)
             (a1-17 (-> obj data a0-54))
             )
        (while (< a0-54 v1-75)
          (if (and a1-17 (-> a1-17 region) (= (-> a1-17 region id) (-> sv-36 id)))
              (set! (-> obj data a0-54) #f)
              )
          (+! a0-54 1)
          (set! a1-17 (-> obj data a0-54))
          )
        )
      (let ((s4-6 0))
        (while (< s4-6 (-> sv-32 len))
          (when (= (-> sv-36 id) (string->int (-> sv-32 data s4-6)))
            (let ((s3-5 (editable-array-method-11 obj)))
              (when (>= s3-5 0)
                (let ((s2-1 (new 'stack-no-clear 'vector)))
                  (set! (-> s2-1 x) (string->float (-> sv-32 data (+ s4-6 1))))
                  (set! (-> s2-1 y) (string->float (-> sv-32 data (+ s4-6 2))))
                  (set! (-> s2-1 z) (string->float (-> sv-32 data (+ s4-6 3))))
                  (set! (-> s2-1 w) 1.0)
                  (vector+! s2-1 s2-1 (-> obj level-offset))
                  (let ((s2-2 (new 'debug 'editable-sphere s2-1 2048.0 sv-36)))
                    (set! (-> s2-2 radius) (string->float (-> sv-32 data (+ s4-6 4))))
                    (set! (-> obj data s3-5) s2-2)
                    )
                  )
                )
              )
            )
          (+! s4-6 5)
          )
        )
      (set! sv-64 0)
      (while (< sv-64 (-> sv-24 len))
        (when (= (-> sv-36 id) (string->int (-> sv-24 data sv-64)))
          (cond
            ((string= (-> sv-24 data (+ sv-64 2)) "plane")
             (set! sv-72 (editable-array-method-11 obj))
             (set! sv-80 (new 'debug 'editable-plane sv-36))
             (set! sv-84 (-> sv-24 data (+ sv-64 1)))
             (when (>= sv-72 0)
               (set! (-> obj data sv-72) sv-80)
               (set! (-> sv-80 radius) (string->float (-> sv-24 data (+ sv-64 4))))
               (countdown (s4-7 (/ (-> sv-28 len) 5))
                 (when (string= (-> (the-as sql-result (+ (* 20 s4-7) (the-as int sv-28))) data 0) sv-84)
                   (let ((s3-6 (new 'stack-no-clear 'vector)))
                     (set! (-> s3-6 x) (string->float (-> sv-28 data (+ (* 5 s4-7) 2))))
                     (set! (-> s3-6 y) (string->float (-> sv-28 data (+ (* 5 s4-7) 3))))
                     (set! (-> s3-6 z) (string->float (-> sv-28 data (+ (* 5 s4-7) 4))))
                     (set! (-> s3-6 w) 1.0)
                     (set! sv-112 s3-6)
                     )
                   (vector+! sv-112 sv-112 (-> obj level-offset))
                   (set! sv-120 (editable-array-method-11 obj))
                   (when (>= sv-120 0)
                     (set! sv-128 (new 'debug 'editable-point sv-112 sv-36))
                     (set! sv-136 (string->int (-> sv-28 data (+ (* 5 s4-7) 1))))
                     (set! (-> obj data sv-120) sv-128)
                     (set! (-> sv-80 vertex sv-136) sv-128)
                     (set! (-> sv-80 length) (max (-> sv-80 length) (+ sv-136 1)))
                     (set! (-> sv-128 owner) (cons sv-80 (-> sv-128 owner)))
                     )
                   )
                 )
               (editable-method-28 sv-80 (editable-filter load))
               (editable-method-29 sv-80 (editable-filter load))
               )
             )
            ((string= (-> sv-24 data (+ sv-64 2)) "face")
             (set! sv-144 (editable-array-method-11 obj))
             (set! sv-152 (new 'debug 'editable-face sv-36))
             (set! sv-156 (-> sv-24 data (+ sv-64 1)))
             (when (>= sv-144 0)
               (set! (-> obj data sv-144) sv-152)
               (if (string= (-> sv-24 data (+ sv-64 3)) "orient")
                   (logior! (-> sv-152 flags) (editable-flag orient))
                   )
               (let ((s4-8 (/ (-> sv-28 len) 5)))
                 (while (begin (label cfg-78) (nonzero? s4-8))
                   (+! s4-8 -1)
                   (when (string= (-> (the-as sql-result (+ (* 20 s4-8) (the-as int sv-28))) data 0) sv-156)
                     (let ((s3-7 (new 'stack-no-clear 'vector)))
                       (set! (-> s3-7 x) (string->float (-> sv-28 data (+ (* 5 s4-8) 2))))
                       (set! (-> s3-7 y) (string->float (-> sv-28 data (+ (* 5 s4-8) 3))))
                       (set! (-> s3-7 z) (string->float (-> sv-28 data (+ (* 5 s4-8) 4))))
                       (set! (-> s3-7 w) 1.0)
                       (set! sv-176 s3-7)
                       )
                     (vector+! sv-176 sv-176 (-> obj level-offset))
                     (let* ((s3-8 (-> obj length))
                            (s2-3 0)
                            (s1-0 (-> obj data s2-3))
                            )
                       (while (< s2-3 s3-8)
                         (when (and s1-0 (= (-> s1-0 region) sv-36) (type? s1-0 editable-point))
                           (when (vector= (-> (the-as editable-point s1-0) trans) sv-176)
                             (set! sv-180 s1-0)
                             (set! sv-184 (string->int (-> sv-28 data (+ (* 5 s4-8) 1))))
                             (set! (-> sv-152 vertex sv-184) (the-as editable-point sv-180))
                             (set! (-> sv-152 length) (max (-> sv-152 length) (+ sv-184 1)))
                             (set! (-> sv-180 owner) (cons sv-152 (-> sv-180 owner)))
                             (goto cfg-78)
                             )
                           )
                         (+! s2-3 1)
                         (set! s1-0 (-> obj data s2-3))
                         )
                       )
                     (if (< (-> sv-176 y) sv-40)
                         (set! sv-40 (-> sv-176 y))
                         )
                     (if (< sv-44 (-> sv-176 y))
                         (set! sv-44 (the-as float (-> sv-176 y)))
                         )
                     (set! sv-192 (editable-array-method-11 obj))
                     (when (>= sv-192 0)
                       (set! sv-200 (new 'debug 'editable-point sv-176 sv-36))
                       (set! sv-208 (string->int (-> sv-28 data (+ (* 5 s4-8) 1))))
                       (set! (-> obj data sv-192) sv-200)
                       (set! (-> sv-152 vertex sv-208) sv-200)
                       (set! (-> sv-152 length) (max (-> sv-152 length) (+ sv-208 1)))
                       (set! (-> sv-200 owner) (cons sv-152 (-> sv-200 owner)))
                       )
                     )
                   )
                 )
               (editable-method-28 sv-152 (editable-filter load))
               (editable-method-29 sv-152 (editable-filter load))
               )
             )
            )
          )
        (set! sv-64 (+ sv-64 5))
        )
      (let* ((v1-293 (-> obj length))
             (a0-158 0)
             (a1-57 (-> obj data a0-158))
             )
        (while (< a0-158 v1-293)
          (when (and a1-57 (= (-> a1-57 region) sv-36) (= (-> a1-57 type) editable-point))
            (let ((a2-29 (-> (the-as editable-point a1-57) trans)))
              (if (= (-> a2-29 y) sv-40)
                  (logior! (-> a1-57 flags) (editable-flag bot-set))
                  )
              (if (= (-> a2-29 y) sv-44)
                  (logior! (-> a1-57 flags) (editable-flag top-set))
                  )
              )
            )
          (+! a0-158 1)
          (set! a1-57 (-> obj data a0-158))
          )
        )
      (set! (-> sv-36 changed) #f)
      (+! s5-1 6)
      )
    )
  (let ((s5-2 sql-query))
    (format
      (clear *temp-string*)
      "select x,y,z from sample_point where level_info_id='~D' and source='manual'"
      (-> obj level-info-id)
      )
    (set! sv-216 (s5-2 *temp-string*))
    )
  (if (!= (-> sv-216 error) 'select)
      (return #f)
      )
  (let ((s5-3 0))
    (while (< s5-3 (-> sv-216 len))
      (let ((s4-10 (editable-array-method-11 obj)))
        (when (>= s4-10 0)
          (let ((s3-9 (new 'stack-no-clear 'vector)))
            (set! (-> s3-9 x) (* 4096.0 (string->float (-> sv-216 data s5-3))))
            (set! (-> s3-9 y) (* 4096.0 (string->float (-> sv-216 data (+ s5-3 1)))))
            (set! (-> s3-9 z) (* 4096.0 (string->float (-> sv-216 data (+ s5-3 2)))))
            (set! (-> s3-9 w) 1.0)
            (vector+! s3-9 s3-9 (-> obj level-offset))
            (set! (-> obj data s4-10) (new 'debug 'editable-sample s3-9 *editable-sample-region*))
            )
          )
        )
      (+! s5-3 3)
      )
    )
  (set! (-> *editable-sample-region* changed) #f)
  (let ((s5-4 sql-query))
    (format
      (clear *temp-string*)
      "select light_id,name,pos_x,pos_y,pos_z,r,dir_x,dir_y,dir_z,color0_r,color0_g,color0_b,color0_a,decay_start,ambient_point_ratio,brightness from light where level_name='~S'"
      (-> obj level)
      )
    (set! sv-240 (s5-4 *temp-string*))
    )
  (format #t "sql: read light ~D~%" (/ (-> sv-240 len) 16))
  (if (!= (-> sv-240 error) 'select)
      (return #f)
      )
  (let ((s5-5 0))
    (while (< s5-5 (-> sv-240 len))
      (let ((s3-10 (editable-array-method-11 obj)))
        (when (>= s3-10 0)
          (let ((s4-12 (new 'stack-no-clear 'vector)))
            (set! (-> s4-12 x) (* 4096.0 (string->float (-> sv-240 data (+ s5-5 2)))))
            (set! (-> s4-12 y) (* 4096.0 (string->float (-> sv-240 data (+ s5-5 3)))))
            (set! (-> s4-12 z) (* 4096.0 (string->float (-> sv-240 data (+ s5-5 4)))))
            (set! (-> s4-12 w) 1.0)
            (vector+! s4-12 s4-12 (-> obj level-offset))
            (let ((s4-13 (new 'debug 'editable-light s4-12 2048.0 *editable-light-region*)))
              (set! (-> obj data s3-10) s4-13)
              (set! (-> s4-13 id) (the-as uint (string->int (-> sv-240 data s5-5))))
              (set! (-> s4-13 name) (-> sv-240 data (+ s5-5 1)))
              (set! (-> s4-13 radius) (* 4096.0 (string->float (-> sv-240 data (+ s5-5 5)))))
              (set-vector!
                (-> s4-13 direction)
                (string->float (-> sv-240 data (+ s5-5 6)))
                (string->float (-> sv-240 data (+ s5-5 7)))
                (string->float (-> sv-240 data (+ s5-5 8)))
                1.0
                )
              (if (and (= (-> s4-13 direction x) 0.0) (= (-> s4-13 direction y) 0.0) (= (-> s4-13 direction z) 0.0))
                  (set! (-> s4-13 direction w) 0.0)
                  )
              (set-vector!
                (-> s4-13 color)
                (string->float (-> sv-240 data (+ s5-5 9)))
                (string->float (-> sv-240 data (+ s5-5 10)))
                (string->float (-> sv-240 data (+ s5-5 11)))
                (string->float (-> sv-240 data (+ s5-5 12)))
                )
              (set! (-> s4-13 decay-start) (string->float (-> sv-240 data (+ s5-5 13))))
              (set! (-> s4-13 ambient-point-ratio) (string->float (-> sv-240 data (+ s5-5 14))))
              (set! (-> s4-13 brightness) (string->float (-> sv-240 data (+ s5-5 15))))
              )
            )
          )
        )
      (+! s5-5 16)
      )
    )
  (set! (-> *editable-light-region* changed) #f)
  (editable-array-method-9 obj (editable-command refresh-filter) (the-as editable-array #f))
  #t
  (none)
  )

(defmethod editable-array-method-13 editable-array ((obj editable-array) (arg0 uint) (arg1 basic) (arg2 string))
  (set! (-> obj target) #f)
  (set! (-> obj target-mode) arg0)
  (set! (-> obj target-command) arg1)
  (set! (-> obj target-message) arg2)
  0
  (none)
  )

(defmethod editable-array-method-16 editable-array ((obj editable-array))
  (cond
    ((-> obj edit-plane)
     (editable-plane-method-31 (-> obj edit-plane) (-> obj edit-plane-normal))
     (set! (-> obj edit-plane-center quad) (-> (edit-get-trans (-> obj edit-plane vertex 0)) quad))
     )
    (else
      (vector-negate! (-> obj edit-plane-normal) (-> *math-camera* inv-camera-rot vector 2))
      (let ((v1-9 (vector-float*! (-> obj edit-plane-center) (-> *math-camera* inv-camera-rot vector 2) 24576.0)))
        (vector+! v1-9 v1-9 (-> *math-camera* trans))
        )
      )
    )
  0
  (none)
  )

(defmethod editable-array-method-17 editable-array ((obj editable-array) (arg0 vector) (arg1 vector))
  (cond
    ((and (cpad-hold? 0 up) *target*)
     (set! (-> arg0 quad) (-> (get-trans *target* 0) quad))
     )
    ((and (cpad-hold? 0 down) *camera*)
     (set! (-> arg0 quad) (-> (math-camera-pos) quad))
     )
    (else
      (editable-array-method-16 obj)
      (reverse-transform-point! arg0 (-> obj edit-plane-center) (-> obj edit-plane-normal) arg1)
      )
    )
  arg0
  )

(when (zero? *editable-sample-region*)
  (let ((v1-4 (new 'debug 'editable-region)))
    (set! (-> v1-4 locked) #t)
    (set! (-> v1-4 changed) #f)
    (set! (-> v1-4 tree) (the-as string 'sample))
    (set! (-> v1-4 filter) (editable-filter sample))
    (set! *editable-sample-region* v1-4)
    )
  (let ((v1-6 (new 'debug 'editable-region)))
    (set! (-> v1-6 locked) #t)
    (set! (-> v1-6 changed) #f)
    (set! (-> v1-6 tree) (the-as string 'light))
    (set! (-> v1-6 filter) (editable-filter light))
    (set! *editable-light-region* v1-6)
    )
  (let ((v0-84 (new 'debug 'editable-region)))
    (set! (-> v0-84 locked) #t)
    (set! (-> v0-84 changed) #f)
    (set! (-> v0-84 tree) (the-as string 'entity))
    (set! (-> v0-84 filter) (editable-filter entity))
    (set! *editable-entity-region* v0-84)
    )
  )