             (update-node-positions
                 (update-node-velocities
                     (:nodes state)
-                    (calculate-all-node-forces (:nodes state) (:springs state))
+                    (calculate-all-node-forces state)
                     tick-step)
                 tick-step)))
 

            :rest-length 224.0
            :strength 2000
        }
        {
            :node-a :u
            :node-b :v
            :rest-length 141.0
            :strength 2000
        }
        {
            :node-a :t
            :node-b :v
            :rest-length 100.0
            :strength 2000
        }
    ] })

(defn print-to-log [v]
    (.log js/console v))

                (vec* [(- xv) (+ (Math/max 0 (- yv)) (- y))] ground-strength)
                [0 0])) (vals nodes))))

(defn calculate-all-node-forces [{:keys [nodes springs hinges]}]
    (merge-with vec+
        (calculate-spring-forces nodes springs)
        (calculate-hinge-forces nodes hinges)
        (calculate-gravity-forces nodes)
        (calculate-ground-forces nodes)))

