 ; Scales
 (def major (scale [2 2 1 2 2 2 1]))
 (def minor (scale [2 1 2 2 1 2 2]))
-(def pentatonic (scale [2 3 2 2 3]))
 
 (comment
   (->> (phrase (repeat 1/4) (range 0 8))

       (map rand-variations)
       (introduce-successively 4)
       (map pan)
       (where :pitch (comp midi->hz high A little-endian-pentatonic))
       (tempo (bpm 120))))

(comment





; Little-endian pentatonic
(def pentatonic (scale [2 3 2 2 3]))
(def little-endian -)

(comment
  (map (comp A pentatonic) (range 0 6))
  (map (comp A little-endian pentatonic) (range 0 6))

  (->> (phrase (repeat 1/4) (range 0 6))
       (where :pitch (comp midi->hz A pentatonic))
       live/play)

  (->> (phrase (repeat 1/4) (range 0 6))
       (where :pitch (comp midi->hz A little-endian pentatonic))
       live/play))



