                            (or (= "k" (get m 1)) (= "-k" (get m 1)))
                            {:message-type ShortMessage/NOTE_ON
                             :tie (cond
-                                   (= "-k" (get m 1)) :end
-                                   (= "-" (get m 5)) :begin
+                                   (= "_k" (get m 1)) :end
+                                   (= "_" (get m 5)) :begin
                                    :else nil)
                             param value
                             :param param}


(ns semitone.core
  (:require [clojure.pprint :refer [pprint]]
            [clojure.lang.Numbers :refer [toRatio]]
            [clojure.stacktrace :refer [print-stack-trace]]
            [incanter.interpolation :refer [interpolate-parametric]])
  (:import [javax.sound.midi

                               0)]
            (merge state {:message-type (if key-pressure ShortMessage/POLY_PRESSURE ShortMessage/NOTE_ON)
                          :tie (cond
                                 (= "_" (get m 1)) :end
                                 (= "_" (get m 5)) :begin
                                 :else nil)
                          :key (+ key accidental)
                          :note-octave note-octave
