   (let [[w h] (get-panel-size)
         rhy-hours (get (get @melody-map id) :beats)
         rhy-angle (/ (* 2 (Math/PI)) rhy-hours)
-        radius (* w 0.3)
-        [xc yc] [(/ w 2) (* h 0.6)]
+        radius (* w 0.4)
+        [xc yc] [(/ w 2) (* h 0.75)]
         [wb hb] [50 20]]
     (map (fn [n]
            (let [angle (+ (/ Math/PI -2) (* n rhy-angle))

                                                   (config! src :text "Off")
                                                   (config! src :text "On"))))])
        tonic-bar (horizontal-panel :items [tonic-label tonic-button])
        circle-sizer (combobox :model (range 1 10)
                               :listen [:action
                                        (fn [e]
                                          (let [butt (.getSource e)

     (map midi->str newnotes))))

(defn transform-dict [dict trans]
  (let [sorted (sort-by key compare-keywords dict)
        kws (keys sorted)
        oldvals (vals sorted)
        newvals (trans oldvals)
        pairs (map #(vector %1 %2) kws newvals)]
    (into {} pairs)))
    
(defn transform-necklace [trans id typekw]
  (let [panel (id->panel id)
