#90685

Argh.

This task was frustrating as Hell. The classes all sounded horrible and I was only allowed two external patches, which are the best part of the final piece by far. I started off by creating a simple Triangle Oscillator and a Sine Oscillator for my very basic bassline. I then opened Reaon and spent ages coming up with Thor patches and testing them in Chuck. out of about ten different patches I chose two I liked the best and eexported those into Chuck. These patches formed the backbone of my piece accompanied by the rest of the Chuck UGens and classes.

I initially wanted to add a fade in function but I lacked the neccessary skills to create one or adapt exsisting functions. To patch the blips left by loops and outros I added in an ADSR in and a NRev reverb. This softened the blip made by the terrible Chuck classes and UGens.

{

    0 => VFA.gain;

    0 => int I;

    "ohh" => VFA.phoneme;

    start-now => now;

         while (now < end)

    {

        Std.mtof(VFAMA[I]) => VFA.freq;

        0.5 => VFA.gain;

        (I+1)%10 => I;

        200::ms => now;

    }

    0 => VFA.gain;

}

"Desktop/90685/Samples/BassCarry.wav" => string BassCarryWav;

"Desktop/90685/Samples/AcidBass.wav" => string AcidBassWav;

// INSTRUMENTS //

SndBuf SBBC => dac;

SndBuf SBAB => dac;

BassCarryWav => SBBC.read;

AcidBassWav => SBBC.read;

TriOsc TOA => NRev NRA => ADSR ARA => dac;

SinOsc SOA => ADSR ARB => dac;

HevyMetl HMA => ADSR ARC => Pan2 P2A => dac;

// MIXER //

1 => dac.gain;

0 => SBBC.gain;

0 => TOA.gain;

0 => SOA.gain;

0 => HMA.gain;

0.035 => NRA.mix;

ARA.set(25::ms, 10::ms, 1, 1000::ms);

ARB.set(25::ms, 10::ms, 1, 500::ms);

ARC.set(25::ms, 10::ms, 1, 500::ms);

// ARRAYS //

[20,24,28,20,24,28,28,20,24,28,20,35,28,20,24]@=> int TOAMA[];

[30,38,29,37,28,36,27,35,26,34,25,33,24,32,23,31,22,30,21,29,20,28,19,27,18,26,17,25,16,24,15,23,14,22,13,21,12,20,19,19]@=> int TOAMB[];

//[30,32,40,30,32,40,45,30,32,40,30,32,40,20,28]@=> int TOAMA[];

[20,0,20,0,25,30,0,35,50,30]@=> int SOAMA[];

//[40,0,0,20,0,]@=> int Bass Beat[];

// FUNCTIONS //

fun void PlayBassCarry (time start, time end)

{

    0 => SBBC.gain;

    start-now => now;

         while (now < end)

    {

        0 => SBBC.pos;

        1 => SBBC.gain;

        6.4::second => now;

    }

}

fun void PlayAcidBass (time start, time end)

{

    0 => SBBC.gain;

    start-now => now;

         while (now < end)

    {

        0 => SBBC.pos;

        1 => SBBC.gain;

        6.4::second => now;

    }

}

fun void PlayTriangleBassA (time start, time end)

{

    0 => TOA.gain;

    0 => int I;

    start-now => now;

    while (now < end)

    {

        Std.mtof(TOAMA[I]) => TOA.freq;

        1 => TOA.gain;

        (I+1)%15 => I;

        200::ms => now;

    }

    0 => TOA.gain;

}

fun void PlayTriangleBassB (time start, time end)

{

    0 => TOA.gain;

    0 => int I;

    start-now => now;

         while (now < end)

    {

        Std.mtof(TOAMB[I]) => TOA.freq;

        1 => TOA.gain;

        (I+1)%40 => I;

        200::ms => now;

    }

    0 => TOA.gain;

}

fun void PlaySineLeadA (time start, time end)

{

    0 => SOA.gain;

    0 => int I;

    start-now => now;

         while (now < end)

    {

        Std.mtof(SOAMA[I]) => SOA.freq;

        1 => SOA.gain;

        (I+1)%10 => I;

        200::ms => now;

    }

    0 => SOA.gain;

}

//fun void FadeIn (time start, time end)

//{

//    while(0.0 => float I; I<0; I+0.01 => I)

//    {

//        I => TOA.gain;

//    }

//}

fun void FadeOut (time start, time end)

{

    start-now => now;

    (end-start)/100::ms => float Interval;

    dac.gain()/Interval => float FadePerSec;

    while(now < end)

    {

        dac.gain()-FadePerSec => dac.gain;

        100::ms => now;

    }

}

// SPORKING //

//spork ~ FadeIn (now, now+4.0::second);

spork ~ PlayTriangleBassB (now, now+6.0::second);

//spork ~ FadeOut (now+7.5::second, now+8.0::second);

spork ~ PlayTriangleBassA (now+6.0::second, now+15.0::second);

spork ~ PlaySineLeadA (now+6.0::second, now+15.0::second);

//spork ~ PlayAcidBass (now+15.0::second, now+21.4::second);

120::second=>now;