Sunday, November 02, 2008

AA3 Week 10 - Project So Far

This is my progress so far. We were meant to have a rough cut by week 10 but clearly I don't have that. I have employed my sounds so far with some music but there is still some work left to go.








[1] Luke Harrald. "Audio Arts: Semester 2 - Week 10 - Rough Cut". Lecture presented at EMU, University of Adelaide, South Australia, 14th October 2008

Posted by DJ Reverie at 9:28 PM 0 comments

Week 9 Forum - 3rd Year Presentations

[1]

I wanna hear a composition through this!


Today we had presentation by the third years. I was impressed by how many students decided to use surround sound in their works. I haven't used surround in my work but not because it doesn't interest me. I just haven't found a use for it yet. I do want to learn how to mix in surround properly for future work. I thought Ben's piano piece was nice and Jake's piece sounded great with the surround sounds pulsating through the room. Dave's piece was also quite good.


[1] 100Cute, Technology, Celebrity & Fashion Blog. http://www.100cute.com/design-your-own-surround-sound-spherical-speakers-for-the-real-bang.html (Accessed 10/10/8)

[2] Stephen Whittington & 3rd Year Students, "Music Technology Forum: Semester 2 - Week 9 – Student Presentations". Lecture presented at the Electronic Music Unit, University of Adelaide, South Australia, 9th October 2008

Posted by DJ Reverie at 6:42 PM 0 comments

CC3 Week 9 - Spatialisation


AUDIO [1.7MB]






