sr = 44100 kr = 44100 ksmps = 1 nchnls = 1 #define fundamental #10.8#; choose a fundamental frequency 30 Hz or below (infrasound allowed) #define normalize #1#; normalize if necessary, 1 is normally OK (dynamic level changable) ; set tempo in score below itmp ftgen 1, 0, 16384, 10, 1 instr 1 ip4 = $fundamental*p4; partial ip5 = $fundamental*p5; partial aenv linen 1, p6, p3, p6; envelope arnd rand 32767, 2, 1; white noise kfreq line ip4, p3, ((ip5-ip4)/2)+ip4; calculate sweep frequency ares1 butbp arnd, kfreq, (kfreq-ip4)*2.58; implement filters ares2 butbp ares1, kfreq, (kfreq-ip4)*2.58; ares3 butbp ares2, kfreq, (kfreq-ip4)*2.58; ares4 butbp ares3, kfreq, (kfreq-ip4)*2.58; ares5 butbp ares4, kfreq, (kfreq-ip4)*2.58; ares6 butbp ares5, kfreq, (kfreq-ip4)*2.58; ares7 butbp ares6, kfreq, (kfreq-ip4)*2.58; ares8 butbp ares7, kfreq, (kfreq-ip4)*2.58; iran1 random .005, .014 iran2 random 88, 107 iran3 random 63, 85 iran4 random 67, 100 kamp transeg iran2, p3*iran1, -2, iran3, p3*(.019-iran1), -2, iran4, p3*.031, 3, 0, p3*.95, 0, 0; aosc poscil3 kamp, ip4, 1 out $normalize*(ares8+aosc)*aenv endin #define bpm #1290#; choose a tempo in bpm, must be 1450 or below (base note value .04138 seconds or greater) t 0 $bpm i1 0 1 0 0 0; silence i1 + 1 1 2 .0205 i1 + 2 2 3 .0203 i1 + 3 3 5 .0198 i1 + 5 5 8 .0187 i1 + 8 8 13 .0171 i1 + 13 13 21 .0152 i1 + 21 21 34 .0123 i1 + 34 34 55 .0098 i1 + 55 55 89 .0079 i1 + 89 89 144 .006 i1 + 144 144 233 .0043 i1 + 233 233 377 .0034 i1 + 377 377 610 .003 i1 + 1 0 0 0; silence e