Update

dizzisound · Sep 11, 2018 · 9442f46 · 9442f46
1 parent d20213e
commit 9442f46
Show file tree

Hide file tree

Showing 22 changed files with 2,207 additions and 84 deletions.
diff --git a/Makefile b/Makefile
@@ -1,5 +1,5 @@
 SLUG = VCV_Csound
-VERSION = 0.6.1
+VERSION = 0.6.2b
 
 # linking to libraries
 LDFLAGS += -L "/usr/local/lib/" -lcsound64

diff --git a/Patches/Vocoder2.vcv b/Patches/Vocoder2.vcv
@@ -1,14 +1,10 @@
 {
-  "version": "0.6.1",
+  "version": "0.6.2b",
   "modules": [
     {
       "plugin": "VCV_Csound",
-      "version": "0.6.1",
+      "version": "0.6.2b",
       "model": "Looper",
-      "pos": [
-        14,
-        0
-      ],
       "params": [
         {
           "paramId": 0,
@@ -29,20 +25,20 @@
       ],
       "data": {
         "lastPath": "/home/moi/Programmes/Rack/plugins/VCV_Csound/samples/Kool_Skool.wav"
-      }
+      },
+      "pos": [
+        14,
+        0
+      ]
     },
     {
       "plugin": "VCV_Csound",
-      "version": "0.6.1",
+      "version": "0.6.2b",
       "model": "MidiVCO10",
-      "pos": [
-        2,
-        0
-      ],
       "params": [
         {
           "paramId": 0,
-          "value": 8.09549999
+          "value": 8.08650303
         },
         {
           "paramId": 1,
@@ -72,24 +68,24 @@
           "paramId": 7,
           "value": 2.0
         }
+      ],
+      "pos": [
+        2,
+        0
       ]
     },
     {
       "plugin": "VCV_Csound",
-      "version": "0.6.1",
+      "version": "0.6.2b",
       "model": "Vocoder",
-      "pos": [
-        26,
-        0
-      ],
       "params": [
         {
           "paramId": 0,
-          "value": 0.772999942
+          "value": 0.803000093
         },
         {
           "paramId": 1,
-          "value": 0.522000074
+          "value": 0.648000002
         },
         {
           "paramId": 2,
@@ -115,16 +111,16 @@
           "paramId": 6,
           "value": 0.0
         }
+      ],
+      "pos": [
+        30,
+        0
       ]
     },
     {
       "plugin": "Fundamental",
       "version": "0.6.0",
       "model": "Scope",
-      "pos": [
-        38,
-        0
-      ],
       "params": [
         {
           "paramId": 0,
@@ -162,16 +158,16 @@
       "data": {
         "lissajous": 0,
         "external": 0
-      }
+      },
+      "pos": [
+        46,
+        0
+      ]
     },
     {
       "plugin": "Core",
-      "version": "0.6.1",
+      "version": "0.6.2b",
       "model": "AudioInterface",
-      "pos": [
-        51,
-        0
-      ],
       "params": [],
       "data": {
         "audio": {
@@ -182,7 +178,11 @@
           "sampleRate": 44100,
           "blockSize": 256
         }
-      }
+      },
+      "pos": [
+        68,
+        0
+      ]
     }
   ],
   "wires": [
@@ -207,19 +207,12 @@
       "inputModuleId": 2,
       "inputId": 1
     },
-    {
-      "color": "#0c8e15",
-      "outputModuleId": 0,
-      "outputId": 0,
-      "inputModuleId": 3,
-      "inputId": 0
-    },
     {
       "color": "#0986ad",
       "outputModuleId": 2,
       "outputId": 0,
       "inputModuleId": 3,
-      "inputId": 1
+      "inputId": 0
     },
     {
       "color": "#c91847",
@@ -229,7 +222,14 @@
       "inputId": 1
     },
     {
-      "color": "#0c8e15",
+      "color": "#c9b70e",
+      "outputModuleId": 1,
+      "outputId": 1,
+      "inputModuleId": 3,
+      "inputId": 1
+    },
+    {
+      "color": "#0986ad",
       "outputModuleId": 2,
       "outputId": 0,
       "inputModuleId": 4,

diff --git a/README.md b/README.md
@@ -123,3 +123,14 @@ Module read wav, aiff, ogg and flac sound files.
 
 Csound script: Yfx.csd
 
+* **Stereo Delay module:**
+
+![](images/Delay.png) 
+
+Csound script: Delay.csd
+
+* **Stereo Chorus module:**
+
+![](images/Chorus.png) 
+
+Csound script: Chorus.csd
diff --git a/csd/Chorus.csd b/csd/Chorus.csd
@@ -0,0 +1,46 @@
+;;Stereo Chorus, René Feb 2015
+<CsoundSynthesizer>
+<CsOptions>
+-n -dm0 -+rtaudio=null -+rtmidi=null -b1024 -B4096
+</CsOptions>
+<CsInstruments>
+sr		= 44100
+ksmps	= 32    ;128
+nchnls	= 2     ;2 in + 2 out
+0dbfs	= 1
+
+
+turnon  1       ;start instr 1
+
+
+instr	1	;Stereo Chorus
+	k_Delay_L	chnget	"Delay_L"			;Slider +0.5 / +20
+	k_Depth_L	chnget	"Depth_L"			;Slider 0 / +0.99
+	k_Rate_L	chnget	"Rate_L"			;Slider 0 / +1
+	k_Delay_R	chnget	"Delay_R"			;Slider +0.5 / +20
+	k_Depth_R	chnget	"Depth_R"			;Slider 0 / +0.99
+	k_Rate_R	chnget	"Rate_R"			;Slider 0 / +1
+	k_Cross 	chnget	"Cross"				;Slider 0 / +1
+	k_Wet		chnget	"Wet"				;Slider 0 / +1
+
+
+	imaxdel     =		200					;maximum delay 200 ms
+
+    ainL, ainR  ins
+
+	;Left channel
+	aTri_L      lfo			k_Delay_L * k_Depth_L, k_Rate_L, 1		;Triangle
+	aDelay_L    vdelay		ainL + k_Cross * ainR , aTri_L + k_Delay_L, imaxdel
+	aLeft       ntrpol		ainL , aDelay_L, k_Wet
+
+	;Right channel
+	aTri_R      lfo			k_Delay_R * k_Depth_R, k_Rate_R, 1		;Triangle
+	aDelay_R    vdelay		ainR + k_Cross * ainL , aTri_R + k_Delay_R, imaxdel
+	aRight		ntrpol		ainR, aDelay_R, k_Wet
+
+                outs        aLeft, aRight
+endin
+</CsInstruments>
+<CsScore>
+</CsScore>
+</CsoundSynthesizer>
diff --git a/csd/Delay.csd b/csd/Delay.csd
@@ -0,0 +1,65 @@
+;;Stereo Delay, René Feb 2015
+<CsoundSynthesizer>
+<CsOptions>
+-n -dm0 -+rtaudio=null -+rtmidi=null -b1024 -B4096
+</CsOptions>
+<CsInstruments>
+sr		= 44100
+ksmps	= 32    ;128
+nchnls	= 2     ;2 in + 2 out
+0dbfs	= 1
+
+
+turnon  1       ;start instr 1
+
+
+opcode Filter_1PLP, a, ak
+	;State variable 1 pole LP filter: Reaktor module 1-Pole Filter
+	;Inputs:	
+	;	aIn	Audio in
+	;	kW	Cutoff	 (kW = cpsmidinn(kP) * 2 * $M_PI / sr; max(kW)= 1)
+
+	        setksmps	1
+	alpd    init    	0
+
+	aIn, kW	xin
+	alp	= alpd + kW * (aIn - alpd)
+	alpd	= alp
+		xout  alp
+endop
+
+
+instr	1	;Stereo Delay
+	k_Time_L		chnget	"Time_L"			;Slider 0 / +600
+	k_Time_R		chnget	"Time_R"			;Slider 0 / +600
+	k_Fine_L		chnget	"Fine_L"			;Slider 0 / +5
+	k_Fine_R		chnget	"Fine_R"			;Slider 0 / +5
+	k_Cutoff		chnget	"Cutoff"			;Slider 0 / +1
+	k_FB			chnget	"Feedback"			;Slider 0 / +1
+	k_Cross 		chnget	"Cross"				;Slider 0 / +1
+	k_Wet			chnget	"Wet"				;Slider 0 / +1
+
+
+    a_Filter_L	init	0
+	a_Filter_R	init	0
+
+	imaxdel		=		1000												;maximum delay 1000 ms
+
+    ainL, ainR  ins
+
+	;Left channel
+	a_L         vdelay			ainL + k_Cross * ainR + k_FB * a_Filter_L, k_Time_L + k_Fine_L, imaxdel
+	a_Filter_L  Filter_1PLP		a_L, k_Cutoff
+	aLeft       ntrpol			ainL , a_Filter_L, k_Wet
+
+	;Right channel	
+	a_R			vdelay			ainR + k_Cross * ainL + k_FB * a_Filter_R, k_Time_R + k_Fine_R, imaxdel
+	a_Filter_R  Filter_1PLP		a_R, k_Cutoff
+	aRight		ntrpol			ainR, a_Filter_R, k_Wet
+
+				                outs        aLeft, aRight
+endin
+</CsInstruments>
+<CsScore>
+</CsScore>
+</CsoundSynthesizer>
diff --git a/csd/MidiVCO10.csd b/csd/MidiVCO10.csd
@@ -31,7 +31,8 @@ ift		vco2init	-1, 10000, 0, 0, 0, 1
 
 
 instr	1	;GUI
-	gkWave		chnget	"Waveform"
+	kWave		chnget	"Waveform"
+    gkWave       = int(kWave)
 	kOctave		chnget	"Octave"
 	gkOctave	= int(kOctave)
 	kSemitone	chnget	"Semitone"

diff --git a/csd/VCO10.csd b/csd/VCO10.csd
@@ -21,6 +21,7 @@ ift		vco2init	-1, 10000, 0, 0, 0, 1
 instr	1
 	;GUI
 	kWave		chnget	"Waveform"
+    kWave       = int(kWave)
 	kOctave		chnget	"Octave"
 	kOctave		= int(kOctave)
 	kSemitone	chnget	"Semitone"

diff --git a/csd/Vocoder.csd b/csd/Vocoder.csd
@@ -76,7 +76,7 @@ instr	1	;Vocoder
 
 	aCar	inch	2
 	if kCarFilter == 1 then
-		aCar	tone	aCar, 12000                 ;LP filter if carrier is PULSE
+		aCar	tone	aCar, 12000                 ;use if carrier is PULSE
 	endif 
 
 	icount	= 0
@@ -92,7 +92,7 @@ instr	1	;Vocoder
 	aCarHP	buthp	aCar, kHPcf
 	amix	=	(amix * kBPGain * 5)+(aCarHP * aEnv * kHPGain * 3)
 
-			outch 	1, amix
+			outch 	1, amix*2
 endin
 </CsInstruments>
 <CsScore>

diff --git a/images/Chorus.png b/images/Chorus.png
diff --git a/images/Delay.png b/images/Delay.png