Hex Artifact Content
Not logged in

Artifact 9c5639b44b21a292c879ff14ed99ab184332b4da:


0000: 23 20 53 69 6d 70 6c 65 20 70 69 61 6e 6f 0a 0a  # Simple piano..
0010: 23 20 4d 49 44 49 20 47 4d 31 20 73 74 61 6e 64  # MIDI GM1 stand
0020: 61 72 64 20 69 6e 73 74 72 75 6d 65 6e 74 20 67  ard instrument g
0030: 72 6f 75 70 73 20 28 7a 65 72 6f 2d 62 61 73 65  roups (zero-base
0040: 64 29 0a 61 72 72 61 79 20 73 65 74 20 69 6e 73  d).array set ins
0050: 74 5f 67 72 6f 75 70 73 20 7b 0a 20 20 20 20 30  t_groups {.    0
0060: 20 09 50 69 61 6e 6f 0a 20 20 20 20 38 20 09 50   .Piano.    8 .P
0070: 65 72 63 75 73 73 69 6f 6e 0a 20 20 20 20 31 36  ercussion.    16
0080: 20 09 4f 72 67 61 6e 0a 20 20 20 20 32 34 20 09   .Organ.    24 .
0090: 47 75 69 74 61 72 0a 20 20 20 20 33 32 20 09 42  Guitar.    32 .B
00a0: 61 73 73 0a 20 20 20 20 34 30 20 09 53 74 72 69  ass.    40 .Stri
00b0: 6e 67 73 0a 20 20 20 20 34 38 20 09 45 6e 73 65  ngs.    48 .Ense
00c0: 6d 62 6c 65 0a 20 20 20 20 35 36 20 09 42 72 61  mble.    56 .Bra
00d0: 73 73 0a 20 20 20 20 36 34 20 09 52 65 65 64 0a  ss.    64 .Reed.
00e0: 20 20 20 20 37 32 20 09 50 69 70 65 0a 20 20 20      72 .Pipe.   
00f0: 20 38 30 20 09 7b 53 79 6e 74 68 20 4c 65 61 64   80 .{Synth Lead
0100: 7d 0a 20 20 20 20 38 38 20 09 7b 53 79 6e 74 68  }.    88 .{Synth
0110: 20 50 61 64 7d 0a 20 20 20 20 39 36 20 09 7b 53   Pad}.    96 .{S
0120: 79 6e 74 68 20 45 66 66 65 63 74 73 7d 0a 20 20  ynth Effects}.  
0130: 20 20 31 30 34 09 45 74 68 6e 69 63 0a 20 20 20    104.Ethnic.   
0140: 20 31 31 32 09 50 65 72 63 75 73 73 69 76 65 0a   112.Percussive.
0150: 20 20 20 20 31 32 30 09 7b 53 6f 75 6e 64 20 45      120.{Sound E
0160: 66 66 65 63 74 73 7d 0a 7d 0a 0a 23 20 4d 49 44  ffects}.}..# MID
0170: 49 20 47 4d 31 20 73 74 61 6e 64 61 72 64 20 69  I GM1 standard i
0180: 6e 73 74 72 75 6d 65 6e 74 20 6e 75 6d 62 65 72  nstrument number
0190: 73 20 28 7a 65 72 6f 2d 62 61 73 65 64 29 20 74  s (zero-based) t
01a0: 6f 20 6e 61 6d 65 73 0a 61 72 72 61 79 20 73 65  o names.array se
01b0: 74 20 69 6e 73 74 5f 6e 61 6d 65 73 20 7b 0a 20  t inst_names {. 
01c0: 20 20 20 30 20 7b 41 63 6f 75 73 74 69 63 20 47     0 {Acoustic G
01d0: 72 61 6e 64 7d 0a 20 20 20 20 31 20 7b 42 72 69  rand}.    1 {Bri
01e0: 67 68 74 20 41 63 6f 75 73 74 69 63 7d 0a 20 20  ght Acoustic}.  
01f0: 20 20 32 20 7b 45 6c 65 63 74 72 69 63 20 47 72    2 {Electric Gr
0200: 61 6e 64 7d 0a 20 20 20 20 33 20 7b 48 6f 6e 6b  and}.    3 {Honk
0210: 79 20 54 6f 6e 6b 7d 0a 20 20 20 20 34 20 7b 45  y Tonk}.    4 {E
0220: 6c 65 63 74 72 69 63 20 50 69 61 6e 6f 20 31 7d  lectric Piano 1}
0230: 0a 20 20 20 20 35 20 7b 45 6c 65 63 74 72 69 63  .    5 {Electric
0240: 20 50 69 61 6e 6f 20 32 7d 0a 20 20 20 20 36 20   Piano 2}.    6 
0250: 48 61 72 70 73 69 63 68 6f 72 64 0a 20 20 20 20  Harpsichord.    
0260: 37 20 43 6c 61 76 69 6e 65 74 0a 20 20 20 20 38  7 Clavinet.    8
0270: 20 43 65 6c 65 73 74 61 0a 20 20 20 20 39 20 47   Celesta.    9 G
0280: 6c 6f 63 6b 65 6e 73 70 69 65 6c 0a 20 20 20 20  lockenspiel.    
0290: 31 30 20 7b 4d 75 73 69 63 20 42 6f 78 7d 0a 20  10 {Music Box}. 
02a0: 20 20 20 31 31 20 56 69 62 72 61 70 68 6f 6e 65     11 Vibraphone
02b0: 0a 20 20 20 20 31 32 20 4d 61 72 69 6d 62 61 0a  .    12 Marimba.
02c0: 20 20 20 20 31 33 20 58 79 6c 6f 70 68 6f 6e 65      13 Xylophone
02d0: 0a 20 20 20 20 31 34 20 7b 54 75 62 75 6c 61 72  .    14 {Tubular
02e0: 20 42 65 6c 6c 73 7d 0a 20 20 20 20 31 35 20 7b   Bells}.    15 {
02f0: 44 75 6c 63 69 6d 65 72 20 4f 72 67 61 6e 7d 0a  Dulcimer Organ}.
0300: 20 20 20 20 31 36 20 7b 44 72 61 77 62 61 72 20      16 {Drawbar 
0310: 4f 72 67 61 6e 7d 0a 20 20 20 20 31 37 20 7b 50  Organ}.    17 {P
0320: 65 72 63 75 73 73 69 76 65 20 4f 72 67 61 6e 7d  ercussive Organ}
0330: 0a 20 20 20 20 31 38 20 7b 52 6f 63 6b 20 4f 72  .    18 {Rock Or
0340: 67 61 6e 7d 0a 20 20 20 20 31 39 20 7b 43 68 75  gan}.    19 {Chu
0350: 72 63 68 20 4f 72 67 61 6e 7d 0a 20 20 20 20 32  rch Organ}.    2
0360: 30 20 7b 52 65 65 64 20 4f 72 67 61 6e 7d 0a 20  0 {Reed Organ}. 
0370: 20 20 20 32 31 20 41 63 63 6f 72 64 69 61 6e 0a     21 Accordian.
0380: 20 20 20 20 32 32 20 48 61 72 6d 6f 6e 69 63 61      22 Harmonica
0390: 0a 20 20 20 20 32 33 20 7b 54 61 6e 67 6f 20 41  .    23 {Tango A
03a0: 63 63 6f 72 64 69 61 6e 7d 0a 20 20 20 20 32 34  ccordian}.    24
03b0: 20 7b 4e 79 6c 6f 6e 20 53 74 72 69 6e 67 7d 0a   {Nylon String}.
03c0: 20 20 20 20 32 35 20 7b 53 74 65 65 6c 20 53 74      25 {Steel St
03d0: 72 69 6e 67 7d 0a 20 20 20 20 32 36 20 7b 4a 61  ring}.    26 {Ja
03e0: 7a 7a 20 45 6c 65 63 74 72 69 63 7d 0a 20 20 20  zz Electric}.   
03f0: 20 32 37 20 7b 43 6c 65 61 6e 20 45 6c 65 63 74   27 {Clean Elect
0400: 72 69 63 7d 0a 20 20 20 20 32 38 20 7b 4d 75 74  ric}.    28 {Mut
0410: 65 64 20 45 6c 65 63 74 72 69 63 7d 0a 20 20 20  ed Electric}.   
0420: 20 32 39 20 7b 4f 76 65 72 64 72 69 76 65 20 47   29 {Overdrive G
0430: 75 69 74 61 72 7d 0a 20 20 20 20 33 30 20 7b 44  uitar}.    30 {D
0440: 69 73 74 6f 72 74 69 6f 6e 20 47 75 69 74 61 72  istortion Guitar
0450: 7d 0a 20 20 20 20 33 31 20 7b 48 61 72 6d 6f 6e  }.    31 {Harmon
0460: 69 63 73 20 47 75 69 74 61 72 7d 0a 20 20 20 20  ics Guitar}.    
0470: 33 32 20 7b 41 63 6f 75 73 74 69 63 20 42 61 73  32 {Acoustic Bas
0480: 73 7d 0a 20 20 20 20 33 33 20 7b 46 69 6e 67 65  s}.    33 {Finge
0490: 72 65 64 20 42 61 73 73 7d 0a 20 20 20 20 33 34  red Bass}.    34
04a0: 20 7b 50 69 63 6b 65 64 20 42 61 73 73 7d 0a 20   {Picked Bass}. 
04b0: 20 20 20 33 35 20 7b 46 72 65 74 6c 65 73 73 20     35 {Fretless 
04c0: 42 61 73 73 7d 0a 20 20 20 20 33 36 20 7b 53 6c  Bass}.    36 {Sl
04d0: 61 70 20 42 61 73 73 20 31 7d 0a 20 20 20 20 33  ap Bass 1}.    3
04e0: 37 20 7b 53 6c 61 70 20 42 61 73 73 20 32 7d 0a  7 {Slap Bass 2}.
04f0: 20 20 20 20 33 38 20 7b 53 79 6e 74 68 20 42 61      38 {Synth Ba
0500: 73 73 20 31 7d 0a 20 20 20 20 33 39 20 7b 53 79  ss 1}.    39 {Sy
0510: 6e 74 68 20 42 61 73 73 20 32 7d 0a 20 20 20 20  nth Bass 2}.    
0520: 34 30 20 56 69 6f 6c 69 6e 0a 20 20 20 20 34 31  40 Violin.    41
0530: 20 56 69 6f 6c 61 0a 20 20 20 20 34 32 20 43 65   Viola.    42 Ce
0540: 6c 6c 6f 0a 20 20 20 20 34 33 20 43 6f 6e 74 72  llo.    43 Contr
0550: 61 62 61 73 73 0a 20 20 20 20 34 34 20 54 72 65  abass.    44 Tre
0560: 6d 6f 6c 6f 0a 20 20 20 20 34 35 20 50 69 7a 7a  molo.    45 Pizz
0570: 69 63 61 74 6f 0a 20 20 20 20 34 36 20 7b 4f 72  icato.    46 {Or
0580: 63 68 65 73 74 72 61 6c 20 48 61 72 70 7d 0a 20  chestral Harp}. 
0590: 20 20 20 34 37 20 7b 54 69 6d 70 61 6e 69 20 45     47 {Timpani E
05a0: 6e 73 65 6d 62 6c 65 7d 0a 20 20 20 20 34 38 20  nsemble}.    48 
05b0: 53 74 72 69 6e 67 73 0a 20 20 20 20 34 39 20 7b  Strings.    49 {
05c0: 53 6c 6f 77 20 53 74 72 69 6e 67 73 7d 0a 20 20  Slow Strings}.  
05d0: 20 20 35 30 20 7b 53 79 6e 20 53 74 72 69 6e 67    50 {Syn String
05e0: 73 20 31 7d 0a 20 20 20 20 35 31 20 7b 53 79 6e  s 1}.    51 {Syn
05f0: 20 53 74 72 69 6e 67 73 20 32 7d 0a 20 20 20 20   Strings 2}.    
0600: 35 32 20 7b 43 68 6f 69 72 20 41 61 68 73 7d 0a  52 {Choir Aahs}.
0610: 20 20 20 20 35 33 20 7b 43 68 6f 69 72 20 4f 6f      53 {Choir Oo
0620: 68 73 7d 0a 20 20 20 20 35 34 20 7b 53 79 6e 74  hs}.    54 {Synt
0630: 68 20 56 6f 69 63 65 7d 0a 20 20 20 20 35 35 20  h Voice}.    55 
0640: 7b 4f 72 63 68 65 73 74 72 61 20 48 69 74 20 42  {Orchestra Hit B
0650: 72 61 73 73 7d 0a 20 20 20 20 35 36 20 54 72 75  rass}.    56 Tru
0660: 6d 70 65 74 0a 20 20 20 20 35 37 20 54 72 6f 6d  mpet.    57 Trom
0670: 62 6f 6e 65 0a 20 20 20 20 35 38 20 54 75 62 61  bone.    58 Tuba
0680: 0a 20 20 20 20 35 39 20 7b 4d 75 74 65 64 20 54  .    59 {Muted T
0690: 72 75 6d 70 65 74 7d 0a 20 20 20 20 36 30 20 7b  rumpet}.    60 {
06a0: 46 72 65 6e 63 68 20 48 6f 72 6e 7d 0a 20 20 20  French Horn}.   
06b0: 20 36 31 20 7b 42 72 61 73 73 20 53 65 63 74 69   61 {Brass Secti
06c0: 6f 6e 7d 0a 20 20 20 20 36 32 20 7b 53 79 6e 74  on}.    62 {Synt
06d0: 68 42 72 61 73 73 20 31 7d 0a 20 20 20 20 36 33  hBrass 1}.    63
06e0: 20 7b 53 79 6e 74 68 42 72 61 73 73 20 32 7d 0a   {SynthBrass 2}.
06f0: 20 20 20 20 36 34 20 7b 53 6f 70 72 61 6e 6f 20      64 {Soprano 
0700: 53 61 78 7d 0a 20 20 20 20 36 35 20 7b 41 6c 74  Sax}.    65 {Alt
0710: 6f 20 53 61 78 7d 0a 20 20 20 20 36 36 20 7b 54  o Sax}.    66 {T
0720: 65 6e 6f 72 20 53 61 78 7d 0a 20 20 20 20 36 37  enor Sax}.    67
0730: 20 7b 42 61 72 69 74 6f 6e 65 20 53 61 78 7d 0a   {Baritone Sax}.
0740: 20 20 20 20 36 38 20 4f 62 6f 65 0a 20 20 20 20      68 Oboe.    
0750: 36 39 20 7b 45 6e 67 6c 69 73 68 20 48 6f 72 6e  69 {English Horn
0760: 7d 0a 20 20 20 20 37 30 20 42 61 73 73 6f 6f 6e  }.    70 Bassoon
0770: 0a 20 20 20 20 37 31 20 43 6c 61 72 69 6e 65 74  .    71 Clarinet
0780: 0a 20 20 20 20 37 32 20 50 69 63 63 6f 6c 6f 0a  .    72 Piccolo.
0790: 20 20 20 20 37 33 20 46 6c 75 74 65 0a 20 20 20      73 Flute.   
07a0: 20 37 34 20 52 65 63 6f 72 64 65 72 0a 20 20 20   74 Recorder.   
07b0: 20 37 35 20 7b 50 61 6e 20 46 6c 75 74 65 7d 0a   75 {Pan Flute}.
07c0: 20 20 20 20 37 36 20 42 6f 74 74 6c 65 0a 20 20      76 Bottle.  
07d0: 20 20 37 37 20 53 68 61 6b 75 68 63 68 69 0a 20    77 Shakuhchi. 
07e0: 20 20 20 37 38 20 57 68 69 73 74 6c 65 0a 20 20     78 Whistle.  
07f0: 20 20 37 39 20 4f 63 6f 72 69 6e 61 0a 20 20 20    79 Ocorina.   
0800: 20 38 30 20 53 71 75 61 72 65 0a 20 20 20 20 38   80 Square.    8
0810: 31 20 53 61 77 74 6f 6f 74 68 0a 20 20 20 20 38  1 Sawtooth.    8
0820: 32 20 43 61 6c 6c 69 6f 70 65 0a 20 20 20 20 38  2 Calliope.    8
0830: 33 20 43 68 69 66 66 0a 20 20 20 20 38 34 20 43  3 Chiff.    84 C
0840: 68 61 72 61 6e 67 0a 20 20 20 20 38 35 20 56 6f  harang.    85 Vo
0850: 69 63 65 0a 20 20 20 20 38 36 20 46 69 66 74 68  ice.    86 Fifth
0860: 73 0a 20 20 20 20 38 37 20 7b 42 61 73 73 2f 4c  s.    87 {Bass/L
0870: 65 61 64 20 53 79 6e 74 68 7d 0a 20 20 20 20 38  ead Synth}.    8
0880: 38 20 7b 4e 65 77 20 41 67 65 20 53 79 6e 74 68  8 {New Age Synth
0890: 7d 0a 20 20 20 20 38 39 20 7b 57 61 72 6d 20 53  }.    89 {Warm S
08a0: 79 6e 74 68 7d 0a 20 20 20 20 39 30 20 50 6f 6c  ynth}.    90 Pol
08b0: 79 73 79 6e 74 68 0a 20 20 20 20 39 31 20 7b 43  ysynth.    91 {C
08c0: 68 6f 69 72 20 53 79 6e 74 68 7d 0a 20 20 20 20  hoir Synth}.    
08d0: 39 32 20 7b 42 6f 77 65 64 20 53 79 6e 74 68 7d  92 {Bowed Synth}
08e0: 0a 20 20 20 20 39 33 20 7b 4d 65 74 61 6c 6c 69  .    93 {Metalli
08f0: 63 20 53 79 6e 74 68 7d 0a 20 20 20 20 39 34 20  c Synth}.    94 
0900: 7b 48 61 6c 6f 20 53 79 6e 74 68 7d 0a 20 20 20  {Halo Synth}.   
0910: 20 39 35 20 7b 53 77 65 65 70 20 53 79 6e 74 68   95 {Sweep Synth
0920: 7d 0a 20 20 20 20 39 36 20 7b 49 63 65 20 52 61  }.    96 {Ice Ra
0930: 69 6e 20 46 58 7d 0a 20 20 20 20 39 37 20 7b 53  in FX}.    97 {S
0940: 6f 75 6e 64 20 54 72 61 63 6b 20 46 58 7d 0a 20  ound Track FX}. 
0950: 20 20 20 39 38 20 7b 43 72 79 73 74 61 6c 20 46     98 {Crystal F
0960: 58 7d 0a 20 20 20 20 39 39 20 7b 41 74 6d 6f 73  X}.    99 {Atmos
0970: 70 68 65 72 65 20 46 58 7d 0a 20 20 20 20 31 30  phere FX}.    10
0980: 30 20 7b 42 72 69 67 68 74 6e 65 73 73 20 46 58  0 {Brightness FX
0990: 7d 0a 20 20 20 20 31 30 31 20 7b 47 6f 62 6c 69  }.    101 {Gobli
09a0: 6e 73 20 46 58 7d 0a 20 20 20 20 31 30 32 20 7b  ns FX}.    102 {
09b0: 45 63 68 6f 73 20 46 58 7d 0a 20 20 20 20 31 30  Echos FX}.    10
09c0: 33 20 53 63 69 2d 46 69 0a 20 20 20 20 31 30 34  3 Sci-Fi.    104
09d0: 20 53 69 74 61 72 0a 20 20 20 20 31 30 35 20 42   Sitar.    105 B
09e0: 61 6e 6a 6f 0a 20 20 20 20 31 30 36 20 53 68 61  anjo.    106 Sha
09f0: 6d 69 73 65 6e 0a 20 20 20 20 31 30 37 20 4b 6f  misen.    107 Ko
0a00: 74 6f 0a 20 20 20 20 31 30 38 20 4b 61 6c 69 6d  to.    108 Kalim
0a10: 62 61 0a 20 20 20 20 31 30 39 20 42 61 67 70 69  ba.    109 Bagpi
0a20: 70 65 0a 20 20 20 20 31 31 30 20 46 69 64 64 6c  pe.    110 Fiddl
0a30: 65 0a 20 20 20 20 31 31 31 20 53 68 61 6e 61 69  e.    111 Shanai
0a40: 0a 20 20 20 20 31 31 32 20 7b 54 69 6e 6b 6c 65  .    112 {Tinkle
0a50: 20 42 65 6c 6c 7d 0a 20 20 20 20 31 31 33 20 41   Bell}.    113 A
0a60: 67 6f 67 6f 0a 20 20 20 20 31 31 34 20 7b 53 74  gogo.    114 {St
0a70: 65 65 6c 20 44 72 75 6d 73 7d 0a 20 20 20 20 31  eel Drums}.    1
0a80: 31 35 20 57 6f 6f 64 62 6c 6f 63 6b 0a 20 20 20  15 Woodblock.   
0a90: 20 31 31 36 20 7b 54 61 69 6b 6f 20 44 72 75 6d   116 {Taiko Drum
0aa0: 7d 0a 20 20 20 20 31 31 37 20 7b 4d 65 6c 6f 64  }.    117 {Melod
0ab0: 69 63 20 54 6f 6d 7d 0a 20 20 20 20 31 31 38 20  ic Tom}.    118 
0ac0: 7b 53 79 6e 74 68 20 44 72 75 6d 7d 0a 20 20 20  {Synth Drum}.   
0ad0: 20 31 31 39 20 7b 52 65 76 20 43 79 6d 62 61 6c   119 {Rev Cymbal
0ae0: 7d 0a 20 20 20 20 31 32 30 20 7b 46 72 65 74 20  }.    120 {Fret 
0af0: 4e 6f 69 73 65 7d 0a 20 20 20 20 31 32 31 20 7b  Noise}.    121 {
0b00: 42 72 65 61 74 68 20 4e 6f 69 73 65 7d 0a 20 20  Breath Noise}.  
0b10: 20 20 31 32 32 20 53 65 61 73 68 6f 72 65 0a 20    122 Seashore. 
0b20: 20 20 20 31 32 33 20 7b 42 69 72 64 20 54 77 65     123 {Bird Twe
0b30: 65 74 7d 0a 20 20 20 20 31 32 34 20 54 65 6c 65  et}.    124 Tele
0b40: 70 68 6f 6e 65 0a 20 20 20 20 31 32 35 20 48 65  phone.    125 He
0b50: 6c 69 63 6f 70 74 65 72 0a 20 20 20 20 31 32 36  licopter.    126
0b60: 20 41 70 70 6c 61 75 73 65 0a 20 20 20 20 31 32   Applause.    12
0b70: 37 20 47 75 6e 73 68 6f 74 0a 7d 0a 0a 70 72 6f  7 Gunshot.}..pro
0b80: 63 20 64 72 61 77 4b 65 79 62 6f 61 72 64 20 7b  c drawKeyboard {
0b90: 63 20 78 30 20 79 30 20 64 78 20 64 79 20 6e 6b  c x0 y0 dx dy nk
0ba0: 65 79 73 7d 20 7b 0a 20 20 20 20 73 65 74 20 79  eys} {.    set y
0bb0: 31 20 20 5b 65 78 70 72 20 7b 24 79 30 2b 24 64  1  [expr {$y0+$d
0bc0: 79 7d 5d 0a 20 20 20 20 73 65 74 20 79 30 35 20  y}].    set y05 
0bd0: 5b 65 78 70 72 20 24 79 31 2a 2e 36 37 5d 20 20  [expr $y1*.67]  
0be0: 3b 23 20 6c 65 6e 67 74 68 20 6f 66 20 62 6c 61  ;# length of bla
0bf0: 63 6b 20 6b 65 79 73 0a 20 20 20 20 73 65 74 20  ck keys.    set 
0c00: 64 78 32 20 5b 65 78 70 72 20 7b 24 64 78 2f 32  dx2 [expr {$dx/2
0c10: 7d 5d 20 20 3b 23 20 6f 66 66 73 65 74 20 6f 66  }]  ;# offset of
0c20: 20 62 6c 61 63 6b 20 6b 65 79 73 0a 20 20 20 20   black keys.    
0c30: 73 65 74 20 6e 6b 65 79 20 30 0a 20 20 20 20 66  set nkey 0.    f
0c40: 6f 72 20 7b 73 65 74 20 6e 6f 74 65 20 34 38 7d  or {set note 48}
0c50: 20 7b 24 6e 6b 65 79 20 3c 20 24 6e 6b 65 79 73   {$nkey < $nkeys
0c60: 7d 20 7b 69 6e 63 72 20 6e 6f 74 65 20 3b 20 69  } {incr note ; i
0c70: 6e 63 72 20 6e 6b 65 79 7d 20 7b 0a 09 73 65 74  ncr nkey} {..set
0c80: 20 6b 65 79 20 5b 65 78 70 72 20 7b 28 24 6e 6f   key [expr {($no
0c90: 74 65 20 2d 20 33 36 29 20 25 20 31 32 7d 5d 0a  te - 36) % 12}].
0ca0: 09 69 66 20 7b 24 6b 65 79 3d 3d 31 20 7c 7c 20  .if {$key==1 || 
0cb0: 24 6b 65 79 3d 3d 33 20 7c 7c 20 24 6b 65 79 3d  $key==3 || $key=
0cc0: 3d 36 20 7c 7c 20 24 6b 65 79 3d 3d 38 20 7c 7c  =6 || $key==8 ||
0cd0: 20 24 6b 65 79 3d 3d 31 30 7d 20 7b 0a 09 20 20   $key==10} {..  
0ce0: 20 20 23 20 62 6c 61 63 6b 20 6b 65 79 0a 20 20    # black key.  
0cf0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 78 20            set x 
0d00: 5b 65 78 70 72 20 7b 24 78 30 20 2d 20 24 64 78  [expr {$x0 - $dx
0d10: 2a 2e 33 35 7d 5d 0a 20 20 20 20 20 20 20 20 20  *.35}].         
0d20: 20 20 20 73 65 74 20 69 64 20 5b 24 63 20 63 72     set id [$c cr
0d30: 65 61 74 65 20 72 65 63 74 20 24 78 20 24 79 30  eate rect $x $y0
0d40: 20 5b 65 78 70 72 20 7b 24 78 2b 24 64 78 2a 30   [expr {$x+$dx*0
0d50: 2e 36 7d 5d 20 24 79 30 35 20 5c 0a 20 20 20 20  .6}] $y05 \.    
0d60: 20 20 20 20 20 20 20 20 20 20 20 20 2d 66 69 6c              -fil
0d70: 6c 20 62 6c 61 63 6b 20 2d 74 61 67 73 20 5b 6c  l black -tags [l
0d80: 69 73 74 20 6e 6f 74 65 20 24 6e 6f 74 65 20 62  ist note $note b
0d90: 6c 61 63 6b 5d 5d 0a 20 20 20 20 20 20 20 20 7d  lack]].        }
0da0: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 77   else {..    # w
0db0: 68 69 74 65 20 6b 65 79 0a 20 20 20 20 20 20 20  hite key.       
0dc0: 20 20 20 20 20 73 65 74 20 69 64 20 5b 24 63 20       set id [$c 
0dd0: 63 72 65 61 74 65 20 72 65 63 74 20 24 78 30 20  create rect $x0 
0de0: 24 79 30 20 5b 65 78 70 72 20 24 78 30 2b 24 64  $y0 [expr $x0+$d
0df0: 78 5d 20 24 79 31 20 5c 0a 09 20 20 20 20 20 20  x] $y1 \..      
0e00: 20 20 2d 66 69 6c 6c 20 77 68 69 74 65 20 2d 74    -fill white -t
0e10: 61 67 73 20 5b 6c 69 73 74 20 6e 6f 74 65 20 24  ags [list note $
0e20: 6e 6f 74 65 20 77 68 69 74 65 5d 5d 0a 20 20 20  note white]].   
0e30: 20 20 20 20 20 20 20 20 20 69 6e 63 72 20 78 30           incr x0
0e40: 20 24 64 78 0a 09 20 20 20 20 69 6e 63 72 20 78   $dx..    incr x
0e50: 30 20 31 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  0 1.        }.  
0e60: 20 20 7d 0a 20 20 20 20 24 63 20 72 61 69 73 65    }.    $c raise
0e70: 20 62 6c 61 63 6b 0a 20 20 20 20 73 65 74 20 6d   black.    set m
0e80: 61 78 78 20 5b 6c 69 6e 64 65 78 20 5b 24 63 20  axx [lindex [$c 
0e90: 62 62 6f 78 20 61 6c 6c 5d 20 32 5d 0a 20 20 20  bbox all] 2].   
0ea0: 20 69 66 20 7b 5b 24 63 20 63 67 65 74 20 2d 77   if {[$c cget -w
0eb0: 69 64 74 68 5d 3c 24 6d 61 78 78 7d 20 7b 24 63  idth]<$maxx} {$c
0ec0: 20 63 6f 6e 66 69 67 20 2d 77 69 64 74 68 20 5b   config -width [
0ed0: 65 78 70 72 20 7b 24 6d 61 78 78 7d 5d 7d 0a 20  expr {$maxx}]}. 
0ee0: 20 20 20 73 65 74 20 6d 61 78 79 20 5b 6c 69 6e     set maxy [lin
0ef0: 64 65 78 20 5b 24 63 20 62 62 6f 78 20 61 6c 6c  dex [$c bbox all
0f00: 5d 20 33 5d 0a 20 20 20 20 69 66 20 7b 5b 24 63  ] 3].    if {[$c
0f10: 20 63 67 65 74 20 2d 68 65 69 67 68 74 5d 3c 24   cget -height]<$
0f20: 6d 61 78 79 7d 20 7b 24 63 20 63 6f 6e 66 69 67  maxy} {$c config
0f30: 20 2d 68 65 69 67 68 74 20 5b 65 78 70 72 20 7b   -height [expr {
0f40: 24 6d 61 78 79 7d 5d 7d 0a 20 20 20 20 66 6f 72  $maxy}]}.    for
0f50: 20 7b 73 65 74 20 62 75 74 20 31 30 7d 20 7b 24   {set but 10} {$
0f60: 62 75 74 20 3c 20 32 30 7d 20 7b 69 6e 63 72 20  but < 20} {incr 
0f70: 62 75 74 7d 20 7b 0a 09 62 69 6e 64 20 24 63 20  but} {..bind $c 
0f80: 20 3c 42 75 74 74 6f 6e 50 72 65 73 73 2d 24 62   <ButtonPress-$b
0f90: 75 74 3e 20 5b 6c 69 73 74 20 6e 6f 74 65 4f 6e  ut> [list noteOn
0fa0: 4f 66 66 20 25 57 20 36 30 20 25 62 20 25 78 20  Off %W 60 %b %x 
0fb0: 25 79 5d 0a 09 23 20 6e 65 65 64 20 61 6c 6c 20  %y]..# need all 
0fc0: 62 69 6e 64 69 6e 67 20 73 69 6e 63 65 20 62 75  binding since bu
0fd0: 74 74 6f 6e 73 20 31 30 2e 2e 31 39 20 61 72 65  ttons 10..19 are
0fe0: 20 6e 6f 74 20 69 6d 70 6c 69 63 69 74 65 6c 79   not implicitely
0ff0: 20 67 72 61 62 62 65 64 0a 09 62 69 6e 64 20 61   grabbed..bind a
1000: 6c 6c 20 3c 42 75 74 74 6f 6e 52 65 6c 65 61 73  ll <ButtonReleas
1010: 65 2d 24 62 75 74 3e 20 5b 6c 69 73 74 20 6e 6f  e-$but> [list no
1020: 74 65 4f 6e 4f 66 66 20 2e 63 20 30 20 25 62 20  teOnOff .c 0 %b 
1030: 30 20 30 5d 0a 20 20 20 20 7d 0a 7d 0a 0a 70 72  0 0].    }.}..pr
1040: 6f 63 20 6e 6f 74 65 4f 6e 4f 66 66 20 7b 63 20  oc noteOnOff {c 
1050: 76 6f 6c 75 6d 65 20 62 75 74 74 6f 6e 20 78 20  volume button x 
1060: 79 7d 20 7b 0a 20 20 20 20 73 65 74 20 64 75 72  y} {.    set dur
1070: 61 74 69 6f 6e 20 5b 65 78 70 72 20 7b 24 76 6f  ation [expr {$vo
1080: 6c 75 6d 65 20 3f 20 2d 31 20 3a 20 30 7d 5d 0a  lume ? -1 : 0}].
1090: 20 20 20 20 69 66 20 7b 24 64 75 72 61 74 69 6f      if {$duratio
10a0: 6e 7d 20 7b 0a 09 23 20 6e 6f 74 65 20 6f 6e 0a  n} {..# note on.
10b0: 09 73 65 74 20 78 20 5b 24 63 20 63 61 6e 76 61  .set x [$c canva
10c0: 73 78 20 24 78 5d 0a 09 73 65 74 20 79 20 5b 24  sx $x]..set y [$
10d0: 63 20 63 61 6e 76 61 73 79 20 24 79 5d 0a 09 73  c canvasy $y]..s
10e0: 65 74 20 69 64 20 5b 24 63 20 66 69 6e 64 20 63  et id [$c find c
10f0: 6c 6f 73 65 73 74 20 24 78 20 24 79 5d 0a 09 69  losest $x $y]..i
1100: 66 20 7b 24 69 64 20 6e 65 20 22 22 7d 20 7b 0a  f {$id ne ""} {.
1110: 09 20 20 20 20 73 65 74 20 6e 6f 74 65 20 5b 6c  .    set note [l
1120: 69 6e 64 65 78 20 5b 24 63 20 67 65 74 74 61 67  index [$c gettag
1130: 73 20 24 69 64 5d 20 31 5d 0a 09 20 20 20 20 69  s $id] 1]..    i
1140: 66 20 7b 24 6e 6f 74 65 20 6e 65 20 22 22 7d 20  f {$note ne ""} 
1150: 7b 0a 09 09 6d 75 7a 69 63 3a 3a 70 6c 61 79 6e  {...muzic::playn
1160: 6f 74 65 20 30 20 24 6e 6f 74 65 20 24 76 6f 6c  ote 0 $note $vol
1170: 75 6d 65 20 24 64 75 72 61 74 69 6f 6e 0a 09 09  ume $duration...
1180: 24 63 20 6d 6f 76 65 20 24 69 64 20 2d 31 20 2d  $c move $id -1 -
1190: 34 0a 09 09 24 63 20 61 64 64 74 61 67 20 62 24  4...$c addtag b$
11a0: 62 75 74 74 6f 6e 20 77 69 74 68 74 61 67 20 24  button withtag $
11b0: 69 64 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20  id..    }..}.   
11c0: 20 7d 20 65 6c 73 65 20 7b 0a 09 23 20 6e 6f 74   } else {..# not
11d0: 65 20 6f 66 66 0a 09 66 6f 72 65 61 63 68 20 69  e off..foreach i
11e0: 64 20 5b 24 63 20 66 69 6e 64 20 77 69 74 68 74  d [$c find witht
11f0: 61 67 20 62 24 62 75 74 74 6f 6e 5d 20 7b 0a 09  ag b$button] {..
1200: 20 20 20 20 73 65 74 20 6e 6f 74 65 20 5b 6c 69      set note [li
1210: 6e 64 65 78 20 5b 24 63 20 67 65 74 74 61 67 73  ndex [$c gettags
1220: 20 24 69 64 5d 20 31 5d 0a 09 20 20 20 20 69 66   $id] 1]..    if
1230: 20 7b 24 6e 6f 74 65 20 6e 65 20 22 22 7d 20 7b   {$note ne ""} {
1240: 0a 09 09 6d 75 7a 69 63 3a 3a 70 6c 61 79 6e 6f  ...muzic::playno
1250: 74 65 20 30 20 24 6e 6f 74 65 20 24 76 6f 6c 75  te 0 $note $volu
1260: 6d 65 20 24 64 75 72 61 74 69 6f 6e 0a 09 20 20  me $duration..  
1270: 20 20 7d 0a 09 7d 0a 09 24 63 20 6d 6f 76 65 20    }..}..$c move 
1280: 62 24 62 75 74 74 6f 6e 20 31 20 34 0a 09 24 63  b$button 1 4..$c
1290: 20 64 74 61 67 20 62 24 62 75 74 74 6f 6e 0a 20   dtag b$button. 
12a0: 20 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 73 65 74     }.}..proc set
12b0: 43 68 61 6e 6e 65 6c 20 7b 76 61 6c 7d 20 7b 0a  Channel {val} {.
12c0: 20 20 20 20 6d 75 7a 69 63 3a 3a 63 68 61 6e 6e      muzic::chann
12d0: 65 6c 20 30 20 24 76 61 6c 0a 20 20 20 20 73 65  el 0 $val.    se
12e0: 74 20 3a 3a 69 6e 73 74 28 6e 61 6d 65 29 20 24  t ::inst(name) $
12f0: 3a 3a 69 6e 73 74 5f 6e 61 6d 65 73 28 24 76 61  ::inst_names($va
1300: 6c 29 0a 20 20 20 20 73 65 74 20 3a 3a 69 6e 73  l).    set ::ins
1310: 74 28 63 68 61 6e 6e 65 6c 29 20 24 76 61 6c 0a  t(channel) $val.
1320: 7d 0a 0a 70 72 6f 63 20 73 65 6c 65 63 74 47 72  }..proc selectGr
1330: 6f 75 70 20 7b 67 72 70 20 72 6f 77 20 63 6f 6c  oup {grp row col
1340: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 69 6e  } {.    set ::in
1350: 73 74 28 67 72 70 29 20 24 67 72 70 0a 20 20 20  st(grp) $grp.   
1360: 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b   for {set i 0} {
1370: 24 69 20 3c 20 38 7d 20 7b 69 6e 63 72 20 69 7d  $i < 8} {incr i}
1380: 20 7b 0a 09 73 65 74 20 69 69 20 5b 65 78 70 72   {..set ii [expr
1390: 20 7b 24 67 72 70 20 2b 20 24 69 7d 5d 0a 09 2e   {$grp + $i}]...
13a0: 6a 2e 69 24 69 20 63 6f 6e 66 69 67 75 72 65 20  j.i$i configure 
13b0: 2d 74 65 78 74 20 24 3a 3a 69 6e 73 74 5f 6e 61  -text $::inst_na
13c0: 6d 65 73 28 24 69 69 29 0a 20 20 20 20 7d 0a 20  mes($ii).    }. 
13d0: 20 20 20 66 6f 72 65 61 63 68 20 77 20 5b 77 69     foreach w [wi
13e0: 6e 66 6f 20 63 68 69 6c 64 20 2e 69 5d 20 7b 0a  nfo child .i] {.
13f0: 09 24 77 20 63 6f 6e 66 69 67 75 72 65 20 2d 62  .$w configure -b
1400: 61 63 6b 67 72 6f 75 6e 64 20 23 33 33 39 39 33  ackground #33993
1410: 33 20 2d 66 6f 72 65 67 72 6f 75 6e 64 20 23 30  3 -foreground #0
1420: 30 30 30 30 30 0a 20 20 20 20 7d 0a 20 20 20 20  00000.    }.    
1430: 2e 69 2e 6c 24 7b 72 6f 77 7d 24 7b 63 6f 6c 7d  .i.l${row}${col}
1440: 20 63 6f 6e 66 69 67 75 72 65 20 2d 62 61 63 6b   configure -back
1450: 67 72 6f 75 6e 64 20 23 35 35 42 42 35 35 20 2d  ground #55BB55 -
1460: 66 6f 72 65 67 72 6f 75 6e 64 20 23 46 46 46 46  foreground #FFFF
1470: 46 46 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66  FF.    if {![inf
1480: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6e 73 74 28  o exists ::inst(
1490: 67 72 70 5f 24 67 72 70 29 5d 7d 20 7b 0a 09 73  grp_$grp)]} {..s
14a0: 65 74 20 3a 3a 69 6e 73 74 28 67 72 70 5f 24 67  et ::inst(grp_$g
14b0: 72 70 29 20 30 0a 20 20 20 20 7d 0a 20 20 20 20  rp) 0.    }.    
14c0: 73 65 6c 65 63 74 49 6e 73 74 72 75 6d 65 6e 74  selectInstrument
14d0: 20 24 3a 3a 69 6e 73 74 28 67 72 70 5f 24 67 72   $::inst(grp_$gr
14e0: 70 29 0a 7d 0a 0a 70 72 6f 63 20 73 65 6c 65 63  p).}..proc selec
14f0: 74 49 6e 73 74 72 75 6d 65 6e 74 20 7b 69 6e 73  tInstrument {ins
1500: 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 69 69 20  t} {.    set ii 
1510: 5b 65 78 70 72 20 7b 24 3a 3a 69 6e 73 74 28 67  [expr {$::inst(g
1520: 72 70 29 20 2b 20 24 69 6e 73 74 7d 5d 0a 20 20  rp) + $inst}].  
1530: 20 20 66 6f 72 65 61 63 68 20 77 20 5b 77 69 6e    foreach w [win
1540: 66 6f 20 63 68 69 6c 64 20 2e 6a 5d 20 7b 0a 09  fo child .j] {..
1550: 24 77 20 63 6f 6e 66 69 67 75 72 65 20 2d 62 61  $w configure -ba
1560: 63 6b 67 72 6f 75 6e 64 20 23 34 34 34 34 41 41  ckground #4444AA
1570: 20 2d 66 6f 72 65 67 72 6f 75 6e 64 20 23 30 30   -foreground #00
1580: 30 30 30 30 0a 20 20 20 20 7d 0a 20 20 20 20 2e  0000.    }.    .
1590: 6a 2e 69 24 7b 69 6e 73 74 7d 20 63 6f 6e 66 69  j.i${inst} confi
15a0: 67 75 72 65 20 2d 62 61 63 6b 67 72 6f 75 6e 64  gure -background
15b0: 20 23 36 36 36 36 43 43 20 2d 66 6f 72 65 67 72   #6666CC -foregr
15c0: 6f 75 6e 64 20 23 43 43 43 43 43 43 0a 20 20 20  ound #CCCCCC.   
15d0: 20 73 65 74 43 68 61 6e 6e 65 6c 20 24 69 69 0a   setChannel $ii.
15e0: 20 20 20 20 73 65 74 20 3a 3a 69 6e 73 74 28 67      set ::inst(g
15f0: 72 70 5f 24 3a 3a 69 6e 73 74 28 67 72 70 29 29  rp_$::inst(grp))
1600: 20 24 69 6e 73 74 0a 7d 0a 0a 70 72 6f 63 20 6d   $inst.}..proc m
1610: 61 6b 65 47 55 49 20 7b 7d 20 7b 0a 20 20 20 20  akeGUI {} {.    
1620: 62 69 6e 64 20 2e 20 3c 4b 65 79 2d 42 72 65 61  bind . <Key-Brea
1630: 6b 3e 20 65 78 69 74 0a 20 20 20 20 62 69 6e 64  k> exit.    bind
1640: 20 2e 20 3c 43 6f 6e 66 69 67 75 72 65 3e 20 7b   . <Configure> {
1650: 7d 0a 20 20 20 20 73 65 74 20 6d 6d 77 69 64 74  }.    set mmwidt
1660: 68 20 5b 77 69 6e 66 6f 20 73 63 72 65 65 6e 6d  h [winfo screenm
1670: 6d 77 69 64 74 68 20 2e 5d 0a 20 20 20 20 69 66  mwidth .].    if
1680: 20 7b 24 6d 6d 77 69 64 74 68 20 3c 20 31 30 30   {$mmwidth < 100
1690: 7d 20 7b 0a 09 66 6f 6e 74 20 63 6f 6e 66 69 67  } {..font config
16a0: 75 72 65 20 54 6b 44 65 66 61 75 6c 74 46 6f 6e  ure TkDefaultFon
16b0: 74 20 2d 73 69 7a 65 20 35 20 2d 77 65 69 67 68  t -size 5 -weigh
16c0: 74 20 62 6f 6c 64 0a 20 20 20 20 7d 20 65 6c 73  t bold.    } els
16d0: 65 69 66 20 7b 24 6d 6d 77 69 64 74 68 20 3c 20  eif {$mmwidth < 
16e0: 31 34 30 7d 20 7b 0a 09 66 6f 6e 74 20 63 6f 6e  140} {..font con
16f0: 66 69 67 75 72 65 20 54 6b 44 65 66 61 75 6c 74  figure TkDefault
1700: 46 6f 6e 74 20 2d 73 69 7a 65 20 36 20 2d 77 65  Font -size 6 -we
1710: 69 67 68 74 20 62 6f 6c 64 0a 20 20 20 20 7d 20  ight bold.    } 
1720: 65 6c 73 65 20 7b 0a 09 66 6f 6e 74 20 63 6f 6e  else {..font con
1730: 66 69 67 75 72 65 20 54 6b 44 65 66 61 75 6c 74  figure TkDefault
1740: 46 6f 6e 74 20 2d 73 69 7a 65 20 38 0a 20 20 20  Font -size 8.   
1750: 20 7d 0a 20 20 20 20 73 65 74 20 77 69 64 74 68   }.    set width
1760: 20 5b 77 69 6e 66 6f 20 73 63 72 65 65 6e 77 69   [winfo screenwi
1770: 64 74 68 20 2e 5d 0a 20 20 20 20 73 65 74 20 68  dth .].    set h
1780: 65 69 67 68 74 20 5b 77 69 6e 66 6f 20 73 63 72  eight [winfo scr
1790: 65 65 6e 68 65 69 67 68 74 20 2e 5d 0a 20 20 20  eenheight .].   
17a0: 20 69 6e 63 72 20 77 69 64 74 68 20 2d 36 30 0a   incr width -60.
17b0: 20 20 20 20 73 65 74 20 6b 77 69 64 74 68 20 5b      set kwidth [
17c0: 65 78 70 72 20 72 6f 75 6e 64 28 24 77 69 64 74  expr round($widt
17d0: 68 20 2f 20 32 39 2e 30 29 5d 0a 20 20 20 20 73  h / 29.0)].    s
17e0: 65 74 20 6b 68 65 69 67 68 74 20 5b 65 78 70 72  et kheight [expr
17f0: 20 72 6f 75 6e 64 28 24 6b 77 69 64 74 68 20 2a   round($kwidth *
1800: 20 36 2e 32 35 29 5d 0a 20 20 20 20 73 65 74 20   6.25)].    set 
1810: 62 68 65 69 67 68 74 20 5b 65 78 70 72 20 7b 24  bheight [expr {$
1820: 68 65 69 67 68 74 20 2d 20 24 6b 68 65 69 67 68  height - $kheigh
1830: 74 7d 5d 0a 20 20 20 20 73 65 74 20 70 61 64 79  t}].    set pady
1840: 20 5b 65 78 70 72 20 72 6f 75 6e 64 28 24 62 68   [expr round($bh
1850: 65 69 67 68 74 20 2a 20 30 2e 35 20 2a 20 30 2e  eight * 0.5 * 0.
1860: 30 33 29 5d 0a 20 20 20 20 66 72 61 6d 65 20 2e  03)].    frame .
1870: 69 20 2d 77 69 64 74 68 20 24 77 69 64 74 68 20  i -width $width 
1880: 2d 68 65 69 67 68 74 20 5b 65 78 70 72 20 72 6f  -height [expr ro
1890: 75 6e 64 28 24 62 68 65 69 67 68 74 20 2a 20 30  und($bheight * 0
18a0: 2e 35 29 5d 0a 20 20 20 20 66 6f 72 65 61 63 68  .5)].    foreach
18b0: 20 69 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67   i [lsort -integ
18c0: 65 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20  er [array names 
18d0: 3a 3a 69 6e 73 74 5f 67 72 6f 75 70 73 5d 5d 20  ::inst_groups]] 
18e0: 7b 0a 09 73 65 74 20 69 69 20 5b 65 78 70 72 20  {..set ii [expr 
18f0: 7b 24 69 20 2f 20 38 7d 5d 0a 09 73 65 74 20 63  {$i / 8}]..set c
1900: 6f 6c 20 5b 65 78 70 72 20 7b 24 69 69 20 25 20  ol [expr {$ii % 
1910: 34 7d 5d 0a 09 73 65 74 20 72 6f 77 20 5b 65 78  4}]..set row [ex
1920: 70 72 20 7b 24 69 69 20 2f 20 34 7d 5d 0a 09 6c  pr {$ii / 4}]..l
1930: 61 62 65 6c 20 2e 69 2e 6c 24 7b 72 6f 77 7d 24  abel .i.l${row}$
1940: 7b 63 6f 6c 7d 20 2d 74 65 78 74 20 24 3a 3a 69  {col} -text $::i
1950: 6e 73 74 5f 67 72 6f 75 70 73 28 24 69 29 20 2d  nst_groups($i) -
1960: 70 61 64 79 20 24 70 61 64 79 20 5c 0a 09 20 20  pady $pady \..  
1970: 20 20 2d 62 61 63 6b 67 72 6f 75 6e 64 20 23 34    -background #4
1980: 34 41 41 34 34 20 2d 66 6f 72 65 67 72 6f 75 6e  4AA44 -foregroun
1990: 64 20 23 30 30 30 30 30 30 0a 09 67 72 69 64 20  d #000000..grid 
19a0: 2e 69 2e 6c 24 7b 72 6f 77 7d 24 7b 63 6f 6c 7d  .i.l${row}${col}
19b0: 20 2d 72 6f 77 20 24 72 6f 77 20 2d 63 6f 6c 75   -row $row -colu
19c0: 6d 6e 20 24 63 6f 6c 20 2d 73 74 69 63 6b 79 20  mn $col -sticky 
19d0: 6e 73 77 65 20 5c 0a 09 20 20 20 20 2d 70 61 64  nswe \..    -pad
19e0: 78 20 35 20 2d 70 61 64 79 20 35 0a 09 62 69 6e  x 5 -pady 5..bin
19f0: 64 20 2e 69 2e 6c 24 7b 72 6f 77 7d 24 7b 63 6f  d .i.l${row}${co
1a00: 6c 7d 20 3c 42 75 74 74 6f 6e 50 72 65 73 73 3e  l} <ButtonPress>
1a10: 20 5b 6c 69 73 74 20 73 65 6c 65 63 74 47 72 6f   [list selectGro
1a20: 75 70 20 24 69 20 24 72 6f 77 20 24 63 6f 6c 5d  up $i $row $col]
1a30: 0a 20 20 20 20 7d 0a 20 20 20 20 66 72 61 6d 65  .    }.    frame
1a40: 20 2e 6a 20 2d 77 69 64 74 68 20 24 77 69 64 74   .j -width $widt
1a50: 68 20 2d 68 65 69 67 68 74 20 5b 65 78 70 72 20  h -height [expr 
1a60: 72 6f 75 6e 64 28 24 62 68 65 69 67 68 74 20 2a  round($bheight *
1a70: 20 30 2e 33 29 5d 0a 20 20 20 20 66 6f 72 65 61   0.3)].    forea
1a80: 63 68 20 69 20 7b 30 20 31 20 32 20 33 20 34 20  ch i {0 1 2 3 4 
1a90: 35 20 36 20 37 7d 20 7b 0a 09 73 65 74 20 63 6f  5 6 7} {..set co
1aa0: 6c 20 5b 65 78 70 72 20 7b 24 69 20 25 20 34 7d  l [expr {$i % 4}
1ab0: 5d 0a 09 73 65 74 20 72 6f 77 20 5b 65 78 70 72  ]..set row [expr
1ac0: 20 7b 24 69 20 2f 20 34 7d 5d 0a 09 6c 61 62 65   {$i / 4}]..labe
1ad0: 6c 20 2e 6a 2e 69 24 69 20 2d 62 61 63 6b 67 72  l .j.i$i -backgr
1ae0: 6f 75 6e 64 20 23 34 34 34 34 41 41 20 2d 66 6f  ound #4444AA -fo
1af0: 72 65 67 72 6f 75 6e 64 20 23 30 30 30 30 30 30  reground #000000
1b00: 20 2d 70 61 64 79 20 24 70 61 64 79 0a 09 67 72   -pady $pady..gr
1b10: 69 64 20 2e 6a 2e 69 24 69 20 2d 72 6f 77 20 24  id .j.i$i -row $
1b20: 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 24 63 6f 6c  row -column $col
1b30: 20 2d 73 74 69 63 6b 79 20 6e 73 77 65 20 2d 70   -sticky nswe -p
1b40: 61 64 78 20 35 20 2d 70 61 64 79 20 35 0a 09 62  adx 5 -pady 5..b
1b50: 69 6e 64 20 2e 6a 2e 69 24 69 20 3c 42 75 74 74  ind .j.i$i <Butt
1b60: 6f 6e 50 72 65 73 73 3e 20 5b 6c 69 73 74 20 73  onPress> [list s
1b70: 65 6c 65 63 74 49 6e 73 74 72 75 6d 65 6e 74 20  electInstrument 
1b80: 24 69 5d 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f  $i].    }.    fo
1b90: 72 65 61 63 68 20 69 20 7b 30 20 31 20 32 20 33  reach i {0 1 2 3
1ba0: 7d 20 7b 0a 09 67 72 69 64 20 63 6f 6c 75 6d 6e  } {..grid column
1bb0: 63 6f 6e 66 69 67 75 72 65 20 2e 69 20 24 69 20  configure .i $i 
1bc0: 2d 75 6e 69 66 6f 72 6d 20 31 20 2d 77 65 69 67  -uniform 1 -weig
1bd0: 68 74 20 31 0a 09 67 72 69 64 20 63 6f 6c 75 6d  ht 1..grid colum
1be0: 6e 63 6f 6e 66 69 67 75 72 65 20 2e 6a 20 24 69  nconfigure .j $i
1bf0: 20 2d 75 6e 69 66 6f 72 6d 20 31 20 2d 77 65 69   -uniform 1 -wei
1c00: 67 68 74 20 31 0a 20 20 20 20 7d 0a 20 20 20 20  ght 1.    }.    
1c10: 67 72 69 64 20 70 72 6f 70 61 67 61 74 65 20 2e  grid propagate .
1c20: 69 20 30 0a 20 20 20 20 67 72 69 64 20 70 72 6f  i 0.    grid pro
1c30: 70 61 67 61 74 65 20 2e 6a 20 30 0a 20 20 20 20  pagate .j 0.    
1c40: 73 65 6c 65 63 74 47 72 6f 75 70 20 30 20 30 20  selectGroup 0 0 
1c50: 30 0a 20 20 20 20 73 65 6c 65 63 74 49 6e 73 74  0.    selectInst
1c60: 72 75 6d 65 6e 74 20 30 0a 20 20 20 20 63 61 6e  rument 0.    can
1c70: 76 61 73 20 2e 63 20 2d 68 65 69 67 68 74 20 32  vas .c -height 2
1c80: 35 30 20 2d 62 6f 72 64 65 72 77 69 64 74 68 20  50 -borderwidth 
1c90: 30 20 2d 68 69 67 68 6c 69 67 68 74 74 68 69 63  0 -highlightthic
1ca0: 6b 6e 65 73 73 20 30 0a 20 20 20 20 64 72 61 77  kness 0.    draw
1cb0: 4b 65 79 62 6f 61 72 64 20 2e 63 20 31 30 20 35  Keyboard .c 10 5
1cc0: 20 24 6b 77 69 64 74 68 20 24 6b 68 65 69 67 68   $kwidth $kheigh
1cd0: 74 20 34 39 0a 20 20 20 20 70 61 63 6b 20 2e 69  t 49.    pack .i
1ce0: 20 2e 6a 20 2d 73 69 64 65 20 74 6f 70 20 2d 70   .j -side top -p
1cf0: 61 64 79 20 31 30 0a 20 20 20 20 70 61 63 6b 20  ady 10.    pack 
1d00: 2e 63 20 2d 66 69 6c 6c 20 78 20 2d 73 69 64 65  .c -fill x -side
1d10: 20 74 6f 70 20 2d 70 61 64 79 20 31 30 20 2d 70   top -pady 10 -p
1d20: 61 64 78 20 35 20 2d 65 78 70 61 6e 64 20 31 0a  adx 5 -expand 1.
1d30: 7d 0a 0a 6d 75 7a 69 63 3a 3a 69 6e 69 74 0a 77  }..muzic::init.w
1d40: 6d 20 61 74 74 72 69 62 75 74 65 73 20 2e 20 2d  m attributes . -
1d50: 66 75 6c 6c 73 63 72 65 65 6e 20 31 0a 62 6f 72  fullscreen 1.bor
1d60: 67 20 73 63 72 65 65 6e 6f 72 69 65 6e 74 61 74  g screenorientat
1d70: 69 6f 6e 20 6c 61 6e 64 73 63 61 70 65 0a 0a 23  ion landscape..#
1d80: 20 73 61 66 65 20 70 6f 77 65 72 20 77 68 65 6e   safe power when
1d90: 20 69 6e 20 62 61 63 6b 67 72 6f 75 6e 64 0a 62   in background.b
1da0: 69 6e 64 20 2e 20 3c 3c 44 69 64 45 6e 74 65 72  ind . <<DidEnter
1db0: 42 61 63 6b 67 72 6f 75 6e 64 3e 3e 20 7b 6d 75  Background>> {mu
1dc0: 7a 69 63 3a 3a 63 6c 6f 73 65 7d 0a 62 69 6e 64  zic::close}.bind
1dd0: 20 2e 20 3c 3c 44 69 64 45 6e 74 65 72 46 6f 72   . <<DidEnterFor
1de0: 65 67 72 6f 75 6e 64 3e 3e 20 7b 0a 20 20 20 20  eground>> {.    
1df0: 6d 75 7a 69 63 3a 3a 69 6e 69 74 0a 20 20 20 20  muzic::init.    
1e00: 63 61 74 63 68 20 7b 73 65 74 43 68 61 6e 6e 65  catch {setChanne
1e10: 6c 20 24 69 6e 73 74 28 63 68 61 6e 6e 65 6c 29  l $inst(channel)
1e20: 7d 0a 7d 0a 0a 73 64 6c 74 6b 20 73 63 72 65 65  }.}..sdltk scree
1e30: 6e 73 61 76 65 72 20 30 0a 0a 23 20 74 72 61 6e  nsaver 0..# tran
1e40: 73 6c 61 74 69 6f 6e 20 6f 66 20 66 69 6e 67 65  slation of finge
1e50: 72 20 75 70 2f 64 6f 77 6e 20 74 6f 20 62 75 74  r up/down to but
1e60: 74 6f 6e 73 20 31 30 2e 2e 31 39 0a 23 20 62 75  tons 10..19.# bu
1e70: 74 20 6e 6f 20 6f 74 68 65 72 20 74 72 61 6e 73  t no other trans
1e80: 6c 61 74 69 6f 6e 73 0a 73 64 6c 74 6b 20 74 6f  lations.sdltk to
1e90: 75 63 68 74 72 61 6e 73 6c 61 74 65 20 31 36 0a  uchtranslate 16.
1ea0: 0a 2e 20 63 6f 6e 66 69 67 75 72 65 20 2d 62 67  .. configure -bg
1eb0: 20 23 32 38 32 38 32 38 0a 6f 70 74 69 6f 6e 20   #282828.option 
1ec0: 61 64 64 20 2a 62 61 63 6b 67 72 6f 75 6e 64 20  add *background 
1ed0: 23 32 38 32 38 32 38 0a 0a 23 20 67 72 6f 73 73  #282828..# gross
1ee0: 20 68 61 63 6b 20 66 6f 72 20 70 6f 74 65 6e 74   hack for potent
1ef0: 69 61 6c 20 6f 72 69 65 6e 74 61 74 69 6f 6e 20  ial orientation 
1f00: 63 68 61 6e 67 65 0a 23 20 6f 74 68 65 72 77 69  change.# otherwi
1f10: 73 65 20 73 63 72 65 65 6e 20 77 69 64 74 68 2f  se screen width/
1f20: 68 65 69 67 68 74 20 63 61 6e 20 62 65 20 77 72  height can be wr
1f30: 6f 6e 67 0a 23 20 66 6f 72 20 67 65 6f 6d 65 74  ong.# for geomet
1f40: 72 79 20 63 6f 6d 70 75 74 61 74 69 6f 6e 0a 62  ry computation.b
1f50: 69 6e 64 20 2e 20 3c 43 6f 6e 66 69 67 75 72 65  ind . <Configure
1f60: 3e 20 7b 0a 20 20 20 20 62 69 6e 64 20 2e 20 3c  > {.    bind . <
1f70: 43 6f 6e 66 69 67 75 72 65 3e 20 7b 7d 0a 20 20  Configure> {}.  
1f80: 20 20 61 66 74 65 72 20 35 30 30 20 6d 61 6b 65    after 500 make
1f90: 47 55 49 0a 7d 0a                                GUI.}.