May 2014 - chuck-users - lists.cs.princeton.edu

Re: [chuck-users] Musical Pieces (Bryan Green)
by Perry R Cook 29 May '14

29 May '14

Bryan, Here's a self-contained, single ChucK file, version of "Smooth Criminal" //**************************************************** // Smooth Criminal Tribute, by P. Cook, May 3, 2009 // because I should be doing more important things // like reading Tom Lieber's Independent work final report :-) 0.1 => float tempo; Mandolin bass1 => HalfRect clip => Gain main => dac; Mandolin bass2 => clip; bass1 => main; bass2 => main; Impulse kick => TwoPole kp => main; 50.0 => kp.freq; 0.99 => kp.radius; 0.1 => kp.gain; Noise n => ADSR snare => TwoPole sp => Delay sdel => main; 200.0 => sp.freq; 0.9 => sp.radius; 0.1 => sp.gain; snare.set(0.001,0.1,0.0,0.1); (4.0 * tempo) :: second => sdel.max => sdel.delay; 0.3 => bass1.bodySize => bass2.bodySize; 0.03 => bass1.stringDetune; 0.03 => bass2.stringDetune; 0.05 => bass1.stringDamping; 0.05 => bass2.stringDamping; SndBuf dope => main; "special:dope" => dope.read; 0.0 => dope.gain; SndBuf dope2 => main; "special:dope" => dope2.read; 0.0 => dope2.gain; Blit b => TwoPole p1 => Gain voice; b => TwoPole p2 => voice; b => TwoPole p3 => voice; 100 => b.harmonics; 0.998 => p1.radius => p2.radius => p3.radius; 0.03 => p1.gain; 0.01 => p2.gain; 0.01 => p3.gain; 0.0 => b.gain; SinOsc vib => blackhole; 6.0 => vib.freq; Std.mtof(60) => b.freq; Std.mtof(64) => float bTarg; doVerse(4); doChorus(4); spork ~ doMoogy(4); doVerse(4); doChorus(4); spork ~ gliss(); doTag(); spork ~ fade(); spork ~ doMoogy(4); doDopeVerse(4); fun void doMoogy(int howmany) { Moog m => JCRev r => main; 0.9 => m.filterQ; 0.9 => m.filterSweepRate; 0.05 => r.mix; 15.0 => r.gain; [69, 71, 72, 74, 76, 78, 79, 81] @=> int scale[]; 0 => int measure; 0 => int note; while (measure < howmany) { 0 => int note; while (note < 32) { 1 => m.noteOff; Std.mtof(scale[Std.rand2(0,7)]) => m.freq; if (Std.rand2f(0.0,1.0) < 0.4) 1 => m.noteOn; tempo :: second => now; note++; } measure++; } r =< main; } fun void doChorus(int howmany) { [64,64,64,64,64,64,67,64,64,64,67,64,64,64,62,60,59,60] @=> int dopes[]; [ 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 2, 4, 1, 1, 2, 2, 2, 2] @=> int ddurs[]; 0 => int measure; 0 => int note; 3.0 => dope.gain; while (measure < howmany) { Std.mtof(41) => bass1.freq; 1 => bass1.noteOn; Std.mtof(41-12) => bass2.freq; 1 => bass2.noteOn; (2.0 * tempo) :: second => now; 0 => int note; while (note < 18) { 1.03 * (Std.mtof(dopes[note]) / Std.mtof(67)) => dope.rate; 0 => dope.pos; (tempo*ddurs[note]) :: second => now; note++; } measure++; } } fun void doVerse(int howmany) { [45,45,45,45,45,45,45,47,47,47,47,48,48,48,48,47,43,40,45] @=> int notes[]; [ 2, 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 2, 4, 1, 1, 2, 2, 2, 2] @=> int durs[]; [ 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0] @=> int kicks[]; [ 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0] @=> int snares[]; 0 => int note; 0 => int measure; while (measure < howmany) { Std.mtof(notes[note]) => bass1.freq; Std.mtof(notes[note]-12) => bass2.freq; 1 => bass1.noteOn; 1 => bass2.noteOn; if (kicks[note]==1) 1 => kick.next; if (snares[note]==1) 1 => snare.keyOn; (durs[note] * tempo/2.0) :: second => now; 0 => bass1.noteOn => bass2.noteOn; 1 => snare.keyOff;; (durs[note] * tempo/2.0) :: second => now; note++; if (note==19) { 0 => note; measure++; } } } fun void doTag() { [64,60,62,64,40,64,60,62,64,40] @=> int dopes2[]; [ 2, 2, 2, 2, 4, 2, 2, 2, 2, 4] @=> int ddurs2[]; 0 => int measure; 0 => int note; 3.0 => dope.gain; 3.0 => dope2.gain; while (note < 10) { 1.03 * (Std.mtof(dopes2[note]) / Std.mtof(67)) => dope2.rate; dope2.rate()*2.0 => dope.rate; 0 => dope2.pos; 0 => dope.pos; (tempo*ddurs2[note]) :: second => now; note++; } 0.0 => dope2.gain; Noise n => main; 0.1 => n.gain; 0.07 :: second => now; n =< main; 0.03 :: second => now; 4.0 => b.gain; voice => main; Std.mtof(76) => dope2.rate; 0 => dope2.pos; 0.4 :: second => now; 300.0 => p1.freq; 900.0 => p2.freq; 2300.0 => p3.freq; Std.mtof(62) => bTarg; 0.1 :: second => now; 360.0 => p1.freq; 2000.0 => p2.freq; 2600.0 => p3.freq; 0.03 => p1.gain; 0.03 => p2.gain; 0.03 => p3.gain; Std.mtof(60) => bTarg; 0.1 :: second => now; 700.0 => p1.freq; 1100.0 => p2.freq; 2500.0 => p3.freq; Std.mtof(57) => bTarg; 0.2 :: second => now; 700.0 => p1.freq; 1200.0 => p2.freq; 2500.0 => p3.freq; 0.0 => b.gain; voice =< main; } fun void gliss() { while (1) { (0.01* bTarg) + (0.99 * b.freq()) => b.freq; 0.0005 :: second => now; } } fun void fade() { while (1) { (0.985 * main.gain()) => main.gain; 0.04 :: second => now; } } fun void doDopeVerse(int howmany) { [45,45,45,45,45,45,45,47,47,47,47,48,48,48,48,47,43,40,45] @=> int notes[]; [ 2, 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 2, 4, 1, 1, 2, 2, 2, 2] @=> int durs[]; [ 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0] @=> int kicks[]; [ 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0] @=> int snares[]; 0 => int note; 0 => int measure; 3.0 => dope.gain; while (measure < howmany) { Std.mtof(notes[note]) => bass1.freq; 4.1 * (Std.mtof(notes[note]) / Std.mtof(67)) => dope.rate; 0 => dope.pos; Std.mtof(notes[note]-12) => bass2.freq; 1 => bass1.noteOn; 1 => bass2.noteOn; if (kicks[note]==1) 1 => kick.next; if (snares[note]==1) 1 => snare.keyOn; (durs[note] * tempo/2.0) :: second => now; 0 => bass1.noteOn => bass2.noteOn; 1 => snare.keyOff;; (durs[note] * tempo/2.0) :: second => now; note++; if (note==19) { 0 => note; measure++; } } }

