Fragments of a Bohlen-Pierce Composition Jacob Joaquin March 4, 2010 jacobjoaquin@gmail.com csound.noisepages.com sr = 44100 kr = 44100 ksmps = 1 nchnls = 2 0dbfs = 1.0 ; Tune Instruments # define TUNE # 264.99816498389697 # ; 440 * 3 ^ (-6 / 13) ; Instruments # define Init # 1 # # define Fade_Player # 2 # # define Fade_Synth # 3 # # define Fade_Player_2 # 4 # # define Fade_Synth_2 # 5 # # define Fade_Reverb # 6 # # define FM_Brass_Cycler # 7 # # define FM_Brass_Phase # 8 # # define FM_Brass # 9 # # define FM_Brass_Plus # 10 # # define FM_Brass_Echo # 11 # # define Foo # 12 # # define Foo_Fx # 13 # # define Bar # 14 # # define Bar_Fx # 15 # ; F-Tables # define T_Sine # 1 # ; Sine wave # define T_BP # 13 # ; Just intonation Bohlen-Pierce scale # define T_Theme_Pitches # 20 # ; Theme pitches # define T_Theme_2 # 21 # ; Theme pitches # define T_Phase # 22 # ; Phase table of notes and pauses ; Sine wave gitemp ftgen $T_Sine, 0, 2 ^ 16, 10, 1 ; Just Intonation Bohlen-Pierce Tuning gitemp ftgen $T_BP, 0, 64, -2, 13, 3, $TUNE, 60, \ 1, \ 27 / 25, \ 25 / 21, \ 9 / 7, \ 7 / 5, \ 75 / 49, \ 5 / 3, \ 9 / 5, \ 49 / 25, \ 15 / 7, \ 7 / 3, \ 63 / 25, \ 25 / 9, \ 3 ; Note tables gitemp ftgen $T_Theme_Pitches, 0, -5, -2, 0, 1, 3, 6, 7 gitemp ftgen $T_Theme_2, 0, 8, -2, 6, 3, 0, 1, 3, 4, -1, -1 ; -1 == don't play ; Note table for FM_Phase gitemp ftgen $T_Phase, 0, -12, -2, 0, 1, -1, 7, -1, 6, 3, -1, 8, 10, 13, -1 zakinit 100, 100 opcode Get_Ratio, i, i i_interval xin iratio cpstuni 60 + i_interval, 13 iratio = iratio / $TUNE xout iratio endop opcode Get_Ratio_k, k, k k_interval xin kratio cpstun 1, 60 + k_interval, 13 kratio = kratio / $TUNE xout kratio endop instr $Init a0 = 0 ; Fade chn_a "verb_left", 3 chn_a "verb_right", 3 chnset a0, "verb_left" chnset a0, "verb_right" ; FM_Brass chn_a "FM_Brass_send", 3 chnset a0, "FM_Brass_send" ; Foo chn_a "Foo_send_left", 3 chn_a "Foo_send_right", 3 chnset a0, "Foo_send_left" chnset a0, "Foo_send_right" ; Bar chn_a "Bar_send_left", 3 chn_a "Bar_send_right", 3 chnset a0, "Bar_send_left" chnset a0, "Bar_send_right" turnoff endin instr $Fade_Player itime = p4 ; Time the Player instr is active ibase_dur = p5 ; Base duration of notes generated ibase_interval = p6 ; Base interval ibase_width = p7 ; Base interval width ; Play Synth iratio Get_Ratio int(rnd(14)) idur = ibase_dur * iratio iamp = rnd(0.7) + 0.2 ibase = ibase_interval + int(rnd(ibase_width)) i_interval = int(rnd(14)) iratio Get_Ratio int(rnd(14)) i_index = iratio idistance = 0.6 + rnd(0.4) ipan = rnd(1) event_i "i", $Fade_Synth, 0, idur, iamp, ibase, i_interval, i_index, \ idistance, ipan ; Play Player inext = idur * 0.4 itime = itime - inext if (itime > 0) then event_i "i", $Fade_Player, inext, 1, itime, ibase_dur, \ ibase_interval, ibase_width endif turnoff endin instr $Fade_Synth idur = p3 ; Duration iamp = p4 ; Amplitude ibase = p5 ; Base note iratio_interval = p6 ; Modulation ratio i_index = p7 ; Modulation index idistance = p8 ; Front to back, 0 .. 1 ipan = p9 ; Pan position ; Stream Bohlen-Pierce ratios iratio Get_Ratio iratio_interval ; Amp envelope iratio_env Get_Ratio int(rnd(12)) + 1 iratio_env = (iratio_env - 1) / 2 kenv expseg 0.001, idur * iratio_env, 1, idur * (1 - iratio_env), 0.001 ; FM synth kfreq cpstun 1, ibase, 13 a1 foscil iamp, kfreq, 1, iratio, i_index, $T_Sine a1 = a1 * kenv ; Pan aleft = a1 * sqrt(1 - ipan) aright = a1 * sqrt(ipan) ; Send to out and bus outs aleft * sqrt(1 - idistance), aright * sqrt(1 - idistance) chnmix aleft * sqrt(idistance), "verb_left" chnmix aright * sqrt(idistance), "verb_right" endin instr $Fade_Player_2 ibeat = p3 ; Duration itime = p4 * ibeat ; Time the Player instr is active ibase_dur = p5 ; Base duration of notes generated ibase_interval = p6 ; Base interval itable = p7 ; Table of stored pitches ; Play Synth iratio Get_Ratio int(rnd(14)) idur = ibase_dur * iratio iamp = rnd(0.7) + 0.2 ibase tab_i int(rnd(ftlen(itable))), itable print ibase ibase = ibase + ibase_interval print ibase i_interval = int(rnd(14)) iratio Get_Ratio int(rnd(14)) i_index = iratio idistance = 0.6 + rnd(0.4) ipan = rnd(1) event_i "i", $Fade_Synth, 0, idur, iamp, ibase, i_interval, i_index, \ idistance, ipan ; Play Player inext = idur * 0.4 itime = itime - inext if (itime > 0) then event_i "i", $Fade_Player_2, inext, 1, itime, ibase_dur, \ ibase_interval, itable endif turnoff endin instr $Fade_Synth_2 idur = p3 ; Duration iamp = p4 ; Amplitude ibase = p5 ; Base note iratio_interval = p6 ; Modulation ratio i_index = p7 ; Modulation index idistance = p8 ; Front to back, 0 .. 1 ienv_peak = p9 ; Peak of amp envelope, 0 .. 1 ipan = p10 ; Pan position ; Stream Bohlen-Pierce ratios iratio Get_Ratio iratio_interval ; Amp envelope kenv expseg 0.001, idur * ienv_peak, 1, idur * (1 - ienv_peak), 0.001 ; FM synth kfreq cpstun 1, ibase, 13 a1 foscil iamp, kfreq, 1, iratio, i_index, $T_Sine a1 = a1 * kenv ; Pan aleft = a1 * sqrt(1 - ipan) aright = a1 * sqrt(ipan) ; Send to out and bus outs aleft * sqrt(1 - idistance), aright * sqrt(1 - idistance) chnmix aleft * sqrt(idistance), "verb_left" chnmix aright * sqrt(idistance), "verb_right" endin instr $Fade_Reverb iroom_size = p4 ; Size of room idamp = p5 ; High frequency dampening aleft chnget "verb_left" aright chnget "verb_right" aleft delay aleft, 0.22 aright delay aright, 0.2 al, ar freeverb aright, aleft, iroom_size, idamp outs al, ar chnclear "verb_left" chnclear "verb_right" endin instr $FM_Brass_Cycler idur = p3 ; Duration iamp = p4 ; Amplitude ibase = p5 ; Base note itable = p6 ; Table of notes istart_rate = p7 ; Start rate of cycler iend_rate = p8 ; End rate of cycler ilength = ftlen(itable) arate expon istart_rate, idur, iend_rate aphasor phasor arate / ilength, 0.5 - 1 / sr kphasor downsamp aphasor ktrig trigger kphasor, 0.5, 1 kctr init 0 ktable tab kctr, itable ipeak = 0.5 kamp_env linseg iamp, idur * ipeak, iamp, idur * (1 - ipeak), iamp * 0.8 ksend_env linseg 0.6, idur * ipeak, 0.6, idur * (1 - ipeak), 0.3 if (ktrig == 1) then kctr = (kctr + 1) % ilength if (ktable >= 0) then kdel_r random 0, 0.03 kvel_r random 0.4, 0.55 kpan_r random 0, 1 event "i", $FM_Brass_Plus, kdel_r, 2, kamp_env, ktable + ibase, \ kvel_r, kpan_r, ksend_env endif endif endin instr $FM_Brass_Phase idur = p3 ; Duration iamp = p4 ; Amplitude ibase = p5 ; Base note itable = p6 ; Table of notes irate = p7 ; Rate of cycler idiv = 8 ilength = ftlen(itable) aphasor phasor irate / ilength * idiv, 0 kphasor downsamp aphasor ktrig trigger kphasor, 0.5, 1 kctr init 0 kc2 init 0 km2 init 2 ktable tab kctr, itable ktable2 tab kc2 % ilength, itable ktrig_inner init 0 ktrig_inner_2 init 0 ksubctr init 0 ipeak = 0.7 istart_send = 0.01 kenv_send linseg istart_send, idur * ipeak, istart_send, \ idur * (1 - ipeak), 1.8 if (ktrig == 1) then if (ktrig_inner) == 0 then if (kctr == 0) then event "i", $FM_Brass, 0, 0.125, iamp * 2, ibase - 13, 0.5, 0.9 endif if (ktable >= 0) then event "i", $FM_Brass_Plus, 0, 0.25, iamp, ktable + ibase, \ 0.5, 0.333, kenv_send endif kctr = (kctr + 1) % ilength endif if (ktrig_inner_2) == 0 then if (ktable2 >= 0) then event "i", $FM_Brass_Plus, 0, 0.25, iamp, ktable2 + ibase, \ 0.5, 0.666, kenv_send endif kc2 = (kc2 + 1) % ilength endif ; Offset second looper if (kc2 == 0) then ktrig_inner_2 = (ktrig_inner_2 + 1) % idiv endif ktrig_inner = (ktrig_inner + 1) % idiv ktrig_inner_2 = (ktrig_inner_2 + 1) % idiv endif endin instr $FM_Brass idur = p3 ; Duration iamp = p4 ; Amplitude ipch = p5 ; Pitch (in MIDI keynote) ivelocity = p6 ; Velocity of simulated key-stroke isend = p7 ; Fx send amount event_i "i", $FM_Brass_Plus, 0, idur, iamp, ipch, ivelocity, 0.5, isend endin instr $FM_Brass_Plus idur = p3 ; Duration iamp = p4 ; Amplitude ipch = p5 ; Pitch (in MIDI keynote) ivelocity = p6 ; Velocity of simulated key-stroke ipan = p7 ; Pan position ksend = p8 ; Fx send amount ; Frequency ifreq = $TUNE * 3 ^ ((ipch - 60) / 13) kindex linseg 1, idur, 0 ; FM Synth a1 foscil ivelocity, ifreq, 1, 1, 12 * ivelocity * kindex, \ $T_Sine ; Amp Envelope kamp linseg 0, 0.05, iamp, idur - 0.1, iamp, 0.05, 0 a1 = a1 * kamp ; Outputs outs a1 * sqrt(1 - ipan), a1 * sqrt(ipan) chnmix a1 * ksend, "FM_Brass_send" endin instr $FM_Brass_Echo iamp = p4 ; Amplitude itime = p5 ; Time of delay ifb = p6 ; Delay feedback amount iroom_size = p7 ; Size of room, for reverb idamp = p8 ; High frequency dampening of reverb ; Receive send signal from Synth a0 chnget "FM_Brass_send" ; Effects adelay delayr itime delayw a0 + adelay * ifb al, ar freeverb adelay, adelay, 0.1, 0.2 ; Outputs outs al * iamp, ar * iamp chnclear "FM_Brass_send" endin instr $Foo idur = p3 iamp = p4 * 0.7 ipch = p5 ivelocity = p6 isend = p7 ipan = 1 - ((70 - ipch) / (70 - 54)) irelease = 0.3 ; Frequency ifreq = $TUNE * 3 ^ ((ipch - 60) / 13) ifreq2 cpstuni ipch, 13 ; Envelopes kamp linsegr 0, 0.01, iamp, 0.08, iamp * 0.9, 0.6, 0.2, irelease, 0 kindex linsegr 1, idur, 0.1, irelease, 0 kindex2 expsegr 1, idur, 0.1, irelease, 0.001 ; FM Synth ivel_curve = ivelocity * 0.8 + 0.2 a1 foscil ivel_curve, ifreq, 1, 1, 10.5 * ivelocity * kindex, \ $T_Sine a2 foscil ivel_curve, ifreq2, 1, 2, 7 * ivelocity * kindex2, \ $T_Sine ; Mix a1 = (a1 + a2 * 0.45) * kamp * 0.75 ; Outputs aleft = a1 * sqrt(1 - ipan) aright = a1 * sqrt(ipan) outs aleft, aright chnmix aleft * isend, "Foo_send_left" chnmix aright * isend, "Foo_send_right" endin instr $Foo_Fx iamp = p4 ; Amplitude itime = p5 ; Time of delay ifb = p6 ; Delay feedback amount iroom_size = p7 ; Size of room, for reverb idamp = p8 ; High frequency dampening of reverb ; Receive send signal from Synth a0 chnget "Foo_send_left" a1 chnget "Foo_send_right" ; Effects adelay0 delayr itime delayw a0 + adelay0 * ifb adelay1 delayr itime * 0.995 delayw a1 + adelay1 * ifb al, ar freeverb adelay1, adelay0, iroom_size, idamp ; Outputs outs al * iamp, ar * iamp chnclear "Foo_send_left" chnclear "Foo_send_right" endin instr $Bar idur = p3 ; Duration iamp = p4 ; Amplitude ipch = p5 ; Pitch ivelocity = p6 ; Velocity ksend = p7 ; Fx Send ipan = 0.5 irelease = idur * 0.1 ; Frequency ifreq = $TUNE * 3 ^ ((ipch - 60) / 13) ;kindex linseg 1, idur, 0 kindex linsegr 1, idur, 0.2, irelease, 0 ; FM Synth a1 foscil ivelocity, ifreq * 1.002, 1, 1, 12 * ivelocity * kindex, \ $T_Sine a2 foscil ivelocity, ifreq * 0.998 * 2, 1, 1, 7 * ivelocity * kindex, \ $T_Sine ; Amplitude envelope kamp linsegr 0, 0.05, iamp, idur, iamp, irelease, 0 a1 = (a1 + a2) * kamp * 0.5 ; Outputs aleft = a1 * sqrt(1 - ipan) aright = a1 * sqrt(ipan) outs aleft, aright chnmix aleft, "Bar_send_left" chnmix aright, "Bar_send_right" endin instr $Bar_Fx iamp = p4 ; Amplitude itime = p5 ; Time of delay ifb = p6 ; Delay feedback amount iroom_size = p7 ; Size of room, for reverb idamp = p8 ; High frequency dampening of reverb ; Receive send signal from Synth a0 chnget "Bar_send_left" ; Effects adelay delayr itime delayw a0 + adelay * ifb al, ar freeverb adelay, adelay, 0.1, 0.2 ; Outputs outs al * iamp, ar * iamp chnclear "Bar_send_left" chnclear "Bar_send_right" endin ; Instruments # define Init # 1 # # define Fade_Player # 2 # # define Fade_Synth # 3 # # define Fade_Player_2 # 4 # # define Fade_Synth_2 # 5 # # define Fade_Reverb # 6 # # define FM_Brass_Cycler # 7 # # define FM_Brass_Phase # 8 # # define FM_Brass # 9 # # define FM_Brass_Plus # 10 # # define FM_Brass_Echo # 11 # # define Foo # 12 # # define Foo_Fx # 13 # # define Bar # 14 # # define Bar_Fx # 15 # ; F-Tables # define T_Sine # 1 # ; Sine wave # define T_BP # 13 # ; Just intonation Bohlen-Pierce scale # define T_Theme_Pitches # 20 # ; Theme pitches # define T_Theme_2 # 21 # ; Theme pitches # define T_Phase # 22 # ; Phase table of notes and pauses i $Init 0 1 ; ---- Fragment 1 ---- t 0 80 ; Turn on echo effects i $FM_Brass_Echo 0 160 1 0.333 0.5 0.2 0.2 i $Fade_Reverb 0 160 0.7 0.7 i $FM_Brass 0 1 1 56 0.3 0.5 i $FM_Brass 1 1.5 1 63 0.35 . i $FM_Brass 2.5 0.5 1 62 0.3 . i $FM_Brass 3 1 0.9 59 0.28 0.9 i $FM_Brass 8 0.5 1.2 59 0.32 0.5 i $FM_Brass 8.5 1 . 57 0.3 . i $FM_Brass 9.5 0.5 . 62 0.32 0.3 i $FM_Brass 10 2 1.02 62 0.35 0.2 i $Fade_Synth_2 9.25 3 0.5 62 11 4 0.7 0.9 0.5 i $FM_Brass 16 1 1 56 0.3 0.5 i $FM_Brass 17 1.5 1 63 0.35 . i $FM_Brass 18.5 0.5 1 62 0.3 . i $FM_Brass 19 1 0.9 59 0.28 0.9 i $FM_Brass 24 0.5 1.2 59 0.32 0.5 i $FM_Brass 24.5 1 . 57 0.3 . i $FM_Brass 25.5 0.5 . 62 0.32 0.3 i $FM_Brass 26 2 1.02 62 0.35 0.2 i $Fade_Synth_2 18.9 1 0.5 59 6 4 0.7 0.05 0.5 i $Fade_Synth_2 25.5 12 0.5 67 6 4 0.7 0.5 0.5 i $FM_Brass 32 1 1 56 0.3 0.5 i $FM_Brass 33 1.5 1 63 0.35 . i $FM_Brass 34.5 0.5 1 62 0.3 . i $FM_Brass 35 1 0.9 59 0.28 0.9 i $FM_Brass 40 0.5 1.2 59 0.32 0.5 i $FM_Brass 40.5 1 . 57 0.3 . i $FM_Brass 41.5 0.5 . 62 0.32 0.3 i $FM_Brass 42 2 1.02 62 0.35 0.8 i $Fade_Synth_2 32 8 0.5 43 0 4 0.7 0.4 0.5 i $Fade_Synth_2 38 4 0.5 62 0 10 0.7 0.9 0.5 i $FM_Brass 48 1 1 56 0.3 0.5 i $FM_Brass 49 1.5 1 63 0.35 . i $FM_Brass 50.5 0.5 1 62 0.3 . i $FM_Brass 51 4 0.9 59 0.28 0.9 i $Fade_Synth_2 42 14 0.5 46 0 4 0.7 0.95 0.5 ; ---- Fragment 2 ---- i $Fade_Player_2 56 1 6 0.6 56 $T_Theme_Pitches i $FM_Brass 60 1 1 42 0.3 0.8 i $FM_Brass 61 3 1 40 0.3 0.8 i $FM_Brass 64 0.5 1 42 0.3 0.8 i $FM_Brass 64.5 0.5 1 40 0.3 0.8 i $FM_Brass 65 3 1 39 0.3 0.8 i $Fade_Player_2 68 1 2 0.2 69 $T_Theme_Pitches i $FM_Brass 76 1 1 42 0.3 0.8 i $FM_Brass 77 3 1 40 0.3 0.8 i $FM_Brass 80 0.5 1 42 0.3 0.8 i $FM_Brass 80.5 0.5 1 40 0.3 0.8 i $FM_Brass 81 4 1 45 0.3 0.8 i $FM_Brass 82.5 1 0.4 63 0.3 0.8 i $FM_Brass 83.0 1 0.4 62 0.3 0.8 i $FM_Brass 83.5 1 0.4 57 0.3 0.8 i $FM_Brass 84.0 1 0.4 59 0.3 0.8 i $FM_Brass 84.5 1 0.4 63 0.3 0.8 i $FM_Brass 85.0 3 0.4 62 0.3 0.8 i $Fade_Synth_2 76 9 0.5 66 10 10 0.7 0.95 0.5 i $Fade_Synth_2 87 9 0.5 45 6 6 0.7 0.01 0.5 i $Fade_Synth_2 87.5 9 0.7 45 1 2 0.1 0.01 0.5 i $Fade_Synth_2 90 11 0.1 60 11 6 0.8 0.99 0.5 ; ---- Fragment 3 ---- i $FM_Brass 98.5 1 0.4 62 0.3 0.8 i $FM_Brass 99.0 1 0.4 59 0.3 0.8 i $FM_Brass 99.5 1 0.4 56 0.3 0.8 i $FM_Brass 100.0 1 0.4 57 0.3 0.8 i $FM_Brass 100.5 1 0.4 59 0.3 0.8 i $FM_Brass 101.0 4 0.4 60 0.3 0.8 i $FM_Brass 103.0 3 0.8 43 0.3 0.8 i $FM_Brass_Cycler 103 32 0.125 56 $T_Theme_2 12 100 i $Fade_Synth_2 135 9 0.5 45 6 6 0.7 0.01 0.5 i $Fade_Synth_2 135.5 9 0.7 45 1 2 0.1 0.01 0.5 i $FM_Brass 142.0 1 0.4 63 0.3 0.8 i $FM_Brass 142.5 1 0.4 62 0.3 0.8 i $FM_Brass 143.0 1 0.4 57 0.3 0.8 i $FM_Brass 143.5 1 0.4 59 0.3 0.8 i $FM_Brass 144.0 1 0.4 63 0.3 0.8 i $FM_Brass 144.5 3 0.4 62 0.3 0.8 i $FM_Brass 150.0 1 0.4 62 0.3 0.8 i $FM_Brass 150.5 1 0.4 59 0.3 0.8 i $FM_Brass 151.0 1 0.4 56 0.3 0.8 i $FM_Brass 151.5 1 0.4 57 0.3 0.8 i $FM_Brass 152.0 1 0.4 59 0.3 0.8 i $FM_Brass 153.0 0.5 0.4 57 0.3 0.8 i $FM_Brass 153.5 3 0.4 62 0.3 0.8 s 160 ; ---- Fragment 4 ---- t 0 55 i $Foo_Fx 0 43 1 0.373 0.5 0.6 0.9 i $Foo 0.0 0.371657 0.5 57 0.155118 0.4 i $Foo 0.348267 0.371657 0.5 59 0.193701 0.4 i $Foo 0.674378 0.347393 0.5 62 0.281102 0.4 i $Foo 1.021729 0.324943 0.5 57 0.225197 0.4 i $Foo 1.34668 0.416103 0.5 59 0.307087 0.4 i $Foo 1.671875 0.325170 0.5 62 0.307087 0.4 i $Foo 1.997009 0.371430 0.5 57 0.496063 0.4 i $Foo 2.321961 0.371657 0.5 59 0.519685 0.4 i $Foo 2.623779 0.348300 0.5 62 0.566929 0.4 i $Foo 2.972107 0.464404 0.5 57 0.574803 0.4 i $Foo 3.320374 0.394787 0.5 59 0.409449 0.4 i $Foo 3.668701 0.905637 0.5 62 0.433071 0.4 i $Foo 5.688843 0.394787 0.5 64 0.393701 0.4 i $Foo 6.03717 0.328118 0.5 66 0.409449 0.4 i $Foo 6.362305 0.278683 0.5 69 0.291339 0.4 i $Foo 6.664124 0.394787 0.5 64 0.409449 0.4 i $Foo 6.989319 0.371430 0.5 66 0.496063 0.4 i $Foo 7.31427 0.301813 0.5 69 0.519685 0.4 i $Foo 7.639404 0.441047 0.5 64 0.566929 0.4 i $Foo 8.010864 0.364400 0.5 66 0.173228 0.4 i $Foo 8.359131 0.185713 0.5 69 0.354331 0.4 i $Foo 8.800415 1.044853 0.5 69 0.149606 0.4 i $Foo 10.286377 0.394787 0.5 57 0.440945 0.4 i $Foo 10.634644 0.371657 0.5 59 0.188976 0.4 i $Foo 10.936707 0.324943 0.5 62 0.440945 0.4 i $Foo 11.285034 0.371430 0.5 57 0.511811 0.4 i $Foo 11.609924 0.417917 0.5 59 0.393701 0.4 i $Foo 11.958252 0.301813 0.5 62 0.196850 0.4 i $Foo 12.283447 0.441047 0.5 57 0.496063 0.4 i $Foo 12.608337 0.371657 0.5 59 0.566929 0.4 i $Foo 12.933533 0.301813 0.5 64 0.566929 0.4 i $Foo 13.28186 0.371430 0.5 62 0.433071 0.4 i $Foo 13.669768 0.378683 0.5 64 0.518110 0.4 i $Foo 13.978455 0.325170 0.5 66 0.629921 0.4 i $Foo 14.303589 0.394560 0.5 64 0.554331 0.4 i $Foo 14.651917 0.371430 0.5 66 0.566929 0.4 i $Foo 14.953735 0.278683 0.5 69 0.491339 0.4 i $Foo 15.255554 0.417917 0.5 64 0.425197 0.4 i $Foo 15.603821 0.353969 0.5 66 0.566929 0.4 i $Foo 15.919006 0.334921 0.5 69 0.574803 0.4 i $Foo 16.253967 0.371657 0.5 64 0.519685 0.4 i $Foo 16.579102 0.371430 0.5 66 0.566929 0.4 i $Foo 16.904053 0.394787 0.5 69 0.519685 0.4 i $Foo 17.298828 1.207423 0.5 70 0.519685 0.9 i $Foo 19.644165 0.394560 0.5 62 0.449606 0.4 i $Foo 19.992493 0.371430 0.5 64 0.409449 0.4 i $Foo 20.317444 0.348300 0.5 66 0.393701 0.4 i $Foo 20.665711 0.371657 0.5 62 0.519685 0.4 i $Foo 20.967529 0.348300 0.5 64 0.511811 0.4 i $Foo 21.292725 0.348300 0.5 66 0.511811 0.4 i $Foo 21.6875 0.487534 0.5 61 0.473228 0.4 i $Foo 22.05896 0.371657 0.5 64 0.393701 0.4 i $Foo 22.476868 0.418144 0.5 66 0.386614 0.4 i $Foo 22.871643 0.882283 0.5 61 0.519685 0.4 i $Foo 23.730835 0.394787 0.5 59 0.496063 0.4 i $Foo 24.079102 0.371430 0.5 57 0.440945 0.4 i $Foo 24.450562 0.441274 0.5 59 0.357480 0.4 i $Foo 24.822205 0.301813 0.5 62 0.291339 0.4 i $Foo 25.170471 0.394787 0.5 57 0.496063 0.4 i $Foo 25.541931 0.441274 0.5 59 0.393701 0.4 i $Foo 25.913574 0.348300 0.5 62 0.393701 0.4 i $Foo 26.331482 0.394787 0.5 56 0.496063 0.4 i $Foo 26.702942 0.417917 0.5 59 0.440945 0.4 i $Foo 27.051209 0.394787 0.5 62 0.496063 0.4 i $Foo 27.445984 0.487534 0.5 56 0.496063 0.4 i $Foo 27.863892 0.371657 0.5 59 0.511811 0.4 i $Foo 28.28186 0.418144 0.5 62 0.354331 0.4 i $Foo 28.676636 0.464404 0.5 55 0.226614 0.4 i $Foo 29.112915 0.422906 0.5 59 0.222992 0.4 i $Foo 29.512695 0.371430 0.5 62 0.149606 0.4 i $Foo 29.953735 0.417917 0.5 55 0.131496 0.4 i $Foo 30.302002 0.534017 0.5 59 0.291339 0.4 i $Foo 30.696777 0.348300 0.5 62 0.275591 0.4 i $Foo 31.091614 0.534017 0.5 55 0.519685 0.4 i $Foo 31.532654 0.510890 0.5 59 0.496063 0.4 i $Foo 31.950745 0.464404 0.5 62 0.519685 0.4 i $Foo 32.391785 0.557370 0.5 55 0.637795 0.4 i $Foo 32.879578 0.464404 0.5 59 0.574803 0.4 i $Foo 33.367127 0.580498 0.5 62 0.307087 0.4 i $Foo 33.924439 0.696586 0.5 54 0.519685 0.4 i $Foo 34.644165 0.882283 0.5 57 0.433071 0.4 i $Foo 35.456909 0.789548 0.5 59 0.511811 0.4 i $Foo 36.269592 1.323512 0.5 57 0.291339 0.4 i $Foo 37.593201 2.623616 0.5 62 0.149606 0.9 s 45 ; ---- Fragment 5 ---- t 0 80 i $FM_Brass_Echo 0 85 1 0.666 0.7 0.2 0.2 i $Fade_Reverb 0 136 0.7 0.7 i $FM_Brass_Phase 0 71 0.15 56 $T_Phase 64 i $Fade_Synth_2 4 5 0.5 66 0 4 0.7 0.9 0.5 i $Fade_Synth_2 4 5 0.5 69 0 4 0.7 0.9 0.5 i $Fade_Synth_2 13 5 0.5 66 0 4 0.7 0.9 0.5 i $Fade_Synth_2 13 5 0.5 64 0 4 0.7 0.9 0.5 i $Fade_Synth_2 21 5 0.5 62 0 4 0.7 0.9 0.5 i $Fade_Synth_2 21 5 0.5 64 0 4 0.7 0.9 0.5 i $Fade_Synth_2 30 5 0.5 62 0 4 0.7 0.9 0.5 i $Fade_Synth_2 30 5 0.5 59 0 4 0.7 0.9 0.5 i $Fade_Synth_2 39 5 0.5 57 0 4 0.7 0.9 0.5 i $Fade_Synth_2 39 5 0.5 59 0 4 0.7 0.9 0.5 i $Fade_Synth_2 48 20 0.5 54 0 6 0.7 0.3 0.5 i $Fade_Synth_2 48 20 0.5 59 0 6 0.7 0.3 0.5 i $Fade_Synth_2 66.03129 3 0.5 70 11 6 0.9 0.999 0.5 i $Fade_Synth_2 69.03129 10 0.5 57 11 6 0.9 0.001 0.5 i $FM_Brass 69.03129 1 0.5 43 0.5 0.9 ; ---- Fragment 6 ---- i $Bar_Fx 79 60 1 0.333 0.5 0.2 0.2 i $Fade_Synth_2 76 20 0.5 43 0 6 0.9 0.2 0.5 i $Bar 79 1 1 56 0.3 0.5 i $Bar 80 1.5 1 63 0.35 . i $Bar 81.5 0.5 1 62 0.3 . i $Bar 82 1.5 0.9 59 0.28 0.9 i $Fade_Synth_2 82.25 10 1 49 0 4 0.7 0.9 0.7 i $Bar 87 0.5 1.2 59 0.32 0.5 i $Bar 87.5 1 . 57 0.3 . i $Bar 88.5 0.5 . 62 0.32 0.3 i $Bar 89 3 1.02 62 0.35 0.2 i $Fade_Synth_2 92 18 0.5 50 0 6 0.9 0.2 0.5 i $Bar 95 1 1 56 0.3 0.5 i $Bar 96 1.5 1 63 0.35 . i $Bar 97.5 0.5 1 62 0.3 . i $Bar 98 2 0.9 59 0.28 0.9 i $Fade_Synth_2 100 13 0.5 46 0 6 0.9 0.2 0.5 i $Bar 103 0.5 1.2 59 0.32 0.5 i $Bar 103.5 1.2 . 57 0.28 . i $Bar 104.7 0.75 . 62 0.25 0.3 i $Bar 105.27 6.5 1.02 62 0.20 0.2 i $Fade_Synth_2 106 24 0.5 43 0 6 0.9 0.2 0.5 i $Bar 114 1.5 1 56 0.13 0.8 i $Bar 115.5 5 1 54 0.1 0.9