Wikispaces>FREEZE at 00:00, 17 July 2018

2018-07-17T00:00:00Z

← Older revision		Revision as of 00:00, 17 July 2018
Line 1:		Line 1:
	~~<h2>IMPORTED REVISION FROM WIKISPACES</h2>~~		<pre> <span style="">//ChucK code for Superparticular Samchillian</span><span style="">//Samchillian idea by Leon Gruenbaum</
	~~This is an imported revision from Wikispaces. The revision metadata is included below for reference:<br>~~
	~~: This revision was by author [[User:xenjacob\|xenjacob]] and made on <tt>2012-06-07 19:38:40 UTC</tt>.<br>~~
	~~: The original revision id was <tt>343680102</tt>.<br>~~
	~~: The revision comment was: <tt></tt><br>~~
	~~The revision contents are below, presented both in the original Wikispaces Wikitext format, and in HTML exactly as Wikispaces rendered it.<br>~~
	~~<h4>Original Wikitext content:</h4>~~
	<div style="width:100%; max-height:400pt; overflow:auto; background-color:#f8f9fa; border: 1px solid #eaecf0; padding:0em"><pre style="margin:0px;border:none;background:none;word-wrap:break-word;white-space: pre-wrap ! important" class="old-revision-html">[[code format="java"]]

	~~//ChucK code for Superparticular Samchillian~~
	~~//Samchillian idea by Leon Gruenbaum~~
	~~//superparticular-ratio implementation by Jacob Barton~~

	~~//paste these lines into a new document in miniAudicle, or save text as a .ck to run in command-line~~

	~~//change these to match your input/output device~~
	~~0 => int inDeviceNum;~~
	~~1 => int outDeviceNum;~~

	~~class MicroRobinMidiIO~~
	{
	~~MidiIn min;~~
	~~MidiOut mouse;~~
	~~MidiMsg inmsg, outmsg;~~
	~~0 => int ctr;~~

	~~//int rr[128][3]; don't think we need this now.~~
	~~// index = note number?~~
	~~// column 0 = channel sent to~~
	~~// column 1 = note number sent~~
	~~int chans[14]; // list of channels used~~
	~~float holds[16]; // pitches of on notes, zero if off.~~
	~~[0,1,2,3,4,5,6,7,8,10,11,12,13,14] @=> chans; //exclude channel 10 (drums) & 16 (send channel)~~

	~~//microtuning stuff~~

	~~// PitchBend~~
	~~// input: pitch (midi note number float) & velocity of desired note~~
	~~// action: sends appropriate pitchbend message~~
	~~// (assuming pitchbend range = +/- 2 semitones)~~
	~~// output: note number required for correct frequency to be realized~~
	~~// sends pitchbend, assuming +/- wholestep pitchbend range~~

Wikispaces>xenjacob: Imported revision 343572870 - Original comment:

2012-06-07T12:40:57Z

**Imported revision 343572870 - Original comment: **

New page

<h2>IMPORTED REVISION FROM WIKISPACES</h2>
This is an imported revision from Wikispaces. The revision metadata is included below for reference: 
: This revision was by author [[User:xenjacob|xenjacob]] and made on <tt>2012-06-07 12:40:57 UTC</tt>. 
: The original revision id was <tt>343572870</tt>. 
: The revision comment was: <tt></tt> 
The revision contents are below, presented both in the original Wikispaces Wikitext format, and in HTML exactly as Wikispaces rendered it. 
<h4>Original Wikitext content:</h4>
<div style="width:100%; max-height:400pt; overflow:auto; background-color:#f8f9fa; border: 1px solid #eaecf0; padding:0em"><pre style="margin:0px;border:none;background:none;word-wrap:break-word;white-space: pre-wrap ! important" class="old-revision-html">// ChucK code for Superparticular Samchillian
// Samchillian idea by Leon Gruenbaum
// superparticular-ratio implementation by Jacob Barton

// paste these into a new document in miniAudicle, or save text as a .ck to run in command-line

// change these to match your input/output device
0 => int inDeviceNum;
1 => int outDeviceNum;

class MicroRobinMidiIO
{
MidiIn min;
MidiOut mouse;
MidiMsg inmsg, outmsg;
0 => int ctr;
//int rr[128][3]; don't think we need this now.
// index = note number?
// column 0 = channel sent to
// column 1 = note number sent
int chans[14]; // list of channels used
float holds[16]; // pitches of on notes, zero if off.
 [0,1,2,3,4,5,6,7,8,10,11,12,13,14] @=> chans; //exclude channel 10 (drums) & 16 (send channel)
//microtuning stuff
// PitchBend
// input: pitch (midi note number float) & velocity of desired note
// action: sends appropriate pitchbend message
// (assuming pitchbend range = +/- 2 semitones)
// output: note number required for correct frequency to be realized
// sends pitchbend, assuming +/- wholestep pitchbend range
// returns note number required for correct frequency
fun int PitchBend(float pitch, int velocity)
{
//send pitchbend
224 + chans[ctr] => outmsg.data1;
0 => outmsg.data2;
Math.round((pitch % 1.0) * 32.0 + 64.0) $ int => outmsg.data3;
mouse.send(outmsg);
return Math.floor(pitch) $ int;
}
// StartRelay
// input: number of MIDI device, MidiTransform to be used
// creates a loop ~ should be sporked
fun void StartRelay(int deviceNum, MidiTransform mt)
{
if( !min.open(inDeviceNum)) me.exit();
if( !mouse.open(outDeviceNum)) me.exit();
// print out device that was opened
<<< min.num(), " -> ", min.name() >>>;
<<< mouse.num(), " -> ", mouse.name() >>>;
while ( true)
{
min => now;
while( min.recv(inmsg))
{
if( inmsg.data1 % 16 == 0) // only receive on channel 1
{
<<< "r ", inmsg.data1 / 16, inmsg.data1 % 16, inmsg.data2, inmsg.data3>>>;
if( inmsg.data1 / 16 == 9)
{
mt.NoteOn(inmsg.data2, inmsg.data3);
}
if( inmsg.data1 / 16 == 8)
{
mt.NoteOff(inmsg.data2, inmsg.data3);
}
if( inmsg.data1 / 16 == 12)
{
//prog change apply to channels 1-16
//works!
inmsg.data1 - (inmsg.data1 % 16) => int base;
for(0=>int i; i<15; i++)
{
base + chans[i] => outmsg.data1;
inmsg.data2 => outmsg.data2;
i++;
if( i == 15)
{
0 => outmsg.data3;
mouse.send(outmsg);
break;
}
base + chans[i] => outmsg.data3;
mouse.send(outmsg);
inmsg.data2 => outmsg.data1;
i++;
if( i == 15)
{
0 => outmsg.data2 => outmsg.data3;
mouse.send(outmsg);
break;
}
base + chans[i] => outmsg.data2;
inmsg.data2 => outmsg.data3;
mouse.send(outmsg);
}
}
if( inmsg.data1 / 16 == 11)
{
//apply any controller data to channels 1-16
inmsg.data1 - (inmsg.data1 % 16) => int base;
inmsg.data2 => outmsg.data2;
inmsg.data3 => outmsg.data3;
for(0=>int i; i<16; i++)
{
base + i => outmsg.data1;
mouse.send(outmsg);
}
}
}
}
}
}
// NoteOn
// input: pitch in midi note-number extended, velocity
// action: sends a MIDI pitchbend + note-on message to mouse on the current channel
// keeping track of holds
fun void NoteOn(float nn, int velocity)
{
IncrementCtr();
nn => holds[chans[ctr%14]];
PitchBend(nn, velocity) => outmsg.data2;
// note on, right channel
144 + chans[ctr%14] => outmsg.data1;
velocity => outmsg.data3;
mouse.send(outmsg);
//<<< "s ", outmsg.data1 / 16, outmsg.data1 % 16, outmsg.data2, outmsg.data3>>>;
}
// increments mod-14 counter, skipping over channels with
// notes already on them, if possible.
fun void IncrementCtr()
{
ctr;
0 => int i;
for( i; i<14; i++)
{
if ( holds[chans[(ctr+i) % 14]] == 0.0)
{ (ctr + i) % 14 => ctr; return; }
}
(ctr + 1) % 14 => ctr;
}
// NoteOff
// input: pitch & note-off velocity
// action: finds the pitch & offs it.
fun void NoteOff(float nn, int velocity)
{
0 => int c;
for(c; c<16; c++)
{
if(holds[c] == nn) // we found the pitch!
{
128 + c => outmsg.data1;
Math.floor(nn) $ int => outmsg.data2;
velocity => outmsg.data3;
mouse.send(outmsg);
//<<< "s ", outmsg.data1 / 16, outmsg.data1 % 16, outmsg.data2, outmsg.data3>>>;
0.0 => holds[c];
return;
}
}
<<<"MISS", nn>>>;
// we couldn't find the pitch!
// don't do anything.
}
fun void ControlChange(int channel, int prognum, int val)
{
128 + channel => outmsg.data1;
prognum => outmsg.data2;
val => outmsg.data3;
}
}

class MidiTransform
{
// superclass for MIDI transformers to be used by MicroRobinMidiIO
MicroRobinMidiIO myIO;
fun void LinkToIO(MicroRobinMidiIO io)
{
io @=> myIO;
}
fun void NoteOn( int nn, int vel)
{
return;
}
fun void NoteOff( int nn, int vel)
{
return;
}
}

class SuperparticularSamchillian extends MidiTransform
{
57. => float resentFreq;
57. => float prevFreq;
62 => int keyboardCenterNN;
float prevFreqsByKey[128];
//set pans funky
//for(0=>int f; f<16; f++)
//{
// myIO.ControlChange(f, 9, f*8);
//}
fun void NoteOn( int nn, int vel)
{
if(nn == keyboardCenterNN)
{
myIO.NoteOn( Std.ftom(prevFreq), vel);
}
else
{
if(nn < keyboardCenterNN)
{
// superparticular!
1. + 1./(keyboardCenterNN - nn) /=> prevFreq;
myIO.NoteOn( Std.ftom(prevFreq), vel);
}
else
{
if(nn > keyboardCenterNN)
{
1. + 1./(nn - keyboardCenterNN) *=> prevFreq;
myIO.NoteOn( Std.ftom(prevFreq), vel);
}
}
}
Std.ftom(prevFreq) => prevFreqsByKey[nn];
}
fun void NoteOff( int nn, int vel)
{
myIO.NoteOff( prevFreqsByKey[nn], vel);
}
}

MicroRobinMidiIO mrmio;
SuperparticularSamchillian easy;
easy.LinkToIO(mrmio);
spork ~ mrmio.StartRelay( 1, easy);

1::second => now;

KBHit kb;

while(true)
{
kb => now;
while( kb.more() )
{
kb.getchar() => int c;
<<< "ascii:", c>>>;
easy.NoteOn(c, 88);
}
}</pre></div>
<h4>Original HTML content:</h4>
<div style="width:100%; max-height:400pt; overflow:auto; background-color:#f8f9fa; border: 1px solid #eaecf0; padding:0em"><pre style="margin:0px;border:none;background:none;word-wrap:break-word;width:200%;white-space: pre-wrap ! important" class="old-revision-html"><html><head><title>superparticular samchillian</title></head><body> ChucK code for Superparticular Samchillian 
 Samchillian idea by Leon Gruenbaum 
 superparticular-ratio implementation by Jacob Barton 
 
 paste these into a new document in miniAudicle, or save text as a .ck to run in command-line 
 
 change these to match your input/output device 
0 =&gt; int inDeviceNum; 
1 =&gt; int outDeviceNum; 
 
class MicroRobinMidiIO 
{ 
MidiIn min; 
MidiOut mouse; 
MidiMsg inmsg, outmsg; 
0 =&gt; int ctr; 
int rr[128][3]; don't think we need this now. 
 index = note number? 
 column 0 = channel sent to 
 column 1 = note number sent 
int chans[14]; list of channels used 
float holds[16]; pitches of on notes, zero if off. 
 [0,1,2,3,4,5,6,7,8,10,11,12,13,14] @=&gt; chans; exclude channel 10 (drums) &amp; 16 (send channel) 
microtuning stuff 
 PitchBend 
 input: pitch (midi note number float) &amp; velocity of desired note 
 action: sends appropriate pitchbend message 
 (assuming pitchbend range = +/- 2 semitones) 
 output: note number required for correct frequency to be realized 
 sends pitchbend, assuming +/- wholestep pitchbend range 
 returns note number required for correct frequency 
fun int PitchBend(float pitch, int velocity) 
{ 
send pitchbend 
224 + chans[ctr] =&gt; outmsg.data1; 
0 =&gt; outmsg.data2; 
Math.round((pitch % 1.0) * 32.0 + 64.0) $ int =&gt; outmsg.data3; 
mouse.send(outmsg); 
return Math.floor(pitch) $ int; 
} 
 StartRelay 
 input: number of MIDI device, MidiTransform to be used 
 creates a loop ~ should be sporked 
fun void StartRelay(int deviceNum, MidiTransform mt) 
{ 
if( !min.open(inDeviceNum)) me.exit(); 
if( !mouse.open(outDeviceNum)) me.exit(); 
 print out device that was opened 
&lt;&lt;&lt; min.num(), &quot; -&gt; &quot;, min.name() &gt;&gt;&gt;; 
&lt;&lt;&lt; mouse.num(), &quot; -&gt; &quot;, mouse.name() &gt;&gt;&gt;; 
while ( true) 
{ 
min =&gt; now; 
while( min.recv(inmsg)) 
{ 
if( inmsg.data1 % 16 == 0) only receive on channel 1 
{ 
&lt;&lt;&lt; &quot;r &quot;, inmsg.data1 / 16, inmsg.data1 % 16, inmsg.data2, inmsg.data3&gt;&gt;&gt;; 
if( inmsg.data1 / 16 == 9) 
{ 
mt.NoteOn(inmsg.data2, inmsg.data3); 
} 
if( inmsg.data1 / 16 == 8) 
{ 
mt.NoteOff(inmsg.data2, inmsg.data3); 
} 
if( inmsg.data1 / 16 == 12) 
{ 
prog change apply to channels 1-16 
works! 
inmsg.data1 - (inmsg.data1 % 16) =&gt; int base; 
for(0=&gt;int i; i&lt;15; i++) 
{ 
base + chans[i] =&gt; outmsg.data1; 
inmsg.data2 =&gt; outmsg.data2; 
i++; 
if( i == 15) 
{ 
0 =&gt; outmsg.data3; 
mouse.send(outmsg); 
break; 
} 
base + chans[i] =&gt; outmsg.data3; 
mouse.send(outmsg); 
inmsg.data2 =&gt; outmsg.data1; 
i++; 
if( i == 15) 
{ 
0 =&gt; outmsg.data2 =&gt; outmsg.data3; 
mouse.send(outmsg); 
break; 
} 
base + chans[i] =&gt; outmsg.data2; 
inmsg.data2 =&gt; outmsg.data3; 
mouse.send(outmsg); 
} 
} 
if( inmsg.data1 / 16 == 11) 
{ 
apply any controller data to channels 1-16 
inmsg.data1 - (inmsg.data1 % 16) =&gt; int base; 
inmsg.data2 =&gt; outmsg.data2; 
inmsg.data3 =&gt; outmsg.data3; 
for(0=&gt;int i; i&lt;16; i++) 
{ 
base + i =&gt; outmsg.data1; 
mouse.send(outmsg); 
} 
} 
} 
} 
} 
} 
 NoteOn 
 input: pitch in midi note-number extended, velocity 
 action: sends a MIDI pitchbend + note-on message to mouse on the current channel 
 keeping track of holds 
fun void NoteOn(float nn, int velocity) 
{ 
IncrementCtr(); 
nn =&gt; holds[chans[ctr%14]]; 
PitchBend(nn, velocity) =&gt; outmsg.data2; 
 note on, right channel 
144 + chans[ctr%14] =&gt; outmsg.data1; 
velocity =&gt; outmsg.data3; 
mouse.send(outmsg); 
&lt;&lt;&lt; &quot;s &quot;, outmsg.data1 / 16, outmsg.data1 % 16, outmsg.data2, outmsg.data3&gt;&gt;&gt;; 
} 
 increments mod-14 counter, skipping over channels with 
 notes already on them, if possible. 
fun void IncrementCtr() 
{ 
ctr; 
0 =&gt; int i; 
for( i; i&lt;14; i++) 
{ 
if ( holds[chans[(ctr+i) % 14]] == 0.0) 
{ (ctr + i) % 14 =&gt; ctr; return; } 
} 
(ctr + 1) % 14 =&gt; ctr; 
} 
 NoteOff 
 input: pitch &amp; note-off velocity 
 action: finds the pitch &amp; offs it. 
fun void NoteOff(float nn, int velocity) 
{ 
0 =&gt; int c; 
for(c; c&lt;16; c++) 
{ 
if(holds[c] == nn) we found the pitch! 
{ 
128 + c =&gt; outmsg.data1; 
Math.floor(nn) $ int =&gt; outmsg.data2; 
velocity =&gt; outmsg.data3; 
mouse.send(outmsg); 
&lt;&lt;&lt; &quot;s &quot;, outmsg.data1 / 16, outmsg.data1 % 16, outmsg.data2, outmsg.data3&gt;&gt;&gt;; 
0.0 =&gt; holds[c]; 
return; 
} 
} 
&lt;&lt;&lt;&quot;MISS&quot;, nn&gt;&gt;&gt;; 
 we couldn't find the pitch! 
 don't do anything. 
} 
fun void ControlChange(int channel, int prognum, int val) 
{ 
128 + channel =&gt; outmsg.data1; 
prognum =&gt; outmsg.data2; 
val =&gt; outmsg.data3; 
} 
} 
 
class MidiTransform 
{ 
 superclass for MIDI transformers to be used by MicroRobinMidiIO 
MicroRobinMidiIO myIO; 
fun void LinkToIO(MicroRobinMidiIO io) 
{ 
io @=&gt; myIO; 
} 
fun void NoteOn( int nn, int vel) 
{ 
return; 
} 
fun void NoteOff( int nn, int vel) 
{ 
return; 
} 
} 
 
class SuperparticularSamchillian extends MidiTransform 
{ 
57. =&gt; float resentFreq; 
57. =&gt; float prevFreq; 
62 =&gt; int keyboardCenterNN; 
float prevFreqsByKey[128]; 
set pans funky 
for(0=&gt;int f; f&lt;16; f++) 
{ 
 myIO.ControlChange(f, 9, f*8); 
} 
fun void NoteOn( int nn, int vel) 
{ 
if(nn == keyboardCenterNN) 
{ 
myIO.NoteOn( Std.ftom(prevFreq), vel); 
} 
else 
{ 
if(nn &lt; keyboardCenterNN) 
{ 
// superparticular! 
1. + 1./(keyboardCenterNN - nn) /=&gt; prevFreq; 
myIO.NoteOn( Std.ftom(prevFreq), vel); 
} 
else 
{ 
if(nn &gt; keyboardCenterNN) 
{ 
1. + 1./(nn - keyboardCenterNN) *=&gt; prevFreq; 
myIO.NoteOn( Std.ftom(prevFreq), vel); 
} 
} 
} 
Std.ftom(prevFreq) =&gt; prevFreqsByKey[nn]; 
} 
fun void NoteOff( int nn, int vel) 
{ 
myIO.NoteOff( prevFreqsByKey[nn], vel); 
} 
} 
 
MicroRobinMidiIO mrmio; 
SuperparticularSamchillian easy; 
easy.LinkToIO(mrmio); 
spork ~ mrmio.StartRelay( 1, easy); 
 
1::second =&gt; now; 
 
KBHit kb; 
 
while(true) 
{ 
kb =&gt; now; 
while( kb.more() ) 
{ 
kb.getchar() =&gt; int c; 
&lt;&lt;&lt; &quot;ascii:&quot;, c&gt;&gt;&gt;; 
easy.NoteOn(c, 88); 
} 
}</body></html></pre></div>

← Older revision		Revision as of 10:37, 4 December 2024
Line 279:		Line 279:
	== See also ==		== See also ==
	* [[Jacob Barton]]		* [[Jacob Barton]]
			* [[Software]]

	[[Category:chuck]]		[[Category:chuck]]
	[[Category:code]]		[[Category:code]]
	[[Category:todo:link]]		[[Category:todo:link]]

← Older revision		Revision as of 10:36, 4 December 2024
Line 277:		Line 277:
	}		}
	</pre>		</pre>
			== See also ==
			* [[Jacob Barton]]

	[[Category:chuck]]		[[Category:chuck]]
	[[Category:code]]		[[Category:code]]
	[[Category:todo:link]]		[[Category:todo:link]]

