musique/examples/rhythm-of-primes.mq

--------------------------------------------------------------
Inspired by Marc Evanstein video "The Rythm of The Primes"
Link: https://www.youtube.com/watch?v=8x374slJGuo

This program will iterate over natural numbers, playing chords
based on which prime divides given number. This results in
following execution:

step: 2 3 4 5 6 7 8 9 10
      1   1   1   1    1
        2     2     2
	          3          3

where each index corresponds to specific note from scale.
Assuming scale [c,d,e] example above would be

step: 2 3 4 5 6 7 8 9 10
      c   c   c   c    c
        d     d     d
	          e          e

which would resolve into:

play c d c e (c & d) c d (c & e)

--------------------------------------------------------------

Length := 40,

cmajor := (c,d,e,f,g),
scale := reverse cmajor,
primes := nprimes (len scale),
indicies := up (len scale),

oct 3,
len (1/16),

for (2 + up Length) ( i |
	play (chord scale[indicies[i % primes == 0]]),
),