You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

101 lines
2.5 KiB

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

Ndef(\testSignal).set(\gain, 0.1);
(
Ndef(\freeze1).play;
Ndef(\freeze2).play;
Ndef(\freeze3).play;
)
// FREEZE1
(
// Статические параметры. Не меняются
Ndef(\freeze1).set(\attack, 4.0);
Ndef(\freeze1).set(\release, 4.0);
// Динамические параметри. Меняются.
Ndef(\freeze1).set(\amp, 0.3);
Ndef(\freeze1).set(\envGate, 1);
Ndef(\freeze1).set(\pan, 0.0);
// Сброс фриза
Ndef(\freeze1).set(\freezeGate, 0);
Ndef(\freeze1).set(\freezeGate, 1);
(
Ndef(\freeze1).set(\freezeGate, 0);
Ndef(\freeze1).set(\freezeGate, 1);
)
// Крутим НА САУНДЧЕКЕ!!!
// После не трогать!!!
Ndef(\freeze1).set(\limLevel, 0.003);
// Настройки питчшифтера
//Рабочие значения (для freeze1 поверх замороженного спектра):
//Чуть расстроенные (биения между слоями, «расщеплённый» звук):
//- \range1 = 1.0, \range2 = 1.0125 → синтонная комма 81/80, лёгкое «волнение»
//- \range1 = 1.0, \range2 = 1.024 → диезис 128/125
//- \range1 = 1.0, \range2 = 1.0293 → четвертьтон 2^(1/24)
3
//Чистые нетемперированные интервалы (классика just intonation, даёт «странный» консонанс/диссонанс):
//- 16/15 = 1.0667 (малая секунда)
//- 25/24 = 1.0417 (хроматический полутон)
//- 21/20 = 1.05
//- 28/27 = 1.0370
//Тричетвертьтон и около:
//- 2^(3/24) = 1.0905
//- 7/6 = 1.1667, 8/7 = 1.1429 (септимальные интервалы — звучат «не по-нашему»)
Ndef(\freeze1).set(\shift, 2.0);
Ndef(\freeze1).set(\wet10, 1.0);
)
(
Ndef(\freeze3).put(10, \filter -> {
|in|
var sig = 0;
var shLocal = LocalIn.ar(2);
var shPitched = PitchShift.ar(
shLocal + (in * \shSend.kr(0.5)),
\shWindow.kr(0.2),
\shRatio.kr(4),
0.01, 0.01
);
var shVerb = FreeVerb.ar(
shPitched,
\shVerbMix.kr(0.3),
\shRoom.kr(0.85),
\shDamp.kr(0.9)
);
LocalOut.ar(shVerb * \shFb.kr(0.3));
sig = (shVerb * \shimmer.kr(0.3));
sig;
});
)
(
)
(
Ndef(\freeze1).stop;
Ndef(\freeze2).stop;
Ndef(\freeze3).stop;
)
NdefMixer
n = NdefMixer(s);
// FREEZE3
// NB! Очень громкий!!!
Ndef(\freeze3).set(\amp, 0.1);
Ndef(\freeze3).set(\freezeGate, 0);
// Ближе к 1 - апекствин
Ndef(\freeze3).set(\ampGate, 0.001);