 
 
 
-; Little-endian
-(def little-endian-pentatonic
-  "In Central African music, we play scales from small sounds to big ones."
-  (comp pentatonic -))
-
-(comment
-  (map (comp A little-endian-pentatonic) (range 0 6))
+
+; 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 little-endian-pentatonic))
-       live/play))
-
-
-
-
+       (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))
 
 
 

; 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
