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

             cb))
         (range rhy-hours))))

(def polychord-panel-size [240 :by 240])
  
;; make chord keyboard for xyz-panel 
(defn make-ratio-circle [id hours]
  (let [[w & {h :by}] polychord-panel-size
        angle (/ (* 2 (Math/PI)) hours)
        radius (* w 0.3)
        [xc yc] [(/ w 2) (/ h 2)]
        [wb hb] [70 20]]
    (map (fn [n]

                                     :listen [:action melody-chooser])
                           ])))

;(config! control-frame :on-close :exit)

(defn -main [& args]
  (-> control-frame pack! show!)
  )
