src/example_song.clj


1
2
3
4
5
6
7
8
9
10
11

(ns example-song
  (:require [missionary.core :as m]
            [notation :refer [note poly group]]))

(defn melody [clock]
  (m/signal
   (group clock 0 2
          (poly (note clock 0 4 1)
                (note clock 0 5 3)
                (note clock 0 3 5)
                (note clock 2 1 7)))))