Hoa.lib en ligne sur Faust

Faust/Examples/HoaExamples.fsc

@@ -1,6 +1,8 @@
 <!DOCTYPE GraphicsSceneFaust>
 <SceneRoot>
- <Scene sceneHeight="864" viewZoom="0.9999998807907104" sceneX="-489.5" sceneY="-631.5" sceneWidth="754" viewX="-103.0000122785583" viewY="-263.0000313520469"/>
+ <Scene sceneHeight="864" viewZoom="0.9999998807907104" sceneX="-489.5" sceneY="-631.5" sceneWidth="754" viewX="-103.0000122785583" viewY="-254.0000302791632"/>
+ <Item DomFaustItemRectWidth="100" ItemX="-81.5" ItemY="-185.5" ItemZ="4" file="/Users/Pierre/SourceTree/HoaLibrary/Faust/Others/echo.dsp" DomFaustItemRectHeight="100"/>
+ <Item DomFaustItemRectWidth="100" ItemX="-358.5" ItemY="-134.5" ItemZ="3" file="/Users/Pierre/SourceTree/HoaLibrary/Faust/Others/karplus32.dsp" DomFaustItemRectHeight="100"/>
  <Item DomFaustItemRectWidth="100" ItemX="-51.5" ItemY="-51.5" ItemZ="2" file="/Users/Pierre/SourceTree/HoaLibrary/_distribution/Faust/HoaLibrary-1.1/Examples/OneSourceToStereo.dsp" DomFaustItemRectHeight="100"/>
  <Item DomFaustItemRectWidth="324" ItemX="-113.5" ItemY="-595" ItemZ="1" file="/Users/Pierre/SourceTree/HoaLibrary/Faust/Examples/FourSourcesToOcto.dsp" DomFaustItemRectHeight="324"/>
  <Item DomFaustItemRectWidth="332" ItemX="-463" ItemY="-534" ItemZ="0" file="/Users/Pierre/SourceTree/HoaLibrary/Faust/Examples/OneSourceToStereo.dsp" DomFaustItemRectHeight="332"/>

Faust/Others/echo.app/Contents/Info.plist

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">
+<plist version="0.9">
+<dict>
+	<key>NSPrincipalClass</key>
+	<string>NSApplication</string>
+	<key>CFBundleIconFile</key>
+	<string></string>
+	<key>CFBundlePackageType</key>
+	<string>APPL</string>
+	<key>CFBundleGetInfoString</key>
+	<string>Created by Qt/QMake</string>
+	<key>CFBundleSignature</key>
+	<string>????</string>
+	<key>CFBundleExecutable</key>
+	<string>echo</string>
+	<key>CFBundleIdentifier</key>
+	<string>com.yourcompany.echo</string>
+	<key>NOTE</key>
+	<string>This file was generated by Qt/QMake.</string>
+</dict>
+</plist>

Faust/Others/echo.app/Contents/PkgInfo

@@ -0,0 +1 @@
+APPL????

Faust/Others/echo.dsp

@@ -0,0 +1,12 @@
+declare name 		"echo";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+//-----------------------------------------------
+// 				A Simple Echo
+//-----------------------------------------------
+
+import("music.lib");
+
+process = vgroup("echo-simple", echo1s);

Faust/Others/karplus32.app/Contents/Info.plist

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">
+<plist version="0.9">
+<dict>
+	<key>NSPrincipalClass</key>
+	<string>NSApplication</string>
+	<key>CFBundleIconFile</key>
+	<string></string>
+	<key>CFBundlePackageType</key>
+	<string>APPL</string>
+	<key>CFBundleGetInfoString</key>
+	<string>Created by Qt/QMake</string>
+	<key>CFBundleSignature</key>
+	<string>????</string>
+	<key>CFBundleExecutable</key>
+	<string>karplus32</string>
+	<key>CFBundleIdentifier</key>
+	<string>com.yourcompany.karplus32</string>
+	<key>NOTE</key>
+	<string>This file was generated by Qt/QMake.</string>
+</dict>
+</plist>

Faust/Others/karplus32.app/Contents/PkgInfo

@@ -0,0 +1 @@
+APPL????

Faust/Others/karplus32.dsp

@@ -0,0 +1,56 @@
+declare name 		"karplus32";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+
+//-----------------------------------------------
+// 				karplus-strong
+//		with 32 resonators in parallel
+//-----------------------------------------------
+
+import("music.lib"); 
+
+
+// Excitator
+//--------
+
+upfront(x) 	= (x-x') > 0.0;
+decay(n,x)	= x - (x>0)/n;
+release(n)	= + ~ decay(n);
+trigger(n) 	= upfront : release(n) : >(0.0) : +(leak);
+leak 		= 1.0/65536.0;
+
+size 		= hslider("excitation (samples)", 128, 2, 512, 1);
+
+
+
+
+// Resonator
+//-----------------
+
+dur 		= hslider("duration (samples)", 128, 2, 512, 1);
+att 		= hslider("attenuation", 0.1, 0, 1, 0.01);
+average(x)	= (x+x')/2;
+
+resonator(d, a) = (+ : delay(4096, d-1.5)) ~ (average : *(1.0-a)) ;
+
+
+// Polyphony
+//-----------------
+
+detune 		= hslider("detune", 32, 0, 512, 1);
+polyphony 	= hslider("polyphony", 1, 0, 32, 1);
+
+
+
+output 		= hslider("output volume", 0.5, 0, 1, 0.1);
+
+
+process =  vgroup("karplus32",
+	 		   	vgroup("noise generator", noise * hslider("level", 0.5, 0, 1, 0.1))
+				 : vgroup("excitator", *(button("play"): trigger(size)))
+				<: vgroup("resonator x32", par(i,32, resonator(dur+i*detune, att) * (polyphony > i)))
+				:> *(output),*(output)
+			);