rdk

Check-in [f03ed161f9]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/ga_large_room_faust-us.dsp to ga_large_room_faust-us.dll using f2w32vst. y
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | www
Files: files | file ages | folders
SHA1:f03ed161f970e69a8e03d6bad91b58f234cd6060
User & Date: root 2018-12-23 11:17:44
Context
2018-12-23
11:20
compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/ga_large_room_faust-ga.dsp to ga_large_room_faust-ga.dll using f2w32vst. check-in: 3c93439a0f user: root tags: www
11:17
compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/ga_large_room_faust-us.dsp to ga_large_room_faust-us.dll using f2w32vst. y check-in: f03ed161f9 user: root tags: www
04:27
compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/ga_large_room_faust.dsp to ga_large_room_faust.jgtk using f2jgtk. check-in: 05d68b88ce user: root tags: www
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added SchlemmerReverb/ga_large_room_faust-us.dsp.



























































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
import("classic6.lib");//cl.

process = bus(2):ga.large_room(1),ga.large_room(2):bus(2);

//gardner model large room
ga = environment {

//delay
dxga(maxdel,i,j) = delay(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel))
	;
//allpass
ap0(maxSize, d    , gain) = (+ <:  delay (maxSize,d:max(0)),*(-gain)) ~ *(gain) : @(1),_ : + ;
apga(maxdel,i,j) = ap0(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel),
	gui.GA_G(i,j))
	;
//diffusor (allpass series)
gadiff2(i) = 
	  dxga(1<<9,i,1)
	: apga(1<<9,i,2) 
	: dxga(1<<9,i,3)
	: apga(1<<10,i,4);
//one allpass nested
nested1(i) = dxga(1<<10,i,5) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
  with {
		outerFB = gui.GA_OUT_FB(i,6) ;
		innerloop(i) = 
			  dxga(1<<12,i,6)
			: apga(1<<14,i,7)
			: dxga(1<<13,i,8);
	};
//two ap's nested
nested2(i) = dxga(1<<10,i,9) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
	with {
		outerFB = gui.GA_OUT_FB(i,10); 
		innerloop(i) = 
			  dxga(1<<12,i,10)
			: apga(1<<14,i,11) 
			: dxga(1<<13,i,12) 
			: apga(1<<12,i,13) 
			: dxga(1<<14,i,14); 
	};
  
large_room_delayline(i) = + : ( _ : gadiff2(i)
	<: ( ((nested1(i)))
	<: ( ((nested2(i)))
	<: ( (dxga(1<<10,i,15)))
,(tab(i,18)) )
,(tab(i,17)) )
,(tab(i,16)) ) //first out tap
: _,(_,_,_:>_) with {
  
  tab(i,j) = dxga(1<<12,i,j)*gui.GA_OUT_LV(i,j);
  };

large_room(i) = large_room_delayline(i)~(*(gui.GA_MAIN_FEEDBACK):cl.lop(2600)):!,_;

/*/gardner tuning
def = environment {
	GA_DEL_MS(i,1) = 2; //not specified in orig. paper
	GA_DEL_MS(i,2) = 8;
	GA_G(i,2) = 0.3;
	GA_DEL_MS(i,3) = 3; //not specified in orig. paper
	GA_DEL_MS(i,4) = 12;
	GA_G(i,4) = 0.3;
	GA_DEL_MS(i,5) = 21;
	GA_OUT_FB(i,6) = 0.5;
	GA_DEL_MS(i,6) = (87-62)/2;
	GA_DEL_MS(i,7) = 62;
	GA_G(i,7) = 0.25;
	GA_DEL_MS(i,8) = (87-62)/2;
	GA_DEL_MS(i,9) = 34;
	GA_OUT_FB(i,10) = 0.5;
	GA_DEL_MS(i,10) = (120-76-30)/3;     
	GA_DEL_MS(i,11) = 76;
	GA_G(i,11) = 0.25;
	GA_DEL_MS(i,12) = (120-76-30)/3;
	GA_DEL_MS(i,13) = 30;
	GA_G(i,13) = 0.25;
	GA_DEL_MS(i,14) = (120-76-30)/3;
	GA_DEL_MS(i,15) = 5; //specified grafically
  
	GA_DEL_MS(i,16) = 3; //specified grafically
	GA_OUT_LV(i,16) = 0.34;
	GA_DEL_MS(i,17) = 31;
	GA_OUT_LV(i,17) = 0.14;
	GA_DEL_MS(i,18) = 3; //specified grafically
	GA_OUT_LV(i,18) = 0.14;
  GA_MAIN_FEEDBACK = 0.44; //not specified in orig. paper
  };
*/
//schlemmer tuning
def = environment {
	GA_DEL_MS(i,1) = 2;
	GA_DEL_MS(i,2) = 8;
	GA_G(i,2) = 0.3;
	GA_DEL_MS(i,3) = 3;
	GA_DEL_MS(i,4) = 12;
	GA_G(i,4) = 0.3;
	GA_DEL_MS(i,5) = 21;
	GA_OUT_FB(i,6) = 0.5;
	GA_DEL_MS(i,6) = 46;
	GA_DEL_MS(i,7) = 62;
	GA_G(i,7) = 0.25;
	GA_DEL_MS(i,8) = 23.8;
	GA_DEL_MS(i,9) = 34;
	GA_OUT_FB(i,10) = 0.5;
	GA_DEL_MS(i,10) = 0.5;     
	GA_DEL_MS(i,11) = 76;
	GA_G(i,11) = 0.25;
	GA_DEL_MS(i,12) = 0.5;
	GA_DEL_MS(i,13) = 30;
	GA_G(i,13) = 0.25;
	GA_DEL_MS(i,14) = 0.5;
	GA_DEL_MS(i,15) = 12;
	GA_DEL_MS(i,16) = 0;
	GA_OUT_LV(i,16) = 0.58;
	GA_DEL_MS(i,17) = 0;
	GA_OUT_LV(i,17) = 0.08;
	GA_DEL_MS(i,18) = 0;
	GA_OUT_LV(i,18) = 0.65;
  GA_MAIN_FEEDBACK = 0.44;
  };

//example gui
  gui = environment {
    group1(i,j,fx) = hgroup("gardner large hall",vgroup("[1]CHANNEL %i",hgroup("[%s]%j",fx))) with { 
      s=j+100; //order gui elements correctly
      }; 
      GA_MAIN_FEEDBACK = nentry("[0]GA_MAIN_FEEDBACK",def.GA_MAIN_FEEDBACK,-0.5,0.5,0.01);
      GA_DEL_MS(i,j)= group1(i,j,nentry("GA_DEL_MS(%i,%j)",def.GA_DEL_MS(i,j),0,100,0.01));
      GA_G(i,j)     = group1(i,j,nentry("GA_G(%i,%j)",def.GA_G(i,j),-0.99,0.99,0.01));
      GA_OUT_FB(i,j)= group1(i,j,nentry("GA_OUT_FB(%i,%j)",def.GA_OUT_FB(i,j),-0.99,0.99,0.01));
      GA_OUT_LV(i,j)= group1(i,j,nentry("GA_OUT_LV(%i,%j)",def.GA_OUT_LV(i,j),-2,2,0.01));
	};
};

declare name "ga_large_room_faust-us.dll (ga_large_room_faust-us.dsp)(20181223-12:17+0100)" ; //added by f2w32vst

Changes to SchlemmerReverb/ga_large_room_faust.dsp.

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
..
54
55
56
57
58
59
60
61
62
63


































64
65
66
67
68
69
70
..
91
92
93
94
95
96
97



98
99
100
101
102
103
104
105

import("classic6.lib");//cl.

process = ga.large_room(1);

//gardner model large room
ga = environment {


dxga(maxdel,i,j) = delay(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel))
	;

//allpass
ap0(maxSize, d    , gain) = (+ <:  delay (maxSize,d:max(0)),*(-gain)) ~ *(gain) : @(1),_ : + ;
apga(maxdel,i,j) = ap0(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel),
	gui.GA_G(i,j))
	;

//diffusor (allpass series)
gadiff2(i) = 
	  dxga(1<<9,i,1)
	: apga(1<<9,i,2) 
	: dxga(1<<9,i,3)
	: apga(1<<10,i,4);

//nestet allpass
nested1(i) = dxga(1<<10,i,5) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
  with {
		outerFB = gui.GA_OUT_FB(i,6) ;
		innerloop(i) = 
			  dxga(1<<12,i,6)
			: apga(1<<14,i,7)
			: dxga(1<<13,i,8);
	};

nested2(i) = dxga(1<<10,i,9) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
	with {
		outerFB = gui.GA_OUT_FB(i,10); 
		innerloop(i) = 
			  dxga(1<<12,i,10)
			: apga(1<<14,i,11) 
................................................................................
,(tab(i,17)) )
,(tab(i,16)) ) //first out tap
: _,(_,_,_:>_) with {
  
  tab(i,j) = dxga(1<<12,i,j)*gui.GA_OUT_LV(i,j);
  };

large_room(i) = large_room_delayline(i)~(*(gui.GA_MAIN_FEEDBACK)):!,_;

//tuning


































def = environment {
	GA_DEL_MS(i,1) = 2;
	GA_DEL_MS(i,2) = 8;
	GA_G(i,2) = 0.3;
	GA_DEL_MS(i,3) = 3;
	GA_DEL_MS(i,4) = 12;
	GA_G(i,4) = 0.3;
................................................................................
	GA_DEL_MS(i,18) = 0;
	GA_OUT_LV(i,18) = 0.65;
  GA_MAIN_FEEDBACK = 0.44;
  };

//example gui
  gui = environment {



      GA_MAIN_FEEDBACK = nentry("[0]GA_MAIN_FEEDBACK",def.GA_MAIN_FEEDBACK,-0.5,0.5,0.01);
    	GA_DEL_MS(i,j)= vgroup("%i",hgroup("%j",nentry("GA_DEL_MS(%i,%j)",def.GA_DEL_MS(i,j),0,100,0.01)));
      GA_G(i,j)     = vgroup("%i",hgroup("%j",nentry("GA_G(%i,%j)",def.GA_G(i,j),-0.99,0.99,0.01)));
      GA_OUT_FB(i,j)= vgroup("%i",hgroup("%j",nentry("GA_OUT_FB(%i,%j)",def.GA_OUT_FB(i,j),-0.99,0.99,0.01)));
      GA_OUT_LV(i,j)= vgroup("%i",hgroup("%j",nentry("GA_OUT_LV(%i,%j)",def.GA_OUT_LV(i,j),-2,2,0.01)));
	};

};



|




>



<






<






<
|









|







 







|

|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







>
>
>

|
|
|
|

<

>
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
..
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
...
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

139
140
import("classic6.lib");//cl.

process = bus(2):ga.large_room(1),ga.large_room(2):bus(2);

//gardner model large room
ga = environment {

//delay
dxga(maxdel,i,j) = delay(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel))
	;

//allpass
ap0(maxSize, d    , gain) = (+ <:  delay (maxSize,d:max(0)),*(-gain)) ~ *(gain) : @(1),_ : + ;
apga(maxdel,i,j) = ap0(maxdel,
	gui.GA_DEL_MS(i,j)*SR/1000.:min(maxdel),
	gui.GA_G(i,j))
	;

//diffusor (allpass series)
gadiff2(i) = 
	  dxga(1<<9,i,1)
	: apga(1<<9,i,2) 
	: dxga(1<<9,i,3)
	: apga(1<<10,i,4);

//one allpass nested
nested1(i) = dxga(1<<10,i,5) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
  with {
		outerFB = gui.GA_OUT_FB(i,6) ;
		innerloop(i) = 
			  dxga(1<<12,i,6)
			: apga(1<<14,i,7)
			: dxga(1<<13,i,8);
	};
//two ap's nested
nested2(i) = dxga(1<<10,i,9) : 
	(+ <: innerloop(i),*(-outerFB)) ~ *(outerFB) : @(1),_ : +  
	with {
		outerFB = gui.GA_OUT_FB(i,10); 
		innerloop(i) = 
			  dxga(1<<12,i,10)
			: apga(1<<14,i,11) 
................................................................................
,(tab(i,17)) )
,(tab(i,16)) ) //first out tap
: _,(_,_,_:>_) with {
  
  tab(i,j) = dxga(1<<12,i,j)*gui.GA_OUT_LV(i,j);
  };

large_room(i) = large_room_delayline(i)~(*(gui.GA_MAIN_FEEDBACK):cl.lop(2600)):!,_;

/*/gardner tuning
def = environment {
	GA_DEL_MS(i,1) = 2; //not specified in orig. paper
	GA_DEL_MS(i,2) = 8;
	GA_G(i,2) = 0.3;
	GA_DEL_MS(i,3) = 3; //not specified in orig. paper
	GA_DEL_MS(i,4) = 12;
	GA_G(i,4) = 0.3;
	GA_DEL_MS(i,5) = 21;
	GA_OUT_FB(i,6) = 0.5;
	GA_DEL_MS(i,6) = (87-62)/2;
	GA_DEL_MS(i,7) = 62;
	GA_G(i,7) = 0.25;
	GA_DEL_MS(i,8) = (87-62)/2;
	GA_DEL_MS(i,9) = 34;
	GA_OUT_FB(i,10) = 0.5;
	GA_DEL_MS(i,10) = (120-76-30)/3;     
	GA_DEL_MS(i,11) = 76;
	GA_G(i,11) = 0.25;
	GA_DEL_MS(i,12) = (120-76-30)/3;
	GA_DEL_MS(i,13) = 30;
	GA_G(i,13) = 0.25;
	GA_DEL_MS(i,14) = (120-76-30)/3;
	GA_DEL_MS(i,15) = 5; //specified grafically
  
	GA_DEL_MS(i,16) = 3; //specified grafically
	GA_OUT_LV(i,16) = 0.34;
	GA_DEL_MS(i,17) = 31;
	GA_OUT_LV(i,17) = 0.14;
	GA_DEL_MS(i,18) = 3; //specified grafically
	GA_OUT_LV(i,18) = 0.14;
  GA_MAIN_FEEDBACK = 0.44; //not specified in orig. paper
  };
*/
//schlemmer tuning
def = environment {
	GA_DEL_MS(i,1) = 2;
	GA_DEL_MS(i,2) = 8;
	GA_G(i,2) = 0.3;
	GA_DEL_MS(i,3) = 3;
	GA_DEL_MS(i,4) = 12;
	GA_G(i,4) = 0.3;
................................................................................
	GA_DEL_MS(i,18) = 0;
	GA_OUT_LV(i,18) = 0.65;
  GA_MAIN_FEEDBACK = 0.44;
  };

//example gui
  gui = environment {
    group1(i,j,fx) = hgroup("gardner large hall",vgroup("[1]CHANNEL %i",hgroup("[%s]%j",fx))) with { 
      s=j+100; //order gui elements correctly
      }; 
      GA_MAIN_FEEDBACK = nentry("[0]GA_MAIN_FEEDBACK",def.GA_MAIN_FEEDBACK,-0.5,0.5,0.01);
      GA_DEL_MS(i,j)= group1(i,j,nentry("GA_DEL_MS(%i,%j)",def.GA_DEL_MS(i,j),0,100,0.01));
      GA_G(i,j)     = group1(i,j,nentry("GA_G(%i,%j)",def.GA_G(i,j),-0.99,0.99,0.01));
      GA_OUT_FB(i,j)= group1(i,j,nentry("GA_OUT_FB(%i,%j)",def.GA_OUT_FB(i,j),-0.99,0.99,0.01));
      GA_OUT_LV(i,j)= group1(i,j,nentry("GA_OUT_LV(%i,%j)",def.GA_OUT_LV(i,j),-2,2,0.01));
	};

};