1<CsoundSynthesizer>
2<CsOptions>
3--env:SSDIR+=../SourceMaterials -odac
4</CsOptions>
5<CsInstruments>
6;Example by Joachim Heintz
7sr = 44100
8ksmps = 441
9nchnls = 2
100dbfs = 1
11
12giSine    ftgen     0, 0, 256, 10, 1; sine wave
13          seed      0; each time different seed
14
15  instr 1
16ktiminstk timeinstk ;time in control-cycles
17kcount    init      1
18 if ktiminstk == kcount * kr then; once per second table values manipulation:
19kndx      =         0
20loop:
21krand     random    -.1, .1;random factor for deviations
22kval      table     kndx, giSine; read old value
23knewval   =         kval + (kval * krand); calculate new value
24          tablew    knewval, kndx, giSine; write new value
25          loop_lt   kndx, 1, 256, loop; loop construction
26kcount    =         kcount + 1; increase counter
27 endif
28asig      poscil    .2, 400, giSine
29          outs      asig, asig
30  endin
31
32</CsInstruments>
33<CsScore>
34i 1 0 10
35</CsScore>
36</CsoundSynthesizer>
37