   (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))

     (map midi->str newnotes))))

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

         root (get-in @melody-map [id :root])
         panel (select root [:#kb])
         circhash (atom {})]
     ;(println idlist)
     (doseq [k idlist]
       (let [w (select panel [k])]
         (swap! circhash assoc k (value w))