1 0

ChucK - Musical Pieces?
by Bryan Green 26 May '14

26 May '14

Hello, all! As the example files included with ChucK don't really demonstrate full pieces, I was wondering if there is a source of ChucK pieces available; that is, ChucK files, that when run, 'perform' a complete piece. I've got the basics of ChucK down, but now I'm trying to wrap my head around the various ways of actually creating a complete, algorithmic piece of music, and would love to see some examples! Thanks! Bryan

5 6

Re: [chuck-users] Filters and filter education
by Stuart McDonald 23 May '14

23 May '14

Hi Rich, thanks for those links, I'll check them out :). ---------- Forwarded message ---------- From: "Rich Caloggero" <rjc(a)mit.edu> To: <chuck-users(a)lists.cs.princeton.edu> Cc: Date: Thu, 22 May 2014 17:11:45 -0400 Subject: Re: [chuck-users] Filters and filter education This may help: http://www.analog.com/en/content/scientist_engineers_guide/fca.html The subject is daunting. I'm a computer person so I understand the computer bits, but the math is still a stretch for me. This guy does a good job explaining things both in words and in code. Best part is that its free and available online, or you can download the html. -- Rich

1 0

Filters and filter education
by Stuart McDonald 22 May '14

22 May '14

I've been periodically fussing over trying to construct a phaser (the effect, not the fictional weapon) and while there's a working ChucKian example at http://electro-music.com/forum/viewtopic.php?t=23264 , I'd like to understand more about what's going on. The example uses a PoleZero filter, which may as well be called PixieWand for all I know what it actually does. There are numerous other filter UGens as well; I think there may be a whole world of filtration out there I can't even imagine. The ChucK documentation doesn't provide descriptions of the mechanics of these filters. I get the impression that they're things you're expected to understand if you have a formal background in DSP, and if you don't, well, it's a bit of a leap to get there. For now I'm optimistic I can get educated in some way. A 2006 post on this subject on this list (https://lists.cs.princeton.edu/pipermail/chuck-users/2006-June/000763.html) suggested reading Real Sound Synthesis for Interactive Applications (http://www.amazon.com/Real-Sound-Synthesis-Interactive-Applications/dp/1568…) by Perry R. Cook. The book looks promising, but I'm not sure if it tackles the subject to a depth that would be helpful. Has anyone read it and could recommend? Perry, what do you reckon? =D Many thanks, Stuart

