                          (call (.-drag force)))]
       (.. node-enter
           (append "svg:circle")
-          (attr {:class "node-stroke" :r 4})
+          (attr {:class "node-stroke" :r circle-size})
           (style {:fill (fn [d] (color (dec (:group d))))
                   :stroke "#fff"}))
       (.. node-enter (append "title") (text (fn [d] (:value d)))))

                                             :id "graph-svg"
                                             :height height})))
    (swap! state assoc-in [:force] force)
    (swap! state assoc-in [:color] ["purple" "steelblue" "orange" "green" "red" ])
    (update-graph state)))


(strokes/bootstrap)

(def graph-state (atom {:svg nil
                        :width 2048
                        :height 2048
                        :frame "#graph-container"
                        :color nil
                        :force nil