Superparticular samchillian - Revision history

BudjarnLambeth at 10:37, 4 December 2024

BudjarnLambeth: Add outgoing links to dead end page

BudjarnLambeth: Todo link

PreImportHandFixes>Battaglia01: Mike - replaced broken parse with history

Wikispaces>FREEZE at 00:00, 17 July 2018

Wikispaces>xenjacob: Imported revision 343680102 - Original comment:

Wikispaces>xenjacob: Imported revision 343572870 - Original comment:

← Older revision		Revision as of 08:00, 20 October 2024
Line 1:		Line 1:
			{{todo\|link}}
	<pre>		<pre>
	//ChucK code for Superparticular Samchillian		//ChucK code for Superparticular Samchillian

Superparticular samchillian - Revision history

BudjarnLambeth at 10:37, 4 December 2024

BudjarnLambeth: Add outgoing links to dead end page

BudjarnLambeth: Todo link

PreImportHandFixes>Battaglia01: Mike - replaced broken parse with history

Wikispaces>FREEZE at 00:00, 17 July 2018

Wikispaces>xenjacob: **Imported revision 343680102 - Original comment: **

Wikispaces>xenjacob: **Imported revision 343572870 - Original comment: **

Wikispaces>xenjacob: Imported revision 343680102 - Original comment:

Wikispaces>xenjacob: Imported revision 343572870 - Original comment: