Blue Ghosts are Fine Fixins
Jacob Joaquin
May 21, 2010
jacobjoaquin@gmail.com
csoundblog.com

<CsoundSynthesizer>
<CsInstruments>
sr     = 44100
kr     = 44100
ksmps  = 1
nchnls = 1

0dbfs = 1

gi_tri ftgen 2, 0, 256, -7, 0, 64, 1, 128, -1, 64, 0

instr 1
    p3 = 0.48938

    kenv expseg 2, 0.14938, 15, 0, 8, 0.17, 22, 0, 13, 0.17, 28
    aenv linseg 1, p3 - 0.02, 1, 0.2, 0

    kphasor phasor 1 / 0.01625
    ktrig trigger kphasor, 0.5, 0
    ksamp samphold kenv, ktrig
 
    a1 oscil 0.5, 1 / (0.01625 / int(ksamp)), gi_tri, -1
    out a1 * aenv
endin

</CsInstruments>
<CsScore>

i 1 0 1

</CsScore>
</CsoundSynthesizer>