| Автор |
Сообщение |
|
Мастер
Сообщений: 804
Комментариев: 68
Оценок: 17
Треков: 2
|
ChucK
« Дата: 07/10/12 21:24 »
|
|
|
После долгих поисков (кроме ПД и Макс/МСП я хотел ещё в чём нибудь програмировать) я решил занятся языком Chuck. Я долго колебался и не мог остановится на одном ЯП. В конце то концов до меня дошло что у Суперколайдера трудно читаемый код, о Csound я вообще молчу а вот Чак мне как то даётся без особых усилий. Я всего 4 дня с ним вожусь а сегодня уже получил результат. Мой первый код (таймстретч)
SndBuf buff => dac;
SndBuf buff2 => dac;
Phasor grain => blackhole;
Phasor speed => blackhole;
buff.read("cool.wav");
buff2.read("cool.wav");
50 => int grain_size;
1000 / grain_size => grain.freq;
(1000 / (buff.samples() / 44.1)) * .25 => speed.freq;
while (true) {
((grain.last() * grain_size * 44.1) + (speed.last()
* buff.samples())) $ int => buff.pos;
(Math.sin(grain.last() * pi)) => buff.gain;
((((grain.last() + .5 ) % 1.) * grain_size * 44.1) + (speed.last()
* buff.samples())) $ int => buff2.pos;
(Math.sin(((grain.last() + .5 ) % 1.)* pi)) => buff2.gain;
1::samp => now;
}
В ближайшем будущем планирую писать статьи. Если кто интересуется присоединяйтесь.Будем Чакистами 
|
|
Мастер
Сообщений: 804
Комментариев: 68
Оценок: 17
Треков: 2
|
Re: ChucK
« Дата: 08/10/12 3:17 »
|
|
|
Второй код [они шредами в Чаке называются], простенький фм синт который играет рендомную хуйню. 
Собственно сам синт:
public class FM22 {
SinOsc mod => SinOsc s;
2 => s.sync;
s.freq() * 7.5 => mod.freq;
1000 => mod.gain;
.2 => s.gain;
public void connect (UGen ugen) {
s => ugen;
}
public void pit(float f) {
f => s.freq;
}
}
----------------------------------
И рендомный секвенсор:
FM22 synth1;
Gain g => ADSR e => JCRev rev => dac;
e.set (1::ms, 50::ms, .5, 1::second);
.1 => rev.mix;
synth1.connect(g);
[0,2,4,7,9,12] @=> int pitch [];
while (true) {
synth1.pit(Std.mtof(pitch[Std.rand2(0,pitch.cap()-
1)] + 72));
e.keyOn();
100::ms => now;
e.keyOff();
Std.rand2f(0.12, 0.25)::second => now;
}
---------------------------------
Присоединяйтесь товарищи, кодить в Чаке это минимум весело
|
|
Живущий здесь
 
Сообщений: 2106
Комментариев: 984
Оценок: 212
Треков: 40
|
Re: ChucK
« Дата: 08/10/12 8:02 »
|
|
|
А примеры звуков будут интересненько послушать
|
|
Мастер
Сообщений: 804
Комментариев: 68
Оценок: 17
Треков: 2
|
Re: ChucK
« Дата: 08/10/12 11:45 »
|
|
|
Я пока записывать не умею (кажется надо использовать функцию write) , но запишу выложу, звуки ничего особенного но ведь это только начало 
|
|
Мастер
Сообщений: 804
Комментариев: 68
Оценок: 17
Треков: 2
|
Re: ChucK
« Дата: 24/01/13 23:14 »
|
|
|
Забил на чак, изучаю SuperCollider )) Что поделаешь, я импильсивен :]
|