(


var sbs;

~gFreqMenu = 0;
~gFreq = 80;
~gAmp = 0.05;
~gDur = 1.0;
~gWait = 0.01;
~gPanX = 1;
~gPanY = 1;

 SynthDef("FSinOsc", { 
 
  // Args
  arg gFreq = 440, gAmp = 1.0, gDur = 3.0, xpan= 1, ypan=1;
  
  // Vars
  var osc, env, envGen, out;
  
  // Unit Generators
  osc = FSinOsc.ar(freq: gFreq);
  env = Env.sine(
   dur: gDur, 
   level: 1
  );
  envGen = EnvGen.ar(
   envelope: env, 
   gate: 1, 
   levelScale: gAmp, 
   doneAction: 2
  );
  out = envGen * osc;
  
  // Output
  Out.ar(
   bus: 0, 
  channelsArray: Pan4.ar(out,xpan, ypan)
  )
 }).send(s);


 SynthDef("SinOsc", { 
 
  // Args
  arg gFreq = 440, gAmp = 1.0, gDur = 3.0, xpan= 1, ypan=1;

  
  // Vars
  var osc, env, envGen, out;
  
  // Unit Generators
  osc = SinOsc.ar(freq: gFreq);
  env = Env.sine(
   dur: gDur, 
   level: 1
  );
  envGen = EnvGen.ar(
   envelope: env, 
   gate: 1, 
   levelScale: gAmp, 
   doneAction: 2
  );
  out = envGen * osc;
  
  // Output
  Out.ar(
   bus: 0, 
  channelsArray: Pan4.ar(out,xpan, ypan)
  )
 }).send(s);




 SynthDef("LFTri", { 
 
  // Args
  arg gFreq = 440, gAmp = 1.0, gDur = 3.0, xpan= 1, ypan=1;

  
  // Vars
  var osc, env, envGen, out;
  
  // Unit Generators
  osc = LFTri.ar(freq: gFreq);
  env = Env.sine(
   dur: gDur, 
   level: 1
  );
  envGen = EnvGen.ar(
   envelope: env, 
   gate: 1, 
   levelScale: gAmp, 
   doneAction: 2
  );
  out = envGen * osc;
  
  // Output
  Out.ar(
   bus: 0, 
  channelsArray: Pan4.ar(out,xpan, ypan)  )
 }).send(s);





 SynthDef("Pulse", { 
 
  // Args
  arg gFreq = 440, gAmp = 1.0, gDur = 3.0, xpan= 1, ypan=1;

  
  // Vars
  var osc, env, envGen, out;
  
  // Unit Generators
  osc = Pulse.ar(freq: gFreq);
  env = Env.sine(
   dur: gDur, 
   level: 1
  );
  envGen = EnvGen.ar(
   envelope: env, 
   gate: 1, 
   levelScale: gAmp, 
   doneAction: 2
  );
  out = envGen * osc;
  
  // Output
  Out.ar(
   bus: 0, 
  channelsArray: Pan4.ar(out,xpan, ypan)  )
 }).send(s);



 SynthDef("Saw", { 
 
  // Args
  arg gFreq = 440, gAmp = 1.0, gDur = 3.0, xpan= 1, ypan=1;

  
  // Vars
  var osc, env, envGen, out;
  
  // Unit Generators
  osc = Saw.ar(freq: gFreq);
  env = Env.sine(
   dur: gDur, 
   level: 1
  );
  envGen = EnvGen.ar(
   envelope: env, 
   gate: 1, 
   levelScale: gAmp, 
   doneAction: 2
  );
  out = envGen * osc;
  
  // Output
  Out.ar(
   bus: 0, 
  channelsArray: Pan4.ar(out,xpan, ypan)
   )
 }).send(s);

//w.close;


// WHOLE WINDOW
 w = SCWindow.new.front;
 // Parameters
 w.bounds = Rect(170,150,450,380);   // Rectangular Window Bounds  (Bottom Left Width Height)
 w.name_("Grainulator");       // Window Name
 w.alpha_(0.8);        // Transparency
// w.boxColor_(Color.black);


// PANEL
e = SCCompositeView(w,Rect(10,50,430,310));
e.background = Color.new255(100,0,50);
//Gradient(Color.blue,Color.black); 


// DROP DOWN MENU (WAVEFORM)
 l = [
  "Fast Sine Wave","Sine Wave","Triangle Wave","Square Wave","Saw Tooth Wave"];
   sbs = SCPopUpMenu(w,Rect(10,10,150,20));
 sbs.items = l;
sbs.background_(Color.new255(100,0,50));
 sbs.stringColor_(Color.white);

sbs.action = { arg sbs;
 ~gFreqMenu = sbs.value.postln;
 
 };
 
 // 4 CHANNEL PANNER
 v = SC2DSlider(w, Rect(300, 1, 45, 45))
  .x_(0.5) // initial location of x
  .y_(1) // initial location of y
  .action_({|sl|
   ~gPanX = (sl.x*2)-1;
   ~gPanY = (sl.y*2)-1;
  });

 
 
 
 // TEXT (FREQ)
 r = SCStaticText(e, Rect(350, 80, 100, 20));
 r.stringColor_(Color.white);
 r.string = "Frequency";
 r.font_(Font("Arial", 12));



// SLIDER (FREQ)
r = SCSlider(e, Rect(30, 85, 300, 15))
 //.lo_(0.001)
 //.hi_(1)
 //.range_(1)
 .knobColor_(HiliteGradient(Color.blue, Color.white, Color.red))
 .action_({ |slider|
 //slider.lo=0;
// slider=0;
 //r.value=""++(slider.hi*2000) ++"Hz";
  r.value=""++(slider.value*2000) ++"Hz";
// ~gFreq = slider.hi*2000;
   ~gFreq = slider.value*2000;

 r.stringColor_(Color.white);

 // [\sliderLOW, slider.lo, \sliderHI, slider.hi].postln;
 });


// NUMBER BOX (FREQ)
  r = SCTextField(
  parent:   e, 
  bounds: Rect(350, 110, 50, 15)  // Left Top Width Height
 ).boxColor_(Color.new255(100,0,50));
 

 // TEXT (AMP)
 t = SCStaticText(e, Rect(350, 150, 100, 20));
 t.stringColor_(Color.white);
 t.string = "Amplitude";
 t.font_(Font("Arial", 12));


// SLIDER (AMP)
t = SCSlider(e, Rect(30, 85+70, 300, 15))
// .lo_(0.0001)
// .hi_(1)
 //.range_(1)
 .knobColor_(HiliteGradient(Color.blue, Color.white, Color.red))
 .action_({ |slider|
// slider=0;
 t.value=""++(slider.value*1) ++"";
 ~gAmp = slider.value*0.1;
 t.stringColor_(Color.white);

//  [\sliderLOW, slider.lo, \sliderHI, slider.hi].postln;
 });

 
// NUMBER BOX (AMP)
  t = SCTextField(
  parent:   e, 
  bounds: Rect(350, 180, 50, 15)  // Left Top Width Height
 ).boxColor_(Color.new255(100,0,50)); 

 
 // TEXT (DUR)
 u = SCStaticText(e, Rect(350, 220, 150, 20));
 u.stringColor_(Color.white);
 u.string = "Duration";
 u.font_(Font("Arial", 12));


// SLIDER (DUR)
u = SCSlider(e, Rect(30, 225, 300, 15))
// .lo_(0.001)
// .hi_(1)
// .range_(1)
 .knobColor_(HiliteGradient(Color.blue, Color.white, Color.blue))
 .action_({ |slider|
// slider=0;
 u.value=""++(slider.value*1) ++"s";
 ~gDur = slider.value*1;
 u.stringColor_(Color.white);

  //[\sliderLOW, slider.lo, \sliderHI, slider.hi].postln;
 });

 
// NUMBER BOX (DUR)
  u = SCTextField(
  parent:   e, 
  bounds: Rect(350, 250, 50, 15)  // Left Top Width Height
 ).boxColor_(Color.new255(100,0,50)); 
 

 
 // TEXT (WAIT)
 p = SCStaticText(e, Rect(350, 290, 150, 20));
 p.stringColor_(Color.white);
 p.string = "Iteration Time";
 p.font_(Font("Arial", 12));


// SLIDER (WAIT)
p = SCSlider(e, Rect(30, 295, 300, 15))
// .lo_(0.001)
// .hi_(1)
// .range_(1)
 .knobColor_(HiliteGradient(Color.blue, Color.white, Color.red))
 .action_({ |slider|
// slider.lo=0;
 p.value=""++(0.01/slider.value*1) ++"s";
 ~gWait = 0.01/slider.value*1;
 p.stringColor_(Color.white);

 // [\sliderLOW, slider.lo, \sliderHI, slider.hi].postln;
 });


 
// NUMBER BOX (WAIT)
  p = SCTextField(
  parent:   e, 
  bounds: Rect(350, 320, 50, 15)  // Left Top Width Height
 ).boxColor_(Color.new255(100,0,50)); 
  
 

 Routine({ s.sync;
  inf.do({
  
~gFreqMenu.switch(0,{Synth("FSinOsc", [\gFreq, ~gFreq, \gAmp, ~gAmp, \gDur, ~gDur, \xpan, ~gPanX, \ypan, ~gPanY])},
      1,{Synth("SinOsc", [\gFreq, ~gFreq, \gAmp, ~gAmp, \gDur, ~gDur, \xpan, ~gPanX, \ypan, ~gPanY])},
      2,{Synth("LFTri", [\gFreq, ~gFreq, \gAmp, ~gAmp, \gDur, ~gDur, \xpan, ~gPanX, \ypan, ~gPanY])},
      3,{Synth("Pulse", [\gFreq, ~gFreq, \gAmp, ~gAmp, \gDur, ~gDur, \xpan, ~gPanX, \ypan, ~gPanY])},
      4,{Synth("Saw", [\gFreq, ~gFreq, \gAmp, ~gAmp, \gDur, ~gDur, \xpan, ~gPanX, \ypan, ~gPanY])}
      );
   // Create Grain
   // Synth("Pulse", [\gFreq, {rrand(80, 300).postln}, \gAmp, 0.05, \gDur, 1.0]); 
   // [1000, 8000] [200, 400]
   // Grain Delta - 0.1, 0.01
   ~gWait.wait;
  })
 }).play;

)

[1] Christian Haines. "Creative Computing: Semester 2 - Week 9 - Spatialisation". Lecture presented at the Electronic Music Unit, University of Adelaide, South Australia, 23th October 2008

Posted by DJ Reverie at 5:30 PM 0 comments
Subscribe to: Posts (Atom)