1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
{\rtf1\mac\ansicpg10000\cocoartf102
{\fonttbl\f0\fnil\fcharset77 Monaco;}
{\colortbl;\red255\green255\blue255;}
\pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720\ql\qnatural
\f0\fs18 \cf0 \{ LFPar.ar(LFPar.kr(LFPar.kr(0.2,0,8,10),0, 400,800),0,0.1) \}.play\
\{ LFPar.ar(LFPar.kr(0.2, 0, 400,800),0,0.1) \}.play\
\{ LFPar.ar(800,0,0.1) \}.play\
\{ LFPar.ar(XLine.kr(100,8000,30),0,0.1) \}.play\
\
\{ LFCub.ar(LFCub.kr(LFCub.kr(0.2,0,8,10),0, 400,800),0,0.1) \}.play\
\{ LFCub.ar(LFCub.kr(0.2, 0, 400,800),0,0.1) \}.play\
\{ LFCub.ar(800,0,0.1) \}.play\
\{ LFCub.ar(XLine.kr(100,8000,30),0,0.1) \}.play\
\
\{ SinOsc.ar(SinOsc.kr(SinOsc.kr(0.2,0,8,10),0, 400,800),0,0.1) \}.play\
\{ SinOsc.ar(SinOsc.kr(0.2, 0, 400,800),0,0.1) \}.play\
\{ SinOsc.ar(800,0,0.1) \}.play\
\{ SinOsc.ar(XLine.kr(100,8000,30),0,0.1) \}.play\
\
\{ LFTri.ar(LFTri.kr(LFTri.kr(0.2,0,8,10),0, 400,800),0,0.1) \}.play\
\{ LFTri.ar(LFTri.kr(0.2, 0, 400,800),0,0.1) \}.play\
\{ LFTri.ar(800,0,0.1) \}.play\
\{ LFTri.ar(XLine.kr(100,8000,30),0,0.1) \}.play\
\
\pard\tx480\tx960\tx1440\tx1920\tx2400\tx2880\tx3360\tx3840\tx4320\tx4800\tx5280\tx5760\tx6240\tx6720\tx7200\tx7680\tx8160\tx8640\tx9120\tx9600\tx10080\tx10560\tx11040\tx11520\tx12000\tx12480\tx12960\tx13440\tx13920\tx14400\tx14880\tx15360\tx15840\tx16320\tx16800\tx17280\tx17760\tx18240\tx18720\tx19200\tx19680\tx20160\tx20640\tx21120\tx21600\tx22080\tx22560\tx23040\tx23520\tx24000\tx24480\tx24960\tx25440\tx25920\tx26400\tx26880\tx27360\tx27840\tx28320\tx28800\tx29280\tx29760\tx30240\tx30720\tx31200\tx31680\tx32160\tx32640\tx33120\tx33600\tx34080\tx34560\tx35040\tx35520\tx36000\tx36480\tx36960\tx37440\tx37920\tx38400\tx38880\tx39360\tx39840\tx40320\tx40800\tx41280\tx41760\tx42240\tx42720\tx43200\tx43680\tx44160\tx44640\tx45120\tx45600\tx46080\tx46560\tx47040\tx47520\tx48000\ql\qnatural
\fs20 \cf0 \CocoaLigature0 \
forBy(0.0,2.0,0.1,\{ arg phase;\
var z, out;\
if (phase < 1.0, \{\
z = phase;\
\},\{\
if (phase < 2.0, \{\
z = 2.0 - phase;\
\},\{\
phase = phase - 2.0;\
z = phase;\
\})\});\
out = (z * z * (6.0 - (4.0 * z)) - 1.0);\
[phase, z, out].postln;\
\});\
\
\
\
}
|
