Nabble - Supercollider - Dev (old)

Re: SF.net SVN: supercollider: [7526] trunk/build

2008-11-02T02:45:04Z

>Revision: 7526
> http://svn.sourceforge.net/supercollider/?rev=7526&view=rev
>Author: cruxxial
>Date: 2008-04-19 17:20:05 -0700 (Sat, 19 Apr 2008)
>
>Log Message:
>-----------
>big fix: Object was returning rate of \scalar when it should be \noncontrol
>fixing Patch/InstrSynthDef/PatchOut for this
>For a SynthDef \scalar means .ir rate input
>\noncontrol means it will not be in the SynthDef
>I think and hope this change shouldn't affect anybody. Its mostly
>related to InstrSynthDef and the PatchOut system.
>but: generic Objects that aren't controls or players are now rate
>\noncontrol, not \scalar

ok, this may break some code.

\rate is used by UGens too, and other systems may rely on \scalar as
a retgurn value. I think it might be worth separating the interface
with a spcific rate method (like "playerRate" or so).

--

.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

do i overwrite such methods ... ? ...

2008-10-17T04:29:49Z

Hi List !

... hm ... creating some kind of SCSoundFileView from a buffer seems
not to be that easy ...
... does sc create temp-files from the content of its buffers i could
access ?

nevertheless ... there's another question bothering me ...
well ...
i have different classes that get a server object passsed in.
i believe that objects get passed by ref not value ... so that should
be the same object in each class, shouldn't it ?
now ... if i define a, for example, "doWhenBooted" method inside each
class doesn't each definition overwrite the previous one ???

if it does not get overwritten ... why ?? ... how does sc handle
multiple definitions of such methods ?

perhaps it's obvious and that're stupid questions but, nevertheless,
i'm getting confused ...

greetings, oliver

_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SCSoundFileView for modification of Buffer-data

2008-10-15T05:48:54Z

Hello List !

i'm wondering if there is a possibility to view / edit sound-data
residing only in buffers on the sc-server.
... i'm writing a "live-loop-player-thingy" to do some sampling while
dj-ing
... so i want to record into buffers and then have the possibility to
do simple adjustments (like setting start and end)
and, if possible, i would prefer a visual representation like
SCSoundFileView ...

is there some class performing that task ?
(i'm quite sure there is ... but i can't find it ... ;-D )

thanks in advance
and have a nice day !
oliver
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

EZPopUpMenu

2008-07-17T01:21:01Z

I've made a very convenient class named EZPopUpMenu, which I have been
using for some time now. It simplifies a lot of the awkward coding
needed for a regular SCPopUpMenu. I wanted to post it here before I make
a quark out of it (or maybe it's even for the distro?) Any thoughts?

http://www.glyph.de/projects/sc3/EZPopUpMenu.zip

jostM
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7674] trunk/build/Help

2008-07-10T17:38:39Z

Revision: 7674
http://svn.sourceforge.net/supercollider/?rev=7674&view=rev
Author: cruxxial
Date: 2008-07-10 17:38:39 -0700 (Thu, 10 Jul 2008)

Log Message:
-----------
helpfile updates

Modified Paths:
--------------
trunk/build/Help/GUI/SCCompositeView.html
trunk/build/Help/Libraries/crucial/Sample/Sample.html
trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html

