SF.net SVN: supercollider: [7689] trunk/build

View: New views

1 Messages — Rating Filter: Alert me

SF.net SVN: supercollider: [7689] trunk/build

by cruxxial :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Revision: 7689
http://supercollider.svn.sourceforge.net/supercollider/?rev=7689&view=rev
Author: cruxxial
Date: 2008-07-15 17:44:37 -0700 (Tue, 15 Jul 2008)

Log Message:
-----------
AbstractPlayer
-copy returns a copy stripped of any vars related to the patch out or the server or current state. its a pure musical sound definition object, no runtime stuff.

Editors
- copy returns a new object with the value copied
NumberEditor
- no longer need to send .changed to an Editor before it updates the gui or updates the server.

PlayerSocket
- support kr rate players now
- added an optional limiter
- server sends a message when the socket is blown by nan or inf
player socket sends .changed(\fuseDidBlow) when it blows
by default it posts a message

EnvelopedPlayer
sends a message from the server when the fuse is blown
onFuseBlown handler

Patch
can access inputs by eg. patch.freq

BusDriver
becomes a non-abstract class, similar to KrNumberEditor
but it owns (and drives) a Bus

Instr
copy return self since the same name is always the same instr
clearer gui
UGenInstr-initAt - fixed specs checking bug

Modified Paths:
--------------
trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html
trunk/build/Help/Libraries/crucial/Instr/Patch.html
trunk/build/Help/Libraries/crucial/Players/InstrGateSpawner.html
trunk/build/SCClassLibrary/crucial/Editors/EnvEditor.sc
trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc
trunk/build/SCClassLibrary/crucial/Instr/Instr.sc
trunk/build/SCClassLibrary/crucial/Instr/Patch.sc
trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc
trunk/build/SCClassLibrary/crucial/Players/SimplePlayerEffect.sc
trunk/build/SCClassLibrary/crucial/Sequencers/BusDriver.sc

