@profile ..\tc.pro
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
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
l;aSig oscili kEnv, kPitch, giSineFunc
laSig oscili kEnv, kPitch, 1
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 taken from duration to reach full amplitude
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
@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  t0
.C+ t1
.C++ t2
.C+++ t3
.C# t4
.Db t5
.D--- t6
.D-- t7
.D- t8
.D  t9
.D+ t10
.D# t11
.Ebb t12
.Eb t13
.E--- t14
.E-- t15
.E- t16
.E  t17
.E+ t18
.E# t19
.Fb t20
.F- t21
.F t22
.F++ t24
.F+++ t25
.Gb t26
.F# t27
.G--- t28
.G-- t29
.G- t30
.G t31
.G+ t32
.G++ t33
.Ab t34
.G# t35
.A--- t36
.A-- t37
.A- t38
.A t39
.A+ t40
.A# t41
.Bbbb t42
.Bbb t43
.Bb t44
.B--- t45
.B-- t46
.B- t47
.B t48
.B+ t49
.B++ t50
.B+++ t51
.B# t52
@ 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 26/19
@ 25 11/8
@ 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 25 31 37 43 48 53
@  0    17    31          53
@      +17   +14         +22
@     9    25       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
@
@ major slides
.slid-maj3-u-a135 t+0g+0&gls9:8.        t+17g+17&gls11:10. t+14g+14&gls7:6.
.slid-maj3-u-a351 o-1t+17g+17&gls11:10. t+14g+14&gls7:6.   t+22g+22&gls9:8.
.slid-maj3-u-a513 o-1t+31g+31&gls7:6.   t+22g+22&gls9:8.   t+17g+17&gls11:10.
.slid-maj3-u-b247 t+9g+9&gls10:9.       t+16g+16&gls12:11. t+18g+18&gls8:7.
.slid-maj3-u-b472 o-1t+25g+25&gls12:11.     t+18g+18&gls8:7.   t+19g+19&gls10:9.
.slid-maj3-u-b724 o-1t+43g+43&gls8:7.   t+19g+19&gls10:9.  t+16g+16&gls12:11.
.slid-maj3-d-a135 t+0g+0&gls7:8.        t+17g+17&gls9:10.  t+14g+14&gls11:12.
.slid-maj3-d-a351 o-1t+17g+17&gls9:10.  t+14g+14&gls11:12. t+22g+22&gls7:8.
.slid-maj3-d-a513 o-1t+31g+31&gls11:12. t+22g+22&gls7:8.   t+17g+17&gls9:10.
.slid-maj3-d-b247 t+9g+9&gls8:9.        t+16g+16&gls10:11. t+18g+18&gls6:7.
.slid-maj3-d-b472 o-1t+25g+25&gls10:11. t+18g+18&gls6:7.   t+19g+19&gls8:9.
.slid-maj3-d-b724 o-1t+43g+43&gls6:7.   t+19g+19&gls8:9.   t+16g+16&gls10:11.
@ 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-8-7 t-6g-6
.mins-7-6 t-5g-5
.mins-6-5 t-5g-5
.mins-5-4 t-9g-9
.mins-4-3 t-8g-8
.mins-3-2 t-7g-7
.mins-2-1 t-7g-7
@ 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 t+0g+0 t+14g+14 t+17g+17
.min3-u-a351 o-1t+14g+14 t+17g+17 t+22g+22
.min3-u-a513 o-1t+31g+31 t+22g+22 t+14g+14
@
.min3-d-a531 o+1t+31g+31 t-17 t-14
.min3-d-a153 o+1t+0g+0 t-22g-22 t-17
.min3-d-a315 t+14g+14 t-14 t-22g-22
@
.min3-u-b247 t+7g+7 t+15 t+19g+19
.min3-u-b472 o-1t+22g+22 t+19g+19 t+19g+19
.min3-u-b724 o-1t+41g+41 t+19g+19 t+15
@
.min3-d-b742 o+1t+41g+41 t-19g-19 t-15
.min3-d-b274 o+1t+7g+7  t-19g-19 t-19g-19
.min3-d-b427 t+22g+22    t-15 t-19g-19
@ 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
@
@
.key t0g0
.sin1 c1a0u0&sine-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-oct*.&sine-pva.&key.
.sin2 c2a0u0&sine-vel.v-5&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-oct*.&sine-pva.&key.
.sin3 c3a0u0&sine-vel.&panl*.&panr*.&sine-env*.&sine-ran*.h0&sine-oct*.&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
.sine-vel v72
.sine-ran r16
.sine-oct o2
.sine-pva p33
.sine-env e1
.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
.sin1-144-1a &sin1.d12&sine-hol12*.o+1&maj3-u-a*. &key.&maj3-u-a*. &key.&maj3-u-b*. &key.&maj3-d-a*.
.sin1-144-1b &sin1.d12&sine-hol12*.o+1&maj3-d-a*.d24&sine-hol24*. &key.o+1&maj3-d-a*.d12&sine-hol12*. &key.o-1&maj3-d-a*.
.sin1-144-1c &sin1.d12&sine-hol12*.o+1&maj3-d-a*.d24&sine-hol24*. &key.o-1&maj3-d-a*.d12&sine-hol12*. &key.&maj3-d-b*.
.sin1-144-1d &sin1.d16&sine-hol12*.o+1&maj3-d-a*. &sin1.d16&sine-hol12*.o+1&maj3-d-b*. &sin1.d16&sine-hol12*.o+1&maj3-d-a*.
.sin1-144-1z &sin1.d144r0
.sin2-144-1a &sin2.d0&sine-hol24*.o+2&maj3-u-a*. &key.o+1&maj3-u-a*.d24 &key.d0&sine-hol48*.o-1&maj3-u-b*. o+1&key.&maj3-u-b*.d48 &key.d0&sine-hol24*.o-1&maj3-u-a*. o+1&key.&maj3-u-a*.d24 &key.d0&sine-hol48*.o-1&maj3-u-b*. &key.&maj3-u-b*.d48
.sin2-144-1b &sin2.d0h48o+2&maj3-u-a*. &key.o+1&maj3-u-a*.d48 &key.d0&sine-hol48*.o-1&maj3-u-b*. &key.o+1&maj3-u-b*.d48 &key.d0&sine-hol48*.o-1&maj3-u-a*. &key.o+1&maj3-u-a*.d48
.sin2-144-1c &sin2.d0h96e48o+2&maj3-u-a*. &key.o+1&maj3-u-a*.d96 &key.d0h24e1o-1&maj3-u-b*. &key.o+1&maj3-u-b*.d24 &key.d0&sine-hol24*.o-1&maj3-u-b*. &key.o+1&maj3-u-b*.d24
.sin2-144-1d &sin2.d0h144e72o+1&maj3-u-a*. &key.o+1&maj3-u-a*.d144
.sin2-144-1e &sin2.d0h288e144&maj3-u-a*. &key.o+1&maj3-u-a*.d144
.sin2-144-1f &sin2.d0h576e288o+1&maj3-u-a*. &key.o+1&maj3-u-a*.d144
.sin2-144-1g &sin2.d0&sine-hol12*.o+1&maj3-u-a*.d12 d0&sine-hol24*.&key.&maj3-u-b*.d36 d0&sine-hol12*.&key.&maj3-u-a*.d12 d0&sine-hol24*.&key.&maj3-u-b*.d36 d0&sine-hol12*.&key.&maj3-u-a*.d12 d0&sine-hol24*.&key.&maj3-u-b*.d36
.sin2-144-1h &sin2.d0&sine-hol12*.o+1&maj3-u-a*.d16 d0&sine-hol24*.&key.&maj3-u-a*.d32 d0&sine-hol12*.o+1&key.&maj3-u-a*.d16 d0&sine-hol24*.&key.&maj3-u-a*.d32 d0&sine-hol12*.o+1&key.&maj3-u-a*.d16 d0&sine-hol24*.&key.&maj3-u-a*.d32
.sin2-144-1z &sin2.d144r0
.sin3-144-1a &sin3.d144o-1
.sin3-144-1b &sin3.d144o-2
.sin3-144-1c &sin3.d96o-1 &majs-1-5.o-1d12 &majs-5-6. &majs-6-7. &majs-7-8.
.sin3-144-1d &sin3.d48o-1 &majs-1-5.o-1d24 &majs-5-6. &majs-6-7. &majs-7-8.
.sin3-144-1z &sin3.d144r0
&sin1-144-1z. &sin2-144-1e. &sin3-144-1z.
&sin1-144-1z. &sin2-144-1z. &sin3-144-1b.
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
.sine-pva p25
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
.sine-pva p34
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
.sine-pva p18
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
.sine-pva p33
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
&sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*. &sin1-144-1*. &sin2-144-1*. &sin3-144-1*.
&sin1-144-1z. &sin2-144-1f. &sin3-144-1z.
&sin1-144-1z. &sin2-144-1z. &sin3-144-1b.
&sin1-144-1z. &sin2-144-1z. &sin3-144-1z.
&sin1-144-1z. &sin2-144-1z. &sin3-144-1z.