Modified: trunk/build/Help/GUI/SCCompositeView.html
===================================================================
--- trunk/build/Help/GUI/SCCompositeView.html 2008-07-10 19:27:04 UTC (rev 7673)
+++ trunk/build/Help/GUI/SCCompositeView.html 2008-07-11 00:38:39 UTC (rev 7674)
@@ -5,22 +5,26 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
-p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #1f36a0; min-height: 12.0px}
+p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #23389d; min-height: 12.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; min-height: 14.0px}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
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: #6e3d20}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #663f23}
p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-span.s1 {color: #0b2aab}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000; min-height: 12.0px}
+span.s1 {color: #102da7}
span.s2 {color: #000000}
-span.s3 {color: #6e3d20}
-span.s4 {color: #5a6628}
+span.s3 {color: #663f23}
+span.s4 {color: #0000bf}
span.s5 {color: #606060}
+span.s6 {color: #5d652c}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -195,8 +199,58 @@
 
 
resize contraints
-resize the window to see how the contents behave
+ 
+resize behaviour is specified by an integer:
+ 1 2 3
+ 4 5 6
+ 7 8 9
+ 
+ 1 - fixed to left, fixed to top
+ 2 - horizontally elastic, fixed to top
+ 3 - fixed to right, fixed to top
+ 
+ 4 - fixed to left, vertically elastic
+ 5 - horizontally elastic, vertically elastic
+ 6 - fixed to right, vertically elastic
+ 
+ 7 - fixed to left, fixed to bottom
+ 8 - horizontally elastic, fixed to bottom
+ 9 - fixed to right, fixed to bottom
+ 
+ 
+// resize behaviours
(
+var a;
+a = { |i|
+ var w, b, x;
+ i = i + 1;
+ w = SCWindow("resize:"+i, Rect(10 + (i * 110), 300, 100, 80));
+ b = w.view.bounds;
+ x = SCCompositeView(w, w.view.bounds)
+ .background_(Color.rand)
+ .resize_(i);
+ x.decorator = FlowLayout(x.bounds).gap_(0.0 @ 0.0);
+ 
+ {
+ var t;
+ t = SCStaticText(x, Rect(0, 0, 40, 40))
+ .background_(Color.rand)
+ .resize_(i)
+ .string_(i)
+ .font_(Font("Helvetica", 26));
+ }.dup;
+ 
+ w.front;
+ w.onClose = { a.do(_.close) };
+ 
+ 
+} ! 9;
+)
+ 
+ 
+ 
+ 
+(
w = SCWindow.new;
 
c = SCCompositeView(w,Rect(0,0,300,300));
@@ -209,44 +263,13 @@
 
b = SC2DSlider(c,Rect(100,100,100,100));
b.resize = 2; // x elastic
-b.setProperty(\minWidth,30); // up to a point
-b.setProperty(\maxWidth,200);
+b.setProperty(\minWidth,30); // up to a point
+b.setProperty(\maxWidth,200);
w.front;
 
)
-(bug: composite view should get limited by it's contents' limitations)
+(bug: composite view should get limited by it's contents' limitations)
(other bug: SC2DSlider should not draw its right edge to the left of its left edge)
 
-// resize behaviours
-(
-var a;
-a = { |i|
- var w, b, x;
- i = i + 1;
- w = SCWindow("resize:"+i, Rect(10 + (i * 110), 300, 100, 80));
- b = w.view.bounds;
- x = SCCompositeView(w, w.view.bounds)
- .background_(Color.rand)
- .resize_(i);
- x.decorator = FlowLayout(x.bounds).gap_(0.0 @ 0.0);
- 
- {
- var t;
- t = SCStaticText(x, Rect(0, 0, 40, 40))
- .background_(Color.rand)
- .resize_(i)
- .string_(i)
- .font_(Font("Helvetica", 26));
- }.dup;
- 
- w.front;
- w.onClose = { a.do(_.close) };
- 
- 
-} ! 9;
-)
- 
- 
- 
</body>
</html>

Modified: trunk/build/Help/Libraries/crucial/Sample/Sample.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Sample/Sample.html 2008-07-10 19:27:04 UTC (rev 7673)
+++ trunk/build/Help/Libraries/crucial/Sample/Sample.html 2008-07-11 00:38:39 UTC (rev 7674)
@@ -5,7 +5,7 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
@@ -13,23 +13,19 @@
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: 12.0px Helvetica; min-height: 14.0px}
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; color: #0928ab}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e}
+p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0e2ba7}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #6d3c21}
p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #556826}
-p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica; color: #000000}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Lucida Grande}
-p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
-p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e; min-height: 12.0px}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #77381e; min-height: 14.0px}
-span.s1 {color: #0928ab}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #5a662a}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Lucida Grande}
+span.s1 {color: #0e2ba7}
span.s2 {color: #000000}
span.s3 {font: 12.0px Lucida Grande}
span.s4 {color: #606060}
-span.s5 {color: #556826}
-span.s6 {color: #77381e}
+span.s5 {color: #5a662a}
+span.s6 {color: #6d3c21}
span.s7 {font: 9.0px Monaco}
-span.s8 {font: 9.0px Monaco; color: #0928ab}
+span.s8 {font: 9.0px Monaco; color: #0e2ba7}
span.s9 {font: 9.0px Monaco; color: #606060}
span.Apple-tab-span {white-space:pre}
</style>
@@ -182,7 +178,7 @@
 
 
 
-Beat Synching
+Beat Synching
 
(
 Instr([\help,\Sample],{ arg sample;
@@ -197,14 +193,14 @@
 
 p = Patch([\help,\Sample],
 [
- Sample("a11wlk01-44_1.aiff")
+ Sample("a11wlk01-44_1.aiff")
 ]);
 
 // move the tempo slider
 p.gui 
)
-Note that the patch will not play starting on the even bar division unless it is started with 
-p.play(atTime: 1)
+Note that the patch will not play starting on the even bar division unless it is started with 
+p.play(atTime: 1)
 
 
 
@@ -232,101 +228,5 @@
 
 
 
- 
- 
-/***
- 
-( 
-// hit load and select a rhythm
-// will stay beat locked and the beat will flow despite the cutting
-q = rrand(8,32);
- 
-Patch({arg gate,env,sample,pchRatio;
- var pchRatioKr,start;
- pchRatioKr = sample.pchRatioKr * pchRatio;
- start = LFSaw.kr(GetTempo.kr * sample.beats.reciprocal, sample.end * 0.5, sample.end * 0.5);
- 
- ReTrigger2.ar({ 
- PlayBuf.ar(sample.signal,sample.sampleRate,pchRatioKr,start.poll,0,sample.end);
- },gate,env,sample.numChannels)
-},
-[
- Stream2Trig(
- 1.0,
- Pseq(Array.geom(8.rand,2 ** -5, 2.0).scramble,inf)
- ),
- Env.asr(release:0.1),
- Sample(":Sounds:floating_1"),
- StreamKrDur(
- Pslide(Array.series(q,0.0,4.0 / q),inf,rrand(3,5),rrand(1,6)),
- rrand(0.125,0.5)
- )
-]).topGui
- 
-)
- 
- 
-( // will stay beat locked and the beat will flow despite the cutting
-q = rrand(8,32);
- 
-Patch({arg gate,env,sample,pchRatio;
- var pchRatioKr,start;
- pchRatioKr = sample.pchRatioKr * pchRatio;
- start = LFSaw.kr(GetTempo.kr * sample.beats.reciprocal, sample.end * 0.5, sample.end * 0.5);
- 
- ReTrigger2.ar({ 
- PlayBuf.ar(sample.signal,sample.sampleRate,pchRatioKr,start.poll,0,sample.end);
- },gate,env,sample.numChannels)
-},
-[
- Stream2Trig(
- 1.0,
- Pseq(Array.geom(8.rand,2 ** -5, 2.0).scramble,inf)
- ),
- Env.asr(release:0.1),
- Sample(":Sounds:floating_1"),
- StreamKrDur(
- Pslide(Array.series(q,-2.0,2.0 / q).scramble,inf,rrand(3,5),rrand(2,5)),
- rrand(0.125,1.0)
- )
-]).topGui
- 
-)
- 
- 
-( 
-Patch({arg gate,env,sample;
- var p;
- p = PlayBuf.ar(sample.signal,sample.sampleRate,sample.pchRatioKr,0,0,sample.end);
- Enveloper2.ar(p,gate,env,sample.numChannels)
-},
-[
- Stream2Trig(`([1,0,1,0,0,1,0,1]),`(Array.fill(8,{ 2 ** rrand(-5,-1) }))),
- Env.perc(release:0.2),
- Sample(":Sounds:floating_1")
-]).topGui
- 
-)
- 
-(
-Patch({arg gate,env,sample,startBeat;
- var p,s,e;
- p = sample.pchRatioKr;
- s = startBeat * sample.beatsize;
- e = s + LFNoise1.kr(0.2,9000.0,5000.0);
- Enveloper.ar({ PlayBuf.ar(sample.signal,sample.sampleRate,p,s,s,e); },gate,env,4,sample.numChannels)
-},
-[
- Stream2Trig(`(Array.fill(128.rand,{[1,0.125,0,0].choose})),`(Array.fill(128.rand,{ 2 ** rrand(-7,-1) }))),
- Env.perc(release:3.0),
- s = Sample(":Sounds:floating_1"),
- StreamKrDur( Pfunc({ s.beats.rand.round(0.25) }),Pfunc({ 2 ** rrand(-4,2)}))
-]).topGui
- 
-)
- 
- 
-***/
- 
</body>
</html>

Modified: trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html 2008-07-10 19:27:04 UTC (rev 7673)
+++ trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html 2008-07-11 00:38:39 UTC (rev 7674)
@@ -12,29 +12,29 @@
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: 10.0px Helvetica}
-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: #0928ab}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #77381e}
-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}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; min-height: 12.0px}
+p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0e2ba7}
+p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #6d3c21}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; min-height: 14.0px}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; min-height: 12.0px}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica}
p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Monaco; min-height: 17.0px}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #536526}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #0928ab}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e; min-height: 12.0px}
-p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #536526}
-p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e}
-p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica; color: #77381e; min-height: 11.0px}
-span.s1 {color: #0928ab}
-span.s2 {color: #000000}
-span.s3 {font: 10.0px Monaco; color: #000000}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #57642a}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #0e2ba7}
+p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #6d3c21; min-height: 12.0px}
+p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #57642a}
+p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #6d3c21}
+p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica; color: #6d3c21; min-height: 11.0px}
+span.s1 {color: #000000}
+span.s2 {font: 10.0px Monaco; color: #000000}
+span.s3 {color: #0e2ba7}
span.s4 {font: 9.0px Monaco; color: #000000}
span.s5 {font: 10.0px Monaco}
span.s6 {font: 9.0px Monaco}
-span.s7 {color: #77381e}
-span.s8 {color: #536526}
+span.s7 {color: #6d3c21}
+span.s8 {color: #57642a}
span.s9 {color: #606060}
span.Apple-tab-span {white-space:pre}
</style>
@@ -49,7 +49,7 @@
This plays a pattern in real time in the language, and sends those values as /c_set messages to its bus on the server.
Durations are specified in beats by a second pattern.
 
-Its timing are exact, its messages are sent to the server with a small latency period before they should be played. That is to say when you start playing a StreamKrDur, it will run slightly and exactly ahead of time.
+Timings are exact, its messages are sent to the server with a small latency period before they should be played. That is to say when you start playing a StreamKrDur, it will run slightly and exactly ahead of time.
It is cancellable and stoppable within Server-latency.
 
 values
@@ -66,125 +66,123 @@
 
dalek mating season I
(
- var freq;
- 
- freq = StreamKrDur( 
- Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
- 0.125,// a float
- 0.05);
- 
- Tempo.bpm = 100; // times are in beats
- 
- Patch({ arg freq;
- Saw.ar(freq,0.2)
- },[
- freq
- ]).play
+ f = StreamKrDur( 
+ Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
+ 0.125,// a float
+ 0.05);
+ 
+ Tempo.bpm = 100; // times are in beats
+ 
+ Patch({ arg freq;
+ Saw.ar(freq,0.2)
+ },[
+ f
+ ]).play
)
 
- 
+ 
 
(
- var freq;
- 
- freq = StreamKrDur( 
- Pbrown(40,100,100,inf), 
- `[ 1,2, 0.25], // an array 
- 0.05);
- 
- Tempo.bpm = 100; // times are in beats
- Patch({ arg freq=440;
- SinOsc.ar(freq,SinOsc.ar(600,0,0.3))
- //PMOsc.ar(freq,100,1.0,0,0.3)
- },[
- freq
- ]).play
+ var freq;
+ 
+ freq = StreamKrDur( 
+ Pbrown(40,100,100,inf), 
+ `[ 1,2, 0.25], // an array 
+ 0.05);
+ 
+ Tempo.bpm = 100; // times are in beats
+ Patch({ arg freq=440;
+ SinOsc.ar(freq,SinOsc.ar(600,0,0.3))
+ //PMOsc.ar(freq,100,1.0,0,0.3)
+ },[
+ freq
+ ]).play
)
- 
+ 
 
dalek mating season II
-(
-var freq,freq2,pmindex;
- 
- freq = StreamKrDur( 
- Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
- 0.25,// a float
- 0.1);
- 
- freq2 = StreamKrDur( 
- Pbrown(40,100,100,inf), 
- `[ 1,2, 0.25], // an array 
- 0.05);
- 
- pmindex = StreamKrDur( 
- Pbrown(1.5,3.0,0.1,inf), 
- Prand([0.25,0.125,1.0,3.0],inf), // a pattern
- 0.1);
- 
- Tempo.bpm = 100; // times are in beats
- Patch({ arg freq,freq2,pmindex;
- PMOsc.ar(freq,freq2,pmindex,0,0.3)
- },[
- freq,
- freq2,
- pmindex
- ]).gui
+(
+var freq,freq2,pmindex;
+ 
+ freq = StreamKrDur( 
+ Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
+ 0.25,// a float
+ 0.1);
+ 
+ freq2 = StreamKrDur( 
+ Pbrown(40,100,100,inf), 
+ `[ 1,2, 0.25], // an array 
+ 0.05);
+ 
+ pmindex = StreamKrDur( 
+ Pbrown(1.5,3.0,0.1,inf), 
+ Prand([0.25,0.125,1.0,3.0],inf), // a pattern
+ 0.1);
+ 
+ Tempo.bpm = 100; // times are in beats
+ Patch({ arg freq,freq2,pmindex;
+ PMOsc.ar(freq,freq2,pmindex,0,0.3)
+ },[
+ freq,
+ freq2,
+ pmindex
+ ]).gui
)
- 
- 
+ 
+ 
same thing with a separated Instr
(
- Instr([\oscillOrc,\pmosc],{ arg freq=400, freq2=500,pmindex=0,phasemod=0.0,amp=1.0;
- PMOsc.ar(freq,freq2,pmindex,phasemod,amp)
- });
+ Instr([\oscillOrc,\pmosc],{ arg freq=400, freq2=500,pmindex=0,phasemod=0.0,amp=1.0;
+ PMOsc.ar(freq,freq2,pmindex,phasemod,amp)
+ });
 
- p=Patch.new([ 'oscillOrc', 'pmosc' ],
- [
- StreamKrDur( 
- Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
- 0.25,// a float
- 0.1),
- StreamKrDur( 
- Pbrown(40,100,100,inf), 
- `[ 1,2, 0.25], // an array 
- 0.05), 
- StreamKrDur( 
- Pbrown(1.5,3.0,0.1,inf), 
- Prand([0.25,0.125,1.0,3.0],inf), // a pattern
- 0.1), 
- 0, 
- 0.3 
- ]);
- 
- p.gui;
+ p=Patch.new([ 'oscillOrc', 'pmosc' ],
+ [
+ StreamKrDur( 
+ Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
+ 0.25,// a float
+ 0.1),
+ StreamKrDur( 
+ Pbrown(40,100,100,inf), 
+ `[ 1,2, 0.25], // an array 
+ 0.05), 
+ StreamKrDur( 
+ Pbrown(1.5,3.0,0.1,inf), 
+ Prand([0.25,0.125,1.0,3.0],inf), // a pattern
+ 0.1), 
+ 0, 
+ 0.3 
+ ]);
+ 
+ p.gui;
)
 
A metronome
-(
-var nome,layout;
-nome = Patch({ arg beat,freq,amp;
- Decay2.ar( 
- K2A.ar(beat), 0.01,0.11, 
- SinOsc.ar( freq, 0, amp )
- )
- },[
- BeatClockPlayer.new(4.0),
- StreamKrDur(
- Pseq([ 750, 500, 300, 500, 750, 500, 400, 500, 750, 500, 400, 500, 750, 500, 400, 500 ],inf), 
- 1.0),
- StreamKrDur(
- Pseq([1,0.25,0.5,0.25,0.75,0.25,0.5,0.25,0.75,0.25,0.5,0.25,0.75,0.25,0.5,0.25] * 0.01,inf),
- 1.0)
- ]);
-layout = FlowView.new;
- 
-ToggleButton(layout,"Nome",{
- if(nome.isPlaying.not,{ nome.play(atTime: 4) })
-},{
- if(nome.isPlaying,{ nome.stop })
-},minWidth: 250);
- 
-)
+(
+var nome,layout;
+nome = Patch({ arg beat,freq,amp;
+ Decay2.ar( 
+ K2A.ar(beat), 0.01,0.11, 
+ SinOsc.ar( freq, 0, amp )
+ )
+ },[
+ BeatClockPlayer.new(4.0),
+ StreamKrDur(
+ Pseq([ 750, 500, 300, 500, 750, 500, 400, 500, 750, 500, 400, 500, 750, 500, 400, 500 ],inf), 
+ 1.0),
+ StreamKrDur(
+ Pseq([1,0.25,0.5,0.25,0.75,0.25,0.5,0.25,0.75,0.25,0.5,0.25,0.75,0.25,0.5,0.25] * 0.01,inf),
+ 1.0)
+ ]);
+layout = FlowView.new;
+ 
+ToggleButton(layout,"Nome",{
+ if(nome.isPlaying.not,{ nome.play(atTime: 4) })
+},{
+ if(nome.isPlaying,{ nome.stop })
+},minWidth: 250);
+ 
+)
 
In this case since the beat clock, and both stream kr durs are running all at the same tempo, it
would be slightly more efficient to use an InstrGateSpawner and do separate events. Only one scheduler then instead of 2. 
@@ -197,39 +195,39 @@
With a Pbind you are creating a new event for every note and creating new UGens and a new Synth each time. This is more like an analog synth: the oscillators play constantly and they are gated to create notes. 
(
 
- Tempo.bpm = 130;
- 
- Instr([\oscillOrc,\trigged, \pmosc],{ arg trig=0.0,freq=400, freq2=500,pmindex=0,phasemod=0.0,amp=1.0;
- PMOsc.ar(
- freq,
- freq2,
- pmindex,
- phasemod,
- Decay2.kr(trig)
- )
- });
- 
- p=Patch.new([\oscillOrc,\trigged, \pmosc],
- [
- BeatClockPlayer(16.0),
- 
- StreamKrDur( 
- Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
- 0.25,// a float
- 0.1),
- StreamKrDur( 
- Pbrown(40,100,100,inf), 
- `[ 1,2, 0.25], // an array 
- 0.05), 
- StreamKrDur( 
- Pbrown(1.5,3.0,0.1,inf), 
- Prand([0.25,0.125,1.0,3.0],inf), // a pattern
- 0.1), 
- 0, 
- 0.3 
- ]);
- 
- p.gui;
+ Tempo.bpm = 130;
+ 
+ Instr([\oscillOrc,\trigged, \pmosc],{ arg trig=0.0,freq=400, freq2=500,pmindex=0,phasemod=0.0,amp=1.0;
+ PMOsc.ar(
+ freq,
+ freq2,
+ pmindex,
+ phasemod,
+ Decay2.kr(trig)
+ )
+ });
+ 
+ p=Patch.new([\oscillOrc,\trigged, \pmosc],
+ [
+ BeatClockPlayer(16.0),
+ 
+ StreamKrDur( 
+ Prand(Array.fill(rrand(4,16),{ rrand(20,80).midicps }),inf),
+ 0.25,// a float
+ 0.1),
+ StreamKrDur( 
+ Pbrown(40,100,100,inf), 
+ `[ 1,2, 0.25], // an array 
+ 0.05), 
+ StreamKrDur( 
+ Pbrown(1.5,3.0,0.1,inf), 
+ Prand([0.25,0.125,1.0,3.0],inf), // a pattern
+ 0.1), 
+ 0, 
+ 0.3 
+ ]);
+ 
+ p.gui;
)
 
</body>

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7673] trunk/build/Help/Libraries/crucial/Instr/ InstrSpawner2.html

2008-07-10T12:27:05Z

Revision: 7673
http://svn.sourceforge.net/supercollider/?rev=7673&view=rev
Author: cruxxial
Date: 2008-07-10 12:27:04 -0700 (Thu, 10 Jul 2008)

Log Message:
-----------
removing obsolete InstrSpawner2 helpfile

Removed Paths:
-------------
trunk/build/Help/Libraries/crucial/Instr/InstrSpawner2.html

Deleted: trunk/build/Help/Libraries/crucial/Instr/InstrSpawner2.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Instr/InstrSpawner2.html 2008-07-10 19:25:40 UTC (rev 7672)
+++ trunk/build/Help/Libraries/crucial/Instr/InstrSpawner2.html 2008-07-10 19:27:04 UTC (rev 7673)
@@ -1,74 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-<meta http-equiv="Content-Style-Type" content="text/css">
-<title></title>
-<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.42">
-<style type="text/css">
-p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
-p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
-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: #0019b7}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a71e12}
-span.s1 {color: #0019b7}
-span.s2 {color: #326f17}
-span.s3 {color: #000000}
-span.Apple-tab-span {white-space:pre}
-</style>
-</head>
-<body>
-InstrSpawner2
- 
- 
-InstrSpawner2.new(name,args,noteOn, beatsPerStep,tempo)
- 
-name
- the instr name
-args
- each argument is taken .asStream and the stream is iterated during play
- 
-noteOn is a stream of values meaning:
- 1 noteOn
- arg streams are iterated and sent to a new synth
- 0 rest
- -1 legato 
- arg streams are interated and sent to the last synth
- 
-beatsPerStep (default 0.25)
- how many beats to wait between each step
-tempo (default is global Tempo)
- the Tempo object used for conversions
- 
- 
-(
- 
-Instr(\InstrSpawner,{ arg freq=1000,amp=1.0,env;
- 
- Saw.ar(freq,mul: amp)
- * EnvGen.kr(env,doneAction: 2)
-});
- 
-z = InstrSpawner2(\InstrSpawner,[
- Pbrown(40,90,3,inf).midicps,
- 0.2,
- Env.sine // does not get streamed
- ],
- Pseq([1,-1,-1,0,0,0,0,0,0,1,0,0,0],inf),
- 0.25 // 16th notes
- );
- 
-z.play;
- 
-)
- 
-z.stop;
- 
- 
-z.gui
- 
-</body>
-</html>

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7672] trunk/build/SCClassLibrary/crucial/Gui/ PageLayout.sc

2008-07-10T12:25:40Z

Revision: 7672
http://svn.sourceforge.net/supercollider/?rev=7672&view=rev
Author: cruxxial
Date: 2008-07-10 12:25:40 -0700 (Thu, 10 Jul 2008)

Log Message:
-----------
once again I broke Swing : adding a conditional to check if the window responds to \setTopLeftBounds

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc

Modified: trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc 2008-07-10 19:21:47 UTC (rev 7671)
+++ trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc 2008-07-10 19:25:40 UTC (rev 7672)
@@ -120,7 +120,7 @@
wbh = b.height + 17;
window.setInnerExtent(wbw,wbh);

- if(center) {
+ if(center and: {window.respondsTo(\setTopLeftBounds)}) {
// this should be a window method
fs = GUI.window.screenBounds;
wb = window.bounds;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7671] trunk/build/SCClassLibrary/crucial/Instr/ instrSupport.sc

2008-07-10T12:21:47Z

Revision: 7671
http://svn.sourceforge.net/supercollider/?rev=7671&view=rev
Author: cruxxial
Date: 2008-07-10 12:21:47 -0700 (Thu, 10 Jul 2008)

Log Message:
-----------
whoops ! forgot to check in Object:didSpawn

I was waiting with other check ins

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc

Modified: trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-07-10 10:33:37 UTC (rev 7670)
+++ trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-07-10 19:21:47 UTC (rev 7671)
@@ -252,6 +252,7 @@
stream << this.asCompileString;//.hash.asFileSafeString;
^2
}
+ didSpawn {}
}

+ UGen {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7669] trunk/build/SCClassLibrary

2008-07-09T11:44:11Z

Revision: 7669
http://svn.sourceforge.net/supercollider/?rev=7669&view=rev
Author: cruxxial
Date: 2008-07-09 11:44:10 -0700 (Wed, 09 Jul 2008)

Log Message:
-----------
SCWindow:setBoundsTopLeft - set bounds via a rect in the standard way of thinking where origin is top left.

Rect.right_ and Rect.bottom_ setters

MultiPageLayout - allow auto center on create. this should actually be an SCWindow method : center

ObjectGui, StringGui, AbstractPlayerGui center the window by default

Modified Paths:
--------------
trunk/build/SCClassLibrary/Common/GUI/osx/Base/GUIScreen.sc
trunk/build/SCClassLibrary/Common/Geometry/Rect.sc
trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc
trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc
trunk/build/SCClassLibrary/crucial/Gui/StringGui.sc
trunk/build/SCClassLibrary/crucial/Players/AbstractPlayerGui.sc

Modified: trunk/build/SCClassLibrary/Common/GUI/osx/Base/GUIScreen.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/GUI/osx/Base/GUIScreen.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/Common/GUI/osx/Base/GUIScreen.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -108,9 +108,18 @@
name = argName;
this.prSetName(argName);
}
+ // bounds are relative to the bottom left corner origin
bounds_ { arg argBounds;
this.prSetBounds(argBounds);
}
+ // set bounds relative to top left corner
+ setTopLeftBounds { |rect,menuSpacer=45|
+ rect = rect.copy;
+ // 45 is the height of the mac os menu
+ // if you are in full screen mode you would want to pass in 0
+ rect.top = SCWindow.screenBounds.height - rect.height - rect.top - menuSpacer;
+ this.bounds = rect
+ }
setInnerExtent { arg w,h; // resize window keeping top left corner fixed
var b;
b = this.bounds;

Modified: trunk/build/SCClassLibrary/Common/Geometry/Rect.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Geometry/Rect.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/Common/Geometry/Rect.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -44,7 +44,9 @@
center_ { arg center; ^this.class.aboutPoint(center, width * 0.5, height * 0.5) }

bottom { ^top + height }
+ bottom_ { |b| top = top - (this.bottom - b) }
right { ^left + width }
+ right_ { |r| left = left - (this.right - r) }

leftTop { ^Point.new(this.left, this.top) }
rightTop { ^Point.new(this.right, this.top) }

Modified: trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -1,50 +1,29 @@

-ObjectGui : SCViewHolder { // aka AbstractController
-
+ObjectGui : SCViewHolder {
+ /*
+ this is a controller class. it creates the views and implements the relationship between them and the model
+ model: the object for which this is a graphical user interface
+ view: this.view is the flow view (aka the arg layout) that is passed to guiBody
+ individual views/widgets are placed in it and their actions talk to either this object or the model
+ */
var <model,<dragSource;

guiBody { arg layout;
- // override this in your gui subclass
+ /* implement this method in your gui subclass */

- // or if you are lazy then just implement guiBody in the MODEL
+ // if your model implement guiBody then call that
if(model.respondsTo(\guiBody) and: {model.isKindOf(ObjectGui).not},{
model.guiBody(layout)
},{
- // or by default we make a gui showing variables that the class allows
+ /*
+ or by default we make a gui showing variables that the class allows
+ see instVarsForGui
+ by default this is NO variables at all.
+ */
ObjectGui.guiInstVarsOf(model,layout)
- //ObjectGui.guiVarsOf(model,layout);
})
}

- // classes return instVarsForGui : a list of \symbols
- // by default empty : don't display any variables
- *guiInstVarsOf { arg object,layout;
- var varNames,maxWidth=50,font;
- font = GUI.font.new(*GUI.skin.fontSpecs);
- object.class.instVarsForGui.do({ |ivar,i|
- var width;
- //if(object.respondsTo(ivar),{ // has getter
- varNames = varNames.add([ivar,object.instVarAt(ivar)]);
- width = ivar.asString.bounds(font).width + 5;
- if(width > maxWidth,{ maxWidth = width; });
- //})
- });
- varNames.do({ |namevar|
- var guis;
- layout.startRow;
- VariableNameLabel(namevar[0],layout,maxWidth);
- // a safety check so as not to annoy
- // if there already exists a gui for the object, the simply put a Tile
- guis = namevar[1].dependants.select({|dep| dep.isKindOf(ObjectGui) and: dep.class !== StringGui });
- if(guis.size == 0,{
- namevar[1].gui(layout);
- },{
- Tile(namevar[1],layout);
- });
- });
- }
-
-
*new { arg model;
var new;
new = super.new;
@@ -53,7 +32,7 @@
}
guify { arg layout,bounds,title;
if(layout.isNil,{
- layout = MultiPageLayout(title ?? {model.asString.copyRange(0,50)},bounds);
+ layout = MultiPageLayout(title ?? {model.asString.copyRange(0,50)},bounds,front:false);
},{
layout = layout.asPageLayout(title,bounds);
});
@@ -63,8 +42,10 @@
}
viewDidClose {
model.removeDependant(this);
+ model = nil;
super.viewDidClose;
}
+
gui { arg lay, bounds ... args;
var layout;
layout=this.guify(lay,bounds);
@@ -74,8 +55,8 @@
this.performList(\guiBody,[layout] ++ args);
},bounds).background_(this.background);
//if you created it, front it
- if(lay.isNil,{
- layout.resizeToFit(true).front
+ if(lay.isNil,{
+ layout.resizeToFit(true,true).front
});
}
topGui { arg ... args;
@@ -83,7 +64,7 @@
}

background { ^Color.clear }//^Color.yellow(0.2,0.08) }
-
+
writeName { |layout|
this.prWriteName(layout,model.asString)
}
@@ -100,7 +81,7 @@
.background_(Color.white)
.align_(\left)
.beginDragAction_({ model })
- .object_(string);
+ .object_(string);
InspectorLink.icon(model,layout);
}
model_ { |newModel|
@@ -115,11 +96,40 @@
})
}

-
saveConsole { arg layout;
^SaveConsole(model,"",layout).save.saveAs.print;
}
-
+
+
+ *guiInstVarsOf { arg object,layout;
+ // this is an easy default gui system
+ // each class returns instVarsForGui, a list of \symbols
+ // by default an empty array : "don't display any variables"
+ // some classes (Pattern so far) can return all of their instance var names
+ // and thus gui all of their internal vars
+ var varNames,maxWidth=50,font;
+ font = GUI.font.new(*GUI.skin.fontSpecs);
+ object.class.instVarsForGui.do({ |ivar,i|
+ var width;
+ varNames = varNames.add([ivar,object.instVarAt(ivar)]);
+ width = ivar.asString.bounds(font).width + 5;
+ if(width > maxWidth,{ maxWidth = width; });
+ });
+ varNames.do({ |namevar|
+ var guis;
+ layout.startRow;
+ VariableNameLabel(namevar[0],layout,maxWidth);
+ // a safety check so as not to annoy
+ // if there already exists a gui for the object, the simply put a Tile
+ guis = namevar[1].dependants.select({|dep| dep.isKindOf(ObjectGui) and: dep.class !== StringGui });
+ if(guis.size == 0,{
+ namevar[1].gui(layout);
+ },{
+ Tile(namevar[1],layout);
+ });
+ });
+ }
+
}

ModelImplementsGuiBody : ObjectGui {

Modified: trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/crucial/Gui/PageLayout.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -112,33 +112,32 @@
autoRemoves = autoRemoves.add(dependant);
}

- resizeToFit { arg reflow=false;
- //var fs;
- //fs = GUI.window.screenBounds;
+ resizeToFit { arg reflow=false,center=false;
+ var fs, b,wb,wbw,wbh;

- var b,wb,wbw,wbh;
- if(this.view.isNil,{ this.insp });
b = this.view.resizeToFit(reflow);
+ wbw = b.width + 4;
+ wbh = b.height + 17;
+ window.setInnerExtent(wbw,wbh);

- window.setInnerExtent(wbw = b.width + 4, wbh = b.height + 17);
- /*
- auto-place the window. but we need to know if you explicitly passed in bounds.
- */
- /*
- if(boundsWereExplicit.not,{
- wb = windows.at(vi).innerExtent;
- // if height is less than 80% of full screen
- if(wbh <= (fs.height * 0.8),{
- // move its top to be level at golden ratio
+ if(center) {
+ // this should be a window method
+ fs = GUI.window.screenBounds;
+ wb = window.bounds;
+ // bounds are inaccurate until the end of the code cycle/refresh
+ wb.width = wbw;
+ wb.height = wbh;
+ // if height is less than 60% of full screen
+ if(wbh <= (fs.height * 0.6),{
+ // then move its top to be level at golden ratio
wb.top = fs.height - (fs.height / 1.6180339887);
},{
wb.top = 0;
});
- // move its left corner to be centered
+ // center it horizontally
wb.left = (fs.width - wbw) / 2;
- windows.at(vi).bounds = wb;
- }); */
-
+ window.setTopLeftBounds(wb);
+ }
}

reflowAll {

Modified: trunk/build/SCClassLibrary/crucial/Gui/StringGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/StringGui.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/crucial/Gui/StringGui.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -34,7 +34,7 @@
.align_(\left)
.object_(string);

- if(lay.isNil,{ layout.resizeToFit.front });
+ if(lay.isNil,{ layout.resizeToFit(center:true).front });
}

}

Modified: trunk/build/SCClassLibrary/crucial/Players/AbstractPlayerGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/AbstractPlayerGui.sc 2008-07-09 13:32:57 UTC (rev 7668)
+++ trunk/build/SCClassLibrary/crucial/Players/AbstractPlayerGui.sc 2008-07-09 18:44:10 UTC (rev 7669)
@@ -22,7 +22,7 @@
this.enableKeyDowns;

if(lay.isNil,{
- layout.resizeToFit.front;
+ layout.resizeToFit(center:true).front;
view.focus;
})
}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7667] trunk/build/Help/Libraries/crucial

2008-07-09T06:13:21Z

Revision: 7667
http://svn.sourceforge.net/supercollider/?rev=7667&view=rev
Author: cruxxial
Date: 2008-07-09 06:13:20 -0700 (Wed, 09 Jul 2008)

Log Message:
-----------
minor crucial helpfile updates

Modified Paths:
--------------
trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html
trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html

Modified: trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html 2008-07-09 12:10:31 UTC (rev 7666)
+++ trunk/build/Help/Libraries/crucial/Editors/KrNumberEditor.html 2008-07-09 13:13:20 UTC (rev 7667)
@@ -5,16 +5,22 @@
<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: 18.0px Helvetica}
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: 10.0px Monaco; min-height: 14.0px}
-p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #a71e12}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #a71e12; min-height: 14.0px}
-span.Apple-tab-span {white-space:pre}
+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.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}
+span.s1 {color: #000000}
+span.s2 {color: #007300}
</style>
</head>
<body>
@@ -22,45 +28,52 @@
 
superclass: NumberEditor
 
-This is the defaultControl for a ControlSpec. a KrNumberEditor is like its superclass, except that if used in a Patch it will be a continously modulateable control. You can move the slider and it sends its 
+A number box and a slider control. This is the default control for any modulateable control input (ControlSpec). It is most commonly seen in Patches where it shows up as the default control for many parameters. When you move the slider, it sends messages to the Patch's Synth.
 
+k = KrNumberEditor(440,\freq);
+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.
+ 
+ 
+ 
+ 
+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.
 
-IMPORTANT
-if a KrNumberEditor is connected to a Patch 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.
- 
- 
-/*
-s.boot;
-(
-// works as a stream .. convienient for patterns
- n=NumberEditor(440.0,\freq);
- n.gui;
- 
- Pbind(
- \freq,n
- ).play
-)
-*/
- 
+k = KrNumberEditor(0,\loop);
+k.lag = nil;
 
-from an email:
 
-KrNumberEditors support lag. You can set lag to nil for no Lag.
+Alternatively see NoLagControlSpec, whose defaultControl sets the lag to nil.
 
-I have added NoLagControlSpec, whose defaultControl sets the lag to nil.
+k = KrNumberEditor(0, NoLagControlSpec(0,1) );
 
+// 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.
 
-\binary, \loop is registred as a NoLagControlSpec, and thus doesn't use any lag at all.
-you can register others, or use a NoLagControlSpec when writing the Instr.
+the keys \binary, \loop (as looked up in the Spec dictionary) are registred as NoLagControlSpec, and thus don't use any lag at all.
 
-I am experimenting with different kinds of inertia Lag (hysterisis ?), so I'm not using LagControl
-right now, but it might switch to that.
-either way it violates the contract : it should be a function on the input object, not at the receiving end
-inside of the function. but its more efficient.
+You can register others, or use a NoLagControlSpec when writing the Instr.
+ 
</body>
</html>

Modified: trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html 2008-07-09 12:10:31 UTC (rev 7666)
+++ trunk/build/Help/Libraries/crucial/Sequencers/StreamKrDur.html 2008-07-09 13:13:20 UTC (rev 7667)
@@ -5,7 +5,7 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 26.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica; min-height: 11.0px}
@@ -14,27 +14,27 @@
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica}
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: #0424af}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #84331b}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0928ab}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #77381e}
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}
p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; min-height: 12.0px}
p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica}
p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Monaco; min-height: 17.0px}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #4c6722}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #0424af}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84331b; min-height: 12.0px}
-p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #4c6722}
-p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84331b}
-p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica; color: #84331b; min-height: 11.0px}
-span.s1 {color: #0424af}
+p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #536526}
+p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #0928ab}
+p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e; min-height: 12.0px}
+p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #536526}
+p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #77381e}
+p.p20 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Helvetica; color: #77381e; min-height: 11.0px}
+span.s1 {color: #0928ab}
span.s2 {color: #000000}
span.s3 {font: 10.0px Monaco; color: #000000}
span.s4 {font: 9.0px Monaco; color: #000000}
span.s5 {font: 10.0px Monaco}
span.s6 {font: 9.0px Monaco}
-span.s7 {color: #84331b}
-span.s8 {color: #4c6722}
+span.s7 {color: #77381e}
+span.s8 {color: #536526}
span.s9 {color: #606060}
span.Apple-tab-span {white-space:pre}
</style>
@@ -44,7 +44,7 @@
 
superclass: BusDriver -> AbstractPlayer
 
-StreamKrDur.new(pattern,durations,lagTime)
+StreamKrDur.new(values,durations,lagTime)
 
This plays a pattern in real time in the language, and sends those values as /c_set messages to its bus on the server.
Durations are specified in beats by a second pattern.
@@ -52,7 +52,7 @@
Its timing are exact, its messages are sent to the server with a small latency period before they should be played. That is to say when you start playing a StreamKrDur, it will run slightly and exactly ahead of time.
It is cancellable and stoppable within Server-latency.
 
- pattern
+ values
 a Pattern or Stream of floats
 or a Ref of an array of values eg. `[200,400,600]
 durations

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7666] trunk/build/SCClassLibrary/Common/Control /Buffer.sc

2008-07-09T05:10:31Z

Revision: 7666
http://svn.sourceforge.net/supercollider/?rev=7666&view=rev
Author: cruxxial
Date: 2008-07-09 05:10:31 -0700 (Wed, 09 Jul 2008)

Log Message:
-----------
Buffer.uncache : if you quit the server and then free the Buffer it would fail during trying to uncache

Modified Paths:
--------------
trunk/build/SCClassLibrary/Common/Control/Buffer.sc

Modified: trunk/build/SCClassLibrary/Common/Control/Buffer.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Control/Buffer.sc 2008-07-08 23:59:25 UTC (rev 7665)
+++ trunk/build/SCClassLibrary/Common/Control/Buffer.sc 2008-07-09 12:10:31 UTC (rev 7666)
@@ -524,14 +524,16 @@
serverCaches[server][bufnum] = this;
}
uncache {
- serverCaches[server].removeAt(bufnum);
+ if(serverCaches[server].notNil,{
+ serverCaches[server].removeAt(bufnum);
+ });
+ if(serverCaches[server].size == 1) {
// the 1 item would be the responder
// if there is more than 1 item then the rest are cached buffers
// else we can remove.
// cx: tho i don't see why its important. it will just have to be added
// back when the next buffer is added and the responder is removed when
// the server reboots
- if(serverCaches[server].size == 1) {
Buffer.clearServerCaches(server);
}
}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7665] trunk/build/SCClassLibrary/crucial/ Players

2008-07-08T16:59:25Z

Revision: 7665
http://svn.sourceforge.net/supercollider/?rev=7665&view=rev
Author: cruxxial
Date: 2008-07-08 16:59:25 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
minor fix/improve for AbstractPlayer-prepareToBundle, PlayerSocket-freeToBundle

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Players/AbstractPlayer.sc
trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc

Modified: trunk/build/SCClassLibrary/crucial/Players/AbstractPlayer.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/AbstractPlayer.sc 2008-07-08 23:57:38 UTC (rev 7664)
+++ trunk/build/SCClassLibrary/crucial/Players/AbstractPlayer.sc 2008-07-08 23:59:25 UTC (rev 7665)
@@ -71,13 +71,11 @@
isPrepared {
^#[\readyForPlay, \isPlaying,\isStopped, \isStopping].includes(status)
}
- readyForPlay { ^status === \readyForPlay }
+ readyForPlay { ^[\readyForPlay,\isPlaying,\isStopped,\isStopping].includes(status) }
prepareForPlay { arg group,private = false,bus;
- var bundle;
- bundle = AbstractPlayer.bundleClass.new;
- this.prepareToBundle(group,bundle,private,bus);
-
- ^bundle.send(this.group.server)
+ AbstractPlayer.bundle(group.asTarget.server,nil,{ |bundle|
+ this.prepareToBundle(group,bundle,private,bus);
+ });
}

prepareToBundle { arg agroup,bundle,private = false, bus;
@@ -226,7 +224,7 @@
if(andFreeResources,{ ^this.free });

if(server.notNil,{
- AbstractPlayer.bundle(server,atTime,{ |bundle|
+ AbstractPlayer.bundle(server,atTime ? this.server.latency,{ |bundle|
this.stopToBundle(bundle,true);
})
});

Modified: trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc 2008-07-08 23:57:38 UTC (rev 7664)
+++ trunk/build/SCClassLibrary/crucial/Players/PlayerSocket.sc 2008-07-08 23:59:25 UTC (rev 7665)
@@ -121,7 +121,6 @@
freeResourcesToBundle { arg bundle;
socketGroup.freeToBundle(bundle);
socketGroup = nil;
-
}

prepareChildrenToBundle { arg bundle;
@@ -132,9 +131,9 @@
});
}
freeToBundle { |bundle|
- super.freeToBundle(bundle);
dee.freeToBundle(bundle);
dum.freeToBundle(bundle);
+ super.freeToBundle(bundle);
}

// no synth of my own

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7664] trunk/build/SCClassLibrary/crucial/ UncoupledUsefulThings/osx/viewExtensionsOSX.sc

2008-07-08T16:57:38Z

Revision: 7664
http://svn.sourceforge.net/supercollider/?rev=7664&view=rev
Author: cruxxial
Date: 2008-07-08 16:57:38 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
adding SCWindow:comp in the same vein as SCWIndow:flow

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/osx/viewExtensionsOSX.sc

Modified: trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/osx/viewExtensionsOSX.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/osx/viewExtensionsOSX.sc 2008-07-08 23:03:35 UTC (rev 7663)
+++ trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/osx/viewExtensionsOSX.sc 2008-07-08 23:57:38 UTC (rev 7664)
@@ -1,12 +1,19 @@

+ SCWindow {
flow { arg func,bounds;
- var f,comp;
+ var f;
f = FlowView(this,bounds ?? { this.bounds });
func.value(f);
f.resizeToFit;
^f
}
+ comp { arg func,bounds;
+ var f;
+ f = GUI.compositeView.new(this,bounds ?? { this.bounds });
+ f.tryPerform('relativeOrigin_',true);
+ func.value(f);
+ ^f
+ }
}

+ SCView {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7663] trunk/build/Help/Libraries/crucial/ Sequencers/PlayerSeqTrack.html

2008-07-08T16:03:35Z

Revision: 7663
http://svn.sourceforge.net/supercollider/?rev=7663&view=rev
Author: cruxxial
Date: 2008-07-08 16:03:35 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
long gone class. removing help file

Removed Paths:
-------------
trunk/build/Help/Libraries/crucial/Sequencers/PlayerSeqTrack.html

Deleted: trunk/build/Help/Libraries/crucial/Sequencers/PlayerSeqTrack.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Sequencers/PlayerSeqTrack.html 2008-07-08 22:39:48 UTC (rev 7662)
+++ trunk/build/Help/Libraries/crucial/Sequencers/PlayerSeqTrack.html 2008-07-08 23:03:35 UTC (rev 7663)
@@ -1,279 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-<meta http-equiv="Content-Style-Type" content="text/css">
-<title></title>
-<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.42">
-<style type="text/css">
-p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 19.0px Helvetica}
-p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 19.0px Helvetica; min-height: 23.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: 14.0px Helvetica; min-height: 17.0px}
-p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Helvetica}
-p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Helvetica; min-height: 16.0px}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a71e12}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0019b7}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
-p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; min-height: 14.0px}
-p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Monaco; color: #a71e12}
-p.p14 {margin: 0.0px 0.0px 0.0px 0.0px; font: 15.0px Helvetica}
-p.p15 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #316c17}
-span.s1 {color: #0019b7}
-span.s2 {color: #000000}
-span.Apple-tab-span {white-space:pre}
-</style>
-</head>
-<body>
-PlayerSeqTrack
- 
-Play a series of Players in a sequence, with individual control over duration, 
-attack,release and level.
- 
-This is only designed to work with Players that already saved to disk.
- 
-The primary design difference between this and CyclePlayers is that 
-PlayerSeqTrack does not need to know all of its players before play/editing. 
-They can be added and removed dynamically, even while playing.
- 
-PlayerSeqTrack( arrayOfPlayerPaths, arrayOfBeatDurations,arrayOfEnvelopes, loop)
- 
- arrayOfPlayerPaths - or nil (players can be added later )
- or they can be actual players. if you use paths, then identical paths
- in the array will play the identical player (only one copy is loaded).
- so the sequence can contain repeats:
- [ path1, path2, path1, path2, path3 ...]
- 
-(
-// locate some players on your hard drive and add them to a list
-// hit cancel when you have enough
-l = List.new;
-f = {
- GetFileDialog({ arg ok,path;
- if(ok,{
- l.add(loadPath(path));
- f.value;
- })
- });
-};
-f.value
-)
- 
- 
-(
- 
-p = PlayerSeqTrack.new;
- 
-6.do({
- p.insertLast(Properties(\working).wchoose.asString.loadDocument);
-});
- 
-p.setDuration(0,4);
-p.setDuration(1,4);
-p.setDuration(2,4);
-p.setDuration(3,4);
-p.setDuration(4,4);
-p.setDuration(5,4);
- 
-p.gui
-)
- 
- 
- 
-p.play;
- 
-p.free;
-)
- 
-p.insp
- 
- 
-PlayerSeqTrackGui
- 
-now while watching the pretty visuals:
- 
-(
- p.gui;
- p.changed; // update the gui
-)
- 
- 
-// while playing is fine, weve already loaded the players
-p.insert( 3, l.choose ).changed;
-p.insert( 8.rand, l.choose ).changed;
- 
- 
-(
- 5.do({ arg i;
- p.insert(i, l.choose );
- });
- p.changed;
-)
-(
- 5.do({ arg i;
- p.setDuration( p.playerSeq.size.rand, [4,8,16,32].choose );
- });
- p.changed;
-)
-(
- 5.do({ arg i;
- p.setRelease( i, rrand(0.01,5.0) );
- });
- // no gui display of release times
-)
-(
- 5.do({ arg i;
- p.setLevel( i, rrand(0.1,2.0) );
- });
- // no gui display of levels
-)
- 
- 
-p.deleteAt(6).changed;
- 
- 
-Note that the duration display changes also. It also changes when you change the tempo.
- 
-GUI Hot-Keys
- 
-While selected on any of the sequences these keys are active:
- 
-<- select previous
--> select next
-opt -> move selected left
-opt <- move selected right
-up increase dur by 1 bar
-down decrease dur by 1 bar
-opt-up double duration
-opt-down half duration
-shift-opt-up double durations of all steps
-shift-opt-down half durations of all steps
-` relocate (while playing) to this step
-delete delete this step
-g gui the player at this step
-i open information window
- 
-escape focus on the first focusable view in this window that is not one of the sequence steps
- 
- 
-The information window
- 
- in the information window you can edit
- duration, attack,decay,level, envelope
- in three selectable scopes:
- this step, all steps with this player, all steps
- 
-It is also possible to embed the info window on the same layout:
- 
-(
- Sheet({ arg f;
- PlayerSeqTrack.new.topGui(f).infoGui(f);
- })
-)
- 
-Note that topGui returns the PlayerSeqTrackGui object, which responds to infoGui(layout);
- 
- 
-Its turtles all the way down
- 
-It is of course possible to put a PlayerSeqTrack inside of another PlayerSeqTrack.
- 
-Multiple tracks are obtainable via the use of PlayerMixer, though they won't easily
-remained synchronized if you relocate while playing. 
-And the gui will be not lined up verticle.
-Eventually i will write a multi-track version that holds and synchronizes multiple PlayerSeqTrack.
- 
- 
-Live Insert of Players
- 
-( // insert players at the selected step, even while playing
-Sheet({ arg f;
- 
- p = PlayerSeqTrack.new;
- g = p.topGui(f); // return the gui itself
- 
- Label(f,"insert:");
- l.do({ arg player;
- ActionButton(f,player.name,{ p.insert(g.selected ? 0 , player).changed })
- })
-})
-)
- 
- 
-(
- // insert players NOW at the presently playing step
- // 808 style
-Sheet({ arg f;
- 
- p = PlayerSeqTrack.new;
- p.topGui(f);
- 
- Label(f,"insertNow:");
- l.do({ arg player;
- ActionButton(f,player.name,{ p.insertNow( player,round: 1.0).changed })
- })
-})
- 
-)
- 
- 
-insert(step,player,duration,env)
- step- index to insert at
- player - the player object or path to insert
- in the example above, i used the actual player because its faster, you share
- the same player instance, and it doesn't have to load anything from disk while
- its playing.
- duration - the number of beats it should play for
- if nil,
- use the duration of any previous appearance of this player in the sequence
- if that is nil,
- use the natural beatDuration of the player
- if that is nil,
- use 128.0 beats
- env - the envelope to use
- if nil,
- use the envelope of any previous appearance of this player in the sequence
- if that is nil,
- use default envelope
- 
- 
-All players that you insert must have a path (must have been loaded from disk).
- 
-When this example saves, notice that the steps 0 and 3 repeat the same player. On reloading, they will
-share the same copy.
- 
- PlayerSeqTrack.new(
- [ ":Patches:footfist:dawhohop", ":Patches:footfistwhisker:dhallooo",\xC2\xA0 ":Patches:footfist:dawhohop",
- ":Patches:footfistwhisker:buggercraft", ":Patches:footfistwhisker:basscl", ":Patches:footfist:simp" ], 
- [ 16, 16, 16, 16, 16, 16 ], 
- [ Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil) ]
- )
- 
-Actually PlayerSeqTrack could play players without a path, but the gui would display them
-all as "nil" "nil" etc.
-And it would save as something like this:
- 
- PlayerSeqTrack.new(
- [ Patch.new(
- [ 'minimoog', 'detune' ], 
- [ 440, -4, 0, 0.4, 1 ]
- ), Patch.new(
- [ 'synths', 'stereo', 'SyncSaw' ], 
- [ BeatClockPlayer(16) 
- , 440, 447.214, 0.5, 0.4, Env.new([ 0, 1, 0.5, 0 ], [ 0.01, 0.3, 1 ], -4, 2, nil), 4, 2 ]
- ), Patch.new(
- [ 'minimoog', 'detune' ], 
- [ 440, -4, 0, 0.4, 1 ]
- ) ], 
- [ 16, 16, 16 ], 
- [ Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil), Env.new([ 0, 1, 1, 0 ], [ 0.01, 1, 0.1 ], [ -2, -2, -2 ], 2, nil) ]
- )
- 
- 
-And on reload the identical steps 0 and 3 would not be able to share the same copy.
-</body>
-</html>

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7662] trunk/build/SCClassLibrary/Common/Control /MIDIResponder.sc

2008-07-08T15:39:49Z

Revision: 7662
http://svn.sourceforge.net/supercollider/?rev=7662&view=rev
Author: cruxxial
Date: 2008-07-08 15:39:48 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
sorry, turning ProgramChangeResponder back on, as its moved here from wslib now. i just accidentally had it commented out in the last update

Modified Paths:
--------------
trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc

Modified: trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc 2008-07-08 22:31:39 UTC (rev 7661)
+++ trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc 2008-07-08 22:39:48 UTC (rev 7662)
@@ -218,9 +218,8 @@
PolyTouchResponder
*/

-/*
-good to go but waiting for wouter's permission and so that he can comment it out in his lib.

+
ProgramChangeResponder : MIDIResponder {
classvar <pcinit = false,<pcr;

@@ -254,5 +253,3 @@
}
}

-*/
-

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

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

2008-07-08T15:31:39Z

Revision: 7661
http://svn.sourceforge.net/supercollider/?rev=7661&view=rev
Author: cruxxial
Date: 2008-07-08 15:31:39 -0700 (Tue, 08 Jul 2008)

Log Message:
-----------
CCResponder, NoteOnResponder, NoteOffResponder, BendResponder and TouchResponder can be set to learn mode and will wait for the next event.

Modified Paths:
--------------
trunk/build/Help/Control/CCResponder.html
trunk/build/Help/Control/MIDIResponder.html
trunk/build/Help/Control/NoteOnResponder.html
trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc

Modified: trunk/build/Help/Control/CCResponder.html
===================================================================
--- trunk/build/Help/Control/CCResponder.html 2008-07-08 10:27:16 UTC (rev 7660)
+++ trunk/build/Help/Control/CCResponder.html 2008-07-08 22:31:39 UTC (rev 7661)
@@ -5,7 +5,7 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.47">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
@@ -14,11 +14,16 @@
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
p.p6 {margin: 0.0px 0.0px 0.0px 29.0px; text-indent: -29.0px; font: 12.0px Helvetica}
p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #1530a3}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000; min-height: 14.0px}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; 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: #1a32a0}
span.s1 {color: #000000}
span.s2 {text-decoration: underline}
-span.s3 {color: #0013bb}
-span.s4 {color: #0021b3}
+span.s3 {color: #0000bf}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -47,34 +52,44 @@
 eg: { |val| val < 50 }
 
(
- c = CCResponder({ |src,chan,num,value|
- [src,chan,num,value].postln;
- },
- nil, // any source
- nil, // any channel
- nil, // any CC number
- nil // any value
- )
+ c = CCResponder({ |src,chan,num,value|
+ [src,chan,num,value].postln;
+ },
+ nil, // any source
+ nil, // any channel
+ nil, // any CC number
+ nil // any value
+ )
)
 
c.remove
 
 
(
- c = CCResponder({ |src,chan,num,value|
- [src,chan,num,value].postln;
- },
- nil, // any source
- nil, // any channel
- 80, // CC number 80
- { |val| val < 50 } // any value less than 50
- )
+ c = CCResponder({ |src,chan,num,value|
+ [src,chan,num,value].postln;
+ },
+ nil, // any source
+ nil, // any channel
+ 80, // CC number 80
+ { |val| val < 50 } // any value less than 50
+ )
)
 
c.remove
 
+ 
+learn
 
-CCResponder.removeAll
+wait for the next CC message, reset to match src,chan, cc num
+(
+ 
+ c = CCResponder({ |src,chan,num,value|
+ [src,chan,num,value].postln;
+ });
+ c.learn; // wait for the first controller
+)
+CCResponder.removeAll
 
 
</body>

Modified: trunk/build/Help/Control/MIDIResponder.html
===================================================================
--- trunk/build/Help/Control/MIDIResponder.html 2008-07-08 10:27:16 UTC (rev 7660)
+++ trunk/build/Help/Control/MIDIResponder.html 2008-07-08 22:31:39 UTC (rev 7661)
@@ -5,7 +5,7 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica; min-height: 22.0px}
@@ -14,13 +14,13 @@
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 14.0px Helvetica}
p.p6 {margin: 0.0px 0.0px 0.0px 29.0px; text-indent: -29.0px; font: 12.0px Helvetica}
p.p7 {margin: 0.0px 0.0px 0.0px 29.0px; text-indent: -29.0px; font: 12.0px Helvetica; min-height: 14.0px}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
-p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
-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: #942b17; min-height: 12.0px}
-span.s1 {color: #0000bf}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #a8220e}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0013bb}
+p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84331b; min-height: 12.0px}
+span.s1 {color: #0013bb}
span.s2 {color: #000000}
span.Apple-tab-span {white-space:pre}
</style>
@@ -33,7 +33,7 @@
MIDIResponder is an abstract class. Its subclasses allow functions to be registered to respond to midi events.
 
Read the general help file here and then see the individual help files.
- 
+ 
CCResponder Respond to control messages
NoteOnResponder Respond to note-on messages
NoteOffResponder Respond to note-off messages
@@ -80,26 +80,32 @@
 
MIDIResponders automatically initialize the MIDIClient with 1 standard device. This means the first time you install any MIDIResponder, it will make sure that MIDI has been initialized. If you have more devices or a specific setup, simply initialize the MIDIClient yourself before using any MIDIResponders.
 
+learn
+ 
+CCResponder, NoteOnResponder, NoteOffResponder, BendResponder and TouchResponder can be set to learn mode and will wait for the next event.
+ 
+ 
+ 
Removal:
 
Just call .remove on the responder.
 
c = CCResponder({ ... }, num: 1); // respond to any modwheel
- 
+ 
c.remove; // stop this responder
- 
-Or remove all of a specific class:
- 
+ 
+Or remove all of a specific class:
+ 
CCResponder.removeAll
NoteOnResponder.removeAll
NoteOffResponder.removeAll
BendResponder.removeAll
TouchResponder.removeAll
- 
-or remove all midi responders in all classes:
- 
+ 
+or remove all midi responders in all classes:
+ 
MIDIResponder.removeAll
- 
+ 
 
 
 

Modified: trunk/build/Help/Control/NoteOnResponder.html
===================================================================
--- trunk/build/Help/Control/NoteOnResponder.html 2008-07-08 10:27:16 UTC (rev 7660)
+++ trunk/build/Help/Control/NoteOnResponder.html 2008-07-08 22:31:39 UTC (rev 7661)
@@ -5,26 +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.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
-p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0000ff}
+p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0018e8}
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: 12.0px Helvetica; min-height: 14.0px}
-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; color: #0424af}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #84331b}
+p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000; min-height: 14.0px}
+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: #0000bf}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #bf0000}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0928ab}
+p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0928ab; min-height: 12.0px}
span.s1 {color: #000000}
-span.s2 {color: #0424af}
-span.s3 {color: #84331b}
+span.s2 {text-decoration: underline}
+span.s3 {color: #0000bf}
+span.s4 {color: #bf0000}
span.Apple-tab-span {white-space:pre}
</style>
</head>
<body>
NoteOnResponder
 
-see also <a href="SC://MIDIResponder">MIDIResponder</a>
+see also <a href="SC://MIDIResponder">MIDIResponder</a>
 
NoteOnResponder(function, src, chan, num, value, install = true,swallowEvent = false)
 
@@ -32,30 +38,40 @@
 c = NoteOnResponder({ |src,chan,note,vel|
 [src,chan,note,vel].postln;
 },
- nil, // any source
- nil, // any channel
- nil, // any note
- nil // any vel
+ nil, // any source
+ nil, // any channel
+ nil, // any note
+ nil // any vel
 )
)
- 
+ 
c.remove
- 
- 
+ 
+ 
(
 c = NoteOnResponder({ |src,chan,num,value|
 [src,chan,num,value].postln;
 },
- nil, // any source
- nil, // any channel
- { |val| val.exclusiveBetween(50,60) }, // within this note range
- nil // any vel
+ nil, // any source
+ nil, // any channel
+ { |val| val.exclusiveBetween(50,60) }, // within this note range
+ nil // any vel
 )
)
- 
+ 
c.remove
 
+learn
 
-CCResponder.removeAll
+wait for the next midi note. reset self to match to that src and chan
+(
+ c = NoteOnResponder({ |src,chan,num,value|
+ [src,chan,num,value].postln;
+ });
+ c.learn; // wait for the first note
+)
+ 
+NoteOnResponder.removeAll
+ 
</body>
</html>

Modified: trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc 2008-07-08 10:27:16 UTC (rev 7660)
+++ trunk/build/SCClassLibrary/Common/Control/MIDIResponder.sc 2008-07-08 22:31:39 UTC (rev 7661)
@@ -65,6 +65,13 @@
*remove { arg resp;
nonr.remove(resp);
}
+ learn {
+ var oneShot;
+ oneShot = this.class.new({ |src,chan,num,value|
+ this.matchEvent_(MIDIEvent(nil,src,chan,nil,nil));
+ oneShot.remove;
+ },nil,nil,nil,nil,true,true)
+ }
}

NoteOffResponder : NoteOnResponder {
@@ -131,6 +138,13 @@
})
};
}
+ learn {
+ var oneShot;
+ oneShot = CCResponder({ |src,chan,num,value|
+ this.matchEvent_(MIDIEvent(nil,src,chan,num,nil));
+ oneShot.remove;
+ },nil,nil,nil,nil,true,true)
+ }
}

TouchResponder : MIDIResponder {
@@ -164,6 +178,13 @@
*remove { arg resp;
touchr.remove(resp);
}
+ learn {
+ var oneShot;
+ oneShot = this.class.new({ |src,chan,num,value|
+ this.matchEvent_(MIDIEvent(nil,src,chan,nil,nil));
+ oneShot.remove;
+ },nil,nil,nil,nil,true,true)
+ }
}

BendResponder : TouchResponder {
@@ -197,12 +218,15 @@
PolyTouchResponder
*/

+/*
+good to go but waiting for wouter's permission and so that he can comment it out in his lib.
+
ProgramChangeResponder : MIDIResponder {
classvar <pcinit = false,<pcr;

*new { arg function, src, chan, value, install=true;
^super.new.function_(function)
- .matchEvent_(MIDIEvent(nil, this.fixSrc(src), chan, nil, value))
+ .matchEvent_(MIDIEvent(nil, src.asMIDIInPortUID, chan, nil, value))
.init(install)
}
*init {
@@ -230,4 +254,5 @@
}
}

+*/

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7657] trunk/Source/app

2008-07-07T01:37:54Z

Revision: 7657
http://svn.sourceforge.net/supercollider/?rev=7657&view=rev
Author: cruxxial
Date: 2008-07-07 01:37:53 -0700 (Mon, 07 Jul 2008)

Log Message:
-----------
blackrain's fixes for the relativeOrigin problems with the various cocoa views : SCTextView SCSoundFileView SCQuartzComposerView SCMovieView

Modified Paths:
--------------
trunk/Source/app/SCCocoaView.M
trunk/Source/app/SCSoundFileView.M

Modified: trunk/Source/app/SCCocoaView.M
===================================================================
--- trunk/Source/app/SCCocoaView.M 2008-07-05 22:29:42 UTC (rev 7656)
+++ trunk/Source/app/SCCocoaView.M 2008-07-07 08:37:53 UTC (rev 7657)
@@ -309,7 +309,7 @@
mBounds = inBounds;
[[mScrollView superview] setNeedsDisplayInRect:[mScrollView frame]];
if(mParent->relativeOrigin()){
- SCRect pbounds = mParent->getBounds();
+ SCRect pbounds = mParent->getLayout().bounds; // relative origin fix
mLayout.bounds.x = mBounds.x + pbounds.x;
mLayout.bounds.y = mBounds.y + pbounds.y;
mLayout.bounds.width = mBounds.width;
@@ -318,12 +318,12 @@
mLayout.bounds = mBounds;
}
[mScrollView setFrame: SCtoNSRect(mLayout.bounds)];
- [mTextView setFrame: SCtoNSRect(mLayout.bounds)];
+ [mTextView setFrame: SCtoNSRect(mLayout.bounds)]; // not needed - br

// [mScrollView setBounds: SCtoNSRect(mBounds)];
// [mTextView setBounds: SCtoNSRect(mBounds)];
- [mScrollView setNeedsDisplay: YES];
- [mTextView setNeedsDisplay: YES];
+ // [mScrollView setNeedsDisplay: YES]; // not needed - br
+ // [mTextView setNeedsDisplay: YES]; // not needed - br
}

void SCCocoaTextView::keyDown(int character, int modifiers, unsigned short keycode)
@@ -704,7 +704,7 @@
[[mMovieView superview] setNeedsDisplayInRect:[mMovieView frame]];
mBounds = screct;
if(mParent->relativeOrigin()){
- SCRect pbounds = mParent->getBounds();
+ SCRect pbounds = mParent->getLayout().bounds; // relative origin fix
mLayout.bounds.x = mBounds.x + pbounds.x;
mLayout.bounds.y = mBounds.y + pbounds.y;
mLayout.bounds.width = mBounds.width;
@@ -952,7 +952,7 @@
[[mQCView superview] setNeedsDisplayInRect:[mQCView frame]];
mBounds = screct;
if(mParent->relativeOrigin()){
- SCRect pbounds = mParent->getBounds();
+ SCRect pbounds = mParent->getLayout().bounds; // relative origin fix
mLayout.bounds.x = mBounds.x + pbounds.x;
mLayout.bounds.y = mBounds.y + pbounds.y;
mLayout.bounds.width = mBounds.width;

Modified: trunk/Source/app/SCSoundFileView.M
===================================================================
--- trunk/Source/app/SCSoundFileView.M 2008-07-05 22:29:42 UTC (rev 7656)
+++ trunk/Source/app/SCSoundFileView.M 2008-07-07 08:37:53 UTC (rev 7657)
@@ -238,10 +238,9 @@
if(mSndBuf.channels)
bufAllocMinMax(&mSndMinMax, mSndBuf.channels, (int)(inBounds.width ));
}
-// mBounds = inBounds;
mBounds = inBounds;
if(mParent->relativeOrigin()){
- SCRect pbounds = mParent->getBounds();
+ SCRect pbounds = mParent->getLayout().bounds; // relative origin fix
mLayout.bounds.x = mBounds.x + pbounds.x;
mLayout.bounds.y = mBounds.y + pbounds.y;
mLayout.bounds.width = mBounds.width;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7654] trunk/build/SCClassLibrary/crucial/ Players/TempoPlayer.sc

2008-07-05T12:34:23Z

Revision: 7654
http://svn.sourceforge.net/supercollider/?rev=7654&view=rev
Author: cruxxial
Date: 2008-07-05 12:34:23 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
SynthDef.buildSynthDef -> InstrSynthDef.buildSynthDef

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Players/TempoPlayer.sc

Modified: trunk/build/SCClassLibrary/crucial/Players/TempoPlayer.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Players/TempoPlayer.sc 2008-07-05 19:33:33 UTC (rev 7653)
+++ trunk/build/SCClassLibrary/crucial/Players/TempoPlayer.sc 2008-07-05 19:34:23 UTC (rev 7654)
@@ -12,7 +12,7 @@
/* a TempoPlayer can secretly add itself to the synth def
without the need of being passed in with an explicit arg to the Instr */
kr {
- ^UGen.buildSynthDef.playerIn(this)
+ ^InstrSynthDef.buildSynthDef.playerIn(this)
}

synthArg { ^tempoBus.index }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7653] trunk/build/SCClassLibrary/crucial/ Editors/NumberEditor.sc

2008-07-05T12:33:33Z

Revision: 7653
http://svn.sourceforge.net/supercollider/?rev=7653&view=rev
Author: cruxxial
Date: 2008-07-05 12:33:33 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
NumberEditor should have deferred to the spec to answer what rate it is, not tried to do it by its own class heirarchy

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc

Modified: trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-07-05 19:31:48 UTC (rev 7652)
+++ trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-07-05 19:33:33 UTC (rev 7653)
@@ -88,7 +88,8 @@
instrArgFromControl { arg control;
^value
}
- rate { ^\scalar }
+ rate { ^spec.rate } // probably scalar
+

guiClass { ^NumberEditorGui }

@@ -102,7 +103,7 @@
super.init(val, aspec);
lag = defaultLag;
}
- rate { ^\control }
+ //rate { ^\control }
canDoSpec { arg aspec; ^aspec.isKindOf(ControlSpec) }

addToSynthDef { arg synthDef,name;
@@ -191,6 +192,8 @@
^super.new.value_(val)
}
// value returns true/false
+ // this means this could only be a noncontrol
+ // i should change this
instrArgFromControl { arg control;
^value
}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7652] trunk/build/SCClassLibrary/crucial/Sample /Sample.sc

2008-07-05T12:31:48Z

Revision: 7652
http://svn.sourceforge.net/supercollider/?rev=7652&view=rev
Author: cruxxial
Date: 2008-07-05 12:31:48 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
using InstrSynthDef.buildSynthDef rather than SynthDef.buildSynthDef so that the error is clearly understandable should you use any of these functions in a normal SynthDef

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Sample/Sample.sc

Modified: trunk/build/SCClassLibrary/crucial/Sample/Sample.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Sample/Sample.sc 2008-07-05 19:27:26 UTC (rev 7651)
+++ trunk/build/SCClassLibrary/crucial/Sample/Sample.sc 2008-07-05 19:31:48 UTC (rev 7652)
@@ -64,8 +64,8 @@
}
numFrames { ^size }
bufnum {
- /*if(UGen.buildSynthDef.notNil,{
- ("Use bufnumIr, not bufnum to obtain a buffer number inside of a synth def. in:" + UGen.buildSynthDef.instrName).warn;
+ /*if(InstrSynthDef.buildSynthDef.notNil,{
+ ("Use bufnumIr, not bufnum to obtain a buffer number inside of a synth def. in:" + InstrSynthDef.buildSynthDef.instrName).warn;
});*/
^if(buffer.notNil,{ buffer.bufnum }, nil)
}
@@ -76,7 +76,7 @@
bufnumIr {
// add a secret ir control
^bufnumControl ?? {
- bufnumControl = UGen.buildSynthDef.addSecretIr(this,0,\bufnum);
+ bufnumControl = InstrSynthDef.buildSynthDef.addSecretIr(this,0,\bufnum);
}
}

@@ -84,7 +84,7 @@
bufnumKr {
// add a secret kr control
^bufnumControl ?? {
- bufnumControl = UGen.buildSynthDef.addSecretKr(this,0,\bufnum);
+ bufnumControl = InstrSynthDef.buildSynthDef.addSecretKr(this,0,\bufnum);
}
}
sampleRateIr {
@@ -372,7 +372,7 @@
pchRatioKr {
^pchk ?? {
pchk =
- (this.bufRateScaleIr * UGen.buildSynthDef.tempoKr(this,\getTempoBus))
+ (this.bufRateScaleIr * InstrSynthDef.buildSynthDef.tempoKr(this,\getTempoBus))
.madd(this.sampleTempoIr.reciprocal)
}
}
@@ -382,18 +382,18 @@
beatsizeIr {
^beatsizek ?? {
beatsizek =
- UGen.buildSynthDef.addSecretIr( this,beatsize,\beatsize);
+ InstrSynthDef.buildSynthDef.addSecretIr( this,beatsize,\beatsize);
}
}
sampleTempoIr {
^tempoi ?? {
- tempoi = UGen.buildSynthDef.addSecretIr(this,tempo,\tempo);
+ tempoi = InstrSynthDef.buildSynthDef.addSecretIr(this,tempo,\tempo);
}
}
/*
sampleTempoKr { // issue: if new sample is loaded, send the tempo to which synths ?
^samplek ?? {
- samplek = UGen.buildSynthDef.addSecretKr(("__stempo__" ++ forArgi.asString).asSymbol,
+ samplek = InstrSynthDef.buildSynthDef.addSecretKr(("__stempo__" ++ forArgi.asString).asSymbol,
tempo,forArgi,\tempo));
}
}*/

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7651] trunk/build/SCClassLibrary/crucial

2008-07-05T12:27:26Z

Revision: 7651
http://svn.sourceforge.net/supercollider/?rev=7651&view=rev
Author: cruxxial
Date: 2008-07-05 12:27:26 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
small optimization with reflowDeep
adding spacing argument to .horz , .vert etc.
other checkins just code cleanups

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc
trunk/build/SCClassLibrary/crucial/Gui/SelectButtonSet.sc
trunk/build/SCClassLibrary/crucial/Gui/SynthConsole.sc
trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/viewExtensions.sc

Modified: trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc 2008-07-05 18:59:41 UTC (rev 7650)
+++ trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc 2008-07-05 19:27:26 UTC (rev 7651)
@@ -190,6 +190,7 @@
})
});
}
+ // returns the new bounds
resizeToFit { arg reflow = false,tryParent = false;
var used,new;

@@ -211,6 +212,7 @@
this.decorator.bounds = new; // if the left/top moved this buggers it
};
if(reflow,{ this.reflowAll; });
+ // its better to call reflowDeep on the parent
if(tryParent,{
this.parent.tryPerform(\resizeToFit,reflow,tryParent);
});
@@ -220,12 +222,10 @@
reflowDeep {
this.allChildren.reverseDo({ |view|
if(view.isKindOf(FlowView),{
- view.bounds = view.bounds.resizeTo(1000,1000);
+ view.bounds_(view.bounds.resizeTo(2000,2000),false);
view.reflowAll.resizeToFit;
});
});
- // sometimes this doesn't work, but if you do it twice it usually does
-
// best way:
// enlarge the view to full bounds within its parent.
// this can only be done if you are the last or only child

Modified: trunk/build/SCClassLibrary/crucial/Gui/SelectButtonSet.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/SelectButtonSet.sc 2008-07-05 18:59:41 UTC (rev 7650)
+++ trunk/build/SCClassLibrary/crucial/Gui/SelectButtonSet.sc 2008-07-05 19:27:26 UTC (rev 7651)
@@ -32,8 +32,6 @@

butts=
labelArray.collect({ arg la,i;
- //var r;
- //r = layout.layRight(x.max(la.asString.size * 7),y);
GUI.button.new(layout,(x@y))
.states_([[la.asString,Color.black,colorFunc.value(i)],
[la.asString,Color.black,selectedColor.value(i)]])

Modified: trunk/build/SCClassLibrary/crucial/Gui/SynthConsole.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/SynthConsole.sc 2008-07-05 18:59:41 UTC (rev 7650)
+++ trunk/build/SCClassLibrary/crucial/Gui/SynthConsole.sc 2008-07-05 19:27:26 UTC (rev 7651)
@@ -191,10 +191,10 @@
}

print {
- ActionButton(layout,"#",{ object.asCompileString.postln });
+ ActionButton(layout,"post",{ object.asCompileString.postln });
}
printPath {
- ActionButton(layout,"#path",{ path.value.asCompileString.postln })
+ ActionButton(layout,"post path",{ path.value.asCompileString.postln })
}
save { arg title="save",minWidth=100;
ActionButton(layout,title,{

Modified: trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/viewExtensions.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/viewExtensions.sc 2008-07-05 18:59:41 UTC (rev 7650)
+++ trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/viewExtensions.sc 2008-07-05 19:27:26 UTC (rev 7651)
@@ -40,17 +40,19 @@
^f
}

- horz { arg func,bounds;
+ horz { arg func,bounds,spacing;
var comp;
comp = GUI.hLayoutView.new(this,bounds ?? { this.decorator.indentedRemaining });
comp.tryPerform('relativeOrigin_',true);
+ comp.spacing = spacing ? GUI.skin.gap.x;
func.value(comp);
^comp
}
- vert { arg func,bounds;
+ vert { arg func,bounds,spacing;
var comp;
comp = GUI.vLayoutView.new(this,bounds ?? { this.decorator.indentedRemaining });
comp.tryPerform('relativeOrigin_',true);
+ comp.spacing = spacing ? GUI.skin.gap.y;
func.value(comp);
^comp
}
@@ -86,11 +88,11 @@
flow { arg func,bounds;
^this.view.flow(func,bounds)
}
- vert { arg func,bounds;
- ^this.view.vert(func,bounds)
+ vert { arg func,bounds,spacing;
+ ^this.view.vert(func,bounds,spacing)
}
- horz { arg func,bounds;
- ^this.view.horz(func,bounds)
+ horz { arg func,bounds,spacing;
+ ^this.view.horz(func,bounds,spacing)
}
comp { arg func,bounds;
^this.view.comp(func,bounds)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7650] trunk/build/SCClassLibrary/crucial

2008-07-05T11:59:42Z

Revision: 7650
http://svn.sourceforge.net/supercollider/?rev=7650&view=rev
Author: cruxxial
Date: 2008-07-05 11:59:41 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
minor clean up of writeName
fix in SampleGui for the path name displayed on the button.
turning OFF the sound file view until it can be fixed for relative views

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc
trunk/build/SCClassLibrary/crucial/Instr/PatchGui.sc
trunk/build/SCClassLibrary/crucial/Sample/SampleGui.sc

Removed Paths:
-------------
trunk/build/SCClassLibrary/crucial/Instr/InstrGui.sc

Modified: trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc 2008-07-05 18:51:55 UTC (rev 7649)
+++ trunk/build/SCClassLibrary/crucial/Gui/ObjectGui.sc 2008-07-05 18:59:41 UTC (rev 7650)
@@ -84,10 +84,13 @@

background { ^Color.clear }//^Color.yellow(0.2,0.08) }

- writeName { arg layout;
+ writeName { |layout|
+ this.prWriteName(layout,model.asString)
+ }
+ prWriteName { arg layout,name;
var string,font;
font = GUI.font.new(*GUI.skin.fontSpecs);
- string = " " ++ model.asString;
+ string = " " ++ (name);
if(string.size > 40,{
string = string.copyRange(0,40) ++ "...";
});

Deleted: trunk/build/SCClassLibrary/crucial/Instr/InstrGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/InstrGui.sc 2008-07-05 18:51:55 UTC (rev 7649)
+++ trunk/build/SCClassLibrary/crucial/Instr/InstrGui.sc 2008-07-05 18:59:41 UTC (rev 7650)
@@ -1,24 +0,0 @@
-
-//
-//InstrGui : ObjectGui {
-// // this is a simple display of the instrument name and args
-//
-// guiBody { arg layout;
-// var defs;
-//
-// // args
-// CXLabel(layout,"ARGS:");
-// model.argNames.do({ arg a,i;
-// layout.startRow;
-// ArgNameLabel( a ,layout,150);
-// CXLabel(layout, " = " ++ model.defArgAt(i).asString,100);
-// InspectorLink( model.specs.at(i) ,layout,300);
-// });
-// layout.startRow;
-// // if match text, show it
-// ActionButton(layout,"edit File",{ model.path.openTextFile });
-// ActionButton(layout,"make Patch",{ Patch(model.name).topGui });
-// }
-//
-//}
-

Modified: trunk/build/SCClassLibrary/crucial/Instr/PatchGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/PatchGui.sc 2008-07-05 18:51:55 UTC (rev 7649)
+++ trunk/build/SCClassLibrary/crucial/Instr/PatchGui.sc 2008-07-05 18:59:41 UTC (rev 7650)
@@ -1,12 +1,22 @@

PatchGui : AbstractPlayerGui {

+ writeName { arg layout;
+ //color it based on whether it has a .path
+ // (was loaded from disk)
+ this.prWriteName(layout,model.class.asString);
+ if(model.path.notNil,{
+ ActionButton(layout,"edit file",{
+ model.path.openTextFile;
+ });
+ });
+ }
guiBody { arg layout;
var bounds, maxHeight,vl,font,argNameWidth;
bounds = layout.bounds;
maxHeight = bounds.height - 20 - (model.args.size * 15) / model.args.size;

- this.instrGui(layout);
+ this.instrGui(layout);

font = GUI.font.new("Helvetica",10);
//vl = SCVLayoutView(layout.startRow,layout.decorator.indentedRemaining);
@@ -50,7 +60,10 @@
});
}
instrGui { arg layout;
- Tile(this.model.instr,layout);
+ //Tile(this.model.instr,layout);
+ ActionButton(layout,this.model.instr.dotNotation,{
+ this.model.instr.gui
+ })
}
}

Modified: trunk/build/SCClassLibrary/crucial/Sample/SampleGui.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Sample/SampleGui.sc 2008-07-05 18:51:55 UTC (rev 7649)
+++ trunk/build/SCClassLibrary/crucial/Sample/SampleGui.sc 2008-07-05 18:59:41 UTC (rev 7650)
@@ -3,7 +3,7 @@
// thanks!

SampleGui : ObjectGui {
-
+
var lastSoundFilePath;
var nameG,tempoG,beatsG;

@@ -11,29 +11,20 @@
var zin, zout, zyin, zyout, lScroll, rScroll, selectionStartG, selectionSizeG;

writeName { arg layout;
- var n;
- n = model.class.asString;
- InspectorLink.icon(model,layout);
- GUI.dragSource.new(layout,Rect(0,0,(n.size * 7.5).max(70),GUI.skin.buttonHeight))
- .stringColor_(Color.new255(70, 130, 200))
- .background_(Color.white)
- .align_(\center)
- .beginDragAction_({ model })
- .object_(n);
+ this.prWriteName(layout,model.class.asString);
}
guiBody { arg layout;
var xfade, r, size,absBounds;
-
+
divs = 1;
zout = 1.1; zin = zout.reciprocal;
zyout = 1.1; zyin = zyout.reciprocal;
rScroll = 0.01; lScroll = rScroll * -1;

- //layout = this.guify(layout,Rect(0,0,700,500),model.asString);
- nameG = ActionButton(layout,"pathname",{
+ nameG = ActionButton(layout,"load file...",{
this.loadDialog
},minWidth:140).background_(Color.white);
-
+
ActionButton(layout,"query buffer",{
if(model.buffer.notNil,{
model.buffer.query;
@@ -41,39 +32,36 @@
"Sample buffer not loaded".inform;
})
});
- /*ActionButton(layout,"reload buffer",{
- model.reloadBuffer;
- });*/
-
+
CXLabel(layout,"bpm:");
tempoG=NumberEditor(model.tempo * 60.0,[0,1000])
.action_({ arg th; model.tempo_(th.value / 60).changed(this) });
tempoG.smallGui(layout);
-
+
CXLabel(layout,"beats:");
beatsG=NumberEditor(model.beats,[0.000001,32])
.action_({arg th; model.beats_(th.value).changed(this) });
beatsG.smallGui(layout);

ActionButton(layout,">",{model.play},minWidth:70).background_(Color.green(alpha:0.5));
- // no point in saving until we have editing
- //ActionButton(layout, "save...",{model.save},minWidth:70).background_(Color.white);

- size = layout.asView.bounds.width - 220;
+ size = min(800,layout.asView.bounds.width - 220);
layout.startRow;
+
+ // sound file view is still broken in relative views
//absBounds = Rect(0, 0, size, 80);
//absBounds = absBounds.moveToPoint(layout.absoluteBounds.origin);
//absBounds = absBounds.moveBy(0,layout.decorator.top);
- v = GUI.soundFileView.new(layout, Rect(0, 0, size, 80))
+ v = GUI.soundFileView.new(layout, Rect(0,0,4,4)) //Rect(0, 0, size, 80)
.canFocus_(true).gridOn_(true).timeCursorOn_(false);
d = GUI.slider2D.new(layout, size@30)
- .action_({|sl|
+ .action_({|sl|
var y;
v.zoomToFrac(y = sl.y * 0.9 + 0.1);
v.scrollTo(sl.x);
//d.thumbSize = size * y;
});
-
+
layout.startRow;
CXLabel(layout,"Resolution:");
block = max(1,(model.numFrames / 44100).asInteger);
@@ -100,14 +88,14 @@
selectionStartG = GUI.staticText.new(layout, Rect(0, 0, 100, 18));
GUI.staticText.new(layout, Rect(10, 0, 30, 18)).string_("Size:").align_(\right);
selectionSizeG = GUI.staticText.new(layout, Rect(0, 0, 100, 18));
-
+
v.mouseUpAction = {
selectionStartG.string = v.selectionStart(0);
selectionSizeG.string = v.selectionSize(0)
};
//v.keyDownAction = this.keyDownResponder;
v.keyDownAction = { arg ascii, char;
- case
+ case
{char === $+} { v.zoom(zin) } // zoom in
{char === $-} { v.zoom(zout) } // zoom out
{char === $'} { v.yZoom = v.yZoom * zyin } // zoom in on y
@@ -121,13 +109,13 @@
{char === $e} { v.scrollToEnd } // scroll to buffer end
{char === $a} { v.selectAll(0) } // select all
{char === $n} { v.selectNone(0) }; // select none
-
+
d.value = v.scrollPos; // update scrollbar position
selectionStartG.string = v.selectionStart(0);
selectionSizeG.string = v.selectionSize(0)
};

- this.update;
+ this.update;
}
update { arg changed,changer;
tempoG.value_(model.tempo*60).changed;
@@ -137,7 +125,7 @@

if(model.soundFilePath.isNil, { ^this });
lastSoundFilePath = model.soundFilePath;
-
+
v.soundfile = SoundFile.new(lastSoundFilePath);
v.readWithTask( block: block, doneAction: { v.gridResolution_(60/tempoG.value/divs) } );
});
@@ -146,9 +134,9 @@
//d.x = v.scrollPos; // update scrollbar position
//d.y = v.xZoom;
selectionStartG.string = v.selectionStart(0);
- selectionSizeG.string = v.selectionSize(0)
+ selectionSizeG.string = v.selectionSize(0)
}
- /*keyDownResponder {
+ /*keyDownResponder {
// grrrr. shift.
var kdr;
kdr = UnicodeResponder.new;
@@ -179,37 +167,38 @@
*/
loadDialog {
File.openDialog(nil,{ arg path;
- model.load(path).changed;
+ model.load(path);
+ model.changed;
});
}
}

-/**
-
+/*
+
WavetableSampleGui : SampleGui {
-
+
guiBody { arg layout;
//layout.within(100,75,{arg layout;
//nameG = CXLabel(layout,model.name);
- /*ActionButton(layout,">",{
+ / *ActionButton(layout,">",{
if(Synth.isPlaying,{ Synth.stop },{
{
- Osc.ar(model.wavetable,440,mul: 0.1)
+ Osc.ar(model.wavetable,440,mul: 0.1)
}.scope
})
- });*/
+ });* /
ActionButton(layout,"saveAs",{this.saveAs}).background_(Color.white);
ActionButton(layout,"save",{this.save}).background_(Color.white);
//});
-
+
//sigG=WavetableView(layout.window,layout.layRight(250,75),model.wavetable);
-
+
//ActionButton(layout,"editAsSample",{model.editAsSample});
// layout.removeOnClose(Updater(this,{
// nameG.label_("S:" ++ name);
// sigG.wavetable_(signal);
// sigG.update;
-// }));
+// }));
}
save {
if(model.wavetablePath.isNil,{ ^this.saveAs });
@@ -226,12 +215,12 @@
});
// PutFileDialog("save wavetable...",model.name,{ arg ok,path;
// if(ok,{
-// model.write(path);
+// model.write(path);
// })
// })
}

}

-**/
+*/

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7649] trunk/build/Help/Libraries/crucial/ UncoupledUsefulThings/UnicodeResponder.html

2008-07-05T11:51:55Z

Revision: 7649
http://svn.sourceforge.net/supercollider/?rev=7649&view=rev
Author: cruxxial
Date: 2008-07-05 11:51:55 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
minor help updates

Modified Paths:
--------------
trunk/build/Help/Libraries/crucial/UncoupledUsefulThings/UnicodeResponder.html

Modified: trunk/build/Help/Libraries/crucial/UncoupledUsefulThings/UnicodeResponder.html
===================================================================
--- trunk/build/Help/Libraries/crucial/UncoupledUsefulThings/UnicodeResponder.html 2008-07-05 18:43:40 UTC (rev 7648)
+++ trunk/build/Help/Libraries/crucial/UncoupledUsefulThings/UnicodeResponder.html 2008-07-05 18:51:55 UTC (rev 7649)
@@ -5,24 +5,23 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.47">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Times; min-height: 14.0px}
-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: 12.0px Helvetica; min-height: 14.0px}
-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; color: #0023b2}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #98281a}
-p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
-p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
-p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
+p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco}
+p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
+p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
+p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #000000}
+p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0727ae}
+p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #87311d}
+p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0013bb}
span.s1 {color: #000000}
-span.s2 {color: #0023b2}
+span.s2 {color: #0727ae}
span.s3 {color: #606060}
-span.s4 {color: #0000bf}
+span.s4 {color: #0013bb}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -30,147 +29,158 @@
UnicodeResponder
 
 
-This can be used to replace a function in a view's keydownAction. 
-It matches modifier/unicode combinations and .values functions.
- 
-This is the best way to accurately match the exact modifier combination you want.
- 
-register( unicode, shift, caps, option, control, function )
- true/false/nil:
- must be present
- should not be present
- doesn't matter
+see also KeyCodeResponder
+ 
+This can be used to replace a function in a view's keydownAction. 
+It matches modifier/unicode combinations and .values functions.
+ 
+This is the best way to accurately match the exact modifier combination you want.
+ 
+register( unicode, shift, caps, option, control, function )
+ unicode:
+ the unicode of the char to match
+ shift
+ caps
+ option
+ control
+ true:
+ must be pressed
+ false:
+ must not be pressed
+ nil:
+ can be either pressed or not pressed
+ function
+ the event handler
 
-(
-k = UnicodeResponder.new;
+(
+k = UnicodeResponder.new;
 
-// option down arrow
-k.register( 63233, false,false,true,false, {
- "option down".postln;
-});
+// option down arrow
+k.register( 63233, false,false,true,false, {
+ "option down".postln;
+});
 
-// shift-option down arrow
-k.register( 63233 , true,false,true,false, {
- "shift option down".debug;
-});
+// shift-option down arrow
+k.register( 63233 , true,false,true,false, {
+ "shift option down".debug;
+});
 
-w = GUI.window.new.front;
-v = GUI.slider.new(w,Rect(10,10,100,100));
+w = GUI.window.new.front;
+v = GUI.slider.new(w,Rect(10,10,100,100));
 
-v.keyDownAction = k;
+v.keyDownAction = k;
 
-v.focus;
-)
- 
- 
- 
-Use this to post the codes:
-(
- 
-UnicodeResponder.tester
- 
+v.focus;
)
-it prints a code template for you:
 
-// shift :
-k.register( 41 , true, false, false, false, {
+ 
+ 
+Use this to post the codes:
+(
+ 
+UnicodeResponder.tester
+ 
+)
+it prints a code template for you:
 
-});
+// shift :
+k.register( 41 , true, false, false, false, {
 
+});
 
 
+ 
 
-normal( unicode -> function [, unicode -> function ] )
-shift( unicode -> function [, unicode -> function ] )
-control( unicode -> function [, unicode -> function ] )
-option( unicode -> function [, unicode -> function ] )
+normal( unicode -> function [, unicode -> function ] )
+shift( unicode -> function [, unicode -> function ] )
+control( unicode -> function [, unicode -> function ] )
+option( unicode -> function [, unicode -> function ] )
 
-The view in this example is merely to have something to focus on, it 
-does nothing else.
-(
-var w, l;
-w= GUI.window.new("test").front;
-l= GUI.listView.new(w, Rect(10, 10, 350, 350))
- .items_({"eggs".scramble}.dup(12))
- .focus
- .keyDownAction_(
- UnicodeResponder.new
- .normal(63232 -> {
- "normal arrow".postln;
- })
- .shift(63232 -> {
- "shift arrow".postln;
- })
- .register( 63232, true, nil, false, true, {
- "shift control, with or without CAPS".postln;
- })
- .normal( 97 -> {
- "normal a".postln
- })
- .shift( $A -> {
- "shift a".postln
- })
- )
-)
-Note that to match shift-a you have to specify "A", not "a"
+The view in this example is merely to have something to focus on, it 
+does nothing else.
+(
+var w, l;
+w= GUI.window.new("test").front;
+l= GUI.listView.new(w, Rect(10, 10, 350, 350))
+ .items_({"eggs".scramble}.dup(12))
+ .focus
+ .keyDownAction_(
+ UnicodeResponder.new
+ .normal(63232 -> {
+ "normal arrow".postln;
+ })
+ .shift(63232 -> {
+ "shift arrow".postln;
+ })
+ .register( 63232, true, nil, false, true, {
+ "shift control, with or without CAPS".postln;
+ })
+ .normal( 97 -> {
+ "normal a".postln
+ })
+ .shift( $A -> {
+ "shift a".postln
+ })
+ )
+)
+Note that to match shift-a you have to specify "A", not "a"
 
 
-You can also specify with ascii characters
-(
- 
-var w, l;
-w= GUI.window.new("test").front;
-l= GUI.listView.new(w, Rect(10, 10, 350, 350))
- .items_({"eggs".scramble}.dup(12))
- .focus
- .keyDownAction_(
- UnicodeResponder.new
- .normal(
- $a -> {
- "a ".postln;
- },
- $b -> {
- "b".postln;
- },
- $; -> {
- ";".postln;
- },
- $' -> {
- "'".postln;
- }
- )
- .shift(
- $A -> {
- "shift a".postln;
- },
- $B -> {
- "shift b".postln;
- },
- $: -> {
- "shift ;".postln;
- },
- $" -> {
- "shift '".postln;
- }
- );
- 
- )
-)
+You can also specify with ascii characters
+(
 
+var w, l;
+w= GUI.window.new("test").front;
+l= GUI.listView.new(w, Rect(10, 10, 350, 350))
+ .items_({"eggs".scramble}.dup(12))
+ .focus
+ .keyDownAction_(
+ UnicodeResponder.new
+ .normal(
+ $a -> {
+ "a ".postln;
+ },
+ $b -> {
+ "b".postln;
+ },
+ $; -> {
+ ";".postln;
+ },
+ $' -> {
+ "'".postln;
+ }
+ )
+ .shift(
+ $A -> {
+ "shift a".postln;
+ },
+ $B -> {
+ "shift b".postln;
+ },
+ $: -> {
+ "shift ;".postln;
+ },
+ $" -> {
+ "shift '".postln;
+ }
+ );
 
+ )
+)
 
 
-see also KeyCodeResponder
 
+ 
+ 
 
 
-If you merely check the modifier like so:
- (modifer & optionModifier ) == optionModifier
-you will detect the presence of the options key, 
-but not if only the option key is present ( eg. for shift-option )
- 
- 
+If you merely check the modifier like so:
+ (modifer & optionModifier ) == optionModifier
+you will detect the presence of the options key, 
+but not if only the option key is present ( eg. for shift-option )
+ 
+ 
 
- 
+ 
</body>
</html>

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

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

2008-07-05T11:43:40Z

Revision: 7648
http://svn.sourceforge.net/supercollider/?rev=7648&view=rev
Author: cruxxial
Date: 2008-07-05 11:43:40 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
minor: backwards compat for sc2 style { } in Enveloper2.ar
plus a change in Patch help file

Modified Paths:
--------------
trunk/build/Help/Libraries/crucial/Instr/Patch.html
trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/AudioHelpers.sc

Modified: trunk/build/Help/Libraries/crucial/Instr/Patch.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-05 16:26:11 UTC (rev 7647)
+++ trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-05 18:43:40 UTC (rev 7648)
@@ -32,7 +32,9 @@
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 Helvetica; color: #0018e8}
+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}
@@ -558,19 +560,19 @@
 
p.play
 
+ 
+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. 
+ 
 
-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. 
+see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
 
 
 
 
-see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
- 
- 
- 
- 
</body>
</html>

Modified: trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/AudioHelpers.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/AudioHelpers.sc 2008-07-05 16:26:11 UTC (rev 7647)
+++ trunk/build/SCClassLibrary/crucial/UncoupledUsefulThings/AudioHelpers.sc 2008-07-05 18:43:40 UTC (rev 7648)
@@ -2,7 +2,7 @@
NumChannels {

*ar { arg input,numChannels=2,mixdown=true;
-
+
if(input.size > 1,{// collection
^input
.clump(input.size / numChannels)
@@ -21,7 +21,7 @@
if(input.isSequenceableCollection,{
input = input.at(0);
});
-
+
if(numChannels == 1,{
^input
},{
@@ -29,12 +29,12 @@
})
})
}
-
+
}

XFader { // UNIPOLAR
// XFade2 is now cheaper (in c)
-
+
*ar { arg l, r, pan;
^(l + (pan * (r - l)))
}
@@ -91,23 +91,25 @@

Mono {
- *new { arg input;
+ *new { arg input;
if(input.isArray,{
^input.at(0)
},{
^input
})
- }
+ }
}

// audio function plays continously but is gated by the envelope
-Enveloper2 {
-
+Enveloper2 {
+
*ar { arg audio,gate,env;
var ts,gated;
gated = Latch.kr(gate,gate);
env ?? {env = Env.adsr};
+ // backwards compatibility : value the function
+ if(audio.class === Function,{ audio = audio.value });
^audio * EnvGen.kr(env,gate,gated)
}

@@ -123,8 +125,8 @@
var t;
t=Trig.ar(trig,2.26757e-05);
^t.madd(mul,add)
-
+
// was this in sc2, sounds different
//^ImpulseSequencer.ar({trig.poll},K2A.ar(trig),mul,add)
- }
+ }
}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

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

2008-07-05T09:26:12Z

Revision: 7647
http://svn.sourceforge.net/supercollider/?rev=7647&view=rev
Author: cruxxial
Date: 2008-07-05 09:26:11 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
adding -onTrig support inside of Patch

Modified Paths:
--------------
trunk/build/Help/Libraries/crucial/Instr/Patch.html
trunk/build/SCClassLibrary/crucial/Instr/InstrSynthDef.sc
trunk/build/SCClassLibrary/crucial/Instr/Patch.sc
trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc

Modified: trunk/build/Help/Libraries/crucial/Instr/Patch.html
===================================================================
--- trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-03 18:53:16 UTC (rev 7646)
+++ trunk/build/Help/Libraries/crucial/Instr/Patch.html 2008-07-05 16:26:11 UTC (rev 7647)
@@ -5,40 +5,49 @@
<meta http-equiv="Content-Style-Type" content="text/css">
<title></title>
<meta name="Generator" content="Cocoa HTML Writer">
-<meta name="CocoaVersion" content="824.44">
+<meta name="CocoaVersion" content="824.48">
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 18.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
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: #853519}
-p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #653e23}
+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.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: #a8220e}
-p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #132ea3}
+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.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: #5d652d}
-p.p13 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #316f11}
+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.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: #5d652d; min-height: 12.0px}
-p.p16 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #952e14}
-p.p17 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0013bb}
-p.p18 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #653e23; min-height: 12.0px}
-p.p19 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0018e8}
-span.s1 {color: #001af9}
-span.s2 {color: #0021b3}
-span.s3 {color: #4e6a1f}
+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 Helvetica; color: #0018e8}
+span.s1 {color: #0025f3}
+span.s2 {color: #0626af}
+span.s3 {color: #556824}
span.s4 {color: #000000}
-span.s5 {color: #0013bb}
-span.s6 {color: #316f11}
-span.s7 {color: #132ea3}
+span.s5 {color: #001bb7}
+span.s6 {color: #436c19}
+span.s7 {color: #1731a0}
span.s8 {color: #606060}
-span.s9 {color: #5d652d}
-span.s10 {text-decoration: underline ; color: #0018e8}
-span.s11 {color: #001bb7}
-span.s12 {color: #436c19}
-span.s13 {font: 12.0px Helvetica}
+span.s9 {color: #5f6430}
+span.s10 {text-decoration: underline ; color: #0022e3}
+span.s11 {color: #0021b3}
+span.s12 {color: #4e6a1f}
+span.s13 {color: #0000bf}
+span.s14 {color: #007300}
+span.s15 {font: 12.0px Helvetica}
span.Apple-tab-span {white-space:pre}
</style>
</head>
@@ -487,10 +496,81 @@
 
)
 
-see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
 
 
+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.
 
 
+UGen:onTrig(function,value)
+ 
+ trigger.onTrig({ |time,value|
+ "did trig".postln
+ })
+ 
+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.
+ 
+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
+ 
+ 
+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. 
+ 
+ 
+ 
+ 
+see also [<a href="SC://InstrGateSpawner">InstrGateSpawner</a>]
+ 
+ 
+ 
+ 
</body>
</html>

Modified: trunk/build/SCClassLibrary/crucial/Instr/InstrSynthDef.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/InstrSynthDef.sc 2008-07-03 18:53:16 UTC (rev 7646)
+++ trunk/build/SCClassLibrary/crucial/Instr/InstrSynthDef.sc 2008-07-05 16:26:11 UTC (rev 7647)
@@ -57,7 +57,7 @@
//out = outClass.perform(if(this.rate == \audio,\ar,\kr),
// inputs.at(0),xfader.value,out)
});
-
+
rate.switch(
\audio, {
result = outClass.ar(Control.names([\out]).ir([0]) , result);
@@ -70,6 +70,11 @@
("InstrSynthDef: result of your Instr function was a scalar rate object:"
+ result + this.buildErrorString).error;
},
+ \noncontrol,{
+
+ ("InstrSynthDef: result of your Instr function was a noncontrol rate object:"
+ + result + this.buildErrorString).error;
+ },
{
("InstrSynthDef: result of your Instr function was an object with unknown rate:"
+ result + rate + this.buildErrorString).error;
@@ -98,6 +103,11 @@
// but after that comes secret args and the out
if(i > argInstr.argNames.size,{
name = name ++ controlName.name.asString;
+ },{
+ //inputs[i].addToDefName
+ // if outputProxy != control
+
+
});
switch(controlName.rate,
\control, {
@@ -116,7 +126,6 @@
name = name ++ controlName.defaultValue.asCompileString;
});
});
-
longName = name;
firstName = argInstr.name.last.asString;
if(firstName.size > 20,{
@@ -341,26 +350,65 @@
})
^sd
}
- synthProxy {
+
+ // in the context of an InstrSynthDef
+ // InstrSynthDef.buildSynthDef.onTrig(sig,func,pollableValue)
+ // this allows to execute the func in the client whenever the trigger goes
+ // the mechanics and the adding/removing of the responder are taken care of
+ // because Patch knows when it starts and stops the synth
+ onTrig { |trig,func,value=0.0|
+ // triggerID is the nTh onTrig we have so far added + 9999
+ var triggerID,onTrig;
+ triggerID = stepchildren.select({|sc|sc.isKindOf(ClientOnTrigResponder)}).size + 9999;
+ onTrig = ClientOnTrigResponder(triggerID,func);
+ stepchildren = stepchildren.add(onTrig);
+
+ ^SendTrig.kr(trig,triggerID,value)
+ }
+
+ /*synthProxy {
^synthProxy ?? {
synthProxy = SynthProxy.new;
stepchildren = stepchildren.add(synthProxy);
- synthProxy
+ synthProxy
}
+ }*/
+}
+
+
+
+ClientOnTrigResponder {
+
+ var <>triggerID, <>func,responder;
+
+ *new { |triggerID,func|
+ ^super.newCopyArgs(triggerID,func)
}
+ didSpawn { |synth|
+ var commandpath = ['/tr', synth.nodeID, triggerID];
+ responder = OSCpathResponder(synth.server.addr, commandpath,
+ {|time,responder,message| func.value(time,message[3]) });
+ responder.add;
+ }
+ stopToBundle { |b|
+ b.addFunction({ responder.remove; responder = nil })
+ }
}

// SynthProxy is a way to access the Synth once the SynthDef has started playing
// there is only one SynthProxy per synth def, though there may be multiple synths spawned
// the synthProxy is in stepchildren and in the Patch's stepChildren so it is prepared and spawned.
// it is roughly equivalent to the synth argument in SC2's Spawn
-SynthProxy {
- var events,sched;
+//
+/*SynthProxy {
+
+ var events,sched,<synth;
+
spawnToBundle { |b|
b.addMessage(this,\didSpawn)
}

- didSpawn {
+ didSpawn { |synth|
sched = BeatSched.new;
// sched any events
events.do({ |df|
@@ -370,9 +418,8 @@
sched { |delta, function|
events = events.add([delta,function]);
}
- channelOffset_ {
+ / *channelOffset_ {
// shift the Out.ar
- }
-}
+ }* /
+}*/

-

Modified: trunk/build/SCClassLibrary/crucial/Instr/Patch.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-07-03 18:53:16 UTC (rev 7646)
+++ trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-07-05 16:26:11 UTC (rev 7647)
@@ -441,6 +441,12 @@
);
bundle.addMessage(this,\didSpawn);
}
+ didSpawn {
+ super.didSpawn;
+ this.stepChildren.do({ |child|
+ child.didSpawn(this.synth)
+ })
+ }
synthDefArgs {
// not every arg makes it into the synth def
var args;
@@ -459,7 +465,6 @@

stopToBundle { arg bundle;
super.stopToBundle(bundle);
- //bundle.addMessage(this,\didStop);
stepChildren.do({ |sc|
sc.stopToBundle(bundle)
})
@@ -520,7 +525,13 @@

children { ^args }

- printOn { arg s; s << this.class.name << "(" <<< instr.dotNotation << " )"; }
+ printOn { arg s;
+ var n;
+ s << this.class.name << "(" <<< instr.dotNotation << ")";
+ if((n = this.name).notNil,{
+ s << "{"++n++"}";
+ });
+ }
storeParamsOn { arg stream;
var last;
if(this.class === Patch,{ // an indulgence ...

Modified: trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-07-03 18:53:16 UTC (rev 7646)
+++ trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-07-05 16:26:11 UTC (rev 7647)
@@ -254,6 +254,14 @@
}
}

++ UGen {
+ onTrig { |func,value=0.0|
+ if(this.rate != \control,{
+ Error("UGen:onTrig only permissable with a control rate signal").throw;
+ });
+ ^InstrSynthDef.buildSynthDef.onTrig(this,func,value)
+ }
+}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7644] trunk/build/SCClassLibrary/crucial/Instr/ instrSupport.sc

2008-06-30T03:46:16Z

Revision: 7644
http://svn.sourceforge.net/supercollider/?rev=7644&view=rev
Author: cruxxial
Date: 2008-06-30 03:46:16 -0700 (Mon, 30 Jun 2008)

Log Message:
-----------
relaxing spec determination so that it only prints a warning if it can't figure the spec. list patterns are unable to determine spec right now since number doesn't return a spec

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc

Modified: trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-06-30 08:16:32 UTC (rev 7643)
+++ trunk/build/SCClassLibrary/crucial/Instr/instrSupport.sc 2008-06-30 10:46:16 UTC (rev 7644)
@@ -156,9 +156,11 @@
^StreamSpec(StaticSpec(list.minItem,list.maxItem))
});
});
- ("unable to determine spec" + this.asCompileString).die;
+ ("unable to determine spec of" + this.asCompileString).warn;
+ ^nil
}
}
+
+ Pfsm {
spec {
^thisMethod.notYetImplemented
@@ -201,18 +203,18 @@
}
+ KrNumberEditor {
addToDefName { arg stream;
- ^1
+ ^\kr
}
}
+ IrNumberEditor {
addToDefName { arg stream;
- ^0
+ ^\ir
}
}
+ SimpleNumber {
addToDefName { arg stream;
stream << this.asFileSafeString;
- ^2
+ ^\obj
}
}
+ BufferProxy {
@@ -227,10 +229,10 @@
+ Sample {
addToDefName { arg stream;
// beatsizek
- var sum;
- sum = numChannels - 1; // assumes no quad samples
- if(beatsizek.notNil,{ sum = sum + 2 });
- stream << sum;
+ //var sum;
+ //sum = numChannels - 1; // assumes no quad samples
+ //if(beatsizek.notNil,{ sum = sum + 2 });
+ //stream << sum;
^2
}
spec {
@@ -247,7 +249,7 @@
// the big one, espec. Env
+ Object {
addToDefName { arg stream;
- stream << this.asCompileString.hash.asFileSafeString;
+ stream << this.asCompileString;//.hash.asFileSafeString;
^2
}
}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7636] trunk/build/SCClassLibrary/Common/Streams /IOStream.sc

2008-06-22T10:43:01Z

Revision: 7636
http://svn.sourceforge.net/supercollider/?rev=7636&view=rev
Author: joshpar
Date: 2008-06-22 10:43:01 -0700 (Sun, 22 Jun 2008)

Log Message:
-----------
fix typo in getFloat and getDouble

Modified Paths:
--------------
trunk/build/SCClassLibrary/Common/Streams/IOStream.sc

Modified: trunk/build/SCClassLibrary/Common/Streams/IOStream.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Streams/IOStream.sc 2008-06-19 12:53:21 UTC (rev 7635)
+++ trunk/build/SCClassLibrary/Common/Streams/IOStream.sc 2008-06-22 17:43:01 UTC (rev 7636)
@@ -111,8 +111,8 @@
getInt8 { ^this.next & 255; }
getInt16 { ^this.getInt8 << 8 | this.getInt8; }
getInt32 { ^this.getInt16 << 16 | this.getInt16; }
- getFloat { ^Float.from32bits(this.getInt32); }
- getDouble { ^Float.from64bits(this.getInt32, this.getInt32); }
+ getFloat { ^Float.from32Bits(this.getInt32); }
+ getDouble { ^Float.from64Bits(this.getInt32, this.getInt32); }
//
// collection should be an Int8Array
putChar { arg aChar; this.put(aChar.ascii); }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7635] trunk/build/SCClassLibrary/crucial/Instr/ Instr.sc

2008-06-19T05:53:22Z

Revision: 7635
http://svn.sourceforge.net/supercollider/?rev=7635&view=rev
Author: cruxxial
Date: 2008-06-19 05:53:21 -0700 (Thu, 19 Jun 2008)

Log Message:
-----------
UGenInstr was broken

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Instr/Instr.sc

Modified: trunk/build/SCClassLibrary/crucial/Instr/Instr.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/Instr.sc 2008-06-18 01:46:52 UTC (rev 7634)
+++ trunk/build/SCClassLibrary/crucial/Instr/Instr.sc 2008-06-19 12:53:21 UTC (rev 7635)
@@ -1,14 +1,14 @@

-Instr {
+Instr {

classvar <dir;

var <>name, <>func, <>specs, <>outSpec, >path;
- var <explicitSpecs;
-
- // specs are optional, can be guessed from the argnames
- // outSpec is optional, can be determined by evaluating the func
+ var <explicitSpecs;// specs that were explicitly stated on construction (not guessed)
+
+ // specs are optional : can be guessed from the argnames
+ // outSpec is optional : can be determined by evaluating the func and examining the result
*new { arg name, func, specs, outSpec;
var previous;
if(func.isNil,{ ^this.at(name) });
@@ -16,7 +16,7 @@
previous = Library.atList(name.copy.addFirst(this));
if(previous.notNil,{
if(previous.isKindOf(Instr).not,{
- Error("The Instr name address " + name +
+ Error("The Instr name address " + name +
"is already occupied by a branch node. You may only add new Instr to the leaves").throw;
});
previous.func = func;
@@ -53,18 +53,18 @@
}.try({ arg err;
("ERROR while loading " + path).postln;
err.throw;
- });
+ });
});
}
*clearAll {
Library.global.removeAt(this)
}
-
+
*ar { arg name, args;
var instr;
instr=this.at(name);
if(instr.isNil,{
- die("Instr not found !!"
+ die("Instr not found !!"
+ name.asCompileString + "in Meta_Instr:ar");
},{
^instr.valueArray(args)
@@ -88,23 +88,23 @@
next { arg ... inputs;
^func.valueArray(inputs)
}
-
+
// set the directory where your library of Instr is to be found
*dir_ { arg p;
dir = p.standardizePath.withTrailingSlash;
}

- rate {
- ^if(outSpec.notNil,{
+ rate {
+ ^if(outSpec.notNil,{
outSpec.rate;
},{
// if you aren't audio, you must specify an outSpec
\audio
})
}
- numChannels {
+ numChannels {
^if(outSpec.notNil,{
- outSpec.numChannels
+ outSpec.numChannels
},{ // if you are more than one channel, you must specify an outSpec
1
});
@@ -116,21 +116,21 @@
argNames { ^(func.def.argNames ? []).asList }
defArgs { ^(func.def.prototypeFrame ? []).asList }

- argNameAt { arg i;
+ argNameAt { arg i;
var nn;
nn=func.def.argNames;
^if(nn.notNil,{nn.at(i)},nil);
}
- defArgAt { arg i;
+ defArgAt { arg i;
var nn;
nn=func.def.prototypeFrame;
^nn.at(i)
}
// the default value supplied in the function
- initAt { arg i;
+ initAt { arg i;
^(this.defArgAt(i) ?? {this.specs.at(i).tryPerform(\default)})
}
-
+
defName { ^this.class.symbolizeName(name).collect(_.asString).join($.) }
asSynthDef { arg args,outClass=\Out;
var synthDef;
@@ -142,7 +142,7 @@
prepareToBundle { arg group,bundle;
this.asSynthDef.prepareToBundle(group,bundle);
}
-
+
writeDefFile { arg dir;
this.asSynthDef.writeDefFile(dir);
}
@@ -152,7 +152,7 @@
synthDef.writeDefFile(dir);
}
// for use in patterns
- store {
+ store {
var args;
args = this.specs.collect({ arg spec,i;
if(spec.rate == \control or: spec.rate == \stream,{
@@ -160,13 +160,13 @@
},{
spec.defaultControl(this.initAt(i))
})
- });
+ });
^this.asSynthDef(args).store
}
asDefName {
^this.store.name
}
-
+
test { arg ... args;
var p;
p = Patch(this.name,args);
@@ -179,7 +179,7 @@
*choose { arg start;
// this is only choosing from Instr in memory,
// it is not loading all possible Instr from file
- ^if(start.isNil,{
+ ^if(start.isNil,{
Library.global.choose(this)
},{
Library.global.performList(\choose,([this] ++ this.symbolizeName(start)))
@@ -207,7 +207,7 @@
*chooseBySpec { arg outSpec;
^this.selectBySpec(outSpec).choose
}
-
+
//private
*put { arg instr;
^Library.putList([this,this.symbolizeName(instr.name),instr].flatten )
@@ -221,19 +221,19 @@
this.new( [name,pairs@i ],pairs@(i+1),nil,outSpec)
})
}
-
+
*symbolizeName { arg name;
if(name.isString,{
^name.split($.).collect(_.asSymbol);
});
if(name.isKindOf(Symbol),{
^[name];
- });
+ });
if(name.isSequenceableCollection,{
^name.collect(_.asSymbol);
});
error("Invalid name for Instr : "++name);
- }
+ }

*objectAt { arg name;
var symbolized,search,path,pathParts,rootPath,instr;
@@ -242,7 +242,7 @@
if(search.notNil,{ ^search });

this.findFileFor(symbolized);
-
+
// its either loaded now or its nil
^Library.atList([this] ++ symbolized);
}
@@ -269,7 +269,7 @@

pathPartsFirst = pathParts.first;
if(fullInstrName.isNil,{ fullInstrName = symbolized.copy });
-
+
// if its a multi-part name then could be
// [\synths,\stereo,\SinOsc,\pmod]
// possible files:
@@ -282,15 +282,15 @@
file = path.copyRange(rootPath.size,path.size-1);
if(file.last == $/,{
if(file.copyRange(0,file.size-2) == pathPartsFirst,{
- ^this.findFileInDir(symbolized.copyRange(1,symbolized.size-1),
- rootPath ++ file,
+ ^this.findFileInDir(symbolized.copyRange(1,symbolized.size-1),
+ rootPath ++ file,
fullInstrName );
});
},{
orcname = PathName(file).fileNameWithoutExtension;
if(orcname == pathPartsFirst,{
path.load;
-
+
//fullInstrName copied up until including orcname
symbols = [];
fullInstrName.any({ |n|
@@ -302,7 +302,7 @@
});
});
});
-
+
^nil
}
dotNotation {
@@ -313,7 +313,7 @@
})
})
}
-
+
// this is a tilda delimited version of the name
asSingleName {
^String.streamContents({ arg s;
@@ -326,18 +326,18 @@
*singleNameAsNames { arg singleName;
^singleName.asString.split($~).collect({ arg n; n.asSymbol })
}
-

+
asString { ^"%(%)".format(this.class.name, this.defName.asCompileString) }
- storeArgs {
- if(this.path.notNil,{
+ storeArgs {
+ if(this.path.notNil,{
^[this.dotNotation]
},{
^[this.dotNotation,this.func,this.specs,this.outSpec]
});
}
-
+
*initClass {
Class.initClassTree(Document);
// default is relative to your doc directory
@@ -348,8 +348,8 @@
path = thisProcess.nowExecutingPath; // ?? { Document.current.path };
});
specs = specs ? #[];
- if(specs.isKindOf(SequenceableCollection).not,{
- Error("Specs should be of type array or nil.").throw
+ if(specs.isKindOf(SequenceableCollection).not,{
+ Error("Specs should be of type array or nil.").throw
});
this.makeSpecs(specs ? #[]);
if(outsp.isNil,{
@@ -364,12 +364,12 @@
}
makeSpecs { arg argspecs;
explicitSpecs = specs ? [];
- specs =
+ specs =
Array.fill(this.argsSize,{ arg i;
var sp,name;
name = this.argNameAt(i);
sp = argspecs.at(i);
- if(sp.isSequenceableCollection,{
+ if(sp.isSequenceableCollection,{
// backwards compatibility with old spec style
// [\envperc]
// [[0,1]]
@@ -383,7 +383,7 @@
},{
sp = (sp ? name).asSpec ?? {ControlSpec.new};
});
- //sp.copy;
+ //sp.copy;
sp
});
}
@@ -393,14 +393,14 @@
source = this.func.def.sourceCode;
if(source.notNil,{
lines = source.split($\n);
-
+
w = lines.maxValue({ |l| l.size }) * 7;
h = lines.size * 13;
-
+
tf = GUI.textField.new(layout,Rect(0,0,w,h));
tf.string = source;
tf.font_(GUI.font.new("Helvetica",10.0));
- });
+ });
if(path.notNil,{
CXLabel(layout.startRow,path);
// ActionButton(layout.startRow,"open file...",{ path.openTextFile });
@@ -408,7 +408,7 @@
ArgNameLabel("outSpec:",layout.startRow,150);
this.outSpec.asString.gui(layout);
this.argNames.do({ arg a,i;
- layout.startRow;
+ layout.startRow;
ArgNameLabel( a ,layout,150);
CXLabel(layout, " = " ++ this.defArgAt(i).asString,100);
specWidth = min(layout.indentedRemaining.width,300);
@@ -447,10 +447,10 @@
// make a virtual Instr by reading the *ar and *kr method def
// eg Patch(SinOsc,[ 440 ])

-UGenInstr {
+UGenInstr {

var <ugenClass,<rate,<specs;
-
+
*new { arg ugenClass,rate=\ar;
^super.new.init(ugenClass,rate)
}
@@ -460,7 +460,7 @@
init { arg uc,r;
ugenClass = uc.asClass;
rate = r;
-
+
//specs
specs = this.argNames.collect({ arg ag,i;
ag.asSpec ?? {
@@ -470,19 +470,26 @@
}

value { arg args;
- ^ugenClass.performList(rate,args)
+ ^ugenClass.performList(rate,args)
}
valueArray { arg args;
^ugenClass.performList(rate,args)
}

- ar { arg ... args; ^this.value(args) }
+ ar { arg ... args; ^this.value(args) }
kr { arg ... args; ^this.value(args) }
-
+ outSpec {
+ if(rate=='ar',{
+ ^\audio
+ },{
+ ^\control
+ })
+ }
+ dotNotation { ^ugenClass.asString }
funcDef { ^ugenClass.class.findMethod(rate) }
maxArgs { ^this.argsSize }
argsSize { ^this.funcDef.argNames.size - 1 }
- argNames {
+ argNames {
var an;
an = this.funcDef.argNames;
^if(an.isNil,{
@@ -490,32 +497,32 @@
},{
an.copyRange(1,an.size - 1)
})
- }
+ }

//defaultArgs
- defArgs {
+ defArgs {
var nn;
nn=this.funcDef.prototypeFrame;
^if(nn.notNil,{nn.copyRange(1,nn.size-1)},{[]});
}

initAt { arg i; ^(this.defArgAt(i) ?? {this.specs.at(i).default}) }
- argNameAt { arg i;
+ argNameAt { arg i;
var nn;
nn=this.funcDef.argNames;
^if(nn.notNil,{nn.at(i + 1)},{nil});
}
defArgAt {
- arg i;
+ arg i;
var nn;
nn=this.funcDef.prototypeFrame;
^if(nn.notNil,{nn.at(i + 1)},{nil});
}
-
+
// guiClass { ^UGenInstrGui }
asString { ^"UGenInstr " ++ ugenClass.name.asString }
asInstr { ^this }
- name { ^ugenClass }
+ name { ^ugenClass.asString }

}

@@ -526,7 +533,7 @@
<>onPlay,
<>onStop,
<>onFree,
-
+
<>onNoteOn,
<>onNoteOff,
<>onPitchBend,
@@ -535,7 +542,7 @@
<guiBodyFunction,
<>keyDownAction,
<>keyUpAction;
-
+
// do your own views to handle these
//<>beginDragAction,
//<>mouseDownAction,

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7625] trunk/editors/scvim

2008-06-11T11:36:11Z

Revision: 7625
http://svn.sourceforge.net/supercollider/?rev=7625&view=rev
Author: alexnorman
Date: 2008-06-11 11:36:10 -0700 (Wed, 11 Jun 2008)

Log Message:
-----------
updated the help docs and install comments just to have a little more info on installation
still need to replace the INSTALL with scons..

Modified Paths:
--------------
trunk/editors/scvim/INSTALL
trunk/editors/scvim/README

Modified: trunk/editors/scvim/INSTALL
===================================================================
--- trunk/editors/scvim/INSTALL 2008-06-11 18:23:05 UTC (rev 7624)
+++ trunk/editors/scvim/INSTALL 2008-06-11 18:36:10 UTC (rev 7625)
@@ -1,5 +1,8 @@
#!/bin/sh

+#currently only installs for one user as $HOME/.vim is the VIM_FILES_DEST target.
+#change this to something else in the system vim runtimepath to install for more users
+
VIM_FILES_DEST=$HOME/.vim
BIN_DEST=/usr/local/bin/
SCEXTENSION_DIR=/usr/local/share/SuperCollider/Extensions

Modified: trunk/editors/scvim/README
===================================================================
--- trunk/editors/scvim/README 2008-06-11 18:23:05 UTC (rev 7624)
+++ trunk/editors/scvim/README 2008-06-11 18:36:10 UTC (rev 7625)
@@ -20,6 +20,14 @@

INSTALLATION STEPS:

+Automatic:
+
+edit INSTALL and run it [as sudo most likely]. The path requirements are
+listed in the manual install below. Make sure the SCVim class is sourced
+in your library [see step 4].
+
+Manual Install:
+
1) copy the contents of bin/ somewhere in your path.. for example
sudo cp bin/* /usr/local/bin/

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7624] trunk/editors/scvim/scclasses/SCVim.sc

2008-06-11T11:23:06Z

Revision: 7624
http://svn.sourceforge.net/supercollider/?rev=7624&view=rev
Author: alexnorman
Date: 2008-06-11 11:23:05 -0700 (Wed, 11 Jun 2008)

Log Message:
-----------
updated the SCVim class with a change John Yates sent which fixes the
updateHelpCache method when there are multiple help sources.

Modified Paths:
--------------
trunk/editors/scvim/scclasses/SCVim.sc

Modified: trunk/editors/scvim/scclasses/SCVim.sc
===================================================================
--- trunk/editors/scvim/scclasses/SCVim.sc 2008-06-10 20:05:03 UTC (rev 7623)
+++ trunk/editors/scvim/scclasses/SCVim.sc 2008-06-11 18:23:05 UTC (rev 7624)
@@ -97,7 +97,7 @@
var script;
if(helpPaths.isNil){ helpPaths = [Platform.helpDir]};
// Just run the ruby script
- ("scvim_make_help.rb".quote + "-c -f" + helpPaths.collect{|p| "-s" + p.quote}).systemCmd;
+ ("scvim_make_help.rb".quote + "-c -f".scatList(helpPaths.collect{|p| "-s" + p.quote})).systemCmd;
}

} // end class

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

Re: filter banks

2008-06-09T13:13:42Z

Hi Dan and Josh,

Thanks both. I missed the existence of MFCC and I will check out
the Vocode class.

Thanks again!

RJK
On Jun 9, 2008, at 3:41 PM, Dan Stowell wrote:

> Hi -
>
> The MFCC UGen has (of course) a Mel-spaced filter-bank applied to FFT
> bins. Not sure if that's appropriate or if you want time-domain
> filters. I think Nick also has analogous code for Bark scale.
>
> Dan
>
>
> 2008/6/9 ronald kuivila <rkuivila@...>:
>> Hi all,
>>
>> I am interested in doing some work with a bark or mel spaced filter
>> bank and am wondering if anyone has
>> done anything in SC along these lines or, barring that, have any
>> suggestions of existing gpl implementations to cannnibalize...
>>
>> Cheers,
>>
>> RJK
>>
>> _______________________________________________
>> sc-dev mailing list
>> sc-dev@...
>> http://lists.create.ucsb.edu/mailman/listinfo/sc-dev
>>
>
>
>
> --
> http://www.mcld.co.uk
> _______________________________________________
> sc-dev mailing list
> sc-dev@...
> http://lists.create.ucsb.edu/mailman/listinfo/sc-dev
>

_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

Re: filter banks

2008-06-09T12:41:04Z

Hi -

The MFCC UGen has (of course) a Mel-spaced filter-bank applied to FFT
bins. Not sure if that's appropriate or if you want time-domain
filters. I think Nick also has analogous code for Bark scale.

Dan

2008/6/9 ronald kuivila <rkuivila@...>:

> Hi all,
>
> I am interested in doing some work with a bark or mel spaced filter
> bank and am wondering if anyone has
> done anything in SC along these lines or, barring that, have any
> suggestions of existing gpl implementations to cannnibalize...
>
> Cheers,
>
> RJK
>
> _______________________________________________
> sc-dev mailing list
> sc-dev@...
> http://lists.create.ucsb.edu/mailman/listinfo/sc-dev
>

--
http://www.mcld.co.uk
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

Re: filter banks

2008-06-09T11:46:04Z

Hi Ron,

Funny... I was just thinking about making some UGens along similar
lines. I have two Bark-based classes that I want to UGen up.. they are
both in my lib if you are interested in looking at them. The first is
BarkDelay. This is a filter based class that Pete Moss and I put
together to try and mimic spectral delay a few years back. I now have
a VERY spectral delay like UGen (PV_BinDelay), but the filter based
one with just the 25 bands had a nice feel to it, and I still use it
for its sound. The second is my Vocode class... not a shabby little
vocoder, and again it has a nice sound to it I think because of the
Bark nature of it.

I may start trying to code these up in the next week or two since my
awake schedule is currently in chaos with my new daughter. I have
found that I am awake holding an uncomfortable little one for 3-4
hours a night ... this has proven to be some good coding / composing
time!

Josh

On Jun 9, 2008, at 10:18 AM, ronald kuivila wrote:

******************************************
/* Joshua D. Parmenter
http://www.realizedsound.net/josh/

“Every composer – at all times and in all cases – gives his own
interpretation of how modern society is structured: whether actively
or passively, consciously or unconsciously, he makes choices in this
regard. He may be conservative or he may subject himself to continual
renewal; or he may strive for a revolutionary, historical or social
palingenesis." - Luigi Nono
*/

_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

filter banks

2008-06-09T10:18:18Z

Hi all,

I am interested in doing some work with a bark or mel spaced filter
bank and am wondering if anyone has
done anything in SC along these lines or, barring that, have any
suggestions of existing gpl implementations to cannnibalize...

Cheers,

RJK

_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev

SF.net SVN: supercollider: [7618] trunk/build/SCClassLibrary/crucial/Gui/ ActionButton.sc

2008-06-07T08:42:20Z

Revision: 7618
http://svn.sourceforge.net/supercollider/?rev=7618&view=rev
Author: cruxxial
Date: 2008-06-07 08:42:20 -0700 (Sat, 07 Jun 2008)

Log Message:
-----------
fixing bug due to operator order when passing in margin or gap

Modified Paths:
--------------
trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc

Modified: trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc 2008-06-03 00:09:27 UTC (rev 7617)
+++ trunk/build/SCClassLibrary/crucial/Gui/ActionButton.sc 2008-06-07 15:42:20 UTC (rev 7618)
@@ -146,7 +146,7 @@
bounds = bounds.moveTo(0, 0);
};
//view.decorator = FlowLayout(bounds,2@2/*GUI.skin.margin*/,4@4);
- view.decorator = FlowLayout(bounds,margin ? 2@0/*GUI.skin.margin*/,gap ? 4@4);
+ view.decorator = FlowLayout(bounds,margin ?? {2@0},gap ?? {4@4});
autoRemoves = IdentitySet.new;
}
startRow {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev