ExtraplanSC2009

Notas definitivas

2009-12-05T11:11:00.002-04:30

Estimados alumnos el día de ayer estuve desde las 9 am hasta las 12 m atendiendo a todos aquellos que vinieron a revisar sus notas y sus tareas, dándoles la oportunidad de rehacer ejercicios, poniéndoles ejercicios nuevos a los que deseaban mejorar su rendimiento.

COn esto cierro el trimestre y aquí están las notas definitivas.

EL día martes llenaré el acta.

Ha sido un placer y espero que le den uso a futuro a Supercollider. Estaré siempre en ladim@usb.ve.

Saludos

Adina

vander

2009-12-04T11:49:00.001-04:30

b = Buffer.read(s,"sounds/ferminCementerio.aif")
(

SynthDef("ferminCementerio",{|rate=1,vol=1,cornetas=0,inicio=600000, largo=2,corte|

var completo,env;

env=EnvGen.ar(Env.sine(largo,2),doneAction:2);

completo=HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);

Out.ar(cornetas,completo*vol*env)}).memStore

)

(Pbind(\instrument,\ferminCementerio,

\rate,1,

\vol,1,

\corte,Pseries(12000,-55,215),

\largo,0.3,

\inicio,Pseries(20000,3000,1000).trace,

\dur,0.05).play)

)

Tarea corregida

2009-12-04T11:32:00.002-04:30

c = Buffer.read(s, "C:/Users/Felipe/Music/vivoporella.wav")
{PlayBuf.ar(1,c.bufnum,1,loop:1)!2}.play
c.query
(
SynthDef("bocelli",{|velocidad=0.2,volumen=1,corneta=0,duracion=10,filtro=1000,inicio=0|
var env;
env=EnvGen.ar(Env.sine(duracion,2),doneAction:2);
Out.ar(corneta,HPF.ar(PlayBuf.ar(1,c.bufnum,rate:velocidad,loop:1,startPos:inicio),
filtro,1)*volumen*env)}).memStore
)
(
Pbind(\instrument,\bocelli,
\velocidad,1,
\corneta,Prand([0,1],inf),
\volumen,1,
\filtro,900,
\duracion,0.1,
\inicio,Pseries(0,100,116923),
\dur,0.001).play
)

Felipe Madarnas

igotta HPF

2009-12-04T11:26:00.001-04:30

b = Buffer.read(s,"sounds/igotta.wav")

(

SynthDef("igotta",{|rate=1,vol=1,sur=0,ini=700000, largo=2,corte=500|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:ini),corte);

Out.ar(sur,todo*vol*env)}).memStore)

(
(Pbind(\instrument,\igotta,

\rate,1,

\sur,Prand([0,1],inf),

\vol,1,

\corte,800,

\largo,0.06,

\ini,Pseries(80000,500,1200).trace,

\dur,0.02).play).memStore

)

Aarom

rodolfo, tengo tu pendrive

2009-12-04T11:24:00.001-04:30

escribeme a aizarra@usb.ve para cuadrar l arecuperacion

Hector Zambrano Tarea 9

2009-12-04T11:09:00.001-04:30

b = Buffer.read(s,"sounds/bb.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.2,startPos:0)!2}.play;

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=15000, largo=10,corte=800|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:4);
ni= HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.2,0.1],inf),
\cornetas,1,
\vol,0.5,
\largo,0.09,
\inicio,Pseries(100,660,5000),
\corte,Pseq([Pseries(2,15,350)],inf),
\dur,0.03).play
)

b = Buffer.read(s,"sounds/bb.wav");
{PlayBuf.ar(1,b.bufnum,rate:0.2,loop:1)}.play

b.query

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=1500, largo=10,corte=900|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:2);
ni= LPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.5,0.8],inf),
\cornetas,Prand([0,1],inf),
\vol,0.4,
\largo,0.8,
\inicio,Pseries(100,660,5000000),
\corte,Pseq([Pseries(5,20,300)],inf),
\dur,0.02).play
)

2009-12-04T10:53:00.001-04:30

b = Buffer.read(s,"sounds/laperla.aif")

(

SynthDef("laperla",{|rate=1,vol=1,cornetas=0,inicio=500000, largo=2|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);

Out.ar(cornetas,todo*vol*env)}).memStore

)

(Pbind(\instrument,\laperla,

\rate,1,

\cornetas,Prand([0,1],inf),

\vol,1,

\largo,0.04,

\inicio,Pseries(10000,300,1600).trace,

\dur,0.02).play).scope

(Pbind(\instrument,\laperla,

\rate,Pseq([-1,1],inf),

\cornetas,Prand([0,1],inf),

\vol,0.1,

\largo,0.07,

\inicio,Pseries(1000,200,300),

\dur,0.03).play)

Hector Zambrano Tarea 9

2009-12-04T10:50:00.001-04:30

b = Buffer.read(s,"sounds/bb.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.2,startPos:0)!2}.play;

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=15000, largo=10,corte=800|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:4);
ni= HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.2,0.1],inf),
\cornetas,1,
\vol,0.5,
\largo,0.09,
\inicio,Pseries(100,660,500),
\dur,0.03).play
)

b = Buffer.read(s,"sounds/bb.wav");
{PlayBuf.ar(1,b.bufnum,rate:0.2,loop:1)}.play

b.query

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=1500, largo=10,corte=900|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:2);
ni= LPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.5,0.8],inf),
\cornetas,Prand([0,1],inf),
\vol,0.4,
\largo,0.8,
\inicio,Pseries(100,660,500),
\dur,0.02).play
)

Hector Zambrano Tarea 9

2009-12-04T10:48:00.000-04:30

b = Buffer.read(s,"sounds/bb.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.2,startPos:0)!2}.play;

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=15000, largo=10,corte=800|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:4);
ni= HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.2,0.1],inf),
\cornetas,1,
\vol,0.5,
\largo,0.09,
\inicio,Pseries(100,660,500),
\dur,0.03).play
)

b = Buffer.read(s,"sounds/bb.wav");
{PlayBuf.ar(1,b.bufnum,rate:0.2,loop:1)}.play

b.query

(
SynthDef("bb",{|rate=0.2,vol=1,cornetas=0,inicio=1500, largo=10,corte=900|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:2);
ni= LPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);
Out.ar(cornetas,ni*vol*env)}).memStore)

(
Pbind(\instrument,\bb,
\rate,Pseq([0.5,0.8],inf),
\cornetas,Prand([0,1],inf),
\vol,0.4,
\largo,0.8,
\inicio,Pseries(100,660,500),
\dur,0.02).play
)

VEngan arevisar y corregir tareas

2009-12-04T08:12:00.001-04:30

Hola, tendrán la oportunidad de corregir sus trabajos en clase HOY.

Vengan señores y señoras!!

Corrección Tarea 9 y recuperaciones

2009-12-04T08:06:00.001-04:30

//hector

/*Pero esto no es granulación para nada, el uso de |cornetas| no tiene sentido, lo que hiciste fue montar un sampleo sobre un patcher que vims en clase...pero lo copiaste mal.*/

/*pero el filtro debería estar en el Pbind */

///hector recuperacion

profe esto por recuperación:
----------------------------------
b = Buffer.read(s,"sounds/bebe.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.2,startPos:0)!2}.play;

(
SynthDef("bebe",{|rate=0.2,vol=1,cornetas=0,inicio=300000, largo=15|
var ni,env;
env=EnvGen.ar(Env.sine(largo,2),doneAction:3);
ni= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);
Out.ar(cornetas,ni*vol*env)}).memStore
).play
/* no lleva play*/

(
Pbind(\instrument,\bebe,
\rate,Pseq([0.3,0.2],inf),
\cornetas,Prand([1],inf),
\vol,0.8,
\largo,5,
\inicio,Pseries(700,100,1000),
\dur,2).play
)
/*Mismo comentario del anterior, no aportas nada nuevo ni en SynthDef ni en Pbind*/

{HPF.ar(PlayBuf.ar(1,b.bufnum,0.1,startPos:0,loop:1), MouseX.kr(40,200,13),1)}.play

///hector

b = Buffer.read(s,"sounds/yatusabes.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.19,startPos:0)!2}.play;
//-------------------------------------------

{LPF.ar(PlayBuf.ar(1,b.bufnum,0.3,startPos:0,loop:1), MouseX.kr(200,2000,3),1)}.play

//-------------------------------------------

(
SynthDef("yatusabes",{|rate=0.3,vol=1,cornetas=0,inicio=7000, largo=15|
var ni,env;
env=EnvGen.ar(Env.sine(largo,3),doneAction:2);
ni= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);
Out.ar(cornetas,ni*vol*env)}).memStore
).play

//-------------------------------------------

(
Pbind(\instrument,\yatusabes,
\rate,Pseq([0.1,0.2],inf),
\cornetas,Prand([1],inf),
\vol,0.8,
\largo,10,
\inicio,Pseries(700,100,1000),
\dur,4).play
)
/*Mismo comentario, hubiera sido preferible que en vez de inclui un sampleo nuevo hubieras variado cada ejercicio, aqui pones un ni que no utilizas*/

{LPF.ar(PlayBuf.ar(1,b.bufnum,0.3,startPos:0,loop:1), MouseX.kr(200,2000,3),1)}.play

Hector Zambrano 0801864

////

/*Y COMO CARGO EL SAMPLEO????*/

b = Buffer.read(s,"sounds/revolution.wav");
(

SynthDef("revolution",{|rate=1,vol=1,cornetas=0,frame=500000,done=2,punto=1000|

var todo,env;

env=EnvGen.ar(Env.sine(done,1),doneAction:2);

todo= LPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:-1,startPos:frame),punto);

Out.ar(cornetas,todo*env*vol)}).memStore

)

(Pbind(\instrument,\revolution,

\rate,Prand([-1,1],inf),

\cornetas,Pseq([0,1],inf),

\vol,0.9,

\punto,Prand([400,150000,2000000],inf),

\done,1,

\frame,Pstutter([4,1],[500000,1400000]),

\dur,0.1).play)

s.scope
/* OK*/

Jose Gregorio Constenla
#08-10241

//Felipe Madarnás

/*NO TENGO SAMPLEO*/

c = Buffer.read(s, "/Applications/SuperCollider/sounds/ferminCementerio.aif")
{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,c.bufnum,(rrand(1.0,1.1).postln),loop:1),(rrand(-1.0,1.0).postln))})}.scope
{PlayBuf.ar(1,c.bufnum,1,loop:1)!2}.play
c.query
(
SynthDef("bocelli",{|velocidad=1,volumen=1,corneta=0,duracion=60,
inicio=0|
var env;
env=EnvGen.ar(Env.sine(duracion,2),doneAction:2);
Out.ar(corneta,PlayBuf.ar(1,c.bufnum,rate:velocidad,
loop:1,startPos:inicio)*volumen*env)}).memStore
)
(
Pbind(\instrument,\bocelli,
\velocidad,1,
\corneta,Prand([0,1],inf),
\volumen,0.5,
\duracion,0.1,
\inicio,Pseries(1000000,100,116923),
\dur,0.001).play
)
{LPF.ar(PlayBuf.ar(1,c.bufnum,1,loop:1),1300,1)}.play

/*pero el filtro debería estar en el Pbind 0.8*/

//hector otra vez

b = Buffer.read(s,"sounds/chang.wav");
b.query

{PlayBuf.ar(1,b.bufnum,0.19,startPos:0)!2}.play;
//---------------------------------------------------------------------------------

(
SynthDef("chang",{|rate=0.23,vol=1,cornetas=0,inicio=50, largo=8|
var ni,env;
env=EnvGen.ar(Env.sine(largo,6),doneAction:1);
ni= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);
Out.ar(cornetas,ni*vol*env)}).memStore
).play
/*no uses play para el synhtDEf*/

//----------------------------------------------------------------------------
(
Pbind(\instrument,\chang,
\rate,Pseq([0.2,0.3],inf),
\cornetas,Prand([1],inf),
\vol,0.8,
\largo,5,
\inicio,Pseries(2,8000,600),
\dur,2).play
)
/*mismo error, mismo comentario*/
//-------------------------------------------------------------------------------

{LPF.ar(PlayBuf.ar(1,b.bufnum,0.3,startPos:0,loop:1), MouseX.kr(200,2000,3),1)}.play

Hector Zambrano 0801864

//ELvis

b = Buffer.read(s,"sounds/beethoven.wav");

Filtrado con HPF

(SynthDef("sinth1",{|salida,cut,vol,ini,lrg,vel|
var eso, env;
env=EnvGen.ar(Env.perc(lrg,1),doneAction:2);
eso=HPF.ar(PlayBuf.ar(1,b.bufnum,vel,loop:1,startPos:ini),cut);
Out.ar(salida,eso*vol*env)}).memStore)

Filtrado con LPF

(SynthDef("sinth1",{|salida,cut,vol,ini,lrg,vel|
var eso, env;
env=EnvGen.ar(Env.perc(lrg,1),doneAction:2);
eso=LPF.ar(PlayBuf.ar(1,b.bufnum,vel,loop:1,startPos:ini),cut);
Out.ar(salida,eso*vol*env)}).memStore)

La cancion de Beethoven presenta en todo momento sonidos agudos, al ser filtrado con LPF se escucha como si le bajaran el volumen a la pieza

(Pbind(\instrument,\sinth1,
\lrg,0.5,
\vel,1,
\cut,Pseq([Pseries(2,10,450)],inf).trace,
\vol,1,
\ini,Pseries(390876,385,1785),
\salida,1,
\dur,0.03).play)

/*lo mejor es hacer un Pbind para cada SynthDef y llamar el de LPF de una manera y el de HPF de otra, asi no hay que recargarlos. Muy bien*/

Esta fue mi segunda parte...
Elvis Boada 08-10132

///Michelle

TAREA 9

b = Buffer.read(s, "C:\Users\Acosta\Documents\LimeWire\Saved\DaveMatthewsBand-TheSpaceBetween.wav");

b=Buffer.read(s, "/Applications/SuperCollider/sounds/ferminCementerio.aif")
{PlayBuf.ar(1,b.bufnum,0.5)!2}.play
{PlayBuf.ar(1,b.bufnum,rate:-2,loop:1)}.play
b.query
(
SynthDef("DaveMatthewsBand",{|rapidez=0.2,volumen=1,altavoz=0,tiempo=10,start=0|
var env;
env=EnvGen.ar(Env.sine(tiempo,2),doneAction:2);
Out.ar(altavoz,PlayBuf.ar(1,b.bufnum,rate:rapidez,loop:1,startPos:start)*volumen*env)}).memStore
)
(
Pbind(\instrument,\DaveMatthewsBand,
\rapidez,1,
\altavoz,Prand([0,1],inf),
\volumen,0.5,
\tiempo,0.05,
\start,Pseries(12345,150,22131),
\dur,0.001).play
)
{LPF.ar(PlayBuf.ar(1,b.bufnum,1,loop:1),2000,1)}.play
/*pero el filtro debería estar en el Pbind 0.8*/
*como mi supercollider apesta, probe el codigo en otra pc y sono, solo que lo probe con un archivo de una cancion distinta*

MichelleSalas

// recuepracion Arom

TAREA 2
// 1

{Blip.ar(Line.kr(rrand(250,600).postln,rrand(340,90).postln,10),20.rand.postln,0.2)}.scope

// 2

(
{var aves,boca,cae,dados,efe,gato,hielo,insta,joker,kick;
aves=XLine.kr(rrand(50,130).postln,1000,5);
boca=XLine.kr(rrand(50,130).postln,1000,5);
cae=10;
dados=Env.perc(0.001, 1, 1, -8);
efe=Env.perc(0.01, 1, 1, -3);
gato=EnvGen.ar(dados);
hielo=EnvGen.ar(efe);
insta=[aves,boca];
joker=[gato,hielo];
kick=Blip.ar(insta,cae,joker);
kick}.plot.play
)

// 3
{[PinkNoise.ar(EnvGen.ar(Env.new([0,1,0.3,0.2,0.75,0.07,0.07,0.8,0.05],[3,2,2,4,8,3,5,3],-3))),BrownNoise.ar(0.07)]}.play

//******************************************************************************************************
Tarea 3

//Helicp
(a=
{
Blip.ar(XLine.kr(20,20,1),50,XLine.kr(1,0.001,12))!2
}
)
a.play
//***************************************************
//moto
(b=
{
Saw.ar(XLine.kr(50,200,5),XLine.kr(1,0.01,12))!2;
}
)
b.play
//***************************************************
//lluvia
(c=
{
PinkNoise.ar(XLine.kr(1,0.001,40))
}
)
c.play
//***************************************************
(
d=
{SinOsc.ar(MouseY.kr(200, 1110), 0, 1)}//detector de metales
)
d.play
//***************************************************
/*claro pero no te puedo dar la interpretación porque no lo hiciste en su momento*/
***********************************************************************************************************
Tareas 6.1 6.2 6.3

1
{SinOsc.ar(SinOsc.ar(0.1)*500,0,Blip.ar(50,2,1))!2}.play

2
{Saw.ar(Saw.ar(5000)*30*PinkNoise.ar(5),GrayNoise.ar(1))*0.5!2}.scope // cotufas en microondas

1conpan2
{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*500,0,Blip.ar(50,2,1)),SinOsc.ar(rrand(0.2,0.07).postln))}.scope

2conpan2
{Pan2.ar(Saw.ar(Saw.ar(5000)*30*PinkNoise.ar(5),GrayNoise.ar(1)),SinOsc.ar(rrand(0.2,0.1).postln))*0.3}.scope

1conmixfill
{Mix.fill(2,{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*500,0,Blip.ar(50,2,1)),SinOsc.ar(rrand(0.2,0.07).postln))}*0.5)}.scope

2conmixfill
{Mix.fill(2,{Pan2.ar(Saw.ar(Saw.ar(5000)*30*PinkNoise.ar(5),GrayNoise.ar(1)),SinOsc.ar(rrand(0.2,0.1).postln))})}.scope

2enSynth

(SynthDef("PopCorn",
{|frecu,mulpin,mulbro,inird,finrd,saled,amptotal=0.2|
var tod;
tod=Mix.fill(2,{Pan2.ar(Saw.ar(Saw.ar(frecu)*30*PinkNoise.ar(mulpin),GrayNoise.ar(mulbro)),SinOsc.ar(rrand(inird,finrd).postln))});
Out.ar(saled,tod)*amptotal}).send(s)
)
b=Synth("PopCorn",[\frecu,5000,\mulpin,5,\mulbro,1,\inird,0.2,\finrd,0.1,\sale, 0])

b.set(\frecu,10000)
b.set(\mulpin,1)
b.set(\mulbro,3)
b.set(\inird,2,\amptotal,0.1)
b.free

***************************************************************************************************************************

Tarea 8

b = Buffer.read(s,"sounds/ferminCementerio.aif" );

/*evita espacios en los nombres de los sampleos*/
(
SynthDef("Y",{|velocidad=1,duracion=0.9,posicion|
var env;
env=EnvGen.ar(Env.sine(duracion,1.1),doneAction:2);
Out.ar(posicion,{PlayBuf.ar(1,b.bufnum,velocidad,loop:1,startPos:550000)}*env)})
.memStore
)
(
Pbind(\instrument,\Y,
\velocidad,Pseq([1.0,1.75,1.5,2.0,1.0,1.75,0.5,2.0],inf),
\posicion,Prand([0,1],inf),
\duracion,Pseq([1.1,0.6,0.9,0.8],2)).play)

///Vander recuperacion

TAREA NUMERO 2
// UNO
{Blip.ar(Line.kr(rrand(300,700).postln,rrand(500,800).postln,8),22.rand.postln,0.6)!2}.scope

// DOS
(
{var carro,avion,helicop,lancha,jet,canoa,moto,patin,triciclo,metro;
carro=XLine.kr(rrand(50,130).postln,1000,5);
avion=XLine.kr(rrand(50,130).postln,1000,5);
helicop=10;
lancha=Env.perc(0.001, 1, 1, -8);
jet=Env.perc(0.01, 1, 1, -3);
canoa=EnvGen.ar(lancha);
moto=EnvGen.ar(jet);
patin=[carro,avion];
triciclo=[canoa,moto];
metro=Blip.ar(patin,helicop,triciclo);
metro}.plot.play
)

// TRES

{[BrownNoise.ar(EnvGen.ar(Env.new([0,0.9,0.4,0.3,0.85,0.09,0.07,0.6,0.07],[4,1,1,3,7,4,4,4],-3))),PinkNoise.ar(0.07)]}.play

----------------------------------------

TAREA NUMERO 3
(
a=

{SinOsc.ar(MouseY.kr(450, 990), 0, 1)}//Mover en Y para hacer sonido de ambulancia
)
a.play

(
b=

{Saw.ar(100,[EnvGen.ar(Env.linen(3,5,3,1))])!2}// avioneta
)
b.play

//lluvia
(c=
{

WhiteNoise.ar(XLine.kr(1,0.001,20))
}
)
c.play

----------------------------------------
TAREA NUMERO 4

{[SinOsc.ar(rrand(2000,2200),0,EnvGen.ar(Env.new([0,1,1,0],[0.02,0.04,0.02]),Impulse.ar(1.1))),SinOsc.ar(3000,0,EnvGen.ar(Env.new([0,0.3,0.3,0],[0.03,0.07,0.02]),Impulse.ar(3)))]}.play

----------------------------------------

TAREA NUMERO 6

{SinOsc.ar(SinOsc.ar(0.1)*700,0,Blip.ar(20,2,1))}.scope

conpan2
{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*700,0,Blip.ar(20,2,1)),SinOsc.ar(rrand(0.1,0.05).postln))}.scope

Mixfill

{Mix.fill(2,{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*700,0,Blip.ar(20,2,1)),SinOsc.ar(rrand(0.1,0.05).postln))}*0.3)}.scope
/*Demasiado igual a otra tarea en el blog@@@@*/
Synthdef

(
SynthDef("volador",
{|osc,oscd,nurm,inir,finr,sale|
var todo;
todo=Mix.fill(2,{Pan2.ar(SinOsc.ar(SinOsc.ar(osc)*700,0,Blip.ar(oscd,nurm,1)),SinOsc.ar(rrand(inir,finr).postln))}*0.3);
Out.ar(sale,todo)}).send(s)
)
a=Synth("volador",[\osc,0.1,\oscd,20,\nurm,2,\inir,0.1,\finr,0.05,\sale, 0])
a.set(\osc,0.5)
a.set(\oscd,50)
a.set(\nurm,4)
b.free

----------------------------------------

TAREA NUMERO 7

(
Pbind(\midinote,Pseq([48,52,50,55,53,59,57,60,48,52,50,52,53,52,55,48],2),

\dur, Prand([0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5],inf),

\amp, Pshuf([0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3,0.3],inf)

).play
)

/*Esto no tiene sentido*/

----------------------------------------
TAREA NUMERO 8

b = Buffer.read(s,"sounds/ferminCementerio.aif" );

(
SynthDef("entoncesmontese",{|velocidad=1,duracion=0.9,posicion|
var env;
env=EnvGen.ar(Env.sine(duracion,1.1),doneAction:2);
Out.ar(posicion,{PlayBuf.ar(1,b.bufnum,velocidad,loop:1,startPos:662000)}*env)})
.memStore
)

(
Pbind(\instrument,\entoncesmontese,
\velocidad,Pseq([0.75,1.75,0.6,-1.0,1.3,1.75,0.5,1.0],inf),
\posicion,Prand([0,1],inf),
\duracion,Pseq([1.0,0.7,0.8,0.7],2)).play
)
///robert moore

a= Buffer.read(s,"sounds/mujer.wav");
(SynthDef("aeromoza",{|vl=0.5,sda=0,sta=0,osc=2,ml=1,thr|
var todo, env;
env=EnvGen.ar(Env.sine(osc,1),doneAction:2);
todo=LPF.ar(PlayBuf.ar(1,a.bufnum,rate:vl,loop:1,startPos:sta),thr);
Out.ar(sda,todo*ml*env)}).memStore)

(Pbind(\instrument,\aeromoza,
\vl,1.5,
\sda,Pxrand([0,1],inf),
\sta,Pseries(12000,700,1100).trace,
\osc,0.1,
\ml,1,
\thr,Pseq([Pseries(10,50,400)],inf),
\dur,0.03).play)

/*MB*/
//----------------------------------------

//Repeticion de la tarea 8
b = Buffer.read(s,"sounds/ferminCementerio.aif" );
//A GOZA!!!! GORILON
//montando el synth
(
SynthDef("gorilon",{|vl=1,sda=0,sta=793800,osc=2,ml=1|
var todo,env;
env=EnvGen.ar(Env.sine(osc,1),doneAction:2);
todo= PlayBuf.ar(1,b.bufnum,vl,loop:1,startPos:sta,trigger:SinOsc.ar(vl*osc),doneAction:2);
Out.ar(sda,todo*ml*env)}).memStore

)
//tocando el synth
(
Pbind(\instrument,\gorilon,
\vl,Prand([0.5,1,0.75,1.25],inf),
\osc,Prand([1.8,1.9,2,2.1,2.2],inf),
\sda,Prand([0,1],inf),
\ml,Pxrand([0.5,1],inf)).trace.play
)

Notas Corte al 29 de Noviembre

2009-11-29T11:07:00.002-04:30

Estimados alumnos, he aquí un corte de las notas al día de hoy.

Esto no incluye la tarea que les falta por hacer (que vale un punto), pero les da la oportunidad de hacer las que no hicieron durante el trimestre, a un valor de 0.80 sobre 1.00.

De paso chequeen que hay unos que no aparecen aún en la lista definitiva. Vayan visitando a dace a ver qué pasó con ustedes.

Tarea 9 Granulador y FIltros

2009-11-29T10:22:00.003-04:30

1. Describe lo que ocurre cuando utilizamos HPF.ar y LPF.ar

2.Realiza UN SOLO CODIGO que utilice tu propio sampleo (debes enviarlo por yousendit a ladim@usb.ve) que incluya SynthDef, Pbind, granulación y uno de los filtros.

Esta es la última tarea

Nos vemos el viernes para cerrar

Clase 9 Granulador y FIltros

2009-11-29T10:21:00.001-04:30

/*Granulación Básica. Dividimos el sampleo en unidades muy pequeñitas (cuadros) y le ponemos una duración igual de pequeñita al \dur del Pbind, para que de vueltas rapidisimo, en \inicio que es el lugar donde va a comenzar al dar la vuelta ponemos un Pseries que vaya avanzando poquito a poquito. Con esto podemos acelerar o desacelerar el sampleo sin alterarle su altura original" cada vuelta comienza un poquito más adelante*/

b = Buffer.read(s,"sounds/ferminCementerio.aif");

b.query

numFrames : 1149737 esa es la duración en cuadros

/*para chequear que tengo bien montado el sampleo*/

{PlayBuf.ar(1,b.bufnum,1,startPos:0)!2}.play;

/*es muy importante que incluyan doneAction dentro den EnvGen.ar para que no se les cuelgue la máquina*/

(

SynthDef("fermin",{|rate=1,vol=1,cornetas=0,inicio=500000, largo=2|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);

Out.ar(cornetas,todo*vol*env)}).memStore

)

(Pbind(\instrument,\fermin,

\rate,1,

\cornetas,Prand([0,1],inf),

\vol,1,

\largo,0.03,

\inicio,Pseries(12000,400,1600).trace,

\dur,0.02).play )

s.scope

/*otra versión*/

(Pbind(\instrument,\fermin,

\rate,Pseq([-1,1],inf),

\cornetas,Prand([0,1],inf),

\vol,0.1,

\largo,1.4,

\inicio,Pseries(0,400,600),

\dur,0.03).play)

//filtros

/*Los filtros modifican el espectro armónico de los sonidos. Evalúa el siguiente código*/

{HPF.ar(WhiteNoise.ar(0.2), MouseY.kr(20,15000,1),1)}.play

{HPF.ar(PlayBuf.ar(1,b.bufnum,1,startPos:0,loop:1), MouseY.kr(20,15000,1),1)}.play

{HPF.ar(WhiteNoise.ar(0.2), MouseX.kr(20,15000,1),1)}.play

{LPF.ar(PlayBuf.ar(1,b.bufnum,1,startPos:0,loop:1), MouseX.kr(20,15000,1),1)}.play

/*Su inclusión en un SynthDef es sencilla e incluye el argumento corte para modificarlo en un Pbind*/

(

SynthDef("fermin",{|rate=1,vol=1,cornetas=0,inicio=500000, largo=2, corte=1000|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= HPF.ar(PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio),corte);

Out.ar(cornetas,todo*vol*env)}).memStore

)

(Pbind(\instrument,\fermin,

\rate,Pseq([-1,1],inf),

\cornetas,Prand([0,1],inf),

\vol,0.9,

\corte,Pseq([Pseries(2,10,450)],inf).trace,

\largo,0.3,

\inicio,Pseries(490000,400,1600),

\dur,0.03).play)

s.scope

Y ahora a la tarea...

Notas al 26 Noviembre

2009-11-26T18:13:00.002-04:30

COrrecciones Pbind sampleo Tarea 8

2009-11-26T18:12:00.000-04:30

Felipe

b = Buffer.read(s,"sounds/ferminCementerio.aif" );

{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:126000)}.play

(
SynthDef("maternidad",{|velocidad=1,duracion=0.5,posicion|
var env;
env=EnvGen.ar(Env.sine(duracion,1.1),doneAction:2);
Out.ar(posicion,{PlayBuf.ar(1,b.bufnum,velocidad,loop:1,startPos:126000)}*env)})
.memStore
)

(
Pbind(\instrument,\maternidad,
\velocidad,Pseq([1,-0.75,0.5,0,-1,0.75,-0.5,0],inf),
\posicion,Prand([0,1],inf),
\duracion,Pseq([1.1,1.5,2.4,1],2)).play
)

//Alex Devicius

(

SynthDef("fermin",{|rate=1,vol=1,miamol=307000, largo=1.21|

var sampleo,env;

env=EnvGen.ar(Env.sine(largo),doneAction:2);

sampleo=PlayBuf.ar(1,b.bufnum,rate,loop:1,startPos:miamol)*vol!2;

Out.ar(0,sampleo)}).memStore

)

(Pbind(\instrument,\fermin,

\rate,Pseq(
[1,1,1
,-1
,1,1,1
,1
,1
],inf),

\vol,Prand([0.3,0.6,0.9],inf),

\largo,Pseq(
[0.2,0.2,0.2
,2
,0.4,0.4,0.4
,1.2
,1
],inf),

\miamol,Pseq(
[307000,307000,307000
,307000
,287000,287000,287000
,356000
,307000
],inf),

\dur,Pseq([0.15,0.15,0.15
,2
,0.45,0.45,0.45
,1.2
,1
],inf)).play)

///........me inspire un poco........

///RObert Moore

Estaba trabajando en esto desde el dia de la publicion de la tarea, pero alex se me acaba de adelantar con mi amol, asi publico esto y procedo a cambiar mi amol por alguna otra palabra.
//HECHO POR ROBERT MOORE 05-38576
b = Buffer.read(s,"sounds/ferminCementerio.aif" );

//MI AMOL!!!! GORILON
s.scope
{PlayBuf.ar(1,b.bufnum,0.5,loop:1,startPos:308000,trigger:SinOsc.ar(0.755))!2}.play;
//muy divertido si el rate: es un SinOsc.kr(0.1)*2, "mi amol venga pa que te vaciles"
{PlayBuf.ar(1,b.bufnum,SinOsc.kr(0.1)*2,loop:1,startPos:308000,trigger:SinOsc.ar(0.755))!2}.play;

//montando el synth

/*NO ENTEINDO PARA QUE DECLARAS LINE.AR COMO VARIABLES SI NO LO SUSAS EN NINGUNA PARTE.

LA RESPUESTA A QUE NO SE CUELGUE LA MAQUINA ES PONERLE UN ENVELOPE CON DONEACTION:2, ESO TE SOLUCIONA LOS CLICKS QUE TIENES POR TODAS PARTES. REPITELO
(
SynthDef("gorilon",{|vl=1,sda=0,sta=308000,osc=1.258,ml=1,acc=2|
var todo,linea,linea2;

linea=Line.ar(1,2,0.8,doneAction:acc)*acc/2;

linea2=Line.ar(1,2,10,doneAction:2);

todo= PlayBuf.ar(1,b.bufnum,vl,loop:1,startPos:sta,trigger:SinOsc.ar(vl*osc),doneAction:2);

Out.ar(sda,todo*ml)}).memStore

)
//todo normal con aleatorios para hacerlo sonar interesante
(
Pbind(\instrument,\gorilon,
\vl,Prand([0.5,0.5,1,1.2,1.5,2,2.5,3],inf),
\osc,Prand([1.254,1.27,1.29,1.31,1.33],inf),
\sda,Prand([0,1],inf),
\ml,Pxrand([0.5,1],inf)).trace.play
)
//pesadilla de una mujer bonita, acc se hace cero
//de forma que la linea1 no se activa
//pero la dos libera cada 10 segundos para
//evitar que se cuelgue la maquina
//pues si no los ugens y sytnths se disparan rapidamente
//la linea dos mantiene maximo 110 ugens y 10 synth
(
Pbind(\instrument,\gorilon,
\vl,Pwhite(0.2,2,inf),
\acc,0,
\osc,Pxrand([1.54,1.254,1.354,1.454],inf),
\sda,Pwrand([0,1],[0.5,0.5],inf),
\ml,Pwrand([1,0.8,0.4],[0.5,0.3,0.2],inf)).trace.play

)

// robert moore 2

//HECHO POR ROBERT MOORE 05-38576
//ahora gozan!!!
b = Buffer.read(s,"sounds/ferminCementerio.aif" );

//A GOZA!!!! GORILON
s.scope
{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:793800,trigger:SinOsc.ar(2))!2}.play;
//muy divertido si el rate: es un SinOsc.kr(0.1)*2, "A GOZA PETARE"
{PlayBuf.ar(1,b.bufnum,SinOsc.kr(0.1)*2,loop:1,startPos:793800,trigger:SinOsc.ar(1.7))!2}.play;

//montando el synth
(
SynthDef("gorilon",{|vl=1,sda=0,sta=793800,osc=2,ml=1,acc=2|
//0.8 es el maximo que tarda en decirse "mi amol",con el rate mas bajo
var todo,linea1,linea2;
//acc se coloca asi para poder anularlo y dejar
// funcionando la linea de 10 segundos
linea1=Line.ar(1,2,0.8,doneAction:acc)*acc/2;

linea2=Line.ar(1,2,10,doneAction:2);
//VL es argumento del SinOsc.ar del trigger para que se mantenga siempre la misma relacion entre
//el trigger y la velocidad de reproduccion de forma que sin importar la reproduccion siempre se dira"mi amol"
todo= PlayBuf.ar(1,b.bufnum,vl,loop:1,startPos:sta,trigger:SinOsc.ar(vl*osc),doneAction:2);

Out.ar(sda,todo*ml)}).memStore

)
//todo normal con aleatorios para hacerlo sonar interesante
(
Pbind(\instrument,\gorilon,
\vl,Prand([0.5,0.5,1,1.2,1.5,2,2.5,3],inf),
\osc,Prand([1.8,1.9,2,2.1,2.2],inf),
\sda,Prand([0,1],inf),
\ml,Pxrand([0.5,1],inf)).trace.play
)
//pesadilla de una mujer bonita, acc se hace cero
//de forma que la linea1 no se activa
//pero la dos libera cada 10 segundos para
//evitar que se cuelgue la maquina
//pues si no los ugens y sytnths se disparan rapidamente
//la linea dos mantiene maximo 110 ugens y 10 synth
(
Pbind(\instrument,\gorilon,
\vl,Pwhite(0.2,2,inf),
\acc,0,
\osc,Pxrand([1.8,1.9,2,2.1,2.2],inf),//mayor mas corto el clip
\sda,Pwrand([0,1],[0.5,0.5],inf),//aleatorismo controlado
\ml,Pwrand([1,0.8,0.4],[0.5,0.3,0.2],inf)).trace.play

)

/////

Hola dije que la primera palabra no se podría usar, hazlo con otra que no sea las que ya han usado
(
SynthDef("cementerio",{|velocidad=1,duracion=0.9,posicion|
var env;
env=EnvGen.ar(Env.sine(duracion,1.1),doneAction:2);
Out.ar(posicion,{PlayBuf.ar(1,b.bufnum,velocidad,loop:1,startPos:8000)}*env)})
.memStore
)

(
Pbind(\instrument,\cementerio,
\velocidad,Pseq([1.0,1.75,1.5,2.0,1.0,1.75,0.5,2.0],inf),
\posicion,Prand([0,1],inf),
\duracion,Pseq([1.1,0.6,0.9,0.8],2)).play
)

Aarom Sax
07-41709

//ELvis

Palabra Chacaito

{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:229000)}.play

(
SynthDef("chacaito",{|vel=1,dur=1,pos|
var env;
env=EnvGen.ar(Env.triangle(dur,1),doneAction:2);
Out.ar(pos,{PlayBuf.ar(1,b.bufnum,vel,loop:1,startPos:229000)}*env)})
.memStore
)

(
Pbind(\instrument,\chacaito,
\vel,Pseq([0.5,0.8,0.9,1,1.5,2,3],inf),
\pos,Prand([0,1],inf),
\dur,Pseq([1],inf)).play
)

jejeje, dejaste hasta el nombre del SYnthDEf de donde te copiaste. REPITELO

(
Pbind(\instrument,\maternidad,
\velocidad,Pseq([1,-0.75,0.5,0,-1,0.75,-0.5,0],inf),
\posicion,Prand([0,1],inf),
\duracion,Pseq([1.1,1.5,2.4,1],2)).play
)

Que dia...

Elvis Boada 08-10132

//Rodolfo

{PlayBuf.ar(1,b.bufnum,1,startPos:300000)!2}.play

(

SynthDef("fermin",{|rate=1,vol=1,cornetas=0,inicio=300000, largo=1|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= PlayBuf.ar(1,b.bufnum,rate,loop:1,startPos:inicio);

Out.ar(cornetas,todo*vol)}).memStore

)

(Pbind(\instrument,\fermin,

\rate,Pseq([-1,1],inf),

\cornetas,Prand([0,1],inf),

\vol,0.5,

\largo,1,

\inicio,300000,

\dur,1.5).play)

.scope

//Michelle

{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:170000)}.play

(
SynthDef("petare",{|velocidad=1,tiempo=0.6,lugar|
var env;
env=EnvGen.ar(Env.sine(tiempo,1.0),doneAction:2);
Out.ar(lugar,{PlayBuf.ar(1,b.bufnum,velocidad,loop:1,startPos:170000)}*env)}).memStore
)

(
Pbind(\instrument,\petare,
\velocidad,Pseq([2,1,0.5,0.25],inf),
\tiempo,Pseq([0.225,0.45,0.9,1.8],inf),
\lugar,Prand([0,1],inf)).play
)

Michelle Salas

//RObin

//no pod[ias usar ni la primera palabra ni una que ya hubieran usado, escoge otra palabra Repite.

{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:170000)}.play

(
SynthDef("maternidad",{|vlspeed=1,vltime=0.6,vlpos|
var env;
env=EnvGen.ar(Env.adsr(vltime,0.2,0.25,1,1,-2),doneAction:2);
Out.ar(vlpos,{PlayBuf.ar(1,b.bufnum,vlspeed,loop:1,startPos:20000)}*env)}).memStore
)

(
Pbind(\instrument,\maternidad,\vlspeed,Pseq([1.2,1.5,2.5,0.25],inf),
\vltime,Pseq([1.2,1.45,0.9,1.8],inf),\vlpos,Prand([0,1],inf)).play
)
// Robin Pérez

///constela

c = Buffer.read(s,"sounds/ferminCementerio.aif" );

{PlayBuf.ar(1,c.bufnum,1,loop:1,startPos:415000)}.play

(

SynthDef("carrito",{|tiempo=1,vel=1,corneta=0,prin=415000,amp=0.8|

var env, todito;

env= EnvGen.ar(Env.sine(tiempo,1),doneAction:2);

todito= PlayBuf.ar(1,c.bufnum,vel,loop:1,startPos:prin);

Out.ar(corneta,todito*amp)}).memStore

)

(

Pbind(\instrument,\carrito,

\tiempo,Pseq([2,1.9,1.8,1.7,1.6,1.5,1.4,1.3,1.2,1.1,1],inf),

\corneta,Prand([-1,1],inf),

\amp,0.8,

\vel,Pwrand([-1,1],[0.65,0.35],inf),

\prin,415000).play

)

PD1: Como podria hacer para hacer crecer la variable de tiempo a razón de 0.1 segundos de 1 a 2 o decrecer de 2 a 1???

Utilize varios patrones pero ninguno me convenció, tal vez hay alguno que haga lo que yo quiero, pero no lo vi...de todas maneras el codigo suena como queria que sonara

PD2: No se a que se refiere con "la encuesta online"

Gracias!

//reciperacion alex

(SynthDef("pajareo",{|frec,velamp,variacion|

var codigo;

codigo=

Mix.fill(5,

{Pan2.ar(

SinOsc.ar(Saw.ar(10,variacion,frec),0,Saw.ar(velamp)),

Line.kr(1,-1,rrand(1,10)))}

)*0.3;

Out.ar(1,codigo)}).send(s))

h=Synth("pajareo",[\frec,3000,\velamp,2,\variacion,1000])

h.set(\variacion, 100)

h.set(\variacion, 1000)

h.set(\frec, 2000)

h.set(\frec, 4000)

h.set(\velamp, 3)

h.set(\velamp, 4)

h.set(\velamp, 1)

(SynthDef("vibe",{|velvib,velamp,onda|

var codigo;

codigo=

Mix.fill(10,

{Pan2.ar

(Blip.ar(Saw.ar(velvib,onda,rrand(550,1050)),100,SinOsc.ar(velamp)),

Line.kr(-1,1,rrand(0.5,10)))});

Out.ar(1,codigo)}).send(s))

v=Synth("vibe",[\velvib,2.5,\velamp,3,\onda,500])

v.set(\velvib,10)

v.set(\velamp,1)

v.set(\velamp,10)

v.set(\onda,100)

v.set(\onda,300)

Alex recuperaci[on*/

(SynthDef("arrastre",{|velamp,onda|

var codigo;

codigo=

Mix.fill(5,

{Pan2.ar

(SinOsc.ar(SinOsc.ar(rrand(2,20),0,onda,200),0,SinOsc.ar(velamp)),

SinOsc.ar(rrand(0.1,3)))});

Out.ar(1,codigo*0.1)}).send(s))

a=Synth("arrastre",[\velamp,1,\onda,100])

a.set(\velamp,3)

a.set(\velamp,5)

a.set(\onda,10)

a.set(\onda,50)

a.set(\onda,150)

(SynthDef("viento",{|velvib,vol,onda|

var codigo;

codigo=Mix.fill(5,

{var sinoidal, riudoso;

sinoidal=SinOsc.ar(velvib,0,onda,rrand(800,3000));

riudoso=GrayNoise.ar(vol);

Pan2.ar(

Blip.ar(sinoidal,100,riudoso),

SinOsc.ar(rrand(0.5,5)))})*0.6;

Out.ar(1,codigo)}).send(s))

b=Synth("viento",[\velvib,1,\onda,500,\vol,1])

b.set(\onda,100)

b.set(\onda,1000)

b.set(\onda,2000)

b.set(\velvib,10)

b.set(\vol,5)

b.set(\vol,10)//se pasa un poco

b.set(\vol,100)

Tarea 9 Robin Perez

2009-11-19T22:21:00.001-04:30

b = Buffer.read(s,"sounds/ferminCementerio.aif" );

{PlayBuf.ar(1,b.bufnum,1,loop:1,startPos:170000)}.play

(
SynthDef("maternidad",{|vlspeed=1,vltime=0.6,vlpos|
var env;
env=EnvGen.ar(Env.adsr(vltime,0.2,0.25,1,1,-2),doneAction:2);
Out.ar(vlpos,{PlayBuf.ar(1,b.bufnum,vlspeed,loop:1,startPos:20000)}*env)}).memStore
)

(
Pbind(\instrument,\maternidad,\vlspeed,Pseq([1.2,1.5,2.5,0.25],inf),
\vltime,Pseq([1.2,1.45,0.9,1.8],inf),\vlpos,Prand([0,1],inf)).play
)

//Robin Perez

Tarea 9 Robin Perez

2009-11-19T22:21:00.000-04:30

GUI para RObert Moore

2009-11-19T11:04:00.001-04:30

Hola Robert, mira este tutorial sobre GUI que son las interfaces gráficas por las cuales sentías curiosidad.

Es un curso que dictó Alexandra Cárdenas en México.

http://basicsupercollider.wordpress.com/clases/clase6/

viernes 20 no hay clases

2009-11-19T10:49:00.001-04:30

Hola, recuerden que mañana no hay clases, Saludos

Adina

Encuesta online

2009-11-19T07:42:00.001-04:30

Queridos alumnos, por favor no olviden llenar la encuesta online de evaluación del curso y de la profesora.

Para Alex Devicius

2009-11-13T17:52:00.003-04:30

Alex, están buenísimos tus códigos, si los montas todos en SynthDefs te completo todos los ejercicios que te faltaban a 0.80 como a todos los demás.

Tarea 8 Pbind con sampleo

2009-11-13T17:38:00.004-04:30

Realiza un Pbind para el sampleo de Fermín que use sólo una palabra de su texto (no puede ser la primera!!!) y tiene que ser diferente de las que ya hayan montado sus compañeros. Así que fíjense en el blog las palabras que ya se han escogido.

Usando los diferentes argumentos mueve esa palabra de muchas maneras.

EL viernes 20 no voy a dar clases,pero igual tomaré en cuenta la llegada de las tareas el día antes.

Clase 8 Pbind para SynthDef y sampleo

2009-11-13T17:36:00.003-04:30

Patrones

Pseq

(

Pbind(\freq, Pseq([500,1000],inf),

\dur, 0.5).play)//octava

(

Pbind(\midinote, Pseq([69,81],inf),

\dur, 0.5).play)//octava

(

Pbind(\midinote, Pseq([69,70,71,72,73,74,75,76,77,78,79,80,81],inf),

\dur, 0.5).play)//octava

(

Pbind(\midinote, Pseq([Pseries(69,0.25,25)],inf),

\dur, 0.1).trace.play)//subida en octavos de tono

Prand

(

Pbind(\midinote, Prand([63,84,105,86],inf),

\dur, 0.5).play)//aleatorio total

Pxrand

(

Pbind(\midinote, Pxrand([63,84,105,86],inf),

\dur, 0.5).play)//aleatorio pero no repite

Pwrand

(

Pbind(\midinote, Pwrand([63,84,105,86],[0.8,0.1,0.25,0.25],inf),

\dur, 0.5).play)//aleatorio pero con probabilidades

Pstutter//tartamudeo

(

Pbind(\midinote, Pstutter(Prand([1,2,3],inf),Pseq([63,84,105,86],inf)),

\dur, 0.5).play)

Pseries(start, step, length)

(

Pbind(\freq, Pseq([Pseries(440,6,14)],inf),

\dur, 0.5).trace.play)

Pgeom(start, grow, length)

(

Pbind(\freq, Pseq([Pgeom(440,0.9,14)],inf),

\dur, 0.5).trace.play)

///Lo que es nuevo doneAction:2. Esto es un argumento del EnvGen.ar que determina que una vez que le SynthDef sonó se apaga y no consume CPU

/*los besos*/

//EL código
{SinOsc.ar(Saw.ar(2,1000,2),0,0.1)}.scope

/*EL SynthDef, le añadimos un evelope para ponerle doneAction:2 y que no se nos sature el CPU*/
(SynthDef("besos",

{|salida=0,frec=2,mu=1000,ad=2,omu=0.1|
var dando,env;

env=EnvGen.ar(Env.sine(1,1),doneAction:2);
dando=SinOsc.ar(Saw.ar(frec,mu,ad),0,omu);
Out.ar(salida,dando*0.1*env)}).memStore)

/*Lo nuevo: le asignamos un \instrument al Pbind para que lo toque y ya no toque el sinte genérico. Prueba a cambiarle par[ametros a los argumentos del siguiente Pbind*/

(Pbind(\instrument, \besos,

\salida,Prand([0,1],inf),

\frec,Pseq([2,1,0.1],inf),

\omu,Pseq([1,0.5],inf),

\dur,0.01).play)

///////otro ejemplo

//el código
{Pan2.ar(SinOsc.ar(Saw.ar(BrownNoise.ar(1200,400),500),0,BrownNoise.ar(1)))*0.2}.scope;
//el sinte, con EnvGen para ponerle doneAction:2

(
SynthDef("ter2",
{|frec=1200,mul=500,mulno=400,mulbro=1,ola=3,paneo=0|
var frur,env;

env=EnvGen.ar(Env.sine(ola,1),doneAction:2);
frur=SinOsc.ar(Saw.ar(BrownNoise.ar(frec,mulno),mul),0,BrownNoise.ar(mulbro));
Out.ar(paneo,frur*0.2*env)}).memStore
)

(Pbind(\instrument,\ter2,

\paneo,Pseq([0,1],inf),

\ola,Pseq([3,1,0.5],inf),

\frec,Pseq([1200,4000,500],inf),

\dur,Pseq([3,1],inf)).play)

s.scope

/////

(SynthDef("acordeLindo",

{|freq=400,mul=0.1,salida=0,arm=10|

var todo,env;

env=EnvGen.ar(Env.sine,doneAction:2);

todo= Blip.ar(freq,arm,mul);

Out.ar(salida,todo*env)}).memStore)

(Pbind(\instrument,\acordeLindo,

\freq,Pseq([50,500,600,250],inf),

\mul,Pseq([0.1,0.2,0.6,0.5],inf),

\salida,Prand([0,1],inf),

\dur,Prand([0.05,0.1],inf),

\arm,Prand([2,3,4,5,6,7,8,9],inf)

).play

)

////con sampleo

/*esto monta el sampleo en el servidor, recuerden que a Fermin lo pueden bajar de http://ladim.labf.usb.ve/msp2008/ferminCementerio.aif y lo meten en sounds que está dentro del propio programa

b = Buffer.read(s,"sounds/ferminCementerio.aif" );

b.free

/*el postwindow debe decir Buffer(0, nil, nil, nil, sounds/ferminCementerio.aif);

bajen FerminCementerio, métanlo en 'sounds', que está en la propia carpeta del programa y traten de montarlo*/

b.query// esto te dice sus caracteristicas

numFrames : 1149737 esa es la duración en cuadros

/*esto lo toca*/

{PlayBuf.ar(1,b.bufnum,1,startPos:500000)!2}.play;

b.query

(

SynthDef("fermin",{|rate=1,vol=1,cornetas=0,inicio=500000, largo=2|

var todo,env;

env=EnvGen.ar(Env.sine(largo,1),doneAction:2);

todo= PlayBuf.ar(1,b.bufnum,rate:rate,loop:1,startPos:inicio);

Out.ar(cornetas,todo*vol*env)}).memStore

)

(Pbind(\instrument,\fermin,

\rate,Pseq([-1,1],inf),

\cornetas,Prand([0,1],inf),

\vol,0.5,

\largo,1.5,

\inicio,490000,

\dur,1.5).play)

s.scope

/*fíjense que entre startPos y lo largo del Env.sine(largo,1) puedo escoger un trozo exacto del sampleo, en este caso "todos vivimos aquí"*/

(Pbind(\instrument,\fermin,

\rate,1,

\cornetas,Prand([0,1],inf),

\vol,0.5,

\largo,0.45,

\inicio,645000,

\dur,0.45).play)

/*tumba*/

Viernes 20 no hay clases

2009-11-13T14:07:00.002-04:30

Estimados alumnos, el viernes 20 estaré aisistiendo a un evento académico en la ciudad de San Cristòbal.
De manera que nos reuniremos otra vez la semana 10.
La tarea igual la deben entregar el día jueves 19 en la mañana. Y encontrarán la clase y otra tarea para la semana 10.
Todo esto lo montaré en el blog mañana sábado.
Saludos
Adina

NOtas al 12 de Noviembre (semana 8)

2009-11-12T19:42:00.004-04:30

Los valores musicales y el metrónomo

2009-11-11T09:45:00.007-04:30

http://es.wikipedia.org/wiki/Figura_musical

Si comparamos los valores musicales con el Pbind el argumento \dur es el que los representa.

Como los valores musicales son relativos, debemos establecer la duración de alguno de ellos y de allí sacamos la de los demás.

Si una negra dura \dur, 0.5 entonces la blanca será 1.0 y la redonda 2.0 y la semicorchea 0.25 y así sucesivamente.

En música el instrumento que se utiliza para establecer la velocidad de los valores rítmicos se conoce como metrónomo y determina pulsaciones por MINUTO. Si la negra es igual a 60, eso quiere decir que hay 60 negras en un minuto y que cada una es igual a un segundo.

Es el argumento \dur lo que nos determina lo que va a durar cada vuelta del Pbind y en consecuencia cuanto dura cada nota o en su defecto cuanto dura cada evento de nuestro Synth.

La pirámide de valores de mayor a menor es:

Redonda (sin plica)

Blanca (con plica, pero vacía)

Negra (una plica)

Corchea (Una plica y un corchete)

Semicorcheas (dos corchetes)

Fusa (tres corchetes)

Semifusa (cuatro corchetes)

Garrapatea (cinco corchetes)

Semigarrapatea( seis corchetes)

Estos dos últimos valores han caído en desuso.

Tarea 7 Pbind

2009-11-11T09:43:00.001-04:30

Realice un Pbind con midi notes donde utilice Pseq, Prand y Pshuf en los diferentes parámetros. Todo en un solo código.

Pbind, secuenciador genérico

2009-11-11T09:42:00.001-04:30

Supercollider tiene un sintetizador genérico que responde al Pbind sin tener que hacer código, ni declarar SynthDef

/*\dur,es el tiempo antes de que de la vuelta*/

(

Pbind(\freq, 440,

\dur, 0.5

).play

)

/*En vez de poner frecuencias se puede poner notas midi(que van del 0 a 127)*/

(

Pbind(\midinote, 100,

\dur, 0.5

).play

)

/*Otros parámetros son amp, para amplitud*/

(

Pbind(\midinote, 69,

\dur, 0.5 ,

\amp, 0.5

).play

)

/*Los patrones son secuencias de números que van cambiando a cada vuelta del Pbind, de diferentes maneras de acuerdo a cada caracterítica individual.

Pseq es una secuencia que se establece y se le dice cuantas vueltas debe dar, podemos usar "inf" para indicar que es infinito, Noten que tienen dos elementos, el arreglo de valores , coma y las veces que debe repetir*/

(

Pbind(\midinote,Pseq([62,64,66,67,69,69],inf),

\dur, Pseq([0.5,0.5,0.5,0.5,1,1],inf),

\amp, Pseq([0.2,0.3,0.4,0.5,1,1]*0.2,inf)

).play

)

/*El Prand escoge del arreglo a cada vuelta. El trace es como el postln, te imprime los parámetros, se lo puedes poner a un argumento o a todo el Pbind*/

(

Pbind(\midinote,Prand([62,64,66,67,69,69],inf),

\dur, Prand([0.6,0.01],inf),

\amp, 0.1

).trace.play

)

(

Pbind(\midinote,Prand([69,70,71,80,90,100],inf),

\dur, 0.2,

\amp, 0.1

).trace.play

)

(

/*Pshuf baraja los números que tiene y escoge una secuencia y la repite, si te detienes y empiezas otra vez escogerá otra secuencia con las mismas notas*/

(

Pbind(\midinote, Pshuf([69,71,72,74,76],inf),

\dur, Pseq([1,0.5,0.5],inf)

).play

)

/*Pwhite se parece a rrand, se establece la cota superior y la inferior, si no se pone duración asume el infinito como default*/

(

Pbind(\freq, Pwhite(400,1000),

\dur, Pwhite(0.1,0.3)

).play

)

urgente

2009-11-09T22:35:00.002-04:30

Hola necesito los nombres completos, los carnets de los estudiantes que tienen que salir de clases para presentar matemáticas, y el nombre del profesor de matemáticas que se los solicita.

Puede ser directo a mi correo.

gracias

NOtas al 5 de Noviembre

2009-11-09T21:58:00.003-04:30

Hola, por favor chequeen sus notas que coincidan con las mias.

Algunso han montado en los lugares equivocados, o me debían tareas pero no me informaron que lo que enviaron era deuda.

Chequen con esta lista y me aclaran via email.

correccion tarea 6

2009-11-05T14:31:00.001-04:30

// Encapsulado

//Primero

(

{var variable;

variable=EnvGen.ar(Env.new([0,0.5,0]), Dust.ar(XLine.kr(20000, 2, 10), 0.5));//Env.New necesita otro arreglo

SinOsc.ar(SinOsc.ar(512, 0, 0.2), Saw.ar(400, 0.2), variable)!2}.scope///saw. ar para la phase?

)

REPITE

//Segundo

{ SinOsc.ar(800, SinOsc.ar(XLine.kr(1, 100, 9)), 0.15) }.play;

//Tercero Encapsulado con Pan2

{Pan2.ar(

Blip.ar(WhiteNoise.ar( XLine.kr(5,8,2),1,100,100), XLine.kr(1,3,4),0.70),

SinOsc.ar(XLine.kr(200,17000,10),0,0.1))}.scope;

//Cuarto Encapsulado con Mix

({Mix.fill(7,

{var espada;

espada=EnvGen.ar(Env.new([0,1,0,1]));

SinOsc.ar(rrand(800,1000), SinOsc.ar(XLine.kr(1, 100, 9)), 0.15)})}.play)

//SE REPITE 7 VECES IGUALITO sustituyo el 800 por un rrand(800,1000)

// Quinto Synth

(SynthDef("primero",

{|vlfrecu,vlfase,vlmul,vlar|

var ejecucion;

ejecucion=SinOsc.ar(vlfrecu,vlfase,vlmul,vlar);

Out.ar(1,ejecucion)}).send(s))

letra=Synth("primero",[\vlfrecu,\vlfase,\vlmul,\vlar])

EL post window te dice • ERROR: Variable 'letra' not defined.

NO le diste ningún valor al SYnth

//Robin Perez

////////////

//Espero que esto se ajuste a los requerimientos de la tarea.
//encapsulado
//1-Produce un efecto perturbador

{SinOsc.ar(SinOsc.ar(0.1)*1000,0,SinOsc.ar(50,pi/2,1))}.scope

//2- Guerra

{Saw.ar(Saw.ar(100)*100*PinkNoise.ar(5),BrownNoise.ar(1))*0.5}.scope//ME ENCANTA!!!!

//-----

//pan2
//1-
{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*1000,0,SinOsc.ar(50,pi/2,1)),SinOsc.ar(rrand(0.1,0.08).postln))}.scope

//2-
{Pan2.ar(Saw.ar(Saw.ar(100)*100*PinkNoise.ar(5),BrownNoise.ar(1)),SinOsc.ar(rrand(0.3,0.1).postln))*0.5}.scope
//---

//mix

//1-
{Mix.fill(3,{Pan2.ar(SinOsc.ar(SinOsc.ar(0.1)*1000,0,SinOsc.ar(50,pi/2,1)),SinOsc.ar(rrand(0.1,0.08).postln))}*0.3)}.scope

//2-
{Mix.fill(3,{Pan2.ar(Saw.ar(Saw.ar(100)*100*PinkNoise.ar(5),BrownNoise.ar(1)),SinOsc.ar(rrand(0.3,0.1).postln))})}.scope //Muy Bien
//---

//synth

//--
s.scope
(
SynthDef("ambulancia",
{|oscu,oscd,fase,inir,finr,sale|
var todo;
todo=Mix.fill(3,{Pan2.ar(SinOsc.ar(SinOsc.ar(oscu)*1000,0,SinOsc.ar(oscd,fase,1)),SinOsc.ar(rrand(inir,finr).postln))}*0.3);
Out.ar(sale,todo)}).send(s)
)
a=Synth("ambulancia",[\oscu,0.1,\oscd,50,\fase,pi/2,\inir,0.1,\finr,0.08,\sale, 0])
a.set(\oscu,0.5)
a.set(\oscd,100)
a.set(\fase,pi/4)

(SynthDef("guerra",
{|frecu,mulpin,mulbro,inird,finrd,saled,amptotal=0.3|
var todod;
todod=Mix.fill(3,{Pan2.ar(Saw.ar(Saw.ar(frecu)*100*PinkNoise.ar(mulpin),BrownNoise.ar(mulbro)),SinOsc.ar(rrand(inird,finrd).postln))});
Out.ar(saled,todod)*amptotal}).send(s)
)
b=Synth("guerra",[\frecu,100,\mulpin,5,\mulbro,1,\inird,0.3,\finrd,0.1,\sale, 0])

b.set(\frecu,20000)
b.set(\mulpin,20)
b.set(\mulbro,5)
b.set(\inird,3,\amptotal,0.1)

//HECHO POR ROBERT MOORE 05-38576

///////

espero esten acorde con las tareas no entregadas

/DJ probando disco/

{SinOsc.ar(SinOsc.ar(3,0,1000,2), 0, 0.2)}.scope

/changa de los besos/

{SinOsc.ar(Saw.ar(2,1000,2), 0, 0.1)}.scope

/empezando a llover-encapsulando en los dos/

{SinOsc.ar(Impulse.ar(40,0,2),0, BrownNoise.ar(1))*0.5}.scope

/la espada de la guerra de las galaxias abriendose/

({Mix.fill(7,

{var espada;

espada=EnvGen.ar(Env.new([0,1,0,1],[0.03,0.03,0.03]),Impulse.ar(300,0,1000));

SinOsc.ar(SinOsc.ar( rrand(50.0,51.0),0,200),0, espada)})*0.1}.scope)

/ambulancia prendiendose y corriendo al hospital/

{Pan2.ar(SinOsc.ar(XLine.kr(10,1000,3),0,0.5),SinOsc.ar(2))}.scope

/Ahora en Synth/

/el Dj/

(SynthDef("DJ",{|frec,mu,ad,omu|
var disco;
disco=SinOsc.ar(SinOsc.ar(frec,0,mu,ad),0,omu);
Out.ar(0,disco)}).send(s))

d=Synth("DJ",[\frec,3,\mu,1000,\ad,2,\omu,0.2])//activar varias veces

/los besos/

(SynthDef("besos",{|frec,mu,ad,omu|
var dando;
dando=SinOsc.ar(Saw.ar(frec,mu,ad),0,omu);
Out.ar(1,dando)}).send(s))

g=Synth("besos",[\frec,2,\mu,1000,\ad,2,\omu,0.1])//activar varias veces

(SynthDef("lloviendo",{|frec,mu,omu|
var mojado;
mojado=SinOsc.ar(Impulse.ar(frec,0,mu),0, BrownNoise.ar(omu))*0.5;
Out.ar(0,mojado)}).send(s))

g=Synth("besos",[\frec,40,\mu,2,\omu,1])//????????????

RodolfoM

///////////

-numero1-
(
{var extra;

extra=EnvGen.ar(Env.sine, Dust.ar(2));
Saw.ar(SinOsc.ar( XLine.kr(14,20000,10),0,100,1000), extra)!2}.scope//Muy Bien
)
---------------------------------------------------------------------------------
-con pan2
{Pan2.ar(Blip.ar(800+BrownNoise.ar( XLine.kr(5,2000,7),0), XLine.kr(8,2,6),0.25),SinOsc.ar(3))}.scope; //quite ,150,2000

-------------------------------------------------------------------------------------------------------
//-con mix-//muy bien

(
{Mix.fill(4,
{var unc;

unc=EnvGen.ar(Env.sine, Dust.ar(rrand(1.5,2.0).postln));
Saw.ar(SinOsc.ar( XLine.kr(rrand(1,28),2000,19),0,150,600), unc)}!2)*0.3}.scope
)

-------------------------------------------------------------------------------------------------------------------------------
Hector Zambrano 08-01864

////////////

TAREA GABRIEL PERAZA, 08-10855:

UNO:
(
{var gabo;

gabo=EnvGen.ar(Env.sine, Dust.ar(2));
SinOsc.ar(SinOsc.ar( XLine.kr(8,160,50),0,300,900), gabo)!2}.scope
)

DOs:

(
{var despegue;

despegue=EnvGen.ar(Env.sine, Dust.ar(2));
SinOsc.ar(SinOsc.ar( XLine.kr(8,16000,20),0,50,200), despegue)!2}.scope
)

//TRES: MOSquITO

{Pan2.ar(Blip.ar(600+PinkNoise.ar( XLine.kr(10,500,5),0,200,500), XLine.kr(10,10,10),0.50),SinOsc.ar(4))}.scope;

CUATRO:

{Pan2.ar(Blip.ar(650+BrownNoise.ar( XLine.kr(20,8000,10),1,100,1000), XLine.kr(8,8,8),0.70),SinOsc.ar(6))}.scope;

CINCO:

(
{Mix.fill(10,
{var esx;
esx=EnvGen.ar(Env.sine, Dust.ar(rrand(1.9,1.0).postln));
Saw.ar(SinOsc.ar( XLine.kr(rrand(10,40),1500,38),0,350,800), esx)}!2)*0.03}.scope
)

/////Antonio Martínez

//encapsulado 1 (crespitaciones)
{Mix.fill(2,{
Pan2.ar(
SinOsc.ar(Saw.ar(440.rand)*BrownNoise.ar(1),
0,
Impulse.ar(rrand(0.5,1.0))
),SinOsc.ar(2))
})}.scope

//encapsulado 2 (arritmia)
{Mix.fill(3,{
Pan2.ar(
Saw.ar(Blip.ar(440)*PinkNoise.ar(2),
SinOsc.ar(rrand(0.1,0.5).postln),
(EnvGen.ar(Env.perc(0.01,0.1),Impulse.ar(rrand(0.1,1.0))))
),rrand(-1.0,1.0))
})*0.4}.scope

//encapsulado 3 (Vacio)
{Mix.fill(3,{
Pan2.ar(
Blip.ar(SinOsc.ar(440)*Blip.ar(440),
2,
SinOsc.ar(rrand(0.1,0.5).postln),
(EnvGen.ar(Env.perc(0.01,0.2),Impulse.ar(rrand(0.1,1.0))))
),rrand(-1.0,1.0))
})*0.1}.scope

//encapsulado 4 (Desierto)
{Mix.fill(5,{
Pan2.ar(
Blip.ar(BrownNoise.ar(440)*Saw.ar(440),
2,
SinOsc.ar(rrand(0.1,0.5).postln),
(EnvGen.ar(Env.perc(0.01,0.2),Impulse.ar(rrand(0.1,1.0))))
),rrand(-1.0,1.0))
})*0.1}.scope

//falta montar con synthdef, ya lo monto

///////Maria Alejandra//----------------------------------------------

(

{

Mix.fill(15,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc(1, 0.01, 1, 4),Dust.ar(rrand(0.5,1.0)));

posicion=rrand(-0.5,1.0).postln;

Pan2.ar(Pulse.ar(SinOsc.ar(20,0,1000,2000),SinOsc.ar(120,0,0.3,0.0),0.2,pulsando),posicion)})*0.2}.scope

)

///y las quince veces???
(
SynthDef("esp",{|freq1,freq2,freq3,freq4,ampl1,ampl2,ampl3,ampl4,mul,env1,env2,env3,env4,impul,posicion|

var todo;

todo= Pan2.ar(
Pulse.ar(SinOsc.ar(freq1,freq2,freq3,freq4),SinOsc.ar(ampl1,ampl2,ampl3,ampl4),0.2,
EnvGen.ar(Env.perc(env1, env2,env3, env4),Dust.ar(impul))),posicion);

Out.ar(0,todo)}).send(s))

e=Synth("esp",[\freq,20,\freq2,0,\freq3,1000,\freq4,2000,\ampl1,120,\ampl2,0,\ampl3,0.3,\ampl4,0.0,\mul,0.5,\env1,1,\env2,0.01,\env3,1,\env4,4,\posicion,rrand(-0.5,1.0),\impul,rrand(0.5,1.0)])

/--------------------------------------------------
(

{

Mix.fill(15,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc,Dust.ar(rrand(0.1,1.0)));

posicion=rrand(-0.5,1.0).postln;

Pan2.ar(Blip.ar(SinOsc.ar(50,0.0,1.0,500),Line.ar(6,100,20),0.2,pulsando)*EnvGen.kr(Env.new([1,1.5,0.5,0],[3.0,2.0,0.5])),posicion)})*0.4}.scope

)

(
SynthDef("Agudo",{|freq1,freq2,freq3,freq4,harm1,harm2,harm3,mul,dust,env1,env2,env3,env4,env5,env6,env7,posicion,dust1|

var todo;

todo= Pan2.ar(
Blip.ar(SinOsc.ar(freq1,freq2,freq3,freq4),Line.ar(harm1,harm2,harm3),mul,EnvGen.ar(Env.perc,Dust.ar(dust)))
*EnvGen.kr(Env.new([env1,env2,env3,env4],[env5,env6,env7])),posicion);

Out.ar(0,todo)}).send(s))

f=Synth("Agudo",[\freq,50,\freq2,0.0,\freq3,1.0,\freq4,500,\harm1,6,\harm2,100,\harm3,20,\mul,0.2,\env1,1,\env2,1.5,\env3,0.5,\env4,0,\env5,3.0,\env6,2.0,\env,7.0,\posicion,rrand(-0.5,1.0),\dust,rrand(0.1,1.0)])

/------------------------------------------------------------

(

{

Mix.fill(10,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc,Dust.ar(rrand(0.1,1.0)));

posicion=rrand(-0.5,1.0).postln;

Pan2.ar((SinOsc.ar(XLine.ar(500,10000,10),0,BrownNoise.ar(0.3),0))

*EnvGen.kr(Env.new([1,1.5,0.5,0],[3.0,2.0,1.5])),posicion)})*0.4}.scope

)

(
SynthDef("viento",{|freq1,freq2,freq3,mul,dust,env1,env2,env3,env4,env5,env6,env7,posicion,dust1|

var todo;

todo= Pan2.ar( SinOsc.ar(XLine.ar(freq1,freq2,freq3),0,BrownNoise.ar(mul),EnvGen.ar(Env.perc,Dust.ar(dust1)))*EnvGen.kr(Env.new([env1,env2,env3,env4],[env5,env6,env7])),posicion);

Out.ar(0,todo)}).send(s))

g=Synth("viento",[\freq1,500,\freq2,10000,\freq3,10,\mul,0.3,\env1,1,\env2,1.5,\env3,0.5,\env4,0,\env5,3.0,\env6,2.0,\env7,1.5,\posicion,rrand(-0.5,1.0),\duts1,rrand(0.1,1.0)])

e.set(\freq1,20,\freq2,100,\freq3,5);
e.set(\mul,1,0);
e.free

//------------------------------------------------------------------------

(

{

Mix.fill(10,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc,Dust.ar(rrand(0.1,1.0)));

posicion=rrand(-0.5,1.0).postln;

Pan2.ar((Saw.ar(SinOsc.ar(XLine.ar(500,1000,10),0,0.5,XLine.ar(500,5000,20)),BrownNoise.ar(0.2),0))
*EnvGen.kr(Env.new([1,1.5,0.5,0],[3.0,2.0,0.5])))})*0.3}.scope

)

(
SynthDef("despegue",{|freq1,freq2,freq3,freq4,freq5,freq6,freq7,freq8,mul,dust,env1,env2,env3,env4,env5,env6,env7,posicion,dust1|

var todo;

todo= Pan2.ar( Saw.ar(SinOsc.ar(XLine.ar(freq1,freq2,freq3),freq4,freq5,XLine.ar(freq6,freq7,freq8)),BrownNoise.ar(mul),
EnvGen.ar(Env.perc,Dust.ar(dust1)))
*EnvGen.kr(Env.new([env1,env2,env3,env4],[env5,env6,env7])),posicion);

Out.ar(0,todo)}).send(s))

h=Synth("despegue",[\freq1,500,\freq2,10000,\freq3,10,\freq4,0,\freq5,0.5,\freq6,500,\freq7,5000,\freq8,20,\mul,0.2,\env1,1,\env2,1.5,\env3,0.5,\env4,0,\env5,3.0,\env6,2.0,\env7,1.5,\posicion,rrand(-0.5,1.0),\duts1,rrand(0.1,1.0)])

h.set(\mul,1.0);
h.free

//---------------------------------------------------------------------------------

(

{

Mix.fill(7,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc(1, 0.01, 1, 4),Impulse.ar(rrand(0.5,1.0)));

posicion=rrand(-0.5,1.0).postln;

Pan2.ar(Saw.ar(Impulse.ar(2000.rand,0,10000,0.0),GrayNoise.ar(0.5),pulsando),posicion)})*0.7}.scope

)

(
SynthDef("cotufas",{|freq1,freq2,mul,add,env1,env2,env3,env4,impul,posicion,num|

var todo;

todo= Pan2.ar(
Saw.ar(Impulse.ar(freq1,0,freq2,0.0),GrayNoise.ar(mul),
EnvGen.ar(Env.perc(env1, env2,env3, env4),Impulse.ar(impul))),posicion);

Out.ar(0,todo)}).send(s))

d=Synth("cotufas",[\freq,2000.rand,\freq2,10000,\mul,0.5,\add,0.1,\env1,1,\env2,0.01,\env3,1,\env4,4,\impul,rrand(0.5,1.0)])

/*lo que pasa es que no incluiste los mIX en el SynthDef*/

//////////////

//ROni otra vez// Encapsulado
//Primero
(
{var variable;

variable=EnvGen.ar(Env.new([0,0.5,0]), Dust.ar(XLine.kr(20000, 2, 10), 0.5));
SinOsc.ar(SinOsc.ar(512, 0, 0.2), Saw.ar(400, 0.2), variable)!2}.scope
)

//Segundo
{ SinOsc.ar(800, SinOsc.ar(XLine.kr(1, 100, 9)), 0.15) }.play;

//Tercero Encapsulado con Pan2
{Pan2.ar(Blip.ar(WhiteNoise.ar( XLine.kr(5,8,2),1,100,100), XLine.kr(1,3,4),0.70),SinOsc.ar(XLine.kr(200,17000,10),0,0.1))}.scope;

//Cuarto Encapsulado con Mix
({Mix.fill(7,

{var espada;

espada=EnvGen.ar(Env.new([0,1,0,1]));

SinOsc.ar(800, SinOsc.ar(XLine.kr(1, 100, 9)), 0.15)})}.play)

// Quinto Synth
(SynthDef("primero",
{|vlfrecu,vlfase,vlmul,vlar|
var ejecucion;
ejecucion=SinOsc.ar(vlfrecu,vlfase,vlmul,vlar);
Out.ar(1,ejecucion)}).send(s))

letra=Synth("primero",[\vlfrecu,\vlfase,\vlmul,\vlar])

//Robin Pérez

//////////

Sonido 1
{SinOsc.ar(SinOsc.ar(5,0,15000),0,0.2)}.play
Colocado en Pan y en Mix
{Mix.fill(10,{{Pan2.ar(SinOsc.ar(SinOsc.ar(5.rand,0,15000), 0, 0.2),rrand(-1.0,1.0))}}*0.2)}.play //tenias 1 en pos
Sintetizador
(
SynthDef("sinte1",{|frecuencia,volumen|
var youugen;
youugen=SinOsc.ar(SinOsc.ar(frecuencia,0,volumen),0,volumen);
Out.ar(1,youugen)}).send(s)
)
h=Synth("sinte1",[\frecuencia,1000,\volumen,1])

Sonido 2
{SinOsc.ar(SinOsc.ar(XLine.kr(1, 1000, 5), 0, 200, 800), 0, 0.25) }.play
Colocado en Pan y en Mix
{Mix.fill(10,{{Pan2.ar(SinOsc.ar(SinOsc.ar(XLine.kr(1, 1000, 5), 0, 200, 800), 0, 0.25),1)}}*0.2)}.play //10 veces iguales
Sintetizador
(
SynthDef("sinte2",{|comienzo,volumen,termina,duracion|
var youugen2;
youugen2=SinOsc.ar(SinOsc.ar(XLine.kr(comienzo, termina, duracion), 0, volumen), 0, volumen);
Out.ar(1,youugen2)}).send(s)
)

h=Synth("sinte2",[\comienzo,1000,\volumen,1,\termina,2000,\duracion,6])

Elvis Boada 08-10132

///////

Felipe

Encapsulado 1
{Mix.fill(5,{Pan2.ar(SinOsc.ar(Saw.ar(70,1,rrand(10000,15000).postln),0,(PinkNoise.ar(rrand(0.25,0.5).postln))),SinOsc.ar(rrand(1.0,3.0)
.postln))})}.scope

(SynthDef("sierra",{
|inuno,finuno,indos,findos,intres=1,fintres=3|
Out.ar(1,Mix.fill(2,{Pan2.ar(SinOsc.ar(Saw.ar(70,1,rrand(inuno,findos).postln),0,(PinkNoise.ar(rrand(indos,findos).postln))),SinOsc.ar(rrand
(intres,fintres).postln))}))}).send(s))

a=Synth("sierra",[\inuno,10000,\finuno,15000,\indos,0.25,\findos,0.5,\intres,1,\fintres,3])

Encapsulado 2

{Mix.fill(3,{Pan2.ar(PinkNoise.ar(SinOsc.ar(rrand(0.1,1.0).postln,0,
WhiteNoise.ar(rrand(0.1,0.5)))),rrand(-1.0,1.0).postln)})}.scope

(SynthDef("freidora",{
|comuno,finaluno,comdos,finaldos,comtres,finaltres|
Out.ar(1,Mix.fill(3,{Pan2.ar(PinkNoise.ar(SinOsc.ar(rrand(comuno,finaluno).postln,0,
WhiteNoise.ar(rrand(comdos,finaldos).postln))),rrand(comtres,
finaltres).postln)}))}).send(s))

b=Synth("freidora",[\comuno,0.1,\finaluno,1.0,\comdos,0.5,\finaldos,0.1,\comtres,-1,\finaltres,1])

/////////

----------------------//Tarea #01

(
SynthDef("pistola",{|x1,x2,tiempo,rep,freq,paneo|

var todo;

todo=Mix.fill(5,{Pan2.ar(SinOsc.ar(Saw.ar(3,0,SinOsc.ar(XLine.ar(x1,x2,tiempo),0,rep,freq))),SinOsc.ar(paneo))});

Out.ar(0,todo)}).send(s)
)

a=Synth("pistola",[\x1,-4,\x2,-7,\tiempo,2,\rep,400,\freq,200,\paneo,6])
a.set(\freq,1000)
a.set(\freq,500)
a.set(\rep,1000)
a.free

----------------------//Tarea #02

(
SynthDef("alarma",{|freq,rep,rap|

var todo;

todo=Mix.fill(2,{Pan2.ar(Blip.ar(920+Saw.ar(1.3,0,freq),rep,SinOsc.ar(rap)))});

Out.ar(0,todo)}).send(s)
)

a=Synth("alarma",[\freq,105,\rep,6,\rap,4.5])

a.set(\rap,5)
a.set(\rep,10)
a.set(\freq,200)
a.free

----------------------//Tarea #03

(
SynthDef("ventisca",{|tiempo,v1,v2|

var todo;

todo=Mix.fill(3,{Pan2.ar(SinOsc.ar(SinOsc.ar(tiempo,pi,v1,GrayNoise.ar(500,v2)),Saw.ar(-2)))});

Out.ar(0,todo)}).send(s)
)

a=Synth("ventisca",[\tiempo,0.19,\v1,600,\v2,1000])
a.set(\tiempo,2)
a.set(\v1,1000)
a.set(\v2,500)
a.free

----------------------//Tarea #04

(
SynthDef("bomba",{|detonador|

var todo;

todo= Mix.fill(2,{Pan2.ar(SinOsc.ar(Saw.ar(1000,detonador),pi,SinOsc.ar(20,0,1000,2000),SinOsc.ar(10)))});

Out.ar(0,todo*0.001)}).send(s)
)
s.scope
a=Synth("bomba",[\detonador,500])
a.set(\detonador,600)
a.set(\detonador,800)
a.set(\detonador,1000)
a.set(\detonador,2000)
a.set(\detonador,10000)
a.free

----------------------//Tarea #05

(
SynthDef("piano",{|midi|

var pieza;

pieza= Mix.fill(3,{Pan2.ar(SinOsc.ar(midi),SinOsc.ar(1))});

Out.ar(0,pieza)}).send(s)
)

a=Synth("piano",[\midi,60.midicps])
a.set(\midi,60.midicps)//DO
a.set(\midi,62.midicps)//RE
a.set(\midi,64.midicps)//MI
a.set(\midi,65.midicps)//FA
a.set(\midi,67.midicps)//SOL
a.set(\midi,69.midicps)//LA
a.set(\midi,71.midicps)//SI
a.set(\midi,72.midicps)//DO
a.free

Jose Gregorio Constenla
#08-10241

////////

//Tarea 1
(
{SinOsc.ar(Saw.ar(BrownNoise.ar(12000,200),500), 0, BrownNoise.ar(2))*0.1}.play;
)

{Pan2.ar(SinOsc.ar(Saw.ar(BrownNoise.ar(12000,200),500), 0, BrownNoise.ar(2)),SinOsc.ar(2))*0.1}.scope;

(
{Mix.fill(7,
{var pul;
pul=EnvGen.ar(Env.sine, Dust.ar(rrand(5,9).postln));
SinOsc.ar(Saw.ar(BrownNoise.ar(12000+ rrand(1000,3000).postln,200+ rrand(10,300)),500), 0, pul)})*0.05}.scope
)

(
SynthDef("ter1",
{|frec,mul,mulno,mulbro|
var frue;
frue=SinOsc.ar(Saw.ar(BrownNoise.ar(frec,mulno),mul), 0, BrownNoise.ar(mulbro));
Out.ar(0,frue*0.1)}).send(s)
)
b=Synth("ter1",[\frec,12000,\mul,500,\mulno,200,\mulbro,2])
b.set(\frec,1200)
b.set(\mul,20)
b.set(\mulno,20)
b.set(\mulbro,5)

//Tarea2

(
{Saw.ar(Saw.ar(BrownNoise.ar(12000,200),500), 0, Saw.ar(Saw.ar(5,1000,20),0.1))}.play;
)

{Pan2.ar(Saw.ar(Saw.ar(BrownNoise.ar(12000,200),500), 0, Saw.ar(Saw.ar(5,1000,20),0.1)))}.scope;

(
{Mix.fill(7,
{var pul;
pul=EnvGen.ar(Env.sine, Dust.ar(rrand(1,30).postln));
Saw.ar(Saw.ar(BrownNoise.ar(12000 + rrand(1000,3000) ,200),500), 0, Saw.ar(Saw.ar(5,1000,20),pul))})*0.1}.scope
)

(
SynthDef("ter1",
{|frec,mul,mulno,mulbro,saw1,saw2,saw3|
var frue;
frue=Saw.ar(Saw.ar(BrownNoise.ar(frec,mulno),mul), 0, Saw.ar(Saw.ar(5,1000,20)));
Out.ar(0,frue)}).send(s)
)
b=Synth("ter1",[\frec,12000,\mul,500,\mulno,200,\mulbro,2])
b.set(\frec,4000)
b.set(\mul,20)
b.set(\mulno,20)
b.set(\mulbro,5)

//tarea3//buenisimo
(
{SinOsc.ar(Saw.ar(BrownNoise.ar(1200,400),500),0,BrownNoise.ar(1))}.play
)

{Pan2.ar(SinOsc.ar(Saw.ar(BrownNoise.ar(1200,400),500),0,BrownNoise.ar(1)))}.scope;

(
{Mix.fill(2,
{var pul;
pul=EnvGen.ar(Dust.ar(rrand(1,9).postln));
SinOsc.ar(Saw.ar(BrownNoise.ar(1200+ rrand(100,200),400),600-rrand(100,200)),0,BrownNoise.ar(1),pul)})}.scope
)

(
SynthDef("ter2",
{|frec,mul,mulno,mulbro,saw1,saw2,saw3|
var frur;
frur=SinOsc.ar(Saw.ar(BrownNoise.ar(frec,mulno),mul),0,BrownNoise.ar(mulbro));
Out.ar(0,frur)}).send(s)
)
c=Synth("ter2",[\frec,1200,\mul,500,\mulno,400,\mulbro,1])
c.set(\frec,4000)
c.set(\mul,20)
c.set(\mulno,20)
c.set(\mulbro,5)//amp

//tarea4
(
{SinOsc.ar(Saw.ar(BrownNoise.ar(1200,400),XLine.kr(34,400,10),BrownNoise.ar(1)))*0.7}.scope
)

{Pan2.ar(SinOsc.ar(Saw.ar(BrownNoise.ar(1200,400),XLine.kr(34,400,10),BrownNoise.ar(1))))*0.7}.scope;

(
{Mix.fill(5,
{var pul;
pul=EnvGen.ar(Dust.ar(rrand(1,9).postln));
SinOsc.ar(Saw.ar(BrownNoise.ar(1200*rrand(0.5,1.90),400*rrand(0.7,1.1)),XLine.kr(34,400*rrand(0.7,1.1),10*rrand(0.7,1.1)),BrownNoise.ar(1)),pul)})*0.2}.scope
)

(
SynthDef("ter2",
{|frec,mul,mulno,mulbro,saw1,saw2,saw3|
var frur;
frur=SinOsc.ar(Saw.ar(BrownNoise.ar(frec,mulno),XLine.kr(34,400,10),BrownNoise.ar(mulbro)))*mul;
Out.ar(0,frur)}).send(s)
)
c=Synth("ter2",[\frec,1200,\mul,0.7,\mulno,400,\mulbro,1])
c.set(\frec,4000)
c.set(\mul,0.2)
c.set(\mulno,20)
c.set(\mulbro,5)

Mario Javier Gonzalez Gil

COncierto Electrónico

2009-10-31T09:52:00.003-04:30

Clase 6 SynthDef

2009-10-30T17:31:00.001-04:30

/*Creo sintetizadores para comunicarme con ellos desde afuera, los argumentos son los números que uso en el código, que voy a sustituir por palabras cortas*/

//este codigo simple

{Saw.ar(1600,0.2)}.scope

//tiene dos argumentos freq y amp

//este es el formato

//Out.ar decide por que corneta sale 0 izq y 1 derecha

(

SynthDef("pito",{|frec,amp|

var nucleo;

nucleo =Saw.ar(frec,amp);

Out.ar(1,nucleo)}).send(s))

//debe decir a SynthDef en el postwindow

//lo toco

h=Synth("pito",[\frec,1600,\amp,0.2])

//lo modifico en accion

h.set(\frec,1200)

h.set(\frec,2400)

h.set(\frec,2600)

h.set(\frec,20)

h.set(\amp,0.1)

//ejemplos que vimos en clase

{SinOsc.ar(SinOsc.ar(20,0,1000,5000),0,0.2)}.scope

(

SynthDef("cosa",

{|fuera,reg,ancho,freq,amp|

var todo;

todo=SinOsc.ar(SinOsc.ar(reg,0,ancho,freq),0,amp);

Out.ar(fuera,todo)}).send(s))

d=Synth("cosa",[\reg,20,\ancho,1000,\freq,5000,\amp,0.1])

d.set(\reg,20.rand,\ancho,1000.rand,\freq,5000.rand,\amp,0.1,\fuera,2.rand.postln)

d.set(\reg,10.rand)

d.set(\reg,5)

d.set(\reg,100)

d.set(\reg,40)

d.set(\reg,49)

d.set(\reg,1400)

d.free

///con sampleo (usa tu propio sampleo)

b = Buffer.read(s, "sounds/igotta.wav")

b.query

{PlayBuf.ar(1,b.bufnum,1)!2}.play

{PlayBuf.ar(1,b.bufnum,2)!2}.play

{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(1.5,1.0),loop:1 ),SinOsc.kr(rrand(0.2,0.5)))})*0.5}.scope

(

SynthDef("display",

{|rate,salida|

var todo;

todo=PlayBuf.ar(1,b.bufnum,rate,loop:1);

Out.ar(salida,todo)}).send(s))

m=Synth("display",[\salida,2.rand,\rate,rrand(-2.0,2.0).postln])

//puedes usar dos Synth o mas al mismo tiempo (cosa y display)

d=Synth("cosa",[\reg,20,\ancho,1000,\freq,5000,\amp,0.1])

m.set(\salida,2.rand,\rate,rrand(-2.0,2.0).postln)

m.set(\rate,-2)

m.free

d.set(\reg,20.rand,\ancho,1000.rand,\freq,5000.rand,\amp,0.1,\fuera,2.rand.postln)

PREGUNTEN A LADIM@usb.ve

Tarea 6 encapsulando y Synth Def

2009-10-30T17:18:00.003-04:30

Hacer 2 códigos diferentes que contengan Ugens encapsulados en dos de sus argumentos, metidos en Pan2 y en un mix.

Las personas que deben tareas pueden hacer uno más por cada tarea que deben y así ponerse al día.

Deben sonar marcadamente diferentes. Pueden probar con sampleo.

Monten cada uno en un SynthDef

Clase 6 encapsulando

2009-10-30T17:13:00.001-04:30

Ok tienen razón, no lo habíamos visto, aquí va:

/*Muchos sonidos interesantes se encuentran con solamente encapsular Ugens en Ugens, es decir en vez de poner un número, colocar todo un Ugen en ese argumento.*/

Código Inicial

{SinOsc.ar(2000, 0, 0.1)}.scope;

//Encapsulando en freq

{SinOsc.ar(SinOsc.ar(5,0,1000,2000), 0, 0.1)}.scope;

/*aqui comienzo a usar el add, que va a pasar a ser realmente la frecuencias que quiero una oscilación de un segundo, con 300 de "ancho" a la altura de 5000*/

{SinOsc.ar(Saw.ar(5,1000,20), 0, 0.1)}.scope;

{Saw.ar(Saw.ar(5,1000,20),0.1)}.scope;

//Encapsulando en mul

{SinOsc.ar(5000, 0, 0.5)*0.2}.play;

{SinOsc.ar(5000, 0, BrownNoise.ar(1))*0.2}.play;

//Encapsulando en ambos

{SinOsc.ar(Saw.ar(5,1000,2000), 0, BrownNoise.ar(1))*0.2}.play;

{SinOsc.ar(Saw.ar(BrownNoise.ar(12000,200),500), 0, BrownNoise.ar(2))*0.1}.play;

//Se puede añadir a esto XLine.kr así como EnvGen con impulse o dust, meterlo en mix, y en Pan y hasta hacer su SynthDef

(

{var pulso;

pulso=EnvGen.ar(Env.sine, Dust.ar(1));

Saw.ar(SinOsc.ar( XLine.kr(10,10000,19),0,200,800), pulso)}.scope

)

//en mix.fill,

(

{Mix.fill(7,

{var pulso;

pulso=EnvGen.ar(Env.sine, Dust.ar(rrand(1.0,1.5).postln));

Saw.ar(SinOsc.ar( XLine.kr(rrand(2,25),10000,19),0,200,800), pulso)})*0.5}.scope

)

//con Pan2(prueba sumar numeros con Ugens)

{Pan2.ar(Blip.ar(1500+SinOsc.ar( XLine.kr(10,1000,9),0,200,1800), XLine.kr(10,1,9),0.25),SinOsc.ar(2))}.scope;

//encapsulando pos

{Pan2.ar(Blip.ar(2+SinOsc.ar( XLine.kr(10,1000,9),0,200,1800), XLine.kr(10,1,9),0.25),BrownNoise.ar(2))*1.5}.scope;

Las Notas al día de hoy

2009-10-29T10:44:00.002-04:30

http://ladim.labf.usb.ve/Extraplan29Octubre2009.pdf

SS es "sin sampleo", porque nunca lo recibí y R es repetir, ver la razón dentro del archivo de corrección de tarea.

Nos vemos

corrección Tarea 5

2009-10-29T10:23:00.001-04:30

Realice un código que sean 11 sonidos, pulsando cada uno a su propia velocidad (puede ser aleatoria), a su propia frecuencia, y moviéndose de derecha a izquierda a su propia velocidad (que no se queden fijos en el espacio).

No usar el blip

seguir a la tarea de sampleos...

///A. Martínez

(
{Mix.fill(11,
{

var mul2;

mul2=EnvGen.ar(Env.perc(0.01,0.05,0.1),Impulse.ar(rrand(28,40).postln));

Pan2.ar({SinOsc.ar((rrand(400,5000).postln),0,mul2);},SinOsc.ar(rrand(0.5,10))*0.1);

})
}.play)

s.scope

////

(

{

Mix.fill(11,{var pinpong;

pinpong =EnvGen.ar(Env.perc(0.01,0.1),Impulse.ar(rrand(0.2,2.0)));

Pan2.ar(Saw.ar(rrand(200,1220),pinpong),SinOsc.ar(3))})*0.5}.scope

)

Aarom Oporte

/////

(

{

Mix.fill(11,{var tictac;

tictac =EnvGen.ar(Env.perc(0.03,0.1),Impulse.ar(rrand(0.5,1.0)));

Pan2.ar(Saw.ar(rrand(300,2000),tictac),SinOsc.ar(2))})*0.6}.scope

)

Vanderson Lozano

//////MAL USO DE LOS PARAMETROS, repetir ejercicio

(

{

Mix.fill(11,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc(0.01, 1, 1, -4),Impulse.ar(rrand(0.1,1.0)));

posicion=rrand(-1.0,0.5).postln;

Pan2.ar(Impulse.ar(500,rrand(100,1000), 0.1,pulsando),posicion)})*0.7}.scope

)

//Maria A Labrador

/////

(

{

Mix.fill(11,{var gon1;

gon1 =EnvGen.ar(Env.perc(0.06,0.4),Impulse.ar(rrand(0.1,0.4)));

Pan2.ar(Saw.ar(rrand(100,1500),gon1),SinOsc.ar(2))})*0.8}.scope

)

Hector Zambrano

///////LINDISIMO@@@

(
{Mix.fill(11,{var repeticion;
repeticion=EnvGen.ar(Env.sine,Impulse.ar(rrand(0.8,1.5).postln));
Pan2.ar(SinOsc.ar((rrand(1000.0,2000.0).postln),0,repeticion),
SinOsc.ar(rrand(1.0,4.0).postln))*1/7})}.scope
)

Felipe Madarnas

///// Elvis DEBES BAJARLE EL VOLUMEN A TODO JUNTO

(
{Mix.fill(11,
{
var izqder;
izqder=EnvGen.ar(Env.perc,Impulse.ar(rrand(2,5)));
Pan2.ar(LFSaw.ar(rrand(400,5000),0,izqder),rrand(-1.00,1.00));
})
*0.3}.play)

s.scope

////constenla QUE LINDO@

(
{Mix.fill(11,{var mix;
mix=EnvGen.ar(Env.perc(0.02,0.2),Impulse.ar(rrand(1,6.9).postln));
Pan2.ar(SinOsc.ar((rrand(440,1560).postln),pi/2,mix),Saw.ar(rrand(300,666))*0.2);
})
}.play)

////

//Los grillos recargados y en estereo SI metes los rand en variables no se multiplican en el mix, y lo hacen antes, generando un solo número

(b=
{SinOsc.ar(rrand(2300,2500),0,EnvGen.ar(Env.new([0,1,0],[0.01,-2]),Impulse.ar(rrand(30,50)))*SinOsc.ar(rrand(0.1,0.7))*0.1)}
)

(k=
{Pan2.ar(b,SinOsc.ar(rrand(0.3,0.1).postln))}
)
{Mix.fill(11,{k})}.scope//el mix.fill no tiene función
///

(b=
{SinOsc.ar(rrand(2300,2500),0,EnvGen.ar(Env.new([0,1,0],[0.01,-2]),Impulse.ar(rrand(30,50)))*SinOsc.ar(rrand(0.1,0.7))*0.1)}
)

(k=
{Pan2.ar(

SinOsc.ar(rrand(2300,2500),0,

EnvGen.ar(Env.new([0,1,0], [0.01,-2]),Impulse.ar(rrand(30,50)))

*SinOsc.ar(rrand(0.1,0.7))),

SinOsc.ar(rrand(0.3,0.1)))}
)
(

{Mix.fill(11,{Pan2.ar(

SinOsc.ar(rrand(2300,2500),0,

EnvGen.ar(Env.new([0,1,0], [0.01,-2]),Impulse.ar(rrand(30,50)))

*SinOsc.ar(rrand(0.1,0.7))),

SinOsc.ar(rrand(0.3,0.1).postln))})*0.5}.scope

)

///Explicación

7.rand

Mix.fill(11,{7.rand.postln})

a=7.rand

Mix.fill(11,a)

Mix.fill(11,{a})
//hecho por Robert Moore 05-38576

/////PARECE QUE HABLARAN, MUY BIEN alfredo andrade

{Mix.fill(11,{Pan2.ar({BrownNoise.ar*SinOsc.ar(rrand(500,4000).postln,0,EnvGen.ar(Env.new([0,1,0],[rrand(1/10,1/6).postln,rrand(1/10,1/6).postln]),Impulse.ar(rrand(1.00,0.50))))},EnvGen.ar(Env.new([-1,1,-1],[rrand(0.5,1).postln,rrand(0.5,1).postln]),Impulse.ar(rrand(0.50,0.40).postln)))})*0.5}.play

s.scope

//pra que se vea mejor

(

{Mix.fill(11,

{Pan2.ar(

{BrownNoise.ar*SinOsc.ar(rrand(500,4000).postln,0,EnvGen.ar(

Env.new([0,1,0],[rrand(1/10,1/6).postln,rrand(1/10,1/6).postln]),Impulse.ar(rrand(1.00,0.50))))},

EnvGen.ar(Env.new([-1,1,-1],[rrand(0.5,1).postln,rrand(0.5,1).postln]),Impulse.ar(rrand(0.50,0.40).postln)))})*0.5}.play

)

///robin perez/// usaste el mix. new y no el mix. fill REPITE

(

{

var sonuno, sondos;

sonuno = [SinOsc.ar(502, 0, 0.2), Saw.ar(402, 0.2)];

sondos = [SinOsc.ar(512, 0, 0.2), Saw.ar(400, 0.2)];

Mix.new([sonuno,sondos],Pan2.ar(PinkNoise.ar(0.4), FSinOsc.kr(2), 0.3)).postln;

}.play;

)

s.scope

///Rodolfo M

b=Buffer.read(s,"Sounds/03 Barlovento.wav")

b.query

{PlayBuf.ar(1,b.bufnum,1)}.play

{PlayBuf.ar(1,b.bufnum,2)}.play

{PlayBuf.ar(1,b.bufnum,rate:-1,loop:1)}.play

{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:-1,loop:1),SinOsc.kr(0.2))}.play

b.free

////A. MArtínez//NO RECIBI SAMPLEOANTONIO

b = Buffer.read(s, "sounds/Sampleoantonio.wav");

b.query

{PlayBuf.ar(1,b.bufnum,1)!2}.play;

{PlayBuf.ar(1,b.bufnum,2)!2}.play;

{PlayBuf.ar(1,b.bufnum,rate:-1,loop:1)}.play;

{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:1),SinOsc.kr(0.2))}.play;

{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(1.0,1.2),loop:1 ),SinOsc.kr(rrand(0.2,0.5)))})*0.5}.scope

b.free

////NO RECIBI BEETHOVEN

b = Buffer.read(s, "sounds/beethoven.wav")

b.query

{PlayBuf.ar(1,b.bufnum,1)!2}.play

{PlayBuf.ar(1,b.bufnum,2)!2}.play

{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(1.5,1.0),loop:1 ),SinOsc.kr(rrand(0.2,0.5)))})*0.5}.scope

/////HEctor

b = Buffer.read( s, "sounds/a11wlk01.wav")

b.query

{PlayBuf.ar(1,b.bufnum,2)!2}.play;

{PlayBuf.ar(1,b.bufnum,1)!2}.play

{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:1),SinOsc.kr(0.8))}.play;

{PlayBuf.ar(1,b.bufnum,rate:2,loop:5)!2}.play;//loop 5 no significa nada es 1 o 0

{Mix.fill(8,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(0.8,1.0),loop:2 ),SinOsc.kr(rrand(0.2,0.5)))})*0.8}.scope

/////aarom

/////

b = Buffer.read(s, "sounds/kiss.wav")

b.query

{PlayBuf.ar(1,b.bufnum,1)!2}.play

{PlayBuf.ar(1,b.bufnum,2)!2}.play

{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(1.5,1.0),loop:1 ),SinOsc.kr(rrand(0.2,0.5)))})*0.5}.scope

vander

////NO RECIBI scatmanjohn.wav"

b = Buffer.read(s, "C:/Users/Felipe/Music/scatmanjohn.wav");

{PlayBuf.ar(1,b.bufnum,2)!2}.play

{PlayBuf.ar(1,b.bufnum,-1,loop:1)}.play;

{Mix.fill(3,{Pan2.ar(PlayBuf.ar(1,b.bufnum,(rrand(1.15,1.2).postln),loop:1),(rrand(-1.0,1.0).postln))})}.scope

Felipe Madarnas

///////

b = Buffer.read(s, "sounds/revolution.wav");

