                            (button :id :newPanel
                                    :text "New Panel"
                                    :listen [:action new-panel])
+                           (button :id :monoChord
+                                   :text "Monochord"
+                                   :listen [:action new-mono])
                            (button :id :saveButt
                                    :text "Save"
                                    :listen [:action save-pattern])

;;   (o/connect-external-server 57110)
;; )
(if (not (o/server-connected?))
  (let [portstr (input "What port should we try?"
                       :value 57110)
        port (read-string portstr)]
    (o/connect-external-server port)

;; IMPORTANT: requires the mda-piano ugen to be available on your system

;; modified from repo to take freq rather than note
(o/definst piano [freq 220
                  gate 1
                  vel 100
                  decay 0.8
                  release 0.8
                  hard 0.8
                  velhard 0.8
                  muffle 0.8
                  velmuff 0.8
                  velcurve 0.8
                  stereo 0.2
                  tune 0.5
                  random 0.1
                  stretch 0
                  sustain 0]
  (let [snd (o/mda-piano {:freq freq
                          :gate gate
                          :vel vel
                          :decay decay
                          :release release
                          :hard hard
                          :velhard velhard
                          :muffle muffle
                          :velmuff velmuff
                          :velcurve velcurve
                          :stereo stereo
                          :tune tune
                          :random random
                          :stretch stretch
                          :sustain sustain})]
                                        ;(o/detect-silence snd 0.05 :action o/FREE)
    snd))

;; modified from repo to take freq rather than note
(o/definst mooger
