[sc-users] Re: BufRecord and triggering

[Paul Jones <pauljones_mds@xxxxxxxxx>]

( // boot synths and allocate buffers 

b=Buffer.alloc(s,44100*30,1); 

c = Buffer.alloc(s,44100,1); 

d = Buffer.alloc(s,44100*30,1); 

SynthDef(\recordnewbuf,{arg in=1, bufnum; var inp , rec; 

inp = BufDelayN.ar(c,AudioIn.ar(in,1),0.01); // input with delay to
compensate for server latency 

rec = RecordBuf.ar( inp , bufnum); 

Line.kr(30,30,30,doneAction:2); 

 }).send(s); 

~snares = List[]; 

~hats = List[]; 

SynthDef("recordTrig",{ 

|id1=1,id2=2,in=1| 

var on , input , off, time; 

  input = AudioIn.ar(in); 

  on =Amplitude.kr(AudioIn.ar(in),0.005,20) > 0.005; 
  
  off = Trig1.kr(1 - on); 
  
  on = Trig1.kr(on); 

   time = Line.kr(0, 100000 ,100000); // time the synth run time used to
calculate sample length in the osc responder 

   SendTrig.kr(on,id1,time); 
      
   BufDelayC.ar(c ,  SendTrig.kr(off,id2,time),0.01); // stop recording
trigger, with same delay as above 

  // Out.ar(0,Pan2.ar(input)); 

}).send(s); 




--
View this message in context: http://new-supercollider-mailing-lists-forums-use-these.2681727.n2.nabble.com/BufRecord-and-triggering-tp7613503p7629831.html
Sent from the SuperCollider Users New (Use this!!!!) mailing list archive at Nabble.com.

_______________________________________________
sc-users mailing list

info (subscription, etc.): http://www.birmingham.ac.uk/facilities/ea-studios/research/supercollider/mailinglist.aspx
archive: https://listarc.bham.ac.uk/marchives/sc-users/
search: https://listarc.bham.ac.uk/lists/sc-users/search/