3 3

Re: [chuck-users] Filters and filter education
by Julius Smith 22 May '14

22 May '14

I like to think of phasing as an approximation to and generalization of flanging, which is easier to understand. In both cases you are basically mixing two copies of the input signal where one copy is delayed relative to the other. This relative delay causes cancellation ("notches") at frequencies where the two signals are out of phase. - Julius At 02:55 AM 5/22/2014, Stuart McDonald wrote: >I've been periodically fussing over trying to construct a phaser (the >effect, not the fictional weapon) and while there's a working ChucKian >example at http://electro-music.com/forum/viewtopic.php?t=23264 , I'd >like to understand more about what's going on. > >The example uses a PoleZero filter, which may as well be called >PixieWand for all I know what it actually does. There are numerous >other filter UGens as well; I think there may be a whole world of >filtration out there I can't even imagine. > >The ChucK documentation doesn't provide descriptions of the mechanics >of these filters. I get the impression that they're things you're >expected to understand if you have a formal background in DSP, and if >you don't, well, it's a bit of a leap to get there. > >For now I'm optimistic I can get educated in some way. A 2006 post on >this subject on this list >(https://lists.cs.princeton.edu/pipermail/chuck-users/2006-June/000763.html) >suggested reading Real Sound Synthesis for Interactive Applications >(http://www.amazon.com/Real-Sound-Synthesis-Interactive-Applications/dp/1568…) >by Perry R. Cook. > >The book looks promising, but I'm not sure if it tackles the subject >to a depth that would be helpful. Has anyone read it and could >recommend? Perry, what do you reckon? =D > >Many thanks, > > >Stuart >_______________________________________________ >chuck-users mailing list >chuck-users(a)lists.cs.princeton.edu >https://lists.cs.princeton.edu/mailman/listinfo/chuck-users Julius O. Smith III <jos(a)ccrma.stanford.edu> Professor of Music and, by courtesy, Electrical Engineering CCRMA, Stanford University http://ccrma.stanford.edu/~jos/

1 0

How to ramp pitch?
by Bonnie Eisenman 22 May '14

22 May '14

Hi all, sorry if this question has been answered before, but I can't find it in the docs. I'd like to ramp a pitch quickly from one frequency to another. I feel like there should be a better way to do this than what I'm currently using, which is this: // Where length is the # of milliseconds this should take for (0 => int i; i < length $ int; i++) { f1 - ((i/length) * (f1 - f2)) => float newFreq; osc.freq(newFreq); 1::ms => now; } This works but it produces an unfortunate clicking noise at the end (and yup, I'm using an envelope). Any tips? Thanks! --Bonnie

4 3

Question about new OSC support classes - OscIn
by Simon Steptoe 17 May '14