{PlayBuf.ar(1,b.bufnum,1)!2}.play//NORMAL
{PlayBuf.ar(1,b.bufnum,-1,loop:1)!2}.play//AL REVES
{PlayBuf.ar(1,b.bufnum,2)!2}.play//AL DOBLE
{PlayBuf.ar(1,b.bufnum,0.5)!2}.play//A LA MITAD
{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rrand(-2,2),loop:1 ),Saw.ar(rrand(0.2,0.5)))})*0.5}.play//EN PAN2 Y EN MIX

Jose Gregorio Constenla

/////

//El bosque encantado, ardillas y mujeres se mueven alrededor con mensajes cripticos.
a = Buffer.read(s, "sounds/mujer.wav")

//por alguna razon el programa toca de forma original el sampleo al doble de la velocidad
// asi que para escucharlo normalmente lo corro a la mitad de la velocidad
{PlayBuf.ar(1,a.bufnum,0.5)}.play

(t=
{Pan2.ar(PlayBuf.ar(1,a.bufnum,startPos:rrand(1,50).postln,rate:rrand(0.50,1).postln),XLine.kr(-1.00000,1.00000,rrand(5,15).postln))}
)

{Mix.fill(5,t)}.play

//hecho por robert moore 05-38576

////andrade

x=Buffer.read(s,"Sounds/TheCrazyFrogCraz.wav") BUENISIMO

//rapidito alante
{Pan2.ar({PlayBuf.ar(1,x.bufnum,1.2,0,0,1)},EnvGen.ar(Env.new([-1,1,-1],[0.4,0.4]),Impulse.ar(1/0.8)))}.play
//lento atras
{Pan2.ar({PlayBuf.ar(1,x.bufnum,-0.5,0,0,1)},EnvGen.ar(Env.new([-1,1,-1],[0.8,0.8]),Impulse.ar(1/1.6)))}.play
//muchos
{Mix.fill(4,{Pan2.ar({PlayBuf.ar(1,x.bufnum,rrand(-1,1),0,0,1)},EnvGen.ar(Env.new([-1,1,-1],[0.3,0.3]),Impulse.ar((1/rrand(0.6,1.2)))))})}.play

///Mario

g=Buffer.read(s,"/Users/imac/Downloads/untitled.aiff")

{PlayBuf.ar(1,g.bufnum,1)}.play

{PlayBuf.ar(1,g.bufnum,2)}.play

{PlayBuf.ar(2,g.bufnum,rate:-1,loop:1)}.play

{Pan2.ar(PlayBuf.ar(1,g.bufnum,rate:-2,loop:1),SinOsc.kr(0.6))}.play

(
{Mix.fill(3,{Pan2.ar(PlayBuf.ar(1,g.bufnum,rate:rrand(-5,2),loop:1 ),SinOsc.kr(rrand(0.1,XLine.kr(0.3,0.0001,rrand(5,10).postln))))})*0.3}.scope

)

Tarea 5 sampleos

2009-10-26T10:35:00.006-04:30

MOntar cualquier sampleo propio, algo corto, tocarlo al doble o al mitad de la velocidad y alrevés, meterlo en Pan2 y en mix.

Enviárme el sampleo por www.yousendit.com y montar el código en el blog

Clase 5 sampleos

2009-10-26T10:35:00.001-04:30

/*esto monta el sampleo en el servidor*/

b = Buffer.read(s, "sounds/a11wlk01.wav");

/*el postwindow debe decir Buffer(0, nil, nil, nil, sounds/a11wlk01.wav);

bajen FerminCementerio, métanlo en 'sounds', que está en la propia carpeta del programa y traten de montarlo*/

b.query// esto te dice sus caracteristicas

/*esto lo toca*/

{PlayBuf.ar(1,b.bufnum,1)!2}.play;

/*esto lo toca al doble*/

{PlayBuf.ar(1,b.bufnum,2)!2}.play;

/*esto lo toca al reves, debe tener loop para que funcione*/

{PlayBuf.ar(1,b.bufnum,rate:-1,loop:1)}.play;

/*metido en Pan2*/

{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:-1,loop:1 ),SinOsc.kr(0.2))}.play;

/*metido en mix*/

{Mix.fill(2,{Pan2.ar(PlayBuf.ar(1,b.bufnum,rate:rrand(1.5,1.0),loop:1 ),SinOsc.kr(rrand(0.2,0.5)))})*0.5}.scope

/*Esto limpia el buffer*/

b.free

Tarea 5 panoramicas

2009-10-26T10:25:00.005-04:30

No usar el blip

seguir a la tarea de sampleos...

Clase 5 panoramicas

2009-10-26T10:17:00.001-04:30

//expansión estereo

{Blip.ar([500,900],30,0.5)}.scope;

(//le meto impulse

{var pulsando;

pulsando=EnvGen.ar(Env.perc,Impulse.ar(2));

Blip.ar(500,30,pulsando)}.play

)

/*lo pongo en un lugar específico de la panorámica que va de -1.0 a 1.0*/

(//lo monto en Pan2 para que defina un lugar de la panorámica

{var pulsando;

pulsando=EnvGen.ar(Env.perc,Impulse.ar(2));

Pan2.ar(Blip.ar(500,30,pulsando),-0.7)}.play

)

/*quiero que oscile con este patrón,Panorámicas, arriba sería la derecha y abajo la izquierda*/

Env.new([-1.0,1.0,-1.0,1.0,-1.0,1.0,-1.0,1.0],[0.5,0.5,0.5,0.5,0.5,0.5,0.5]).plot;

(//lo monto en Pan2 para que oscile

{var pulsando,zigzag;

pulsando=EnvGen.ar(Env.perc,Impulse.ar(2));

zigzag=Env.new([-1.0,1.0,-1.0,1.0,-1.0,1.0,-1.0,1.0],[0.5,0.5,0.5,0.5,0.5,0.5,0.5]);

Pan2.ar(Blip.ar(500,30,pulsando),EnvGen.ar(zigzag))}.play

)

/*ahora quiero que oscile continua y regularmente, le pongo un oscilador lentísimo en POS*/

(//lo monto en Pan2 para que oscile

{var pulsando;

pulsando=EnvGen.ar(Env.perc,Impulse.ar(2));

Pan2.ar(Blip.ar(500,30,pulsando),SinOsc.ar(2))}.play

)

/*si lo meto en Mix con un rand en POS, cada sonido ocupar un lugar diferente pero fijo en el espacio, en el caso que sigue cada uno tiene una freq diferente y su pulso es diferente*/

(

{

Mix.fill(10,{var pulsando,posicion;

pulsando =EnvGen.ar(Env.perc(0.01,0.1),Impulse.ar(rrand(0.5,2.0)));

posicion=rrand(-1.0,1.0).postln;

Pan2.ar(Blip.ar(rrand(100,5000),20,pulsando),posicion)})*0.7}.scope

)

////

cementerio, la pastora, san martin , plaza venezuela

2009-10-25T21:19:00.001-04:30

Hola, pueden bajar este sampleo para utilizarlo. EN audacity lo pueden picar, volverlo .wav o mp3

http://ladim.labf.usb.ve/msp2008/ferminCementerio.aif

Notas al 22 de Octubre

2009-10-22T10:50:00.000-04:30

http://ladim.labf.usb.ve/Notas.pdf

Tarea 4 Ranitas de la noche de los jardines

2009-10-17T16:07:00.003-04:30

Usando EnvGen, Impulse, Dust y Mix.fill haz un ambiente que recuerde las ranitas de la noche en los jardines. Puedes usar cualquier Ugen. Todo en un solo código que corra solo.

Pista:

Toca estos dos códigos juntos:

{SinOsc.ar(2220,0,0.1)}.scope;

{SinOsc.ar(2520,0,0.1)}.scope;

Clase 4 la octava, Gatillos y Mix.fill

2009-10-17T16:04:00.001-04:30

//La octava

//tocas los dos códigos juntos y mueve el ratón

//hasta que "enfoques" en la octava.

{Saw.ar(400)*0.2}.play;

{Saw.ar(MouseX.kr(700,890,1))*0.4}.play;

{Saw.ar(800)*0.2}.play;

{Saw.ar(MouseX.kr(700,1690,1))*0.4}.play;

/*diferentes maneras de controlar el mul (o sea la amplitud o sea el "volumen")

porque mul es multiplicación*/

//la tradicional, dentro de su lugar

{Saw.ar(400,0.2)}.play;

//controlando el resultado final de todo el código

{Saw.ar(400)*0.2}.play;

//las dos anteriores deben sonar igual

//mul es multiplicacion

//o sea que puedo multiplicar por cualquier envolvente

//prueba cambiar chorizo por envol y envol2

Env.new([0.001,1,0.3,0.8,0.5,0.8,0],[2,3,1,2,2,1], 2).plot;

(

{var envol,envol2,chorizo;

envol=EnvGen.ar(Env.sine);

envol2=EnvGen.ar(Env.perc);

chorizo=EnvGen.ar(Env.new([0.001,1,0.3,0.8,0],[2,3,1,2],2));

Saw.ar(400)*chorizo}.scope

)

(

{var envol,envol2,chorizo;

envol=EnvGen.ar(Env.sine);

envol2=EnvGen.ar(Env.perc);

chorizo=EnvGen.ar(Env.new([0.001,1,0.3,0.8,0],[2,3,1,2],2));

Saw.ar(400,chorizo)}.scope

)

//gatillos y compuertas

//Los ubicamos en el segundo argumento del EnvGen.ar *ar(envelope, gate,...etc

{Impulse.ar(1)!2}.scope;//regular

{Dust.ar(1)!2}.scope;//irregular

//zancudo

({var envolv;

envolv= EnvGen.ar(Env.perc(0.5, 0.01, 1, 4),Dust.ar(1));

Saw.ar(400,envolv)}.scope

)

//zancudo regular

({var envolv;

envolv= EnvGen.ar(Env.perc(0.5, 0.01, 1, 4),Impulse.ar(1));

Saw.ar(400,envolv)}.scope

)

//zancudo acelerando

({var envolv;

envolv= EnvGen.ar(Env.perc(0.5, 0.01, 1, 4),Impulse.ar(Line.kr(1/2,1/0.51,12)));

Saw.ar(400,envolv)}.scope

)

//gaviotas, mejóralas!!!

(

{

var envol,envol1,gatillo, gatillo1;

envol=Env.new([rrand(10000,3000).postln,rrand(3000,2000).postln],[25],-5);

envol1=Env.new([rrand(1000,3000).postln,rrand(3000,5000).postln],[31],-5);

gatillo=EnvGen.ar(Env.perc(0.5, 0.3, 1, -4),Impulse.ar(0.7));

gatillo1=EnvGen.ar(Env.perc(0.8, 1, 1, -4),Dust.ar(0.7));

SinOsc.ar([EnvGen.ar(envol),EnvGen.ar(envol1)],0,[gatillo1,gatillo]*0.1)}.scope

)

//Fill.new genera un sonido a partir de sumas de códigos

//solito

{Blip.ar(400,10,0.2)}.play;

//con trigger

(

{var envol;

envol = EnvGen.ar(Env.sine,Impulse.ar(0.7));

Blip.ar(400,10,envol)}.play

)

//sumado siete veces

//le pongo rand para que varíe cada versión

(

{

Mix.fill(7,{var envol;

envol = EnvGen.ar(Env.sine,Impulse.ar(rrand(1,0.1).postln));

Blip.ar(rrand(1510,500),10,envol)})

* 0.1}.scope

)

// siete envolventes diferentes, mueve las ventanas que se tapan unas a otras

(

{

Mix.fill(7,

{var envol;

envol = EnvGen.ar(Env.new([0,rrand(0.001,0.5), rrand(0.001,0.5), rrand(1.0,0.5), 0], [rrand(0.1,0.5), rrand(0.1,0.5), rrand(0.1,0.5), rrand(0.1,0.5)],'linear').plot,Impulse.ar(rrand(0.5,0.1).postln));

Blip.ar(rrand(1510,500),rrand(10,50),envol)})

* 0.7}.scope

)

//usando las gaviotas...modificadas

(

{Mix.fill(17,{

var envol,envol1,gatillo, gatillo1;

envol=Env.new([rrand(10000,3000).postln,rrand(3000,2000).postln],[25],-5);

envol1=Env.new([rrand(1000,3000).postln,rrand(3000,5000).postln],[31],-5);

gatillo=EnvGen.ar(Env.perc(rrand(0.5,0.03), 0.3, 1, -4),Impulse.ar(0.7));

gatillo1=EnvGen.ar(Env.perc(rrand(0.08,0.01), 1, 1, -4),Dust.ar(0.7));

SinOsc.ar([EnvGen.ar(envol),EnvGen.ar(envol1)],0,[gatillo1,gatillo]*0.1)})}.scope

)

Tarea 3 Crear un ambiente para tocar en vivo

2009-10-10T15:15:00.004-04:30

Hola,

para la clase que viene debes inventar diversos códigos, declararlos como variables a, b,c, etc ,para tocarlos en vivo recreando un ambiente. (La ciudad, la brisa, la carretera, el amanecer, o cualquier cosa abstracta). Lo vamos a tocar en clase, o sea que deben ensayar su interpretación.

Habrá nota por código y nota por interpretación. A ENSAYAR!!! si quieren hacer dúos o trios de computadoras (trabajo en equipo)...traigan corneticas de esas baratas individuales (porque si no como los oimos!).

El código lo recibiré hasta el día jueves a las 6 am, como siempre.

Que no dure más de tres minutos.

Deben usar EnvGen y expansión estereo.

MIDI

2009-10-10T15:11:00.002-04:30

Tomado de

MIDI

MIDI es una sigla que significa Interfaz Digital para Instrumentos Musicales (Musical Instrument Digital Interface) que identifica un protocolo estándar para la comunicación entre instrumentos electrónicos y equipamiento con la implementación MIDI. Esto ha probado ser de particular interés en la música electroacústica, tanto en acciónes de disparo y control como en el trabajo con secuencias. Los dispositivos MIDI permiten el envío y la recepción de mensajes propios del protocolo MIDI. Las interfaces MIDI hacen posible conectar instrumentos MIDI a las computadoras, y a su vez permiten que las mismas puedan controlar a otros equipos MIDI. Los controladores MIDI son potenciómetros u otros dispositivos (por ejemplo, un breath controller o controlador por soplo, un pedal controlador, o una rueda de modulación) disponibles en los sintetizadores MIDI, que pueden ser usados para modificar los parámetros de sonido mediante mensajes MIDI.

Palabras clave :

Pitch-to-MIDI (Conversión de alturas a datos MIDI) , Pitch-tracking (Seguidor de altura)

Links

UNESCO DigiArts

- Digital Creation with Sounds and Music: Create ( English , French )
- Digital Music online course: MIDI and Sequencers ( English )
- Introduction à l’histoire et à l’esthétique des musiques électroacoustiques: Session 2 - Une nouvelle lutherie ( French )
- Introduction à l’histoire et à l’esthétique des musiques électroacoustiques: Session 6 - De la musique mixte à l’interactivité ( French )

Clase 3, ambiente marino con olas y gaviotas. Uso de envolventes

2009-10-10T15:07:00.001-04:30

/*Mar con gaviotas:

Código en vivo, Envolventes.

Octubre 9 de 2009

/*tomamos ejemplos del Help (F1) de Env para hacer unas olas, nada de esto suena, esto va dentro del EnvGen lo que se llama el envelope*/

Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], -2).plot;

Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], 2).plot;//alreves

Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], [0, 3, -3, -1]).plot;

(

{var ola1,ola2;

ola1=EnvGen.ar(Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], -2));

ola2=EnvGen.ar(Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], 2));

[PinkNoise.ar(ola1),BrownNoise.ar(ola2)]}.play

)

s.scope//llámenlo independientemente

//lo defino como variable a, le quito el .play

(a=

{var ola1,ola2;

ola1=EnvGen.ar(Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], -2));

ola2=EnvGen.ar(Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], 2));

[PinkNoise.ar(ola1),BrownNoise.ar(ola2)]}

)

//me contesta a Function

//lo toco

a.play

//hago otra ola

