After 5.07 sr = 96000; set sample rate in score as well kr = 96000 ksmps = 1 nchnls = 2 #define fundamental #15.37#; choose a fundamental frequency 30 Hz or below (infrasound allowed) ; define placement of sequences on channels, one value must be 0, the other 1 #define opt1 #0#; choose 1 for Fibonacci on left channel, 0 for right #define opt2 #1#; choose 1 for Lucas on left channel, 0 for right ;must be defined in score below with same values as well #define fftsize #262144# #define overlap #8192# #define normalize #1#; normalize if necessary, 1 is normally OK (dynamic level changable) ;set tempo in score below ;the following 10 macros are not changable #define lpartial #ip4=$fundamental*p4# #define upartial #ip5=$fundamental*p5# #define fftdelay #idel=($fftsize+($overlap*2))/sr# #define envelope #aenv linseg 0, idel, 0, p6, 1, p3-p6-p6-idel, 1, p6, 0# #define white(seed) #arnd rand 32767, $seed, 1# #define fftanal #fsig pvsanal arnd, $fftsize, $overlap, $fftsize, 1# #define cutoff #aflt linseg 0, idel, ip4, p3-idel, ip5# #define bandpass #fbps pvsbandp fsig, ip4*.999, ip4, aflt, aflt*1.001# #define resynth #atps pvsynth fbps# #define output #outs $normalize*$opt1*atps*aenv, $normalize*$opt2*atps*aenv# #define output2 #outs $normalize*$opt2*atps*aenv, $normalize*$opt1*atps*aenv# instr 1 $lpartial $upartial $fftdelay $envelope $white(.05) $fftanal $cutoff $bandpass $resynth $output endin instr 2 $lpartial $upartial $fftdelay $envelope $white(.075) $fftanal $cutoff $bandpass $resynth $output endin instr 3 $lpartial $upartial $fftdelay $envelope $white(.7) $fftanal $cutoff $bandpass $resynth $output endin instr 4 $lpartial $upartial $fftdelay $envelope $white(.6) $fftanal $cutoff $bandpass $resynth $output endin instr 5 $lpartial $upartial $fftdelay $envelope $white(.88) $fftanal $cutoff $bandpass $resynth $output endin instr 6 $lpartial $upartial $fftdelay $envelope $white(.91) $fftanal $cutoff $bandpass $resynth $output endin instr 7 $lpartial $upartial $fftdelay $envelope $white(.28) $fftanal $cutoff $bandpass $resynth $output endin instr 8 $lpartial $upartial $fftdelay $envelope $white(.55) $fftanal $cutoff $bandpass $resynth $output endin instr 9 $lpartial $upartial $fftdelay $envelope $white(.08) $fftanal $cutoff $bandpass $resynth $output endin instr 10 $lpartial $upartial $fftdelay $envelope $white(.98) $fftanal $cutoff $bandpass $resynth $output endin instr 11 $lpartial $upartial $fftdelay $envelope $white(.02) $fftanal $cutoff $bandpass $resynth $output endin instr 12 $lpartial $upartial $fftdelay $envelope $white(.017) $fftanal $cutoff $bandpass $resynth $output endin instr 13 $lpartial $upartial $fftdelay $envelope $white(.022) $fftanal $cutoff $bandpass $resynth $output endin instr 101 $lpartial $upartial $fftdelay $envelope $white(.05) $fftanal $cutoff $bandpass $resynth $output2 endin instr 102 $lpartial $upartial $fftdelay $envelope $white(.075) $fftanal $cutoff $bandpass $resynth $output2 endin instr 103 $lpartial $upartial $fftdelay $envelope $white(.7) $fftanal $cutoff $bandpass $resynth $output2 endin instr 104 $lpartial $upartial $fftdelay $envelope $white(.6) $fftanal $cutoff $bandpass $resynth $output2 endin instr 105 $lpartial $upartial $fftdelay $envelope $white(.88) $fftanal $cutoff $bandpass $resynth $output2 endin instr 106 $lpartial $upartial $fftdelay $envelope $white(.91) $fftanal $cutoff $bandpass $resynth $output2 endin instr 107 $lpartial $upartial $fftdelay $envelope $white(.28) $fftanal $cutoff $bandpass $resynth $output2 endin instr 108 $lpartial $upartial $fftdelay $envelope $white(.55) $fftanal $cutoff $bandpass $resynth $output2 endin instr 109 $lpartial $upartial $fftdelay $envelope $white(.08) $fftanal $cutoff $bandpass $resynth $output2 endin instr 110 $lpartial $upartial $fftdelay $envelope $white(.98) $fftanal $cutoff $bandpass $resynth $output2 endin instr 111 $lpartial $upartial $fftdelay $envelope $white(.02) $fftanal $cutoff $bandpass $resynth $output2 endin instr 112 $lpartial $upartial $fftdelay $envelope $white(.017) $fftanal $cutoff $bandpass $resynth $output2 endin instr 113 $lpartial $upartial $fftdelay $envelope $white(.022) $fftanal $cutoff $bandpass $resynth $output2 endin #define sr #96000#; must be the same as in orchestra ; must be the same as in orchestra; used to calculate fft-delay #define fftsize #262144# #define overlap #8192# #define bpm #259#; set tempo here; version with Butterworth filters recommended for very fast tempi t 0 $bpm i1 0 [ (1 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 1 2 .0205 i2 1 [ (2 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 2 3 .0203 i3 3 [ (3 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 3 5 .0198 i4 6 [ (5 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 5 8 .0187 i5 11 [ (8 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 8 13 .0171 i6 19 [ (13 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 13 21 .0152 i7 32 [ (21 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 21 34 .0123 i8 53 [ (34 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 34 55 .0098 i9 87 [ (55 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 55 89 .0079 i10 142 [ (89 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 89 144 .006 i11 231 [ (144 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 144 233 .0043 i12 375 [ (233 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 233 377 .0034 i13 608 [ (377 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 377 610 .003 i101 0 [ (1 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 1 3 .0205 i102 1 [ (3 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 3 4 .0198 i103 4 [ (4 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 4 7 .0192 i104 8 [ (7 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 7 11 .0178 i105 15 [ (11 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 11 18 .0159 i106 26 [ (18 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 18 29 .0131 i107 44 [ (29 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 29 47 .0103 i108 73 [ (47 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 47 76 .0083 i109 120 [ (76 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 76 123 .0065 i110 196 [ (123 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 123 199 .0046 i111 319 [ (199 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 199 322 .0037 i112 518 [ (322 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 322 521 .0031 i113 840 [ (521 + (($fftsize + ($overlap * 2)) / $sr) * ($bpm / 60)) ] 521 843 .0029 e