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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
<HTML>
<TITLE>XTRATIM</TITLE>
<CENTER><A NAME="xtratim"></A>
<HR><B><A HREF="../REFER.html">QUICK-REF</A></B> - <B><A HREF="../TITLE.html"><FONT SIZE=+1>C</FONT>soundManual</A>
- <A HREF="CONVERTERS.html">Top of this section</A></B> - <A HREF="./mclock.html">Previous</A>
- <A HREF="../CONTENTS.html">Contents</A> - <A HREF="../INDEX.html">Index</A>
- <A HREF="./ion.html">Next</A>
<HR></CENTER>
<H2>
xtratim, release</H2>
<PRE> <B>xtratim</B> iextradur
kflag <B>release</B></PRE>
<HR>
<H4>
<U>DESCRIPTION</U></H4>
Extend the duration of realtime generated events and handle their extra
life (see also linenr).
<H4>
<U>INITIALIZATION</U></H4>
<I>iextradur</I> - additional duration of current instrument instance
<H4>
<U>PERFORMANCE</U></H4>
<B>xtratim</B> exetends current MIDI-activated note duration of <I>iextradur</I>
seconds after the corresponding note-off message has deactivated current
note itself. This opcode has no output arguments.
<P><B>release</B> outputs current note state. If current note is in the
<B>release</B> stage (i.e. if its duration has been exetended with <B>xtratim</B>
opcode and if it has only just deactivated), kflag output argument is set
to 1, else (in sustain stage of current note) is set to 0. These two opcodes
are useful for implementing complex release-oriented envelopes.
<H4>
<U>EXAMPLE:</U></H4>
<PRE> instr 1 ;allows complex ADSR envelope with MIDI events
inum <B>notnum
</B> icps <B>cpsmidi
</B> iamp <B>ampmidi</B> 4000
;
;------- complex envelope block ------
<B>xtratim</B> 1 ;extra-time, i.e. release dur
krel <B>init</B> 0
krel <B>release</B> ;outputs release-stage flag (0 or 1 values)
if (krel > .5) kgoto rel ;if in relase-stage goto relase section
;
;************ attack and sustain section ***********
kmp1 <B>linseg</B> 0, .03, 1, .05, 1, .07, 0, .08, .5, 4, 1, 50, 1
kmp = kmp1*iamp
kgoto done
;
;--------- <B>release</B> section --------
rel:
kmp2 <B>linseg</B> 1, .3, .2, .7, 0
kmp = kmp1*kmp2*iamp
done:
;------
;
a1 <B>oscili</B> kmp, icps, 1
<B>out</B> a1
endin</PRE>
<H4>
<U>AUTHOR:</U></H4>
Gabriel Maldonado
<BR>Italy
<BR>May 1997
<CENTER><P>
<HR><B><A HREF="../REFER.html">QUICK-REF</A></B> - <B><A HREF="../TITLE.html"><FONT SIZE=+1>C</FONT>soundManual</A>
- <A HREF="CONVERTERS.html">Top of this section</A></B> - <A HREF="./mclock.html">Previous</A>
- <A HREF="../CONTENTS.html">Contents</A> - <A HREF="../INDEX.html">Index</A>
- <A HREF="./ion.html">Next</A>
<HR></CENTER>
<P><CENTER>
<B><I><FONT COLOR="#006600">HTML Csound Manual - <FONT SIZE=-1>©
Jean Piché & Peter J. Nix, 1994-97</FONT></FONT></I></B>
</CENTER>
</HTML>
|