Modified: trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html 2008-07-16 00:44:37 UTC (rev 7689)
@@ -11,16 +11,22 @@
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica}
p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
-p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
-p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0013bb}
+p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a8220e}
p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; min-height: 17.0px}
p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; min-height: 14.0px}
-p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #942b17; min-height: 14.0px}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; color: #000000}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #84331b; min-height: 14.0px}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
+p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000; min-height: 12.0px}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
span.s1 {color: #000000}
-span.s2 {color: #007300}
+span.s2 {color: #316f11}
+span.s3 {color: #007300}
+span.s4 {color: #0000bf}
</style>
</head>
<body>
@@ -34,45 +40,43 @@
k.gui
 
k.value = 100
-k.changed
 
k.rand
 
// 0..1 mapped to the \freq range
k.setUnmappedValue(0.5)
 
- 
- 
+ 
+ 
Internals
 
-if a KrNumberEditor is in a Patch, and that Patch is playing on a server, the message to the server happens when the KrNumberEditor gets the .changed message and sends .update to all its depedants. This includes any NumberEditorGui and also any UpdatingScalarPatchOut, which is what actually sends the message to the server.
+if a KrNumberEditor is in a Patch, and that Patch is playing on a server, the message to the server happens when the KrNumberEditor gets the .changed message and sends .update to all its depedants. This includes any NumberEditorGui and also any UpdatingScalarPatchOut, which is what actually sends the message to the server.
 
 
 
 
-Lag
+Lag
 
KrNumberEditors support lag. This means that the control messages received by the Synth are smoothed by a Lag.kr You can set lag to nil for no Lag.
 
-k = KrNumberEditor(0,\loop);
-k.lag = nil;
+k = KrNumberEditor(0,\loop);
+k.lag = nil;
 
 
Alternatively see NoLagControlSpec, whose defaultControl sets the lag to nil.
 
-k = KrNumberEditor(0, NoLagControlSpec(0,1) );
+k = KrNumberEditor(0, NoLagControlSpec(0,1) );
+ 
+the keys \binary, \loop (as looked up in the Spec dictionary) are registred as NoLagControlSpec, and thus don't use any lag at all.
+ 
+// \loop is defined by default as a no lag control spec
+\loop.asSpec.defaultControl.insp
 
-// lag is set to nil
-\loop.asSpec.defaultControl.insp
 
- 
I would prefer to just have a lag preference in ControlSpec
(clients that do lag eg. sliders can tell from the spec if they should do lag or not).
 
-as Jan pointed out a while ago, binary things don't like lag.
 
-the keys \binary, \loop (as looked up in the Spec dictionary) are registred as NoLagControlSpec, and thus don't use any lag at all.
- 
You can register others, or use a NoLagControlSpec when writing the Instr.
 
</body>

Modified: trunk/build/Help/Libraries/crucial/Instr/Patch.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-16 00:44:37 UTC (rev 7689)
@@ -12,44 +12,44 @@
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
-p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #783a1d}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #5e4025}
+p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #6e3d20}
+p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #594127}
p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Lucida Grande; min-height: 15.0px}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #952e14}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #1731a0}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #853519}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #1b339d}
p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Lucida Grande}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #5f6430}
-p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #436c19}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606333}
+p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #4e6a1f}
p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; min-height: 17.0px}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #5f6430; min-height: 12.0px}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #853519}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #001bb7}
-p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #5e4025; min-height: 12.0px}
-p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; color: #000000}
-p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000; min-height: 14.0px}
-p.p21 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
-p.p22 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
-p.p23 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p24 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p25 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
-p.p26 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Arial; color: #000000; min-height: 14.0px}
-p.p27 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Arial; color: #000000}
-p.p28 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0018e8}
-span.s1 {color: #0025f3}
-span.s2 {color: #0626af}
-span.s3 {color: #556824}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606333; min-height: 12.0px}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #783a1d}
+p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
+p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
+p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000; min-height: 12.0px}
+p.p21 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p22 {margin: 0.0px 0.0px 0.0px 0.0px; font: 15.0px Helvetica}
+p.p23 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
+p.p24 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0013bb}
+p.p25 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Arial}
+p.p26 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Arial; min-height: 14.0px}
+p.p27 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0018e8}
+span.s1 {color: #002ded}
+span.s2 {color: #0b2aab}
+span.s3 {color: #5a6628}
span.s4 {color: #000000}
-span.s5 {color: #001bb7}
-span.s6 {color: #436c19}
-span.s7 {color: #1731a0}
+span.s5 {color: #0021b3}
+span.s6 {color: #4e6a1f}
+span.s7 {color: #1b339d}
span.s8 {color: #606060}
-span.s9 {color: #5f6430}
-span.s10 {text-decoration: underline ; color: #0022e3}
-span.s11 {color: #0021b3}
-span.s12 {color: #4e6a1f}
+span.s9 {color: #606333}
+span.s10 {text-decoration: underline ; color: #0029de}
+span.s11 {color: #0626af}
+span.s12 {color: #556824}
span.s13 {color: #0000bf}
span.s14 {color: #007300}
-span.s15 {font: 12.0px Helvetica}
+span.s15 {color: #0013bb}
+span.s16 {font: 12.0px Helvetica}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -304,7 +304,7 @@
Note that the Patch would assume upDown to be a modulatable control input (with a default of 0.0) without the StaticIntegerSpec making it clear that its a static integer.
 
 
-Busses
+Busses and Groups
(
 
s.boot;
@@ -328,113 +328,129 @@
 
 
z = Patch({ Saw.ar(500) * 0.1 }).play(group: a, bus: c );
+ 
+z.bus
+z.synth
+z.group
+z.server
+ 
z.stop;
 
y.stop;
 
)
+// z and y are now stopped by p is still playing
 
-// you can make the bus play to a main audio output
+// c is a Bus object
+c
+// play c ontto a main audio output
c.play
 
-//command-. to stop all
+//use command-. to stop all
 
+ 
+ 
+(
+s.boot;
+ 
+a = Group.new;
+ 
+b = Group.after(a);
+ 
+// no index, not yet allocated
+c = Bus(\audio,nil,2);
+ 
+y = Patch({ arg in,ffreq;
+ LPF.ar(in,ffreq)
+},[
+ c, // a proxy, the bus is yet to be allocated
+ KrNumberEditor(3000,[200,8000,\exp])
+]).play(group: b);
+ 
+// now that the patch has played, the bus allocated itself
+c.insp
+ 
+// play onto this bus in a group before that of the filter
+z = Patch({ Saw.ar([400,401]) * 0.1 }).play(group: a, bus: c )
 
-(
-s.boot;
 
-a = Group.new;
- 
-b = Group.after(a);
- 
-// no index, not yet allocated
-c = Bus(\audio,nil,2);
- 
-y = Patch({ arg in,ffreq;
- LPF.ar(in,ffreq)
-},[
- c, // a proxy, the bus is yet to be allocated
- KrNumberEditor(3000,[200,8000,\exp])
-]).play(group: b);
- 
-// now that the patch has played, the bus allocated itself
-c.insp
- 
-// play onto this bus in a group before that of the filter
-z = Patch({ Saw.ar([400,401]) * 0.1 }).play(group: a, bus: c )
- 
- 
+Automagic setter for the inputs of the Patch
Sending controllers to the Patch while its playing
-Remapping the Bus while its playing
- 
+ 
 
-p = Patch({ arg freq=440; SinOsc.ar( freq ) });
-// with no args supplied, a KrNumberEditor was made as input for \freq
-p.args.dump;
-p.play
+p = Patch({ arg freq=440; SinOsc.ar( freq ) });
+// with no args supplied, a KrNumberEditor was made as input for \freq
+p.args.dump;
+ 
+ 
+p.play
+ 
+ 
+// each arg name automagically becomes an attribute of the patch object
+p.freq
 
-// looks for the input for the 'freq' arg
-// and sends it the .set(500) message if it responds to that
-p.set(\freq, 500)
- 
-// change the bus
-p.bus = 3
+// set its value
+p.freq.value = 300
+ 
+ 
+// look for the input for the 'freq' arg
+// and sends it the .set(500) message if it responds to that
+p.set(\freq, 500)
+ 
+ 
+ 
 
-// change it back
-p.bus = 0
- 
- 
 
 
Quite apart from Patch, you can use a spec to map a signal from a 0..1 range to the range of the spec :
+ 
+(
+var spec;
+spec = [ 100,18000,\exp].asSpec;
+ 
+{
+ SinOsc.ar(
+ // creates a BinaryOpUGen
+ spec.map( SinOsc.kr(0.1).range(0,1) ).dump
+ )
+}.play
+ 
+)
 
-(
-var spec;
-spec = [ 100,18000,\exp].asSpec;
 
-{
- SinOsc.ar(
- // creates a BinaryOpUGen
- spec.map( SinOsc.kr(0.1).range(0,1) ).dump
- )
-}.play
- 
-)
- 
- 
you can also do that with a Patch, supplying the resulting function as an input to the patch:
 
-(
-var spec;
-spec = [ 100,18000,\exp].asSpec;
- 
-Patch({ arg freq;
- SinOsc.ar(freq)
-},[
- // creates a BinaryOpFunction
- spec.map( { SinOsc.kr(0.1).range(0,1) } ).dump
-]).play
-)
- 
+(
+var spec;
+spec = [ 100,18000,\exp].asSpec;
+ 
+Patch({ arg freq;
+ SinOsc.ar(freq)
+},[
+ // creates a BinaryOpFunction
+ spec.map( { SinOsc.kr(0.1).range(0,1) } ).dump
+]).play
+)
+ 
 
A Patch is subclass of AbstractPlayer which is a subclass of AbstractFunction.
 
Because a Player IS A FUNCTION, a Spec may also be used to map another player's output and then use that as an input to a patch :
 
-(
-var spec;
-spec = [ 100,18000,\exp].asSpec;
+(
+var spec;
+spec = [ 100,18000,\exp].asSpec;
+ 
+Patch({ arg freq;
+ SinOsc.ar(freq)
+},[
+ // a BinaryOpFunction
+ spec.map( Patch({ SinOsc.kr(0.1).range(0,1) }) ).debug
+]).play
+ 
+)
 
-Patch({ arg freq;
- SinOsc.ar(freq)
-},[
- // a BinaryOpFunction
- spec.map( Patch({ SinOsc.kr(0.1).range(0,1) }) ).debug
-]).play
 
-)
- 
- 
 
spec.map is taking the player
and creating a BinaryOpFunction out of it.
@@ -451,9 +467,9 @@
(Patch({ SinOsc.ar(440) }) * 0.1).play
 
where the output of the Patch is multiplied by 0.1, reducing the amplitude.
-Internal optimization results in using a PlayerAmp
+Internal optimization in this case results in using a PlayerAmp
 
-// not yet implemented :(
+// true binary op players not yet implemented :(
(Patch({SinOsc.ar(440) }) % 0.4).play
 
 
@@ -461,115 +477,125 @@
 
Spawning
 
-(
+(
+ 
+a = Patch({
+ SinOsc.ar(800,0.0)
+});
+ 
+ 
+c = Bus.audio;
+a.play(bus: c);
+// a is now playing on bus c, which we can't hear
+ 
+// patch b will listen to buss c and play one enveloped grain
+b = Patch({ arg tone;
+ var gate;
+ gate = Trig1.kr(1.0,0.25);
+ tone = In.ar(tone,1);
+ tone * EnvGen.kr(Env([0,1,0],[0.05,0.05],\welch,1),gate,doneAction: 2)
+},[
+ c.index
+]);
+ 
+b.prepareForPlay(s);
+ 
+// play one grain
+b.spawn(atTime: 0.1);
+ 
+// play 100 grains
+Routine({
+ 1.0.wait;
+ 100.do({
+ b.spawn(atTime: 0.1);
+ 0.25.wait
+ })
+}).play(SystemClock)
+ 
+)
+ 
 
-a = Patch({
- SinOsc.ar(800,0.0)
-});
 
+Extra capabilities
+ 
+Because the Patch manages the creation of the SynthDef and also manages the Synth that is created at the time of play, it is possible to do some tricks that make client-server communication a bit easier. 
+ 
+Keep in mind that when the sc lang code that is inside a SynthDef or an Instr is run when the the SynthDef or InstrSynthDef is compiled. Its compiled into bytecode that is then sent to the server but then when the synth itself runs there is no sc language. There are no functions or 'if' statements.
+ 
+So once you have that concept clear in your head, here's how to violate it.
 
-c = Bus.audio;
-a.play(bus: c);
-// a is now playing on bus c, which we can't hear
 
-// patch b will listen to buss c and play one enveloped grain
-b = Patch({ arg tone;
- var gate;
- gate = Trig1.kr(1.0,0.25);
- tone = In.ar(tone,1);
- tone * EnvGen.kr(Env([0,1,0],[0.05,0.05],\welch,1),gate,doneAction: 2)
-},[
- c.index
-]);
+UGen:onTrig(function,value)
+ 
+ trigger.onTrig({ |time,value|
+ "did trig".postln
+ })
 
-b.prepareForPlay(s);
+On receiving a trigger (a non-positive to positive transition) evaluate the function IN THE CLIENT LANGUAGE. A value may also be passed in which will be polled and passed to the function.
 
-// play one grain
-b.spawn(atTime: 0.1);
+(
+Patch({ |freq=200|
+ var out;
+ 
+ out = LFSaw.ar(freq);
+ 
+ (Dust.kr(0.3)).onTrig({ |time,value|
+ ["dusty",time,value].postln
+ },out); // this value will be polled anytime the trig goes
+ 
+ out * 0.1 
 
-// play 100 grains
-Routine({
- 1.0.wait;
- 100.do({
- b.spawn(atTime: 0.1);
- 0.25.wait
- })
-}).play(SystemClock)
- 
+}).play
+ 
)
 
+(
+p = Patch({ |freq=200|
 
+ (freq >= 300).onTrig({
+ "GREATER !".postln
+ });
+ 
+ LFSaw.ar(freq) * 0.1
+});
 
-Extra capabilities
- 
-Because the Patch manages the creation of the SynthDef and also manages the Synth that is created at the time of play, it is possible to do some tricks that make client-server communication a bit easier. 
- 
-Keep in mind that when the sc lang code that is inside a SynthDef or an Instr is run when the the SynthDef or InstrSynthDef is compiled. Its compiled into bytecode that is then sent to the server but then when the synth itself runs there is no sc language. There are no functions or 'if' statements.
- 
-So once you have that concept clear in your head, here's how to violate it.
+p.play
 
+)
 
-UGen:onTrig(function,value)
- 
- trigger.onTrig({ |time,value|
- "did trig".postln
- })
+p.freq.value = 400
 
-On receiving a trigger (a non-positive to positive transition) evaluate the function IN THE CLIENT LANGUAGE. A value may also be passed in which will be polled and passed to the function.
+p.freq.value = 200
 
-Patch({ |freq=200|
- 
- (Dust.kr(0.3)).onTrig({ |time,value|
- ["dusty",time,value].postln
- },LFSaw.kr(0.2)); // value to be polled
- 
- LFSaw.ar(freq)
- 
-}).play
- 
- 
- 
-p = Patch({ |freq=200|
- 
- (freq >= 300).onTrig({
- "greater".postln
- });
- 
- LFSaw.ar(freq)
-});
- 
- 
-p.set(\freq,400)
- 
-p.set(\freq,200)
- 
- 
- 
- 
- 
-p = Patch({ |freq=200|
- 
- var lfo;
- lfo = LFSaw.kr(0.2);
- Dust.kr(2.0).onTrig({ |time,value|
- [time,value].postln
- },lfo);
- 
- LFSaw.ar(freq)
-});
- 
-p.play
 
+ 
+(
+ 
+p = Patch({ |freq=200|
+ 
+ var lfo;
+ lfo = LFSaw.kr(0.2);
+ Dust.kr(2.0).onTrig({ |time,value|
+ [time,value].postln
+ },lfo);
+ 
+ LFSaw.ar(freq)
+});
+ 
+p.play
+ 
+)
 
-You could also spawn more synths.
 
+You could also spawn more synths.
 
-What happens is happening is that a ClientOnTrigResponder is added to the InstrSynthDef's stepchildren. When a Patch plays it also plays its children (the inputs to the patch) and its stepchildren. The ClientOnTrigResponder adds an OSCpathResponder when the synth starts and removes it when the synth stops. 
 
+What is happening is that a ClientOnTrigResponder is added to the InstrSynthDef's stepchildren. When a Patch plays it also plays its children (the inputs to the patch) and its stepchildren. The ClientOnTrigResponder adds an OSCpathResponder when the synth starts and removes it when the synth stops. 
+ 
 
 
 
-see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
+see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
 
 
 

Modified: trunk/build/Help/Libraries/crucial/Players/InstrGateSpawner.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Players/InstrGateSpawner.html 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/Help/Libraries/crucial/Players/InstrGateSpawner.html 2008-07-16 00:44:37 UTC (rev 7689)
@@ -5,27 +5,32 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.42">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
-p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0019b7}
+p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #001fb3}
p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Verdana}
p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Verdana}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a71e12}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #a71e12}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #942b17}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #942b17}
p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0019b7; min-height: 12.0px}
-span.s1 {color: #0019b7}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
+p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
+p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #001fb3; min-height: 12.0px}
+span.s1 {color: #001fb3}
span.s2 {color: #000000}
-span.s3 {color: #a71e12}
+span.s3 {color: #942b17}
span.s4 {font: 9.0px Monaco; color: #000000}
span.s5 {font: 9.0px Monaco}
-span.s6 {color: #606060}
-span.s7 {color: #326f17}
+span.s6 {color: #0000bf}
+span.s7 {color: #bf0000}
+span.s8 {color: #606060}
+span.s9 {color: #436c1d}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -169,9 +174,9 @@
// note that the old tempo settings persist until the end of the bar
(
 
-InstrGateSpawner({ arg sample,start=0,dur,env,tempo;
+InstrGateSpawner({ arg sample,start=0,dur,env;
 var gate;
- gate = Trig1.kr(1.0,dur / tempo);
+ gate = Trig1.kr(1.0,dur / Tempo.kr);
 
 PlayBuf.ar( 
 sample.numChannels, 
@@ -195,36 +200,34 @@
// change the (global) tempo using the tempo control at the top
// you can also change the beats setting on the sample
(
-var sample;
-InstrGateSpawner({ arg sample,start=0,dur,pchRatio,env,tempo;
- var gate;
- gate = Trig1.kr(1.0,dur / tempo);
- 
- PlayBuf.ar( 
- sample.numChannels, 
- sample.bufnumIr,
- sample.bufRateScaleIr * pchRatio,
- 1,
- start,
- 1
- ) * EnvGen.kr(env,gate, doneAction: 2)
-},[
- sample = Sample("a11wlk01.wav"),
- Pfunc({ arg igs;
- (igs.beat * sample.beatsize).wrap(0,sample.end) // in samples
- }),
- 0.125,
- KrNumberEditor(1.0,[-4.0,4.0]),
- Env.adsr(0.02,releaseTime:0.1)
- 
-],0.125).gui
- 
+var sample;
+InstrGateSpawner({ arg sample,start=0,dur,pchRatio,env;
+ var gate;
+ gate = Trig1.kr(1.0,dur / Tempo.kr);
+ 
+ PlayBuf.ar( 
+ sample.numChannels, 
+ sample.bufnumIr,
+ sample.bufRateScaleIr * pchRatio,
+ 1,
+ start,
+ 1
+ ) * EnvGen.kr(env,gate, doneAction: 2)
+},[
+ sample = Sample("a11wlk01.wav"),
+ Pfunc({ arg igs;
+ (igs.beat * sample.beatsize).wrap(0,sample.end) // in samples
+ }),
+ 0.125,
+ KrNumberEditor(1.0,[-4.0,4.0]),
+ Env.adsr(0.02,releaseTime:0.1)
+ 
+],0.125).gui
+ 
)
 
-There is a large client side performance hit to build the sample's waveform display
-during which the grain commands stop getting sent. (someone will make a better
-waveform display some day...)
 
+ 
There is also a problem (currently) on the server whereby it can't accept the OSC commands
while it is dealing with loading the sample. You can use ScurryableInstrGateSpawner-scurry,
a subclass of InstrGateSpawner that can scurry ahead of time, sending OSC bundles
@@ -258,7 +261,7 @@
 
layout = FlowView.new;
 
-ToggleButton(layout,"Gnome",{
+ToggleButton(layout,"Gnome",{
 if(nome.isPlaying.not,{ nome.play(atTime: 1) })
},{
 if(nome.isPlaying,{ nome.stop })
@@ -297,7 +300,7 @@
compare with the first example from Pbind help
 
(
-SynthDef(\cfstring1.postln, { arg i_out, freq = 360, gate = 1, pan, amp=0.1;
+SynthDef(\cfstring1.postln, { arg i_out, freq = 360, gate = 1, pan, amp=0.1;
 var out, eg, fc, osc, a, b, w;
 fc = LinExp.kr(LFNoise1.kr(Rand(0.25,0.4)), -1,1,500,2000);
 osc = Mix.fill(8, { LFSaw.ar(freq * [Rand(0.99,1.01),Rand(0.99,1.01)], 0, amp) }).distort * 0.2;
@@ -306,12 +309,12 @@
 #a, b = out;
 Out.ar(i_out, Mix.ar(PanAz.ar(4, [a, b], [pan, pan+0.3])));
}).load(s);
- 
+ 
SynthDescLib.global.read;
 
)
 
-e = Pbind(\degree, Pwhite(0,12), \dur, 0.2, \instrument, \cfstring1).play; // returns an EventStream
+e = Pbind(\degree, Pwhite(0,12), \dur, 0.2, \instrument, \cfstring1).play; // returns an EventStream
 
 
 

Modified: trunk/build/SCClassLibrary/crucial/Editors/EnvEditor.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Editors/EnvEditor.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Editors/EnvEditor.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -58,7 +58,7 @@
env {// direct access for the gui
^value // the prototype env that we edit
}
-
+ copy { ^this.class.new(value.deepCopy,levelSpec) }
guiClass { ^EnvEditorGui }

}

Modified: trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -43,6 +43,7 @@
action.value(value);
}
spec { ^thisMethod.subclassResponsibility }
+ copy { ^this.class.new.value_(value.copy) }

}

@@ -62,8 +63,9 @@
this.value = spec.constrain(value);
this.changed(\spec);
}
- value_ { |v|
+ value_ { |v,change=true|
value = spec.constrain(v);
+ if(change,{ this.changed });
}
setUnmappedValue { arg unipolar,change=true;
this.value = spec.map(unipolar);
@@ -90,7 +92,7 @@
}
rate { ^spec.rate } // probably scalar

-
+ copy { ^this.class.new(value,spec) }
guiClass { ^NumberEditorGui }

}
@@ -101,9 +103,11 @@

init { arg val,aspec;
super.init(val, aspec);
- lag = defaultLag;
+ if(spec.isKindOf(NoLagControlSpec).not,{
+ lag = defaultLag;
+ });
}
- //rate { ^\control }
+
canDoSpec { arg aspec; ^aspec.isKindOf(ControlSpec) }

addToSynthDef { arg synthDef,name;
@@ -125,14 +129,23 @@
connectToPatchIn { arg patchIn,needsValueSetNow = true;
patchOut.connectTo(patchIn,needsValueSetNow);
}
+ copy { ^this.class.new(value,spec).lag_(lag) }

-
guiClass { ^KrNumberEditorGui }

}

IrNumberEditor : NumberEditor {
- rate { ^\scalar } // was \control but this is correct now
+ init { arg val,aspec;
+ super.init(val, aspec);
+ if((spec.isKindOf(ScalarSpec) or: spec.isKindOf(StaticSpec)).not,{
+ // let's assume you are lazy and specifying \freq
+ // we are going to guess you are using this for i_freq
+ spec = spec.as(ScalarSpec);
+ // if you wanted it for patterns or instr then use a simple NumberEditor
+ });
+ }
+ rate { ^spec.rate } // \scalar or \static
addToSynthDef { arg synthDef,name;
synthDef.addIr(name,this.synthArg);
}
@@ -146,6 +159,8 @@
}

+
+
// paul.crabbe@...
PopUpEditor : KrNumberEditor {

Modified: trunk/build/SCClassLibrary/crucial/Instr/Instr.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/Instr.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Instr/Instr.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -328,7 +328,6 @@
}

-
asString { ^"%(%)".format(this.class.name, this.defName.asCompileString) }
storeArgs {
if(this.path.notNil,{
@@ -337,6 +336,7 @@
^[this.dotNotation,this.func,this.specs,this.outSpec]
});
}
+ copy { ^this } // unless you change the address its the same instr

*initClass {
Class.initClassTree(Document);
@@ -390,9 +390,19 @@

guiBody { arg layout;
var defs,tf,source,lines,h,w,specWidth;
+
+ this.argNames.do({ arg a,i;
+ layout.startRow;
+ ArgNameLabel( a ,layout,150);
+ CXLabel(layout, " = " ++ this.defArgAt(i).asString,100);
+ specWidth = min(layout.indentedRemaining.width,300);
+ this.specs.at(i).asCompileString.gui(layout,specWidth@...);
+ });
+
+ layout.startRow;
source = this.func.def.sourceCode;
if(source.notNil,{
- lines = source.split($\n);
+ lines = ["\n"] ++ source.split($\n).collect({|l| " "++l}) ++ ["\n"];

w = lines.maxValue({ |l| l.size }) * 7;
h = lines.size * 13;
@@ -401,25 +411,20 @@
tf.string = source;
tf.font_(GUI.font.new("Helvetica",10.0));
});
+
+ ArgNameLabel("outSpec:",layout.startRow,150);
+ this.outSpec.asString.gui(layout);
+
if(path.notNil,{
CXLabel(layout.startRow,path);
// ActionButton(layout.startRow,"open file...",{ path.openTextFile });
});
- ArgNameLabel("outSpec:",layout.startRow,150);
- this.outSpec.asString.gui(layout);
- this.argNames.do({ arg a,i;
- layout.startRow;
- ArgNameLabel( a ,layout,150);
- CXLabel(layout, " = " ++ this.defArgAt(i).asString,100);
- specWidth = min(layout.indentedRemaining.width,300);
- this.specs.at(i).asCompileString.gui(layout,specWidth@...);
- });

layout.startRow;
if(path.notNil and: { File.exists(this.path) },{
ActionButton(layout,"edit File",{ this.path.openTextFile });
});
- ActionButton(layout,"make Patch",{ Patch(this.name).topGui });
+ ActionButton(layout,"make a Patch",{ Patch(this.name).topGui });
}
}

@@ -441,6 +446,7 @@
}
asDefName { ^instr.asDefName }
storeArgs { ^[name] }
+
}

@@ -464,7 +470,8 @@
//specs
specs = this.argNames.collect({ arg ag,i;
ag.asSpec ?? {
- ("UGenInstr-init spec not found for:" + ag).warn;
+ ("UGenInstr:init Spec.specs has no entry for: % so guessing ControlSpec".format(ag.asCompileString)).warn;
+ nil.asSpec
}
});
}
@@ -506,7 +513,7 @@
^if(nn.notNil,{nn.copyRange(1,nn.size-1)},{[]});
}

- initAt { arg i; ^(this.defArgAt(i) ?? {this.specs.at(i).default}) }
+ initAt { arg i; ^(this.defArgAt(i) ?? {this.specs.at(i).tryPerform(\default)}) }
argNameAt { arg i;
var nn;
nn=this.funcDef.argNames;

Modified: trunk/build/SCClassLibrary/crucial/Instr/Patch.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -182,6 +182,25 @@
(argg.asString + "does not respond to set").warn;
});
}
+ doesNotUnderstand { arg selector ... dnuargs;
+ var sel,setter,argName,index;
+ sel = selector.asString;
+ setter = sel.last == $_;
+ if(setter,{
+ argName = sel.copyRange(0,sel.size-2).asSymbol;
+ },{
+ argName = sel.asSymbol;
+ });
+ index = this.argNames.detectIndex({ |an| an == argName });
+ if(index.isNil,{
+ ^this.superPerformList(\doesNotUnderstand, selector, dnuargs);
+ });
+ if(setter,{
+ this.setInput(index,dnuargs[0])
+ },{
+ ^args[index]
+ });
+ }
argNames { ^this.instr.argNames }
argNameAt { arg i; ^instr.argNameAt(i) }
specAt { arg i; ^instr.specs.at(i) }
@@ -506,23 +525,7 @@
});
^result
}
- reportError {

-
- }
-
- /*storeModifiersOn { arg stream;
- // this allows a known defName to be used to look up in the cache
- // otherwise a Patch doesn't know its defName until after building
- if(defName.notNil,{
- stream << ".defName_(" <<< defName << ")";
- })
- }*/
- /*defName_ { arg df;
- // for reloading from storeModifiersOn
- defName = df;
- }*/
-
children { ^args }

printOn { arg s;

Modified: trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -2,8 +2,10 @@
/*
a player that can switch playing different players in its socket

- should all be same rate
- numChannels will adapt
+ numChannels will cause all players played within the socket to automatically adapt :
+ stereo mixed to mono,
+ mono expanded to stereo
+
*/

PlayerSocket : AbstractPlayerProxy {
@@ -11,6 +13,7 @@
var <>round,<>rate,<>numChannels;
var <>env,<socketGroup,sched;
var <lastPlayer,<envdSource,onBat, dee,dum;
+ var <fuseBlown = false;

*new { arg rate=\audio,numChannels=2,round=0.0,env;
^this.prNew(rate,numChannels,round,env)
@@ -23,10 +26,20 @@
}
psinit {
sched = OSCSched.new;
- dee = EnvelopedPlayer(PlayerInputProxy(AudioSpec(numChannels)),env,numChannels);
- dum = EnvelopedPlayer(PlayerInputProxy(AudioSpec(numChannels)),env,numChannels);
- dee.name = this.name + "EnvelopedPlayer1";
- dum.name = this.name + "EnvelopedPlayer2";
+ if(this.rate == \audio,{
+ dee = EnvelopedPlayer(PlayerInputProxy(AudioSpec(numChannels)),env,numChannels);
+ dum = EnvelopedPlayer(PlayerInputProxy(AudioSpec(numChannels)),env,numChannels);
+ dee.name = this.name + "EnvelopedPlayer1";
+ dum.name = this.name + "EnvelopedPlayer2";
+ dee.onFuseBlown = { |time,value| this.fuseDidBlow(value) };
+ dum.onFuseBlown = dee.onFuseBlown;
+ },{
+ dee = PlayerInputProxy(\bipolar);
+ dum = PlayerInputProxy(\bipolar);
+ dee.name = this.name + "dee";
+ dum.name = this.name + "dum";
+ });
+
// dee and dum are swapped on alternate spawns
// now playing:
envdSource = dee;
@@ -159,7 +172,7 @@
}
)
}
-
+
spawnToBundle { arg bundle;
if(source.notNil,{
this.setSourceToBundle(source,bundle);
@@ -168,7 +181,7 @@
}
synthArg { ^this.bus.index }

- // prepared objects only
+ // the source should be already prepared
setSource { arg s,atTime,releaseTime;
var bundle;
if(this.server.notNil,{ // else not even playing, or not loaded
@@ -179,20 +192,29 @@
source = s;
});
}
- // the main switching method
- // the source should be prepared
+ // the source should be already prepared
setSourceToBundle { arg s,bundle,releaseTime;
+ // the main switching method
var currentSubject;
+
if(envdSource.isPlaying,{
envdSource.releaseToBundle(releaseTime,bundle);
# envdSource, onBat = [onBat,envdSource];
});
- if(envdSource.subject.isKindOf(PlayerInputProxy),{
- envdSource.subject.freeToBundle(bundle)
+ if(this.rate == 'audio',{
+ if(envdSource.subject.isKindOf(PlayerInputProxy),{
+ envdSource.subject.freeToBundle(bundle)
+ });
+ source = s;
+ envdSource.subject = source;
+ },{
+ if(envdSource.isKindOf(PlayerInputProxy),{
+ envdSource.freeToBundle(bundle)
+ });
+ source = s;
+ envdSource = source;
});

- source = s;
- envdSource.subject = source;
if(this.bus.rate != source.rate,{
if(this.bus.isNil,{
"PlayerSocket:setSourceToBundle: I am not prepared".error;
@@ -201,13 +223,11 @@
+ this.bus.rate + source.rate).error(this,source);
})
});
+ socketStatus = \switching;
envdSource.spawnOnToBundle(socketGroup,this.bus,bundle);
- socketStatus = \switching;
bundle.addFunction({
- if(socketStatus != \switching, {
- socketStatus.debug("socket Status changed !!");
- });
socketStatus = \isPlaying;
+ fuseBlown = false;
lastPlayer = source;
{ this.changed; nil; }.defer;
nil
@@ -217,7 +237,12 @@
super.didFree;
socketStatus = \isSleeping;
}
-
+ fuseDidBlow { |value|
+ "% produced bad value: %".format(source,value).warn;
+ {
+ this.changed(\fuseDidBlow)
+ }.defer
+ }
// emergency kill off contents
socketFreeAll {
socketGroup.freeAll
@@ -225,6 +250,13 @@
name {
^name ?? {this.class.name.asString}
}
+
+ limit_ { |boo|
+ if(this.rate == \audio,{
+ dee.limit = boo;
+ dum.limit = boo;
+ })
+ }
}

PlayerEffectSocket : PlayerSocket {
@@ -240,3 +272,63 @@
super.setSourceToBundle(aplayer,bundle,releaseTime);
}
}
+
+/*
+a pure control class
+
+ControlPlayerSocket : PlayerSocket {
+
+
+ *new { arg round=0.0;
+ ^this.prNew(\control,1,round)
+ }
+ psinit {
+ sched = OSCSched.new;
+ dee = PlayerInputProxy(\bipolar);
+ dum = PlayerInputProxy(\bipolar);
+ dee.name = this.name + "EnvelopedPlayer1";
+ dum.name = this.name + "EnvelopedPlayer2";
+ // dee and dum are swapped on alternate spawns
+ // now playing:
+ envdSource = dee;
+ // "on bat" is a baseball term : the guy who is up to bat next
+ onBat = dum;
+ }
+
+ // the main switching method
+ // the source should be prepared
+ setSourceToBundle { arg s,bundle,releaseTime;
+ var currentSubject;
+ if(envdSource.isPlaying,{
+ envdSource.releaseToBundle(releaseTime,bundle);
+ # envdSource, onBat = [onBat,envdSource];
+ });
+ if(envdSource.isKindOf(PlayerInputProxy),{
+ envdSource.subject.freeToBundle(bundle)
+ });
+
+ source = s;
+ envdSource.subject = source;
+ if(this.bus.rate != source.rate,{
+ if(this.bus.isNil,{
+ "PlayerSocket:setSourceToBundle: I am not prepared".error;
+ },{
+ ("PlayerSocket:setSourceToBundle bus and source have different rates:"
+ + this.bus.rate + source.rate).error(this,source);
+ })
+ });
+ envdSource.spawnOnToBundle(socketGroup,this.bus,bundle);
+ socketStatus = \switching;
+ bundle.addFunction({
+ if(socketStatus != \switching, {
+ socketStatus.debug("socket Status changed !!");
+ });
+ socketStatus = \isPlaying;
+ lastPlayer = source;
+ { this.changed; nil; }.defer;
+ nil
+ });
+ }
+}
+
+*/

Modified: trunk/build/SCClassLibrary/crucial/Players/SimplePlayerEffect.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/SimplePlayerEffect.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Players/SimplePlayerEffect.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -57,13 +57,16 @@
/*
put an envelope on the player's output bus.
correct numChannels of the player's output eg. from 1 to 2 if needed
+ protect against bad values (nan, inf)
+ set limit = true to add a limiter
*/
EnvelopedPlayer : AbstractSinglePlayerEffect {

- var <>env,<>numChannels;
+ var <>env,<>numChannels,<>limit,<>onFuseBlown;
+ var fuseListener;

- *new { arg player,env,numChannels=2;
- ^super.new(player).env_(env).numChannels_(numChannels)
+ *new { arg player,env,numChannels=2,limit=false;
+ ^super.new(player).env_(env).numChannels_(numChannels).limit_(limit)
}
storeArgs { ^[subject,env,numChannels] }
asSynthDef {
@@ -72,20 +75,35 @@
var good;
pnc = subject.numChannels;
in = In.ar(i_bus,pnc);
- good = BinaryOpUGen('==', CheckBadValues.kr(in, 0, 0), 0);
+ good = BinaryOpUGen('==', CheckBadValues.ar(in, 0, 0), 0);
// silence the output if freq is bad
in = in * good * EnvGen.kr(env,gate,doneAction:0);
+ // phone home
+ SendTrig.kr(1.0-A2K.kr(good),1,in);
+ if(limit,{
+ in = Limiter.ar(in)
+ });
if(numChannels.notNil,{
in = NumChannels.ar(in,numChannels,true);
});
ReplaceOut.ar(i_bus,in)
})
}
- defName { ^this.class.name.asString ++ numChannels.asString ++
+ defName { ^this.class.name.asString ++ numChannels.asString ++ limit.binaryValue.asString ++
env.asCompileString.hash.asFileSafeString
}
synthDefArgs { ^[\i_bus,patchOut.synthArg,\gate,1.0] }
-
+ didSpawn {
+ var commandpath = ['/tr', this.synth.nodeID, 1];
+ fuseListener = OSCpathResponder(this.server.addr, commandpath,
+ {|time,responder,message|
+ (onFuseBlown ? {|time,msg| "% got bad value: %".format(this,msg).warn }).value(time,message[3])
+ });
+ fuseListener.add;
+ }
+ didStop {
+ fuseListener.remove;
+ }
// this is a once-only event; you cannot retrigger it
releaseToBundle { arg releaseTime,bundle;
if(releaseTime.isNil,{ releaseTime = env.releaseTime; });

Modified: trunk/build/SCClassLibrary/crucial/Sequencers/BusDriver.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Sequencers/BusDriver.sc 2008-07-15 22:05:41 UTC (rev 7688)
+++ trunk/build/SCClassLibrary/crucial/Sequencers/BusDriver.sc 2008-07-16 00:44:37 UTC (rev 7689)
@@ -1,5 +1,5 @@

-BusDriver : SynthlessPlayer {
+AbstractBusDriver : SynthlessPlayer {

var <>lag=0.0,<>latency=0.1;
var sched,bus,msg,bnd,resched,routine;
@@ -17,10 +17,47 @@
}
stopToBundle { arg bundle;
super.stopToBundle(bundle);
- bundle.addMessage(this,\reset);
+ bundle.addMessage(this,\didStop);
}
}

+BusDriver : AbstractBusDriver {
+
+ var <value,<>spec;
+
+ *new { |value=0.0,spec=\unipolar|
+ ^super.new.spec_(spec.asSpec).value_(value)
+ }
+
+ poll { ^value }
+ value_ { |v|
+ value = spec.constrain(v);
+ if(this.isPlaying,{
+ this.bus.set(value)
+ });
+ }
+ activeValue_ { |v|
+ this.value = v;
+ this.changed;
+ }
+ spawnToBundle { |b|
+ var v;
+ super.spawnToBundle(b);
+ b.add(this.bus.setMsg(value));
+ v = value;
+ b.addFunction({// just in case it changed
+ if(v != value,{
+ this.bus.set(value);
+ })
+ });
+ }
+ storeOn { |stream| value.storeOn(stream) }
+ guiClass { ^KrNumberEditorGui }
+ storeArgs { ^[value,spec] }
+}
+
+
+
/*
StreamKr : Kr { // trigger is a kr rate trigger

@@ -49,7 +86,7 @@
}
*/

-StreamKrDur : BusDriver {
+StreamKrDur : AbstractBusDriver {

var <>values,<>durations;
var valst,deltast,<lastValue,<delta,<beat;
@@ -113,9 +150,13 @@
});
});
}
- reset {
+ didStop { this.stopRoutine }
+ stopRoutine {
routine.stop;
- }
+ }
+ resetRoutine {
+ routine.reset;
+ }
// has no synth, just a bus
spawnToBundle { arg bundle;
valst = values.asStream;
@@ -167,9 +208,9 @@
}

-Stream2Trig : StreamKrDur { // outputs just a single pulse trig
+Stream2Trig : StreamKrDur { // outputs just a single pulse trig with the amplitude of the value stream

- // *new(levels, deltas)
+ // *new(amplitudes, deltas)

// doesn't use lag
instrArgFromControl { arg control;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscribe and unsubscribe): http://swiki.hfbk-hamburg.de:8888/MusicTechnology/880
archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/

LightInTheBox - Buy quality products at wholesale price