(

{var ola3;

ola3=EnvGen.ar(Env.new([0, 1, 0.3, 0.8, 0], [2, 3, 1, 4], [0, 3, -3, -1]));

GrayNoise.ar(ola3)!2*0.2}//!2 lo hace estereo

//*0.2 le baje el volúmen general

//o sea mul, o sea amplitud)

//lo toco

b.play

//ahora las combino

a.play;

b.play;

//las gaviotas

(c={

var envol,envol1,vol1,vol2;

envol=Env.new([rrand(10000,3000).postln,rrand(3000,2000).postln],[0.9],-5);

envol1=Env.new([rrand(1000,3000).postln,rrand(3000,5000).postln],[0.7],-5);

vol1=EnvGen.ar(Env.perc(0.5, 1, 1, -4));

vol2=EnvGen.ar(Env.perc(0.8, 1, 1, -4));

SinOsc.ar([EnvGen.ar(envol),EnvGen.ar(envol1)],0,[vol1,vol2])*0.3}//0.3 baja la amplitud general

)

c.play

//Y ahora el performance

a.play;//ola1 y ola2

b.play;//ola3

c.play;//gaviotas

Recuerden dar al final de todo alt punto, ya que si no el programa sigue corriendo.

////////Midi, notas y frecuencias

/*Tiene en el blog un cuadro de notas, midi y Hertz.

Midi significa Musical Instrument Digital Interface y numera las alturas de las notas do re mi fa sol la si

del 0 al 127 (incluyendo los sostenidos y los bemoles. SC hace una operación par atransformar Hertz a midi y viceversa.*/

69.midicps//ver post window que dice 440

440.cpsmidi// ver post window que dice 69

alturas, notas, hertz y midi

2009-10-08T11:03:00.001-04:30

SObre la afinación y las frecuencias

2009-10-02T16:22:00.003-04:30

Afinación

Afinación en Indonesia Slendro

Afinación en Indonesia Pelog

y si les gustó muchísimo el tema

De las notas y su correspondencia con la frecuencia en Hz

Y el sr. Hertz

Tarea 2 fase, numeros aleatorios, variables, envolventes

2009-10-02T16:02:00.002-04:30

1. Realizar código con tres argumentos aleatorios y que se imprima el resultado.

2.Reducir el siguiente código al mínimo usando variables

(

{ Blip.ar([XLine.kr(rrand(50,130).postln,1000,5),XLine.kr(rrand(50,130).postln,1000,5)],10,[EnvGen.ar(Env.perc(0.001, 1, 1, -8)),EnvGen.ar(Env.perc(0.01, 1, 1, -3))])}.play

)

3. Hacer un código que dure 15 segundos que se mueva como olas, que suene como el mar. (Use diferente tipos de Envolventes)

preguntas a ladim@usb.ve

Clase 2 fase, numeros aleatorios, variables, envolventes

2009-10-02T15:59:00.002-04:30

//Clase 2, octubre 2 de 2009

//SUpercollider también hace cálculo. Evalúa:

//y te debe salir 3.1415926535898 en el post window

2*pi

44.56/pi

333+567890

//o cualquier otra operación aritmética

//NUMEROS RANDOM O ALEATORIOS

//(resultados siempre en el post).

//Evalúa

4.rand

/*debe dar números enteros del 0 al 3, uno diferente cada vez que lo evalúas*/

4.0.rand

/*debe dar números con decimales del 0.0 al 3.0, uno diferente cada vez que lo evalúas*/

rrand(1000.0,2000.0)//estableces las cotas

//EJEMPLOS. Puedes sustituir cualquier número por los aleatorios, mientras esté en el rango adecuado.

//para freq dale varias veces

{SinOsc.ar(rrand(1000.0,2000.0))}.scope

{Saw.ar(XLine.kr(500,rrand(2000.0,1000.0),3),0.2)}.scope

/*Si quieres saber cual númeoro salió pon .postln (post line) justo después del número aleatorio.*/

{Blip.ar(rrand(100,1300).postln,Line.kr(10,500,5),1.0.rand.postln)}.scope;

/*Vamos a comenzar a poner punto y coma al final de cada línea de código para evitar confusión*/

//FASE

/*No todos los Ugens de sonido tiene phase. Y no distiguimos la diferencia con sonidos simples.

En el siguiente ejemplo sí podemos ver: le cambiamos gradualmente la fase al segundo sonido hasta que cancela totalmente al primero*/

{SinOsc.ar(678,0,0.5)+SinOsc.ar(678,Line.kr(0,pi,5),0.5)}.scope;

//VARIABLES

{Blip.ar(XLine.kr(2000.0,200.0,4),XLine.kr(10.0,200.0,4),0.2)}.play;

//compara con el anterior

(

{var frecuencia;

frecuencia=XLine.kr(2000.0,200.0,4);

Blip.ar(frecuencia,XLine.kr(10.0,200.0,4),0.2)}.play;

)

//compara con el anterior

(

{var frec,arm;

frec=XLine.kr(2000.0,200.0,4);

arm=XLine.kr(10.0,200.0,4);

Blip.ar(frec,arm,0.2)}.play;

)

//compara con el anterior

(

{var frec,arm,todito;

frec=XLine.kr(2000.0,200.0,4);

arm=XLine.kr(10.0,200.0,4);

todito=Blip.ar(frec,arm,0.2);

todito}.play;

)

/*Puedo hacer operaciones con los Ugens, y re-usar las variables en códigos diferentes*/

(

{var frec,arm,todito,otro;

frec=XLine.kr(2000.0,200.0,4);

arm=XLine.kr(10.0,200.0,4);

todito=Blip.ar(frec,arm,0.2);

otro=Saw.ar([599,frec],0.3);

otro+todito}.scope;

)

/*prueba diferentes operaciones matemáticas entre todito y otro*/

/*También puedes usar letras como variable y no las tienes que declarar...pero no uses la S que es para el servidor*/

(

{

a=500;

b=SinOsc.ar(a);

c=Saw.ar;

c*b*MouseY.kr(0.0,1.0,0)}.scope

)

//ENVOLVENTES

/*transformaciones de un parámetro en el tiempo, puede ser freq, mul, phase, harm...etc*/

El corazón

Env.triangle(1, 1).plot;//revisa el help, hay miles!!

El portador del corazón

EnvGen.ar(Env.triangle(1,1))//eso no suena

//Usando variables

(

{var corazon, portador;

corazon=Env.triangle(1, 1);

portador=EnvGen.ar(corazon);

Blip.ar(rrand(400,50),77,portador)}.play

)

// a pesar de que se apaga debes darle alt punto

//Lo puedes diseñar con tus propios niveles y tus duraciones

//lo pruebas con plot

Env.new([10,100,2,50,200],[3,2,4,10]).plot

//lo metes en el portador

EnvGen.ar(Env.new([10,100,2,50,200],[3,2,4,10]));

(

{a=Env.new([10,100,2,50,200],[3,2,4,10]);

b=EnvGen.ar(a);

c=Blip.ar(50,b, 0.5);//frec,numharm,mul

c!2}.play

)

//Otro ejemplo

//Pruébalo

Env.perc(0.05, 3, 1, -4).test.plot;//attackTime, releaseTime, peakLevel, curve

(

{var corazona,portadora,corazonb,portadorb;

corazona=Env.new([10,100,2,50,200],[3,2,4,10]).plot;

portadora=EnvGen.ar(corazona);

corazonb=Env.perc(0.05, 3, 0.9, -4);

portadorb=EnvGen.ar(corazonb);

Blip.ar(rrand(30,20),portadora, portadorb)

!2}.scope

)

ahora a la tarea, si tienes dudas mándame un correo ladim@usb.ve

las notas

2009-10-01T11:26:00.001-04:30

Hola Siempre encontrarán las notas actualizadas con la última tarea en:

http://ladim.labf.usb.ve/Notas.pdf

La evaluación es continua y acumulativa

De como usar las clases

2009-09-26T12:20:00.000-04:30

Hola, escogen todo el texto de la entrada, abren una nueva ventana de código y lo pegan.

Inmediatamente se les debe pintar con los colores del programa, es decir azul para los Ugens y verde para los comentarios.

Colocando el cursor sobre los códigos y dando control enter deben sonar uno a uno...o todos juntos si no los van apagando.

Evita que el código se parta entre líneas (por ahora), los comentarios no importa si se parten ente líneas.

Cualquier problema comuníquense a ladim@usb.ve

Tarea 1

2009-09-26T12:10:00.000-04:30

Crear 5 líneas de código diferentes una por cada especificación señalada debajo

1. Usando SinOsc y Xline

2.Usando Blip y Xline con expansión a dos canales

3.Usando PinkNoise y MouseX

4.Usando Saw, Xline y MouseY

5. Usando SinOsc, MouseY y MouseX y expansión a dos canales

Preguntas a ladim@usb.ve

Antes del jueves a las 6 am.

Deben montarlas en el blog los cinco códigos en un solo comentario a esta entrada. firmado con su nombre completo.

Para que estén buenas deben sonar!!!!!

Suerte!!!!

Clase 1 SinOsc Saw Blip MouseY Xline

2009-09-26T11:47:00.001-04:30

/*Todo lo que está entre slash y asterisco son comentarios

y no funciona como código*/

//si es cortico

//puedes usar doble slash al principio

//nada más

/*Una vez abierto el programa, le das boot en la consolita y creas una "ventana de código nueva"

y copia el siguiente código sobre ella*/

{SinOsc.ar}.play

/*Colocando el cursor sobre cualquier parte de esa línea, sin escoger nada, le das control enter (pc) o enter (no return!) en mac, que es el comando EVALUAR CODIGO y debe sonar por el canal izquierdo un La 440.*/

{SinOsc.ar(200)}.plot//este toma una foto de la onda, no suena

{SinOsc.ar(1120)}.scope//muestra la onda en vivo y suena

/*De aquí en adelante daré la clase básicamente para PC, los comandos de mac y lynux los pueden sacar por el menú del programa...o me los preguntan directamente,

Lo que está entre paréntesis es la frecuencia de esa onda

(ver definición de frecuencia en el blog)*/

{SinOsc.ar([1120,180])}.scope

/* si ponen dos frecuencias separadas por comas entre corchetes sacan una frecuencia para cada lado.

Si escogen lo azul y le dan F1 abren el help, que les dice los argumentos modificables de cada Ugen (Unidad Generadora de AUdio)

SinOsc interpolating sine wavetable oscillator

SinOsc.ar(freq, phase, mul, add)

Recuerden que para que el help suene tienen que darle control T, que es convertir el html a código.

{SinOsc.ar([400,5000],0,[1,0.2])}.scope

{SinOsc.ar(800)}.scope

{SinOsc.ar(4000)}.scope

{SinOsc.ar(1500, 0, 0.9)}.scope//mul es volumen, amplitud

Revisa los argumentos de:

WhiteNoise.ar

PinkNoise.ar

GreyNoise.ar

Saw.ar

Blip.ar

/*Para grabar simplemente dale al botoncito de la consolita beish prepare rec y luego record y evalúa tu código.*/

/*y aparecerá en*/

C:\Documents and Settings\usuario\SuperCollider\Recordings*/

/*SI lo quieres en wav dale antes a este comando*/

s.recHeaderFormat = "wav"

/*Puedes levantarlo en itunes, audacity o cualquier programa de audio.

Puedes meter el ratón como controlador en cualquier argumento de los Ugens, debes especificarle los rangos de dicho argumento

Recuerda para frecuencia de 20 a 20.000 Hz y en amplitud de 0.0 a 1.0*/

{PinkNoise.ar(0.5)}.play

{PinkNoise.ar(MouseY.kr(1.0,0.1, 1))}.play

{WhiteNoise.ar(MouseX.kr(1.0,0.1, 1))}.play

{SinOsc.ar(MouseX.kr(500,6000, 1))}.play

{SinOsc.ar(MouseY.kr(1500,5000, 1))}.play

{SinOsc.ar(MouseX.kr(600,1000, 1),MouseY.kr(1.0/5,0.1, 1))}.play

{SinOsc.ar(MouseX.kr(700,2000, 1),MouseY.kr(1.0/5,0.1, 1))}.play

{SinOsc.ar(MouseX.kr(800,6000, 1),MouseY.kr(1.0/5,0.1, 1))}.play

{SinOsc.ar(MouseX.kr(30,300, 1),MouseY.kr(0.1,0.1, 1))}.play

{SinOsc.ar(MouseX.kr(100,600, 1),MouseY.kr(1.0/5,0.1, 1))}.play

{Blip.ar(400,10)}.play //Blip.ar(freq, numharm, mul, add)

{Blip.ar(400,MouseY.kr(1,100, 1),0.9)}.play

/*EL Ugen Linea te lo hace automaticamente, sus argumentos son de tal a tal en tanto tiempo medido en segundos,

el de abajo sería de 400 a 100 en dos segundos*/

{Blip.ar(XLine.kr(400,100,2),XLine.kr(1,100,0.2),0.9)}.play

{Saw.ar(XLine.kr(4400,100,10))}.scope

{Blip.ar([300,XLine.kr(1100,100,2)],XLine.kr(1,100,0.2),0.9)}.play

{Saw.ar(MouseY.kr(8000,200, 1),MouseX.kr(1.0,0.1, 1))}.play//prueba a mover el ratón

AHora la tarea....

Armónico (para usar con Blip.ar)

2009-09-26T11:33:00.000-04:30

Del diccionario de EARS

Armónico

[ Disciplinas de Estudio [DdE] > Acústica ]

En música, armónico es un adjetivo que se refiere a la armonía y sus principios. En acústica, cuando un objeto vibrante (como por ejemplo una cuerda) es puesto en movimiento, vibra como un todo, con una frecuencia llamada fundamental, y con menor intensidad, también por secciones. Si estas secciones menores a la longitud total de la cuerda pueden ser representadas por cocientes de números enteros (1/2, 1/3, 1/4, ...), sus frecuencias de oscilación son múltiplos enteros de la fundamental, y se les da el nombre de armónicos.

Otras frecuencias resonantes que no son múltiplos enteros de la fundamental pueden estar presentes también, y son llamadas parciales. Las campanas, por ejemplo, contienen muchos parciales en su espectro, más que las cuerdas o los tubos. La presencia y la fuerza relativa de los armónicos y los parciales en un espectro son en gran medida los responsables de la calidad del tono (timbre) producido por cualquier cuerpo sonoro.

Nota: en algunos textos, el término "parcial" se refiere tanto a frecuencias resonantes armónicas como inarmónicas. En otras palabras, todos los armónicos son entonces parciales, pero no todos los parciales son armónicos. Sobretono (overtone) es un término frecuentemente empleado para nombrar tanto a los armónicos como a los parciales.

Los armónicos generados por un cuerpo vibrante, si son múltiplos enteros de la fundamental, pueden ser representados en una serie ordenada llamada "serie de los armónicos".

(Fuente: Barry Truax (1999). Handbook for Acoustic Ecology. CD-ROM. Cambridge Street Publishing. CSR-CDR 9901)

grabar en Wav

2009-09-26T11:23:00.000-04:30

SI quieres grabar en wav, en vez de aiff

Escribe el siguiente comando en tu pantalla de código y evalúala

s.recHeaderFormat = "WAV"

y haz todo el procedimiento de grabar para chequear, te debe salir un archivo .wav

AMplitud

2009-09-26T11:16:00.000-04:30

La máxima desviación del valor promedio o de equilibrio de una cantidad que varía repetidamente, tal como la posición de un objeto vibrante, la presión, la velocidad, el voltaje, la corriente y muchas otras. La amplitud de una onda sonora es la máxima cantidad por la cual la presión sonora instantánea difiere de la presión ambiente. La variación de la amplitud (máxima) en el tiempo es llamada: envolvente del sonido.

(Fuente: Barry Truax (1999). Handbook for Acoustic Ecology. CD-ROM. Cambridge Street Publishing. CSR-CDR 9901)

Dicho en criollo el volúmen.....la intensidad, para los músicos sería piano, forte, mp, mf,fff, etc

Qué es la frecuencia?

2009-09-26T11:05:00.000-04:30

Frecuencia

ELectroacoustic resources site

[ Disciplinas de Estudio [DdE] > Acústica ]

La tasa de repetición de los ciclos de una cantidad periódica, tal como la de una onda sonora. La frecuencia es, entonces, la inversa del período. De un modo más amplio, la frecuencia puede ser considerada como la velocidad de cambio (del ángulo) de la fase. La frecuencia se representa con el símbolo f, y se mide en hertz (Hz) -anteriormente denominados ciclos por segundo (cps or c/s)- kilohertz (kHz), o megahertz (mHz). El único sonido formado por una sola frecuencia es el de un tono sinusoidal puro. Todos los otros sonidos son complejos, y consisten de un número de frecuencias de mayor o menor intensidad. El contenido de frecuencias de un sonido es su espectro. El sentido subjetivo vinculado a la frecuencia es la altura. Entonces, mientras que la frecuencia es una variable acústica, la altura es una variable psicoacústica.

(Fuente: Barry Truax (1999). Handbook for Acoustic Ecology. CD-ROM. Cambridge Street Publishing. CSR-CDR 9901)

Links a tutorials en castellano

2009-09-24T21:24:00.000-04:30

Hola,
encontrarán muchos tutorials en internet.
Este es uno en castellano, desde CostaRica por Federico Reuben, freuben@gmail.com
http://www.oscilador.org/descargas/supercollider/

Ah! y no olviden descargar también el Audacity

Bienvenidos SC-USB

2009-09-24T21:16:00.000-04:30

Queridos amigos,
Bienvenidos a introducción a la música electrónica. Comenzaremos trabajando síntesis con el programa Supercollider.
Estamos en el primer piso de Básico 1, Laboratorio Lie.

Cada uno tendrá una PC, pero si quieren traer sus propias laptops, tráiganlas con el programa instalado desde

http://supercollider.sourceforge.net/downloads

Ah! y no olviden descargar también el Audacity
para más información sobre los que hacemos con música electrónica en la USB
http://ladim.labf.usb.ve

Mi correo es ladim@usb.ve