«harmonized harmonic minor scale, chords + melody» by joseCaos

on 10 Dec'11 13:14 in supercolliderarmonizacionescalamenor armonicaharmonic minor scalecoding

// harmonized harmonic minor scale chords + melody //// download audio @ http://www.archive.org/details/PaisajeEspanol

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
////////#superCollider///////////
//////////////////////10_dic_2011
///////  paisaje Espanol
///// audio @ http://www.archive.org/details/PaisajeEspanol
/////// escala  A| B| C| D| E| F| G#| A  menorArmonica    
///////        57|59|60|62|64|65| 68|69 //////////////
s.boot;
s.scope;
s.meter;
FreqScope.new;
//
s.record;
////////
(// *
(//fx
SynthDef(\master,{|gate=1|
	var fx,env;
		fx=In.ar(20);
		fx=GVerb.ar(fx,24,3,0.2,mul:0.3);
		env=EnvGen.ar(Env.asr(0.01,0.98,0.01),gate,doneAction:2);
	Limiter.ar(Out.ar(0,Pan2.ar(fx*env,[0.92,-0.92])),0.75);
}).add;
);
(//acordes
SynthDef(\inst,{|gate=1,nota1,nota2,nota3,nota4,rel|
	var cuerda,env;
		cuerda=HPF.ar(
			Limiter.ar((LFTri.ar(nota1.midicps,0,0.7)+SinOsc.ar(nota2.midicps,0.2,0.6)+
			SinOsc.ar(nota3.midicps,-0.2,0.5)+SinOsc.ar(nota4.midicps,0.1,0.5))
				+LFTri.ar(Mix(nota1.midicps,nota2.midicps,nota3.midicps,nota4.midicps),0,0.5),
			0.9),
			200,0.75);
		env=EnvGen.ar(Env.perc(0.015,rel),gate,doneAction:2);
	Out.ar([0,20],Pan2.ar(cuerda*env,[0.1,-0.9]))
}).add;
);
(//melodia
SynthDef(\inst2,{|gate=1,nota1|
	var cuerda2,env;
		cuerda2=Limiter.ar(SinOsc.ar(nota1.midicps,0,0.1)+
				Saw.ar(nota1.midicps,0.1,0.06)+
					RLPF.ar(
				LFCub.ar(nota1.midicps,0.1,0.1)+
				LFTri.ar(nota1.midicps,0.1,0.2),
					Phasor.kr(Impulse.kr(1),60,10000),
					0.5),
			0.2);
		env=EnvGen.ar(Env.perc(0.01,0.15),gate,doneAction:2);
	Out.ar(20,Pan2.ar(cuerda2*env,[0.9,-0.82]))
}).add;
);
////
(
Tdef(\acordes,{
	var c=0,fund,primerg,segundog,tercerg,cuartog,quintog,sextog,septimog,tiempo,trans,release;
	Synth(\master);//sinte master
	~acorde=Array.newClear(4);//1a,3a,5ta,7ma
	~a=[45,47,48,50,52,53,56,57,59,60,62,64,65,68,69,71,72,74,76,77,80,81,83,84,86,88,89,92,93];//escala 4 octavas
        primerg=~a[0];//1er grado
	segundog=~a[1];//2do grado
	tercerg=~a[2];//3er grado
	cuartog=~a[3];//4to grado
	quintog=~a[4];//5to grado
	sextog=~a[5];//6to grado
	septimog=~a[6];//7mo grado
	tiempo=Pwrand([0.25,0.5,0.75,1,2],[0.35,0.45,0.05,0.1,0.05],inf).asStream;
	release=Pwrand([0.25,0.5,0.75,1],[0.1,0.5,0.2,0.2],inf).asStream;
	inf.do{
		c=c+1;
		fund=Array.series(7,0);//fundamentales posibles la primera octava
		~numfund=fund.scramble.pyramid.mirror2.reverse[c%fund.size];//grado de la escala
		//~numfund.postln;
		~acorde.put(0,~a[~numfund]);//pone en la tonica algun grado de la escala
		trans=[0,0,12,24,36,0].choose;
		//trans.postln;
		if((~acorde[0]+trans)==(primerg+trans),{//Am7
				~acorde.put(1,~a[~numfund]+3);//menor
				~acorde.put(2,~a[~numfund]+7);//5ta justa
				~acorde.put(3,~a[~numfund]+11)//7ma mayor
				}
		);
		if((~acorde[0]+trans)==(segundog+trans),{//Bm5b7m
				~acorde.put(1,~a[~numfund]+3);//menor
				~acorde.put(2,~a[~numfund]+6);//5ta disminuida
				~acorde.put(3,~a[~numfund]+10)//7ma menor
				}
		);
		if((~acorde[0]+trans)==(tercerg+trans),{//C5#7
				~acorde.put(1,~a[~numfund]+4);//mayor
				~acorde.put(2,~a[~numfund]+8);//5ta aumentada
				~acorde.put(3,~a[~numfund]+11)//7ma mayor
				}
		);
		if((~acorde[0]+trans)==(cuartog+trans),{//Dm7m
				~acorde.put(1,~a[~numfund]+3);
				~acorde.put(2,~a[~numfund]+7);
				~acorde.put(3,~a[~numfund]+10)
				}
		);
		if((~acorde[0]+trans)==(quintog+trans),{//E7m
				~acorde.put(1,~a[~numfund]+4);
				~acorde.put(2,~a[~numfund]+7);
				~acorde.put(3,~a[~numfund]+10)
				}
		);
		if((~acorde[0]+trans)==(sextog+trans),{//F7
				~acorde.put(1,~a[~numfund]+4);
				~acorde.put(2,~a[~numfund]+7);
				~acorde.put(3,~a[~numfund]+11)
				}
		);
		if((~acorde[0]+trans)==(septimog+trans),{//G#5b7dis
				~acorde.put(1,~a[~numfund]+3);
				~acorde.put(2,~a[~numfund]+6);
				~acorde.put(3,~a[~numfund]+9)//7ma disminuida
				}
		);
		~acorde.postln;
		~ins=Synth(\inst);
		~ins.set(\nota1,~acorde[0]);
		~ins.set(\nota2,~acorde[1]);
		~ins.set(\nota3,~acorde[2]);
		~ins.set(\nota4,~acorde[3]);
		~ins.set(\rel,release.next);
		tiempo.next.wait
		}
});
);
(
Tdef(\melodia,{
	var c=0,quinta,
		tiempo=Pwrand([0.25,0.5,1,0.0125],[0.35,0.6,0.25,0.025],inf).asStream;
	inf.do{
		~amel=[57,59,60,62,64,65,68,69,71,72,74,76,77,80,81,83,84,86,88,89,92,93];//3 octavas
		c=c+1;
		~numel=~amel.scramble[c%~amel.size];
		~numel.postln;
		quinta=[0,0,7,12,0].choose;//se transpone una quinta u octava
		~ins2=Synth(\inst2);
		~ins2.set(\nota1,~numel+quinta);
		tiempo.next.wait
		}
});
);
)
(//
Tdef(\acordes).play;
Tdef(\melodia).play;
)
Tdef(\melodia).stop;
Tdef(\acordes).stop;
s.stopRecording;
descendants
«TesAssire» by anonymous (private)
«TesAssire» by anonymous (private)
«TesAssire» by anonymous (private)
«TesAssire» by anonymous (private)
«TesAssire» by anonymous (private)
«TesAssire» by anonymous (private)
«esidake» by anonymous (private)
«oseurexad» by anonymous (private)
«iwoxuzilizo» by anonymous (private)
«llocaqa» by anonymous (private)
«eboidop» by anonymous (private)
full graph
raw 4573 chars (focus & ctrl+a+c to copy)
reception
comments
tedorsc user 23 Jan'13 06:45

this is awesome :)

tommaisey user 24 Jan'13 09:52

Very very cool, extremely 'musical' for a generative piece. I will have to study this.

bateslewis user 05 Feb'13 12:30

like it :)

furenku user 12 Sep'14 03:16
    ~numfund=fund.scramble.pyramid.mirror2.reverse[c%fund.size];//grado de la escala !!!
grirgz user 15 Sep'14 13:26

in \inst why :

+LFTri.ar(Mix(nota1.midicps,nota2.midicps,nota3.midicps,nota4.midicps.poll(label:"hey")),0,0.5),

Seems more logical to do

+Mix(LFTri.ar([nota1.midicps,nota2.midicps,nota3.midicps,nota4.midicps],0,0.5)),

No ?

Bryan Christophe Green user 15 Feb'15 22:38

Very nice!