こーひーをぶんなぐれ！ - Diary/2012/July

今日

事務処理．夕方から授業．
事務処理一件，本部キャンパスの人とのやり取りで，なんだかよく分からない状況になっているので，明日問い合わせねば．
これは柏のときも感じたけど，本部キャンパスから離れた所にいると，事務方も含め，仲間意識的なものが独立愚連隊可していく傾向があるように思う．
柏から本郷に移ったときは，それをひどく感じた．
柏の方が何でもやりやすかった．

今日

入試業務．校務は金をもらえる仕事だから，どれだけ時間がかかっても文句は言えない．
午後の移動がういた分，少し空いた時間で練習．
夜はSkypeで学会の運営委員会に参加．

学校から北千住で開催される会議に参加しようと思うと，家に寄るならば片道3時間は見なければならない．ので，今日は間に合わなかったのでSkype．
東京でもこれだというのに，地方の大学の先生方は大変すぎる．
Skypeで参加できる会議をもっと増やしてほしい．

今日

完全に体調がダメな日．
書類取りに学校にほんのちょっとだけ行ったけど，ほとんど休みにしなければならなかった．
自分の体がダメすぎて情けない．

今日

事務作業．夕方からSuperColliderの授業．
全体の復習をしながら，OSCResponderの複合構造でフレーズを構成するための制御部分について，もう一度．

//---------------- 複数のPbindを多重的に呼び出す
(
~sequenceTempo1 = 5;
~sequenceTempo2 = 1;


SynthDef(\testSin, {arg amp=0.1, freq=440, pan=0;
var sound = SinOsc.ar(freq);
var env = EnvGen.ar(Env.perc, doneAction:2);
sound = sound * env;
Out.ar(0, Pan2.ar(sound, pan, 1));
}).store;

SynthDef(\positionSender1, {arg position=0;
	SendReply.kr(EnvGen.kr(Env.perc, doneAction:2), '/positionReceiver1', position);
}).store;

SynthDef(\positionSender2, {arg position1=0, position2=0;
	SendReply.kr(EnvGen.kr(Env.perc, doneAction:3), '/positionReceiver2', [position1, position2]);
}).store;



~oscResponderPositionReceiver1.remove;
~oscResponderPositionReceiver1 = 
		OSCresponder(nil, '/positionReceiver1', {arg time, responder, message;
	//if文などを使って得られた数値を使ってトリガーにする
	if(message[3] == 0, {n.play;});
}).add;

~oscResponderPositionReceiver2.remove;
~oscResponderPositionReceiver2 = 
		OSCresponder(nil, '/positionReceiver2', {arg time, responder, message;
	//if文などを使って得られた数値を使ってトリガーにする
	message[3].post; " ".post; message[4].postln;
	if(message[3] == 1, {o.play;});
	if(message[3] == 5, {m.play;});
}).add;

)

(
m = Pbind(
	\instrument, \testSin,
	\dur, 0.25,
	\pan, Pfunc({1}),
	\octave, 3,
	\degree, Pseq([7, \reste, 2, 6, 5, \reste, 3])
);

n = Pbind(
	\instrument, \positionSender2,
	\position1, Pseq([0, 1, 2, 3, 4, 5]),
	\position2, Pseq([7, 6, 5, 4, 3, 2]),
	\dur, Pfunc({~sequenceTempo2})
);

o = Pbind(
	\instrument, \testSin,
	\dur, 0.25,
	\pan, Pseq([1, -1], inf),
	\octave, 4,
	\degree, Pseq([1, 2, 3, 4, 5, 6])
);


p = Pbind(
	\instrument, \positionSender1,
	\position, Pseq([0, 1, 2, 3, 4, 5], inf),
	\dur, Pfunc({~sequenceTempo1})
).play;
)

今日

昨日までたまってたメールを中心に事務作業．
あまり進まない．