spiffyscore

Hex Artifact Content
Login

Artifact df0a6863becf2caca92b9a10c1b63b7cf7e6fc48:


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 69 6d 70 6f 72 74 20 6f 73  ython..import os
0020: 0a 69 6d 70 6f 72 74 20 72 61 6e 64 6f 6d 0a 69  .import random.i
0030: 6d 70 6f 72 74 20 73 79 73 0a 69 6d 70 6f 72 74  mport sys.import
0040: 20 74 69 6d 65 0a 72 61 6e 64 6f 6d 2e 73 65 65   time.random.see
0050: 64 28 74 69 6d 65 2e 74 69 6d 65 28 29 29 0a 0a  d(time.time())..
0060: 64 65 66 20 6d 61 69 6e 28 29 3a 0a 20 20 20 20  def main():.    
0070: 6b 65 79 20 3d 20 22 41 22 0a 20 20 20 20 6e 6f  key = "A".    no
0080: 74 65 5f 67 72 61 6d 6d 61 72 73 20 3d 20 7b 0a  te_grammars = {.
0090: 20 20 20 20 20 20 20 20 22 75 22 3a 20 5b 22 49          "u": ["I
00a0: 20 56 20 56 20 56 20 49 20 49 20 49 56 20 75 20   V V V I I IV u 
00b0: 75 22 2c 20 22 49 20 49 56 20 75 20 75 22 2c 20  u", "I IV u u", 
00c0: 22 49 20 56 49 49 20 49 56 20 75 20 75 22 20 20  "I VII IV u u"  
00d0: 2c 20 22 65 22 5d 2c 0a 20 20 20 20 20 20 20 20  , "e"],.        
00e0: 22 65 22 3a 20 5b 22 22 5d 2c 0a 20 20 20 20 7d  "e": [""],.    }
00f0: 0a 20 20 20 20 63 68 6f 72 64 5f 67 72 61 6d 6d  .    chord_gramm
0100: 61 72 73 20 3d 20 7b 0a 20 20 20 20 20 20 20 20  ars = {.        
0110: 22 75 22 3a 20 5b 22 49 20 49 56 20 56 20 49 56  "u": ["I IV V IV
0120: 20 49 20 75 20 75 22 2c 20 22 49 20 56 49 49 20   I u u", "I VII 
0130: 49 56 20 75 20 75 22 2c 20 22 49 20 56 20 49 56  IV u u", "I V IV
0140: 20 75 20 75 22 2c 20 22 65 22 5d 2c 0a 20 20 20   u u", "e"],.   
0150: 20 20 20 20 20 22 65 22 3a 20 5b 22 22 5d 0a 20       "e": [""]. 
0160: 20 20 20 7d 0a 20 20 20 20 63 6f 6d 70 6f 73 65     }.    compose
0170: 5f 70 69 65 63 65 28 6b 65 79 2c 20 6e 6f 74 65  _piece(key, note
0180: 5f 67 72 61 6d 6d 61 72 73 29 0a 20 20 20 20 63  _grammars).    c
0190: 6f 6d 70 6f 73 65 5f 70 69 65 63 65 28 6b 65 79  ompose_piece(key
01a0: 2c 20 63 68 6f 72 64 5f 67 72 61 6d 6d 61 72 73  , chord_grammars
01b0: 2c 20 63 68 6f 72 64 73 3d 54 72 75 65 29 0a 0a  , chords=True)..
01c0: 64 65 66 20 63 6f 6d 70 6f 73 65 5f 70 69 65 63  def compose_piec
01d0: 65 28 6b 65 79 2c 20 67 72 61 6d 6d 61 72 73 2c  e(key, grammars,
01e0: 20 63 68 6f 72 64 73 3d 46 61 6c 73 65 29 3a 0a   chords=False):.
01f0: 20 20 20 20 73 63 6f 72 65 20 3d 20 22 22 0a 20      score = "". 
0200: 20 20 20 77 68 69 6c 65 20 6c 65 6e 28 73 63 6f     while len(sco
0210: 72 65 2e 73 70 6c 69 74 28 29 29 20 3c 20 32 30  re.split()) < 20
0220: 30 3a 0a 20 20 20 20 20 20 20 20 73 63 6f 72 65  0:.        score
0230: 20 3d 20 22 75 20 75 20 75 22 0a 20 20 20 20 20   = "u u u".     
0240: 20 20 20 73 63 6f 72 65 20 3d 20 67 65 6e 65 72     score = gener
0250: 61 74 65 5f 73 63 6f 72 65 28 73 63 6f 72 65 2c  ate_score(score,
0260: 20 67 72 61 6d 6d 61 72 73 29 0a 20 20 20 20 73   grammars).    s
0270: 63 6f 72 65 20 3d 20 74 72 61 6e 73 6c 69 74 65  core = translite
0280: 72 61 74 65 5f 73 63 6f 72 65 28 73 63 6f 72 65  rate_score(score
0290: 2c 20 6b 65 79 2c 20 63 68 6f 72 64 73 29 0a 20  , key, chords). 
02a0: 20 20 20 73 63 6f 72 65 20 3d 20 67 65 6e 65 72     score = gener
02b0: 61 74 65 5f 63 73 6f 75 6e 64 5f 73 63 6f 72 65  ate_csound_score
02c0: 28 73 63 6f 72 65 29 0a 20 20 20 20 70 72 69 6e  (score).    prin
02d0: 74 20 22 66 31 20 20 30 20 20 20 32 35 36 20 31  t "f1  0   256 1
02e0: 30 20 20 31 20 30 20 33 20 20 20 3b 20 73 69 6e  0  1 0 3   ; sin
02f0: 65 20 77 61 76 65 20 66 75 6e 63 74 69 6f 6e 20  e wave function 
0300: 74 61 62 6c 65 22 0a 20 20 20 20 66 6f 72 20 6c  table".    for l
0310: 69 6e 65 20 69 6e 20 73 63 6f 72 65 3a 0a 20 20  ine in score:.  
0320: 20 20 20 20 20 20 70 72 69 6e 74 20 6c 69 6e 65        print line
0330: 0a 0a 0a 64 65 66 20 6d 61 6b 65 5f 73 63 61 6c  ...def make_scal
0340: 65 28 6b 65 79 29 3a 0a 20 20 20 20 6e 6f 74 65  e(key):.    note
0350: 73 20 3d 20 5b 22 41 22 2c 20 22 41 23 22 2c 20  s = ["A", "A#", 
0360: 22 42 22 2c 20 22 43 22 2c 20 22 43 23 22 2c 20  "B", "C", "C#", 
0370: 22 44 22 2c 20 22 44 23 22 2c 20 22 45 22 2c 20  "D", "D#", "E", 
0380: 22 46 22 2c 20 22 46 23 22 2c 20 22 47 22 2c 20  "F", "F#", "G", 
0390: 22 47 23 22 5d 0a 20 20 20 20 73 63 61 6c 65 20  "G#"].    scale 
03a0: 3d 20 5b 6b 65 79 5d 0a 20 20 20 20 70 6f 73 20  = [key].    pos 
03b0: 3d 20 6e 6f 74 65 73 2e 69 6e 64 65 78 28 6b 65  = notes.index(ke
03c0: 79 29 0a 20 20 20 20 70 72 6f 67 72 65 73 73 69  y).    progressi
03d0: 6f 6e 20 3d 20 5b 32 2c 32 2c 31 2c 32 2c 32 2c  on = [2,2,1,2,2,
03e0: 32 2c 31 5d 0a 20 20 20 20 66 6f 72 20 70 20 69  2,1].    for p i
03f0: 6e 20 70 72 6f 67 72 65 73 73 69 6f 6e 3a 0a 20  n progression:. 
0400: 20 20 20 20 20 20 20 70 6f 73 20 3d 20 28 70 6f         pos = (po
0410: 73 20 2b 20 70 29 20 25 20 31 32 0a 20 20 20 20  s + p) % 12.    
0420: 20 20 20 20 73 63 61 6c 65 2e 61 70 70 65 6e 64      scale.append
0430: 28 6e 6f 74 65 73 5b 70 6f 73 5d 29 0a 20 20 20  (notes[pos]).   
0440: 20 72 65 74 75 72 6e 20 73 63 61 6c 65 0a 0a 0a   return scale...
0450: 64 65 66 20 67 65 6e 65 72 61 74 65 5f 73 63 6f  def generate_sco
0460: 72 65 28 73 63 6f 72 65 2c 20 67 72 61 6d 6d 61  re(score, gramma
0470: 72 73 29 3a 0a 20 20 20 20 77 68 69 6c 65 20 31  rs):.    while 1
0480: 3a 0a 20 20 20 20 20 20 20 20 66 6f 75 6e 64 5f  :.        found_
0490: 73 75 62 73 74 69 74 75 74 69 6f 6e 20 3d 20 46  substitution = F
04a0: 61 6c 73 65 0a 20 20 20 20 20 20 20 20 66 6f 72  alse.        for
04b0: 20 6b 65 79 2c 76 61 6c 75 65 20 69 6e 20 67 72   key,value in gr
04c0: 61 6d 6d 61 72 73 2e 69 74 65 72 69 74 65 6d 73  ammars.iteritems
04d0: 28 29 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20  ():.            
04e0: 69 66 20 73 63 6f 72 65 2e 66 69 6e 64 28 6b 65  if score.find(ke
04f0: 79 29 20 21 3d 20 2d 31 3a 0a 20 20 20 20 20 20  y) != -1:.      
0500: 20 20 20 20 20 20 20 20 20 20 66 6f 75 6e 64 5f            found_
0510: 73 75 62 73 74 69 74 75 74 69 6f 6e 20 3d 20 54  substitution = T
0520: 72 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20  rue.            
0530: 20 20 20 20 77 68 69 6c 65 20 73 63 6f 72 65 2e      while score.
0540: 66 69 6e 64 28 6b 65 79 29 20 21 3d 20 2d 31 3a  find(key) != -1:
0550: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0560: 20 20 20 20 20 73 63 6f 72 65 20 3d 20 73 63 6f       score = sco
0570: 72 65 2e 72 65 70 6c 61 63 65 28 6b 65 79 2c 20  re.replace(key, 
0580: 72 61 6e 64 6f 6d 2e 63 68 6f 69 63 65 28 67 72  random.choice(gr
0590: 61 6d 6d 61 72 73 5b 6b 65 79 5d 29 2c 20 31 29  ammars[key]), 1)
05a0: 0a 20 20 20 20 20 20 20 20 69 66 20 66 6f 75 6e  .        if foun
05b0: 64 5f 73 75 62 73 74 69 74 75 74 69 6f 6e 20 69  d_substitution i
05c0: 73 20 46 61 6c 73 65 3a 0a 20 20 20 20 20 20 20  s False:.       
05d0: 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 72       break.    r
05e0: 65 74 75 72 6e 20 73 63 6f 72 65 0a 0a 64 65 66  eturn score..def
05f0: 20 74 72 61 6e 73 6c 69 74 65 72 61 74 65 5f 73   transliterate_s
0600: 63 6f 72 65 28 73 63 6f 72 65 2c 20 6b 65 79 2c  core(score, key,
0610: 20 63 68 6f 72 64 73 3d 46 61 6c 73 65 29 3a 0a   chords=False):.
0620: 20 20 20 20 73 63 61 6c 65 20 3d 20 6d 61 6b 65      scale = make
0630: 5f 73 63 61 6c 65 28 6b 65 79 29 0a 20 20 20 20  _scale(key).    
0640: 73 63 61 6c 65 5f 63 6f 6e 76 65 72 73 69 6f 6e  scale_conversion
0650: 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 22 49 22   = {.        "I"
0660: 3a 20 31 2c 0a 20 20 20 20 20 20 20 20 22 49 49  : 1,.        "II
0670: 22 3a 20 32 2c 0a 20 20 20 20 20 20 20 20 22 49  ": 2,.        "I
0680: 49 49 22 3a 20 33 2c 0a 20 20 20 20 20 20 20 20  II": 3,.        
0690: 22 49 56 22 3a 20 34 2c 0a 20 20 20 20 20 20 20  "IV": 4,.       
06a0: 20 22 56 22 3a 20 35 2c 0a 20 20 20 20 20 20 20   "V": 5,.       
06b0: 20 22 56 49 22 3a 20 36 2c 0a 20 20 20 20 20 20   "VI": 6,.      
06c0: 20 20 22 56 49 49 22 3a 20 37 2c 0a 20 20 20 20    "VII": 7,.    
06d0: 20 20 20 20 22 56 49 49 49 22 3a 20 38 2c 0a 20      "VIII": 8,. 
06e0: 20 20 20 7d 0a 20 20 20 20 6b 65 79 65 64 5f 73     }.    keyed_s
06f0: 63 6f 72 65 20 3d 20 5b 5d 0a 20 20 20 20 69 66  core = [].    if
0700: 20 63 68 6f 72 64 73 20 69 73 20 46 61 6c 73 65   chords is False
0710: 3a 0a 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f  :.        for to
0720: 6b 65 6e 20 69 6e 20 73 63 6f 72 65 2e 73 70 6c  ken in score.spl
0730: 69 74 28 29 3a 0a 20 20 20 20 20 20 20 20 20 20  it():.          
0740: 20 20 6b 65 79 65 64 5f 73 63 6f 72 65 2e 61 70    keyed_score.ap
0750: 70 65 6e 64 28 73 63 61 6c 65 5b 73 63 61 6c 65  pend(scale[scale
0760: 5f 63 6f 6e 76 65 72 73 69 6f 6e 5b 74 6f 6b 65  _conversion[toke
0770: 6e 5d 2d 31 5d 29 0a 20 20 20 20 65 6c 73 65 3a  n]-1]).    else:
0780: 0a 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6b  .        for tok
0790: 65 6e 20 69 6e 20 73 63 6f 72 65 2e 73 70 6c 69  en in score.spli
07a0: 74 28 29 3a 0a 20 20 20 20 20 20 20 20 20 20 20  t():.           
07b0: 20 63 68 6f 72 64 20 3d 20 5b 5d 0a 20 20 20 20   chord = [].    
07c0: 20 20 20 20 20 20 20 20 72 6f 6f 74 5f 6e 6f 74          root_not
07d0: 65 5f 69 6e 64 65 78 20 3d 20 73 63 61 6c 65 2e  e_index = scale.
07e0: 69 6e 64 65 78 28 6b 65 79 29 20 2b 20 73 63 61  index(key) + sca
07f0: 6c 65 5f 63 6f 6e 76 65 72 73 69 6f 6e 5b 74 6f  le_conversion[to
0800: 6b 65 6e 5d 0a 20 20 20 20 20 20 20 20 20 20 20  ken].           
0810: 20 63 68 6f 72 64 2e 61 70 70 65 6e 64 28 73 63   chord.append(sc
0820: 61 6c 65 5b 72 6f 6f 74 5f 6e 6f 74 65 5f 69 6e  ale[root_note_in
0830: 64 65 78 5d 29 0a 20 20 20 20 20 20 20 20 20 20  dex]).          
0840: 20 20 63 68 6f 72 64 2e 61 70 70 65 6e 64 28 73    chord.append(s
0850: 63 61 6c 65 5b 28 72 6f 6f 74 5f 6e 6f 74 65 5f  cale[(root_note_
0860: 69 6e 64 65 78 2b 33 29 20 25 20 38 5d 29 0a 20  index+3) % 8]). 
0870: 20 20 20 20 20 20 20 20 20 20 20 63 68 6f 72 64             chord
0880: 2e 61 70 70 65 6e 64 28 73 63 61 6c 65 5b 28 72  .append(scale[(r
0890: 6f 6f 74 5f 6e 6f 74 65 5f 69 6e 64 65 78 2b 35  oot_note_index+5
08a0: 29 20 25 20 38 5d 29 0a 20 20 20 20 20 20 20 20  ) % 8]).        
08b0: 20 20 20 20 6b 65 79 65 64 5f 73 63 6f 72 65 2e      keyed_score.
08c0: 61 70 70 65 6e 64 28 63 68 6f 72 64 29 0a 20 20  append(chord).  
08d0: 20 20 72 65 74 75 72 6e 20 6b 65 79 65 64 5f 73    return keyed_s
08e0: 63 6f 72 65 0a 0a 0a 64 65 66 20 67 65 6e 65 72  core...def gener
08f0: 61 74 65 5f 63 73 6f 75 6e 64 5f 73 63 6f 72 65  ate_csound_score
0900: 28 73 63 6f 72 65 29 3a 0a 20 20 20 20 63 73 6f  (score):.    cso
0910: 75 6e 64 5f 6e 6f 74 65 5f 76 61 6c 75 65 73 20  und_note_values 
0920: 3d 20 7b 0a 20 20 20 20 20 20 20 20 22 43 22 3a  = {.        "C":
0930: 20 22 30 30 22 2c 0a 20 20 20 20 20 20 20 20 22   "00",.        "
0940: 43 23 22 3a 20 22 30 31 22 2c 0a 20 20 20 20 20  C#": "01",.     
0950: 20 20 20 22 44 22 3a 20 22 30 32 22 2c 0a 20 20     "D": "02",.  
0960: 20 20 20 20 20 20 22 44 23 22 3a 20 22 30 33 22        "D#": "03"
0970: 2c 0a 20 20 20 20 20 20 20 20 22 45 22 3a 20 22  ,.        "E": "
0980: 30 34 22 2c 0a 20 20 20 20 20 20 20 20 22 46 22  04",.        "F"
0990: 3a 20 22 30 35 22 2c 0a 20 20 20 20 20 20 20 20  : "05",.        
09a0: 22 46 23 22 3a 20 22 30 36 22 2c 0a 20 20 20 20  "F#": "06",.    
09b0: 20 20 20 20 22 47 22 3a 20 22 30 37 22 2c 0a 20      "G": "07",. 
09c0: 20 20 20 20 20 20 20 22 47 23 22 3a 20 22 30 38         "G#": "08
09d0: 22 2c 0a 20 20 20 20 20 20 20 20 22 41 22 3a 20  ",.        "A": 
09e0: 22 30 39 22 2c 0a 20 20 20 20 20 20 20 20 22 41  "09",.        "A
09f0: 23 22 3a 20 22 31 30 22 2c 0a 20 20 20 20 20 20  #": "10",.      
0a00: 20 20 22 42 22 3a 20 22 31 31 22 2c 0a 20 20 20    "B": "11",.   
0a10: 20 7d 0a 20 20 20 20 74 20 3d 20 30 20 0a 20 20   }.    t = 0 .  
0a20: 20 20 63 73 6f 75 6e 64 5f 73 63 6f 72 65 20 3d    csound_score =
0a30: 20 5b 5d 0a 20 20 20 20 66 6f 72 20 74 6f 6b 65   [].    for toke
0a40: 6e 20 69 6e 20 73 63 6f 72 65 3a 0a 20 20 20 20  n in score:.    
0a50: 20 20 20 20 69 66 20 69 73 69 6e 73 74 61 6e 63      if isinstanc
0a60: 65 28 74 6f 6b 65 6e 2c 20 6c 69 73 74 29 3a 20  e(token, list): 
0a70: 20 23 20 43 68 6f 72 64 73 0a 20 20 20 20 20 20   # Chords.      
0a80: 20 20 20 20 20 20 66 6f 72 20 6e 6f 74 65 20 69        for note i
0a90: 6e 20 74 6f 6b 65 6e 3a 20 0a 20 20 20 20 20 20  n token: .      
0aa0: 20 20 20 20 20 20 20 20 20 20 6e 6f 74 65 20 3d            note =
0ab0: 20 63 73 6f 75 6e 64 5f 6e 6f 74 65 5f 76 61 6c   csound_note_val
0ac0: 75 65 73 5b 6e 6f 74 65 5d 0a 20 20 20 20 20 20  ues[note].      
0ad0: 20 20 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64            csound
0ae0: 5f 73 63 6f 72 65 2e 61 70 70 65 6e 64 28 22 69  _score.append("i
0af0: 32 20 25 28 74 69 6d 65 29 66 20 31 20 37 30 30  2 %(time)f 1 700
0b00: 30 20 25 28 6f 63 74 61 76 65 29 64 2e 25 28 6e  0 %(octave)d.%(n
0b10: 6f 74 65 29 73 20 25 28 6f 63 74 61 76 65 29 64  ote)s %(octave)d
0b20: 2e 25 28 6e 6f 74 65 29 73 20 30 20 36 22 20 25  .%(note)s 0 6" %
0b30: 20 7b 22 74 69 6d 65 22 3a 20 74 2c 20 22 6f 63   {"time": t, "oc
0b40: 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d 2e 63 68  tave": random.ch
0b50: 6f 69 63 65 28 5b 37 2c 38 5d 29 2c 20 22 6e 6f  oice([7,8]), "no
0b60: 74 65 22 3a 20 6e 6f 74 65 7d 29 0a 20 20 20 20  te": note}).    
0b70: 20 20 20 20 20 20 20 20 74 20 2b 3d 20 31 0a 20          t += 1. 
0b80: 20 20 20 20 20 20 20 65 6c 73 65 3a 20 20 23 20         else:  # 
0b90: 49 6e 64 69 76 69 64 75 61 6c 20 6e 6f 74 65 73  Individual notes
0ba0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74  .            not
0bb0: 65 20 3d 20 63 73 6f 75 6e 64 5f 6e 6f 74 65 5f  e = csound_note_
0bc0: 76 61 6c 75 65 73 5b 74 6f 6b 65 6e 5d 0a 20 20  values[token].  
0bd0: 20 20 20 20 20 20 20 20 20 20 63 73 6f 75 6e 64            csound
0be0: 5f 73 63 6f 72 65 2e 61 70 70 65 6e 64 28 22 69  _score.append("i
0bf0: 32 20 25 28 74 69 6d 65 29 66 20 31 20 37 30 30  2 %(time)f 1 700
0c00: 30 20 25 28 6f 63 74 61 76 65 29 64 2e 25 28 6e  0 %(octave)d.%(n
0c10: 6f 74 65 29 73 20 25 28 6f 63 74 61 76 65 29 64  ote)s %(octave)d
0c20: 2e 25 28 6e 6f 74 65 29 73 20 30 20 36 22 20 25  .%(note)s 0 6" %
0c30: 20 7b 22 74 69 6d 65 22 3a 20 74 2c 20 22 6f 63   {"time": t, "oc
0c40: 74 61 76 65 22 3a 20 72 61 6e 64 6f 6d 2e 63 68  tave": random.ch
0c50: 6f 69 63 65 28 5b 38 2c 39 5d 29 2c 20 22 6e 6f  oice([8,9]), "no
0c60: 74 65 22 3a 20 6e 6f 74 65 7d 29 0a 20 20 20 20  te": note}).    
0c70: 20 20 20 20 20 20 20 20 74 20 2b 3d 20 2e 32 35          t += .25
0c80: 0a 20 20 20 20 72 65 74 75 72 6e 20 63 73 6f 75  .    return csou
0c90: 6e 64 5f 73 63 6f 72 65 0a 0a 0a 69 66 20 5f 5f  nd_score...if __
0ca0: 6e 61 6d 65 5f 5f 20 3d 3d 20 22 5f 5f 6d 61 69  name__ == "__mai
0cb0: 6e 5f 5f 22 3a 20 6d 61 69 6e 28 29 20 0a        n__": main() .