            :viewBox (str "0 0 100% " h)
    :style {:outline "2px solid black"
            :background-color "#eee"}}
+     (button "Hold" [295 34])
+     (button ":saw" [405 34])
+     (button ":square" [460 34])
+     (button ":sine" [515 34])
+     (button ":triangle" [570 34])
+
+
      (map #(accordion-group shape %) accord/stradella-bass) ])
 
 ;; -------------------------

            :on-mouse-up #(stop-chord! chord)
            :r "27" :stroke "black" :stroke-width "1" :fill "red"}] )

(defn accordion-keyboard [shape note]
  (let [[x y] (:position note)
        title (:text note)

   [:div
    [svg-piano-keyboard2 150 2000]

    [svg-accordion [370 2000] "hexagon"]
    ;;[svg-accordion [320 1250] "circle"]
    [svg-piano-keyboard 150 2000]
    ;;[svg-inkscape-hexagons 250 500]
    ]])
