sr = 96000 kr = 96000 ksmps = 1 nchnls = 2 #define fundamental #25.16#; 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 #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 outs $normalize*$opt1*(ares8+aosc)*aenv, $normalize*$opt2*(ares8+aosc)*aenv endin instr 2 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 outs $normalize*$opt2*(ares8+aosc)*aenv, $normalize*$opt1*(ares8+aosc)*aenv endin #define bpm #1089#; 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 i2 0 1 0 0 0; silence i2 + 1 1 3 .0205 i2 + 3 3 4 .0198 i2 + 4 4 7 .0192 i2 + 7 7 11 .0178 i2 + 11 11 18 .0159 i2 + 18 18 29 .0131 i2 + 29 29 47 .0103 i2 + 47 47 76 .0083 i2 + 76 76 123 .0065 i2 + 123 123 199 .0046 i2 + 199 199 322 .0037 i2 + 322 322 521 .0031 i2 + 521 521 843 .0029 i2 + 1 0 0 0; silence e