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