Bach

[chaosprint]

##setBPM(140)#
~s1: seq 71 67 69, 71 74 72
~s2: seq 72 76 74, 74 79 78
~s3: seq 79 74 71, 67 69 71
~s4: seq 72 74 76, 74 72 71
~s5: seq 69 71 67, 66 67 69
~s6: seq 62 66 69, 72 71 69

~osc1: squ ~pitch2
~osc2: squ ~pitch1

~pitch2: ~pitch1 >> mul 1.01

~env: ~seq >> envperc 0.01 0.1 >> mul 0.5

~seq: arrange ~s1 1 ~s2 1 ~s3 1 ~s4 1 ~s5 1 ~s6 1

~pitch1: ~seq >> mul 261.3

~t1: mix ~osc.. >> lpf 300.0 0.33 >> mul ~env

o: mix ~t.. >> mul 1 >> plate 0.1

[chaosprint]

##setBPM(140)#
~s1: seq 71 67 69, 71 74 72
~s2: seq 72 76 74, 74 79 78
~s3: seq 79 74 71, 67 69 71
~s4: seq 72 74 76, 74 72 71
~s5: seq 69 71 67, 66 67 69
~s6: seq 62 66 69, 72 71 69

~osc1: ~pitch1 >> meta `
    output.pad(128, 0.0);
    for i in 0..128 {
		output[i] = sin(2*PI()*phase) * 0.3;
		if input[i] != 0 {
			f = input[i];
		}
        phase += f / sr;
    };
    while phase > 1.0 { phase -= 1.0 };
    output
` >> lpf 1000 1.0

~env: ~seq >> envperc 0.02 0.15 >> mul 0.5

~seq: arrange ~s1 1 ~s2 1 ~s3 1 ~s4 1 ~s5 1 ~s6 1

~pitch1: ~seq >> mul 261.3

~t1: mix ~osc..>> mul ~env

o: mix ~t.. >> mul 0.5