@profile ..\tc.pro
l; name: tobiah 04/24/09  2:27pm
l; name: tobiah 04/22/09  9:24am
l; name: tobiah 04/18/09  8:39am
l<CsoundSynthesizer>
l
l<CsOptions>
l-W -G -m2 -+y -o sflib\tobiah.wav
l</CsOptions>
l
l<CsInstruments>
l;    [Csnd] Short Composition Challenge
l;    Posted by: "Tobiah" toby@tobiah.org
l;    Mon Apr 13, 2009 6:34 pm (PDT)
l;
l;
l;    I have an idea for a brief informal contest. Given a simple,
l;    one-oscillator orchestra, provide a score which produces the
l;    most beautiful piece.
l;
l;    I offer an orchestra that I crafted for the purpose
l;    of this event. One can make use of very limited
l;    envelope an pan controls. Obviously, the craft will
l;    be in the score generation program (although one is
l;    welcome to hand edit her entry!).
l;
l;    If there is interest, I suggest a seven day window
l;    for this challenge. Only the scores should be
l;    submitted at first. We can look at source code
l;    later. For large scores, a URL might be best. I can host
l;    scores if you send them to me in an archive format.
l;
l;    Thanks,
l;
l;    Toby
l
lsr = 44100
lksmps = 1
lnchnls = 2
l
l;giSineFunc ftgen 1, 0, 65536, 10, 1
lgiSineFunc = 1
l
linstr 1
l
l;***** INIT SECTION *****
liDur init p3
liVol init p4
liStartPitch init p5
liEndPitch init p6
l
liAttack init p7
liDecay init iDur - iAttack
l
liPanStart init p8
liPanEnd init p9
lprint iAttack, iVol, iDecay
l
l;***** SYNTH SECTION *****
lkEnv linseg 0, iAttack, iVol, iDecay, 0
lprint iStartPitch, iDur, iEndPitch
lkPitch expseg iStartPitch, iDur, iEndPitch
laSig oscili kEnv, kPitch, giSineFunc
l
lkPan linseg iPanStart, iDur, iPanEnd
lprint iPanStart, iDur, iPanEnd
l
laLeft = aSig * kPan
laRight = aSig * (1 - kPan)
l
lprint p4, p5, p6, p7, p8, p9
louts aLeft, aRight
l
lendin
l</CsInstruments>
l
l<CsScore>
l;p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
l;   start
l;      duration
l;         volume
l;            start pitch in hz
l;               end pitch in hz
l;                  attack as the time % of duration
l;                     pan start between 0 and 1
l;                        pan end between 0 and 1
l;p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
lf1 0 65536 10 1
@ pretend there is an instrument for one channel
n1m41
n2m41
n3m41
n4m41
@lt0 60
.panl-0 s0
.panl-2 s2
.panl-4 s4
.panl-6 s6
.panl-8 s8
.panl-10 s10
.panl-12 s12
.panl-14 s14
.panl-16 s15
.panr-0 w1
.panr-2 w2
.panr-4 w4
.panr-6 w6
.panr-8 w8
.panr-10 w10
.panr-12 w12
.panr-14 w14
.panr-16 w16
.C  t0g0
.C+ t1g1
.C++ t2g2
.C+++ t3g3
.C# t4g4
.Db t5g5
.D--- t6g6
.D-- t7g7
.D- t8g8
.D  t9g9
.D+ t10g10
.D# t11g11
.Ebb t12g12
.Eb t13g13
.E--- t14g14
.E-- t15g15
.E- t16g16
.E  t17g17
.E+ t18g18
.E# t19g19
.Fb t20g20
.F- t21g21
.F t22g22
.F++ t24g24
.F+++ t25g25
.Gb t26g26
.F# t27g27
.G--- t28g28
.G-- t29g29
.G- t30g30
.G t31g31
.G+ t32g32
.G++ t33g33
.Ab t34g34
.G# t35g35
.A--- t36g36
.A-- t37g37
.A- t38g38
.A t39g39
.A+ t40g40
.A# t41g41
.Bbbb t42g42
.Bbb t43g43
.Bb t44g44
.B--- t45g45
.B-- t46g46
.B- t47g47
.B t48g48
.B+ t49g49
.B++ t50g50
.B+++ t51g51
.B# t52g52
@ 0 1/1
@ 1 77/76
@ 2 39/38
@ 3 26/25
@ 4 20/19
@ 5 16/15
@ 6 13/12
@ 7 12/11
@ 8 10/9
@ 9 9/8
@ 10 8/7
@ 11 15/13
@ 12 7/6
@ 13 19/16
@ 14 6/5
@ 15 28/23
@ 16 16/13
@ 17 5/4
@ 18 19/15
@ 19 9/7
@ 20 13/10
@ 21 25/19
@ 22 4/3
@ 23 27/20
@ 24 11/8
@ 25 18/13
@ 26 59/42
@ 27 10/7
@ 28 16/11
@ 29 19/13
@ 30 37/25
@ 31 3/2
@ 32 38/25
@ 33 20/13
@ 34 39/25
@ 35 30/19
@ 36 8/5
@ 37 13/8
@ 38 23/14
@ 39 5/3
@ 40 27/16
@ 41 12/7
@ 42 26/15
@ 43 7/4
@ 44 16/9
@ 45 9/5
@ 46 42/23
@ 47 24/13
@ 48 15/8
@ 49 19/10
@ 50 25/13
@ 51 37/19
@ 52 75/38
@ 53 2/1
@   C  (0 + 53)  - 17 = 36
@   Ab 36        - 14 = 22
@   F  22        - 12 = 10
@   D# (10 + 53) - 19 = 44
@   Bb 44        - 16 = 28
@   Gb 28        - 12 = 16
@   E  16        - 11 = 5
@   D  5         - 5  = 0
@   C  0
@ major triads
@  otonality major
@  1  2  3  4  5  6  7  8  0
@  0  9 17 24 31 37 43 48 53
@  0    17    31          53
@      +17   +14         +22
@     9    24       43        62
@         +16      +18       +19
@ major scale
.maj1-a1 t+0g+0
.maj1-b2 t+9g+9
.maj1-a3 t+17g+17
.maj1-b4 t+24g+24
.maj1-a5 t+31g+31
.maj1-c6 t+37g+37
.maj1-b7 t+43g+43
.maj1-c8 t+48g+48
.majs-1-2 t+9g+9
.majs-1-3 t+17g+17
.majs-2-3 t+8g+8
.majs-2-4 t+15g+15
.majs-3-4 t+7g+7
.majs-3-5 t+14g+14
.majs-4-5 t+7g+7
.majs-4-7 t+19g+19
.majs-5-6 t+6g+6
.majs-5-7 t+12g+12
.majs-5-1 t+22g+22
.majs-6-7 t+6g+6
.majs-7-8 t+5g+5
.majs-7-1 t-43g-43
.majs-7-2 t+19g+19
.majs-8-1 t+5g+5
.majs-2-1 t-9g-9
.majs-3-1 t-17g-17
.majs-3-2 t-8g-8
.majs-4-2 t-15g-15
.majs-4-3 t-7g-7
.majs-5-3 t-14g-14
.majs-5-4 t-7g-7
.majs-7-4 t-19g-19
.majs-6-5 t-6g-6
.majs-7-5 t-12g-12
.majs-1-5 t+31g+31
.majs-7-6 t-6g-6
.majs-8-7 t-5g-5
.majs-1-7 t+43g+43
.majs-2-7 t+34g+34
.majs-1-8 t+48g+48
@
.maj3-u-a135 &maj1-a1. &majs-1-3. &majs-3-5.
.maj3-u-a351 o-1&maj1-a3. &majs-3-5. &majs-5-1.
.maj3-u-a513 o-1&maj1-a5. &majs-5-1. &majs-1-3.
@
.maj3-d-a531 &maj1-a5. &majs-5-3. &majs-3-1.
.maj3-d-a153 o+1&maj1-a1. &majs-1-5. &majs-5-3.
.maj3-d-a315 o+1&maj1-a3. &majs-3-1. &majs-1-5.
@
.maj3-u-b247 &maj1-b2. &majs-2-4. &majs-4-7.
.maj3-u-b472 o-1&maj1-b4. &majs-4-7. &majs-7-2.
.maj3-u-b724 o-1&maj1-b7. &majs-7-2. &majs-2-4.
@
.maj3-d-b742 &maj1-b7. &majs-7-4. &majs-4-2.
.maj3-d-b274 o+1&maj1-b2. &majs-2-7. &majs-7-4.
.maj3-d-b427 o+1&maj1-b4. &majs-4-2. &majs-2-7.
@ major fourths
@ up
.maj4-u-147 t+0g+0 t+24g+24 t+19g+19
.maj4-u-251 t+9g+9 t+22g+22 t+22g+22
.maj4-u-372 t+17g+17 t+26g+26 t+19g+19
.maj4-u-483 t+24g+24 t+24g+24 t+22g+22
.maj4-u-514 t+31g+31 t+22g+22 t+24g+24
.maj4-u-725 t+43g+43 t+19g+19 t+22g+22
.maj4-u-836 t+48g+48 t+22g+22 t+20g+20
@ down
.maj4-d-741 t+0g+0 t-19g-19 t-24g-24
.maj4-d-152 t+9g+9 t-22g-22 t-22g-22
.maj4-d-273 t+17g+17 t-19g-19 t-26g-26
.maj4-d-384 t+24g+24 t-22g-22 t-24g-24
.maj4-d-415 t+31g+31 t-24g-24 t-22g-22
.maj4-d-526 t+37g+37 t-22g-22 t-25g-25
.maj4-d-637 t+43g+43 t-20g-20 t-27g-27
.maj4-d-748 t+48g+48 t-19g-19 t-29g-29
@
@ new slide method
@  otonality major
@  1  2  3  4  5  6  7  8  0
@  0  9 17 25 31 37 43 48 53
@  0    17    31          53
@      +17   +14         +22
@     9    25       43        62
@         +16      +18       +19
.slid-maj3-u-a135 t+0g+9      t+17g+16 t+14g+18
.slid-maj3-u-a351 o-1t+17g+25 t+14g+18 t+22g+19
.slid-maj3-u-a513 o-1t+31g+43 t+22g+18 t+17g+16
.slid-maj3-u-b247 t+9g+17     t+16g+14 t+18g+22
.slid-maj3-u-b472 o-1t+25g+31 t+18g+22 t+19g+17
.slid-maj3-u-b724 o-1t+43g+53 t+19g+17 t+16g+14
.slid-maj3-d-a135 t+0g-10     t+17g+16 t+14g+18
.slid-maj3-d-a351 o-1t+17g+9  t+14g+14 t+22g+22
.slid-maj3-d-a513 o-1t+31g+25 t+22g+18 t+17g+19
.slid-maj3-d-b247 t+9g+0      t+16g+17 t+18g+14
.slid-maj3-d-b472 o-1t+25g+17 t+18g+14 t+19g+22
.slid-maj3-d-b724 o-1t+43g+31 t+19g+22 t+16g+17
@ minor scale
.min1-a1 t+0g+0
.min1-b2 t+7g+7
.min1-a3 t+14g+14
.min1-b4 t+22g+22
.min1-a5 t+31g+31
.min1-c6 t+36g+36
.min1-b7 t+41g+41
.min1-c8 t+47g+47
.mins-1-2 t+7g+7
.mins-2-3 t+7g+7
.mins-3-4 t+8g+8
.mins-4-5 t+9g+9
.mins-5-6 t+5g+5
.mins-6-7 t+5g+5
.mins-7-8 t+6g+6
.mins-8-1 t+6g+6
.mins-1-8 t-6g-6
.mins-1-3 t+14g+14
.mins-1-5 t-22g-22
.mins-8-7 t-6g-6
.mins-7-6 t-5g-5
.mins-7-2 t+19g+19
.mins-7-4 t-19g-19
.mins-6-5 t-5g-5
.mins-5-4 t-9g-9
.mins-5-3 t-17g-17
.mins-5-1 t+22g+22
.mins-4-3 t-8g-8
.mins-4-2 t-15g-15
.mins-4-7 t+19g+19
.mins-3-2 t-7g-7
.mins-3-5 t+17g+17
.mins-3-1 t-14g-14
.mins-2-1 t-7g-7
.mins-2-4 t+15g+15
.mins-2-7 t-19g-19
@ minor triads
@  utonality minor
@  1 12  6  4  3  8 12 24  2
@  :  :  :  :  :  :  :  :  :
@  1 11  5  3  2  5  7 13  1
@  1  2  3  4  5  6  7  8  0
@  0  7 14 22 31 36 41 47 53
@  0    14    31          53
@      +14   +17         +22
@     7    22       41        60
@         +15      +19       +19
.min3-u-a135 &min1-a1. &mins-1-3. &mins-3-5.
.min3-u-a351 o-1&min1-a3. &mins-3-5. &mins-5-1.
.min3-u-a513 o-1&min1-a5. &mins-5-1. &mins-1-3.
@
.min3-d-a531 &min1-a5. &mins-5-3. &mins-3-1.
.min3-d-a153 o+1&min1-a1. &mins-1-5. &mins-5-3.
.min3-d-a315 o+1&min1-a3. &mins-3-1. &mins-1-5.
@
.min3-u-b247 &min1-b2. &mins-2-4. &mins-4-7.
.min3-u-b472 o-1&min1-b4. &mins-4-7. &mins-7-2.
.min3-u-b724 o-1&min1-b7. &mins-7-2. &mins-2-4.
@
.min3-d-b742 &min1-b7. &mins-7-4. &mins-4-2.
.min3-d-b274 o+1&min1-b2. &mins-2-7. &mins-7-4.
.min3-d-b427 o+1&min1-b4. &mins-4-2. &mins-2-7.
@ minor fourths
@ 1-4-7 has a 12 step 7th - not good
@.min4-u-147 t+0g+0 t+22g+22 t+19g+19
@ 1-4-8 has a 6 step 7th - maybe better
@ up
.min4-u-148 t+0g+0 t+22g+22 t+25g+25
.min4-u-251 t+7g+7 t+24g+24 t+22g+22
.min4-u-362 t+14g+14 t+22g+22 t+24g+24
.min4-u-473 t+22g+22 t+19g+19 t+26g+26
.min4-u-514 t+31g+31 t+22g+22 t+22g+22
.min4-u-625 t+36g+36 t+24g+24 t+24g+24
.min4-u-736 t+41g+41 t+26g+26 t+22g+22
.min4-u-847 t+47g+47 t+28g+28 t+19g+19
@ down
.min4-d-841 t+47g+47 t-25g-25 t-22g-22
.min4-d-152 t+0g+0 t-22g-22 t-24g-24
.min4-d-263 t+7g+7 t-24g-24 t-22g-22
.min4-d-374 t+14g+14 t-26g-26 t-19g-19
.min4-d-415 t+22g+22 t-22g-22 t-22g-22
.min4-d-526 t+31g+31 t-24g-24 t-24g-24
.min4-d-637 t+36g+36 t-22g-22 t-26g-26
.min4-d-748 t+41g+41 t-19g-19 t-28g-28
@
.slid-min3-u-a135 t+0g+7 t+14g+15 t+17g+19
.slid-min3-u-a351 t+17g+25 t+14g+18 t+22g+19
.slid-min3-u-a513 t+31g+43 t+22g+19 t+17g+16
.slid-min3-u-b247 t+9g+17 t+16g+14 t+18g+22
.slid-min3-u-b472 t+25g+31 t+18g+22 t+19g+17
.slid-min3-u-b724 t+43g+53 t+19g+17 t+16g+14
.slid-min3-d-a135 t+0g+43 t+17g+19 t+14g+16
.slid-min3-d-a351 t+17g+9 t+14g+16 t+22g+18
.slid-min3-d-a513 t+31g+25 t+22g+18 t+17g+19
.slid-min3-d-b247 t+9g+0 t+16g+17 t+18g+14
.slid-min3-d-b472 t+25g+17 t+18g+14 t+19g+22
.slid-min3-d-b724 t+43g+31 t+19g+22 t+16g+17
@
.key &C.
.sin1 c1a0u0&sin1-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-pva.&key.
.sin2 c2a0u0&sin2-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-pva.&key.
.sin3 c3a0u0&sin3-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-pva.&key.
.sin4 c4a0u0&sin4-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-pva.&key.
l;p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
l;   start
l;      duration - in seconds
l;         volume - in 0 to 255
l;            start pitch in hz - it will be a number from 0 to 52 which will have to combined with Octave to generate a pitch in Excell
l;               end pitch in hz - take p10 gliss and combine with octave to calculate hz
l;                  attack as the time to peak amp - envelope number in seconds
l;                     pan start between 0 and 1 - side  use a number from  0 to 16
l;                        pan end between 0 and 1 - 16 - side
l;p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
;Inst Start        Dur  Vel    start end   attac pan   panend
;p1   p2           p3   p4     p5    p6    p7    p8    p9
; start here
.sin1-vel v48
.sin2-vel v40
.sin3-vel v65
.sin4-vel v8
.sine-ran r16
.sine-oct o2
.sine-pva p33
.sine-env1 e1
.sine-env2 e2
.sine-env3 e3
.sine-env4 e4
.sine-env5 e5
.sine-env20 e20v+5
.sine-hol12a h6
.sine-hol12b h8
.sine-hol12c h12
.sine-hol12d h16
.sine-hol12e h36
.sine-hol24a h16
.sine-hol24b h24
.sine-hol24c h32
.sine-hol48a h32
.sine-hol48b h40
.sine-hol48c h48
@ minor
.quieter1 v-8
.quieter2 v-15
.sin1-min-144-1a &sin1.d12&sine-hol12*.o+1&min3-u-a*. &key.&min3-u-a*. &key.&min3-u-b*. &key.&min3-d-a*.
.sin1-min-144-1b &sin1.d12&sine-hol12*.o+1&min3-d-a*.d24&sine-hol24*. &key.o+1&min3-d-a*.d12&sine-hol12*. &key.o-1&min3-d-a*.
.sin1-min-144-1c &sin1.d12&sine-hol12*.o+1&min3-d-a*.d24&sine-hol24*. &key.&min3-d-a*.d12&sine-hol12*. &key.&min3-d-b*.
.sin1-min-144-1d &sin1.d16&sine-hol12*.o+1&min3-d-a*. &sin1.d16&sine-hol12*.o+1&min3-d-b*. &sin1.d16&sine-hol12*.o+1&min3-d-a*.
.sin1-min-144-1e &sin1.d0h148v-30&slid-min3-u-a*. v-5&key.o+1&slid-min3-u-a*.d144
.sin1-min-144-1f &sin1.d0h148v-30&slid-min3-d-b*. v-5&key.o+1&slid-min3-u-a*.d144
.sin1-min-144-1z &sin1.d144r0
.sin2-min-144-1a &sin2.d0&sine-hol24*.&min3-u-a*. &key.o+1&min3-u-a*.d24 &key.d0&sine-hol48*.&min3-u-b*. &key.o+1&min3-u-b*.d48 &key.d0&sine-hol24*.o+1&min3-u-a*. &key.o+1&min3-u-a*.d24 &key.d0&sine-hol48*.o+1&min3-u-b*. &key.o+1&min3-u-b*.d48
.sin2-min-144-1b &sin2.d0h96e50&min3-u-a*. &key.o+1&min3-u-a*.d96 &key.d0h24e1&min3-u-b*. &key.o+1&min3-u-b*.d24 &key.d0&sine-hol24*.&min3-u-b*. &key.o+1&min3-u-b*.d24
.sin2-min-144-1c &sin2.d0h144e20&quieter*.&min3-u-a*. &quieter*.e40&key.o+1&min3-u-a*. &quieter*.e60&key.o+2&min3-u-a*. &quieter*.e80&key.o+3&min3-u-a*.d144
.sin2-min-144-1d &sin2.d0&sine-hol12*.&min3-u-a*.d16 d0&sine-hol24*.&key.&min3-u-a*.d32 d0&sine-hol12*.&key.&min3-u-a*.d16 d0&sine-hol24*.&key.&min3-u-a*.d32 d0&sine-hol12*.&key.&min3-u-a*.d16 d0&sine-hol24*.&key.&min3-u-a*.d32
.sin2-min-144-1e &sin2.d0h288e20&quieter*.&min3-u-a*. &quieter*.e40&key.o+1&min3-u-a*. &quieter*.e60&key.o+2&min3-u-a*. &quieter*.e80&key.o+3&min3-u-a*.d144
.sin2-min-144-1f &sin2.d0&sine-hol12*.&min3-u-a*.d12 d0&sine-hol24*.&key.&min3-u-b*.d36 d0&sine-hol12*.&key.&min3-u-a*.d12 d0&sine-hol24*.&key.&min3-u-b*.d36 d0&sine-hol12*.&key.&min3-u-a*.d12 d0&sine-hol24*.&key.&min3-u-b*.d36
.sin2-min-144-1g &sin2.d0h576e20&quieter*.&min3-u-a*. &quieter*.e40&key.o+1&min3-u-a*. &quieter*.e60&key.o+2&min3-u-a*. &quieter*.e80&key.o+3&min3-u-a*.d144
.sin2-min-144-1z &sin2.d144r0
.sin3-min-144-1a &sin3.d144o-1
.sin3-min-144-1b &sin3.d144v+5o-2
.sin3-min-144-1c &sin3.d96o-1 &mins-1-5.o-1d12 &mins-5-6. &mins-6-7. &mins-7-8.
.sin3-min-144-1d &sin3.d48o-2 &mins-1-5.d24 &mins-5-6. &mins-6-7. &mins-7-8.
.sin3-min-144-1z &sin3.d144r0
.sin4-min-144-1a &sin4.d0e70h288v-4o+3d144
.sin4-min-144-1b &sin4.d0e70h288v-3o+4d144
.sin4-min-144-1c &sin4.d0e70h288v-2o+5d144
.sin4-min-144-1d &sin4.d0e70h288v-1o+6d144
.sin4-min-144-1z1 &sin4.d144r0
.sin4-min-144-1z2 &sin4.d144r0
.sin4-min-144-1z3 &sin4.d144r0
.sin4-min-144-1z4 &sin4.d144r0
.all-min-144-0a &sin1-min-144-1z. &sin2-min-144-1b. &sin3-min-144-1z. &sin4-min-144-1z*.
.all-min-144-0b &sin1-min-144-1z. &sin2-min-144-1e. &sin3-min-144-1b. &sin4-min-144-1z*.
.all-min-144-0c &sin1-min-144-1z. &sin2-min-144-1g. &sin3-min-144-1z. &sin4-min-144-1z*.
.all-min-144-0z &sin1-min-144-1z. &sin2-min-144-1z. &sin3-min-144-1z. &sin4-min-144-1z*.
.all-min-144-1a &sin1-min-144-1*. &sin2-min-144-1*. &sin3-min-144-1*. &sin4-min-144-1*.
@ 2a has no segment longer than 144 beats, like 1e or 1g do
.all-min-144-2a &sin1-min-144-1*. &sin2-min-144-1c. &sin3-min-144-1*. &sin4-min-144-1z*.
@ section 3 has more undertones
.sin1-min-144-3a &sin1.d12&sine-hol12*.o+1&min3-u-b*. &key.&min3-u-b*. &key.&min3-u-a*. &key.&min3-d-b*.
.sin1-min-144-3b &sin1.d12&sine-hol12*.o+1&min3-d-b*.d24&sine-hol24*. &key.o+1&min3-d-b*.d12&sine-hol12*. &key.o-1&min3-d-b*.
.sin1-min-144-3c &sin1.d12&sine-hol12*.o+1&min3-d-b*.d24&sine-hol24*. &key.&min3-d-b*.d12&sine-hol12*. &key.&min3-u-a*.
.sin1-min-144-3d &sin1.d16&sine-hol12*.o+1&min3-d-b*. &sin1.d16&sine-hol12*.o+1&min3-d-a*. &sin1.d16&sine-hol12*.o+1&min3-d-b*.
.sin1-min-144-3e &sin1.d0h148v-30&slid-min3-u-b*. v-5&key.o+1&slid-min3-u-b*.d144
.sin1-min-144-3f &sin1.d0h148v-30&slid-min3-d-b*. v-5&key.o+1&slid-min3-u-a*.d144
.sin1-min-144-3z &sin1.d144r0
.sin2-min-144-3a &sin2.d0&sine-hol24*.&min3-u-b*. &key.o+1&min3-u-b*.d24 &key.d0&sine-hol48*.&min3-u-a*. &key.o+1&min3-u-a*.d48 &key.d0&sine-hol24*.o+1&min3-u-b*. &key.o+1&min3-u-b*.d24 &key.d0&sine-hol48*.o+1&min3-u-a*. &key.o+1&min3-u-a*.d48
.sin2-min-144-3b &sin2.d0h96e50v-18&min3-u-b*. v-3&key.o+1&min3-u-b*. v-3&key.o+2&min3-u-b*.d96 &key.d0h24e1v+6&min3-u-a*. &key.o+1&min3-u-a*. &key.o+2v-6&min3-u-a*.d24 &key.d0&sine-hol24*.&min3-u-b*. &key.o+1v-6&min3-u-b*. &key.o+2&min3-u-b*.d24
.sin2-min-144-3c &sin2.d0h144e90v+10&quieter*.&min3-u-b*. &quieter*.e60&key.o+1&min3-u-b*. &quieter*.e30&key.o+2&min3-u-b*. &quieter*.e10&key.o+3&min3-u-b*.d144
.sin2-min-144-3d &sin2.d0&sine-hol12*.&min3-u-b*.d16 d0&sine-hol24*.&key.&min3-u-b*.d32 d0&sine-hol12*.&key.&min3-u-b*.d16 d0&sine-hol24*.&key.&min3-u-b*.d32 d0&sine-hol12*.&key.&min3-u-b*.d16 d0&sine-hol24*.&key.&min3-u-b*.d32
.sin2-min-144-3e &sin2.d0h288e90v+10&quieter*.&min3-u-b*. &quieter*.e70&key.o+1&min3-u-b*. &quieter*.e60&key.o+2&min3-u-b*. &quieter*.e50&key.o+3&min3-u-b*. &quieter*.e30&key.o+4&min3-u-b*. &quieter*.e10&key.o+5&min3-u-b*.d144
.sin2-min-144-3f &sin2.d0&sine-hol12*.&min3-u-b*.d12 d0&sine-hol24*.&key.&min3-u-a*.d36 d0&sine-hol12*.&key.&min3-u-b*.d12 d0&sine-hol24*.&key.&min3-u-a*.d36 d0&sine-hol12*.&key.&min3-u-b*.d12 d0&sine-hol24*.&key.&min3-u-a*.d36
.sin2-min-144-3g &sin2.d0h576e20v+10&quieter*.&min3-u-a*. &quieter*.e40&key.o+1&min3-u-a*. &quieter*.e60&key.o+2&min3-u-a*. &quieter*.e80&key.o+3&min3-u-a*. &quieter*.e80&key.o+4&min3-u-a*. &quieter*.e80&key.o+5&min3-u-a*.d144
.sin2-min-144-3z &sin2.d144r0
.sin3-min-144-3a &sin3.d144o-1
.sin3-min-144-3b &sin3.d144v+5o-2
.sin3-min-144-3c &sin3.d96o-1 &mins-1-5.o-1d12 &mins-5-6. &mins-6-7. &mins-7-8.
.sin3-min-144-3d &sin3.d48o-2 &mins-1-5.d24 &mins-5-6. &mins-6-7. &mins-7-8.
.sin3-min-144-3z &sin3.d144r0
.sin4-min-144-3a &sin4.d0e70h288v-4o+3d144&min1-b*.
.sin4-min-144-3b &sin4.d0e70h288v-3o+4d144&min1-b*.
.sin4-min-144-3c &sin4.d0e70h288v-2o+5d144&min1-b*.
.sin4-min-144-3d &sin4.d0e70h288v-1o+6d144&min1-b*.
.sin4-min-144-3z1 &sin4.d144r0
.sin4-min-144-3z2 &sin4.d144r0
.sin4-min-144-3z3 &sin4.d144r0
.sin4-min-144-3z4 &sin4.d144r0
.all-min-144-3a &sin1-min-144-3*. &sin2-min-144-3*. &sin3-min-144-3*. &sin4-min-144-3*.
@ 4a has no segment longer than 144 beats, like 3e or 3g do
.all-min-144-4a &sin1-min-144-3*. &sin2-min-144-3f. &sin3-min-144-3*. &sin4-min-144-3z*.
@ major
.sin1-maj-144-1e &sin1.d0h144e30o+1v-20&maj3-u-a*. v-8&key.o+1e50&maj3-u-a* v-8&key.o+2e70&maj3-u-a*. v-8&key.o+3e80&maj3-u-a*.d144
.sin1-maj-144-1z &sin1.d144r0
.sin2-maj-144-1d &sin2.d0h144e30o+1v-20&maj3-u-a*. v-8&key.o+1e50&maj3-u-a*. v-8&key.o+2e70&maj3-u-a*. v-8&key.o+3e80&maj3-u-a*.d144
.sin2-maj-144-1z &sin2.d144r0
.sin3-maj-144-1a &sin3.d144o-1
.sin3-maj-144-1b &sin3.d144v+5o-2
.sin3-maj-144-1c &sin3.d96o-1 &majs-1-5.o-1d12 &majs-5-6. &majs-6-7. &majs-7-8.
.sin3-maj-144-1d &sin3.d48o-1 &majs-1-5.o-1d24 &majs-5-6. &majs-6-7. &majs-7-8.
.sin3-maj-144-1z &sin3.d144r0
.sin4-maj-144-1a &sin4.d144o+3v-3
.sin4-maj-144-1b &sin4.d48o+3e1&maj3-u-a*.
.sin4-maj-144-1c &sin4.d48o+3e1&maj3-d-a*.
.sin4-maj-144-1z &sin4.d144r0
.all-maj-144-1a &sin1-maj-144-1e. &sin2-maj-144-1d. &sin3-maj-144-1*. &sin4-maj-144-1*.
@c/    /@   /m*
@ start slow
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p33
&all-min-144-2*. &all-min-144-2*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p33
&all-min-144-2*. &all-min-144-2*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ go to some of the 2-4-7 undertones or 6-8
.sine-pva p33
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p33
&all-min-144-4*. &all-min-144-4*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p33
&all-min-144-4*. &all-min-144-4*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ repeat the 1 & 3 sections backwards - 34 instead of 33
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p34
&all-min-144-2*. &all-min-144-2*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p34
&all-min-144-2*. &all-min-144-2*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ go to some of the 2-4-7 undertones or 6-8
.sine-pva p33
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p33
&all-min-144-4*. &all-min-144-4*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p34
&all-min-144-4*. &all-min-144-4*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ repeat the 1 & 3 sections with p2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-2*. &all-min-144-2*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-2*. &all-min-144-2*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ go to some of the 2-4-7 undertones or 6-8
.sine-pva p2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
&all-min-144-4*. &all-min-144-4*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p34
&all-min-144-4*. &all-min-144-4*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p25
&all-min-144-3*. &all-min-144-3*. &all-min-144-3*. &all-min-144-3*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.
@ repeat the beginning - start slow
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p33
&all-min-144-2*. &all-min-144-2*.
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p33
&all-min-144-2*. &all-min-144-2*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
.key &C.o3
&all-maj-144-1*.
.key &F.o2
&all-maj-144-1*.
.key &G.o2
&all-maj-144-1*.
.key &A.o2
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p25
&all-min-144-1*. &all-min-144-1*. &all-min-144-1*. &all-min-144-1*.
.sine-pva p2
&all-min-144-0c. &all-min-144-0b. &all-min-144-0z. &all-min-144-0a.