 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Melody                                       ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (def melody 
   (let [call
           [(repeats [[2 1/4] [1 1/2] [14 1/4] [1 3/2]])

    (=> melody (shift [1/2 0]) play-now#)
    (=> melody (skew pitch -) (shift [7/2 -3]) play-now#)))

;(canone-alla-quarta#)



       (concat (triples (runs [[0 -3] [-5 -3]])) (run [12 0])))))

;melody

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Canone alla quarta - Johann Sebastian Bach   ;;