17 May '14

I was looking at the new Osc support classes. When using OscIn, I can't seem to receive more than the first character of a string. If I replace the OscIn code with the equivalent using OscRecv code then the strings come through okay. If I sent the equivalent data to a separate program - e.g. PD - then the strings also come through okay. Conversely, if I send strings from PD to ChucK then, once again, my OscIn code only picks up the first character. So, I am assuming the issue lies with my code for OscIn rather than OscOut. If anyone could put their finger on the problem, I would be most grateful. And a separate issue with .addAddress: "oIn.addAddress( "/chuck/data, ifss" )" works but "oIn.addAddress( "/chuck/data, i f s s" )" doesn't. This didn't seem to be an issue when using with OscRev/.event. Here's the code: //=========================================== OscIn oIn; OscMsg oMsg; 6452 => oIn.port; oIn.addAddress( "/chuck/data, ifss" ); "localhost" => string hostname; 6452 => int port; OscOut xmit; xmit.dest( hostname, port ); spork ~ recvOsc(); spork ~ sendOsc(); while(true) { 1::day => now; } //============================================ fun void sendOsc() { while( true ) { xmit.start( "/chuck/data" ); Math.random2( 30, 80 ) => xmit.add; Math.random2f( 0.1, 1 ) => xmit.add; "xyz" => xmit.add; "abc" => xmit.add; xmit.send(); 1::second => now; } } //============================================ fun void recvOsc() { -1 => int i; -1.0 => float f; "NULL" => string s; "NULL2" => string s2; "NULL3" => string s3; while( true ) { oIn => now; while( oIn.recv(oMsg) ) { oMsg.getInt(0) => i; oMsg.getFloat(1) => f; oMsg.getString(2) => s; oMsg.getString(3) => s2; <<< "got (via OSC):", i, f, s, s2, s3 >>>; } } } //================================================= Thanks Simon (PS - my machine is a PC running Windows Vista)

3 4

collecting sum signal per-channel of midi-notes
by Peter Billam 09 May '14

09 May '14

Greetings. ( Serious Newbie-warning :-) So: I want to work with MIDI, and implement the Great Missing Midi-Controller, namely a per-channel overdrive distortion like the foverdrive,1196 LADSPA plugin. Untested: fun float foverdrive_1196(float x, float drive) { drive - 1.0 => float drivem1; Std.fabs(x) => float fx; return x*(fx + drive)/(x*x + drivem1*fx + 1.0); } This means I have to get the TriOsc of the note not into a dac TriOsc t => dac; // NO! but into some code which will add it to the per-channel total. I guess those totals will be stored in perhaps LiSa's ? float cha2drive[16]; // set by nonstandard MIDI controller 87 LiSa lisa[16]; // the per-channel total signal of all its notes But at this point I get brain-overload :-( How do I add the TriOsc sample to its LiSa ? How do I invoke foverdrive_1196() on each sample before outputting it to the dac ? I'm very unsure about "now", too, how it co-ordinates between code of all the individual notes and the final "=> dac" step, but still executes all these things scattered throughout the code in an appropriate order. Hope this makes sense... If I get this solved, I should become more self-maintaining... Thanks, Regards, Peter Billam http://www.pjb.com.au pj(a)pjb.com.au (03) 6278 9410 "Follow the charge, not the particle." -- Richard Feynman from The Theory of Positrons, Physical Review, 1949

2 1

Re-direct output to file on OS X?
by Arve Knudsen 08 May '14

08 May '14

Hi guys Using ChucK on OS X, is there some easy way to re-direct its audio output to a file (for analysis)? Thanks, Arve

3 3

Running scripts sequentially
by Gonzalo 06 May '14

06 May '14

Hi, I'm trying to run multiple .ck files sequentially. Specifically I have a 'master' file that loads all the 'child' files via Machine.add. But then of course they run concurrently. For now I'm just advancing time in the master file before every Machine.add statement (ugly...). Is there a way to accomplish this nicely? Thanks! Gonzalo PS: This is my first message to this list. I'm working on a project with Chuck that raises *a lot* of questions, so I'll probably be coming back here often. :)

4 7