rdk

Check-in [437ba4f225]
Login

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

Overview
Comment:compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/zita_ref1d.dsp to zita_ref1d.jgtk using f2jgtk. 8 in for pd auralization
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | www
Files: files | file ages | folders
SHA1:437ba4f225affbdcc61dc6c0ea67a5a5dffd9d4a
User & Date: root 2019-01-03 12:53:21
Context
2019-01-06
08:39
SchlemmerReverb/zita_ref1d.jgtk --> preset: default_fl_faun () (/initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/zita_ref1d-presets) presentation check-in: 4182bf1599 user: root tags: www
2019-01-03
12:53
compiled /initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/zita_ref1d.dsp to zita_ref1d.jgtk using f2jgtk. 8 in for pd auralization check-in: 437ba4f225 user: root tags: www
05:02
SchlemmerReverb/zita_ref1c.jgtk --> preset: glocke (suzanne_orig.wav) (/initrd/mnt/dev_save/dsp/rdk/SchlemmerReverb/zita_ref1c-presets) funny check-in: 38faa7c0f3 user: root tags: www
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SchlemmerReverb/zita_ref1.lib.

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/*** room model *****************

room <L,B,H> ,(s)ender, (r)eceiver

        front

width  <  B   >
      ^ +------+  ^(Length L)
    42 ¦ (s)  ¦  |
       ¦______¦  | ^
 (left)¦      ¦  | |
       ¦  (r) ¦  | (Distance)
       ¦      ¦  | |
     0 +------+  x x
       0     19                







|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/*** room model *****************

room <L,B,H> ,(s)ender, (r)eceiver

        front

width  <  B   >
     ^ +------+  ^(Length L)
    42 ¦ (s)  ¦  |
       ¦______¦  | ^
 (left)¦      ¦  | |
       ¦  (r) ¦  | (Distance)
       ¦      ¦  | |
     0 +------+  x x
       0     19                

Added SchlemmerReverb/zita_ref1d.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
import("maxmsp.lib");
import("effect.lib");//modified

import("classic6.lib");//cl.
import("zita_ref1.lib");
import("zita_ref1.gui");
import("zita_ref1c.defaults");

///Extending Zita Reverb with Virtual Room Acoustics 
//Life coding/sound processing and modification of the famous zita reverb by fons adriaensen.

//---------------------------------------------------------------------------------------
re=library("effect.lib"); // doesn't work because with {} is used for 'member' functions.
//---------------------------------------------------------------------------------------

M=8;

process = bus(M):dir.eq82: //set dry/wet to 0 for pd auralizaton.
  //zt.zita_rev_fdn(zt.f1,zt.f2,zt.t60dc,zt.t60m,zt.fsmax)
  zitaCore
  :ze.reflevel(M)
//  :dir.eq82
  :ze.lexicon_trick(M)
  :bus(2)
;

zitaCore=(bus(2*M):>
  ze.fbdelaylines(M))
      ~(
      ze.allpass_combs(M):
      zt.feedbackmatrix(M):
      cl.wdn(M,zt.delayfilters(M,ze.freqs,ze.durs),ZE_GUI_FLTON)
      :cl.wdn(M,ze.reverbtime(M),(1-(ZE_GUI_FLTON)))
        );
      
ze = environment{

maxapdelay(i) = 1<<16 ;
maxtdelay(i) = 1<<16 ;
freqs = (ztgui.f1,ztgui.f2); 
durs = (ztgui.t60dc,ztgui.t60m);

// klingt der _sim-lfo_ wirklich genau so gut? - ja. muss rein.
sinusi(freq,phase)=component("../rdk.lib").rdk.sinusi(freq,phase);
zitaLFO(i)=sinusi(ZE_GUI_SinusFreqHz,i*.125 )*(ZE_GUI_SinusDepth)+1.0;

///step 1: main loop
reverbtime(N) = par(i,N,*(ZE_GUI_MAINFB)) ;
///step 2.0: change delay to fdelay
fbdelaylines(zt.N)=par(i,zt.N,(fdelay(ze.maxtdelay(i),(ze.fbdelay(i)))));
///step 2.1: change *g to UI
allpass_combs(N)=par(i,zt.N,(allpass_fcomb(ze.maxapdelay(i),ze.apdelay(i),ZE_GUI_APG(i)))) with {
  
  allpass_fcomb(maxdel,N,aN) = (+ <: fdelay(maxdel,N-1),*(aN)) ~ *(-aN) : mem,_ : + ;//filters.lib
  }; 
///step 3: change delay(i) lenths to reflect SIM
//apdelay(i)=sim.ssq(i+1)*ZE_GUI_APPERCENT*SR/1000.0; //samples //rename ssq reflection
//fbdelay(i)=sim.ssq(i+1)*SR/1000.0;

apdelay(i)=sim_orig.reflectiondelay_ms(i)*ZE_GUI_APPERCENT*SR/1000.0:min(ze.maxapdelay(i)):max(10); //samples 
fbdelay(i)=sim_orig.reflectiondelay_ms(i)*SR/1000.0:min(ze.maxtdelay(i)-(100)):max(100)*zitaLFO(i);

///step 4: reflection level
reflevel(N) = par(i,N,*(reflectionlevel(i)));
reflectionlevel(i)=sim_orig.reflectionlevel(i)*(ZE_GUI_ERCOMPRESSION) + makeup ;
 makeup = 1 - ZE_GUI_ERCOMPRESSION ;

///step 5: apply the lexicon trick
lexicon_trick(N)=bus(N)<:bus(2*N):(reva,refb):bus(4):>bus(2)
with {
  reva=bus(N):>bus(2):par(i,2,*(ZE_GUI_OUTLEVEL(1)));
  refb=bus(N):>bus(2):par(i,2,@(ZE_GUI_OUTDELAY)):par(i,2,*(ZE_GUI_OUTLEVEL(2)));
  };

};
declare name "zita_ref1c.dll (zita_ref1c.dsp)(20181223-13:00+0100)" ; //added by f2w32vst