redUniverse: l-system and turtle

now added RedLSystem and RedLTurtle to my redUniverse quark. RedLSystem is a fairly standard string rewrite class. one special feature is that it saves the structure/tree/recursion depth of the rewrite process. RedLTurtle either plot l-systems or standard strings. it comes with a set of default drawing functions, but you can easily add your own commands.

(
l= RedLSystem("F", ($F: "F[+F--F]+F"));
6.do{l.next};
RedLTurtle(l, 40, 10, 0.9, 0.1).makeWindow;
)

(
l= RedLSystem("F", ($F: "|[-FFF--F]+F"));
6.do{l.next};
RedLTurtle(l, 20, 20, 0.95, 0.2).makeWindow;
)

(
l= RedLSystem("F", ($F: "|[--F][+F]-F"));
8.do{l.next};
RedLTurtle(l, 400, 20, 0.65, 0.1).makeWindow(initTranslate: Point(0.5, 0));
)

(
l= RedLSystem("F-F-F-F", ($F: "F[F]-F+F[--F]+F-F"));
5.do{l.next};
RedLTurtle(l, 6, 90, 0.9).makeWindow(initTranslate: Point(1, 0));
)

redTie

custom wireless system built for craftwife. the leds are to be sewn into real ties (update 090428: now done - http://www.youtube.com/watch?v=QUGKfC0SYck). there are 6 red leds per slave and each led can be dynamically controlled (pwm 0-255). all slaves run on battery (AA 3.6v lithium) and keep in contact with the master using 2.4ghz wireless transceivers (nordic nRF24L01+). the maximum working distance is about ~80m (line of sight).
the master talks to supercollider via the RedTieMaster and RedTieSlave classes (usb-serial 115200 baud).

schematics, firmware, partlist and sc classes attached below (gnu gpl v2)

redTie-master...

redTie-slaves...

master and slaves...

leds on ribbon cable...

total cable length: 135cm
distance between leds: 4cm

redTie-hardwareWireless from redFrik on Vimeo.

AttachmentSize
Package icon redTie.zip76.62 KB

pact - april

april 2009, 30 days, 1hour/day. do something and show the result to your contracting party. similar to our previous live-coding practising sessions (aug2006 and jun2007). this time i battle marcus fjellström. follow his daily work here.

my rules are: on the last day of march, code a single synthdef in supercollider that i'll force myself to make music with all throughout the month. i'm not allowed to use any other synthdefs! if i need to change the synth definition during the 30 days, all the music written up to that point will be affected. these constraints are both quite strict and quite silly i know, but i imagine it'll help me focus my 1hour work on controlling the synth instead of rewriting the synthesis part all the time (bad habit). of course it is not the optimal way to make music in sc. normally one would opt for smaller synthdefs that do less and are interconnect via busses. see that as a warning and don't copy my synthdef below. it's a big ugly beast.

so here's first the synthdef. coded on march 31st...

//this is the synthdef that i must use for all 30 days
SynthDef(\redMond, {
        arg     out= 0, pan= 0, det= 0,
                atk= 0.01, rel= 0.1, cur= -4, gate= 1,
                amp= 1, freq= 440, sel= 0, selFreq= 40,
                amp2= 0, freq2= 40, sel2= 0, selFreq2= 40,
                amp3= 0, freq3= 40, sel3= 0, selFreq3= 40,
                ringMix= -1, ringFreq= 440, ringGain= 0, ringRate= 1,
                distMix= -1, distFreq= 0.4, distDeep= 1,
                combMix= -1, combFreq= 40, combDecy= 1,
                moogMix= -1, moogFreq= 440, moogGain= 1,
                verbMix= -1, verbRoom= 0.4, verbDamp= 0.4;
        var     iii, aaa, bbb, ccc, zzz,
                ii, aa, bb, cc, zz,
                i, a, b, c, z,
                e;
        det= det+1;
        iii= SelectX.ar(sel3, [
                DC.ar(0),
                DC.ar(1),
                DC.ar(2),
                SinOsc.ar(selFreq3, 0, 1.5, 1.5),
                LFSaw.ar(selFreq3, 0, 1.5, 1.5),
                LFPulse.ar(selFreq3, 0, 0.3, 1.5, 1.5)
        ]);
        aaa= SinOsc.ar(freq3, 0, amp3);
        bbb= LFSaw.ar(freq3*det, 0, amp3);
        ccc= LFPulse.ar(freq3*det*det, 0, 0.3, amp3);
        zzz= Select.ar(iii, [aaa, bbb, ccc]);
        ii= SelectX.ar(sel2, [
                DC.ar(0),
                DC.ar(1),
                DC.ar(2),
                SinOsc.ar(selFreq2, 0, 1.5, 1.5),
                LFSaw.ar(selFreq2, 0, 1.5, 1.5),
                LFPulse.ar(selFreq2, 0, 0.4, 1.5, 1.5)
        ]);
        aa= SinOsc.ar(freq2+zzz, 0, amp2);
        bb= LFSaw.ar(freq2+zzz*det, 0, amp2);
        cc= LFPulse.ar(freq2+zzz*det*det, 0, 0.4, amp2);
        zz= Select.ar(ii, [aa, bb, cc]);
        i= SelectX.ar(sel, [
                DC.ar(0),
                DC.ar(1),
                DC.ar(2),
                SinOsc.ar(selFreq, 0, 1.5, 1.5),
                LFSaw.ar(selFreq, 0, 1.5, 1.5),
                LFPulse.ar(selFreq, 0, 0.5, 1.5, 1.5)
        ]);
        a= SinOsc.ar(freq+zz);
        b= Saw.ar(freq+zz);
        c= Pulse.ar(freq+zz);
        z= Select.ar(i, [a, b, c]);
        z= XFade2.ar(z, SinOsc.ar(ringFreq+SinOsc.ar(ringRate, 0, ringGain), 0, z), ringMix);
        z= XFade2.ar(z, SinOsc.ar(distFreq, z*(1+(distDeep*(8pi-1))))*0.5, distMix);
        z= XFade2.ar(z, CombN.ar(z, 1, combFreq.reciprocal, combDecy), combMix);
        z= XFade2.ar(z, MoogFF.ar(z, moogFreq, moogGain), moogMix);
        z= FreeVerb.ar(z, verbMix*0.5+0.5, verbRoom, verbDamp);
        e= EnvGen.ar(Env.asr(atk, 1, rel, cur), gate, doneAction:2);
        Out.ar(out, Pan2.ar(z, pan, e*amp));
}).memStore;

and here follows short mp3 excerpts. note: all the 30 files + synthdef can also be found the 'pact-apr09.zip' attached below.































AttachmentSize
Package icon pact-apr09.zip44.32 KB

redWirelessMaster

update100721: rewrote the firmware and changed a few things. also renamed the project. it was previously called redUniform2-master
update100724: added supercollider classes to the zip archive

this is my all-round master for wireless controllers like redUniform and redThermoKontroll. it's a rebuild of my previous redUniform-master. i generalised it, added some buttons, switches and leds and put it into a proper box. i also removed the on-chip ceramic antenna on the mirf transceiver and replaced it with a socket + a 4inch duck antenna. now the range of the system is much greater.
the buttons i will use either as additional controllers or as backup controllers if the slave fails during performance. the 4 leds are independently controlled and i imagine using them for visual feedback. usually i perform with the laptop hidden in the back and the laptop screen turned off. the leds will help to discretely show the status of the piece (form, section, sensor activity etc).

version3 firmware and schematics attached.

redKontroll2-dev

i've finished another controller using the great avr-usb from obdev. this version has 16 pushbuttons, 1 switch, 1 light sensor, 4 pots and 1 slider. just like the previous redKontroll it shows up like a standard HID devices and i have coded some simple max patches and supercollider classes to parse the data.

of the 16 buttons, 12 are arranged as a full octave on a piano (black&grey instead of white&black), divided into 2 groups (cde/fgab). the remaining 4 as additional buttons on top of each group to form small pyramids. all this to later make it easier to remember what functions i assigned to which button.

schematics, firmware, partslist and helper classes are available here.

the total cost is about €45 and the major part of that is the buttons and the pots (see partslist).





redinfo ugens

last night i wrote 3 simple ugens for supercollider. they read the sudden motion sensor, ambient light sensors and the battery capacity on portable macs. download from this page. (mac os 10.5 and later).

RedInfoSms from redFrik on Vimeo.

ideas:
RedInfoBat - read the battery's current capacity (perhaps use it as master tuning instead of 440? laptops are also instruments :-)
RedInfoLmu - read data from the left and right side ambient light sensors (low-pass filter master effect to match venue's mood-light :-)
RedInfoSms - read data from the apple sudden motion sensor (very sensitive 3d accelerometer. tap-tempo analysis while typing on the keyboard :-)

below is the code for the example in the video. it is basically a remake of cyrille henry's classic bouncing balls ( drpichon.free.fr/ch/data/msd_ch_20060603.mp4) using my redUniverse quark.

//redFrik 090306, minor update 110804
(
s.waitForBoot{
        var width= 1000, height= 600, w, world, n= 30;
        var back= Window.new("", Window.screenBounds, false, false);
        back.view.background= Color.red(0.5, 1);
        back.front;
       
        //--synthesis
        SynthDef(\suddenmotionsynth, {|out= 0, freq= 400, maxDur= 0.3, amp= 1, pan= 0|
                var e, z, freqs, amps, rings;
                freqs= Array.geom(4, freq, Rand(1.5, 2.5));
                amps= Array.geom(4, 0.5, Rand(0, 1));
                rings= Array.geom(4, maxDur, Rand(0, 1))*maxDur;
                e= EnvGen.ar(Env.perc(0.0025, maxDur), 1, amp, doneAction:2);
                z= Klank.ar(`[freqs, amps, rings], WhiteNoise.ar(e));
                Out.ar(out, Pan2.ar(z*e, pan));
        }).send(s);
        SynthDef(\suddenmotionsensor, {|rate= 50|
                var trig= Impulse.kr(rate);
                SendReply.kr(trig, 'xyz', RedInfoSms.kr(trig));
        }).play(s);
       
        //--world
        w= RedWindow("RedInfo", Rect.aboutPoint(Window.screenBounds.center, width/2, height/2)).front;
        world= RedWorld3(RedVector2D[width, height], RedVector2D[0, 0.98], 25, 0.25);
       
        //--objects
        {
                var loc= RedVector2D[width, height].rand;
                var mass= 0.5.rrand(2);
                RedObject(world, loc, 0, 0, mass, mass*10); //world,loc,vel,acc,mass,size
        }.dup(n);
       
        //--responder
        OSCresponder(s.addr, 'xyz', {|t, r, m|
                //world.gravity= RedVector2D[m[3].neg*3, m[5]*5-4]; //some older macbooks have x inverted
                world.gravity= RedVector2D[m[3]*3, m[5]*5-4];
        }).add;
       
        //--loop
        w.draw{
                Pen.fillColor= Color.red(1.2, 0.6);
                world.objects.do{|o|
                        var osize, freq, amp, pan;
                        o.addForce(world.gravity);
                        o.update;
                        if(world.contains(o).not, {
                                osize= o.mass.linexp(0.5, 2, 0.15, 1);
                                freq= osize.linexp(0.1, 1, 600, 400);
                                amp= o.vel.mag.linexp(0, 25, 0.01, osize);
                                pan= o.loc[0]/width*2-1;
                                if(amp>0.02, {
                                        Synth(\suddenmotionsynth, [\freq, freq, \maxDur, osize, \amp, amp, \pan, pan]);
                                });
                        });
                        world.contain(o);
                       
                        //--render
                        Pen.fillOval(Rect.aboutRedObject2D(o));
                };
        }.play;
        CmdPeriod.doOnce({
                if(w.isClosed.not, {w.close});
                if(back.isClosed.not, {back.close})
        });
})

disclaimer:
no, i'm not responsible if you accidently drop your computer while using these.

micro_noise_joy

soldering is such a nice relief from coding. for years i've had an old pc-joystick laying around (thank you abe). i knew i wanted to build something from it - something that would produce lovely noise - and yesterday i finally got around to hack it. the joystick now contains a slightly modified micro_noise synth circuit (based on a design by SGMK mechatronicart.ch). it also holds a 9v battery and the pc-connection cable now serves as sound output cable with standard 1/4 jack.

micro_noise_joy from redFrik on Vimeo.

i used the switches and potentiometers that the joystick had and it was very quick to build and cost me virtually nothing. i just cut some cables and soldered them onto a tiny circuit board together with a few components. see the schematics below. the only visible change is the jack output and a the led i mounted in the case.

infraRed

this is a tiny project from about 1 year ago. i wanted to add extra ir-light for my dvcamera's nightshot mode. very useful when playing in dark and smoky clubs.
i bought 10 osram high power ir leds (SFH4550) and found 5 small resistors (47ohm). i run it off two 1,5v batteries
below a picture and the schematics.

Pages

Subscribe to f0blog RSS