0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 70 #!/usr/bin/env p
0010: 79 74 68 6f 6e 0a 0a 66 72 6f 6d 20 5f 5f 66 75 ython..from __fu
0020: 74 75 72 65 5f 5f 20 69 6d 70 6f 72 74 20 64 69 ture__ import di
0030: 76 69 73 69 6f 6e 0a 69 6d 70 6f 72 74 20 6f 73 vision.import os
0040: 0a 69 6d 70 6f 72 74 20 72 61 6e 64 6f 6d 0a 69 .import random.i
0050: 6d 70 6f 72 74 20 73 79 73 0a 69 6d 70 6f 72 74 mport sys.import
0060: 20 74 69 6d 65 0a 72 61 6e 64 6f 6d 2e 73 65 65 time.random.see
0070: 64 28 74 69 6d 65 2e 74 69 6d 65 28 29 29 0a 69 d(time.time()).i
0080: 6d 70 6f 72 74 20 70 61 72 73 65 0a 0a 64 65 66 mport parse..def
0090: 20 6d 61 69 6e 28 29 3a 0a 20 20 20 20 6b 65 79 main():. key
00a0: 20 3d 20 22 41 22 0a 20 20 20 20 62 70 73 20 3d = "A". bps =
00b0: 20 38 30 2f 36 30 0a 20 20 20 20 70 72 69 6e 74 80/60. print
00c0: 20 62 70 73 0a 20 20 20 20 74 65 6d 70 6f 20 3d bps. tempo =
00d0: 20 31 2f 62 70 73 0a 20 20 20 20 6d 61 78 5f 64 1/bps. max_d
00e0: 75 72 61 74 69 6f 6e 20 3d 20 31 0a 0a 20 20 20 uration = 1..
00f0: 20 63 6f 6d 70 6f 73 69 74 69 6f 6e 20 3d 20 7b composition = {
0100: 0a 20 20 20 20 20 20 20 20 22 61 22 3a 20 7b 20 . "a": {
0110: 20 23 20 4d 6f 76 65 6d 65 6e 74 20 62 6c 6f 63 # Movement bloc
0120: 6b 20 27 61 27 20 66 6f 72 20 72 65 75 73 65 20 k 'a' for reuse
0130: 74 68 72 6f 75 67 68 6f 75 74 20 74 68 65 20 70 throughout the p
0140: 69 65 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 iece.
0150: 20 22 6d 65 6c 6f 64 79 22 3a 20 7b 20 20 23 20 "melody": { #
0160: 49 6e 73 74 72 75 6d 65 6e 74 20 27 6d 65 6c 6f Instrument 'melo
0170: 64 79 27 0a 20 20 20 20 20 20 20 20 20 20 20 20 dy'.
0180: 20 20 20 20 22 73 63 6f 72 65 5f 6c 69 6e 65 22 "score_line"
0190: 3a 20 22 69 32 20 25 28 74 69 6d 65 29 66 20 25 : "i2 %(time)f %
01a0: 28 64 75 72 61 74 69 6f 6e 29 66 20 37 30 30 30 (duration)f 7000
01b0: 20 25 28 6f 63 74 61 76 65 29 64 2e 25 28 6e 6f %(octave)d.%(no
01c0: 74 65 29 73 20 25 28 6f 63 74 61 76 65 29 64 2e te)s %(octave)d.
01d0: 25 28 6e 6f 74 65 29 73 20 30 20 36 22 2c 0a 20 %(note)s 0 6",.
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
01f0: 67 72 61 6d 6d 61 72 73 22 3a 20 7b 20 20 23 20 grammars": { #
0200: 4e 6f 74 65 73 20 66 6f 72 20 74 68 69 73 20 69 Notes for this i
0210: 6e 73 74 72 75 6d 65 6e 74 20 74 6f 20 75 73 65 nstrument to use
0220: 20 69 6e 20 74 68 69 73 20 70 69 65 63 65 0a 20 in this piece.
0230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0240: 20 20 20 22 75 22 3a 20 5b 22 49 20 56 20 56 20 "u": ["I V V
0250: 56 20 49 20 49 20 49 56 20 75 20 75 22 2c 20 22 V I I IV u u", "
0260: 49 20 49 56 20 75 20 75 22 2c 20 22 49 20 56 49 I IV u u", "I VI
0270: 49 20 49 56 20 75 20 75 22 20 20 2c 20 22 65 22 I IV u u" , "e"
0280: 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ],.
0290: 20 20 20 20 20 20 20 22 65 22 3a 20 5b 22 22 5d "e": [""]
02a0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
02b0: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 },.
02c0: 20 20 20 20 20 22 73 63 6f 72 65 22 3a 20 22 75 "score": "u
02d0: 20 75 20 75 20 75 20 75 22 2c 0a 20 20 20 20 20 u u u u",.
02e0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 },.
02f0: 20 20 20 20 20 20 22 72 68 79 74 68 6d 22 3a 20 "rhythm":
0300: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
0310: 20 20 22 73 63 6f 72 65 5f 6c 69 6e 65 22 3a 20 "score_line":
0320: 22 69 32 20 25 28 74 69 6d 65 29 66 20 25 28 64 "i2 %(time)f %(d
0330: 75 72 61 74 69 6f 6e 29 66 20 37 30 30 30 20 25 uration)f 7000 %
0340: 28 6f 63 74 61 76 65 29 64 2e 25 28 6e 6f 74 65 (octave)d.%(note
0350: 29 73 20 25 28 6f 63 74 61 76 65 29 64 2e 25 28 )s %(octave)d.%(
0360: 6e 6f 74 65 29 73 20 30 20 36 22 2c 0a 20 20 20 note)s 0 6",.
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 67 72 "gr
0380: 61 6d 6d 61 72 73 22 3a 20 7b 0a 20 20 20 20 20 ammars": {.
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
03a0: 75 22 3a 20 5b 27 22 49 22 20 22 69 69 22 2f 34 u": ['"I" "ii"/4
03b0: 20 22 69 69 22 2f 34 20 22 49 56 22 2f 32 20 22 "ii"/4 "IV"/2 "
03c0: 56 22 32 20 22 49 56 22 20 22 49 22 20 75 20 75 V"2 "IV" "I" u u
03d0: 27 2c 20 27 22 49 22 20 22 76 69 69 22 20 22 49 ', '"I" "vii" "I
03e0: 56 22 20 75 20 75 27 2c 20 27 22 49 22 20 22 76 V" u u', '"I" "v
03f0: 22 20 22 49 56 22 20 75 20 75 27 2c 20 22 65 22 " "IV" u u', "e"
0400: 5d 2c 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 ],.#
0410: 20 20 20 20 20 20 20 20 22 75 22 3a 20 5b 27 22 "u": ['"
0420: 69 22 20 22 49 22 20 22 69 69 22 20 22 49 49 22 i" "I" "ii" "II"
0430: 20 22 76 22 20 22 56 22 20 75 27 2c 20 22 65 22 "v" "V" u', "e"
0440: 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ],.
0450: 20 20 20 20 20 20 20 22 65 22 3a 20 5b 22 22 5d "e": [""]
0460: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0470: 20 7d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 },.
0480: 20 20 20 20 22 73 63 6f 72 65 22 3a 20 22 75 20 "score": "u
0490: 75 20 75 22 2c 0a 20 20 20 20 20 20 20 20 20 20 u u",.
04a0: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7d 2c 0a },. },.
04b0: 20 20 20 20 20 20 20 20 22 62 22 3a 20 7b 0a 20 "b": {.
04c0: 20 20 20 20 20 20 20 20 20 20 20 22 6d 65 6c 6f "melo
04d0: 64 79 22 3a 20 7b 20 20 23 20 49 6e 73 74 72 75 dy": { # Instru
04e0: 6d 65 6e 74 20 27 6d 65 6c 6f 64 79 27 0a 20 20 ment 'melody'.
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 "s
0500: 63 6f 72 65 5f 6c 69 6e 65 22 3a 20 22 69 32 20 core_line": "i2
0510: 25 28 74 69 6d 65 29 66 20 25 28 64 75 72 61 74 %(time)f %(durat
0520: 69 6f 6e 29 66 20 37 30 30 30 20 25 28 6f 63 74 ion)f 7000 %(oct
0530: 61 76 65 29 64 2e 25 28 6e 6f 74 65 29 73 20 25 ave)d.%(note)s %
0540: 28 6f 63 74 61 76 65 29 64 2e 25 28 6e 6f 74 65 (octave)d.%(note
0550: 29 73 20 30 20 36 22 2c 0a 20 20 20 20 20 20 20 )s 0 6",.
0560: 20 20 20 20 20 20 20 20 20 22 67 72 61 6d 6d 61 "gramma
0570: 72 73 22 3a 20 7b 20 20 23 20 4e 6f 74 65 73 20 rs": { # Notes
0580: 66 6f 72 20 74 68 69 73 20 69 6e 73 74 72 75 6d for this instrum
0590: 65 6e 74 20 74 6f 20 75 73 65 20 69 6e 20 74 68 ent to use in th
05a0: 69 73 20 70 69 65 63 65 0a 20 20 20 20 20 20 20 is piece.
05b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 22 "u"
05c0: 3a 20 5b 22 49 20 56 20 49 20 49 2f 32 20 49 56 : ["I V I I/2 IV
05d0: 2f 32 20 75 20 75 22 2c 20 22 49 32 20 49 56 20 /2 u u", "I2 IV
05e0: 75 20 75 22 2c 20 22 49 20 49 56 20 49 56 20 56 u u", "I IV IV V
05f0: 49 20 56 20 75 20 75 22 20 2c 20 22 65 22 5d 2c I V u u" , "e"],
0600: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0610: 20 20 20 20 20 22 65 22 3a 20 5b 22 22 5d 2c 0a "e": [""],.
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0630: 7d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 },.
0640: 20 20 20 22 73 63 6f 72 65 22 3a 20 22 75 20 75 "score": "u u
0650: 20 75 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 u",.
0660: 20 7d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 },.
0670: 22 72 68 79 74 68 6d 22 3a 20 7b 0a 20 20 20 20 "rhythm": {.
0680: 20 20 20 20 20 20 20 20 20 20 20 20 22 73 63 6f "sco
0690: 72 65 5f 6c 69 6e 65 22 3a 20 22 69 32 20 25 28 re_line": "i2 %(
06a0: 74 69 6d 65 29 66 20 25 28 64 75 72 61 74 69 6f time)f %(duratio
06b0: 6e 29 66 20 37 30 30 30 20 25 28 6f 63 74 61 76 n)f 7000 %(octav
06c0: 65 29 64 2e 25 28 6e 6f 74 65 29 73 20 25 28 6f e)d.%(note)s %(o
06d0: 63 74 61 76 65 29 64 2e 25 28 6e 6f 74 65 29 73 ctave)d.%(note)s
06e0: 20 30 20 36 22 2c 0a 20 20 20 20 20 20 20 20 20 0 6",.
06f0: 20 20 20 20 20 20 20 22 67 72 61 6d 6d 61 72 73 "grammars
0700: 22 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ": {.
0710: 20 20 20 20 20 20 20 20 20 22 75 22 3a 20 5b 27 "u": ['
0720: 22 49 22 20 22 49 56 22 2f 32 20 22 56 22 32 20 "I" "IV"/2 "V"2
0730: 22 49 56 22 20 22 49 22 20 75 20 75 27 2c 20 27 "IV" "I" u u', '
0740: 22 49 22 20 22 56 49 49 22 20 22 49 56 22 20 75 "I" "VII" "IV" u
0750: 20 75 27 2c 20 27 22 49 22 20 22 56 22 20 22 49 u', '"I" "V" "I
0760: 56 22 20 75 20 75 27 2c 20 22 65 22 5d 2c 0a 20 V" u u', "e"],.
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0780: 20 20 20 22 65 22 3a 20 5b 22 22 5d 0a 20 20 20 "e": [""].
0790: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
07a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07b0: 22 73 63 6f 72 65 22 3a 20 22 75 20 75 20 75 22 "score": "u u u"
07c0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c ,. },
07d0: 0a 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 . },.
07e0: 7d 0a 0a 20 20 20 20 6d 61 78 5f 74 20 3d 20 30 }.. max_t = 0
07f0: 20 20 23 20 6d 61 78 20 74 69 6d 65 20 65 6e 63 # max time enc
0800: 6f 75 6e 74 65 72 65 64 20 73 6f 20 66 61 72 2e ountered so far.
0810: 20 55 73 65 64 20 66 6f 72 20 6d 6f 76 65 6d 65 Used for moveme
0820: 6e 74 20 74 69 6d 69 6e 67 0a 20 20 20 20 70 72 nt timing. pr
0830: 6f 67 72 65 73 73 69 6f 6e 20 3d 20 22 61 20 62 ogression = "a b
0840: 22 0a 20 20 20 20 66 6f 72 20 63 6f 6d 70 5f 6e ". for comp_n
0850: 61 6d 65 20 69 6e 20 70 72 6f 67 72 65 73 73 69 ame in progressi
0860: 6f 6e 2e 73 70 6c 69 74 28 29 3a 0a 20 20 20 20 on.split():.
0870: 20 20 20 20 69 6e 73 74 72 5f 73 74 61 72 74 5f instr_start_
0880: 74 69 6d 65 20 3d 20 6d 61 78 5f 74 0a 20 20 20 time = max_t.
0890: 20 20 20 20 20 66 6f 72 20 69 6e 73 74 72 5f 6e for instr_n
08a0: 61 6d 65 2c 20 69 6e 73 74 72 20 69 6e 20 63 6f ame, instr in co
08b0: 6d 70 6f 73 69 74 69 6f 6e 5b 63 6f 6d 70 5f 6e mposition[comp_n
08c0: 61 6d 65 5d 2e 69 74 65 72 69 74 65 6d 73 28 29 ame].iteritems()
08d0: 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 :. ge
08e0: 6e 65 72 61 74 65 64 5f 73 63 6f 72 65 20 3d 20 nerated_score =
08f0: 67 65 6e 65 72 61 74 65 5f 73 63 6f 72 65 28 69 generate_score(i
0900: 6e 73 74 72 5b 22 73 63 6f 72 65 22 5d 2c 20 69 nstr["score"], i
0910: 6e 73 74 72 5b 22 67 72 61 6d 6d 61 72 73 22 5d nstr["grammars"]
0920: 29 20 20 23 20 46 69 6c 6c 20 69 6e 20 74 68 65 ) # Fill in the
0930: 20 73 63 6f 72 65 73 20 62 79 20 67 65 6e 65 72 scores by gener
0940: 61 74 69 6e 67 20 74 68 65 6d 20 62 61 73 65 64 ating them based
0950: 20 6f 6e 20 74 68 65 20 67 72 61 6d 6d 61 72 73 on the grammars
0960: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 63 6f . sco
0970: 72 65 20 3d 20 70 61 72 73 65 2e 70 61 72 73 65 re = parse.parse
0980: 28 67 65 6e 65 72 61 74 65 64 5f 73 63 6f 72 65 (generated_score
0990: 29 20 20 23 20 52 65 74 75 72 6e 20 4e 6f 64 65 ) # Return Node
09a0: 2f 43 68 6f 72 64 20 6f 62 6a 65 63 74 73 0a 0a /Chord objects..
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 47 65 # Ge
09c0: 6e 65 72 61 74 65 20 74 69 6d 65 73 74 61 6d 70 nerate timestamp
09d0: 73 20 66 6f 72 20 74 68 65 20 6e 6f 74 65 73 20 s for the notes
09e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 20 3d . t =
09f0: 20 69 6e 73 74 72 5f 73 74 61 72 74 5f 74 69 6d instr_start_tim
0a00: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f e. fo
0a10: 72 20 6e 6f 74 65 20 69 6e 20 72 61 6e 67 65 28 r note in range(
0a20: 6c 65 6e 28 73 63 6f 72 65 29 29 3a 0a 20 20 20 len(score)):.
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 63 6f sco
0a40: 72 65 5b 6e 6f 74 65 5d 2e 74 69 6d 65 20 3d 20 re[note].time =
0a50: 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t.
0a60: 20 20 73 63 6f 72 65 5b 6e 6f 74 65 5d 2e 64 75 score[note].du
0a70: 72 61 74 69 6f 6e 20 2a 3d 20 74 65 6d 70 6f 0a ration *= tempo.
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a90: 74 20 2b 3d 20 73 63 6f 72 65 5b 6e 6f 74 65 5d t += score[note]
0aa0: 2e 64 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 .duration.
0ab0: 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 74 20 max_t
0ac0: 3d 20 74 20 69 66 20 74 20 3e 20 6d 61 78 5f 74 = t if t > max_t
0ad0: 20 65 6c 73 65 20 6d 61 78 5f 74 0a 20 20 20 20 else max_t.
0ae0: 20 20 20 20 20 20 20 20 63 6f 6d 70 6f 73 69 74 composit
0af0: 69 6f 6e 5b 63 6f 6d 70 5f 6e 61 6d 65 5d 5b 69 ion[comp_name][i
0b00: 6e 73 74 72 5f 6e 61 6d 65 5d 5b 22 73 63 6f 72 nstr_name]["scor
0b10: 65 22 5d 20 3d 20 73 63 6f 72 65 0a 0a 20 20 20 e"] = score..
0b20: 20 23 20 4d 75 73 74 20 62 65 20 64 6f 6e 65 20 # Must be done
0b30: 61 66 74 65 72 20 61 6c 6c 20 6e 6f 74 65 20 74 after all note t
0b40: 69 6d 65 73 20 6b 65 79 65 64 20 69 6e 2c 20 65 imes keyed in, e
0b50: 6c 73 65 20 79 6f 75 20 63 61 6e 27 74 20 63 6f lse you can't co
0b60: 6f 72 64 69 6e 61 74 65 20 6d 65 6c 6f 64 69 65 ordinate melodie
0b70: 73 20 77 69 74 68 20 74 68 65 20 72 68 79 74 68 s with the rhyth
0b80: 6d 20 63 68 6f 72 64 73 0a 20 20 20 20 66 6f 72 m chords. for
0b90: 20 63 6f 6d 70 5f 6e 61 6d 65 20 69 6e 20 70 72 comp_name in pr
0ba0: 6f 67 72 65 73 73 69 6f 6e 2e 73 70 6c 69 74 28 ogression.split(
0bb0: 29 3a 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 ):. for i
0bc0: 6e 73 74 72 5f 6e 61 6d 65 2c 20 69 6e 73 74 72 nstr_name, instr
0bd0: 20 69 6e 20 63 6f 6d 70 6f 73 69 74 69 6f 6e 5b in composition[
0be0: 63 6f 6d 70 5f 6e 61 6d 65 5d 2e 69 74 65 72 69 comp_name].iteri
0bf0: 74 65 6d 73 28 29 3a 0a 20 20 20 20 20 20 20 20 tems():.
0c00: 20 20 20 20 63 6f 6d 70 6f 73 69 74 69 6f 6e 5b composition[
0c10: 63 6f 6d 70 5f 6e 61 6d 65 5d 5b 69 6e 73 74 72 comp_name][instr
0c20: 5f 6e 61 6d 65 5d 5b 22 73 63 6f 72 65 22 5d 20 _name]["score"]
0c30: 3d 20 74 72 61 6e 73 6c 69 74 65 72 61 74 65 5f = transliterate_
0c40: 73 63 6f 72 65 28 63 6f 6d 70 6f 73 69 74 69 6f score(compositio
0c50: 6e 5b 63 6f 6d 70 5f 6e 61 6d 65 5d 5b 69 6e 73 n[comp_name][ins
0c60: 74 72 5f 6e 61 6d 65 5d 5b 22 73 63 6f 72 65 22 tr_name]["score"
0c70: 5d 2c 20 6b 65 79 29 0a 23 20 20 20 20 20 20 20 ], key).#
0c80: 20 20 20 20 20 70 72 69 6e 74 20 22 5c 6e 4d 6f print "\nMo
0c90: 76 65 6d 65 6e 74 20 25 73 20 69 6e 73 74 72 75 vement %s instru
0ca0: 6d 65 6e 74 20 25 73 22 20 25 20 28 63 6f 6d 70 ment %s" % (comp
0cb0: 5f 6e 61 6d 65 2c 20 69 6e 73 74 72 5f 6e 61 6d _name, instr_nam
0cc0: 65 29 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 e).#
0cd0: 70 72 69 6e 74 20 63 6f 6d 70 6f 73 69 74 69 6f print compositio
0ce0: 6e 5b 63 6f 6d 70 5f 6e 61 6d 65 5d 5b 69 6e 73 n[comp_name][ins
0cf0: 74 72 5f 6e 61 6d 65 5d 5b 22 73 63 6f 72 65 22 tr_name]["score"
0d00: 5d 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 ] . p
0d10: 72 69 6e 74 20 22 66 31 20 20 30 20 20 20 32 35 rint "f1 0 25
0d20: 36 20 31 30 20 20 31 20 30 20 33 20 20 20 3b 20 6 10 1 0 3 ;
0d30: 73 69 6e 65 20 77 61 76 65 20 66 75 6e 63 74 69 sine wave functi
0d40: 6f 6e 20 74 61 62 6c 65 22 0a 20 20 20 20 20 20 on table".
0d50: 20 20 20 20 20 20 66 69 6e 61 6c 5f 73 63 6f 72 final_scor
0d60: 65 20 3d 20 67 65 6e 65 72 61 74 65 5f 63 73 6f e = generate_cso
0d70: 75 6e 64 5f 73 63 6f 72 65 28 63 6f 6d 70 6f 73 und_score(compos
0d80: 69 74 69 6f 6e 5b 63 6f 6d 70 5f 6e 61 6d 65 5d ition[comp_name]
0d90: 5b 69 6e 73 74 72 5f 6e 61 6d 65 5d 5b 22 73 63 [instr_name]["sc
0da0: 6f 72 65 22 5d 2c 20 63 6f 6d 70 6f 73 69 74 69 ore"], compositi
0db0: 6f 6e 5b 63 6f 6d 70 5f 6e 61 6d 65 5d 5b 69 6e on[comp_name][in
0dc0: 73 74 72 5f 6e 61 6d 65 5d 5b 22 73 63 6f 72 65 str_name]["score
0dd0: 5f 6c 69 6e 65 22 5d 29 0a 20 20 20 20 20 20 20 _line"]).
0de0: 20 20 20 20 20 66 6f 72 20 6c 69 6e 65 20 69 6e for line in
0df0: 20 66 69 6e 61 6c 5f 73 63 6f 72 65 3a 0a 20 20 final_score:.
0e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 pr
0e10: 69 6e 74 20 6c 69 6e 65 0a 20 20 20 20 20 20 20 int line.
0e20: 20 20 20 20 20 0a 0a 64 65 66 20 6d 61 6b 65 5f ..def make_
0e30: 73 63 61 6c 65 28 6b 65 79 29 3a 0a 20 20 20 20 scale(key):.
0e40: 6e 6f 74 65 73 20 3d 20 5b 22 41 22 2c 20 22 41 notes = ["A", "A
0e50: 23 22 2c 20 22 42 22 2c 20 22 43 22 2c 20 22 43 #", "B", "C", "C
0e60: 23 22 2c 20 22 44 22 2c 20 22 44 23 22 2c 20 22 #", "D", "D#", "
0e70: 45 22 2c 20 22 46 22 2c 20 22 46 23 22 2c 20 22 E", "F", "F#", "
0e80: 47 22 2c 20 22 47 23 22 5d 0a 20 20 20 20 73 63 G", "G#"]. sc
0e90: 61 6c 65 20 3d 20 5b 6b 65 79 5d 0a 20 20 20 20 ale = [key].
0ea0: 70 6f 73 20 3d 20 6e 6f 74 65 73 2e 69 6e 64 65 pos = notes.inde
0eb0: 78 28 6b 65 79 29 0a 20 20 20 20 70 72 6f 67 72 x(key). progr
0ec0: 65 73 73 69 6f 6e 20 3d 20 5b 32 2c 32 2c 31 2c ession = [2,2,1,
0ed0: 32 2c 32 2c 32 2c 31 5d 0a 20 20 20 20 66 6f 72 2,2,2,1]. for
0ee0: 20 70 20 69 6e 20 70 72 6f 67 72 65 73 73 69 6f p in progressio
0ef0: 6e 3a 0a 20 20 20 20 20 20 20 20 70 6f 73 20 3d n:. pos =
0f00: 20 28 70 6f 73 20 2b 20 70 29 20 25 20 31 32 0a (pos + p) % 12.
0f10: 20 20 20 20 20 20 20 20 73 63 61 6c 65 2e 61 70 scale.ap
0f20: 70 65 6e 64 28 6e 6f 74 65 73 5b 70 6f 73 5d 29 pend(notes[pos])
0f30: 0a 20 20 20 20 72 65 74 75 72 6e 20 73 63 61 6c . return scal
0f40: 65 0a 0a 0a 64 65 66 20 67 65 6e 65 72 61 74 65 e...def generate
0f50: 5f 73 63 6f 72 65 28 73 63 6f 72 65 2c 20 67 72 _score(score, gr
0f60: 61 6d 6d 61 72 73 29 3a 0a 20 20 20 20 77 68 69 ammars):. whi
0f70: 6c 65 20 31 3a 0a 20 20 20 20 20 20 20 20 66 6f le 1:. fo
0f80: 75 6e 64 5f 73 75 62 73 74 69 74 75 74 69 6f 6e und_substitution
0f90: 20 3d 20 46 61 6c 73 65 0a 20 20 20 20 20 20 20 = False.
0fa0: 20 66 6f 72 20 6b 65 79 2c 76 61 6c 75 65 20 69 for key,value i
0fb0: 6e 20 67 72 61 6d 6d 61 72 73 2e 69 74 65 72 69 n grammars.iteri
0fc0: 74 65 6d 73 28 29 3a 0a 20 20 20 20 20 20 20 20 tems():.
0fd0: 20 20 20 20 69 66 20 73 63 6f 72 65 2e 66 69 6e if score.fin
0fe0: 64 28 6b 65 79 29 20 21 3d 20 2d 31 3a 0a 20 20 d(key) != -1:.
0ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f fo
1000: 75 6e 64 5f 73 75 62 73 74 69 74 75 74 69 6f 6e und_substitution
1010: 20 3d 20 54 72 75 65 0a 20 20 20 20 20 20 20 20 = True.
1020: 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 73 63 while sc
1030: 6f 72 65 2e 66 69 6e 64 28 6b 65 79 29 20 21 3d ore.find(key) !=
1040: 20 2d 31 3a 0a 20 20 20 20 20 20 20 20 20 20 20 -1:.
1050: 20 20 20 20 20 20 20 20 20 73 63 6f 72 65 20 3d score =
1060: 20 73 63 6f 72 65 2e 72 65 70 6c 61 63 65 28 6b score.replace(k
1070: 65 79 2c 20 72 61 6e 64 6f 6d 2e 63 68 6f 69 63 ey, random.choic
1080: 65 28 67 72 61 6d 6d 61 72 73 5b 6b 65 79 5d 29 e(grammars[key])
1090: 2c 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 , 1).
10a0: 20 20 20 20 20 20 20 20 20 69 66 20 6c 65 6e 28 if len(
10b0: 73 63 6f 72 65 2e 73 70 6c 69 74 28 29 29 20 3e score.split()) >
10c0: 20 32 30 30 3a 0a 20 20 20 20 20 20 20 20 20 20 200:.
10d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 63 sc
10e0: 6f 72 65 20 3d 20 73 63 6f 72 65 2e 72 65 70 6c ore = score.repl
10f0: 61 63 65 28 22 75 22 2c 20 22 22 29 0a 20 20 20 ace("u", "").
1100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1110: 20 20 20 20 20 73 63 6f 72 65 20 3d 20 73 63 6f score = sco
1120: 72 65 2e 72 65 70 6c 61 63 65 28 22 65 22 2c 20 re.replace("e",
1130: 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 "").
1140: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 retu
1150: 72 6e 20 73 63 6f 72 65 0a 20 20 20 20 20 20 20 rn score.
1160: 20 69 66 20 66 6f 75 6e 64 5f 73 75 62 73 74 69 if found_substi
1170: 74 75 74 69 6f 6e 20 69 73 20 46 61 6c 73 65 3a tution is False:
1180: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 . bre
1190: 61 6b 0a 20 20 20 20 72 65 74 75 72 6e 20 73 63 ak. return sc
11a0: 6f 72 65 0a 0a 64 65 66 20 74 72 61 6e 73 6c 69 ore..def transli
11b0: 74 65 72 61 74 65 5f 73 63 6f 72 65 28 73 63 6f terate_score(sco
11c0: 72 65 2c 20 6b 65 79 29 3a 0a 20 20 20 20 73 63 re, key):. sc
11d0: 61 6c 65 20 3d 20 6d 61 6b 65 5f 73 63 61 6c 65 ale = make_scale
11e0: 28 6b 65 79 29 0a 20 20 20 20 73 63 61 6c 65 5f (key). scale_
11f0: 63 6f 6e 76 65 72 73 69 6f 6e 20 3d 20 7b 0a 20 conversion = {.
1200: 20 20 20 20 20 20 20 22 49 22 3a 20 31 2c 0a 20 "I": 1,.
1210: 20 20 20 20 20 20 20 22 49 49 22 3a 20 32 2c 0a "II": 2,.
1220: 20 20 20 20 20 20 20 20 22 49 49 49 22 3a 20 33 "III": 3
1230: 2c 0a 20 20 20 20 20 20 20 20 22 49 56 22 3a 20 ,. "IV":
1240: 34 2c 0a 20 20 20 20 20 20 20 20 22 56 22 3a 20 4,. "V":
1250: 35 2c 0a 20 20 20 20 20 20 20 20 22 56 49 22 3a 5,. "VI":
1260: 20 36 2c 0a 20 20 20 20 20 20 20 20 22 56 49 49 6,. "VII
1270: 22 3a 20 37 2c 0a 20 20 20 20 20 20 20 20 22 56 ": 7,. "V
1280: 49 49 49 22 3a 20 38 2c 0a 20 20 20 20 7d 0a 20 III": 8,. }.
1290: 20 20 20 6b 65 79 65 64 5f 73 63 6f 72 65 20 3d keyed_score =
12a0: 20 5b 5d 0a 20 20 20 20 66 6f 72 20 69 20 69 6e []. for i in
12b0: 20 72 61 6e 67 65 28 6c 65 6e 28 73 63 6f 72 65 range(len(score
12c0: 29 29 3a 0a 20 20 20 20 20 20 20 20 69 66 20 69 )):. if i
12d0: 73 69 6e 73 74 61 6e 63 65 28 73 63 6f 72 65 5b sinstance(score[
12e0: 69 5d 2c 20 70 61 72 73 65 2e 4e 6f 74 65 29 3a i], parse.Note):
12f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 63 6f . sco
1300: 72 65 5b 69 5d 2e 76 61 6c 75 65 20 3d 20 73 63 re[i].value = sc
1310: 61 6c 65 5b 73 63 61 6c 65 5f 63 6f 6e 76 65 72 ale[scale_conver
1320: 73 69 6f 6e 5b 73 63 6f 72 65 5b 69 5d 2e 76 61 sion[score[i].va
1330: 6c 75 65 5d 2d 31 5d 0a 20 20 20 20 20 20 20 20 lue]-1].
1340: 65 6c 69 66 20 69 73 69 6e 73 74 61 6e 63 65 28 elif isinstance(
1350: 73 63 6f 72 65 5b 69 5d 2c 20 70 61 72 73 65 2e score[i], parse.
1360: 43 68 6f 72 64 29 3a 0a 20 20 20 20 20 20 20 20 Chord):.
1370: 20 20 20 20 63 68 6f 72 64 20 3d 20 5b 5d 0a 20 chord = [].
1380: 20 20 20 20 20 20 20 20 20 20 20 72 6f 6f 74 5f root_
1390: 6e 6f 74 65 5f 69 6e 64 65 78 20 3d 20 73 63 61 note_index = sca
13a0: 6c 65 2e 69 6e 64 65 78 28 6b 65 79 29 20 2b 20 le.index(key) +
13b0: 73 63 61 6c 65 5f 63 6f 6e 76 65 72 73 69 6f 6e scale_conversion
13c0: 5b 73 63 6f 72 65 5b 69 5d 2e 76 61 6c 75 65 5d [score[i].value]
13d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 68 6f . cho
13e0: 72 64 2e 61 70 70 65 6e 64 28 73 63 61 6c 65 5b rd.append(scale[
13f0: 72 6f 6f 74 5f 6e 6f 74 65 5f 69 6e 64 65 78 5d root_note_index]
1400: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ). if
1410: 20 73 63 6f 72 65 5b 69 5d 2e 63 68 6f 72 64 5f score[i].chord_
1420: 74 79 70 65 20 3d 3d 20 22 6d 22 3a 20 20 23 20 type == "m": #
1430: 4d 69 6e 6f 72 20 63 68 6f 72 64 73 2c 20 66 6c Minor chords, fl
1440: 61 74 20 74 68 65 20 33 72 64 0a 20 20 20 20 20 at the 3rd.
1450: 20 20 20 20 20 20 20 20 20 20 20 63 68 6f 72 64 chord
1460: 2e 61 70 70 65 6e 64 28 73 63 61 6c 65 5b 28 72 .append(scale[(r
1470: 6f 6f 74 5f 6e 6f 74 65 5f 69 6e 64 65 78 2b 32 oot_note_index+2
1480: 29 20 25 20 38 5d 29 0a 20 20 20 20 20 20 20 20 ) % 8]).
1490: 20 20 20 20 65 6c 73 65 3a 0a 20 20 20 20 20 20 else:.
14a0: 20 20 20 20 20 20 20 20 20 20 63 68 6f 72 64 2e chord.
14b0: 61 70 70 65 6e 64 28 73 63 61 6c 65 5b 28 72 6f append(scale[(ro
14c0: 6f 74 5f 6e 6f 74 65 5f 69 6e 64 65 78 2b 33 29 ot_note_index+3)
14d0: 20 25 20 38 5d 29 0a 20 20 20 20 20 20 20 20 20 % 8]).
14e0: 20 20 20 63 68 6f 72 64 2e 61 70 70 65 6e 64 28 chord.append(
14f0: 73 63 61 6c 65 5b 28 72 6f 6f 74 5f 6e 6f 74 65 scale[(root_note
1500: 5f 69 6e 64 65 78 2b 35 29 20 25 20 38 5d 29 0a _index+5) % 8]).
1510: 20 20 20 20 20 20 20 20 20 20 20 20 73 63 6f 72 scor
1520: 65 5b 69 5d 2e 63 68 6f 72 64 20 3d 20 63 68 6f e[i].chord = cho
1530: 72 64 0a 20 20 20 20 20 20 20 20 65 6c 69 66 20 rd. elif
1540: 69 73 69 6e 73 74 61 6e 63 65 28 73 63 6f 72 65 isinstance(score
1550: 5b 69 5d 2c 20 70 61 72 73 65 2e 52 65 73 74 29 [i], parse.Rest)
1560: 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 61 :. pa
1570: 73 73 0a 20 20 20 20 72 65 74 75 72 6e 20 73 63 ss. return sc
1580: 6f 72 65 0a 0a 0a 64 65 66 20 67 65 6e 65 72 61 ore...def genera
1590: 74 65 5f 63 73 6f 75 6e 64 5f 73 63 6f 72 65 28 te_csound_score(
15a0: 73 63 6f 72 65 2c 20 73 63 6f 72 65 5f 6c 69 6e score, score_lin
15b0: 65 29 3a 0a 20 20 20 20 63 73 6f 75 6e 64 5f 6e e):. csound_n
15c0: 6f 74 65 5f 76 61 6c 75 65 73 20 3d 20 7b 0a 20 ote_values = {.
15d0: 20 20 20 20 20 20 20 22 43 22 3a 20 22 30 30 22 "C": "00"
15e0: 2c 0a 20 20 20 20 20 20 20 20 22 43 23 22 3a 20 ,. "C#":
15f0: 22 30 31 22 2c 0a 20 20 20 20 20 20 20 20 22 44 "01",. "D
1600: 22 3a 20 22 30 32 22 2c 0a 20 20 20 20 20 20 20 ": "02",.
1610: 20 22 44 23 22 3a 20 22 30 33 22 2c 0a 20 20 20 "D#": "03",.
1620: 20 20 20 20 20 22 45 22 3a 20 22 30 34 22 2c 0a "E": "04",.
1630: 20 20 20 20 20 20 20 20 22 46 22 3a 20 22 30 35 "F": "05
1640: 22 2c 0a 20 20 20 20 20 20 20 20 22 46 23 22 3a ",. "F#":
1650: 20 22 30 36 22 2c 0a 20 20 20 20 20 20 20 20 22 "06",. "
1660: 47 22 3a 20 22 30 37 22 2c 0a 20 20 20 20 20 20 G": "07",.
1670: 20 20 22 47 23 22 3a 20 22 30 38 22 2c 0a 20 20 "G#": "08",.
1680: 20 20 20 20 20 20 22 41 22 3a 20 22 30 39 22 2c "A": "09",
1690: 0a 20 20 20 20 20 20 20 20 22 41 23 22 3a 20 22 . "A#": "
16a0: 31 30 22 2c 0a 20 20 20 20 20 20 20 20 22 42 22 10",. "B"
16b0: 3a 20 22 31 31 22 2c 0a 20 20 20 20 7d 0a 20 20 : "11",. }.
16c0: 20 20 63 73 6f 75 6e 64 5f 73 63 6f 72 65 20 3d csound_score =
16d0: 20 5b 5d 0a 20 20 20 20 66 6f 72 20 74 6f 6b 65 []. for toke
16e0: 6e 20 69 6e 20 73 63 6f 72 65 3a 0a 20 20 20 20 n in score:.
16f0: 20 20 20 20 69 66 20 69 73 69 6e 73 74 61 6e 63 if isinstanc
1700: 65 28 74 6f 6b 65 6e 2c 20 70 61 72 73 65 2e 43 e(token, parse.C
1710: 68 6f 72 64 29 3a 20 20 23 20 43 68 6f 72 64 73 hord): # Chords
1720: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 . for
1730: 20 6e 6f 74 65 20 69 6e 20 74 6f 6b 65 6e 2e 63 note in token.c
1740: 68 6f 72 64 3a 20 0a 20 20 20 20 20 20 20 20 20 hord: .
1750: 20 20 20 20 20 20 20 6e 6f 74 65 20 3d 20 63 73 note = cs
1760: 6f 75 6e 64 5f 6e 6f 74 65 5f 76 61 6c 75 65 73 ound_note_values
1770: 5b 6e 6f 74 65 5d 0a 23 20 20 20 20 20 20 20 20 [note].#
1780: 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64 5f 73 csound_s
1790: 63 6f 72 65 2e 61 70 70 65 6e 64 28 22 69 32 20 core.append("i2
17a0: 25 28 74 69 6d 65 29 66 20 25 28 64 75 72 61 74 %(time)f %(durat
17b0: 69 6f 6e 29 66 20 37 30 30 30 20 25 28 6f 63 74 ion)f 7000 %(oct
17c0: 61 76 65 29 64 2e 25 28 6e 6f 74 65 29 73 20 25 ave)d.%(note)s %
17d0: 28 6f 63 74 61 76 65 29 64 2e 25 28 6e 6f 74 65 (octave)d.%(note
17e0: 29 73 20 30 20 36 22 20 25 20 7b 22 74 69 6d 65 )s 0 6" % {"time
17f0: 22 3a 20 74 6f 6b 65 6e 2e 74 69 6d 65 2c 20 22 ": token.time, "
1800: 6f 63 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d 2e octave": random.
1810: 63 68 6f 69 63 65 28 5b 37 2c 38 5d 29 2c 20 22 choice([7,8]), "
1820: 6e 6f 74 65 22 3a 20 6e 6f 74 65 2c 20 22 64 75 note": note, "du
1830: 72 61 74 69 6f 6e 22 3a 20 74 6f 6b 65 6e 2e 64 ration": token.d
1840: 75 72 61 74 69 6f 6e 7d 29 0a 20 20 20 20 20 20 uration}).
1850: 20 20 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64 csound
1860: 5f 73 63 6f 72 65 2e 61 70 70 65 6e 64 28 73 63 _score.append(sc
1870: 6f 72 65 5f 6c 69 6e 65 20 25 20 7b 22 74 69 6d ore_line % {"tim
1880: 65 22 3a 20 74 6f 6b 65 6e 2e 74 69 6d 65 2c 20 e": token.time,
1890: 22 6f 63 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d "octave": random
18a0: 2e 63 68 6f 69 63 65 28 5b 37 2c 38 5d 29 2c 20 .choice([7,8]),
18b0: 22 6e 6f 74 65 22 3a 20 6e 6f 74 65 2c 20 22 64 "note": note, "d
18c0: 75 72 61 74 69 6f 6e 22 3a 20 74 6f 6b 65 6e 2e uration": token.
18d0: 64 75 72 61 74 69 6f 6e 7d 29 0a 20 20 20 20 20 duration}).
18e0: 20 20 20 65 6c 69 66 20 69 73 69 6e 73 74 61 6e elif isinstan
18f0: 63 65 28 74 6f 6b 65 6e 2c 20 70 61 72 73 65 2e ce(token, parse.
1900: 4e 6f 74 65 29 3a 20 20 23 20 49 6e 64 69 76 69 Note): # Indivi
1910: 64 75 61 6c 20 6e 6f 74 65 73 0a 20 20 20 20 20 dual notes.
1920: 20 20 20 20 20 20 20 6e 6f 74 65 20 3d 20 63 73 note = cs
1930: 6f 75 6e 64 5f 6e 6f 74 65 5f 76 61 6c 75 65 73 ound_note_values
1940: 5b 74 6f 6b 65 6e 2e 76 61 6c 75 65 5d 0a 20 20 [token.value].
1950: 20 20 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64 csound
1960: 5f 73 63 6f 72 65 2e 61 70 70 65 6e 64 28 73 63 _score.append(sc
1970: 6f 72 65 5f 6c 69 6e 65 20 25 20 7b 22 74 69 6d ore_line % {"tim
1980: 65 22 3a 20 74 6f 6b 65 6e 2e 74 69 6d 65 2c 20 e": token.time,
1990: 22 6f 63 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d "octave": random
19a0: 2e 63 68 6f 69 63 65 28 5b 38 2c 39 5d 29 2c 20 .choice([8,9]),
19b0: 22 6e 6f 74 65 22 3a 20 6e 6f 74 65 2c 20 22 64 "note": note, "d
19c0: 75 72 61 74 69 6f 6e 22 3a 20 74 6f 6b 65 6e 2e uration": token.
19d0: 64 75 72 61 74 69 6f 6e 7d 29 0a 23 20 20 20 20 duration}).#
19e0: 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64 5f 73 csound_s
19f0: 63 6f 72 65 2e 61 70 70 65 6e 64 28 22 69 32 20 core.append("i2
1a00: 25 28 74 69 6d 65 29 66 20 25 28 64 75 72 61 74 %(time)f %(durat
1a10: 69 6f 6e 29 66 20 37 30 30 30 20 25 28 6f 63 74 ion)f 7000 %(oct
1a20: 61 76 65 29 64 2e 25 28 6e 6f 74 65 29 73 20 25 ave)d.%(note)s %
1a30: 28 6f 63 74 61 76 65 29 64 2e 25 28 6e 6f 74 65 (octave)d.%(note
1a40: 29 73 20 30 20 36 22 20 25 20 7b 22 74 69 6d 65 )s 0 6" % {"time
1a50: 22 3a 20 74 6f 6b 65 6e 2e 74 69 6d 65 2c 20 22 ": token.time, "
1a60: 6f 63 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d 2e octave": random.
1a70: 63 68 6f 69 63 65 28 5b 38 2c 39 5d 29 2c 20 22 choice([8,9]), "
1a80: 6e 6f 74 65 22 3a 20 6e 6f 74 65 2c 20 22 64 75 note": note, "du
1a90: 72 61 74 69 6f 6e 22 3a 20 74 6f 6b 65 6e 2e 64 ration": token.d
1aa0: 75 72 61 74 69 6f 6e 7d 29 0a 20 20 20 20 72 65 uration}). re
1ab0: 74 75 72 6e 20 63 73 6f 75 6e 64 5f 73 63 6f 72 turn csound_scor
1ac0: 65 0a 0a 0a 69 66 20 5f 5f 6e 61 6d 65 5f 5f 20 e...if __name__
1ad0: 3d 3d 20 22 5f 5f 6d 61 69 6e 5f 5f 22 3a 20 6d == "__main__": m
1ae0: 61 69 6e 28 29 20 0a ain() .