sr = 44100 kr = 441 ksmps = 100 nchnls = 2 instr 1 kreadline line 0, p3, p3 lorisread kreadline, "D2-ff.sdif", 1, 1, 1, 1, .001 kliner line p4, p3, p5 kcurveline line p4/200, p3, p5/200 ktransposeline line p6, p3, ((p6-1)*0.5)+1 lorisfrqenvelope 1, 1, kcurveline, kliner, 1, 3*kliner, ktransposeline, 5*kliner, 1 lorisampenvelope 1, 1, kcurveline, kliner, -12, 3*kliner, p7, 5*kliner, -12 ar lorisplay 1, 1, 1, 1 kenvelope linseg 0, 0.01, 1, p3-0.01, 0 outs ar*kenvelope, ar*kenvelope endin i1 0 5 543 137 1.089 7 i1 5 . 100 716 1.062 -8 i1 10 . 57 299 1.081 8 i1 15 . 446 61 1.031 5 i1 20 7 800 30 1.052 15