[Swingosc-devel] control rate scope
Brought to you by:
sciss
From: nescivi <ne...@gm...> - 2008-04-21 18:49:39
|
Hiho, In conjunction with the kr rate PlayBuf and RecordBuf versions, I would like to also add the control rate scoping properly. Ok to commit the diff below? it works here... sincerely, Marije Index: SuperCollider/SCClassLibrary/SwingOSC/JScopeView.sc =================================================================== --- SuperCollider/SCClassLibrary/SwingOSC/JScopeView.sc (revision 63) +++ SuperCollider/SCClassLibrary/SwingOSC/JScopeView.sc (working copy) @@ -35,12 +35,12 @@ JScopeOut : UGen { // ----------------- quasi-constructors ----------------- - *ar { arg inputArray, bufnum = 0; - ^RecordBuf.ar( inputArray, bufnum ); + *ar { arg inputArray, bufnum = 0, run=1; + ^RecordBuf.ar( inputArray, bufnum, run: run ); } - *kr { arg inputArray, bufnum = 0; - ^RecordBuf.ar( K2A.ar( inputArray ), bufnum ); + *kr { arg inputArray, bufnum = 0, run=1; + ^RecordBuf.kr( inputArray, bufnum, run: run ); } } Index: SuperCollider/SCClassLibrary/SwingOSC/JStethoscope.sc =================================================================== --- SuperCollider/SCClassLibrary/SwingOSC/JStethoscope.sc (revision 63) +++ SuperCollider/SCClassLibrary/SwingOSC/JStethoscope.sc (working copy) @@ -33,7 +33,7 @@ * @version 0.58, 12-Jan-08 */ JStethoscope { + classvar ugenScopes; var <server, <numChannels, <rate, <index; var <bufsize, buffer, <window, synth; var n, c, d, sl, style = 0, sizeToggle = 0, zx, zy, ai = 0, ki = 0, audiospec, controlspec; @@ -97,8 +97,9 @@ if( synth.isPlaying.not, { synth = SynthDef( "jscope" ++ numChannels, { arg in, switch, bufnum; var z; - z = Select.ar( switch, [ In.ar( in, numChannels ), K2A.ar( In.kr( in, numChannels ))]); - JScopeOut.ar( z, bufnum ); + // Select.ar( switch, + JScopeOut.ar( In.ar( in, numChannels ), bufnum, 1-switch ); + JScopeOut.kr( In.kr( in, numChannels ), bufnum, switch ); }).play( RootNode( server ), [ \bufnum, buffer.bufnum, \in, index, \switch ] ++ if( rate === 'audio', 0, 1 ), \addToTail ); |