sr
=
22050
kr
=
4410
ksmps
=
5
nchnls
=
1
instr
1
ibfrq
init
cpspch
(
8.07
)
icfrq
init
cpspch
(
p4
)
ir
=
icfrq
/
ibfrq
ktime
line
0
,
p3
,
0.765
asig
pvoc
ktime
,
ir
,
"
cat4b.pv
"
out
asig
*
sqrt
(
ir
)*
0.8
endin