                            ;  -> falling at apex
                            (make-edge
                              (kw :falling dir vx jump-speed)
-                             [:geq :jump-timer 0.4]
+                             [:geq :jump-timer jump-time]
                              #{:required}
                              clear-timers)
                            ; -> falling because of button release

        wall-others #{}
        fall-speed 64
        jump-speed 64
        move-speed 32]
    (make-ha id
             {:x     x :y y
              :w     16 :h 16

                           ; -> accelerate right or left
                           (when (< vx move-speed)
                             (make-edge
                               (kw :jumping dir (.min js/Math move-speed (+ vx air-move-acc)))
                               [:geq :acc-timer acc-interval]
                               #{[:on #{dir}]}
                               clear-acc-timer))
                           (if (< (- vx air-move-acc) 0)
                             (make-edge
                               (kw :jumping opp (.abs js/Math (- vx air-move-acc)))
                               [:geq :acc-timer acc-interval]
                               #{[:on #{opp}]}
                               clear-acc-timer)
                             (make-edge
                               (kw :jumping dir (.min js/Math move-speed (- vx air-move-acc)))
                               [:geq :acc-timer acc-interval]
                               #{[:on #{opp}]})))
                         ])
                      ]
