Merge tag 'upstream/0.8'

Upstream version 0.8

66 files changed, 15591 insertions, 43159 deletions

diff --git a/707.map b/707.map
index 73af0e8..c97d075 100644
--- a/707.map
+++ b/707.map
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 #################  TK707 Sound Map generated by TK707-0.6  #################
 # Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }
 ############################################################################
diff --git a/727.map b/727.map
index d352dcd..d260dbf 100644
--- a/727.map
+++ b/727.map
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 #################  TK707 Sound Map generated by TK707-0.6  #################
 # Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }
 ############################################################################
diff --git a/7b7.map b/7b7.map
index 5cfd587..9a2d6cf 100644
--- a/7b7.map
+++ b/7b7.map
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 #################  TK707 Sound Map generated by TK707-0.7  #################
 # Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }
 ############################################################################
diff --git a/7c7.map b/7c7.map
index d005974..a3a20d1 100644
--- a/7c7.map
+++ b/7c7.map
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 #################  TK707 Sound Map generated by TK707-0.6  #################
 # Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }
 ############################################################################
diff --git a/BUGS b/BUGS
index 62e76bc..2214c6d 100644
--- a/BUGS
+++ b/BUGS
@@ -1,5 +1,13 @@
 BUGS
 ====
 
-    Well, well, they must be there..
+    Well, well, they must be there...
+
+
+* gcc-3.x and later no longer accept multi-line string literals.
+  Such strings are generated from tcl to C by the tcl2c.c converter.
+  gcc-2.x or previous versions shoud be used.
+
+* Bypass fader : should use the full volume level, while using faders
+  reservs some volume for accents.
 
diff --git a/ChangeLog b/ChangeLog
index 5dbfb3f..dab6551 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,13 @@ Version tk707-0.7
 Changes since tk707-0.6
 -------------------------------------------------------------------------------
 
+October 13, 2004
+	- put copyright in all files
+	- manage with svn
+
+November 27, 2002
+	- alsa-9.x patches from http://www.alsa-project.org/~iwai/alsa.html
+
 March 12, 2001 pierre.saramito@imag.fr
 	- inline help from .texi to .help; browse in tcl :-)
 
diff --git a/INSTALL b/INSTALL
index a7cbff3..23737c3 100644
--- a/INSTALL
+++ b/INSTALL
@@ -1,13 +1,13 @@
    The TK-707 installation requires:
      	
 
-   * C compiler: to compile the source code.  	
+   * C compiler to compile the source code.  	
 
-   * TCL/TK version 8.0 or later.  Tested up to TCL/TK 8.3. Available
-     free from `http://www.scriptics.com' 	
+   * TCL/TK version 8.0 (I assume later versions will work too),
+             available free from <http://www.scriptics.com> 	
 
-   * Alsa: audio installation (at least version 0.5.0), available free
-     from `http://www.alsa-project.org' 	
+   * Alsa audio installation (at least version 0.5.0),
+     available free from <http://www.alsa-project.org> 	
 
    * a sound card supported by Alsa.
 
@@ -19,8 +19,8 @@
    * an external MIDI module with drum sounds (Tested Roland D-110 and
      TR-707).  	
 
-   * or any Alsa supported basic sound card together with the
-     `timidity' software MIDI sequencer installed.
+   * or any Alsa supported basic 		sound card together with the
+     `timidity' software 		MIDI sequencer installed.
 
    Clearly, if you have neither a MIDI card nor an external MIDI module,
 you can successfully manage MIDI files by a MIDI software sequencer.
@@ -151,11 +151,8 @@ Comments, bug corrections and future versions
 <chris@vislab.usyd.edu.au> and <pierre.saramito@imag.fr>
 
    Future versions from the TK-707 home page:
-     	
-
-   * Australie: `http://www.vislab.usyd.edu.au/staff/chris/tk707' 	
-
-   * Europe: `http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707'
+     	Australie: <http://www.vislab.usyd.edu.au/staff/chris/tk707>
+     Europe: <http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707>
 
 My card has no midi render...
 =============================
@@ -165,7 +162,7 @@ card: the `timidity' code is able to provides an Alsa sequencer
 interface which receives events and plays it in real-time.
 
    `timidity' is a public domain code available at
-`http://www.goice.co.jp/member/mo/timidity'.
+<http://www.goice.co.jp/member/mo/timidity>.
 
    On this mode, `timidity' works purely as software (real-time) midi
 render.  There is no scheduling routine in this interface, since all
@@ -180,7 +177,7 @@ follow:
    `timidity' software emulates the best sound cards.  It requires some
 Gravis Ultra Sound (GUS) patches describing musical instruments.  The
 public domain EAW sound patch suite can be downloaded at
-`http://www.stardate.bc.ca/eawpatches/html/default.htm' This his a
+<http://www.stardate.bc.ca/eawpatches/html/default.htm> This his a
 complete and high quality library, updated frequently.  Especially,
 download the `gsdrums' percussion instrument library.
 
diff --git a/INSTALL.texi b/INSTALL.texi
index f0f2297..bb73454 100644
--- a/INSTALL.texi
+++ b/INSTALL.texi
@@ -1,3 +1,22 @@
+@c
+@c    This file is part of tk707.
+@c
+@c    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+@c
+@c    tk707 is free software; you can redistribute it and/or modify
+@c    it under the terms of the GNU General Public License as published by
+@c    the Free Software Foundation; either version 2 of the License, or
+@c    (at your option) any later version.
+@c
+@c    Foobar is distributed in the hope that it will be useful,
+@c    but WITHOUT ANY WARRANTY; without even the implied warranty of
+@c    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+@c    GNU General Public License for more details.
+@c
+@c    You should have received a copy of the GNU General Public License
+@c    along with Foobar; if not, write to the Free Software
+@c    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+@c
 @c -------------------------------------------------------------
 @c    Installation
 @c -------------------------------------------------------------
@@ -32,8 +51,8 @@ and, at least one of these MIDI renders:
 	@item an internal MIDI render hardware in your card.
 	@item an external MIDI module with drum sounds (Tested Roland D-110 and TR-707).
 	@item or any Alsa supported basic 
-sound card together with the @code{timidity} software
-MIDI sequencer installed.
+sound card together with the @code{timidity} or the @code{iiwusynth} 
+	MIDI synthesis software installed.
 @end itemize
 
 Clearly, if you have neither a MIDI card nor an external MIDI module,
@@ -42,9 +61,10 @@ See below.
 
 So far tested on
 @itemize @bullet
+	@item Linux - Debian 3.0 (kernel 2.4.18) with SB Live ! sound card 
 	@item Linux - Slackware 7.0 (kernel 2.2.14) with ESS1868 sound card 
-	@item Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card
 	@item Linux - Mandrak (kernel 2.2.13-7mdk)
+	@item Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card
 @end itemize
 
 @section Building @code{tk707}
@@ -70,7 +90,12 @@ The compiled target @code{tk707} is a self contained binary.
 
 During the configuration step, you could also provide 
 to the @code{configure} script some 
-non-standard locations of the Alsa or Tcl/Tk libraries:
+non-standard locations of the Alsa or Tcl/Tk libraries.
+On my Debian 3.0 installation, I use: 
+@example
+	configure --with-tcl-includes=/usr/include/tcl8.3
+@end example
+A more general example writes:
 @example
 	configure --with-alsa-prefix=/usr/sound/lib \
 	  --with-alsa-inc-prefix=/usr/sound/include \
diff --git a/Makefile.am b/Makefile.am
index 0d64fa9..348fa56 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -1,5 +1,23 @@
 ## process this file with automake to produce Makefile.in
-
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 # -----------------------------------------------------------------------------
 # documentation
 # -----------------------------------------------------------------------------
@@ -18,7 +36,9 @@ tk707bin_SOURCES  = util707.c util707.h element707.c play.c \
 		    tk707AppInit.c title_defs.c score_defs.c defsa.c ports.c \
 		    title.c score.c gui.c procs.c help.c tk707.c nix_bit.h
 tk707tcl_SOURCES  = util707.c util707.h element707.c playa.c \
-		    tk707AppInit.c nix_bit.h
+		    tk707AppInit.c nix_bit.h \
+		    defsa.c ports.c score.c score_defs.c gui.c title.c title_defs.c procs.c help.c tk707.c 
+
 tcl2c_SOURCES     = tcl2c.c 
 texi2help_SOURCES = texi2help.l 
 
@@ -34,7 +54,7 @@ TESTS             = check.sh
 TESTS_ENVIRONMENT = MIDIDUMP=$(MIDIDUMP); export MIDIDUMP; /bin/sh
 
 BUILT_SOURCES = \
-	 title.tcl title_defs.tcl \
+	title.tcl title_defs.tcl \
 	title.c   title_defs.c  \
 	score.tcl score_defs.tcl \
 	score.c   score_defs.c   \
@@ -53,23 +73,24 @@ EXTRA_DIST = VERSION INSTALL texi2help.c \
 	tk707.html \
 	go $(pkgdata_DATA) $(TESTS) \
 	binaire-tk.valid-dump triolet-tk.valid-dump tst_scale.valid-dump \
-	INSTALL.texi gpl.texi BUGS stamp-h.in
+	INSTALL.texi gpl.texi BUGS bootstrap depcomp
 
-CLEANFILES = tk707.sh *.o .deps/* *.mid *.bak *.dvi *.ps *.log
+CLEANFILES = tk707.sh *.o *.mid *.bak *.dvi *.ps *.log
 
 CVSIGNORE = 								\
 	Makefile.in configure aclocal.m4 config.h.in stamp-h.in		\
 	stamp-vti score_defs.tcl score_defs.c score.tcl score.c		\
 	title_defs.tcl title_defs.c title.tcl title.c defsa.c		\
 	defs.c ports.c procs.c help.c gui.c tk707.c playa.c INSTALL 	\
-	version.texi texi2help.c tk707.help tk707.html
+	version.texi texi2help.c tk707.help tk707.html			\
+	$(srcdir)/Makefile.in $(srcdir)/configure
 
 WCIGNORE = 								\
 	COPYING VERSION binaire-tk.valid-dump gpl.texi install-sh	\
 	mdate-sh missing mkinstalldirs tcl2c.c son-montuno.dat		\
 	demo.dat test_02.dat test_05.dat test_06.dat texinfo.tex 	\
 	score.fig title.fig triolet-tk.valid-dump tst_scale.dat 	\
-	tst_scale.valid-dump
+	tst_scale.valid-dump depcomp
 
 # -----------------------------------------------------------------------------
 # specific rules to generate figure *.tcl from *.fig (requieres fig2dev)
@@ -170,18 +191,18 @@ install-exec-local: tk707bin tk707.sh
 	$(mkinstalldirs) $(DESTDIR)$(bindir)
 	$(INSTALL_SCRIPT) tk707.sh $(DESTDIR)$(bindir)/tk707
 	$(mkinstalldirs) $(DESTDIR)$(libdir)/tk707
-	sh $(srcdir)/install-sh -s -c tk707bin $(DESTDIR)$(libdir)/tk707/tk707bin
+	sh $(srcdir)/install-sh -c tk707bin $(DESTDIR)$(libdir)/tk707/tk707bin
 
 uninstall-local:
 	/bin/rm -f $(DESTDIR)$(bindir)/tk707
 	/bin/rm -f $(DESTDIR)$(libdir)/tk707bin
 
 maintainer-clean-local:
-	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help		\
+	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help	\
 		aclocal.m4 config.h config.log config.status		\
 		configure INSTALL.txt Makefile Makefile.in stamp-h	\
 		stamp-h.in stamp-vti texi2help.c tk707.help		\
-		tk707.info version.texi
+		config.h.in tk707.info version.texi
 
 # -----------------------------------------------------------------------------
 # other rules
diff --git a/Makefile.in b/Makefile.in
index ba1bd75..d92f087 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -14,6 +14,25 @@
 
 @SET_MAKE@
 
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 # -----------------------------------------------------------------------------
 # documentation
 # -----------------------------------------------------------------------------
@@ -125,7 +144,10 @@ am__DEPENDENCIES_1 =
 tk707bin_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
 	$(am__DEPENDENCIES_1)
 am_tk707tcl_OBJECTS = util707.$(OBJEXT) element707.$(OBJEXT) \
-	playa.$(OBJEXT) tk707AppInit.$(OBJEXT)
+	playa.$(OBJEXT) tk707AppInit.$(OBJEXT) defsa.$(OBJEXT) \
+	ports.$(OBJEXT) score.$(OBJEXT) score_defs.$(OBJEXT) \
+	gui.$(OBJEXT) title.$(OBJEXT) title_defs.$(OBJEXT) \
+	procs.$(OBJEXT) help.$(OBJEXT) tk707.$(OBJEXT)
 tk707tcl_OBJECTS = $(am_tk707tcl_OBJECTS)
 tk707tcl_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
 	$(am__DEPENDENCIES_1)
@@ -483,8 +505,11 @@ DEPDIR = @DEPDIR@
 ECHO_C = @ECHO_C@
 ECHO_N = @ECHO_N@
 ECHO_T = @ECHO_T@
+EGREP = @EGREP@
 EXEEXT = @EXEEXT@
 FIG2DEV = @FIG2DEV@
+GREP = @GREP@
+HAVE_ALSA_ASOUNDLIB_H = @HAVE_ALSA_ASOUNDLIB_H@
 INSTALL = @INSTALL@
 INSTALL_DATA = @INSTALL_DATA@
 INSTALL_PROGRAM = @INSTALL_PROGRAM@
@@ -576,7 +601,8 @@ tk707bin_SOURCES = util707.c util707.h element707.c play.c \
 		    title.c score.c gui.c procs.c help.c tk707.c nix_bit.h
 
 tk707tcl_SOURCES = util707.c util707.h element707.c playa.c \
-		    tk707AppInit.c nix_bit.h
+		    tk707AppInit.c nix_bit.h \
+		    defsa.c ports.c score.c score_defs.c gui.c title.c title_defs.c procs.c help.c tk707.c 
 
 tcl2c_SOURCES = tcl2c.c 
 texi2help_SOURCES = texi2help.l 
@@ -590,7 +616,7 @@ pkgdata_DATA = 707.map 727.map 7b7.map 7c7.map \
 TESTS = check.sh
 TESTS_ENVIRONMENT = MIDIDUMP=$(MIDIDUMP); export MIDIDUMP; /bin/sh
 BUILT_SOURCES = \
-	 title.tcl title_defs.tcl \
+	title.tcl title_defs.tcl \
 	title.c   title_defs.c  \
 	score.tcl score_defs.tcl \
 	score.c   score_defs.c   \
@@ -609,22 +635,23 @@ EXTRA_DIST = VERSION INSTALL texi2help.c \
 	tk707.html \
 	go $(pkgdata_DATA) $(TESTS) \
 	binaire-tk.valid-dump triolet-tk.valid-dump tst_scale.valid-dump \
-	INSTALL.texi gpl.texi BUGS stamp-h.in
+	INSTALL.texi gpl.texi BUGS bootstrap depcomp
 
-CLEANFILES = tk707.sh *.o .deps/* *.mid *.bak *.dvi *.ps *.log
+CLEANFILES = tk707.sh *.o *.mid *.bak *.dvi *.ps *.log
 CVSIGNORE = \
 	Makefile.in configure aclocal.m4 config.h.in stamp-h.in		\
 	stamp-vti score_defs.tcl score_defs.c score.tcl score.c		\
 	title_defs.tcl title_defs.c title.tcl title.c defsa.c		\
 	defs.c ports.c procs.c help.c gui.c tk707.c playa.c INSTALL 	\
-	version.texi texi2help.c tk707.help tk707.html
+	version.texi texi2help.c tk707.help tk707.html			\
+	$(srcdir)/Makefile.in $(srcdir)/configure
 
 WCIGNORE = \
 	COPYING VERSION binaire-tk.valid-dump gpl.texi install-sh	\
 	mdate-sh missing mkinstalldirs tcl2c.c son-montuno.dat		\
 	demo.dat test_02.dat test_05.dat test_06.dat texinfo.tex 	\
 	score.fig title.fig triolet-tk.valid-dump tst_scale.dat 	\
-	tst_scale.valid-dump
+	tst_scale.valid-dump depcomp
 
 
 # -----------------------------------------------------------------------------
@@ -1734,11 +1761,11 @@ uninstall-local:
 	/bin/rm -f $(DESTDIR)$(libdir)/tk707bin
 
 maintainer-clean-local:
-	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help		\
+	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help	\
 		aclocal.m4 config.h config.log config.status		\
 		configure INSTALL.txt Makefile Makefile.in stamp-h	\
 		stamp-h.in stamp-vti texi2help.c tk707.help		\
-		tk707.info version.texi
+		config.h.in tk707.info version.texi
 
 .mid.wav:
 	timidity $*.mid -Ow $*.wav
diff --git a/TODO b/TODO
index 3e1e0bb..85935fc 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,53 @@
  
+   ----------------------------
+   lien avec lilypond
+   ----------------------------
+- apres avoir utilise lily pour faire des
+  partitions, specifier un format de fichier 
+  qui rend exactement le .midi 
+	- volume, flame, ...
+	- changement de tempo
+  	- etc...
+  et qui sorte une partition de bonne qualite'
+  avec possibilite' de ne sortir qu'un motif (pattern)
+  ou qques instruments dans un motif, ou un extrait de plage
+  => le format de fichier est a la fois un morceau de 
+  musique et une partition : .tk7
+  => tk7-to-ly (tk49ly ?)
+  on doit pouvoir faire des inclusions dans des 
+  documents latex, etc...
+- l'interpreteur relit ces fichier est est un editeur
+  pour cela 
+- voir les clics dans xdvi qui renvoient dans emacs 
+  => idem dans l'editeur ?
+     fenetre de partition, on clique => on va dans editer
+     a` cet endroit
+     
+   ----------------------------
+   sortie midi en direct
+   ----------------------------
+- ce qui permet de moduler le tempo
+  et les volumes des instruments pendant
+  l'enregistrement.
+   ----------------------------
+   touche LOOP en bas a` gauche
+   ----------------------------
+- a` la place de SHIFT 
+    - en pattern, c'est normal => par defaut
+    - en track,   c'est nouveau => non par defaut 
+  => c'est un radio-bouton
+   ---------------------
+   internationaliser
+   ---------------------
+- avec la lib correspondante
+   ---------------------
+   permuter
+   ---------------------
+- les numeros des instruments: en faisant shift-click
+  sur une etiq d'instr, puis en le deplacant sur 
+  l'etiq d'un deuxieme => les 2 sont permute's et
+  toutes les refs dans les patterns aussi !
+
    ---------------------
    trommler
    ---------------------
@@ -93,6 +142,8 @@ resultat.
    ------------------
    Le son 727
    ------------------
+- les fla seraient plus jolis si les ticks de ALSA etaient
+  choisis plus fins ?
 - le sifflet ne s'arrete pas qd on fait stop dans un morceau
   par ex. une pattern qui tourne en mode edit pattern
   => stop doit arreter tous les sons courants
diff --git a/VERSION b/VERSION
index d93b50c..6f4eebd 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.7.21
+0.8.1
diff --git a/acinclude.m4 b/acinclude.m4
index f7e2cda..114e075 100644
--- a/acinclude.m4
+++ b/acinclude.m4
@@ -1,3 +1,23 @@
+dnl
+dnl    This file is part of tk707.
+dnl
+dnl    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+dnl
+dnl    tk707 is free software; you can redistribute it and/or modify
+dnl    it under the terms of the GNU General Public License as published by
+dnl    the Free Software Foundation; either version 2 of the License, or
+dnl    (at your option) any later version.
+dnl
+dnl    Foobar is distributed in the hope that it will be useful,
+dnl    but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl    GNU General Public License for more details.
+dnl
+dnl    You should have received a copy of the GNU General Public License
+dnl    along with Foobar; if not, write to the Free Software
+dnl    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+dnl
+dnl --------------------------------------------------------------
 dnl MY_DEFINE(VARIABLE)
 AC_DEFUN([MY_DEFINE],
 [cat >> confdefs.h <<EOF
@@ -5,6 +25,7 @@ AC_DEFUN([MY_DEFINE],
 EOF
 ])
 
+dnl --------------------------------------------------------------
 dnl CONFIG_INTERFACE(package,macro_name,interface_id,help
 dnl                  $1      $2         $3           $4
 dnl                  action-if-yes-or-dynamic,
@@ -30,4 +51,131 @@ xdynamic)
 esac
 AC_SUBST($3_so_libs)
 ])
+dnl --------------------------------------------------------------
+AC_DEFUN([AM_CHECK_ALSA9],
+    [AC_MSG_CHECKING(for alsa-0.9.x)]
+    [AH_TEMPLATE([HAVE_ALSA9], Defines if you have alsa-0.9.x)]
+    [AC_TRY_RUN(
+        changequote(%%, %%)dnl
+        %%
+		#include <alsa/asoundlib.h>
+		int main() {
+		#if (SND_LIB_MAJOR == 0) && (SND_LIB_MINOR >= 9)
+    			return 0;
+		#else
+    			return 1;
+		#endif
+		}
+        %%,
+        changequote([, ])dnl
+        [AC_DEFINE(HAVE_ALSA9)]
+        have_alsa9=yes,
+        have_alsa9=no,
+        have_alsa9=undef
+        false
+    )]
+    [AC_MSG_RESULT(${have_alsa9})]
+)
+dnl --------------------------------------------------------------
+dnl alsa.m4 starts form here
+dnl Configure Paths for Alsa
+dnl Christopher Lansdown (lansdoct@cs.alfred.edu)
+dnl 29/10/1998
+dnl modified for TiMidity++ by Isaku Yamahata(yamahata@kusm.kyoto-u.ac.jp)
+dnl 16/12/1998
+dnl AM_PATH_ALSA_LOCAL(MINIMUM-VERSION)
+dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
+dnl if there exit ALSA, define have_alsa=yes, otherwise no.
+dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
+dnl
+AC_DEFUN([AM_PATH_ALSA_LOCAL],
+[dnl
+dnl Get the clfags and libraries for alsa
+dnl
+have_alsa=no
+AC_ARG_WITH(alsa-prefix,[  --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
+	[alsa_prefix="$withval"], [alsa_prefix=""])
+AC_ARG_WITH(alsa-inc-prefix, [  --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
+	[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
+AC_ARG_ENABLE(alsatest, [  --disable-alsatest      Do not try to compile and run a test Alsa program], [enable_alsatest=no], [enable_alsatest=yes])
 
+dnl Add any special include directories
+AC_MSG_CHECKING(for ALSA CFLAGS)
+if test "$alsa_inc_prefix" != "" ; then
+	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
+        CFLAGS="$CFLAGS -I$alsa_inc_prefix"
+fi
+AC_MSG_RESULT($ALSA_CFLAGS)
+
+dnl add any special lib dirs
+AC_MSG_CHECKING(for ALSA LDFLAGS)
+if test "$alsa_prefix" != "" ; then
+	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
+	LIBS="-L$alsa_prefix"
+fi
+
+dnl add the alsa library
+ALSA_LIBS="$ALSA_LIBS -lasound"
+AC_MSG_RESULT($ALSA_LIBS)
+
+dnl Check for a working version of libasound that is of the right version.
+min_alsa_version=ifelse([$1], ,0.1.1,$1)
+AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
+no_alsa=""
+    alsa_min_major_version=`echo $min_alsa_version | \
+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
+    alsa_min_minor_version=`echo $min_alsa_version | \
+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
+    alsa_min_micro_version=`echo $min_alsa_version | \
+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
+
+AC_TRY_COMPILE([
+#include <sys/asoundlib.h>
+], [
+/* ensure backward compatibility */
+#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
+#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
+#endif
+#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR)
+#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR
+#endif
+#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR)
+#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR
+#endif
+
+#  if(SND_LIB_MAJOR > $alsa_min_major_version)
+  exit(0);
+#  else
+#    if(SND_LIB_MAJOR < $alsa_min_major_version)
+#       error not present
+#    endif
+
+#   if(SND_LIB_MINOR > $alsa_min_minor_version)
+  exit(0);
+#   else
+#     if(SND_LIB_MINOR < $alsa_min_minor_version)
+#          error not present
+#      endif
+
+#      if(SND_LIB_SUBMINOR < $alsa_min_micro_version)
+#        error not present
+#      endif
+#    endif
+#  endif
+exit(0);
+],
+  [AC_MSG_RESULT(found.)
+   have_alsa=yes],
+  [AC_MSG_RESULT(not present.)]
+)
+
+dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
+AC_CHECK_LIB([asound], [snd_ctl_open],,
+	[AC_MSG_RESULT(No linkable libasound was found.)]
+)
+
+dnl That should be it.  Now just export out symbols:
+AC_SUBST(ALSA_CFLAGS)
+AC_SUBST(ALSA_LIBS)
+])
+dnl alsa.m4 ends here
diff --git a/aclocal.m4 b/aclocal.m4
index b617f42..322b108 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -20,150 +20,6 @@ You have another version of autoconf.  It may work, but is not guaranteed to.
 If you have problems, you may need to regenerate the build system entirely.
 To do so, use the procedure documented by the package, typically 'autoreconf'.])])
 
-dnl Configure Paths for Alsa
-dnl Some modifications by Richard Boulton <richard-alsa@tartarus.org>
-dnl Christopher Lansdown <lansdoct@cs.alfred.edu>
-dnl Jaroslav Kysela <perex@perex.cz>
-dnl Last modification: $Id: alsa.m4,v 1.24 2004/09/15 18:48:07 tiwai Exp $
-dnl AM_PATH_ALSA([MINIMUM-VERSION [, ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]])
-dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
-dnl enables arguments --with-alsa-prefix=
-dnl                   --with-alsa-enc-prefix=
-dnl                   --disable-alsatest
-dnl
-dnl For backwards compatibility, if ACTION_IF_NOT_FOUND is not specified,
-dnl and the alsa libraries are not found, a fatal AC_MSG_ERROR() will result.
-dnl
-AC_DEFUN([AM_PATH_ALSA],
-[dnl Save the original CFLAGS, LDFLAGS, and LIBS
-alsa_save_CFLAGS="$CFLAGS"
-alsa_save_LDFLAGS="$LDFLAGS"
-alsa_save_LIBS="$LIBS"
-alsa_found=yes
-
-dnl
-dnl Get the cflags and libraries for alsa
-dnl
-AC_ARG_WITH(alsa-prefix,
-[  --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
-[alsa_prefix="$withval"], [alsa_prefix=""])
-
-AC_ARG_WITH(alsa-inc-prefix,
-[  --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
-[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
-
-dnl FIXME: this is not yet implemented
-AC_ARG_ENABLE(alsatest,
-[  --disable-alsatest      Do not try to compile and run a test Alsa program],
-[enable_alsatest="$enableval"],
-[enable_alsatest=yes])
-
-dnl Add any special include directories
-AC_MSG_CHECKING(for ALSA CFLAGS)
-if test "$alsa_inc_prefix" != "" ; then
-	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
-	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
-fi
-AC_MSG_RESULT($ALSA_CFLAGS)
-
-dnl add any special lib dirs
-AC_MSG_CHECKING(for ALSA LDFLAGS)
-if test "$alsa_prefix" != "" ; then
-	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
-	LDFLAGS="$LDFLAGS $ALSA_LIBS"
-fi
-
-dnl add the alsa library
-ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread"
-LIBS="$ALSA_LIBS $LIBS"
-AC_MSG_RESULT($ALSA_LIBS)
-
-dnl Check for a working version of libasound that is of the right version.
-if test "x$enable_alsatest" = "xyes"; then
-min_alsa_version=ifelse([$1], ,0.1.1,$1)
-AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
-no_alsa=""
-    alsa_min_major_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
-    alsa_min_minor_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
-    alsa_min_micro_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
-
-AC_LANG_SAVE
-AC_LANG_C
-AC_TRY_COMPILE([
-#include <alsa/asoundlib.h>
-], [
-/* ensure backward compatibility */
-#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
-#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
-#endif
-#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR)
-#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR
-#endif
-#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR)
-#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR
-#endif
-
-#  if(SND_LIB_MAJOR > $alsa_min_major_version)
-  exit(0);
-#  else
-#    if(SND_LIB_MAJOR < $alsa_min_major_version)
-#       error not present
-#    endif
-
-#   if(SND_LIB_MINOR > $alsa_min_minor_version)
-  exit(0);
-#   else
-#     if(SND_LIB_MINOR < $alsa_min_minor_version)
-#          error not present
-#      endif
-
-#      if(SND_LIB_SUBMINOR < $alsa_min_micro_version)
-#        error not present
-#      endif
-#    endif
-#  endif
-exit(0);
-],
-  [AC_MSG_RESULT(found.)],
-  [AC_MSG_RESULT(not present.)
-   ifelse([$3], , [AC_MSG_ERROR(Sufficiently new version of libasound not found.)])
-   alsa_found=no]
-)
-AC_LANG_RESTORE
-fi
-
-dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
-if test "x$enable_alsatest" = "xyes"; then
-AC_CHECK_LIB([asound], [snd_ctl_open],,
-	[ifelse([$3], , [AC_MSG_ERROR(No linkable libasound was found.)])
-	 alsa_found=no]
-)
-fi
-
-if test "x$alsa_found" = "xyes" ; then
-   ifelse([$2], , :, [$2])
-   LIBS=`echo $LIBS | sed 's/-lasound//g'`
-   LIBS=`echo $LIBS | sed 's/  //'`
-   LIBS="-lasound $LIBS"
-fi
-if test "x$alsa_found" = "xno" ; then
-   ifelse([$3], , :, [$3])
-   CFLAGS="$alsa_save_CFLAGS"
-   LDFLAGS="$alsa_save_LDFLAGS"
-   LIBS="$alsa_save_LIBS"
-   ALSA_CFLAGS=""
-   ALSA_LIBS=""
-fi
-
-dnl That should be it.  Now just export out symbols:
-AC_SUBST(ALSA_CFLAGS)
-AC_SUBST(ALSA_LIBS)
-])
-
-
 # Copyright (C) 2002-2014 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
diff --git a/bootstrap b/bootstrap
new file mode 100755
index 0000000..01ea3d0
--- /dev/null
+++ b/bootstrap
@@ -0,0 +1,6 @@
+#!/bin/sh
+set -x
+aclocal
+autoheader
+autoconf
+automake -a --gnu Makefile
diff --git a/config.h.in b/config.h.in
index 70c0e2b..5249fab 100644
--- a/config.h.in
+++ b/config.h.in
@@ -1,5 +1,11 @@
 /* config.h.in.  Generated from configure.in by autoheader.  */
 
+/* Defines if you have alsa/asoundlib.h */
+#undef HAVE_ALSA_ASOUNDLIB_H
+
+/* Define to 1 if you have the <inttypes.h> header file. */
+#undef HAVE_INTTYPES_H
+
 /* Define to 1 if you have the `asound' library (-lasound). */
 #undef HAVE_LIBASOUND
 
@@ -12,6 +18,30 @@
 /* Define to 1 if you have the `X11' library (-lX11). */
 #undef HAVE_LIBX11
 
+/* Define to 1 if you have the <memory.h> header file. */
+#undef HAVE_MEMORY_H
+
+/* Define to 1 if you have the <stdint.h> header file. */
+#undef HAVE_STDINT_H
+
+/* Define to 1 if you have the <stdlib.h> header file. */
+#undef HAVE_STDLIB_H
+
+/* Define to 1 if you have the <strings.h> header file. */
+#undef HAVE_STRINGS_H
+
+/* Define to 1 if you have the <string.h> header file. */
+#undef HAVE_STRING_H
+
+/* Define to 1 if you have the <sys/stat.h> header file. */
+#undef HAVE_SYS_STAT_H
+
+/* Define to 1 if you have the <sys/types.h> header file. */
+#undef HAVE_SYS_TYPES_H
+
+/* Define to 1 if you have the <unistd.h> header file. */
+#undef HAVE_UNISTD_H
+
 /* Name of package */
 #undef PACKAGE
 
@@ -33,6 +63,9 @@
 /* Define to the version of this package. */
 #undef PACKAGE_VERSION
 
+/* Define to 1 if you have the ANSI C header files. */
+#undef STDC_HEADERS
+
 /* Version number of package */
 #undef VERSION
 
diff --git a/configure b/configure
index 536a36c..998ac5b 100755
--- a/configure
+++ b/configure
@@ -195,7 +195,8 @@ test -x / || exit 1"
   as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
   as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
   eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
-  test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1"
+  test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
+test \$(( 1 + 1 )) = 2 || exit 1"
   if (eval "$as_required") 2>/dev/null; then :
   as_have_required=yes
 else
@@ -582,6 +583,42 @@ PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
 ac_unique_file="README"
+# Factoring default headers for most tests.
+ac_includes_default="\
+#include <stdio.h>
+#ifdef HAVE_SYS_TYPES_H
+# include <sys/types.h>
+#endif
+#ifdef HAVE_SYS_STAT_H
+# include <sys/stat.h>
+#endif
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# include <stddef.h>
+#else
+# ifdef HAVE_STDLIB_H
+#  include <stdlib.h>
+# endif
+#endif
+#ifdef HAVE_STRING_H
+# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
+#  include <memory.h>
+# endif
+# include <string.h>
+#endif
+#ifdef HAVE_STRINGS_H
+# include <strings.h>
+#endif
+#ifdef HAVE_INTTYPES_H
+# include <inttypes.h>
+#endif
+#ifdef HAVE_STDINT_H
+# include <stdint.h>
+#endif
+#ifdef HAVE_UNISTD_H
+# include <unistd.h>
+#endif"
+
 ac_subst_vars='am__EXEEXT_FALSE
 am__EXEEXT_TRUE
 LTLIBOBJS
@@ -593,8 +630,11 @@ X_EXTRA_LIBS
 X_LIBS
 X_PRE_LIBS
 X_CFLAGS
-CPP
 XMKMF
+EGREP
+GREP
+CPP
+HAVE_ALSA_ASOUNDLIB_H
 ALSA_LIBS
 ALSA_CFLAGS
 MIDIDUMP
@@ -711,8 +751,8 @@ CFLAGS
 LDFLAGS
 LIBS
 CPPFLAGS
-XMKMF
-CPP'
+CPP
+XMKMF'
 
 
 # Initialize some variables set by options.
@@ -1369,8 +1409,8 @@ Some influential environment variables:
   LIBS        libraries to pass to the linker, e.g. -l<library>
   CPPFLAGS    (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
               you have headers in a nonstandard directory <include dir>
-  XMKMF       Path to xmkmf, Makefile generator for X Window System
   CPP         C preprocessor
+  XMKMF       Path to xmkmf, Makefile generator for X Window System
 
 Use these variables to override the choices made by `configure' or to help
 it to find libraries and programs with nonstandard names/locations.
@@ -1573,6 +1613,166 @@ fi
 
 } # ac_fn_c_try_cpp
 
+# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES
+# -------------------------------------------------------
+# Tests whether HEADER exists, giving a warning if it cannot be compiled using
+# the include files in INCLUDES and setting the cache variable VAR
+# accordingly.
+ac_fn_c_check_header_mongrel ()
+{
+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+  if eval \${$3+:} false; then :
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
+$as_echo_n "checking for $2... " >&6; }
+if eval \${$3+:} false; then :
+  $as_echo_n "(cached) " >&6
+fi
+eval ac_res=\$$3
+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+else
+  # Is the header compilable?
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5
+$as_echo_n "checking $2 usability... " >&6; }
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+$4
+#include <$2>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_header_compiler=yes
+else
+  ac_header_compiler=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5
+$as_echo "$ac_header_compiler" >&6; }
+
+# Is the header present?
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5
+$as_echo_n "checking $2 presence... " >&6; }
+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <$2>
+_ACEOF
+if ac_fn_c_try_cpp "$LINENO"; then :
+  ac_header_preproc=yes
+else
+  ac_header_preproc=no
+fi
+rm -f conftest.err conftest.i conftest.$ac_ext
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
+$as_echo "$ac_header_preproc" >&6; }
+
+# So?  What about this header?
+case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #((
+  yes:no: )
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5
+$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;}
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
+$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
+    ;;
+  no:yes:* )
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5
+$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;}
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2:     check for missing prerequisite headers?" >&5
+$as_echo "$as_me: WARNING: $2:     check for missing prerequisite headers?" >&2;}
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5
+$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;}
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2:     section \"Present But Cannot Be Compiled\"" >&5
+$as_echo "$as_me: WARNING: $2:     section \"Present But Cannot Be Compiled\"" >&2;}
+    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
+$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
+    ;;
+esac
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
+$as_echo_n "checking for $2... " >&6; }
+if eval \${$3+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  eval "$3=\$ac_header_compiler"
+fi
+eval ac_res=\$$3
+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+fi
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_header_mongrel
+
+# ac_fn_c_try_run LINENO
+# ----------------------
+# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
+# that executables *can* be run.
+ac_fn_c_try_run ()
+{
+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+  if { { ac_try="$ac_link"
+case "(($ac_try" in
+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+  *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+  (eval "$ac_link") 2>&5
+  ac_status=$?
+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+  test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
+  { { case "(($ac_try" in
+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+  *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
+$as_echo "$ac_try_echo"; } >&5
+  (eval "$ac_try") 2>&5
+  ac_status=$?
+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
+  test $ac_status = 0; }; }; then :
+  ac_retval=0
+else
+  $as_echo "$as_me: program exited with status $ac_status" >&5
+       $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+       ac_retval=$ac_status
+fi
+  rm -rf conftest.dSYM conftest_ipa8_conftest.oo
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+  as_fn_set_status $ac_retval
+
+} # ac_fn_c_try_run
+
+# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
+# -------------------------------------------------------
+# Tests whether HEADER exists and can be compiled using the include files in
+# INCLUDES, setting the cache variable VAR accordingly.
+ac_fn_c_check_header_compile ()
+{
+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
+$as_echo_n "checking for $2... " >&6; }
+if eval \${$3+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+$4
+#include <$2>
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  eval "$3=yes"
+else
+  eval "$3=no"
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+eval ac_res=\$$3
+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
+$as_echo "$ac_res" >&6; }
+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
+
+} # ac_fn_c_check_header_compile
+
 # ac_fn_c_check_func LINENO FUNC VAR
 # ----------------------------------
 # Tests whether FUNC exists, setting the cache variable VAR accordingly
@@ -2589,6 +2789,7 @@ ac_config_headers="$ac_config_headers config.h"
 
 
 
+USER_CFLAGS=$CFLAGS
 ac_ext=c
 ac_cpp='$CPP $CPPFLAGS'
 ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
@@ -3628,6 +3829,9 @@ else
 fi
 
 
+if test x"$GCC" = x"yes" -a x"$USER_CFLAGS" = x""; then
+    CFLAGS="-O9 -Wall -Wno-unused"
+fi
 
 for ac_prog in flex lex
 do
@@ -4233,11 +4437,7 @@ PREV_LDFLAGS=$LDFLAGS
 PREV_CFLAGS=$CFLAGS
 PREV_CPPFLAGS=$CPPFLAGS
 
-alsa_save_CFLAGS="$CFLAGS"
-alsa_save_LDFLAGS="$LDFLAGS"
-alsa_save_LIBS="$LIBS"
-alsa_found=yes
-
+have_alsa=no
 
 # Check whether --with-alsa-prefix was given.
 if test "${with_alsa_prefix+set}" = set; then :
@@ -4247,7 +4447,6 @@ else
 fi
 
 
-
 # Check whether --with-alsa-inc-prefix was given.
 if test "${with_alsa_inc_prefix+set}" = set; then :
   withval=$with_alsa_inc_prefix; alsa_inc_prefix="$withval"
@@ -4255,10 +4454,9 @@ else
   alsa_inc_prefix=""
 fi
 
-
 # Check whether --enable-alsatest was given.
 if test "${enable_alsatest+set}" = set; then :
-  enableval=$enable_alsatest; enable_alsatest="$enableval"
+  enableval=$enable_alsatest; enable_alsatest=no
 else
   enable_alsatest=yes
 fi
@@ -4268,7 +4466,7 @@ fi
 $as_echo_n "checking for ALSA CFLAGS... " >&6; }
 if test "$alsa_inc_prefix" != "" ; then
 	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
-	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
+        CFLAGS="$CFLAGS -I$alsa_inc_prefix"
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ALSA_CFLAGS" >&5
 $as_echo "$ALSA_CFLAGS" >&6; }
@@ -4277,15 +4475,13 @@ $as_echo "$ALSA_CFLAGS" >&6; }
 $as_echo_n "checking for ALSA LDFLAGS... " >&6; }
 if test "$alsa_prefix" != "" ; then
 	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
-	LDFLAGS="$LDFLAGS $ALSA_LIBS"
+	LIBS="-L$alsa_prefix"
 fi
 
-ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread"
-LIBS="$ALSA_LIBS $LIBS"
+ALSA_LIBS="$ALSA_LIBS -lasound"
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ALSA_LIBS" >&5
 $as_echo "$ALSA_LIBS" >&6; }
 
-if test "x$enable_alsatest" = "xyes"; then
 min_alsa_version=0.1.1
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libasound headers version >= $min_alsa_version" >&5
 $as_echo_n "checking for libasound headers version >= $min_alsa_version... " >&6; }
@@ -4297,17 +4493,10 @@ no_alsa=""
     alsa_min_micro_version=`echo $min_alsa_version | \
            sed 's/\([0-9]*\).\([0-9]*\).\([0-9]*\)/\3/'`
 
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
 /* end confdefs.h.  */
 
-#include <alsa/asoundlib.h>
+#include <sys/asoundlib.h>
 
 int
 main ()
@@ -4352,23 +4541,14 @@ _ACEOF
 if ac_fn_c_try_compile "$LINENO"; then :
   { $as_echo "$as_me:${as_lineno-$LINENO}: result: found." >&5
 $as_echo "found." >&6; }
+   have_alsa=yes
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: result: not present." >&5
 $as_echo "not present." >&6; }
-   as_fn_error $? "Sufficiently new version of libasound not found." "$LINENO" 5
-   alsa_found=no
 
 fi
 rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
 
-fi
-
-if test "x$enable_alsatest" = "xyes"; then
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for snd_ctl_open in -lasound" >&5
 $as_echo_n "checking for snd_ctl_open in -lasound... " >&6; }
 if ${ac_cv_lib_asound_snd_ctl_open+:} false; then :
@@ -4413,37 +4593,16 @@ _ACEOF
   LIBS="-lasound $LIBS"
 
 else
-  as_fn_error $? "No linkable libasound was found." "$LINENO" 5
-	 alsa_found=no
+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: No linkable libasound was found." >&5
+$as_echo "No linkable libasound was found." >&6; }
 
 fi
 
-fi
-
-if test "x$alsa_found" = "xyes" ; then
-   :
-   LIBS=`echo $LIBS | sed 's/-lasound//g'`
-   LIBS=`echo $LIBS | sed 's/  //'`
-   LIBS="-lasound $LIBS"
-fi
-if test "x$alsa_found" = "xno" ; then
-   :
-   CFLAGS="$alsa_save_CFLAGS"
-   LDFLAGS="$alsa_save_LDFLAGS"
-   LIBS="$alsa_save_LIBS"
-   ALSA_CFLAGS=""
-   ALSA_LIBS=""
-fi
 
 
 
 
 
-LIBS=$PREV_LIBS
-LDFLAGS=$PREV_LDFLAGS
-CFLAGS=$PREV_CFLAGS
-CPPFLAGS=$PREV_CPPFLAGS
-
 
 ac_ext=c
 ac_cpp='$CPP $CPPFLAGS'
@@ -4583,6 +4742,279 @@ ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $
 ac_compiler_gnu=$ac_cv_c_compiler_gnu
 
 
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
+$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
+if ${ac_cv_path_GREP+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  if test -z "$GREP"; then
+  ac_path_GREP_found=false
+  # Loop through the user's path and test for each of PROGNAME-LIST
+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    for ac_prog in grep ggrep; do
+    for ac_exec_ext in '' $ac_executable_extensions; do
+      ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
+      as_fn_executable_p "$ac_path_GREP" || continue
+# Check for GNU ac_path_GREP and select it if it is found.
+  # Check for GNU $ac_path_GREP
+case `"$ac_path_GREP" --version 2>&1` in
+*GNU*)
+  ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
+*)
+  ac_count=0
+  $as_echo_n 0123456789 >"conftest.in"
+  while :
+  do
+    cat "conftest.in" "conftest.in" >"conftest.tmp"
+    mv "conftest.tmp" "conftest.in"
+    cp "conftest.in" "conftest.nl"
+    $as_echo 'GREP' >> "conftest.nl"
+    "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
+    diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+    as_fn_arith $ac_count + 1 && ac_count=$as_val
+    if test $ac_count -gt ${ac_path_GREP_max-0}; then
+      # Best one so far, save it but keep looking for a better one
+      ac_cv_path_GREP="$ac_path_GREP"
+      ac_path_GREP_max=$ac_count
+    fi
+    # 10*(2^10) chars as input seems more than enough
+    test $ac_count -gt 10 && break
+  done
+  rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+      $ac_path_GREP_found && break 3
+    done
+  done
+  done
+IFS=$as_save_IFS
+  if test -z "$ac_cv_path_GREP"; then
+    as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+  fi
+else
+  ac_cv_path_GREP=$GREP
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
+$as_echo "$ac_cv_path_GREP" >&6; }
+ GREP="$ac_cv_path_GREP"
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
+$as_echo_n "checking for egrep... " >&6; }
+if ${ac_cv_path_EGREP+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
+   then ac_cv_path_EGREP="$GREP -E"
+   else
+     if test -z "$EGREP"; then
+  ac_path_EGREP_found=false
+  # Loop through the user's path and test for each of PROGNAME-LIST
+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    for ac_prog in egrep; do
+    for ac_exec_ext in '' $ac_executable_extensions; do
+      ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
+      as_fn_executable_p "$ac_path_EGREP" || continue
+# Check for GNU ac_path_EGREP and select it if it is found.
+  # Check for GNU $ac_path_EGREP
+case `"$ac_path_EGREP" --version 2>&1` in
+*GNU*)
+  ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
+*)
+  ac_count=0
+  $as_echo_n 0123456789 >"conftest.in"
+  while :
+  do
+    cat "conftest.in" "conftest.in" >"conftest.tmp"
+    mv "conftest.tmp" "conftest.in"
+    cp "conftest.in" "conftest.nl"
+    $as_echo 'EGREP' >> "conftest.nl"
+    "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
+    diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
+    as_fn_arith $ac_count + 1 && ac_count=$as_val
+    if test $ac_count -gt ${ac_path_EGREP_max-0}; then
+      # Best one so far, save it but keep looking for a better one
+      ac_cv_path_EGREP="$ac_path_EGREP"
+      ac_path_EGREP_max=$ac_count
+    fi
+    # 10*(2^10) chars as input seems more than enough
+    test $ac_count -gt 10 && break
+  done
+  rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
+esac
+
+      $ac_path_EGREP_found && break 3
+    done
+  done
+  done
+IFS=$as_save_IFS
+  if test -z "$ac_cv_path_EGREP"; then
+    as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+  fi
+else
+  ac_cv_path_EGREP=$EGREP
+fi
+
+   fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
+$as_echo "$ac_cv_path_EGREP" >&6; }
+ EGREP="$ac_cv_path_EGREP"
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
+$as_echo_n "checking for ANSI C header files... " >&6; }
+if ${ac_cv_header_stdc+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <float.h>
+
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_header_stdc=yes
+else
+  ac_cv_header_stdc=no
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+if test $ac_cv_header_stdc = yes; then
+  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <string.h>
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  $EGREP "memchr" >/dev/null 2>&1; then :
+
+else
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <stdlib.h>
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  $EGREP "free" >/dev/null 2>&1; then :
+
+else
+  ac_cv_header_stdc=no
+fi
+rm -f conftest*
+
+fi
+
+if test $ac_cv_header_stdc = yes; then
+  # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
+  if test "$cross_compiling" = yes; then :
+  :
+else
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <ctype.h>
+#include <stdlib.h>
+#if ((' ' & 0x0FF) == 0x020)
+# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
+# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
+#else
+# define ISLOWER(c) \
+		   (('a' <= (c) && (c) <= 'i') \
+		     || ('j' <= (c) && (c) <= 'r') \
+		     || ('s' <= (c) && (c) <= 'z'))
+# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
+#endif
+
+#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
+int
+main ()
+{
+  int i;
+  for (i = 0; i < 256; i++)
+    if (XOR (islower (i), ISLOWER (i))
+	|| toupper (i) != TOUPPER (i))
+      return 2;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_run "$LINENO"; then :
+
+else
+  ac_cv_header_stdc=no
+fi
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
+  conftest.$ac_objext conftest.beam conftest.$ac_ext
+fi
+
+fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
+$as_echo "$ac_cv_header_stdc" >&6; }
+if test $ac_cv_header_stdc = yes; then
+
+$as_echo "#define STDC_HEADERS 1" >>confdefs.h
+
+fi
+
+# On IRIX 5.3, sys/types and inttypes.h are conflicting.
+for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
+		  inttypes.h stdint.h unistd.h
+do :
+  as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
+ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
+"
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
+  cat >>confdefs.h <<_ACEOF
+#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
+_ACEOF
+
+fi
+
+done
+
+
+ac_fn_c_check_header_mongrel "$LINENO" "alsa/asoundlib.h" "ac_cv_header_alsa_asoundlib_h" "$ac_includes_default"
+if test "x$ac_cv_header_alsa_asoundlib_h" = xyes; then :
+  $as_echo "#define HAVE_ALSA_ASOUNDLIB_H 1" >>confdefs.h
+
+fi
+
+
+
+LIBS=$PREV_LIBS
+LDFLAGS=$PREV_LDFLAGS
+CFLAGS=$PREV_CFLAGS
+CPPFLAGS=$PREV_CPPFLAGS
+
+
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for X" >&5
 $as_echo_n "checking for X... " >&6; }
 
@@ -5382,8 +5814,9 @@ fi
 
     tcl_lib=
     tk_lib=
+    tcl_prefix=no
     for l in tcl8.4 tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
-      case "x$tcl_lib" in x) as_ac_Lib=`$as_echo "ac_cv_lib_$l''_Tcl_Init" | $as_tr_sh`
+      case "x$tcl_prefix" in x"no") as_ac_Lib=`$as_echo "ac_cv_lib_$l''_Tcl_Init" | $as_tr_sh`
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl_Init in -l$l" >&5
 $as_echo_n "checking for Tcl_Init in -l$l... " >&6; }
 if eval \${$as_ac_Lib+:} false; then :
@@ -5422,10 +5855,11 @@ eval ac_res=\$$as_ac_Lib
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
 $as_echo "$ac_res" >&6; }
 if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
-  tcl_lib=-l$l
+  tcl_prefix=$l
 fi
 ;; esac
     done
+    tcl_lib="-l${tcl_prefix}"
     LIBS="$LIBS $tcl_lib"
     for l in tk8.4 tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
       case "x$tk_lib" in x) as_ac_Lib=`$as_echo "ac_cv_lib_$l''_Tk_Init" | $as_tr_sh`
@@ -5471,7 +5905,50 @@ if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
 fi
 ;; esac
     done
+    have_tcltk_header=yes
+    if test ! -d /usr/include/$tcl_prefix; then
+        # not debian style
+        ac_fn_c_check_header_mongrel "$LINENO" "tcl.h" "ac_cv_header_tcl_h" "$ac_includes_default"
+if test "x$ac_cv_header_tcl_h" = xyes; then :
+
+else
+  have_tcltk_header=no
+fi
+
 
+        ac_fn_c_check_header_mongrel "$LINENO" "tk.h" "ac_cv_header_tk_h" "$ac_includes_default"
+if test "x$ac_cv_header_tk_h" = xyes; then :
+
+else
+  have_tcltk_header=no
+fi
+
+
+    else
+        # debian style detection :
+	echo "looking in /usr/include/$tcl_prefix for tcl-tk headers"
+        CPPFLAGS="-I/usr/include/$tcl_prefix $CPPFLAGS"
+	TCLTK_CFLAGS="-I/usr/include/$tcl_prefix $TCLTK_CFLAGS"
+        ac_fn_c_check_header_mongrel "$LINENO" "tcl.h" "ac_cv_header_tcl_h" "$ac_includes_default"
+if test "x$ac_cv_header_tcl_h" = xyes; then :
+
+else
+  have_tcltk_header=no
+fi
+
+
+        ac_fn_c_check_header_mongrel "$LINENO" "tk.h" "ac_cv_header_tk_h" "$ac_includes_default"
+if test "x$ac_cv_header_tk_h" = xyes; then :
+
+else
+  have_tcltk_header=no
+fi
+
+
+    fi
+    if test $have_tcltk_header = no; then
+      as_fn_error $? "need tcl.h and tk.h header files" "$LINENO" 5
+    fi
     LIBS=$KEEPLIBS
     if test "x$tcl_lib" = x -o "x$tk_lib" = x; then
       CPPFLAGS=$KEEPCPPFLAGS
@@ -5482,7 +5959,7 @@ $as_echo "$as_me: WARNING: tcl/tk is not enable" >&2;}
     else
       tcltk_dep='tclIndex'
 
-      TCLTK_CFLAGS="$tcl_include_dir $tk_includes"
+      TCLTK_CFLAGS="$tcl_include_dir $tk_includes $TCLTK_CFLAGS"
 
 
       TCLTK_LDFLAGS="$tk_lib $tcl_lib $lib_dl_opt"
diff --git a/configure.in b/configure.in
index fdfc629..3d94057 100644
--- a/configure.in
+++ b/configure.in
@@ -1,3 +1,22 @@
+dnl
+dnl    This file is part of tk707.
+dnl
+dnl    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+dnl
+dnl    tk707 is free software; you can redistribute it and/or modify
+dnl    it under the terms of the GNU General Public License as published by
+dnl    the Free Software Foundation; either version 2 of the License, or
+dnl    (at your option) any later version.
+dnl
+dnl    Foobar is distributed in the hope that it will be useful,
+dnl    but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl    GNU General Public License for more details.
+dnl
+dnl    You should have received a copy of the GNU General Public License
+dnl    along with Foobar; if not, write to the Free Software
+dnl    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+dnl
 dnl-------------------------------------------------------------------------
 dnl
 dnl configure.in: script source file for configure
@@ -13,7 +32,7 @@ dnl init autoconf without caches
 define([AC_CACHE_LOAD], )
 define([AC_CACHE_SAVE], )
 
-AC_PREREQ(2.13)
+AC_PREREQ(2.53)
 
 dnl-------------------------------------------------------------------------
 dnl   package and version definition
@@ -46,7 +65,11 @@ dnl-------------------------------------------------------------------------
 dnl   check some commands
 dnl-------------------------------------------------------------------------
 
+USER_CFLAGS=$CFLAGS
 AC_PROG_CC
+if test x"$GCC" = x"yes" -a x"$USER_CFLAGS" = x""; then
+    CFLAGS="-O9 -Wall -Wno-unused"
+fi
 dnl-------------------------------------------------------------------------
 dnl   check for maintainers tools (not requiered for build)
 dnl-------------------------------------------------------------------------
@@ -86,7 +109,10 @@ PREV_LDFLAGS=$LDFLAGS
 PREV_CFLAGS=$CFLAGS
 PREV_CPPFLAGS=$CPPFLAGS
 
-AM_PATH_ALSA
+AM_PATH_ALSA_LOCAL
+AH_TEMPLATE([HAVE_ALSA_ASOUNDLIB_H], Defines if you have alsa/asoundlib.h)
+AC_SUBST(HAVE_ALSA_ASOUNDLIB_H)
+AC_CHECK_HEADER(alsa/asoundlib.h, [AC_DEFINE(HAVE_ALSA_ASOUNDLIB_H)])
 
 LIBS=$PREV_LIBS
 LDFLAGS=$PREV_LDFLAGS
@@ -161,14 +187,31 @@ dnl-------------------------------------------------------------------------
 
     tcl_lib=
     tk_lib=
+    tcl_prefix=no
     for l in tcl8.4 tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
-      case "x$tcl_lib" in x) AC_CHECK_LIB($l,Tcl_Init,tcl_lib=-l$l);; esac
+      case "x$tcl_prefix" in x"no") AC_CHECK_LIB($l,Tcl_Init,tcl_prefix=$l);; esac
     done
+    tcl_lib="-l${tcl_prefix}"
     LIBS="$LIBS $tcl_lib"
     for l in tk8.4 tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
       case "x$tk_lib" in x) AC_CHECK_LIB($l,Tk_Init,tk_lib=-l$l);; esac
     done
-
+    have_tcltk_header=yes
+    if test ! -d /usr/include/$tcl_prefix; then
+        # not debian style
+        AC_CHECK_HEADER(tcl.h,,have_tcltk_header=no)
+        AC_CHECK_HEADER(tk.h,,have_tcltk_header=no)
+    else
+        # debian style detection :
+	echo "looking in /usr/include/$tcl_prefix for tcl-tk headers"
+        CPPFLAGS="-I/usr/include/$tcl_prefix $CPPFLAGS"
+	TCLTK_CFLAGS="-I/usr/include/$tcl_prefix $TCLTK_CFLAGS"
+        AC_CHECK_HEADER(tcl.h,,have_tcltk_header=no)
+        AC_CHECK_HEADER(tk.h,,have_tcltk_header=no)
+    fi
+    if test $have_tcltk_header = no; then
+      AC_MSG_ERROR([need tcl.h and tk.h header files])
+    fi
     LIBS=$KEEPLIBS
     if test "x$tcl_lib" = x -o "x$tk_lib" = x; then
       CPPFLAGS=$KEEPCPPFLAGS
@@ -178,7 +221,7 @@ dnl-------------------------------------------------------------------------
     else
       tcltk_dep='tclIndex'
 
-      TCLTK_CFLAGS="$tcl_include_dir $tk_includes"
+      TCLTK_CFLAGS="$tcl_include_dir $tk_includes $TCLTK_CFLAGS"
       AC_SUBST(TCLTK_CFLAGS)
 
       TCLTK_LDFLAGS="$tk_lib $tcl_lib $lib_dl_opt"
@@ -203,6 +246,5 @@ dnl-------------------------------------------------------------------------
 dnl   Output
 dnl-------------------------------------------------------------------------
 
-AC_CONFIG_FILES(Makefile tk707.sh)
-AC_OUTPUT
+AC_OUTPUT(Makefile tk707.sh)
 
diff --git a/debian/changelog b/debian/changelog
index d655f82..82e22a2 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+tk707 (0.8-1) UNRELEASED; urgency=medium
+
+  * New upstream version.
+
+ -- Andrew Shadura <andrewsh@debian.org>  Fri, 15 Jul 2016 11:47:41 +0200
+
 tk707 (0.7.21-10) unstable; urgency=medium
 
   * Upgrade to dh and compat 9 (Closes: #817695).
diff --git a/debian/clean b/debian/clean
index 6d350f6..54bbfe6 100644
--- a/debian/clean
+++ b/debian/clean
@@ -1,10 +1,13 @@
+aclocal.m4
 depcomp
 compile
 test-driver
 ylwrap
 config.h
+config.h.in
 config.log
 config.status
+configure
 stamp-h
 stamp-vti
 tk707.sh
@@ -12,3 +15,5 @@ tk707.info
 version.texi
 INSTALL
 INSTALL.txt
+Makefile
+Makefile.in
diff --git a/debian/control b/debian/control
index ab65f25..022997b 100644
--- a/debian/control
+++ b/debian/control
@@ -2,7 +2,7 @@ Source: tk707
 Section: sound
 Priority: optional
 Maintainer: Debian QA Group <packages@qa.debian.org>
-Build-Depends: debhelper (>= 9), libasound2-dev, tk-dev, libxt-dev, texinfo
+Build-Depends: debhelper (>= 9), libasound2-dev, tk-dev, libxt-dev, texinfo, dh-autoreconf
 Standards-Version: 3.6.1.1
 
 Package: tk707
diff --git a/debian/patches/00-debian-changes.patch b/debian/patches/00-debian-changes.patch
index cf89020..0519248 100644
--- a/debian/patches/00-debian-changes.patch
+++ b/debian/patches/00-debian-changes.patch
@@ -2,7 +2,7 @@ Description: Debian changes to the upstream tk707 package.
 
 --- a/Makefile.am
 +++ b/Makefile.am
-@@ -22,9 +22,9 @@
+@@ -42,9 +42,9 @@
  tcl2c_SOURCES     = tcl2c.c 
  texi2help_SOURCES = texi2help.l 
  
@@ -15,2216 +15,7 @@ Description: Debian changes to the upstream tk707 package.
  
  pkgdata_DATA      = 707.map 727.map 7b7.map 7c7.map \
  		    demo.dat son-montuno.dat carioca.dat \
-@@ -119,7 +119,7 @@
- # -----------------------------------------------------------------------------
- 
- $(srcdir)/tk707.help: tk707.texi texi2help
--	texi2help < $(srcdir)/tk707.texi > $(srcdir)/tk707.help
-+	./texi2help < $(srcdir)/tk707.texi > $(srcdir)/tk707.help
- 
- # -----------------------------------------------------------------------------
- # specific install rule: local tk707bin becomes installed tk707bin
-@@ -130,11 +130,11 @@
- $(srcdir)/ports.c: ports.tcl tcl2c
- 	./tcl2c tcl_ports < $(srcdir)/ports.tcl > $(srcdir)/ports.c
- $(srcdir)/defs.c: defs.tcl tcl2c
--	sed -e 's%set VERSION.*%set VERSION $(VERSION)%' < $(srcdir)/defs.tcl | ./tcl2c tcl_defs > $(srcdir)/defs.c
-+	sed -e 's%set VERSION[^\\]*\\%set VERSION $(VERSION)\\%' < $(srcdir)/defs.tcl | ./tcl2c tcl_defs > $(srcdir)/defs.c
- $(srcdir)/playa.c: play.c
- 	sed '1,8s%^$$%#define not_compile_tcl%' $(srcdir)/play.c > $(srcdir)/playa.c
- $(srcdir)/defsa.c: defs.c
--	sed 's%set PKGDATADIR.*%set PKGDATADIR $(pkgdatadir)%' $(srcdir)/defs.c > $(srcdir)/defsa.c
-+	sed 's%set PKGDATADIR[^\\]*\\%set PKGDATADIR $(pkgdatadir)\\%' $(srcdir)/defs.c > $(srcdir)/defsa.c
- $(srcdir)/title.c: title.tcl tcl2c
- 	./tcl2c tcl_title < $(srcdir)/title.tcl > $(srcdir)/title.c
- $(srcdir)/title_defs.c: title_defs.tcl tcl2c
-@@ -168,12 +168,13 @@
- 
- install-exec-local: tk707bin tk707.sh
- 	$(mkinstalldirs) $(DESTDIR)$(bindir)
--	sh $(srcdir)/install-sh -s -c tk707bin $(DESTDIR)$(bindir)/tk707bin
- 	$(INSTALL_SCRIPT) tk707.sh $(DESTDIR)$(bindir)/tk707
-+	$(mkinstalldirs) $(DESTDIR)$(libdir)/tk707
-+	sh $(srcdir)/install-sh -s -c tk707bin $(DESTDIR)$(libdir)/tk707/tk707bin
- 
- uninstall-local:
- 	/bin/rm -f $(DESTDIR)$(bindir)/tk707
--	/bin/rm -f $(DESTDIR)$(bindir)/tk707bin
-+	/bin/rm -f $(DESTDIR)$(libdir)/tk707bin
- 
- maintainer-clean-local:
- 	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help		\
---- a/Makefile.in
-+++ b/Makefile.in
-@@ -1,6 +1,8 @@
--# Makefile.in generated automatically by automake 1.4 from Makefile.am
-+# Makefile.in generated by automake 1.15 from Makefile.am.
-+# @configure_input@
-+
-+# Copyright (C) 1994-2014 Free Software Foundation, Inc.
- 
--# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
- # This Makefile.in is free software; the Free Software Foundation
- # gives unlimited permission to copy and/or distribute it,
- # with or without modifications, as long as this notice is preserved.
-@@ -10,66 +12,507 @@
- # even the implied warranty of MERCHANTABILITY or FITNESS FOR A
- # PARTICULAR PURPOSE.
- 
-+@SET_MAKE@
-+
- # -----------------------------------------------------------------------------
- # documentation
- # -----------------------------------------------------------------------------
- 
- 
--SHELL = @SHELL@
--
--srcdir = @srcdir@
--top_srcdir = @top_srcdir@
- VPATH = @srcdir@
--prefix = @prefix@
--exec_prefix = @exec_prefix@
--
--bindir = @bindir@
--sbindir = @sbindir@
--libexecdir = @libexecdir@
--datadir = @datadir@
--sysconfdir = @sysconfdir@
--sharedstatedir = @sharedstatedir@
--localstatedir = @localstatedir@
--libdir = @libdir@
--infodir = @infodir@
--mandir = @mandir@
--includedir = @includedir@
--oldincludedir = /usr/include
--
--DESTDIR =
--
-+am__is_gnu_make = { \
-+  if test -z '$(MAKELEVEL)'; then \
-+    false; \
-+  elif test -n '$(MAKE_HOST)'; then \
-+    true; \
-+  elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
-+    true; \
-+  else \
-+    false; \
-+  fi; \
-+}
-+am__make_running_with_option = \
-+  case $${target_option-} in \
-+      ?) ;; \
-+      *) echo "am__make_running_with_option: internal error: invalid" \
-+              "target option '$${target_option-}' specified" >&2; \
-+         exit 1;; \
-+  esac; \
-+  has_opt=no; \
-+  sane_makeflags=$$MAKEFLAGS; \
-+  if $(am__is_gnu_make); then \
-+    sane_makeflags=$$MFLAGS; \
-+  else \
-+    case $$MAKEFLAGS in \
-+      *\\[\ \	]*) \
-+        bs=\\; \
-+        sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
-+          | sed "s/$$bs$$bs[$$bs $$bs	]*//g"`;; \
-+    esac; \
-+  fi; \
-+  skip_next=no; \
-+  strip_trailopt () \
-+  { \
-+    flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
-+  }; \
-+  for flg in $$sane_makeflags; do \
-+    test $$skip_next = yes && { skip_next=no; continue; }; \
-+    case $$flg in \
-+      *=*|--*) continue;; \
-+        -*I) strip_trailopt 'I'; skip_next=yes;; \
-+      -*I?*) strip_trailopt 'I';; \
-+        -*O) strip_trailopt 'O'; skip_next=yes;; \
-+      -*O?*) strip_trailopt 'O';; \
-+        -*l) strip_trailopt 'l'; skip_next=yes;; \
-+      -*l?*) strip_trailopt 'l';; \
-+      -[dEDm]) skip_next=yes;; \
-+      -[JT]) skip_next=yes;; \
-+    esac; \
-+    case $$flg in \
-+      *$$target_option*) has_opt=yes; break;; \
-+    esac; \
-+  done; \
-+  test $$has_opt = yes
-+am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-+am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
- pkgdatadir = $(datadir)/@PACKAGE@
--pkglibdir = $(libdir)/@PACKAGE@
- pkgincludedir = $(includedir)/@PACKAGE@
--
--top_builddir = .
--
--ACLOCAL = @ACLOCAL@
--AUTOCONF = @AUTOCONF@
--AUTOMAKE = @AUTOMAKE@
--AUTOHEADER = @AUTOHEADER@
--
--INSTALL = @INSTALL@
--INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS)
--INSTALL_DATA = @INSTALL_DATA@
--INSTALL_SCRIPT = @INSTALL_SCRIPT@
--transform = @program_transform_name@
--
-+pkglibdir = $(libdir)/@PACKAGE@
-+pkglibexecdir = $(libexecdir)/@PACKAGE@
-+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-+install_sh_DATA = $(install_sh) -c -m 644
-+install_sh_PROGRAM = $(install_sh) -c
-+install_sh_SCRIPT = $(install_sh) -c
-+INSTALL_HEADER = $(INSTALL_DATA)
-+transform = $(program_transform_name)
- NORMAL_INSTALL = :
- PRE_INSTALL = :
- POST_INSTALL = :
- NORMAL_UNINSTALL = :
- PRE_UNINSTALL = :
- POST_UNINSTALL = :
-+noinst_PROGRAMS = tcl2c$(EXEEXT) tk707bin$(EXEEXT) tk707tcl$(EXEEXT) \
-+	texi2help$(EXEEXT)
-+subdir = .
-+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-+am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \
-+	$(top_srcdir)/configure.in
-+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
-+	$(ACLOCAL_M4)
-+DIST_COMMON = $(srcdir)/Makefile.am $(top_srcdir)/configure \
-+	$(am__configure_deps) $(srcdir)/version.texi \
-+	$(srcdir)/stamp-vti $(am__DIST_COMMON)
-+am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \
-+ configure.lineno config.status.lineno
-+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
-+CONFIG_HEADER = config.h
-+CONFIG_CLEAN_FILES = tk707.sh
-+CONFIG_CLEAN_VPATH_FILES =
-+PROGRAMS = $(noinst_PROGRAMS)
-+am_tcl2c_OBJECTS = tcl2c.$(OBJEXT)
-+tcl2c_OBJECTS = $(am_tcl2c_OBJECTS)
-+tcl2c_LDADD = $(LDADD)
-+am_texi2help_OBJECTS = texi2help.$(OBJEXT)
-+texi2help_OBJECTS = $(am_texi2help_OBJECTS)
-+texi2help_LDADD = $(LDADD)
-+am_tk707bin_OBJECTS = util707.$(OBJEXT) element707.$(OBJEXT) \
-+	play.$(OBJEXT) tk707AppInit.$(OBJEXT) title_defs.$(OBJEXT) \
-+	score_defs.$(OBJEXT) defsa.$(OBJEXT) ports.$(OBJEXT) \
-+	title.$(OBJEXT) score.$(OBJEXT) gui.$(OBJEXT) procs.$(OBJEXT) \
-+	help.$(OBJEXT) tk707.$(OBJEXT)
-+tk707bin_OBJECTS = $(am_tk707bin_OBJECTS)
-+am__DEPENDENCIES_1 =
-+tk707bin_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
-+	$(am__DEPENDENCIES_1)
-+am_tk707tcl_OBJECTS = util707.$(OBJEXT) element707.$(OBJEXT) \
-+	playa.$(OBJEXT) tk707AppInit.$(OBJEXT)
-+tk707tcl_OBJECTS = $(am_tk707tcl_OBJECTS)
-+tk707tcl_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
-+	$(am__DEPENDENCIES_1)
-+AM_V_P = $(am__v_P_@AM_V@)
-+am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-+am__v_P_0 = false
-+am__v_P_1 = :
-+AM_V_GEN = $(am__v_GEN_@AM_V@)
-+am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-+am__v_GEN_0 = @echo "  GEN     " $@;
-+am__v_GEN_1 = 
-+AM_V_at = $(am__v_at_@AM_V@)
-+am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-+am__v_at_0 = @
-+am__v_at_1 = 
-+DEFAULT_INCLUDES = -I.@am__isrc@
-+depcomp = $(SHELL) $(top_srcdir)/depcomp
-+am__depfiles_maybe = depfiles
-+am__mv = mv -f
-+COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
-+	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-+AM_V_CC = $(am__v_CC_@AM_V@)
-+am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
-+am__v_CC_0 = @echo "  CC      " $@;
-+am__v_CC_1 = 
-+CCLD = $(CC)
-+LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
-+AM_V_CCLD = $(am__v_CCLD_@AM_V@)
-+am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
-+am__v_CCLD_0 = @echo "  CCLD    " $@;
-+am__v_CCLD_1 = 
-+LEXCOMPILE = $(LEX) $(AM_LFLAGS) $(LFLAGS)
-+AM_V_LEX = $(am__v_LEX_@AM_V@)
-+am__v_LEX_ = $(am__v_LEX_@AM_DEFAULT_V@)
-+am__v_LEX_0 = @echo "  LEX     " $@;
-+am__v_LEX_1 = 
-+YLWRAP = $(top_srcdir)/ylwrap
-+SOURCES = $(tcl2c_SOURCES) $(texi2help_SOURCES) $(tk707bin_SOURCES) \
-+	$(tk707tcl_SOURCES)
-+DIST_SOURCES = $(tcl2c_SOURCES) $(texi2help_SOURCES) \
-+	$(tk707bin_SOURCES) $(tk707tcl_SOURCES)
-+AM_V_DVIPS = $(am__v_DVIPS_@AM_V@)
-+am__v_DVIPS_ = $(am__v_DVIPS_@AM_DEFAULT_V@)
-+am__v_DVIPS_0 = @echo "  DVIPS   " $@;
-+am__v_DVIPS_1 = 
-+AM_V_MAKEINFO = $(am__v_MAKEINFO_@AM_V@)
-+am__v_MAKEINFO_ = $(am__v_MAKEINFO_@AM_DEFAULT_V@)
-+am__v_MAKEINFO_0 = @echo "  MAKEINFO" $@;
-+am__v_MAKEINFO_1 = 
-+AM_V_INFOHTML = $(am__v_INFOHTML_@AM_V@)
-+am__v_INFOHTML_ = $(am__v_INFOHTML_@AM_DEFAULT_V@)
-+am__v_INFOHTML_0 = @echo "  INFOHTML" $@;
-+am__v_INFOHTML_1 = 
-+AM_V_TEXI2DVI = $(am__v_TEXI2DVI_@AM_V@)
-+am__v_TEXI2DVI_ = $(am__v_TEXI2DVI_@AM_DEFAULT_V@)
-+am__v_TEXI2DVI_0 = @echo "  TEXI2DVI" $@;
-+am__v_TEXI2DVI_1 = 
-+AM_V_TEXI2PDF = $(am__v_TEXI2PDF_@AM_V@)
-+am__v_TEXI2PDF_ = $(am__v_TEXI2PDF_@AM_DEFAULT_V@)
-+am__v_TEXI2PDF_0 = @echo "  TEXI2PDF" $@;
-+am__v_TEXI2PDF_1 = 
-+AM_V_texinfo = $(am__v_texinfo_@AM_V@)
-+am__v_texinfo_ = $(am__v_texinfo_@AM_DEFAULT_V@)
-+am__v_texinfo_0 = -q
-+am__v_texinfo_1 = 
-+AM_V_texidevnull = $(am__v_texidevnull_@AM_V@)
-+am__v_texidevnull_ = $(am__v_texidevnull_@AM_DEFAULT_V@)
-+am__v_texidevnull_0 = > /dev/null
-+am__v_texidevnull_1 = 
-+INFO_DEPS = $(srcdir)/tk707.info
-+am__TEXINFO_TEX_DIR = $(srcdir)
-+DVIS = tk707.dvi
-+PDFS = tk707.pdf
-+PSS = tk707.ps
-+HTMLS = tk707.html
-+TEXINFOS = tk707.texi
-+TEXI2PDF = $(TEXI2DVI) --pdf --batch
-+MAKEINFOHTML = $(MAKEINFO) --html
-+AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS)
-+DVIPS = dvips
-+am__can_run_installinfo = \
-+  case $$AM_UPDATE_INFO_DIR in \
-+    n|no|NO) false;; \
-+    *) (install-info --version) >/dev/null 2>&1;; \
-+  esac
-+am__installdirs = "$(DESTDIR)$(infodir)" "$(DESTDIR)$(man1dir)" \
-+	"$(DESTDIR)$(htmldir)" "$(DESTDIR)$(pkgdatadir)"
-+am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-+am__vpath_adj = case $$p in \
-+    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
-+    *) f=$$p;; \
-+  esac;
-+am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-+am__install_max = 40
-+am__nobase_strip_setup = \
-+  srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-+am__nobase_strip = \
-+  for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-+am__nobase_list = $(am__nobase_strip_setup); \
-+  for p in $$list; do echo "$$p $$p"; done | \
-+  sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
-+  $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
-+    if (++n[$$2] == $(am__install_max)) \
-+      { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
-+    END { for (dir in files) print dir, files[dir] }'
-+am__base_list = \
-+  sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
-+  sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-+am__uninstall_files_from_dir = { \
-+  test -z "$$files" \
-+    || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
-+    || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
-+         $(am__cd) "$$dir" && rm -f $$files; }; \
-+  }
-+man1dir = $(mandir)/man1
-+NROFF = nroff
-+MANS = $(man_MANS)
-+DATA = $(html_DATA) $(pkgdata_DATA)
-+am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) \
-+	$(LISP)config.h.in
-+# Read a list of newline-separated strings from the standard input,
-+# and print each of them once, without duplicates.  Input order is
-+# *not* preserved.
-+am__uniquify_input = $(AWK) '\
-+  BEGIN { nonempty = 0; } \
-+  { items[$$0] = 1; nonempty = 1; } \
-+  END { if (nonempty) { for (i in items) print i; }; } \
-+'
-+# Make sure the list of sources is unique.  This is necessary because,
-+# e.g., the same source file might be shared among _SOURCES variables
-+# for different programs/libraries.
-+am__define_uniq_tagged_files = \
-+  list='$(am__tagged_files)'; \
-+  unique=`for i in $$list; do \
-+    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-+  done | $(am__uniquify_input)`
-+ETAGS = etags
-+CTAGS = ctags
-+CSCOPE = cscope
-+AM_RECURSIVE_TARGETS = cscope check recheck
-+am__tty_colors_dummy = \
-+  mgn= red= grn= lgn= blu= brg= std=; \
-+  am__color_tests=no
-+am__tty_colors = { \
-+  $(am__tty_colors_dummy); \
-+  if test "X$(AM_COLOR_TESTS)" = Xno; then \
-+    am__color_tests=no; \
-+  elif test "X$(AM_COLOR_TESTS)" = Xalways; then \
-+    am__color_tests=yes; \
-+  elif test "X$$TERM" != Xdumb && { test -t 1; } 2>/dev/null; then \
-+    am__color_tests=yes; \
-+  fi; \
-+  if test $$am__color_tests = yes; then \
-+    red=''; \
-+    grn=''; \
-+    lgn=''; \
-+    blu=''; \
-+    mgn=''; \
-+    brg=''; \
-+    std=''; \
-+  fi; \
-+}
-+am__recheck_rx = ^[ 	]*:recheck:[ 	]*
-+am__global_test_result_rx = ^[ 	]*:global-test-result:[ 	]*
-+am__copy_in_global_log_rx = ^[ 	]*:copy-in-global-log:[ 	]*
-+# A command that, given a newline-separated list of test names on the
-+# standard input, print the name of the tests that are to be re-run
-+# upon "make recheck".
-+am__list_recheck_tests = $(AWK) '{ \
-+  recheck = 1; \
-+  while ((rc = (getline line < ($$0 ".trs"))) != 0) \
-+    { \
-+      if (rc < 0) \
-+        { \
-+          if ((getline line2 < ($$0 ".log")) < 0) \
-+	    recheck = 0; \
-+          break; \
-+        } \
-+      else if (line ~ /$(am__recheck_rx)[nN][Oo]/) \
-+        { \
-+          recheck = 0; \
-+          break; \
-+        } \
-+      else if (line ~ /$(am__recheck_rx)[yY][eE][sS]/) \
-+        { \
-+          break; \
-+        } \
-+    }; \
-+  if (recheck) \
-+    print $$0; \
-+  close ($$0 ".trs"); \
-+  close ($$0 ".log"); \
-+}'
-+# A command that, given a newline-separated list of test names on the
-+# standard input, create the global log from their .trs and .log files.
-+am__create_global_log = $(AWK) ' \
-+function fatal(msg) \
-+{ \
-+  print "fatal: making $@: " msg | "cat >&2"; \
-+  exit 1; \
-+} \
-+function rst_section(header) \
-+{ \
-+  print header; \
-+  len = length(header); \
-+  for (i = 1; i <= len; i = i + 1) \
-+    printf "="; \
-+  printf "\n\n"; \
-+} \
-+{ \
-+  copy_in_global_log = 1; \
-+  global_test_result = "RUN"; \
-+  while ((rc = (getline line < ($$0 ".trs"))) != 0) \
-+    { \
-+      if (rc < 0) \
-+         fatal("failed to read from " $$0 ".trs"); \
-+      if (line ~ /$(am__global_test_result_rx)/) \
-+        { \
-+          sub("$(am__global_test_result_rx)", "", line); \
-+          sub("[ 	]*$$", "", line); \
-+          global_test_result = line; \
-+        } \
-+      else if (line ~ /$(am__copy_in_global_log_rx)[nN][oO]/) \
-+        copy_in_global_log = 0; \
-+    }; \
-+  if (copy_in_global_log) \
-+    { \
-+      rst_section(global_test_result ": " $$0); \
-+      while ((rc = (getline line < ($$0 ".log"))) != 0) \
-+      { \
-+        if (rc < 0) \
-+          fatal("failed to read from " $$0 ".log"); \
-+        print line; \
-+      }; \
-+      printf "\n"; \
-+    }; \
-+  close ($$0 ".trs"); \
-+  close ($$0 ".log"); \
-+}'
-+# Restructured Text title.
-+am__rst_title = { sed 's/.*/   &   /;h;s/./=/g;p;x;s/ *$$//;p;g' && echo; }
-+# Solaris 10 'make', and several other traditional 'make' implementations,
-+# pass "-e" to $(SHELL), and POSIX 2008 even requires this.  Work around it
-+# by disabling -e (using the XSI extension "set +e") if it's set.
-+am__sh_e_setup = case $$- in *e*) set +e;; esac
-+# Default flags passed to test drivers.
-+am__common_driver_flags = \
-+  --color-tests "$$am__color_tests" \
-+  --enable-hard-errors "$$am__enable_hard_errors" \
-+  --expect-failure "$$am__expect_failure"
-+# To be inserted before the command running the test.  Creates the
-+# directory for the log if needed.  Stores in $dir the directory
-+# containing $f, in $tst the test, in $log the log.  Executes the
-+# developer- defined test setup AM_TESTS_ENVIRONMENT (if any), and
-+# passes TESTS_ENVIRONMENT.  Set up options for the wrapper that
-+# will run the test scripts (or their associated LOG_COMPILER, if
-+# thy have one).
-+am__check_pre = \
-+$(am__sh_e_setup);					\
-+$(am__vpath_adj_setup) $(am__vpath_adj)			\
-+$(am__tty_colors);					\
-+srcdir=$(srcdir); export srcdir;			\
-+case "$@" in						\
-+  */*) am__odir=`echo "./$@" | sed 's|/[^/]*$$||'`;;	\
-+    *) am__odir=.;; 					\
-+esac;							\
-+test "x$$am__odir" = x"." || test -d "$$am__odir" 	\
-+  || $(MKDIR_P) "$$am__odir" || exit $$?;		\
-+if test -f "./$$f"; then dir=./;			\
-+elif test -f "$$f"; then dir=;				\
-+else dir="$(srcdir)/"; fi;				\
-+tst=$$dir$$f; log='$@'; 				\
-+if test -n '$(DISABLE_HARD_ERRORS)'; then		\
-+  am__enable_hard_errors=no; 				\
-+else							\
-+  am__enable_hard_errors=yes; 				\
-+fi; 							\
-+case " $(XFAIL_TESTS) " in				\
-+  *[\ \	]$$f[\ \	]* | *[\ \	]$$dir$$f[\ \	]*) \
-+    am__expect_failure=yes;;				\
-+  *)							\
-+    am__expect_failure=no;;				\
-+esac; 							\
-+$(AM_TESTS_ENVIRONMENT) $(TESTS_ENVIRONMENT)
-+# A shell command to get the names of the tests scripts with any registered
-+# extension removed (i.e., equivalently, the names of the test logs, with
-+# the '.log' extension removed).  The result is saved in the shell variable
-+# '$bases'.  This honors runtime overriding of TESTS and TEST_LOGS.  Sadly,
-+# we cannot use something simpler, involving e.g., "$(TEST_LOGS:.log=)",
-+# since that might cause problem with VPATH rewrites for suffix-less tests.
-+# See also 'test-harness-vpath-rewrite.sh' and 'test-trs-basic.sh'.
-+am__set_TESTS_bases = \
-+  bases='$(TEST_LOGS)'; \
-+  bases=`for i in $$bases; do echo $$i; done | sed 's/\.log$$//'`; \
-+  bases=`echo $$bases`
-+RECHECK_LOGS = $(TEST_LOGS)
-+TEST_SUITE_LOG = test-suite.log
-+TEST_EXTENSIONS = @EXEEXT@ .test
-+LOG_DRIVER = $(SHELL) $(top_srcdir)/test-driver
-+LOG_COMPILE = $(LOG_COMPILER) $(AM_LOG_FLAGS) $(LOG_FLAGS)
-+am__set_b = \
-+  case '$@' in \
-+    */*) \
-+      case '$*' in \
-+        */*) b='$*';; \
-+          *) b=`echo '$@' | sed 's/\.log$$//'`; \
-+       esac;; \
-+    *) \
-+      b='$*';; \
-+  esac
-+am__test_logs1 = $(TESTS:=.log)
-+am__test_logs2 = $(am__test_logs1:@EXEEXT@.log=.log)
-+TEST_LOGS = $(am__test_logs2:.test.log=.log)
-+TEST_LOG_DRIVER = $(SHELL) $(top_srcdir)/test-driver
-+TEST_LOG_COMPILE = $(TEST_LOG_COMPILER) $(AM_TEST_LOG_FLAGS) \
-+	$(TEST_LOG_FLAGS)
-+am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/config.h.in \
-+	$(srcdir)/tk707.sh.in AUTHORS COPYING ChangeLog INSTALL NEWS \
-+	README TODO compile depcomp install-sh mdate-sh missing \
-+	mkinstalldirs test-driver texi2help.c texinfo.tex ylwrap
-+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-+distdir = $(PACKAGE)-$(VERSION)
-+top_distdir = $(distdir)
-+am__remove_distdir = \
-+  if test -d "$(distdir)"; then \
-+    find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
-+      && rm -rf "$(distdir)" \
-+      || { sleep 5 && rm -rf "$(distdir)"; }; \
-+  else :; fi
-+am__post_remove_distdir = $(am__remove_distdir)
-+DIST_ARCHIVES = $(distdir).tar.gz
-+GZIP_ENV = --best
-+DIST_TARGETS = dist-gzip
-+distuninstallcheck_listfiles = find . -type f -print
-+am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \
-+  | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$'
-+distcleancheck_listfiles = find . -type f -print
-+ACLOCAL = @ACLOCAL@
- ALSA_CFLAGS = @ALSA_CFLAGS@
- ALSA_LIBS = @ALSA_LIBS@
-+AMTAR = @AMTAR@
-+AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-+AUTOCONF = @AUTOCONF@
-+AUTOHEADER = @AUTOHEADER@
-+AUTOMAKE = @AUTOMAKE@
-+AWK = @AWK@
- CC = @CC@
-+CCDEPMODE = @CCDEPMODE@
-+CFLAGS = @CFLAGS@
-+CPP = @CPP@
-+CPPFLAGS = @CPPFLAGS@
-+CYGPATH_W = @CYGPATH_W@
-+DEFS = @DEFS@
-+DEPDIR = @DEPDIR@
-+ECHO_C = @ECHO_C@
-+ECHO_N = @ECHO_N@
-+ECHO_T = @ECHO_T@
-+EXEEXT = @EXEEXT@
- FIG2DEV = @FIG2DEV@
-+INSTALL = @INSTALL@
-+INSTALL_DATA = @INSTALL_DATA@
-+INSTALL_PROGRAM = @INSTALL_PROGRAM@
-+INSTALL_SCRIPT = @INSTALL_SCRIPT@
-+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
- LAME = @LAME@
-+LDFLAGS = @LDFLAGS@
- LEX = @LEX@
-+LEXLIB = @LEXLIB@
-+LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-+LIBOBJS = @LIBOBJS@
-+LIBS = @LIBS@
-+LTLIBOBJS = @LTLIBOBJS@
- MAKEINFO = @MAKEINFO@
- MIDIDUMP = @MIDIDUMP@
-+MKDIR_P = @MKDIR_P@
-+OBJEXT = @OBJEXT@
- PACKAGE = @PACKAGE@
-+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-+PACKAGE_NAME = @PACKAGE_NAME@
-+PACKAGE_STRING = @PACKAGE_STRING@
-+PACKAGE_TARNAME = @PACKAGE_TARNAME@
-+PACKAGE_URL = @PACKAGE_URL@
-+PACKAGE_VERSION = @PACKAGE_VERSION@
-+PATH_SEPARATOR = @PATH_SEPARATOR@
-+SET_MAKE = @SET_MAKE@
-+SHELL = @SHELL@
-+STRIP = @STRIP@
- TCLTK_CFLAGS = @TCLTK_CFLAGS@
- TCLTK_LDFLAGS = @TCLTK_LDFLAGS@
- TCLTK_LIBS = @TCLTK_LIBS@
-@@ -77,622 +520,1112 @@
- TEXI2HTML = @TEXI2HTML@
- TIMIDITY = @TIMIDITY@
- VERSION = @VERSION@
--
--info_TEXINFOS = tk707.texi
-+XMKMF = @XMKMF@
-+X_CFLAGS = @X_CFLAGS@
-+X_EXTRA_LIBS = @X_EXTRA_LIBS@
-+X_LIBS = @X_LIBS@
-+X_PRE_LIBS = @X_PRE_LIBS@
-+abs_builddir = @abs_builddir@
-+abs_srcdir = @abs_srcdir@
-+abs_top_builddir = @abs_top_builddir@
-+abs_top_srcdir = @abs_top_srcdir@
-+ac_ct_CC = @ac_ct_CC@
-+am__include = @am__include@
-+am__leading_dot = @am__leading_dot@
-+am__quote = @am__quote@
-+am__tar = @am__tar@
-+am__untar = @am__untar@
-+bindir = @bindir@
-+build_alias = @build_alias@
-+builddir = @builddir@
-+datadir = @datadir@
-+datarootdir = @datarootdir@
-+docdir = @docdir@
-+dvidir = @dvidir@
-+exec_prefix = @exec_prefix@
-+host_alias = @host_alias@
- htmldir = ${datadir}/html
-+includedir = @includedir@
-+infodir = @infodir@
-+install_sh = @install_sh@
-+libdir = @libdir@
-+libexecdir = @libexecdir@
-+localedir = @localedir@
-+localstatedir = @localstatedir@
-+mandir = @mandir@
-+mkdir_p = @mkdir_p@
-+oldincludedir = @oldincludedir@
-+pdfdir = @pdfdir@
-+prefix = @prefix@
-+program_transform_name = @program_transform_name@
-+psdir = @psdir@
-+runstatedir = @runstatedir@
-+sbindir = @sbindir@
-+sharedstatedir = @sharedstatedir@
-+srcdir = @srcdir@
-+sysconfdir = @sysconfdir@
-+target_alias = @target_alias@
-+top_build_prefix = @top_build_prefix@
-+top_builddir = @top_builddir@
-+top_srcdir = @top_srcdir@
-+info_TEXINFOS = tk707.texi
- html_DATA = tk707.html
- man_MANS = tk707.1
-+tk707bin_SOURCES = util707.c util707.h element707.c play.c \
-+		    tk707AppInit.c title_defs.c score_defs.c defsa.c ports.c \
-+		    title.c score.c gui.c procs.c help.c tk707.c nix_bit.h
- 
--# -----------------------------------------------------------------------------
--# the file set
--# -----------------------------------------------------------------------------
--
--noinst_PROGRAMS = tcl2c tk707bin tk707tcl texi2help
--tk707bin_SOURCES = util707.c util707.h element707.c play.c 		    tk707AppInit.c title_defs.c score_defs.c defsa.c ports.c 		    title.c score.c gui.c procs.c help.c tk707.c nix_bit.h
--
--tk707tcl_SOURCES = util707.c util707.h element707.c playa.c 		    tk707AppInit.c nix_bit.h
-+tk707tcl_SOURCES = util707.c util707.h element707.c playa.c \
-+		    tk707AppInit.c nix_bit.h
- 
- tcl2c_SOURCES = tcl2c.c 
- texi2help_SOURCES = texi2help.l 
--
--tk707bin_LDFLAGS = $(ALSA_LIBS)   $(TCLTK_LIBS)   $(X_LIBS)
--tk707tcl_LDFLAGS = $(ALSA_LIBS)   $(TCLTK_LIBS)   $(X_LIBS)
--INCLUDES = $(ALSA_CFLAGS) $(TCLTK_CFLAGS) $(X_CFLAGS)
--
--pkgdata_DATA = 707.map 727.map 7b7.map 7c7.map 		    demo.dat son-montuno.dat carioca.dat 		    tk707.help
--
-+tk707bin_LDADD = $(ALSA_LIBS)   $(TCLTK_LIBS)   $(X_LIBS)
-+tk707tcl_LDADD = $(ALSA_LIBS)   $(TCLTK_LIBS)   $(X_LIBS)
-+AM_CPPFLAGS = $(ALSA_CFLAGS) $(TCLTK_CFLAGS) $(X_CFLAGS)
-+pkgdata_DATA = 707.map 727.map 7b7.map 7c7.map \
-+		    demo.dat son-montuno.dat carioca.dat \
-+		    tk707.help
- 
- TESTS = check.sh
- TESTS_ENVIRONMENT = MIDIDUMP=$(MIDIDUMP); export MIDIDUMP; /bin/sh
--
--BUILT_SOURCES =  	 title.tcl title_defs.tcl 	title.c   title_defs.c  	score.tcl score_defs.tcl 	score.c   score_defs.c   	defs.c  ports.c gui.c procs.c help.c tk707.c 	defsa.c playa.c
--
--
--EXTRA_DIST = VERSION INSTALL texi2help.c 	tk707.sh.in defs.tcl ports.tcl gui.tcl procs.tcl help.tcl 	tk707.tcl 	score.fig score_fig2tcl.sh 	title.fig title_fig2tcl.sh 	test_02.dat test_05.dat test_06.dat tst_scale.dat 	son-montuno.dat 	$(man_MANS) 	$(BUILT_SOURCES) 	tk707.html 	go $(pkgdata_DATA) $(TESTS) 	binaire-tk.valid-dump triolet-tk.valid-dump tst_scale.valid-dump 	INSTALL.texi gpl.texi BUGS stamp-h.in
--
-+BUILT_SOURCES = \
-+	 title.tcl title_defs.tcl \
-+	title.c   title_defs.c  \
-+	score.tcl score_defs.tcl \
-+	score.c   score_defs.c   \
-+	defs.c  ports.c gui.c procs.c help.c tk707.c \
-+	defsa.c playa.c
-+
-+EXTRA_DIST = VERSION INSTALL texi2help.c \
-+	tk707.sh.in defs.tcl ports.tcl gui.tcl procs.tcl help.tcl \
-+	tk707.tcl \
-+	score.fig score_fig2tcl.sh \
-+	title.fig title_fig2tcl.sh \
-+	test_02.dat test_05.dat test_06.dat tst_scale.dat \
-+	son-montuno.dat \
-+	$(man_MANS) \
-+	$(BUILT_SOURCES) \
-+	tk707.html \
-+	go $(pkgdata_DATA) $(TESTS) \
-+	binaire-tk.valid-dump triolet-tk.valid-dump tst_scale.valid-dump \
-+	INSTALL.texi gpl.texi BUGS stamp-h.in
- 
- CLEANFILES = tk707.sh *.o .deps/* *.mid *.bak *.dvi *.ps *.log
--
--CVSIGNORE =  	Makefile.in configure aclocal.m4 config.h.in stamp-h.in			stamp-vti score_defs.tcl score_defs.c score.tcl score.c			title_defs.tcl title_defs.c title.tcl title.c defsa.c			defs.c ports.c procs.c help.c gui.c tk707.c playa.c INSTALL 		version.texi texi2help.c tk707.help tk707.html
--
--
--WCIGNORE =  	COPYING VERSION binaire-tk.valid-dump gpl.texi install-sh		mdate-sh missing mkinstalldirs tcl2c.c son-montuno.dat			demo.dat test_02.dat test_05.dat test_06.dat texinfo.tex 		score.fig title.fig triolet-tk.valid-dump tst_scale.dat 		tst_scale.valid-dump
-+CVSIGNORE = \
-+	Makefile.in configure aclocal.m4 config.h.in stamp-h.in		\
-+	stamp-vti score_defs.tcl score_defs.c score.tcl score.c		\
-+	title_defs.tcl title_defs.c title.tcl title.c defsa.c		\
-+	defs.c ports.c procs.c help.c gui.c tk707.c playa.c INSTALL 	\
-+	version.texi texi2help.c tk707.help tk707.html
-+
-+WCIGNORE = \
-+	COPYING VERSION binaire-tk.valid-dump gpl.texi install-sh	\
-+	mdate-sh missing mkinstalldirs tcl2c.c son-montuno.dat		\
-+	demo.dat test_02.dat test_05.dat test_06.dat texinfo.tex 	\
-+	score.fig title.fig triolet-tk.valid-dump tst_scale.dat 	\
-+	tst_scale.valid-dump
- 
- 
- # -----------------------------------------------------------------------------
- # other rules
- # -----------------------------------------------------------------------------
--
- SUFFIXES = .mid .wav .mp3
--ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
--mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
--CONFIG_HEADER = config.h
--CONFIG_CLEAN_FILES =  tk707.sh
--PROGRAMS =  $(noinst_PROGRAMS)
--
--
--DEFS = @DEFS@ -I. -I$(srcdir) -I.
--CPPFLAGS = @CPPFLAGS@
--LDFLAGS = @LDFLAGS@
--LIBS = @LIBS@
--X_CFLAGS = @X_CFLAGS@
--X_LIBS = @X_LIBS@
--X_EXTRA_LIBS = @X_EXTRA_LIBS@
--X_PRE_LIBS = @X_PRE_LIBS@
--tcl2c_OBJECTS =  tcl2c.o
--tcl2c_LDADD = $(LDADD)
--tcl2c_DEPENDENCIES = 
--tcl2c_LDFLAGS = 
--tk707bin_OBJECTS =  util707.o element707.o play.o tk707AppInit.o \
--title_defs.o score_defs.o defsa.o ports.o title.o score.o gui.o procs.o \
--help.o tk707.o
--tk707bin_LDADD = $(LDADD)
--tk707bin_DEPENDENCIES = 
--tk707tcl_OBJECTS =  util707.o element707.o playa.o tk707AppInit.o
--tk707tcl_LDADD = $(LDADD)
--tk707tcl_DEPENDENCIES = 
--texi2help_OBJECTS =  texi2help.o
--texi2help_LDADD = $(LDADD)
--texi2help_DEPENDENCIES = 
--texi2help_LDFLAGS = 
--LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
--LEXLIB = @LEXLIB@
--CFLAGS = @CFLAGS@
--COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
--CCLD = $(CC)
--LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@
--INFO_DEPS = tk707.info
--DVIS = tk707.dvi
--TEXINFOS = tk707.texi
--man1dir = $(mandir)/man1
--MANS = $(man_MANS)
-+all: $(BUILT_SOURCES) config.h
-+	$(MAKE) $(AM_MAKEFLAGS) all-am
- 
--NROFF = nroff
--DATA =  $(html_DATA) $(pkgdata_DATA)
--
--DIST_COMMON =  README ./stamp-h.in AUTHORS COPYING ChangeLog INSTALL \
--Makefile.am Makefile.in NEWS TODO acinclude.m4 aclocal.m4 config.h.in \
--configure configure.in install-sh mdate-sh missing mkinstalldirs \
--stamp-vti texi2help.c texinfo.tex tk707.sh.in version.texi
--
--
--DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
--
--TAR = gtar
--GZIP_ENV = --best
--SOURCES = $(tcl2c_SOURCES) $(tk707bin_SOURCES) $(tk707tcl_SOURCES) $(texi2help_SOURCES)
--OBJECTS = $(tcl2c_OBJECTS) $(tk707bin_OBJECTS) $(tk707tcl_OBJECTS) $(texi2help_OBJECTS)
--
--all: all-redirect
- .SUFFIXES:
--.SUFFIXES: .S .c .dvi .info .l .mid .mp3 .o .ps .s .texi .texinfo .txi .wav
--$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4) 
--	cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps Makefile
--
--Makefile: $(srcdir)/Makefile.in  $(top_builddir)/config.status
--	cd $(top_builddir) \
--	  && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
--
--$(ACLOCAL_M4):  configure.in  acinclude.m4
--	cd $(srcdir) && $(ACLOCAL)
-+.SUFFIXES: .mid .wav .mp3 .c .dvi .html .info .l .log .o .obj .pdf .ps .test .test$(EXEEXT) .texi .trs
-+am--refresh: Makefile
-+	@:
-+$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
-+	@for dep in $?; do \
-+	  case '$(am__configure_deps)' in \
-+	    *$$dep*) \
-+	      echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \
-+	      $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \
-+		&& exit 0; \
-+	      exit 1;; \
-+	  esac; \
-+	done; \
-+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \
-+	$(am__cd) $(top_srcdir) && \
-+	  $(AUTOMAKE) --gnu Makefile
-+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
-+	@case '$?' in \
-+	  *config.status*) \
-+	    echo ' $(SHELL) ./config.status'; \
-+	    $(SHELL) ./config.status;; \
-+	  *) \
-+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \
-+	    cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \
-+	esac;
- 
--config.status: $(srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
-+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- 	$(SHELL) ./config.status --recheck
--$(srcdir)/configure: $(srcdir)/configure.in $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES)
--	cd $(srcdir) && $(AUTOCONF)
--
--config.h: stamp-h
--	@if test ! -f $@; then \
--		rm -f stamp-h; \
--		$(MAKE) stamp-h; \
--	else :; fi
--stamp-h: $(srcdir)/config.h.in $(top_builddir)/config.status
--	cd $(top_builddir) \
--	  && CONFIG_FILES= CONFIG_HEADERS=config.h \
--	     $(SHELL) ./config.status
--	@echo timestamp > stamp-h 2> /dev/null
--$(srcdir)/config.h.in: $(srcdir)/stamp-h.in
--	@if test ! -f $@; then \
--		rm -f $(srcdir)/stamp-h.in; \
--		$(MAKE) $(srcdir)/stamp-h.in; \
--	else :; fi
--$(srcdir)/stamp-h.in: $(top_srcdir)/configure.in $(ACLOCAL_M4) 
--	cd $(top_srcdir) && $(AUTOHEADER)
--	@echo timestamp > $(srcdir)/stamp-h.in 2> /dev/null
--
--mostlyclean-hdr:
- 
--clean-hdr:
-+$(top_srcdir)/configure:  $(am__configure_deps)
-+	$(am__cd) $(srcdir) && $(AUTOCONF)
-+$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
-+	$(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
-+$(am__aclocal_m4_deps):
-+
-+config.h: stamp-h1
-+	@test -f $@ || rm -f stamp-h1
-+	@test -f $@ || $(MAKE) $(AM_MAKEFLAGS) stamp-h1
-+
-+stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status
-+	@rm -f stamp-h1
-+	cd $(top_builddir) && $(SHELL) ./config.status config.h
-+$(srcdir)/config.h.in:  $(am__configure_deps) 
-+	($(am__cd) $(top_srcdir) && $(AUTOHEADER))
-+	rm -f stamp-h1
-+	touch $@
- 
- distclean-hdr:
--	-rm -f config.h
--
--maintainer-clean-hdr:
--tk707.sh: $(top_builddir)/config.status tk707.sh.in
--	cd $(top_builddir) && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
--
--mostlyclean-noinstPROGRAMS:
-+	-rm -f config.h stamp-h1
-+tk707.sh: $(top_builddir)/config.status $(srcdir)/tk707.sh.in
-+	cd $(top_builddir) && $(SHELL) ./config.status $@
- 
- clean-noinstPROGRAMS:
- 	-test -z "$(noinst_PROGRAMS)" || rm -f $(noinst_PROGRAMS)
- 
--distclean-noinstPROGRAMS:
--
--maintainer-clean-noinstPROGRAMS:
--
--.c.o:
--	$(COMPILE) -c $<
--
--.s.o:
--	$(COMPILE) -c $<
--
--.S.o:
--	$(COMPILE) -c $<
-+tcl2c$(EXEEXT): $(tcl2c_OBJECTS) $(tcl2c_DEPENDENCIES) $(EXTRA_tcl2c_DEPENDENCIES) 
-+	@rm -f tcl2c$(EXEEXT)
-+	$(AM_V_CCLD)$(LINK) $(tcl2c_OBJECTS) $(tcl2c_LDADD) $(LIBS)
-+
-+texi2help$(EXEEXT): $(texi2help_OBJECTS) $(texi2help_DEPENDENCIES) $(EXTRA_texi2help_DEPENDENCIES) 
-+	@rm -f texi2help$(EXEEXT)
-+	$(AM_V_CCLD)$(LINK) $(texi2help_OBJECTS) $(texi2help_LDADD) $(LIBS)
-+
-+tk707bin$(EXEEXT): $(tk707bin_OBJECTS) $(tk707bin_DEPENDENCIES) $(EXTRA_tk707bin_DEPENDENCIES) 
-+	@rm -f tk707bin$(EXEEXT)
-+	$(AM_V_CCLD)$(LINK) $(tk707bin_OBJECTS) $(tk707bin_LDADD) $(LIBS)
-+
-+tk707tcl$(EXEEXT): $(tk707tcl_OBJECTS) $(tk707tcl_DEPENDENCIES) $(EXTRA_tk707tcl_DEPENDENCIES) 
-+	@rm -f tk707tcl$(EXEEXT)
-+	$(AM_V_CCLD)$(LINK) $(tk707tcl_OBJECTS) $(tk707tcl_LDADD) $(LIBS)
- 
- mostlyclean-compile:
--	-rm -f *.o core *.core
--
--clean-compile:
-+	-rm -f *.$(OBJEXT)
- 
- distclean-compile:
- 	-rm -f *.tab.c
- 
--maintainer-clean-compile:
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/defsa.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/element707.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gui.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/help.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/play.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/playa.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ports.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/procs.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/score.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/score_defs.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tcl2c.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/texi2help.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/title.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/title_defs.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tk707.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tk707AppInit.Po@am__quote@
-+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/util707.Po@am__quote@
-+
-+.c.o:
-+@am__fastdepCC_TRUE@	$(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-+@am__fastdepCC_TRUE@	$(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-+@AMDEP_TRUE@@am__fastdepCC_FALSE@	$(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-+@am__fastdepCC_FALSE@	$(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
-+
-+.c.obj:
-+@am__fastdepCC_TRUE@	$(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-+@am__fastdepCC_TRUE@	$(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-+@AMDEP_TRUE@@am__fastdepCC_FALSE@	$(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-+@am__fastdepCC_FALSE@	$(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
- 
--tcl2c: $(tcl2c_OBJECTS) $(tcl2c_DEPENDENCIES)
--	@rm -f tcl2c
--	$(LINK) $(tcl2c_LDFLAGS) $(tcl2c_OBJECTS) $(tcl2c_LDADD) $(LIBS)
--
--tk707bin: $(tk707bin_OBJECTS) $(tk707bin_DEPENDENCIES)
--	@rm -f tk707bin
--	$(LINK) $(tk707bin_LDFLAGS) $(tk707bin_OBJECTS) $(tk707bin_LDADD) $(LIBS)
--
--tk707tcl: $(tk707tcl_OBJECTS) $(tk707tcl_DEPENDENCIES)
--	@rm -f tk707tcl
--	$(LINK) $(tk707tcl_LDFLAGS) $(tk707tcl_OBJECTS) $(tk707tcl_LDADD) $(LIBS)
--
--texi2help: $(texi2help_OBJECTS) $(texi2help_DEPENDENCIES)
--	@rm -f texi2help
--	$(LINK) $(texi2help_LDFLAGS) $(texi2help_OBJECTS) $(texi2help_LDADD) $(LIBS)
- .l.c:
--	$(LEX) $(AM_LFLAGS) $(LFLAGS) $< && mv $(LEX_OUTPUT_ROOT).c $@
-+	$(AM_V_LEX)$(am__skiplex) $(SHELL) $(YLWRAP) $< $(LEX_OUTPUT_ROOT).c $@ -- $(LEXCOMPILE)
- 
--$(srcdir)/version.texi: stamp-vti
--	@:
-+.texi.info:
-+	$(AM_V_MAKEINFO)restore=: && backupdir="$(am__leading_dot)am$$$$" && \
-+	am__cwd=`pwd` && $(am__cd) $(srcdir) && \
-+	rm -rf $$backupdir && mkdir $$backupdir && \
-+	if ($(MAKEINFO) --version) >/dev/null 2>&1; then \
-+	  for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \
-+	    if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \
-+	  done; \
-+	else :; fi && \
-+	cd "$$am__cwd"; \
-+	if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \
-+	 -o $@ $<; \
-+	then \
-+	  rc=0; \
-+	  $(am__cd) $(srcdir); \
-+	else \
-+	  rc=$$?; \
-+	  $(am__cd) $(srcdir) && \
-+	  $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \
-+	fi; \
-+	rm -rf $$backupdir; exit $$rc
- 
--$(srcdir)/stamp-vti: tk707.texi $(top_srcdir)/configure.in
--	@echo "@set UPDATED `$(SHELL) $(srcdir)/mdate-sh $(srcdir)/tk707.texi`" > vti.tmp
--	@echo "@set EDITION $(VERSION)" >> vti.tmp
--	@echo "@set VERSION $(VERSION)" >> vti.tmp
--	@cmp -s vti.tmp $(srcdir)/version.texi \
--	  || (echo "Updating $(srcdir)/version.texi"; \
--	      cp vti.tmp $(srcdir)/version.texi)
--	-@rm -f vti.tmp
-+.texi.dvi:
-+	$(AM_V_TEXI2DVI)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
-+	MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \
-+	$(TEXI2DVI) $(AM_V_texinfo) --build-dir=$(@:.dvi=.t2d) -o $@ $(AM_V_texidevnull) \
-+	$<
-+
-+.texi.pdf:
-+	$(AM_V_TEXI2PDF)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
-+	MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \
-+	$(TEXI2PDF) $(AM_V_texinfo) --build-dir=$(@:.pdf=.t2p) -o $@ $(AM_V_texidevnull) \
-+	$<
-+
-+.texi.html:
-+	$(AM_V_MAKEINFO)rm -rf $(@:.html=.htp)
-+	$(AM_V_at)if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \
-+	 -o $(@:.html=.htp) $<; \
-+	then \
-+	  rm -rf $@ && mv $(@:.html=.htp) $@; \
-+	else \
-+	  rm -rf $(@:.html=.htp); exit 1; \
-+	fi
-+$(srcdir)/tk707.info: tk707.texi $(srcdir)/version.texi
-+tk707.dvi: tk707.texi $(srcdir)/version.texi
-+tk707.pdf: tk707.texi $(srcdir)/version.texi
-+tk707.html: tk707.texi $(srcdir)/version.texi
-+$(srcdir)/version.texi:  $(srcdir)/stamp-vti
-+$(srcdir)/stamp-vti: tk707.texi $(top_srcdir)/configure
-+	@(dir=.; test -f ./tk707.texi || dir=$(srcdir); \
-+	set `$(SHELL) $(srcdir)/mdate-sh $$dir/tk707.texi`; \
-+	echo "@set UPDATED $$1 $$2 $$3"; \
-+	echo "@set UPDATED-MONTH $$2 $$3"; \
-+	echo "@set EDITION $(VERSION)"; \
-+	echo "@set VERSION $(VERSION)") > vti.tmp$$$$ && \
-+	(cmp -s vti.tmp$$$$ $(srcdir)/version.texi \
-+	  || (echo "Updating $(srcdir)/version.texi" && \
-+	      cp vti.tmp$$$$ $(srcdir)/version.texi.tmp$$$$ && \
-+	      mv $(srcdir)/version.texi.tmp$$$$ $(srcdir)/version.texi)) && \
-+	rm -f vti.tmp$$$$ $(srcdir)/version.texi.$$$$
- 	@cp $(srcdir)/version.texi $@
- 
- mostlyclean-vti:
--	-rm -f vti.tmp
--
--clean-vti:
--
--distclean-vti:
-+	-rm -f vti.tmp* $(srcdir)/version.texi.tmp*
- 
- maintainer-clean-vti:
- 	-rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi
--
--tk707.info: tk707.texi version.texi
--tk707.dvi: tk707.texi version.texi
--
--
--DVIPS = dvips
--
--.texi.info:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
--
--.texi.dvi:
--	TEXINPUTS=.:$$TEXINPUTS \
--	  MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
--
--.texi:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
--
--.texinfo.info:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
--
--.texinfo:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
--
--.texinfo.dvi:
--	TEXINPUTS=.:$$TEXINPUTS \
--	  MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
--
--.txi.info:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
--
--.txi.dvi:
--	TEXINPUTS=.:$$TEXINPUTS \
--	  MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
--
--.txi:
--	@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
--	cd $(srcdir) \
--	  && $(MAKEINFO) `echo $< | sed 's,.*/,,'`
- .dvi.ps:
--	$(DVIPS) $< -o $@
-+	$(AM_V_DVIPS)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
-+	$(DVIPS) $(AM_V_texinfo) -o $@ $<
- 
--install-info-am: $(INFO_DEPS)
--	@$(NORMAL_INSTALL)
--	$(mkinstalldirs) $(DESTDIR)$(infodir)
--	@list='$(INFO_DEPS)'; \
--	for file in $$list; do \
--	  d=$(srcdir); \
--	  for ifile in `cd $$d && echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
--	    if test -f $$d/$$ifile; then \
--	      echo " $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile"; \
--	      $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile; \
--	    else : ; fi; \
--	  done; \
-+uninstall-dvi-am:
-+	@$(NORMAL_UNINSTALL)
-+	@list='$(DVIS)'; test -n "$(dvidir)" || list=; \
-+	for p in $$list; do \
-+	  $(am__strip_dir) \
-+	  echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \
-+	  rm -f "$(DESTDIR)$(dvidir)/$$f"; \
- 	done
--	@$(POST_INSTALL)
--	@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
-+
-+uninstall-html-am:
-+	@$(NORMAL_UNINSTALL)
-+	@list='$(HTMLS)'; test -n "$(htmldir)" || list=; \
-+	for p in $$list; do \
-+	  $(am__strip_dir) \
-+	  echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \
-+	  rm -rf "$(DESTDIR)$(htmldir)/$$f"; \
-+	done
-+
-+uninstall-info-am:
-+	@$(PRE_UNINSTALL)
-+	@if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \
- 	  list='$(INFO_DEPS)'; \
- 	  for file in $$list; do \
--	    echo " install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file";\
--	    install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file || :;\
-+	    relfile=`echo "$$file" | sed 's|^.*/||'`; \
-+	    echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \
-+	    if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \
-+	    then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \
- 	  done; \
--	else : ; fi
--
--uninstall-info:
--	$(PRE_UNINSTALL)
--	@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
--	  ii=yes; \
--	else ii=; fi; \
--	list='$(INFO_DEPS)'; \
-+	else :; fi
-+	@$(NORMAL_UNINSTALL)
-+	@list='$(INFO_DEPS)'; \
- 	for file in $$list; do \
--	  test -z "$ii" \
--	    || install-info --info-dir=$(DESTDIR)$(infodir) --remove $$file; \
-+	  relfile=`echo "$$file" | sed 's|^.*/||'`; \
-+	  relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \
-+	  (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \
-+	     echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \
-+	     rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \
-+	   else :; fi); \
- 	done
-+
-+uninstall-pdf-am:
- 	@$(NORMAL_UNINSTALL)
--	list='$(INFO_DEPS)'; \
--	for file in $$list; do \
--	  (cd $(DESTDIR)$(infodir) && rm -f $$file $$file-[0-9] $$file-[0-9][0-9]); \
-+	@list='$(PDFS)'; test -n "$(pdfdir)" || list=; \
-+	for p in $$list; do \
-+	  $(am__strip_dir) \
-+	  echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \
-+	  rm -f "$(DESTDIR)$(pdfdir)/$$f"; \
-+	done
-+
-+uninstall-ps-am:
-+	@$(NORMAL_UNINSTALL)
-+	@list='$(PSS)'; test -n "$(psdir)" || list=; \
-+	for p in $$list; do \
-+	  $(am__strip_dir) \
-+	  echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \
-+	  rm -f "$(DESTDIR)$(psdir)/$$f"; \
- 	done
- 
- dist-info: $(INFO_DEPS)
-+	@srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
- 	list='$(INFO_DEPS)'; \
- 	for base in $$list; do \
--	  d=$(srcdir); \
--	  for file in `cd $$d && eval echo $$base*`; do \
--	    test -f $(distdir)/$$file \
--	    || ln $$d/$$file $(distdir)/$$file 2> /dev/null \
--	    || cp -p $$d/$$file $(distdir)/$$file; \
-+	  case $$base in \
-+	    $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \
-+	  esac; \
-+	  if test -f $$base; then d=.; else d=$(srcdir); fi; \
-+	  base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \
-+	  for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \
-+	    if test -f $$file; then \
-+	      relfile=`expr "$$file" : "$$d/\(.*\)"`; \
-+	      test -f "$(distdir)/$$relfile" || \
-+		cp -p $$file "$(distdir)/$$relfile"; \
-+	    else :; fi; \
- 	  done; \
- 	done
- 
- mostlyclean-aminfo:
--	-rm -f tk707.aux tk707.cp tk707.cps tk707.dvi tk707.fn tk707.fns \
--	  tk707.ky tk707.kys tk707.ps tk707.log tk707.pg tk707.toc \
--	  tk707.tp tk707.tps tk707.vr tk707.vrs tk707.op tk707.tr \
--	  tk707.cv tk707.cn
-+	-rm -rf tk707.t2d tk707.t2p
- 
- clean-aminfo:
--
--distclean-aminfo:
-+	-test -z "tk707.dvi tk707.pdf tk707.ps tk707.html" \
-+	|| rm -rf tk707.dvi tk707.pdf tk707.ps tk707.html
- 
- maintainer-clean-aminfo:
--	cd $(srcdir) && for i in $(INFO_DEPS); do \
--	  rm -f $$i; \
--	  if test "`echo $$i-[0-9]*`" != "$$i-[0-9]*"; then \
--	    rm -f $$i-[0-9]*; \
--	  fi; \
-+	@list='$(INFO_DEPS)'; for i in $$list; do \
-+	  i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \
-+	  echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \
-+	  rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \
- 	done
--
--install-man1:
--	$(mkinstalldirs) $(DESTDIR)$(man1dir)
--	@list='$(man1_MANS)'; \
--	l2='$(man_MANS)'; for i in $$l2; do \
--	  case "$$i" in \
--	    *.1*) list="$$list $$i" ;; \
--	  esac; \
-+install-man1: $(man_MANS)
-+	@$(NORMAL_INSTALL)
-+	@list1=''; \
-+	list2='$(man_MANS)'; \
-+	test -n "$(man1dir)" \
-+	  && test -n "`echo $$list1$$list2`" \
-+	  || exit 0; \
-+	echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \
-+	$(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \
-+	{ for i in $$list1; do echo "$$i"; done;  \
-+	if test -n "$$list2"; then \
-+	  for i in $$list2; do echo "$$i"; done \
-+	    | sed -n '/\.1[a-z]*$$/p'; \
-+	fi; \
-+	} | while read p; do \
-+	  if test -f $$p; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; echo "$$p"; \
-+	done | \
-+	sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
-+	      -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \
-+	sed 'N;N;s,\n, ,g' | { \
-+	list=; while read file base inst; do \
-+	  if test "$$base" = "$$inst"; then list="$$list $$file"; else \
-+	    echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \
-+	    $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \
-+	  fi; \
- 	done; \
--	for i in $$list; do \
--	  if test -f $(srcdir)/$$i; then file=$(srcdir)/$$i; \
--	  else file=$$i; fi; \
--	  ext=`echo $$i | sed -e 's/^.*\\.//'`; \
--	  inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
--	  inst=`echo $$inst | sed '$(transform)'`.$$ext; \
--	  echo " $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst"; \
--	  $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst; \
--	done
-+	for i in $$list; do echo "$$i"; done | $(am__base_list) | \
-+	while read files; do \
-+	  test -z "$$files" || { \
-+	    echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \
-+	    $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \
-+	done; }
- 
- uninstall-man1:
--	@list='$(man1_MANS)'; \
--	l2='$(man_MANS)'; for i in $$l2; do \
--	  case "$$i" in \
--	    *.1*) list="$$list $$i" ;; \
--	  esac; \
--	done; \
--	for i in $$list; do \
--	  ext=`echo $$i | sed -e 's/^.*\\.//'`; \
--	  inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
--	  inst=`echo $$inst | sed '$(transform)'`.$$ext; \
--	  echo " rm -f $(DESTDIR)$(man1dir)/$$inst"; \
--	  rm -f $(DESTDIR)$(man1dir)/$$inst; \
--	done
--install-man: $(MANS)
--	@$(NORMAL_INSTALL)
--	$(MAKE) $(AM_MAKEFLAGS) install-man1
--uninstall-man:
- 	@$(NORMAL_UNINSTALL)
--	$(MAKE) $(AM_MAKEFLAGS) uninstall-man1
--
-+	@list=''; test -n "$(man1dir)" || exit 0; \
-+	files=`{ for i in $$list; do echo "$$i"; done; \
-+	l2='$(man_MANS)'; for i in $$l2; do echo "$$i"; done | \
-+	  sed -n '/\.1[a-z]*$$/p'; \
-+	} | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
-+	      -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \
-+	dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir)
- install-htmlDATA: $(html_DATA)
- 	@$(NORMAL_INSTALL)
--	$(mkinstalldirs) $(DESTDIR)$(htmldir)
--	@list='$(html_DATA)'; for p in $$list; do \
--	  if test -f $(srcdir)/$$p; then \
--	    echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(htmldir)/$$p"; \
--	    $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(htmldir)/$$p; \
--	  else if test -f $$p; then \
--	    echo " $(INSTALL_DATA) $$p $(DESTDIR)$(htmldir)/$$p"; \
--	    $(INSTALL_DATA) $$p $(DESTDIR)$(htmldir)/$$p; \
--	  fi; fi; \
-+	@list='$(html_DATA)'; test -n "$(htmldir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \
- 	done
- 
- uninstall-htmlDATA:
- 	@$(NORMAL_UNINSTALL)
--	list='$(html_DATA)'; for p in $$list; do \
--	  rm -f $(DESTDIR)$(htmldir)/$$p; \
--	done
--
-+	@list='$(html_DATA)'; test -n "$(htmldir)" || list=; \
-+	files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
-+	dir='$(DESTDIR)$(htmldir)'; $(am__uninstall_files_from_dir)
- install-pkgdataDATA: $(pkgdata_DATA)
- 	@$(NORMAL_INSTALL)
--	$(mkinstalldirs) $(DESTDIR)$(pkgdatadir)
--	@list='$(pkgdata_DATA)'; for p in $$list; do \
--	  if test -f $(srcdir)/$$p; then \
--	    echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p"; \
--	    $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p; \
--	  else if test -f $$p; then \
--	    echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p"; \
--	    $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p; \
--	  fi; fi; \
-+	@list='$(pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(pkgdatadir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgdatadir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgdatadir)" || exit $$?; \
- 	done
- 
- uninstall-pkgdataDATA:
- 	@$(NORMAL_UNINSTALL)
--	list='$(pkgdata_DATA)'; for p in $$list; do \
--	  rm -f $(DESTDIR)$(pkgdatadir)/$$p; \
--	done
--
--tags: TAGS
--
--ID: $(HEADERS) $(SOURCES) $(LISP)
--	list='$(SOURCES) $(HEADERS)'; \
--	unique=`for i in $$list; do echo $$i; done | \
--	  awk '    { files[$$0] = 1; } \
--	       END { for (i in files) print i; }'`; \
--	here=`pwd` && cd $(srcdir) \
--	  && mkid -f$$here/ID $$unique $(LISP)
-+	@list='$(pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
-+	files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
-+	dir='$(DESTDIR)$(pkgdatadir)'; $(am__uninstall_files_from_dir)
-+
-+ID: $(am__tagged_files)
-+	$(am__define_uniq_tagged_files); mkid -fID $$unique
-+tags: tags-am
-+TAGS: tags
- 
--TAGS:  $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) $(LISP)
--	tags=; \
-+tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
-+	set x; \
- 	here=`pwd`; \
--	list='$(SOURCES) $(HEADERS)'; \
--	unique=`for i in $$list; do echo $$i; done | \
--	  awk '    { files[$$0] = 1; } \
--	       END { for (i in files) print i; }'`; \
--	test -z "$(ETAGS_ARGS)config.h.in$$unique$(LISP)$$tags" \
--	  || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags config.h.in $$unique $(LISP) -o $$here/TAGS)
--
--mostlyclean-tags:
-+	$(am__define_uniq_tagged_files); \
-+	shift; \
-+	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
-+	  test -n "$$unique" || unique=$$empty_fix; \
-+	  if test $$# -gt 0; then \
-+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-+	      "$$@" $$unique; \
-+	  else \
-+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-+	      $$unique; \
-+	  fi; \
-+	fi
-+ctags: ctags-am
- 
--clean-tags:
-+CTAGS: ctags
-+ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
-+	$(am__define_uniq_tagged_files); \
-+	test -z "$(CTAGS_ARGS)$$unique" \
-+	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
-+	     $$unique
-+
-+GTAGS:
-+	here=`$(am__cd) $(top_builddir) && pwd` \
-+	  && $(am__cd) $(top_srcdir) \
-+	  && gtags -i $(GTAGS_ARGS) "$$here"
-+cscope: cscope.files
-+	test ! -s cscope.files \
-+	  || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS)
-+clean-cscope:
-+	-rm -f cscope.files
-+cscope.files: clean-cscope cscopelist
-+cscopelist: cscopelist-am
-+
-+cscopelist-am: $(am__tagged_files)
-+	list='$(am__tagged_files)'; \
-+	case "$(srcdir)" in \
-+	  [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
-+	  *) sdir=$(subdir)/$(srcdir) ;; \
-+	esac; \
-+	for i in $$list; do \
-+	  if test -f "$$i"; then \
-+	    echo "$(subdir)/$$i"; \
-+	  else \
-+	    echo "$$sdir/$$i"; \
-+	  fi; \
-+	done >> $(top_builddir)/cscope.files
- 
- distclean-tags:
--	-rm -f TAGS ID
-+	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-+	-rm -f cscope.out cscope.in.out cscope.po.out cscope.files
- 
--maintainer-clean-tags:
-+# Recover from deleted '.trs' file; this should ensure that
-+# "rm -f foo.log; make foo.trs" re-run 'foo.test', and re-create
-+# both 'foo.log' and 'foo.trs'.  Break the recipe in two subshells
-+# to avoid problems with "make -n".
-+.log.trs:
-+	rm -f $< $@
-+	$(MAKE) $(AM_MAKEFLAGS) $<
-+
-+# Leading 'am--fnord' is there to ensure the list of targets does not
-+# expand to empty, as could happen e.g. with make check TESTS=''.
-+am--fnord $(TEST_LOGS) $(TEST_LOGS:.log=.trs): $(am__force_recheck)
-+am--force-recheck:
-+	@:
- 
--distdir = $(PACKAGE)-$(VERSION)
--top_distdir = $(distdir)
-+$(TEST_SUITE_LOG): $(TEST_LOGS)
-+	@$(am__set_TESTS_bases); \
-+	am__f_ok () { test -f "$$1" && test -r "$$1"; }; \
-+	redo_bases=`for i in $$bases; do \
-+	              am__f_ok $$i.trs && am__f_ok $$i.log || echo $$i; \
-+	            done`; \
-+	if test -n "$$redo_bases"; then \
-+	  redo_logs=`for i in $$redo_bases; do echo $$i.log; done`; \
-+	  redo_results=`for i in $$redo_bases; do echo $$i.trs; done`; \
-+	  if $(am__make_dryrun); then :; else \
-+	    rm -f $$redo_logs && rm -f $$redo_results || exit 1; \
-+	  fi; \
-+	fi; \
-+	if test -n "$$am__remaking_logs"; then \
-+	  echo "fatal: making $(TEST_SUITE_LOG): possible infinite" \
-+	       "recursion detected" >&2; \
-+	elif test -n "$$redo_logs"; then \
-+	  am__remaking_logs=yes $(MAKE) $(AM_MAKEFLAGS) $$redo_logs; \
-+	fi; \
-+	if $(am__make_dryrun); then :; else \
-+	  st=0;  \
-+	  errmsg="fatal: making $(TEST_SUITE_LOG): failed to create"; \
-+	  for i in $$redo_bases; do \
-+	    test -f $$i.trs && test -r $$i.trs \
-+	      || { echo "$$errmsg $$i.trs" >&2; st=1; }; \
-+	    test -f $$i.log && test -r $$i.log \
-+	      || { echo "$$errmsg $$i.log" >&2; st=1; }; \
-+	  done; \
-+	  test $$st -eq 0 || exit 1; \
-+	fi
-+	@$(am__sh_e_setup); $(am__tty_colors); $(am__set_TESTS_bases); \
-+	ws='[ 	]'; \
-+	results=`for b in $$bases; do echo $$b.trs; done`; \
-+	test -n "$$results" || results=/dev/null; \
-+	all=`  grep "^$$ws*:test-result:"           $$results | wc -l`; \
-+	pass=` grep "^$$ws*:test-result:$$ws*PASS"  $$results | wc -l`; \
-+	fail=` grep "^$$ws*:test-result:$$ws*FAIL"  $$results | wc -l`; \
-+	skip=` grep "^$$ws*:test-result:$$ws*SKIP"  $$results | wc -l`; \
-+	xfail=`grep "^$$ws*:test-result:$$ws*XFAIL" $$results | wc -l`; \
-+	xpass=`grep "^$$ws*:test-result:$$ws*XPASS" $$results | wc -l`; \
-+	error=`grep "^$$ws*:test-result:$$ws*ERROR" $$results | wc -l`; \
-+	if test `expr $$fail + $$xpass + $$error` -eq 0; then \
-+	  success=true; \
-+	else \
-+	  success=false; \
-+	fi; \
-+	br='==================='; br=$$br$$br$$br$$br; \
-+	result_count () \
-+	{ \
-+	    if test x"$$1" = x"--maybe-color"; then \
-+	      maybe_colorize=yes; \
-+	    elif test x"$$1" = x"--no-color"; then \
-+	      maybe_colorize=no; \
-+	    else \
-+	      echo "$@: invalid 'result_count' usage" >&2; exit 4; \
-+	    fi; \
-+	    shift; \
-+	    desc=$$1 count=$$2; \
-+	    if test $$maybe_colorize = yes && test $$count -gt 0; then \
-+	      color_start=$$3 color_end=$$std; \
-+	    else \
-+	      color_start= color_end=; \
-+	    fi; \
-+	    echo "$${color_start}# $$desc $$count$${color_end}"; \
-+	}; \
-+	create_testsuite_report () \
-+	{ \
-+	  result_count $$1 "TOTAL:" $$all   "$$brg"; \
-+	  result_count $$1 "PASS: " $$pass  "$$grn"; \
-+	  result_count $$1 "SKIP: " $$skip  "$$blu"; \
-+	  result_count $$1 "XFAIL:" $$xfail "$$lgn"; \
-+	  result_count $$1 "FAIL: " $$fail  "$$red"; \
-+	  result_count $$1 "XPASS:" $$xpass "$$red"; \
-+	  result_count $$1 "ERROR:" $$error "$$mgn"; \
-+	}; \
-+	{								\
-+	  echo "$(PACKAGE_STRING): $(subdir)/$(TEST_SUITE_LOG)" |	\
-+	    $(am__rst_title);						\
-+	  create_testsuite_report --no-color;				\
-+	  echo;								\
-+	  echo ".. contents:: :depth: 2";				\
-+	  echo;								\
-+	  for b in $$bases; do echo $$b; done				\
-+	    | $(am__create_global_log);					\
-+	} >$(TEST_SUITE_LOG).tmp || exit 1;				\
-+	mv $(TEST_SUITE_LOG).tmp $(TEST_SUITE_LOG);			\
-+	if $$success; then						\
-+	  col="$$grn";							\
-+	 else								\
-+	  col="$$red";							\
-+	  test x"$$VERBOSE" = x || cat $(TEST_SUITE_LOG);		\
-+	fi;								\
-+	echo "$${col}$$br$${std}"; 					\
-+	echo "$${col}Testsuite summary for $(PACKAGE_STRING)$${std}";	\
-+	echo "$${col}$$br$${std}"; 					\
-+	create_testsuite_report --maybe-color;				\
-+	echo "$$col$$br$$std";						\
-+	if $$success; then :; else					\
-+	  echo "$${col}See $(subdir)/$(TEST_SUITE_LOG)$${std}";		\
-+	  if test -n "$(PACKAGE_BUGREPORT)"; then			\
-+	    echo "$${col}Please report to $(PACKAGE_BUGREPORT)$${std}";	\
-+	  fi;								\
-+	  echo "$$col$$br$$std";					\
-+	fi;								\
-+	$$success || exit 1
-+
-+check-TESTS:
-+	@list='$(RECHECK_LOGS)';           test -z "$$list" || rm -f $$list
-+	@list='$(RECHECK_LOGS:.log=.trs)'; test -z "$$list" || rm -f $$list
-+	@test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
-+	@set +e; $(am__set_TESTS_bases); \
-+	log_list=`for i in $$bases; do echo $$i.log; done`; \
-+	trs_list=`for i in $$bases; do echo $$i.trs; done`; \
-+	log_list=`echo $$log_list`; trs_list=`echo $$trs_list`; \
-+	$(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) TEST_LOGS="$$log_list"; \
-+	exit $$?;
-+recheck: all 
-+	@test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
-+	@set +e; $(am__set_TESTS_bases); \
-+	bases=`for i in $$bases; do echo $$i; done \
-+	         | $(am__list_recheck_tests)` || exit 1; \
-+	log_list=`for i in $$bases; do echo $$i.log; done`; \
-+	log_list=`echo $$log_list`; \
-+	$(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) \
-+	        am__force_recheck=am--force-recheck \
-+	        TEST_LOGS="$$log_list"; \
-+	exit $$?
-+check.sh.log: check.sh
-+	@p='check.sh'; \
-+	b='check.sh'; \
-+	$(am__check_pre) $(LOG_DRIVER) --test-name "$$f" \
-+	--log-file $$b.log --trs-file $$b.trs \
-+	$(am__common_driver_flags) $(AM_LOG_DRIVER_FLAGS) $(LOG_DRIVER_FLAGS) -- $(LOG_COMPILE) \
-+	"$$tst" $(AM_TESTS_FD_REDIRECT)
-+.test.log:
-+	@p='$<'; \
-+	$(am__set_b); \
-+	$(am__check_pre) $(TEST_LOG_DRIVER) --test-name "$$f" \
-+	--log-file $$b.log --trs-file $$b.trs \
-+	$(am__common_driver_flags) $(AM_TEST_LOG_DRIVER_FLAGS) $(TEST_LOG_DRIVER_FLAGS) -- $(TEST_LOG_COMPILE) \
-+	"$$tst" $(AM_TESTS_FD_REDIRECT)
-+@am__EXEEXT_TRUE@.test$(EXEEXT).log:
-+@am__EXEEXT_TRUE@	@p='$<'; \
-+@am__EXEEXT_TRUE@	$(am__set_b); \
-+@am__EXEEXT_TRUE@	$(am__check_pre) $(TEST_LOG_DRIVER) --test-name "$$f" \
-+@am__EXEEXT_TRUE@	--log-file $$b.log --trs-file $$b.trs \
-+@am__EXEEXT_TRUE@	$(am__common_driver_flags) $(AM_TEST_LOG_DRIVER_FLAGS) $(TEST_LOG_DRIVER_FLAGS) -- $(TEST_LOG_COMPILE) \
-+@am__EXEEXT_TRUE@	"$$tst" $(AM_TESTS_FD_REDIRECT)
-+
-+distdir: $(DISTFILES)
-+	$(am__remove_distdir)
-+	test -d "$(distdir)" || mkdir "$(distdir)"
-+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-+	list='$(DISTFILES)'; \
-+	  dist_files=`for file in $$list; do echo $$file; done | \
-+	  sed -e "s|^$$srcdirstrip/||;t" \
-+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
-+	case $$dist_files in \
-+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
-+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
-+			   sort -u` ;; \
-+	esac; \
-+	for file in $$dist_files; do \
-+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
-+	  if test -d $$d/$$file; then \
-+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
-+	    if test -d "$(distdir)/$$file"; then \
-+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-+	    fi; \
-+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
-+	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
-+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-+	    fi; \
-+	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
-+	  else \
-+	    test -f "$(distdir)/$$file" \
-+	    || cp -p $$d/$$file "$(distdir)/$$file" \
-+	    || exit 1; \
-+	  fi; \
-+	done
-+	$(MAKE) $(AM_MAKEFLAGS) \
-+	  top_distdir="$(top_distdir)" distdir="$(distdir)" \
-+	  dist-info
-+	-test -n "$(am__skip_mode_fix)" \
-+	|| find "$(distdir)" -type d ! -perm -755 \
-+		-exec chmod u+rwx,go+rx {} \; -o \
-+	  ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
-+	  ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
-+	  ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
-+	|| chmod -R a+r "$(distdir)"
-+dist-gzip: distdir
-+	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
-+	$(am__post_remove_distdir)
-+
-+dist-bzip2: distdir
-+	tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2
-+	$(am__post_remove_distdir)
-+
-+dist-lzip: distdir
-+	tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz
-+	$(am__post_remove_distdir)
-+
-+dist-xz: distdir
-+	tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
-+	$(am__post_remove_distdir)
-+
-+dist-tarZ: distdir
-+	@echo WARNING: "Support for distribution archives compressed with" \
-+		       "legacy program 'compress' is deprecated." >&2
-+	@echo WARNING: "It will be removed altogether in Automake 2.0" >&2
-+	tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z
-+	$(am__post_remove_distdir)
-+
-+dist-shar: distdir
-+	@echo WARNING: "Support for shar distribution archives is" \
-+	               "deprecated." >&2
-+	@echo WARNING: "It will be removed altogether in Automake 2.0" >&2
-+	shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz
-+	$(am__post_remove_distdir)
-+
-+dist-zip: distdir
-+	-rm -f $(distdir).zip
-+	zip -rq $(distdir).zip $(distdir)
-+	$(am__post_remove_distdir)
-+
-+dist dist-all:
-+	$(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:'
-+	$(am__post_remove_distdir)
- 
- # This target untars the dist file and tries a VPATH configuration.  Then
- # it guarantees that the distribution is self-contained by making another
- # tarfile.
- distcheck: dist
--	-rm -rf $(distdir)
--	GZIP=$(GZIP_ENV) $(TAR) zxf $(distdir).tar.gz
--	mkdir $(distdir)/=build
--	mkdir $(distdir)/=inst
--	dc_install_base=`cd $(distdir)/=inst && pwd`; \
--	cd $(distdir)/=build \
--	  && ../configure --srcdir=.. --prefix=$$dc_install_base \
-+	case '$(DIST_ARCHIVES)' in \
-+	*.tar.gz*) \
-+	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
-+	*.tar.bz2*) \
-+	  bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
-+	*.tar.lz*) \
-+	  lzip -dc $(distdir).tar.lz | $(am__untar) ;;\
-+	*.tar.xz*) \
-+	  xz -dc $(distdir).tar.xz | $(am__untar) ;;\
-+	*.tar.Z*) \
-+	  uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
-+	*.shar.gz*) \
-+	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
-+	*.zip*) \
-+	  unzip $(distdir).zip ;;\
-+	esac
-+	chmod -R a-w $(distdir)
-+	chmod u+w $(distdir)
-+	mkdir $(distdir)/_build $(distdir)/_build/sub $(distdir)/_inst
-+	chmod a-w $(distdir)
-+	test -d $(distdir)/_build || exit 0; \
-+	dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \
-+	  && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \
-+	  && am__cwd=`pwd` \
-+	  && $(am__cd) $(distdir)/_build/sub \
-+	  && ../../configure \
-+	    $(AM_DISTCHECK_CONFIGURE_FLAGS) \
-+	    $(DISTCHECK_CONFIGURE_FLAGS) \
-+	    --srcdir=../.. --prefix="$$dc_install_base" \
- 	  && $(MAKE) $(AM_MAKEFLAGS) \
- 	  && $(MAKE) $(AM_MAKEFLAGS) dvi \
- 	  && $(MAKE) $(AM_MAKEFLAGS) check \
- 	  && $(MAKE) $(AM_MAKEFLAGS) install \
- 	  && $(MAKE) $(AM_MAKEFLAGS) installcheck \
--	  && $(MAKE) $(AM_MAKEFLAGS) dist
--	-rm -rf $(distdir)
--	@banner="$(distdir).tar.gz is ready for distribution"; \
--	dashes=`echo "$$banner" | sed s/./=/g`; \
--	echo "$$dashes"; \
--	echo "$$banner"; \
--	echo "$$dashes"
--dist: distdir
--	-chmod -R a+r $(distdir)
--	GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir)
--	-rm -rf $(distdir)
--dist-all: distdir
--	-chmod -R a+r $(distdir)
--	GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir)
--	-rm -rf $(distdir)
--distdir: $(DISTFILES)
--	-rm -rf $(distdir)
--	mkdir $(distdir)
--	-chmod 777 $(distdir)
--	@for file in $(DISTFILES); do \
--	  d=$(srcdir); \
--	  if test -d $$d/$$file; then \
--	    cp -pr $$/$$file $(distdir)/$$file; \
--	  else \
--	    test -f $(distdir)/$$file \
--	    || ln $$d/$$file $(distdir)/$$file 2> /dev/null \
--	    || cp -p $$d/$$file $(distdir)/$$file || :; \
--	  fi; \
--	done
--	$(MAKE) $(AM_MAKEFLAGS) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-info
--tcl2c.o: tcl2c.c
--texi2help.o: texi2help.c
--
--check-TESTS: $(TESTS)
--	@failed=0; all=0; \
--	srcdir=$(srcdir); export srcdir; \
--	for tst in $(TESTS); do \
--	  if test -f $$tst; then dir=.; \
--	  else dir="$(srcdir)"; fi; \
--	  if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \
--	    all=`expr $$all + 1`; \
--	    echo "PASS: $$tst"; \
--	  elif test $$? -ne 77; then \
--	    all=`expr $$all + 1`; \
--	    failed=`expr $$failed + 1`; \
--	    echo "FAIL: $$tst"; \
--	  fi; \
--	done; \
--	if test "$$failed" -eq 0; then \
--	  banner="All $$all tests passed"; \
--	else \
--	  banner="$$failed of $$all tests failed"; \
--	fi; \
--	dashes=`echo "$$banner" | sed s/./=/g`; \
--	echo "$$dashes"; \
--	echo "$$banner"; \
--	echo "$$dashes"; \
--	test "$$failed" -eq 0
--info-am: $(INFO_DEPS)
--info: info-am
--dvi-am: $(DVIS)
--dvi: dvi-am
-+	  && $(MAKE) $(AM_MAKEFLAGS) uninstall \
-+	  && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \
-+	        distuninstallcheck \
-+	  && chmod -R a-w "$$dc_install_base" \
-+	  && ({ \
-+	       (cd ../.. && umask 077 && mkdir "$$dc_destdir") \
-+	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \
-+	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \
-+	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \
-+	            distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \
-+	      } || { rm -rf "$$dc_destdir"; exit 1; }) \
-+	  && rm -rf "$$dc_destdir" \
-+	  && $(MAKE) $(AM_MAKEFLAGS) dist \
-+	  && rm -rf $(DIST_ARCHIVES) \
-+	  && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \
-+	  && cd "$$am__cwd" \
-+	  || exit 1
-+	$(am__post_remove_distdir)
-+	@(echo "$(distdir) archives ready for distribution: "; \
-+	  list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \
-+	  sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x'
-+distuninstallcheck:
-+	@test -n '$(distuninstallcheck_dir)' || { \
-+	  echo 'ERROR: trying to run $@ with an empty' \
-+	       '$$(distuninstallcheck_dir)' >&2; \
-+	  exit 1; \
-+	}; \
-+	$(am__cd) '$(distuninstallcheck_dir)' || { \
-+	  echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \
-+	  exit 1; \
-+	}; \
-+	test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \
-+	   || { echo "ERROR: files left after uninstall:" ; \
-+	        if test -n "$(DESTDIR)"; then \
-+	          echo "  (check DESTDIR support)"; \
-+	        fi ; \
-+	        $(distuninstallcheck_listfiles) ; \
-+	        exit 1; } >&2
-+distcleancheck: distclean
-+	@if test '$(srcdir)' = . ; then \
-+	  echo "ERROR: distcleancheck can only run from a VPATH build" ; \
-+	  exit 1 ; \
-+	fi
-+	@test `$(distcleancheck_listfiles) | wc -l` -eq 0 \
-+	  || { echo "ERROR: files left in build directory after distclean:" ; \
-+	       $(distcleancheck_listfiles) ; \
-+	       exit 1; } >&2
- check-am: all-am
- 	$(MAKE) $(AM_MAKEFLAGS) check-TESTS
--check: check-am
--installcheck-am:
--installcheck: installcheck-am
--all-recursive-am: config.h
--	$(MAKE) $(AM_MAKEFLAGS) all-recursive
--
--install-exec-am: install-exec-local
-+check: $(BUILT_SOURCES)
-+	$(MAKE) $(AM_MAKEFLAGS) check-am
-+all-am: Makefile $(INFO_DEPS) $(PROGRAMS) $(MANS) $(DATA) config.h \
-+		all-local
-+installdirs:
-+	for dir in "$(DESTDIR)$(infodir)" "$(DESTDIR)$(man1dir)" "$(DESTDIR)$(htmldir)" "$(DESTDIR)$(pkgdatadir)"; do \
-+	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \
-+	done
-+install: $(BUILT_SOURCES)
-+	$(MAKE) $(AM_MAKEFLAGS) install-am
- install-exec: install-exec-am
--
--install-data-am: install-info-am install-man install-htmlDATA \
--		install-pkgdataDATA
- install-data: install-data-am
-+uninstall: uninstall-am
- 
- install-am: all-am
- 	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
--install: install-am
--uninstall-am: uninstall-info uninstall-man uninstall-htmlDATA \
--		uninstall-pkgdataDATA uninstall-local
--uninstall: uninstall-am
--all-am: Makefile $(INFO_DEPS) $(PROGRAMS) $(MANS) $(DATA) config.h \
--		all-local
--all-redirect: all-am
--install-strip:
--	$(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install
--installdirs:
--	$(mkinstalldirs)  $(DESTDIR)$(infodir) $(DESTDIR)$(mandir)/man1 \
--		$(DESTDIR)$(htmldir) $(DESTDIR)$(pkgdatadir)
--
- 
-+installcheck: installcheck-am
-+install-strip:
-+	if test -z '$(STRIP)'; then \
-+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-+	      install; \
-+	else \
-+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-+	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
-+	fi
- mostlyclean-generic:
-+	-test -z "$(TEST_LOGS)" || rm -f $(TEST_LOGS)
-+	-test -z "$(TEST_LOGS:.log=.trs)" || rm -f $(TEST_LOGS:.log=.trs)
-+	-test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG)
- 
- clean-generic:
- 	-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
- 
- distclean-generic:
--	-rm -f Makefile $(CONFIG_CLEAN_FILES)
--	-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-+	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
- 
- maintainer-clean-generic:
--	-test -z "texi2helpl$(BUILT_SOURCES)" || rm -f texi2helpl $(BUILT_SOURCES)
--mostlyclean-am:  mostlyclean-hdr mostlyclean-noinstPROGRAMS \
--		mostlyclean-compile mostlyclean-vti mostlyclean-aminfo \
--		mostlyclean-tags mostlyclean-generic
-+	@echo "This command is intended for maintainers to use"
-+	@echo "it deletes files that may require special tools to rebuild."
-+	-rm -f texi2help.c
-+	-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
-+clean: clean-am
- 
--mostlyclean: mostlyclean-am
-+clean-am: clean-aminfo clean-generic clean-noinstPROGRAMS \
-+	mostlyclean-am
-+
-+distclean: distclean-am
-+	-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-+	-rm -rf ./$(DEPDIR)
-+	-rm -f Makefile
-+distclean-am: clean-am distclean-compile distclean-generic \
-+	distclean-hdr distclean-tags
- 
--clean-am:  clean-hdr clean-noinstPROGRAMS clean-compile clean-vti \
--		clean-aminfo clean-tags clean-generic mostlyclean-am
-+dvi: dvi-am
- 
--clean: clean-am
-+dvi-am: $(DVIS)
- 
--distclean-am:  distclean-hdr distclean-noinstPROGRAMS distclean-compile \
--		distclean-vti distclean-aminfo distclean-tags \
--		distclean-generic clean-am
-+html: html-am
- 
--distclean: distclean-am
--	-rm -f config.status
-+html-am: $(HTMLS)
- 
--maintainer-clean-am:  maintainer-clean-hdr \
--		maintainer-clean-noinstPROGRAMS \
--		maintainer-clean-compile maintainer-clean-vti \
--		maintainer-clean-aminfo maintainer-clean-tags \
--		maintainer-clean-generic distclean-am \
--		maintainer-clean-local
--	@echo "This command is intended for maintainers to use;"
--	@echo "it deletes files that may require special tools to rebuild."
-+info: info-am
-+
-+info-am: $(INFO_DEPS)
-+
-+install-data-am: install-htmlDATA install-info-am install-man \
-+	install-pkgdataDATA
-+
-+install-dvi: install-dvi-am
-+
-+install-dvi-am: $(DVIS)
-+	@$(NORMAL_INSTALL)
-+	@list='$(DVIS)'; test -n "$(dvidir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \
-+	done
-+install-exec-am: install-exec-local
-+
-+install-html: install-html-am
-+
-+install-html-am: $(HTMLS)
-+	@$(NORMAL_INSTALL)
-+	@list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  $(am__strip_dir) \
-+	  d2=$$d$$p; \
-+	  if test -d "$$d2"; then \
-+	    echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \
-+	    $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \
-+	    echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \
-+	    $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \
-+	  else \
-+	    list2="$$list2 $$d2"; \
-+	  fi; \
-+	done; \
-+	test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \
-+	done; }
-+install-info: install-info-am
-+
-+install-info-am: $(INFO_DEPS)
-+	@$(NORMAL_INSTALL)
-+	@srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
-+	list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \
-+	fi; \
-+	for file in $$list; do \
-+	  case $$file in \
-+	    $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \
-+	  esac; \
-+	  if test -f $$file; then d=.; else d=$(srcdir); fi; \
-+	  file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \
-+	  for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \
-+	               $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \
-+	    if test -f $$ifile; then \
-+	      echo "$$ifile"; \
-+	    else : ; fi; \
-+	  done; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done
-+	@$(POST_INSTALL)
-+	@if $(am__can_run_installinfo); then \
-+	  list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \
-+	  for file in $$list; do \
-+	    relfile=`echo "$$file" | sed 's|^.*/||'`; \
-+	    echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\
-+	    install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\
-+	  done; \
-+	else : ; fi
-+install-man: install-man1
-+
-+install-pdf: install-pdf-am
-+
-+install-pdf-am: $(PDFS)
-+	@$(NORMAL_INSTALL)
-+	@list='$(PDFS)'; test -n "$(pdfdir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done
-+install-ps: install-ps-am
-+
-+install-ps-am: $(PSS)
-+	@$(NORMAL_INSTALL)
-+	@list='$(PSS)'; test -n "$(psdir)" || list=; \
-+	if test -n "$$list"; then \
-+	  echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \
-+	  $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \
-+	fi; \
-+	for p in $$list; do \
-+	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-+	  echo "$$d$$p"; \
-+	done | $(am__base_list) | \
-+	while read files; do \
-+	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \
-+	  $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done
-+installcheck-am:
- 
- maintainer-clean: maintainer-clean-am
--	-rm -f config.status
-+	-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-+	-rm -rf $(top_srcdir)/autom4te.cache
-+	-rm -rf ./$(DEPDIR)
-+	-rm -f Makefile
-+maintainer-clean-am: distclean-am maintainer-clean-aminfo \
-+	maintainer-clean-generic maintainer-clean-local \
-+	maintainer-clean-vti
-+
-+mostlyclean: mostlyclean-am
-+
-+mostlyclean-am: mostlyclean-aminfo mostlyclean-compile \
-+	mostlyclean-generic mostlyclean-vti
-+
-+pdf: pdf-am
-+
-+pdf-am: $(PDFS)
-+
-+ps: ps-am
-+
-+ps-am: $(PSS)
-+
-+uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-htmlDATA \
-+	uninstall-info-am uninstall-local uninstall-man \
-+	uninstall-pdf-am uninstall-pkgdataDATA uninstall-ps-am
-+
-+uninstall-man: uninstall-man1
-+
-+.MAKE: all check check-am install install-am install-strip
-+
-+.PHONY: CTAGS GTAGS TAGS all all-am all-local am--refresh check \
-+	check-TESTS check-am clean clean-aminfo clean-cscope \
-+	clean-generic clean-noinstPROGRAMS cscope cscopelist-am ctags \
-+	ctags-am dist dist-all dist-bzip2 dist-gzip dist-info \
-+	dist-lzip dist-shar dist-tarZ dist-xz dist-zip distcheck \
-+	distclean distclean-compile distclean-generic distclean-hdr \
-+	distclean-tags distcleancheck distdir distuninstallcheck dvi \
-+	dvi-am html html-am info info-am install install-am \
-+	install-data install-data-am install-dvi install-dvi-am \
-+	install-exec install-exec-am install-exec-local install-html \
-+	install-html-am install-htmlDATA install-info install-info-am \
-+	install-man install-man1 install-pdf install-pdf-am \
-+	install-pkgdataDATA install-ps install-ps-am install-strip \
-+	installcheck installcheck-am installdirs maintainer-clean \
-+	maintainer-clean-aminfo maintainer-clean-generic \
-+	maintainer-clean-local maintainer-clean-vti mostlyclean \
-+	mostlyclean-aminfo mostlyclean-compile mostlyclean-generic \
-+	mostlyclean-vti pdf pdf-am ps ps-am recheck tags tags-am \
-+	uninstall uninstall-am uninstall-dvi-am uninstall-html-am \
-+	uninstall-htmlDATA uninstall-info-am uninstall-local \
-+	uninstall-man uninstall-man1 uninstall-pdf-am \
-+	uninstall-pkgdataDATA uninstall-ps-am
- 
--.PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \
--mostlyclean-noinstPROGRAMS distclean-noinstPROGRAMS \
--clean-noinstPROGRAMS maintainer-clean-noinstPROGRAMS \
--mostlyclean-compile distclean-compile clean-compile \
--maintainer-clean-compile mostlyclean-vti distclean-vti clean-vti \
--maintainer-clean-vti install-info-am uninstall-info mostlyclean-aminfo \
--distclean-aminfo clean-aminfo maintainer-clean-aminfo install-man1 \
--uninstall-man1 install-man uninstall-man uninstall-htmlDATA \
--install-htmlDATA uninstall-pkgdataDATA install-pkgdataDATA tags \
--mostlyclean-tags distclean-tags clean-tags maintainer-clean-tags \
--distdir check-TESTS info-am info dvi-am dvi check check-am \
--installcheck-am installcheck all-recursive-am install-exec-local \
--install-exec-am install-exec install-data-am install-data install-am \
--install uninstall-local uninstall-am uninstall all-local all-redirect \
--all-am all installdirs mostlyclean-generic distclean-generic \
--clean-generic maintainer-clean-generic clean mostlyclean distclean \
--maintainer-clean
-+.PRECIOUS: Makefile
- 
- 
- # -----------------------------------------------------------------------------
-@@ -743,7 +1676,7 @@
- # -----------------------------------------------------------------------------
- 
- $(srcdir)/tk707.help: tk707.texi texi2help
--	texi2help < $(srcdir)/tk707.texi > $(srcdir)/tk707.help
-+	./texi2help < $(srcdir)/tk707.texi > $(srcdir)/tk707.help
- 
- # -----------------------------------------------------------------------------
- # specific install rule: local tk707bin becomes installed tk707bin
-@@ -754,11 +1687,11 @@
+@@ -151,11 +151,11 @@
  $(srcdir)/ports.c: ports.tcl tcl2c
  	./tcl2c tcl_ports < $(srcdir)/ports.tcl > $(srcdir)/ports.c
  $(srcdir)/defs.c: defs.tcl tcl2c
@@ -2238,14 +29,14 @@ Description: Debian changes to the upstream tk707 package.
  $(srcdir)/title.c: title.tcl tcl2c
  	./tcl2c tcl_title < $(srcdir)/title.tcl > $(srcdir)/title.c
  $(srcdir)/title_defs.c: title_defs.tcl tcl2c
-@@ -792,12 +1725,13 @@
+@@ -189,12 +189,13 @@
  
  install-exec-local: tk707bin tk707.sh
  	$(mkinstalldirs) $(DESTDIR)$(bindir)
 -	sh $(srcdir)/install-sh -s -c tk707bin $(DESTDIR)$(bindir)/tk707bin
  	$(INSTALL_SCRIPT) tk707.sh $(DESTDIR)$(bindir)/tk707
 +	$(mkinstalldirs) $(DESTDIR)$(libdir)/tk707
-+	sh $(srcdir)/install-sh -s -c tk707bin $(DESTDIR)$(libdir)/tk707/tk707bin
++	sh $(srcdir)/install-sh -c tk707bin $(DESTDIR)$(libdir)/tk707/tk707bin
  
  uninstall-local:
  	/bin/rm -f $(DESTDIR)$(bindir)/tk707
@@ -2253,10 +44,13 @@ Description: Debian changes to the upstream tk707 package.
 +	/bin/rm -f $(DESTDIR)$(libdir)/tk707bin
  
  maintainer-clean-local:
- 	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help		\
+ 	cd $(srcdir); /bin/rm -f ${BUILT_SOURCES} tk707.html tk707.help	\
 --- a/acinclude.m4
 +++ b/acinclude.m4
-@@ -1,23 +1,5 @@
+@@ -18,27 +18,8 @@
+ dnl    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ dnl
+ dnl --------------------------------------------------------------
 -AC_DEFUN(AC_VERSION_FROM_FILE,
 -[
 -  if test -f $srcdir/VERSION; then
@@ -2275,13 +69,14 @@ Description: Debian changes to the upstream tk707 package.
 -   [MINOR_VERSION=0]
 -  fi
 -])
+-dnl --------------------------------------------------------------
  dnl MY_DEFINE(VARIABLE)
 -AC_DEFUN(MY_DEFINE,
 +AC_DEFUN([MY_DEFINE],
  [cat >> confdefs.h <<EOF
  [#define] $1 1
  EOF
-@@ -29,7 +11,7 @@
+@@ -51,7 +32,7 @@
  dnl		     $5
  dnl		     action-if-yes,action-if-dynamic,action-if-no)
  dnl		     $6            $7                $8
@@ -2290,10718 +85,35 @@ Description: Debian changes to the upstream tk707 package.
  [AC_ARG_ENABLE($1,[$4],
  [case "x$enable_$1" in xyes|xdynamic) $5 ;; esac])
  case "x$enable_$1" in
-@@ -49,128 +31,3 @@
+@@ -71,7 +52,7 @@
  AC_SUBST($3_so_libs)
  ])
- 
--
--
--dnl Configure Paths for Alsa
--dnl Christopher Lansdown (lansdoct@cs.alfred.edu)
--dnl 29/10/1998
--dnl AM_PATH_ALSA(MINIMUM-VERSION)
--dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
--dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
--dnl
--AC_DEFUN(AM_PATH_ALSA,
--[dnl
--dnl Get the clfags and libraries for alsa
--dnl
--AC_ARG_WITH(alsa-prefix,[ --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
--	[alsa_prefix="$withval"], [alsa_prefix=""])
--AC_ARG_WITH(alsa-inc-prefix, [ --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
--	[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
--AC_ARG_ENABLE(alsatest, [ --disable-alsatest       Do not try to compile and run a test Alsa program], [enable_alsatest=no], [enable_alsatest=yes])
--
--dnl Add any special include directories
--AC_MSG_CHECKING(for ALSA CFLAGS)
--if test "$alsa_inc_prefix" != "" ; then
--	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
--	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
--fi
--AC_MSG_RESULT($ALSA_CFLAGS)
--
--dnl add any special lib dirs
--AC_MSG_CHECKING(for ALSA LDFLAGS)
--if test "$alsa_prefix" != "" ; then
--	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
--	LIBS="$LIBS -L$alsa_prefix"
--fi
--
--dnl add the alsa library
--ALSA_LIBS="$ALSA_LIBS -lasound"
--LDFLAGS="$LDFLAGS $ALSA_LIBS"
--AC_MSG_RESULT($ALSA_LIBS)
--
--dnl Check for the presence of the library
--dnl if test $enable_alsatest = yes; then
--dnl   AC_MSG_CHECKING(for working libasound)
--dnl   AC_TRY_RUN([
--dnl #include <sys/asoundlib.h>
--dnl void main(void)
--dnl {
--dnl   snd_cards();
--dnl   exit(0);
--dnl }
--dnl ],
--dnl    [AC_MSG_RESULT("present")],
--dnl    [AC_MSG_RESULT("not found. ")
--dnl    AC_MSG_WARN(Fatal error: Install alsa-lib package or use --with-alsa-prefix option...)],
--dnl    [AC_MSG_RESULT(unsopported)
--dnl     AC_MSG_WARN(Cross-compiling isn't supported...)]
--dnl  )
--dnl fi
--
--dnl Check for a working version of libasound that is of the right version.
--min_alsa_version=ifelse([$1], ,0.1.1,$1)
--AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
--no_alsa=""
--    alsa_min_major_version=`echo $min_alsa_version | \
--           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
--    alsa_min_minor_version=`echo $min_alsa_version | \
--           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
--    alsa_min_micro_version=`echo $min_alsa_version | \
--           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
--
--AC_LANG_SAVE
--AC_LANG_C
--AC_TRY_COMPILE([
--#include <sys/asoundlib.h>
--], [
--void main(void)
--{
--/* ensure backward compatibility */
--#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
--#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
--#endif
--#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR)
--#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR
--#endif
--#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR)
--#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR
--#endif
--
--#  if(SND_LIB_MAJOR > $alsa_min_major_version)
--  exit(0);
--#  else
--#    if(SND_LIB_MAJOR < $alsa_min_major_version)
--#       error not present
--#    endif
--
--#   if(SND_LIB_MINOR > $alsa_min_minor_version)
--  exit(0);
--#   else
--#     if(SND_LIB_MINOR < $alsa_min_minor_version)
--#          error not present
--#      endif
--
--#      if(SND_LIB_SUBMINOR < $alsa_min_micro_version)
--#        error not present
--#      endif
--#    endif
--#  endif
--exit(0);
--}
--],
--  [AC_MSG_RESULT(found.)],
--  [AC_MSG_RESULT(not present.)
--   AC_MSG_WARN(Sufficiently new version of libasound not found.)]
--)
--AC_LANG_RESTORE
--
--dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
--AC_CHECK_LIB([asound], [snd_cards],,
--	[AC_MSG_WARN(No linkable libasound was found.)]
--)
--
--dnl That should be it.  Now just export out symbols:
--AC_SUBST(ALSA_CFLAGS)
--AC_SUBST(ALSA_LIBS)
--])
--
---- a/aclocal.m4
-+++ b/aclocal.m4
-@@ -1,84 +1,62 @@
--dnl aclocal.m4 generated automatically by aclocal 1.4
--
--dnl Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
--dnl This file is free software; the Free Software Foundation
--dnl gives unlimited permission to copy and/or distribute it,
--dnl with or without modifications, as long as this notice is preserved.
--
--dnl This program is distributed in the hope that it will be useful,
--dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without
--dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A
--dnl PARTICULAR PURPOSE.
--
--AC_DEFUN(AC_VERSION_FROM_FILE,
--[
--  if test -f $srcdir/VERSION; then
--   [MINOR_VERSION=`cat $srcdir/VERSION | awk -F "." '{print $NF}'`]
--   [MAJOR_VERSION=`cat $srcdir/VERSION | \
--        awk -F "." '{
--                i=1; printf("%s", $i);
--                for(i=2;i<NF;i++) {
--                        printf(".%s", $i);
--                }
--                printf("\n");
--        }' `]
--  else
--   AC_MSG_WARN(file $srcdir/VERSION not defined)
--   [MAJOR_VERSION=1]
--   [MINOR_VERSION=0]
--  fi
--])
--dnl MY_DEFINE(VARIABLE)
--AC_DEFUN(MY_DEFINE,
--[cat >> confdefs.h <<EOF
--[#define] $1 1
--EOF
--])
--
--dnl CONFIG_INTERFACE(package,macro_name,interface_id,help
--dnl                  $1      $2         $3           $4
--dnl                  action-if-yes-or-dynamic,
--dnl		     $5
--dnl		     action-if-yes,action-if-dynamic,action-if-no)
--dnl		     $6            $7                $8
--AC_DEFUN(CONFIG_INTERFACE,
--[AC_ARG_ENABLE($1,[$4],
--[case "x$enable_$1" in xyes|xdynamic) $5 ;; esac])
--case "x$enable_$1" in
--xyes)
--  MY_DEFINE(IA_$2)
--  AM_CONDITIONAL(ENABLE_$2, true)
--  $6
--  ;;
--xdynamic)
--  dynamic_targets="$dynamic_targets interface_$3.\$(so)"
--  $7
--  ;;
--*)
--  $8
--  ;;
--esac
--AC_SUBST($3_so_libs)
--])
-+# generated automatically by aclocal 1.15 -*- Autoconf -*-
- 
-+# Copyright (C) 1996-2014 Free Software Foundation, Inc.
- 
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# This program is distributed in the hope that it will be useful,
-+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-+# PARTICULAR PURPOSE.
-+
-+m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])])
-+m4_ifndef([AC_AUTOCONF_VERSION],
-+  [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-+m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],,
-+[m4_warning([this file was generated for autoconf 2.69.
-+You have another version of autoconf.  It may work, but is not guaranteed to.
-+If you have problems, you may need to regenerate the build system entirely.
-+To do so, use the procedure documented by the package, typically 'autoreconf'.])])
- 
- dnl Configure Paths for Alsa
--dnl Christopher Lansdown (lansdoct@cs.alfred.edu)
--dnl 29/10/1998
--dnl AM_PATH_ALSA(MINIMUM-VERSION)
-+dnl Some modifications by Richard Boulton <richard-alsa@tartarus.org>
-+dnl Christopher Lansdown <lansdoct@cs.alfred.edu>
-+dnl Jaroslav Kysela <perex@perex.cz>
-+dnl Last modification: $Id: alsa.m4,v 1.24 2004/09/15 18:48:07 tiwai Exp $
-+dnl AM_PATH_ALSA([MINIMUM-VERSION [, ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]])
- dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
--dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
-+dnl enables arguments --with-alsa-prefix=
-+dnl                   --with-alsa-enc-prefix=
-+dnl                   --disable-alsatest
+ dnl --------------------------------------------------------------
+-AC_DEFUN(AM_CHECK_ALSA9,
++AC_DEFUN([AM_CHECK_ALSA9],
+     [AC_MSG_CHECKING(for alsa-0.9.x)]
+     [AH_TEMPLATE([HAVE_ALSA9], Defines if you have alsa-0.9.x)]
+     [AC_TRY_RUN(
+@@ -107,7 +88,7 @@
+ dnl if there exit ALSA, define have_alsa=yes, otherwise no.
+ dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
  dnl
--AC_DEFUN(AM_PATH_ALSA,
--[dnl
--dnl Get the clfags and libraries for alsa
-+dnl For backwards compatibility, if ACTION_IF_NOT_FOUND is not specified,
-+dnl and the alsa libraries are not found, a fatal AC_MSG_ERROR() will result.
+-AC_DEFUN(AM_PATH_ALSA_LOCAL,
++AC_DEFUN([AM_PATH_ALSA_LOCAL],
+ [dnl
+ dnl Get the clfags and libraries for alsa
  dnl
--AC_ARG_WITH(alsa-prefix,[ --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
--	[alsa_prefix="$withval"], [alsa_prefix=""])
--AC_ARG_WITH(alsa-inc-prefix, [ --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
--	[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
--AC_ARG_ENABLE(alsatest, [ --disable-alsatest       Do not try to compile and run a test Alsa program], [enable_alsatest=no], [enable_alsatest=yes])
-+AC_DEFUN([AM_PATH_ALSA],
-+[dnl Save the original CFLAGS, LDFLAGS, and LIBS
-+alsa_save_CFLAGS="$CFLAGS"
-+alsa_save_LDFLAGS="$LDFLAGS"
-+alsa_save_LIBS="$LIBS"
-+alsa_found=yes
-+
-+dnl
-+dnl Get the cflags and libraries for alsa
-+dnl
-+AC_ARG_WITH(alsa-prefix,
-+[  --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
-+[alsa_prefix="$withval"], [alsa_prefix=""])
-+
-+AC_ARG_WITH(alsa-inc-prefix,
-+[  --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
-+[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
-+
-+dnl FIXME: this is not yet implemented
-+AC_ARG_ENABLE(alsatest,
-+[  --disable-alsatest      Do not try to compile and run a test Alsa program],
-+[enable_alsatest="$enableval"],
-+[enable_alsatest=yes])
- 
- dnl Add any special include directories
- AC_MSG_CHECKING(for ALSA CFLAGS)
-@@ -92,34 +70,16 @@
- AC_MSG_CHECKING(for ALSA LDFLAGS)
- if test "$alsa_prefix" != "" ; then
- 	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
--	LIBS="$LIBS -L$alsa_prefix"
-+	LDFLAGS="$LDFLAGS $ALSA_LIBS"
- fi
- 
- dnl add the alsa library
--ALSA_LIBS="$ALSA_LIBS -lasound"
--LDFLAGS="$LDFLAGS $ALSA_LIBS"
-+ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread"
-+LIBS="$ALSA_LIBS $LIBS"
- AC_MSG_RESULT($ALSA_LIBS)
- 
--dnl Check for the presence of the library
--dnl if test $enable_alsatest = yes; then
--dnl   AC_MSG_CHECKING(for working libasound)
--dnl   AC_TRY_RUN([
--dnl #include <sys/asoundlib.h>
--dnl void main(void)
--dnl {
--dnl   snd_cards();
--dnl   exit(0);
--dnl }
--dnl ],
--dnl    [AC_MSG_RESULT("present")],
--dnl    [AC_MSG_RESULT("not found. ")
--dnl    AC_MSG_WARN(Fatal error: Install alsa-lib package or use --with-alsa-prefix option...)],
--dnl    [AC_MSG_RESULT(unsopported)
--dnl     AC_MSG_WARN(Cross-compiling isn't supported...)]
--dnl  )
--dnl fi
--
- dnl Check for a working version of libasound that is of the right version.
-+if test "x$enable_alsatest" = "xyes"; then
- min_alsa_version=ifelse([$1], ,0.1.1,$1)
- AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
- no_alsa=""
-@@ -133,10 +93,8 @@
- AC_LANG_SAVE
- AC_LANG_C
- AC_TRY_COMPILE([
--#include <sys/asoundlib.h>
-+#include <alsa/asoundlib.h>
- ], [
--void main(void)
--{
- /* ensure backward compatibility */
- #if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
- #define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
-@@ -168,18 +126,37 @@
- #    endif
- #  endif
- exit(0);
--}
- ],
-   [AC_MSG_RESULT(found.)],
-   [AC_MSG_RESULT(not present.)
--   AC_MSG_WARN(Sufficiently new version of libasound not found.)]
-+   ifelse([$3], , [AC_MSG_ERROR(Sufficiently new version of libasound not found.)])
-+   alsa_found=no]
- )
- AC_LANG_RESTORE
-+fi
- 
- dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
--AC_CHECK_LIB([asound], [snd_cards],,
--	[AC_MSG_WARN(No linkable libasound was found.)]
-+if test "x$enable_alsatest" = "xyes"; then
-+AC_CHECK_LIB([asound], [snd_ctl_open],,
-+	[ifelse([$3], , [AC_MSG_ERROR(No linkable libasound was found.)])
-+	 alsa_found=no]
- )
-+fi
-+
-+if test "x$alsa_found" = "xyes" ; then
-+   ifelse([$2], , :, [$2])
-+   LIBS=`echo $LIBS | sed 's/-lasound//g'`
-+   LIBS=`echo $LIBS | sed 's/  //'`
-+   LIBS="-lasound $LIBS"
-+fi
-+if test "x$alsa_found" = "xno" ; then
-+   ifelse([$3], , :, [$3])
-+   CFLAGS="$alsa_save_CFLAGS"
-+   LDFLAGS="$alsa_save_LDFLAGS"
-+   LIBS="$alsa_save_LIBS"
-+   ALSA_CFLAGS=""
-+   ALSA_LIBS=""
-+fi
- 
- dnl That should be it.  Now just export out symbols:
- AC_SUBST(ALSA_CFLAGS)
-@@ -187,84 +164,901 @@
- ])
- 
- 
--# Define a conditional.
-+# Copyright (C) 2002-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_AUTOMAKE_VERSION(VERSION)
-+# ----------------------------
-+# Automake X.Y traces this macro to ensure aclocal.m4 has been
-+# generated from the m4 files accompanying Automake X.Y.
-+# (This private macro should not be called outside this file.)
-+AC_DEFUN([AM_AUTOMAKE_VERSION],
-+[am__api_version='1.15'
-+dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
-+dnl require some minimum version.  Point them to the right macro.
-+m4_if([$1], [1.15], [],
-+      [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
-+])
-+
-+# _AM_AUTOCONF_VERSION(VERSION)
-+# -----------------------------
-+# aclocal traces this macro to find the Autoconf version.
-+# This is a private macro too.  Using m4_define simplifies
-+# the logic in aclocal, which can simply ignore this definition.
-+m4_define([_AM_AUTOCONF_VERSION], [])
-+
-+# AM_SET_CURRENT_AUTOMAKE_VERSION
-+# -------------------------------
-+# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
-+# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
-+AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
-+[AM_AUTOMAKE_VERSION([1.15])dnl
-+m4_ifndef([AC_AUTOCONF_VERSION],
-+  [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-+_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
-+
-+# AM_AUX_DIR_EXPAND                                         -*- Autoconf -*-
- 
--AC_DEFUN(AM_CONDITIONAL,
--[AC_SUBST($1_TRUE)
--AC_SUBST($1_FALSE)
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets
-+# $ac_aux_dir to '$srcdir/foo'.  In other projects, it is set to
-+# '$srcdir', '$srcdir/..', or '$srcdir/../..'.
-+#
-+# Of course, Automake must honor this variable whenever it calls a
-+# tool from the auxiliary directory.  The problem is that $srcdir (and
-+# therefore $ac_aux_dir as well) can be either absolute or relative,
-+# depending on how configure is run.  This is pretty annoying, since
-+# it makes $ac_aux_dir quite unusable in subdirectories: in the top
-+# source directory, any form will work fine, but in subdirectories a
-+# relative path needs to be adjusted first.
-+#
-+# $ac_aux_dir/missing
-+#    fails when called from a subdirectory if $ac_aux_dir is relative
-+# $top_srcdir/$ac_aux_dir/missing
-+#    fails if $ac_aux_dir is absolute,
-+#    fails when called from a subdirectory in a VPATH build with
-+#          a relative $ac_aux_dir
-+#
-+# The reason of the latter failure is that $top_srcdir and $ac_aux_dir
-+# are both prefixed by $srcdir.  In an in-source build this is usually
-+# harmless because $srcdir is '.', but things will broke when you
-+# start a VPATH build or use an absolute $srcdir.
-+#
-+# So we could use something similar to $top_srcdir/$ac_aux_dir/missing,
-+# iff we strip the leading $srcdir from $ac_aux_dir.  That would be:
-+#   am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"`
-+# and then we would define $MISSING as
-+#   MISSING="\${SHELL} $am_aux_dir/missing"
-+# This will work as long as MISSING is not called from configure, because
-+# unfortunately $(top_srcdir) has no meaning in configure.
-+# However there are other variables, like CC, which are often used in
-+# configure, and could therefore not use this "fixed" $ac_aux_dir.
-+#
-+# Another solution, used here, is to always expand $ac_aux_dir to an
-+# absolute PATH.  The drawback is that using absolute paths prevent a
-+# configured tree to be moved without reconfiguration.
-+
-+AC_DEFUN([AM_AUX_DIR_EXPAND],
-+[AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl
-+# Expand $ac_aux_dir to an absolute path.
-+am_aux_dir=`cd "$ac_aux_dir" && pwd`
-+])
-+
-+# AM_CONDITIONAL                                            -*- Autoconf -*-
-+
-+# Copyright (C) 1997-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_CONDITIONAL(NAME, SHELL-CONDITION)
-+# -------------------------------------
-+# Define a conditional.
-+AC_DEFUN([AM_CONDITIONAL],
-+[AC_PREREQ([2.52])dnl
-+ m4_if([$1], [TRUE],  [AC_FATAL([$0: invalid condition: $1])],
-+       [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
-+AC_SUBST([$1_TRUE])dnl
-+AC_SUBST([$1_FALSE])dnl
-+_AM_SUBST_NOTMAKE([$1_TRUE])dnl
-+_AM_SUBST_NOTMAKE([$1_FALSE])dnl
-+m4_define([_AM_COND_VALUE_$1], [$2])dnl
- if $2; then
-   $1_TRUE=
-   $1_FALSE='#'
- else
-   $1_TRUE='#'
-   $1_FALSE=
--fi])
-+fi
-+AC_CONFIG_COMMANDS_PRE(
-+[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then
-+  AC_MSG_ERROR([[conditional "$1" was never defined.
-+Usually this means the macro was only invoked conditionally.]])
-+fi])])
-+
-+# Copyright (C) 1999-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+
-+# There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be
-+# written in clear, in which case automake, when reading aclocal.m4,
-+# will think it sees a *use*, and therefore will trigger all it's
-+# C support machinery.  Also note that it means that autoscan, seeing
-+# CC etc. in the Makefile, will ask for an AC_PROG_CC use...
-+
-+
-+# _AM_DEPENDENCIES(NAME)
-+# ----------------------
-+# See how the compiler implements dependency checking.
-+# NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC".
-+# We try a few techniques and use that to set a single cache variable.
-+#
-+# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was
-+# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular
-+# dependency, and given that the user is not expected to run this macro,
-+# just rely on AC_PROG_CC.
-+AC_DEFUN([_AM_DEPENDENCIES],
-+[AC_REQUIRE([AM_SET_DEPDIR])dnl
-+AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl
-+AC_REQUIRE([AM_MAKE_INCLUDE])dnl
-+AC_REQUIRE([AM_DEP_TRACK])dnl
-+
-+m4_if([$1], [CC],   [depcc="$CC"   am_compiler_list=],
-+      [$1], [CXX],  [depcc="$CXX"  am_compiler_list=],
-+      [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
-+      [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'],
-+      [$1], [UPC],  [depcc="$UPC"  am_compiler_list=],
-+      [$1], [GCJ],  [depcc="$GCJ"  am_compiler_list='gcc3 gcc'],
-+                    [depcc="$$1"   am_compiler_list=])
-+
-+AC_CACHE_CHECK([dependency style of $depcc],
-+               [am_cv_$1_dependencies_compiler_type],
-+[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
-+  # We make a subdir and do the tests there.  Otherwise we can end up
-+  # making bogus files that we don't know about and never remove.  For
-+  # instance it was reported that on HP-UX the gcc test will end up
-+  # making a dummy file named 'D' -- because '-MD' means "put the output
-+  # in D".
-+  rm -rf conftest.dir
-+  mkdir conftest.dir
-+  # Copy depcomp to subdir because otherwise we won't find it if we're
-+  # using a relative directory.
-+  cp "$am_depcomp" conftest.dir
-+  cd conftest.dir
-+  # We will build objects and dependencies in a subdirectory because
-+  # it helps to detect inapplicable dependency modes.  For instance
-+  # both Tru64's cc and ICC support -MD to output dependencies as a
-+  # side effect of compilation, but ICC will put the dependencies in
-+  # the current directory while Tru64 will put them in the object
-+  # directory.
-+  mkdir sub
-+
-+  am_cv_$1_dependencies_compiler_type=none
-+  if test "$am_compiler_list" = ""; then
-+     am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp`
-+  fi
-+  am__universal=false
-+  m4_case([$1], [CC],
-+    [case " $depcc " in #(
-+     *\ -arch\ *\ -arch\ *) am__universal=true ;;
-+     esac],
-+    [CXX],
-+    [case " $depcc " in #(
-+     *\ -arch\ *\ -arch\ *) am__universal=true ;;
-+     esac])
-+
-+  for depmode in $am_compiler_list; do
-+    # Setup a source with many dependencies, because some compilers
-+    # like to wrap large dependency lists on column 80 (with \), and
-+    # we should not choose a depcomp mode which is confused by this.
-+    #
-+    # We need to recreate these files for each test, as the compiler may
-+    # overwrite some of them when testing with obscure command lines.
-+    # This happens at least with the AIX C compiler.
-+    : > sub/conftest.c
-+    for i in 1 2 3 4 5 6; do
-+      echo '#include "conftst'$i'.h"' >> sub/conftest.c
-+      # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
-+      # Solaris 10 /bin/sh.
-+      echo '/* dummy */' > sub/conftst$i.h
-+    done
-+    echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-+
-+    # We check with '-c' and '-o' for the sake of the "dashmstdout"
-+    # mode.  It turns out that the SunPro C++ compiler does not properly
-+    # handle '-M -o', and we need to detect this.  Also, some Intel
-+    # versions had trouble with output in subdirs.
-+    am__obj=sub/conftest.${OBJEXT-o}
-+    am__minus_obj="-o $am__obj"
-+    case $depmode in
-+    gcc)
-+      # This depmode causes a compiler race in universal mode.
-+      test "$am__universal" = false || continue
-+      ;;
-+    nosideeffect)
-+      # After this tag, mechanisms are not by side-effect, so they'll
-+      # only be used when explicitly requested.
-+      if test "x$enable_dependency_tracking" = xyes; then
-+	continue
-+      else
-+	break
-+      fi
-+      ;;
-+    msvc7 | msvc7msys | msvisualcpp | msvcmsys)
-+      # This compiler won't grok '-c -o', but also, the minuso test has
-+      # not run yet.  These depmodes are late enough in the game, and
-+      # so weak that their functioning should not be impacted.
-+      am__obj=conftest.${OBJEXT-o}
-+      am__minus_obj=
-+      ;;
-+    none) break ;;
-+    esac
-+    if depmode=$depmode \
-+       source=sub/conftest.c object=$am__obj \
-+       depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
-+       $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
-+         >/dev/null 2>conftest.err &&
-+       grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
-+       grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
-+       grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
-+       ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
-+      # icc doesn't choke on unknown options, it will just issue warnings
-+      # or remarks (even with -Werror).  So we grep stderr for any message
-+      # that says an option was ignored or not supported.
-+      # When given -MP, icc 7.0 and 7.1 complain thusly:
-+      #   icc: Command line warning: ignoring option '-M'; no argument required
-+      # The diagnosis changed in icc 8.0:
-+      #   icc: Command line remark: option '-MP' not supported
-+      if (grep 'ignoring option' conftest.err ||
-+          grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
-+        am_cv_$1_dependencies_compiler_type=$depmode
-+        break
-+      fi
-+    fi
-+  done
-+
-+  cd ..
-+  rm -rf conftest.dir
-+else
-+  am_cv_$1_dependencies_compiler_type=none
-+fi
-+])
-+AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type])
-+AM_CONDITIONAL([am__fastdep$1], [
-+  test "x$enable_dependency_tracking" != xno \
-+  && test "$am_cv_$1_dependencies_compiler_type" = gcc3])
-+])
-+
-+
-+# AM_SET_DEPDIR
-+# -------------
-+# Choose a directory name for dependency files.
-+# This macro is AC_REQUIREd in _AM_DEPENDENCIES.
-+AC_DEFUN([AM_SET_DEPDIR],
-+[AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-+AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl
-+])
-+
-+
-+# AM_DEP_TRACK
-+# ------------
-+AC_DEFUN([AM_DEP_TRACK],
-+[AC_ARG_ENABLE([dependency-tracking], [dnl
-+AS_HELP_STRING(
-+  [--enable-dependency-tracking],
-+  [do not reject slow dependency extractors])
-+AS_HELP_STRING(
-+  [--disable-dependency-tracking],
-+  [speeds up one-time build])])
-+if test "x$enable_dependency_tracking" != xno; then
-+  am_depcomp="$ac_aux_dir/depcomp"
-+  AMDEPBACKSLASH='\'
-+  am__nodep='_no'
-+fi
-+AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno])
-+AC_SUBST([AMDEPBACKSLASH])dnl
-+_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl
-+AC_SUBST([am__nodep])dnl
-+_AM_SUBST_NOTMAKE([am__nodep])dnl
-+])
-+
-+# Generate code to set up dependency tracking.              -*- Autoconf -*-
-+
-+# Copyright (C) 1999-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+
-+# _AM_OUTPUT_DEPENDENCY_COMMANDS
-+# ------------------------------
-+AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS],
-+[{
-+  # Older Autoconf quotes --file arguments for eval, but not when files
-+  # are listed without --file.  Let's play safe and only enable the eval
-+  # if we detect the quoting.
-+  case $CONFIG_FILES in
-+  *\'*) eval set x "$CONFIG_FILES" ;;
-+  *)   set x $CONFIG_FILES ;;
-+  esac
-+  shift
-+  for mf
-+  do
-+    # Strip MF so we end up with the name of the file.
-+    mf=`echo "$mf" | sed -e 's/:.*$//'`
-+    # Check whether this is an Automake generated Makefile or not.
-+    # We used to match only the files named 'Makefile.in', but
-+    # some people rename them; so instead we look at the file content.
-+    # Grep'ing the first line is not enough: some people post-process
-+    # each Makefile.in and add a new line on top of each file to say so.
-+    # Grep'ing the whole file is not good either: AIX grep has a line
-+    # limit of 2048, but all sed's we know have understand at least 4000.
-+    if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
-+      dirpart=`AS_DIRNAME("$mf")`
-+    else
-+      continue
-+    fi
-+    # Extract the definition of DEPDIR, am__include, and am__quote
-+    # from the Makefile without running 'make'.
-+    DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
-+    test -z "$DEPDIR" && continue
-+    am__include=`sed -n 's/^am__include = //p' < "$mf"`
-+    test -z "$am__include" && continue
-+    am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
-+    # Find all dependency output files, they are included files with
-+    # $(DEPDIR) in their names.  We invoke sed twice because it is the
-+    # simplest approach to changing $(DEPDIR) to its actual value in the
-+    # expansion.
-+    for file in `sed -n "
-+      s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
-+	 sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do
-+      # Make sure the directory exists.
-+      test -f "$dirpart/$file" && continue
-+      fdir=`AS_DIRNAME(["$file"])`
-+      AS_MKDIR_P([$dirpart/$fdir])
-+      # echo "creating $dirpart/$file"
-+      echo '# dummy' > "$dirpart/$file"
-+    done
-+  done
-+}
-+])# _AM_OUTPUT_DEPENDENCY_COMMANDS
-+
-+
-+# AM_OUTPUT_DEPENDENCY_COMMANDS
-+# -----------------------------
-+# This macro should only be invoked once -- use via AC_REQUIRE.
-+#
-+# This code is only required when automatic dependency tracking
-+# is enabled.  FIXME.  This creates each '.P' file that we will
-+# need in order to bootstrap the dependency handling code.
-+AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],
-+[AC_CONFIG_COMMANDS([depfiles],
-+     [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS],
-+     [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"])
-+])
-+
-+# Do all the work for Automake.                             -*- Autoconf -*-
-+
-+# Copyright (C) 1996-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# This macro actually does too much.  Some checks are only needed if
-+# your package does certain things.  But this isn't really a big deal.
-+
-+dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O.
-+m4_define([AC_PROG_CC],
-+m4_defn([AC_PROG_CC])
-+[_AM_PROG_CC_C_O
-+])
-+
-+# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
-+# AM_INIT_AUTOMAKE([OPTIONS])
-+# -----------------------------------------------
-+# The call with PACKAGE and VERSION arguments is the old style
-+# call (pre autoconf-2.50), which is being phased out.  PACKAGE
-+# and VERSION should now be passed to AC_INIT and removed from
-+# the call to AM_INIT_AUTOMAKE.
-+# We support both call styles for the transition.  After
-+# the next Automake release, Autoconf can make the AC_INIT
-+# arguments mandatory, and then we can depend on a new Autoconf
-+# release and drop the old call support.
-+AC_DEFUN([AM_INIT_AUTOMAKE],
-+[AC_PREREQ([2.65])dnl
-+dnl Autoconf wants to disallow AM_ names.  We explicitly allow
-+dnl the ones we care about.
-+m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl
-+AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl
-+AC_REQUIRE([AC_PROG_INSTALL])dnl
-+if test "`cd $srcdir && pwd`" != "`pwd`"; then
-+  # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
-+  # is not polluted with repeated "-I."
-+  AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl
-+  # test to see if srcdir already configured
-+  if test -f $srcdir/config.status; then
-+    AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
-+  fi
-+fi
-+
-+# test whether we have cygpath
-+if test -z "$CYGPATH_W"; then
-+  if (cygpath --version) >/dev/null 2>/dev/null; then
-+    CYGPATH_W='cygpath -w'
-+  else
-+    CYGPATH_W=echo
-+  fi
-+fi
-+AC_SUBST([CYGPATH_W])
-+
-+# Define the identity of the package.
-+dnl Distinguish between old-style and new-style calls.
-+m4_ifval([$2],
-+[AC_DIAGNOSE([obsolete],
-+             [$0: two- and three-arguments forms are deprecated.])
-+m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
-+ AC_SUBST([PACKAGE], [$1])dnl
-+ AC_SUBST([VERSION], [$2])],
-+[_AM_SET_OPTIONS([$1])dnl
-+dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT.
-+m4_if(
-+  m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]),
-+  [ok:ok],,
-+  [m4_fatal([AC_INIT should be called with package and version arguments])])dnl
-+ AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl
-+ AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl
-+
-+_AM_IF_OPTION([no-define],,
-+[AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package])
-+ AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl
-+
-+# Some tools Automake needs.
-+AC_REQUIRE([AM_SANITY_CHECK])dnl
-+AC_REQUIRE([AC_ARG_PROGRAM])dnl
-+AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}])
-+AM_MISSING_PROG([AUTOCONF], [autoconf])
-+AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}])
-+AM_MISSING_PROG([AUTOHEADER], [autoheader])
-+AM_MISSING_PROG([MAKEINFO], [makeinfo])
-+AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-+AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl
-+AC_REQUIRE([AC_PROG_MKDIR_P])dnl
-+# For better backward compatibility.  To be removed once Automake 1.9.x
-+# dies out for good.  For more background, see:
-+# <http://lists.gnu.org/archive/html/automake/2012-07/msg00001.html>
-+# <http://lists.gnu.org/archive/html/automake/2012-07/msg00014.html>
-+AC_SUBST([mkdir_p], ['$(MKDIR_P)'])
-+# We need awk for the "check" target (and possibly the TAP driver).  The
-+# system "awk" is bad on some platforms.
-+AC_REQUIRE([AC_PROG_AWK])dnl
-+AC_REQUIRE([AC_PROG_MAKE_SET])dnl
-+AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-+_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])],
-+	      [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])],
-+			     [_AM_PROG_TAR([v7])])])
-+_AM_IF_OPTION([no-dependencies],,
-+[AC_PROVIDE_IFELSE([AC_PROG_CC],
-+		  [_AM_DEPENDENCIES([CC])],
-+		  [m4_define([AC_PROG_CC],
-+			     m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl
-+AC_PROVIDE_IFELSE([AC_PROG_CXX],
-+		  [_AM_DEPENDENCIES([CXX])],
-+		  [m4_define([AC_PROG_CXX],
-+			     m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl
-+AC_PROVIDE_IFELSE([AC_PROG_OBJC],
-+		  [_AM_DEPENDENCIES([OBJC])],
-+		  [m4_define([AC_PROG_OBJC],
-+			     m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl
-+AC_PROVIDE_IFELSE([AC_PROG_OBJCXX],
-+		  [_AM_DEPENDENCIES([OBJCXX])],
-+		  [m4_define([AC_PROG_OBJCXX],
-+			     m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl
-+])
-+AC_REQUIRE([AM_SILENT_RULES])dnl
-+dnl The testsuite driver may need to know about EXEEXT, so add the
-+dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen.  This
-+dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below.
-+AC_CONFIG_COMMANDS_PRE(dnl
-+[m4_provide_if([_AM_COMPILER_EXEEXT],
-+  [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl
-+
-+# POSIX will say in a future version that running "rm -f" with no argument
-+# is OK; and we want to be able to make that assumption in our Makefile
-+# recipes.  So use an aggressive probe to check that the usage we want is
-+# actually supported "in the wild" to an acceptable degree.
-+# See automake bug#10828.
-+# To make any issue more visible, cause the running configure to be aborted
-+# by default if the 'rm' program in use doesn't match our expectations; the
-+# user can still override this though.
-+if rm -f && rm -fr && rm -rf; then : OK; else
-+  cat >&2 <<'END'
-+Oops!
-+
-+Your 'rm' program seems unable to run without file operands specified
-+on the command line, even when the '-f' option is present.  This is contrary
-+to the behaviour of most rm programs out there, and not conforming with
-+the upcoming POSIX standard: <http://austingroupbugs.net/view.php?id=542>
-+
-+Please tell bug-automake@gnu.org about your system, including the value
-+of your $PATH and any error possibly output before this message.  This
-+can help us improve future automake versions.
-+
-+END
-+  if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
-+    echo 'Configuration will proceed anyway, since you have set the' >&2
-+    echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
-+    echo >&2
-+  else
-+    cat >&2 <<'END'
-+Aborting the configuration process, to ensure you take notice of the issue.
-+
-+You can download and install GNU coreutils to get an 'rm' implementation
-+that behaves properly: <http://www.gnu.org/software/coreutils/>.
-+
-+If you want to complete the configuration process using your problematic
-+'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
-+to "yes", and re-run configure.
-+
-+END
-+    AC_MSG_ERROR([Your 'rm' program is bad, sorry.])
-+  fi
-+fi
-+dnl The trailing newline in this macro's definition is deliberate, for
-+dnl backward compatibility and to allow trailing 'dnl'-style comments
-+dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841.
-+])
-+
-+dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion.  Do not
-+dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further
-+dnl mangled by Autoconf and run in a shell conditional statement.
-+m4_define([_AC_COMPILER_EXEEXT],
-+m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])])
-+
-+# When config.status generates a header, we must update the stamp-h file.
-+# This file resides in the same directory as the config header
-+# that is generated.  The stamp files are numbered to have different names.
-+
-+# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the
-+# loop where config.status creates the headers, so we can generate
-+# our stamp files there.
-+AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK],
-+[# Compute $1's index in $config_headers.
-+_am_arg=$1
-+_am_stamp_count=1
-+for _am_header in $config_headers :; do
-+  case $_am_header in
-+    $_am_arg | $_am_arg:* )
-+      break ;;
-+    * )
-+      _am_stamp_count=`expr $_am_stamp_count + 1` ;;
-+  esac
-+done
-+echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
-+
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_PROG_INSTALL_SH
-+# ------------------
-+# Define $install_sh.
-+AC_DEFUN([AM_PROG_INSTALL_SH],
-+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-+if test x"${install_sh+set}" != xset; then
-+  case $am_aux_dir in
-+  *\ * | *\	*)
-+    install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
-+  *)
-+    install_sh="\${SHELL} $am_aux_dir/install-sh"
-+  esac
-+fi
-+AC_SUBST([install_sh])])
-+
-+# Copyright (C) 2003-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# Check whether the underlying file-system supports filenames
-+# with a leading dot.  For instance MS-DOS doesn't.
-+AC_DEFUN([AM_SET_LEADING_DOT],
-+[rm -rf .tst 2>/dev/null
-+mkdir .tst 2>/dev/null
-+if test -d .tst; then
-+  am__leading_dot=.
-+else
-+  am__leading_dot=_
-+fi
-+rmdir .tst 2>/dev/null
-+AC_SUBST([am__leading_dot])])
- 
--# Do all the work for Automake.  This macro actually does too much --
--# some checks are only needed if your package does certain things.
--# But this isn't really a big deal.
--
--# serial 1
--
--dnl Usage:
--dnl AM_INIT_AUTOMAKE(package,version, [no-define])
--
--AC_DEFUN(AM_INIT_AUTOMAKE,
--[AC_REQUIRE([AC_PROG_INSTALL])
--PACKAGE=[$1]
--AC_SUBST(PACKAGE)
--VERSION=[$2]
--AC_SUBST(VERSION)
--dnl test to see if srcdir already configured
--if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then
--  AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
--fi
--ifelse([$3],,
--AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package])
--AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package]))
--AC_REQUIRE([AM_SANITY_CHECK])
--AC_REQUIRE([AC_ARG_PROGRAM])
--dnl FIXME This is truly gross.
--missing_dir=`cd $ac_aux_dir && pwd`
--AM_MISSING_PROG(ACLOCAL, aclocal, $missing_dir)
--AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir)
--AM_MISSING_PROG(AUTOMAKE, automake, $missing_dir)
--AM_MISSING_PROG(AUTOHEADER, autoheader, $missing_dir)
--AM_MISSING_PROG(MAKEINFO, makeinfo, $missing_dir)
--AC_REQUIRE([AC_PROG_MAKE_SET])])
-+# Check to see how 'make' treats includes.	            -*- Autoconf -*-
- 
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
- #
--# Check to make sure that the build environment is sane.
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_MAKE_INCLUDE()
-+# -----------------
-+# Check to see how make treats includes.
-+AC_DEFUN([AM_MAKE_INCLUDE],
-+[am_make=${MAKE-make}
-+cat > confinc << 'END'
-+am__doit:
-+	@echo this is the am__doit target
-+.PHONY: am__doit
-+END
-+# If we don't find an include directive, just comment out the code.
-+AC_MSG_CHECKING([for style of include used by $am_make])
-+am__include="#"
-+am__quote=
-+_am_result=none
-+# First try GNU make style include.
-+echo "include confinc" > confmf
-+# Ignore all kinds of additional output from 'make'.
-+case `$am_make -s -f confmf 2> /dev/null` in #(
-+*the\ am__doit\ target*)
-+  am__include=include
-+  am__quote=
-+  _am_result=GNU
-+  ;;
-+esac
-+# Now try BSD make style include.
-+if test "$am__include" = "#"; then
-+   echo '.include "confinc"' > confmf
-+   case `$am_make -s -f confmf 2> /dev/null` in #(
-+   *the\ am__doit\ target*)
-+     am__include=.include
-+     am__quote="\""
-+     _am_result=BSD
-+     ;;
-+   esac
-+fi
-+AC_SUBST([am__include])
-+AC_SUBST([am__quote])
-+AC_MSG_RESULT([$_am_result])
-+rm -f confinc confmf
-+])
-+
-+# Fake the existence of programs that GNU maintainers use.  -*- Autoconf -*-
-+
-+# Copyright (C) 1997-2014 Free Software Foundation, Inc.
- #
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_MISSING_PROG(NAME, PROGRAM)
-+# ------------------------------
-+AC_DEFUN([AM_MISSING_PROG],
-+[AC_REQUIRE([AM_MISSING_HAS_RUN])
-+$1=${$1-"${am_missing_run}$2"}
-+AC_SUBST($1)])
- 
--AC_DEFUN(AM_SANITY_CHECK,
-+# AM_MISSING_HAS_RUN
-+# ------------------
-+# Define MISSING if not defined so far and test if it is modern enough.
-+# If it is, set am_missing_run to use it, otherwise, to nothing.
-+AC_DEFUN([AM_MISSING_HAS_RUN],
-+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-+AC_REQUIRE_AUX_FILE([missing])dnl
-+if test x"${MISSING+set}" != xset; then
-+  case $am_aux_dir in
-+  *\ * | *\	*)
-+    MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
-+  *)
-+    MISSING="\${SHELL} $am_aux_dir/missing" ;;
-+  esac
-+fi
-+# Use eval to expand $SHELL
-+if eval "$MISSING --is-lightweight"; then
-+  am_missing_run="$MISSING "
-+else
-+  am_missing_run=
-+  AC_MSG_WARN(['missing' script is too old or missing])
-+fi
-+])
-+
-+#  -*- Autoconf -*-
-+# Obsolete and "removed" macros, that must however still report explicit
-+# error messages when used, to smooth transition.
-+#
-+# Copyright (C) 1996-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+AC_DEFUN([AM_CONFIG_HEADER],
-+[AC_DIAGNOSE([obsolete],
-+['$0': this macro is obsolete.
-+You should use the 'AC][_CONFIG_HEADERS' macro instead.])dnl
-+AC_CONFIG_HEADERS($@)])
-+
-+AC_DEFUN([AM_PROG_CC_STDC],
-+[AC_PROG_CC
-+am_cv_prog_cc_stdc=$ac_cv_prog_cc_stdc
-+AC_DIAGNOSE([obsolete],
-+['$0': this macro is obsolete.
-+You should simply use the 'AC][_PROG_CC' macro instead.
-+Also, your code should no longer depend upon 'am_cv_prog_cc_stdc',
-+but upon 'ac_cv_prog_cc_stdc'.])])
-+
-+AC_DEFUN([AM_C_PROTOTYPES],
-+         [AC_FATAL([automatic de-ANSI-fication support has been removed])])
-+AU_DEFUN([fp_C_PROTOTYPES], [AM_C_PROTOTYPES])
-+
-+# Helper functions for option handling.                     -*- Autoconf -*-
-+
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# _AM_MANGLE_OPTION(NAME)
-+# -----------------------
-+AC_DEFUN([_AM_MANGLE_OPTION],
-+[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])])
-+
-+# _AM_SET_OPTION(NAME)
-+# --------------------
-+# Set option NAME.  Presently that only means defining a flag for this option.
-+AC_DEFUN([_AM_SET_OPTION],
-+[m4_define(_AM_MANGLE_OPTION([$1]), [1])])
-+
-+# _AM_SET_OPTIONS(OPTIONS)
-+# ------------------------
-+# OPTIONS is a space-separated list of Automake options.
-+AC_DEFUN([_AM_SET_OPTIONS],
-+[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])])
-+
-+# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET])
-+# -------------------------------------------
-+# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
-+AC_DEFUN([_AM_IF_OPTION],
-+[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])])
-+
-+# Copyright (C) 1999-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# _AM_PROG_CC_C_O
-+# ---------------
-+# Like AC_PROG_CC_C_O, but changed for automake.  We rewrite AC_PROG_CC
-+# to automatically call this.
-+AC_DEFUN([_AM_PROG_CC_C_O],
-+[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-+AC_REQUIRE_AUX_FILE([compile])dnl
-+AC_LANG_PUSH([C])dnl
-+AC_CACHE_CHECK(
-+  [whether $CC understands -c and -o together],
-+  [am_cv_prog_cc_c_o],
-+  [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])])
-+  # Make sure it works both with $CC and with simple cc.
-+  # Following AC_PROG_CC_C_O, we do the test twice because some
-+  # compilers refuse to overwrite an existing .o file with -o,
-+  # though they will create one.
-+  am_cv_prog_cc_c_o=yes
-+  for am_i in 1 2; do
-+    if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \
-+         && test -f conftest2.$ac_objext; then
-+      : OK
-+    else
-+      am_cv_prog_cc_c_o=no
-+      break
-+    fi
-+  done
-+  rm -f core conftest*
-+  unset am_i])
-+if test "$am_cv_prog_cc_c_o" != yes; then
-+   # Losing compiler, so override with the script.
-+   # FIXME: It is wrong to rewrite CC.
-+   # But if we don't then we get into trouble of one sort or another.
-+   # A longer-term fix would be to have automake use am__CC in this case,
-+   # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
-+   CC="$am_aux_dir/compile $CC"
-+fi
-+AC_LANG_POP([C])])
-+
-+# For backward compatibility.
-+AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])])
-+
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_RUN_LOG(COMMAND)
-+# -------------------
-+# Run COMMAND, save the exit status in ac_status, and log it.
-+# (This has been adapted from Autoconf's _AC_RUN_LOG macro.)
-+AC_DEFUN([AM_RUN_LOG],
-+[{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD
-+   ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD
-+   ac_status=$?
-+   echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
-+   (exit $ac_status); }])
-+
-+# Check to make sure that the build environment is sane.    -*- Autoconf -*-
-+
-+# Copyright (C) 1996-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_SANITY_CHECK
-+# ---------------
-+AC_DEFUN([AM_SANITY_CHECK],
- [AC_MSG_CHECKING([whether build environment is sane])
--# Just in case
--sleep 1
--echo timestamp > conftestfile
--# Do `set' in a subshell so we don't clobber the current shell's
-+# Reject unsafe characters in $srcdir or the absolute working directory
-+# name.  Accept space and tab only in the latter.
-+am_lf='
-+'
-+case `pwd` in
-+  *[[\\\"\#\$\&\'\`$am_lf]]*)
-+    AC_MSG_ERROR([unsafe absolute working directory name]);;
-+esac
-+case $srcdir in
-+  *[[\\\"\#\$\&\'\`$am_lf\ \	]]*)
-+    AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);;
-+esac
-+
-+# Do 'set' in a subshell so we don't clobber the current shell's
- # arguments.  Must try -L first in case configure is actually a
- # symlink; some systems play weird games with the mod time of symlinks
- # (eg FreeBSD returns the mod time of the symlink's containing
- # directory).
- if (
--   set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
--   if test "[$]*" = "X"; then
--      # -L didn't work.
--      set X `ls -t $srcdir/configure conftestfile`
--   fi
--   if test "[$]*" != "X $srcdir/configure conftestfile" \
--      && test "[$]*" != "X conftestfile $srcdir/configure"; then
--
--      # If neither matched, then we have a broken ls.  This can happen
--      # if, for instance, CONFIG_SHELL is bash and it inherits a
--      # broken ls alias from the environment.  This has actually
--      # happened.  Such a system could not be considered "sane".
--      AC_MSG_ERROR([ls -t appears to fail.  Make sure there is not a broken
--alias in your environment])
--   fi
--
--   test "[$]2" = conftestfile
-+   am_has_slept=no
-+   for am_try in 1 2; do
-+     echo "timestamp, slept: $am_has_slept" > conftest.file
-+     set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
-+     if test "$[*]" = "X"; then
-+	# -L didn't work.
-+	set X `ls -t "$srcdir/configure" conftest.file`
-+     fi
-+     if test "$[*]" != "X $srcdir/configure conftest.file" \
-+	&& test "$[*]" != "X conftest.file $srcdir/configure"; then
-+
-+	# If neither matched, then we have a broken ls.  This can happen
-+	# if, for instance, CONFIG_SHELL is bash and it inherits a
-+	# broken ls alias from the environment.  This has actually
-+	# happened.  Such a system could not be considered "sane".
-+	AC_MSG_ERROR([ls -t appears to fail.  Make sure there is not a broken
-+  alias in your environment])
-+     fi
-+     if test "$[2]" = conftest.file || test $am_try -eq 2; then
-+       break
-+     fi
-+     # Just in case.
-+     sleep 1
-+     am_has_slept=yes
-+   done
-+   test "$[2]" = conftest.file
-    )
- then
-    # Ok.
-@@ -273,45 +1067,260 @@
-    AC_MSG_ERROR([newly created file is older than distributed files!
- Check your system clock])
- fi
--rm -f conftest*
--AC_MSG_RESULT(yes)])
-+AC_MSG_RESULT([yes])
-+# If we didn't sleep, we still need to ensure time stamps of config.status and
-+# generated files are strictly newer.
-+am_sleep_pid=
-+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
-+  ( sleep 1 ) &
-+  am_sleep_pid=$!
-+fi
-+AC_CONFIG_COMMANDS_PRE(
-+  [AC_MSG_CHECKING([that generated files are newer than configure])
-+   if test -n "$am_sleep_pid"; then
-+     # Hide warnings about reused PIDs.
-+     wait $am_sleep_pid 2>/dev/null
-+   fi
-+   AC_MSG_RESULT([done])])
-+rm -f conftest.file
-+])
- 
--dnl AM_MISSING_PROG(NAME, PROGRAM, DIRECTORY)
--dnl The program must properly implement --version.
--AC_DEFUN(AM_MISSING_PROG,
--[AC_MSG_CHECKING(for working $2)
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if ($2 --version) < /dev/null > /dev/null 2>&1; then
--   $1=$2
--   AC_MSG_RESULT(found)
-+# Copyright (C) 2009-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_SILENT_RULES([DEFAULT])
-+# --------------------------
-+# Enable less verbose build rules; with the default set to DEFAULT
-+# ("yes" being less verbose, "no" or empty being verbose).
-+AC_DEFUN([AM_SILENT_RULES],
-+[AC_ARG_ENABLE([silent-rules], [dnl
-+AS_HELP_STRING(
-+  [--enable-silent-rules],
-+  [less verbose build output (undo: "make V=1")])
-+AS_HELP_STRING(
-+  [--disable-silent-rules],
-+  [verbose build output (undo: "make V=0")])dnl
-+])
-+case $enable_silent_rules in @%:@ (((
-+  yes) AM_DEFAULT_VERBOSITY=0;;
-+   no) AM_DEFAULT_VERBOSITY=1;;
-+    *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);;
-+esac
-+dnl
-+dnl A few 'make' implementations (e.g., NonStop OS and NextStep)
-+dnl do not support nested variable expansions.
-+dnl See automake bug#9928 and bug#10237.
-+am_make=${MAKE-make}
-+AC_CACHE_CHECK([whether $am_make supports nested variables],
-+   [am_cv_make_support_nested_variables],
-+   [if AS_ECHO([['TRUE=$(BAR$(V))
-+BAR0=false
-+BAR1=true
-+V=1
-+am__doit:
-+	@$(TRUE)
-+.PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then
-+  am_cv_make_support_nested_variables=yes
- else
--   $1="$3/missing $2"
--   AC_MSG_RESULT(missing)
-+  am_cv_make_support_nested_variables=no
-+fi])
-+if test $am_cv_make_support_nested_variables = yes; then
-+  dnl Using '$V' instead of '$(V)' breaks IRIX make.
-+  AM_V='$(V)'
-+  AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
-+else
-+  AM_V=$AM_DEFAULT_VERBOSITY
-+  AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
- fi
--AC_SUBST($1)])
-+AC_SUBST([AM_V])dnl
-+AM_SUBST_NOTMAKE([AM_V])dnl
-+AC_SUBST([AM_DEFAULT_V])dnl
-+AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl
-+AC_SUBST([AM_DEFAULT_VERBOSITY])dnl
-+AM_BACKSLASH='\'
-+AC_SUBST([AM_BACKSLASH])dnl
-+_AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl
-+])
-+
-+# Copyright (C) 2001-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# AM_PROG_INSTALL_STRIP
-+# ---------------------
-+# One issue with vendor 'install' (even GNU) is that you can't
-+# specify the program used to strip binaries.  This is especially
-+# annoying in cross-compiling environments, where the build's strip
-+# is unlikely to handle the host's binaries.
-+# Fortunately install-sh will honor a STRIPPROG variable, so we
-+# always use install-sh in "make install-strip", and initialize
-+# STRIPPROG with the value of the STRIP variable (set by the user).
-+AC_DEFUN([AM_PROG_INSTALL_STRIP],
-+[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-+# Installed binaries are usually stripped using 'strip' when the user
-+# run "make install-strip".  However 'strip' might not be the right
-+# tool to use in cross-compilation environments, therefore Automake
-+# will honor the 'STRIP' environment variable to overrule this program.
-+dnl Don't test for $cross_compiling = yes, because it might be 'maybe'.
-+if test "$cross_compiling" != no; then
-+  AC_CHECK_TOOL([STRIP], [strip], :)
-+fi
-+INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-+AC_SUBST([INSTALL_STRIP_PROGRAM])])
- 
--# Like AC_CONFIG_HEADER, but automatically create stamp file.
-+# Copyright (C) 2006-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# _AM_SUBST_NOTMAKE(VARIABLE)
-+# ---------------------------
-+# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in.
-+# This macro is traced by Automake.
-+AC_DEFUN([_AM_SUBST_NOTMAKE])
-+
-+# AM_SUBST_NOTMAKE(VARIABLE)
-+# --------------------------
-+# Public sister of _AM_SUBST_NOTMAKE.
-+AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
- 
--AC_DEFUN(AM_CONFIG_HEADER,
--[AC_PREREQ([2.12])
--AC_CONFIG_HEADER([$1])
--dnl When config.status generates a header, we must update the stamp-h file.
--dnl This file resides in the same directory as the config header
--dnl that is generated.  We must strip everything past the first ":",
--dnl and everything past the last "/".
--AC_OUTPUT_COMMANDS(changequote(<<,>>)dnl
--ifelse(patsubst(<<$1>>, <<[^ ]>>, <<>>), <<>>,
--<<test -z "<<$>>CONFIG_HEADERS" || echo timestamp > patsubst(<<$1>>, <<^\([^:]*/\)?.*>>, <<\1>>)stamp-h<<>>dnl>>,
--<<am_indx=1
--for am_file in <<$1>>; do
--  case " <<$>>CONFIG_HEADERS " in
--  *" <<$>>am_file "*<<)>>
--    echo timestamp > `echo <<$>>am_file | sed -e 's%:.*%%' -e 's%[^/]*$%%'`stamp-h$am_indx
--    ;;
--  esac
--  am_indx=`expr "<<$>>am_indx" + 1`
--done<<>>dnl>>)
--changequote([,]))])
-+# Check how to create a tarball.                            -*- Autoconf -*-
-+
-+# Copyright (C) 2004-2014 Free Software Foundation, Inc.
-+#
-+# This file is free software; the Free Software Foundation
-+# gives unlimited permission to copy and/or distribute it,
-+# with or without modifications, as long as this notice is preserved.
-+
-+# _AM_PROG_TAR(FORMAT)
-+# --------------------
-+# Check how to create a tarball in format FORMAT.
-+# FORMAT should be one of 'v7', 'ustar', or 'pax'.
-+#
-+# Substitute a variable $(am__tar) that is a command
-+# writing to stdout a FORMAT-tarball containing the directory
-+# $tardir.
-+#     tardir=directory && $(am__tar) > result.tar
-+#
-+# Substitute a variable $(am__untar) that extract such
-+# a tarball read from stdin.
-+#     $(am__untar) < result.tar
-+#
-+AC_DEFUN([_AM_PROG_TAR],
-+[# Always define AMTAR for backward compatibility.  Yes, it's still used
-+# in the wild :-(  We should find a proper way to deprecate it ...
-+AC_SUBST([AMTAR], ['$${TAR-tar}'])
-+
-+# We'll loop over all known methods to create a tar archive until one works.
-+_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none'
-+
-+m4_if([$1], [v7],
-+  [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'],
-+
-+  [m4_case([$1],
-+    [ustar],
-+     [# The POSIX 1988 'ustar' format is defined with fixed-size fields.
-+      # There is notably a 21 bits limit for the UID and the GID.  In fact,
-+      # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343
-+      # and bug#13588).
-+      am_max_uid=2097151 # 2^21 - 1
-+      am_max_gid=$am_max_uid
-+      # The $UID and $GID variables are not portable, so we need to resort
-+      # to the POSIX-mandated id(1) utility.  Errors in the 'id' calls
-+      # below are definitely unexpected, so allow the users to see them
-+      # (that is, avoid stderr redirection).
-+      am_uid=`id -u || echo unknown`
-+      am_gid=`id -g || echo unknown`
-+      AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format])
-+      if test $am_uid -le $am_max_uid; then
-+         AC_MSG_RESULT([yes])
-+      else
-+         AC_MSG_RESULT([no])
-+         _am_tools=none
-+      fi
-+      AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format])
-+      if test $am_gid -le $am_max_gid; then
-+         AC_MSG_RESULT([yes])
-+      else
-+        AC_MSG_RESULT([no])
-+        _am_tools=none
-+      fi],
-+
-+  [pax],
-+    [],
-+
-+  [m4_fatal([Unknown tar format])])
-+
-+  AC_MSG_CHECKING([how to create a $1 tar archive])
-+
-+  # Go ahead even if we have the value already cached.  We do so because we
-+  # need to set the values for the 'am__tar' and 'am__untar' variables.
-+  _am_tools=${am_cv_prog_tar_$1-$_am_tools}
-+
-+  for _am_tool in $_am_tools; do
-+    case $_am_tool in
-+    gnutar)
-+      for _am_tar in tar gnutar gtar; do
-+        AM_RUN_LOG([$_am_tar --version]) && break
-+      done
-+      am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"'
-+      am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"'
-+      am__untar="$_am_tar -xf -"
-+      ;;
-+    plaintar)
-+      # Must skip GNU tar: if it does not support --format= it doesn't create
-+      # ustar tarball either.
-+      (tar --version) >/dev/null 2>&1 && continue
-+      am__tar='tar chf - "$$tardir"'
-+      am__tar_='tar chf - "$tardir"'
-+      am__untar='tar xf -'
-+      ;;
-+    pax)
-+      am__tar='pax -L -x $1 -w "$$tardir"'
-+      am__tar_='pax -L -x $1 -w "$tardir"'
-+      am__untar='pax -r'
-+      ;;
-+    cpio)
-+      am__tar='find "$$tardir" -print | cpio -o -H $1 -L'
-+      am__tar_='find "$tardir" -print | cpio -o -H $1 -L'
-+      am__untar='cpio -i -H $1 -d'
-+      ;;
-+    none)
-+      am__tar=false
-+      am__tar_=false
-+      am__untar=false
-+      ;;
-+    esac
-+
-+    # If the value was cached, stop now.  We just wanted to have am__tar
-+    # and am__untar set.
-+    test -n "${am_cv_prog_tar_$1}" && break
-+
-+    # tar/untar a dummy directory, and stop if the command works.
-+    rm -rf conftest.dir
-+    mkdir conftest.dir
-+    echo GrepMe > conftest.dir/file
-+    AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar])
-+    rm -rf conftest.dir
-+    if test -s conftest.tar; then
-+      AM_RUN_LOG([$am__untar <conftest.tar])
-+      AM_RUN_LOG([cat conftest.dir/file])
-+      grep GrepMe conftest.dir/file >/dev/null 2>&1 && break
-+    fi
-+  done
-+  rm -rf conftest.dir
-+
-+  AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool])
-+  AC_MSG_RESULT([$am_cv_prog_tar_$1])])
-+
-+AC_SUBST([am__tar])
-+AC_SUBST([am__untar])
-+]) # _AM_PROG_TAR
- 
-+m4_include([acinclude.m4])
---- a/config.h.in
-+++ b/config.h.in
-@@ -1,26 +1,44 @@
--/* config.h.in.  Generated automatically from configure.in by autoheader.  */
-+/* config.h.in.  Generated from configure.in by autoheader.  */
- 
--/* Define if the X Window System is missing or not being used.  */
--#undef X_DISPLAY_MISSING
--
--/* Define if lex declares yytext as a char * by default, not a char[].  */
--#undef YYTEXT_POINTER
--
--/* Define if you have the X11 library (-lX11).  */
--#undef HAVE_LIBX11
--
--/* Define if you have the asound library (-lasound).  */
-+/* Define to 1 if you have the `asound' library (-lasound). */
- #undef HAVE_LIBASOUND
- 
--/* Define if you have the dl library (-ldl).  */
-+/* Define to 1 if you have the `dl' library (-ldl). */
- #undef HAVE_LIBDL
- 
--/* Define if you have the m library (-lm).  */
-+/* Define to 1 if you have the `m' library (-lm). */
- #undef HAVE_LIBM
- 
-+/* Define to 1 if you have the `X11' library (-lX11). */
-+#undef HAVE_LIBX11
-+
- /* Name of package */
- #undef PACKAGE
- 
-+/* Define to the address where bug reports for this package should be sent. */
-+#undef PACKAGE_BUGREPORT
-+
-+/* Define to the full name of this package. */
-+#undef PACKAGE_NAME
-+
-+/* Define to the full name and version of this package. */
-+#undef PACKAGE_STRING
-+
-+/* Define to the one symbol short name of this package. */
-+#undef PACKAGE_TARNAME
-+
-+/* Define to the home page for this package. */
-+#undef PACKAGE_URL
-+
-+/* Define to the version of this package. */
-+#undef PACKAGE_VERSION
-+
- /* Version number of package */
- #undef VERSION
- 
-+/* Define to 1 if the X Window System is missing or not being used. */
-+#undef X_DISPLAY_MISSING
-+
-+/* Define to 1 if `lex' declares `yytext' as a `char *' by default, not a
-+   `char[]'. */
-+#undef YYTEXT_POINTER
---- a/configure
-+++ b/configure
-@@ -1,42 +1,730 @@
- #! /bin/sh
--
- # Guess values for system-dependent variables and create Makefiles.
--# Generated automatically using autoconf version 2.13 
--# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
-+# Generated by GNU Autoconf 2.69 for tk707 0.7.21.
-+#
-+#
-+# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
-+#
- #
- # This configure script is free software; the Free Software Foundation
- # gives unlimited permission to copy, distribute and modify it.
-+## -------------------- ##
-+## M4sh Initialization. ##
-+## -------------------- ##
-+
-+# Be more Bourne compatible
-+DUALCASE=1; export DUALCASE # for MKS sh
-+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
-+  emulate sh
-+  NULLCMD=:
-+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
-+  # is contrary to our usage.  Disable this feature.
-+  alias -g '${1+"$@"}'='"$@"'
-+  setopt NO_GLOB_SUBST
-+else
-+  case `(set -o) 2>/dev/null` in #(
-+  *posix*) :
-+    set -o posix ;; #(
-+  *) :
-+     ;;
-+esac
-+fi
-+
-+
-+as_nl='
-+'
-+export as_nl
-+# Printing a long string crashes Solaris 7 /usr/bin/printf.
-+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-+# Prefer a ksh shell builtin over an external printf program on Solaris,
-+# but without wasting forks for bash or zsh.
-+if test -z "$BASH_VERSION$ZSH_VERSION" \
-+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
-+  as_echo='print -r --'
-+  as_echo_n='print -rn --'
-+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
-+  as_echo='printf %s\n'
-+  as_echo_n='printf %s'
-+else
-+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
-+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
-+    as_echo_n='/usr/ucb/echo -n'
-+  else
-+    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
-+    as_echo_n_body='eval
-+      arg=$1;
-+      case $arg in #(
-+      *"$as_nl"*)
-+	expr "X$arg" : "X\\(.*\\)$as_nl";
-+	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
-+      esac;
-+      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
-+    '
-+    export as_echo_n_body
-+    as_echo_n='sh -c $as_echo_n_body as_echo'
-+  fi
-+  export as_echo_body
-+  as_echo='sh -c $as_echo_body as_echo'
-+fi
-+
-+# The user is always right.
-+if test "${PATH_SEPARATOR+set}" != set; then
-+  PATH_SEPARATOR=:
-+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
-+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
-+      PATH_SEPARATOR=';'
-+  }
-+fi
-+
-+
-+# IFS
-+# We need space, tab and new line, in precisely that order.  Quoting is
-+# there to prevent editors from complaining about space-tab.
-+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-+# splitting by setting IFS to empty value.)
-+IFS=" ""	$as_nl"
-+
-+# Find who we are.  Look in the path if we contain no directory separator.
-+as_myself=
-+case $0 in #((
-+  *[\\/]* ) as_myself=$0 ;;
-+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
-+  done
-+IFS=$as_save_IFS
-+
-+     ;;
-+esac
-+# We did not find ourselves, most probably we were run as `sh COMMAND'
-+# in which case we are not to be found in the path.
-+if test "x$as_myself" = x; then
-+  as_myself=$0
-+fi
-+if test ! -f "$as_myself"; then
-+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
-+  exit 1
-+fi
-+
-+# Unset variables that we do not need and which cause bugs (e.g. in
-+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
-+# suppresses any "Segmentation fault" message there.  '((' could
-+# trigger a bug in pdksh 5.2.14.
-+for as_var in BASH_ENV ENV MAIL MAILPATH
-+do eval test x\${$as_var+set} = xset \
-+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-+done
-+PS1='$ '
-+PS2='> '
-+PS4='+ '
-+
-+# NLS nuisances.
-+LC_ALL=C
-+export LC_ALL
-+LANGUAGE=C
-+export LANGUAGE
-+
-+# CDPATH.
-+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-+
-+# Use a proper internal environment variable to ensure we don't fall
-+  # into an infinite loop, continuously re-executing ourselves.
-+  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
-+    _as_can_reexec=no; export _as_can_reexec;
-+    # We cannot yet assume a decent shell, so we have to provide a
-+# neutralization value for shells without unset; and this also
-+# works around shells that cannot unset nonexistent variables.
-+# Preserve -v and -x to the replacement shell.
-+BASH_ENV=/dev/null
-+ENV=/dev/null
-+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-+case $- in # ((((
-+  *v*x* | *x*v* ) as_opts=-vx ;;
-+  *v* ) as_opts=-v ;;
-+  *x* ) as_opts=-x ;;
-+  * ) as_opts= ;;
-+esac
-+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-+# Admittedly, this is quite paranoid, since all the known shells bail
-+# out after a failed `exec'.
-+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-+as_fn_exit 255
-+  fi
-+  # We don't want this to propagate to other subprocesses.
-+          { _as_can_reexec=; unset _as_can_reexec;}
-+if test "x$CONFIG_SHELL" = x; then
-+  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
-+  emulate sh
-+  NULLCMD=:
-+  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
-+  # is contrary to our usage.  Disable this feature.
-+  alias -g '\${1+\"\$@\"}'='\"\$@\"'
-+  setopt NO_GLOB_SUBST
-+else
-+  case \`(set -o) 2>/dev/null\` in #(
-+  *posix*) :
-+    set -o posix ;; #(
-+  *) :
-+     ;;
-+esac
-+fi
-+"
-+  as_required="as_fn_return () { (exit \$1); }
-+as_fn_success () { as_fn_return 0; }
-+as_fn_failure () { as_fn_return 1; }
-+as_fn_ret_success () { return 0; }
-+as_fn_ret_failure () { return 1; }
-+
-+exitcode=0
-+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
-+
-+else
-+  exitcode=1; echo positional parameters were not saved.
-+fi
-+test x\$exitcode = x0 || exit 1
-+test -x / || exit 1"
-+  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
-+  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
-+  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
-+  test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1"
-+  if (eval "$as_required") 2>/dev/null; then :
-+  as_have_required=yes
-+else
-+  as_have_required=no
-+fi
-+  if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
-+
-+else
-+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+as_found=false
-+for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+  as_found=:
-+  case $as_dir in #(
-+	 /*)
-+	   for as_base in sh bash ksh sh5; do
-+	     # Try only shells that exist, to save several forks.
-+	     as_shell=$as_dir/$as_base
-+	     if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
-+		    { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
-+  CONFIG_SHELL=$as_shell as_have_required=yes
-+		   if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
-+  break 2
-+fi
-+fi
-+	   done;;
-+       esac
-+  as_found=false
-+done
-+$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
-+	      { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
-+  CONFIG_SHELL=$SHELL as_have_required=yes
-+fi; }
-+IFS=$as_save_IFS
-+
-+
-+      if test "x$CONFIG_SHELL" != x; then :
-+  export CONFIG_SHELL
-+             # We cannot yet assume a decent shell, so we have to provide a
-+# neutralization value for shells without unset; and this also
-+# works around shells that cannot unset nonexistent variables.
-+# Preserve -v and -x to the replacement shell.
-+BASH_ENV=/dev/null
-+ENV=/dev/null
-+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-+case $- in # ((((
-+  *v*x* | *x*v* ) as_opts=-vx ;;
-+  *v* ) as_opts=-v ;;
-+  *x* ) as_opts=-x ;;
-+  * ) as_opts= ;;
-+esac
-+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-+# Admittedly, this is quite paranoid, since all the known shells bail
-+# out after a failed `exec'.
-+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-+exit 255
-+fi
-+
-+    if test x$as_have_required = xno; then :
-+  $as_echo "$0: This script requires a shell more modern than all"
-+  $as_echo "$0: the shells that I found on your system."
-+  if test x${ZSH_VERSION+set} = xset ; then
-+    $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
-+    $as_echo "$0: be upgraded to zsh 4.3.4 or later."
-+  else
-+    $as_echo "$0: Please tell bug-autoconf@gnu.org about your system,
-+$0: including any error possibly output before this
-+$0: message. Then install a modern shell, or manually run
-+$0: the script under such a shell if you do have one."
-+  fi
-+  exit 1
-+fi
-+fi
-+fi
-+SHELL=${CONFIG_SHELL-/bin/sh}
-+export SHELL
-+# Unset more variables known to interfere with behavior of common tools.
-+CLICOLOR_FORCE= GREP_OPTIONS=
-+unset CLICOLOR_FORCE GREP_OPTIONS
-+
-+## --------------------- ##
-+## M4sh Shell Functions. ##
-+## --------------------- ##
-+# as_fn_unset VAR
-+# ---------------
-+# Portably unset VAR.
-+as_fn_unset ()
-+{
-+  { eval $1=; unset $1;}
-+}
-+as_unset=as_fn_unset
-+
-+# as_fn_set_status STATUS
-+# -----------------------
-+# Set $? to STATUS, without forking.
-+as_fn_set_status ()
-+{
-+  return $1
-+} # as_fn_set_status
-+
-+# as_fn_exit STATUS
-+# -----------------
-+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-+as_fn_exit ()
-+{
-+  set +e
-+  as_fn_set_status $1
-+  exit $1
-+} # as_fn_exit
-+
-+# as_fn_mkdir_p
-+# -------------
-+# Create "$as_dir" as a directory, including parents if necessary.
-+as_fn_mkdir_p ()
-+{
-+
-+  case $as_dir in #(
-+  -*) as_dir=./$as_dir;;
-+  esac
-+  test -d "$as_dir" || eval $as_mkdir_p || {
-+    as_dirs=
-+    while :; do
-+      case $as_dir in #(
-+      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
-+      *) as_qdir=$as_dir;;
-+      esac
-+      as_dirs="'$as_qdir' $as_dirs"
-+      as_dir=`$as_dirname -- "$as_dir" ||
-+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$as_dir" : 'X\(//\)[^/]' \| \
-+	 X"$as_dir" : 'X\(//\)$' \| \
-+	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$as_dir" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+      test -d "$as_dir" && break
-+    done
-+    test -z "$as_dirs" || eval "mkdir $as_dirs"
-+  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-+
-+
-+} # as_fn_mkdir_p
-+
-+# as_fn_executable_p FILE
-+# -----------------------
-+# Test if FILE is an executable regular file.
-+as_fn_executable_p ()
-+{
-+  test -f "$1" && test -x "$1"
-+} # as_fn_executable_p
-+# as_fn_append VAR VALUE
-+# ----------------------
-+# Append the text in VALUE to the end of the definition contained in VAR. Take
-+# advantage of any shell optimizations that allow amortized linear growth over
-+# repeated appends, instead of the typical quadratic growth present in naive
-+# implementations.
-+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
-+  eval 'as_fn_append ()
-+  {
-+    eval $1+=\$2
-+  }'
-+else
-+  as_fn_append ()
-+  {
-+    eval $1=\$$1\$2
-+  }
-+fi # as_fn_append
-+
-+# as_fn_arith ARG...
-+# ------------------
-+# Perform arithmetic evaluation on the ARGs, and store the result in the
-+# global $as_val. Take advantage of shells that can avoid forks. The arguments
-+# must be portable across $(()) and expr.
-+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
-+  eval 'as_fn_arith ()
-+  {
-+    as_val=$(( $* ))
-+  }'
-+else
-+  as_fn_arith ()
-+  {
-+    as_val=`expr "$@" || test $? -eq 1`
-+  }
-+fi # as_fn_arith
-+
-+
-+# as_fn_error STATUS ERROR [LINENO LOG_FD]
-+# ----------------------------------------
-+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-+# script with STATUS, using 1 if that was 0.
-+as_fn_error ()
-+{
-+  as_status=$1; test $as_status -eq 0 && as_status=1
-+  if test "$4"; then
-+    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
-+  fi
-+  $as_echo "$as_me: error: $2" >&2
-+  as_fn_exit $as_status
-+} # as_fn_error
-+
-+if expr a : '\(a\)' >/dev/null 2>&1 &&
-+   test "X`expr 00001 : '.*\(...\)'`" = X001; then
-+  as_expr=expr
-+else
-+  as_expr=false
-+fi
-+
-+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
-+  as_basename=basename
-+else
-+  as_basename=false
-+fi
-+
-+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
-+  as_dirname=dirname
-+else
-+  as_dirname=false
-+fi
-+
-+as_me=`$as_basename -- "$0" ||
-+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
-+	 X"$0" : 'X\(//\)$' \| \
-+	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X/"$0" |
-+    sed '/^.*\/\([^/][^/]*\)\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\/\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\/\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+
-+# Avoid depending upon Character Ranges.
-+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-+as_cr_digits='0123456789'
-+as_cr_alnum=$as_cr_Letters$as_cr_digits
-+
-+
-+  as_lineno_1=$LINENO as_lineno_1a=$LINENO
-+  as_lineno_2=$LINENO as_lineno_2a=$LINENO
-+  eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
-+  test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
-+  # Blame Lee E. McMahon (1931-1989) for sed's syntax.  :-)
-+  sed -n '
-+    p
-+    /[$]LINENO/=
-+  ' <$as_myself |
-+    sed '
-+      s/[$]LINENO.*/&-/
-+      t lineno
-+      b
-+      :lineno
-+      N
-+      :loop
-+      s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
-+      t loop
-+      s/-\n.*//
-+    ' >$as_me.lineno &&
-+  chmod +x "$as_me.lineno" ||
-+    { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-+
-+  # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
-+  # already done that, so ensure we don't try to do so again and fall
-+  # in an infinite loop.  This has already happened in practice.
-+  _as_can_reexec=no; export _as_can_reexec
-+  # Don't try to exec as it changes $[0], causing all sort of problems
-+  # (the dirname of $[0] is not the place where we might find the
-+  # original and so on.  Autoconf is especially sensitive to this).
-+  . "./$as_me.lineno"
-+  # Exit status is that of the last command.
-+  exit
-+}
-+
-+ECHO_C= ECHO_N= ECHO_T=
-+case `echo -n x` in #(((((
-+-n*)
-+  case `echo 'xy\c'` in
-+  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
-+  xy)  ECHO_C='\c';;
-+  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
-+       ECHO_T='	';;
-+  esac;;
-+*)
-+  ECHO_N='-n';;
-+esac
-+
-+rm -f conf$$ conf$$.exe conf$$.file
-+if test -d conf$$.dir; then
-+  rm -f conf$$.dir/conf$$.file
-+else
-+  rm -f conf$$.dir
-+  mkdir conf$$.dir 2>/dev/null
-+fi
-+if (echo >conf$$.file) 2>/dev/null; then
-+  if ln -s conf$$.file conf$$ 2>/dev/null; then
-+    as_ln_s='ln -s'
-+    # ... but there are two gotchas:
-+    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
-+    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
-+    # In both cases, we have to default to `cp -pR'.
-+    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
-+      as_ln_s='cp -pR'
-+  elif ln conf$$.file conf$$ 2>/dev/null; then
-+    as_ln_s=ln
-+  else
-+    as_ln_s='cp -pR'
-+  fi
-+else
-+  as_ln_s='cp -pR'
-+fi
-+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-+rmdir conf$$.dir 2>/dev/null
-+
-+if mkdir -p . 2>/dev/null; then
-+  as_mkdir_p='mkdir -p "$as_dir"'
-+else
-+  test -d ./-p && rmdir ./-p
-+  as_mkdir_p=false
-+fi
-+
-+as_test_x='test -x'
-+as_executable_p=as_fn_executable_p
- 
--# Defaults:
--ac_help=
-+# Sed expression to map a string onto a valid CPP name.
-+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-+
-+# Sed expression to map a string onto a valid variable name.
-+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-+
-+
-+test -n "$DJDIR" || exec 7<&0 </dev/null
-+exec 6>&1
-+
-+# Name of the host.
-+# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
-+# so uname gets run too.
-+ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
-+
-+#
-+# Initializations.
-+#
- ac_default_prefix=/usr/local
--# Any additions from configure.in:
--ac_help="$ac_help
-- --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)"
--ac_help="$ac_help
-- --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)"
--ac_help="$ac_help
-- --disable-alsatest       Do not try to compile and run a test Alsa program"
--ac_help="$ac_help
--  --with-x                use the X Window System"
--ac_help="$ac_help
--  --with-tcl-includes=DIR Tcl include file path "
--ac_help="$ac_help
--  --with-tcl-libs=DIR     Tcl library file path "
--ac_help="$ac_help
--  --with-tk-includes=DIR  Tk include file path "
--ac_help="$ac_help
--  --with-tk-libs=DIR      Tk library file path "
-+ac_clean_files=
-+ac_config_libobj_dir=.
-+LIBOBJS=
-+cross_compiling=no
-+subdirs=
-+MFLAGS=
-+MAKEFLAGS=
-+
-+# Identity of this package.
-+PACKAGE_NAME='tk707'
-+PACKAGE_TARNAME='tk707'
-+PACKAGE_VERSION='0.7.21'
-+PACKAGE_STRING='tk707 0.7.21'
-+PACKAGE_BUGREPORT=''
-+PACKAGE_URL=''
-+
-+ac_unique_file="README"
-+ac_subst_vars='am__EXEEXT_FALSE
-+am__EXEEXT_TRUE
-+LTLIBOBJS
-+LIBOBJS
-+TCLTK_LIBS
-+TCLTK_LDFLAGS
-+TCLTK_CFLAGS
-+X_EXTRA_LIBS
-+X_LIBS
-+X_PRE_LIBS
-+X_CFLAGS
-+CPP
-+XMKMF
-+ALSA_LIBS
-+ALSA_CFLAGS
-+MIDIDUMP
-+LAME
-+TIMIDITY
-+FIG2DEV
-+TEXI2DVI
-+TEXI2HTML
-+LEXLIB
-+LEX_OUTPUT_ROOT
-+LEX
-+am__fastdepCC_FALSE
-+am__fastdepCC_TRUE
-+CCDEPMODE
-+am__nodep
-+AMDEPBACKSLASH
-+AMDEP_FALSE
-+AMDEP_TRUE
-+am__quote
-+am__include
-+DEPDIR
-+OBJEXT
-+EXEEXT
-+ac_ct_CC
-+CPPFLAGS
-+LDFLAGS
-+CFLAGS
-+CC
-+AM_BACKSLASH
-+AM_DEFAULT_VERBOSITY
-+AM_DEFAULT_V
-+AM_V
-+am__untar
-+am__tar
-+AMTAR
-+am__leading_dot
-+SET_MAKE
-+AWK
-+mkdir_p
-+MKDIR_P
-+INSTALL_STRIP_PROGRAM
-+STRIP
-+install_sh
-+MAKEINFO
-+AUTOHEADER
-+AUTOMAKE
-+AUTOCONF
-+ACLOCAL
-+VERSION
-+PACKAGE
-+CYGPATH_W
-+am__isrc
-+INSTALL_DATA
-+INSTALL_SCRIPT
-+INSTALL_PROGRAM
-+target_alias
-+host_alias
-+build_alias
-+LIBS
-+ECHO_T
-+ECHO_N
-+ECHO_C
-+DEFS
-+mandir
-+localedir
-+libdir
-+psdir
-+pdfdir
-+dvidir
-+htmldir
-+infodir
-+docdir
-+oldincludedir
-+includedir
-+runstatedir
-+localstatedir
-+sharedstatedir
-+sysconfdir
-+datadir
-+datarootdir
-+libexecdir
-+sbindir
-+bindir
-+program_transform_name
-+prefix
-+exec_prefix
-+PACKAGE_URL
-+PACKAGE_BUGREPORT
-+PACKAGE_STRING
-+PACKAGE_VERSION
-+PACKAGE_TARNAME
-+PACKAGE_NAME
-+PATH_SEPARATOR
-+SHELL'
-+ac_subst_files=''
-+ac_user_opts='
-+enable_option_checking
-+enable_silent_rules
-+enable_dependency_tracking
-+with_alsa_prefix
-+with_alsa_inc_prefix
-+enable_alsatest
-+with_x
-+with_tcl_includes
-+with_tcl_libs
-+with_tk_includes
-+with_tk_libs
-+'
-+      ac_precious_vars='build_alias
-+host_alias
-+target_alias
-+CC
-+CFLAGS
-+LDFLAGS
-+LIBS
-+CPPFLAGS
-+XMKMF
-+CPP'
-+
- 
- # Initialize some variables set by options.
-+ac_init_help=
-+ac_init_version=false
-+ac_unrecognized_opts=
-+ac_unrecognized_sep=
- # The variables have the same names as the options, with
- # dashes changed to underlines.
--build=NONE
--cache_file=./config.cache
-+cache_file=/dev/null
- exec_prefix=NONE
--host=NONE
- no_create=
--nonopt=NONE
- no_recursion=
- prefix=NONE
- program_prefix=NONE
-@@ -45,94 +733,133 @@
- silent=
- site=
- srcdir=
--target=NONE
- verbose=
- x_includes=NONE
- x_libraries=NONE
-+
-+# Installation directory options.
-+# These are left unexpanded so users can "make install exec_prefix=/foo"
-+# and all the variables that are supposed to be based on exec_prefix
-+# by default will actually change.
-+# Use braces instead of parens because sh, perl, etc. also accept them.
-+# (The list follows the same order as the GNU Coding Standards.)
- bindir='${exec_prefix}/bin'
- sbindir='${exec_prefix}/sbin'
- libexecdir='${exec_prefix}/libexec'
--datadir='${prefix}/share'
-+datarootdir='${prefix}/share'
-+datadir='${datarootdir}'
- sysconfdir='${prefix}/etc'
- sharedstatedir='${prefix}/com'
- localstatedir='${prefix}/var'
--libdir='${exec_prefix}/lib'
-+runstatedir='${localstatedir}/run'
- includedir='${prefix}/include'
- oldincludedir='/usr/include'
--infodir='${prefix}/info'
--mandir='${prefix}/man'
--
--# Initialize some other variables.
--subdirs=
--MFLAGS= MAKEFLAGS=
--SHELL=${CONFIG_SHELL-/bin/sh}
--# Maximum number of lines to put in a shell here document.
--ac_max_here_lines=12
-+docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-+infodir='${datarootdir}/info'
-+htmldir='${docdir}'
-+dvidir='${docdir}'
-+pdfdir='${docdir}'
-+psdir='${docdir}'
-+libdir='${exec_prefix}/lib'
-+localedir='${datarootdir}/locale'
-+mandir='${datarootdir}/man'
- 
- ac_prev=
-+ac_dashdash=
- for ac_option
- do
--
-   # If the previous option needs an argument, assign it.
-   if test -n "$ac_prev"; then
--    eval "$ac_prev=\$ac_option"
-+    eval $ac_prev=\$ac_option
-     ac_prev=
-     continue
-   fi
- 
--  case "$ac_option" in
--  -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
--  *) ac_optarg= ;;
-+  case $ac_option in
-+  *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
-+  *=)   ac_optarg= ;;
-+  *)    ac_optarg=yes ;;
-   esac
- 
-   # Accept the important Cygnus configure options, so we can diagnose typos.
- 
--  case "$ac_option" in
-+  case $ac_dashdash$ac_option in
-+  --)
-+    ac_dashdash=yes ;;
- 
-   -bindir | --bindir | --bindi | --bind | --bin | --bi)
-     ac_prev=bindir ;;
-   -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
--    bindir="$ac_optarg" ;;
-+    bindir=$ac_optarg ;;
- 
-   -build | --build | --buil | --bui | --bu)
--    ac_prev=build ;;
-+    ac_prev=build_alias ;;
-   -build=* | --build=* | --buil=* | --bui=* | --bu=*)
--    build="$ac_optarg" ;;
-+    build_alias=$ac_optarg ;;
- 
-   -cache-file | --cache-file | --cache-fil | --cache-fi \
-   | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
-     ac_prev=cache_file ;;
-   -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
-   | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
--    cache_file="$ac_optarg" ;;
-+    cache_file=$ac_optarg ;;
-+
-+  --config-cache | -C)
-+    cache_file=config.cache ;;
- 
--  -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
-+  -datadir | --datadir | --datadi | --datad)
-     ac_prev=datadir ;;
--  -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
--  | --da=*)
--    datadir="$ac_optarg" ;;
-+  -datadir=* | --datadir=* | --datadi=* | --datad=*)
-+    datadir=$ac_optarg ;;
-+
-+  -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
-+  | --dataroo | --dataro | --datar)
-+    ac_prev=datarootdir ;;
-+  -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
-+  | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
-+    datarootdir=$ac_optarg ;;
- 
-   -disable-* | --disable-*)
--    ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
-+    ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
-     # Reject names that are not valid shell variable names.
--    if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
--      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
--    fi
--    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
--    eval "enable_${ac_feature}=no" ;;
-+    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-+      as_fn_error $? "invalid feature name: $ac_useropt"
-+    ac_useropt_orig=$ac_useropt
-+    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-+    case $ac_user_opts in
-+      *"
-+"enable_$ac_useropt"
-+"*) ;;
-+      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
-+	 ac_unrecognized_sep=', ';;
-+    esac
-+    eval enable_$ac_useropt=no ;;
-+
-+  -docdir | --docdir | --docdi | --doc | --do)
-+    ac_prev=docdir ;;
-+  -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
-+    docdir=$ac_optarg ;;
-+
-+  -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
-+    ac_prev=dvidir ;;
-+  -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
-+    dvidir=$ac_optarg ;;
- 
-   -enable-* | --enable-*)
--    ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
-+    ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
-     # Reject names that are not valid shell variable names.
--    if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
--      { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
--    fi
--    ac_feature=`echo $ac_feature| sed 's/-/_/g'`
--    case "$ac_option" in
--      *=*) ;;
--      *) ac_optarg=yes ;;
-+    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-+      as_fn_error $? "invalid feature name: $ac_useropt"
-+    ac_useropt_orig=$ac_useropt
-+    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-+    case $ac_user_opts in
-+      *"
-+"enable_$ac_useropt"
-+"*) ;;
-+      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
-+	 ac_unrecognized_sep=', ';;
-     esac
--    eval "enable_${ac_feature}='$ac_optarg'" ;;
-+    eval enable_$ac_useropt=\$ac_optarg ;;
- 
-   -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
-   | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
-@@ -141,116 +868,77 @@
-   -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
-   | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
-   | --exec=* | --exe=* | --ex=*)
--    exec_prefix="$ac_optarg" ;;
-+    exec_prefix=$ac_optarg ;;
- 
-   -gas | --gas | --ga | --g)
-     # Obsolete; use --with-gas.
-     with_gas=yes ;;
- 
--  -help | --help | --hel | --he)
--    # Omit some internal or obsolete options to make the list less imposing.
--    # This message is too long to be a string in the A/UX 3.1 sh.
--    cat << EOF
--Usage: configure [options] [host]
--Options: [defaults in brackets after descriptions]
--Configuration:
--  --cache-file=FILE       cache test results in FILE
--  --help                  print this message
--  --no-create             do not create output files
--  --quiet, --silent       do not print \`checking...' messages
--  --version               print the version of autoconf that created configure
--Directory and file names:
--  --prefix=PREFIX         install architecture-independent files in PREFIX
--                          [$ac_default_prefix]
--  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
--                          [same as prefix]
--  --bindir=DIR            user executables in DIR [EPREFIX/bin]
--  --sbindir=DIR           system admin executables in DIR [EPREFIX/sbin]
--  --libexecdir=DIR        program executables in DIR [EPREFIX/libexec]
--  --datadir=DIR           read-only architecture-independent data in DIR
--                          [PREFIX/share]
--  --sysconfdir=DIR        read-only single-machine data in DIR [PREFIX/etc]
--  --sharedstatedir=DIR    modifiable architecture-independent data in DIR
--                          [PREFIX/com]
--  --localstatedir=DIR     modifiable single-machine data in DIR [PREFIX/var]
--  --libdir=DIR            object code libraries in DIR [EPREFIX/lib]
--  --includedir=DIR        C header files in DIR [PREFIX/include]
--  --oldincludedir=DIR     C header files for non-gcc in DIR [/usr/include]
--  --infodir=DIR           info documentation in DIR [PREFIX/info]
--  --mandir=DIR            man documentation in DIR [PREFIX/man]
--  --srcdir=DIR            find the sources in DIR [configure dir or ..]
--  --program-prefix=PREFIX prepend PREFIX to installed program names
--  --program-suffix=SUFFIX append SUFFIX to installed program names
--  --program-transform-name=PROGRAM
--                          run sed PROGRAM on installed program names
--EOF
--    cat << EOF
--Host type:
--  --build=BUILD           configure for building on BUILD [BUILD=HOST]
--  --host=HOST             configure for HOST [guessed]
--  --target=TARGET         configure for TARGET [TARGET=HOST]
--Features and packages:
--  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
--  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
--  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
--  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
--  --x-includes=DIR        X include files are in DIR
--  --x-libraries=DIR       X library files are in DIR
--EOF
--    if test -n "$ac_help"; then
--      echo "--enable and --with options recognized:$ac_help"
--    fi
--    exit 0 ;;
-+  -help | --help | --hel | --he | -h)
-+    ac_init_help=long ;;
-+  -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
-+    ac_init_help=recursive ;;
-+  -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
-+    ac_init_help=short ;;
- 
-   -host | --host | --hos | --ho)
--    ac_prev=host ;;
-+    ac_prev=host_alias ;;
-   -host=* | --host=* | --hos=* | --ho=*)
--    host="$ac_optarg" ;;
-+    host_alias=$ac_optarg ;;
-+
-+  -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
-+    ac_prev=htmldir ;;
-+  -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
-+  | --ht=*)
-+    htmldir=$ac_optarg ;;
- 
-   -includedir | --includedir | --includedi | --included | --include \
-   | --includ | --inclu | --incl | --inc)
-     ac_prev=includedir ;;
-   -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
-   | --includ=* | --inclu=* | --incl=* | --inc=*)
--    includedir="$ac_optarg" ;;
-+    includedir=$ac_optarg ;;
- 
-   -infodir | --infodir | --infodi | --infod | --info | --inf)
-     ac_prev=infodir ;;
-   -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
--    infodir="$ac_optarg" ;;
-+    infodir=$ac_optarg ;;
- 
-   -libdir | --libdir | --libdi | --libd)
-     ac_prev=libdir ;;
-   -libdir=* | --libdir=* | --libdi=* | --libd=*)
--    libdir="$ac_optarg" ;;
-+    libdir=$ac_optarg ;;
- 
-   -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
-   | --libexe | --libex | --libe)
-     ac_prev=libexecdir ;;
-   -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
-   | --libexe=* | --libex=* | --libe=*)
--    libexecdir="$ac_optarg" ;;
-+    libexecdir=$ac_optarg ;;
-+
-+  -localedir | --localedir | --localedi | --localed | --locale)
-+    ac_prev=localedir ;;
-+  -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
-+    localedir=$ac_optarg ;;
- 
-   -localstatedir | --localstatedir | --localstatedi | --localstated \
--  | --localstate | --localstat | --localsta | --localst \
--  | --locals | --local | --loca | --loc | --lo)
-+  | --localstate | --localstat | --localsta | --localst | --locals)
-     ac_prev=localstatedir ;;
-   -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
--  | --localstate=* | --localstat=* | --localsta=* | --localst=* \
--  | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
--    localstatedir="$ac_optarg" ;;
-+  | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
-+    localstatedir=$ac_optarg ;;
- 
-   -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
-     ac_prev=mandir ;;
-   -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
--    mandir="$ac_optarg" ;;
-+    mandir=$ac_optarg ;;
- 
-   -nfp | --nfp | --nf)
-     # Obsolete; use --without-fp.
-     with_fp=no ;;
- 
-   -no-create | --no-create | --no-creat | --no-crea | --no-cre \
--  | --no-cr | --no-c)
-+  | --no-cr | --no-c | -n)
-     no_create=yes ;;
- 
-   -no-recursion | --no-recursion | --no-recursio | --no-recursi \
-@@ -264,26 +952,26 @@
-   -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
-   | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
-   | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
--    oldincludedir="$ac_optarg" ;;
-+    oldincludedir=$ac_optarg ;;
- 
-   -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
-     ac_prev=prefix ;;
-   -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
--    prefix="$ac_optarg" ;;
-+    prefix=$ac_optarg ;;
- 
-   -program-prefix | --program-prefix | --program-prefi | --program-pref \
-   | --program-pre | --program-pr | --program-p)
-     ac_prev=program_prefix ;;
-   -program-prefix=* | --program-prefix=* | --program-prefi=* \
-   | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
--    program_prefix="$ac_optarg" ;;
-+    program_prefix=$ac_optarg ;;
- 
-   -program-suffix | --program-suffix | --program-suffi | --program-suff \
-   | --program-suf | --program-su | --program-s)
-     ac_prev=program_suffix ;;
-   -program-suffix=* | --program-suffix=* | --program-suffi=* \
-   | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
--    program_suffix="$ac_optarg" ;;
-+    program_suffix=$ac_optarg ;;
- 
-   -program-transform-name | --program-transform-name \
-   | --program-transform-nam | --program-transform-na \
-@@ -300,17 +988,36 @@
-   | --program-transfo=* | --program-transf=* \
-   | --program-trans=* | --program-tran=* \
-   | --progr-tra=* | --program-tr=* | --program-t=*)
--    program_transform_name="$ac_optarg" ;;
-+    program_transform_name=$ac_optarg ;;
-+
-+  -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
-+    ac_prev=pdfdir ;;
-+  -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
-+    pdfdir=$ac_optarg ;;
-+
-+  -psdir | --psdir | --psdi | --psd | --ps)
-+    ac_prev=psdir ;;
-+  -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
-+    psdir=$ac_optarg ;;
- 
-   -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-   | -silent | --silent | --silen | --sile | --sil)
-     silent=yes ;;
- 
-+  -runstatedir | --runstatedir | --runstatedi | --runstated \
-+  | --runstate | --runstat | --runsta | --runst | --runs \
-+  | --run | --ru | --r)
-+    ac_prev=runstatedir ;;
-+  -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \
-+  | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \
-+  | --run=* | --ru=* | --r=*)
-+    runstatedir=$ac_optarg ;;
-+
-   -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
-     ac_prev=sbindir ;;
-   -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
-   | --sbi=* | --sb=*)
--    sbindir="$ac_optarg" ;;
-+    sbindir=$ac_optarg ;;
- 
-   -sharedstatedir | --sharedstatedir | --sharedstatedi \
-   | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
-@@ -321,58 +1028,67 @@
-   | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
-   | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
-   | --sha=* | --sh=*)
--    sharedstatedir="$ac_optarg" ;;
-+    sharedstatedir=$ac_optarg ;;
- 
-   -site | --site | --sit)
-     ac_prev=site ;;
-   -site=* | --site=* | --sit=*)
--    site="$ac_optarg" ;;
-+    site=$ac_optarg ;;
- 
-   -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
-     ac_prev=srcdir ;;
-   -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
--    srcdir="$ac_optarg" ;;
-+    srcdir=$ac_optarg ;;
- 
-   -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
-   | --syscon | --sysco | --sysc | --sys | --sy)
-     ac_prev=sysconfdir ;;
-   -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
-   | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
--    sysconfdir="$ac_optarg" ;;
-+    sysconfdir=$ac_optarg ;;
- 
-   -target | --target | --targe | --targ | --tar | --ta | --t)
--    ac_prev=target ;;
-+    ac_prev=target_alias ;;
-   -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
--    target="$ac_optarg" ;;
-+    target_alias=$ac_optarg ;;
- 
-   -v | -verbose | --verbose | --verbos | --verbo | --verb)
-     verbose=yes ;;
- 
--  -version | --version | --versio | --versi | --vers)
--    echo "configure generated by autoconf version 2.13"
--    exit 0 ;;
-+  -version | --version | --versio | --versi | --vers | -V)
-+    ac_init_version=: ;;
- 
-   -with-* | --with-*)
--    ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
-+    ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
-     # Reject names that are not valid shell variable names.
--    if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
--      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
--    fi
--    ac_package=`echo $ac_package| sed 's/-/_/g'`
--    case "$ac_option" in
--      *=*) ;;
--      *) ac_optarg=yes ;;
-+    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-+      as_fn_error $? "invalid package name: $ac_useropt"
-+    ac_useropt_orig=$ac_useropt
-+    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-+    case $ac_user_opts in
-+      *"
-+"with_$ac_useropt"
-+"*) ;;
-+      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
-+	 ac_unrecognized_sep=', ';;
-     esac
--    eval "with_${ac_package}='$ac_optarg'" ;;
-+    eval with_$ac_useropt=\$ac_optarg ;;
- 
-   -without-* | --without-*)
--    ac_package=`echo $ac_option|sed -e 's/-*without-//'`
-+    ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
-     # Reject names that are not valid shell variable names.
--    if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
--      { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
--    fi
--    ac_package=`echo $ac_package| sed 's/-/_/g'`
--    eval "with_${ac_package}=no" ;;
-+    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-+      as_fn_error $? "invalid package name: $ac_useropt"
-+    ac_useropt_orig=$ac_useropt
-+    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-+    case $ac_user_opts in
-+      *"
-+"with_$ac_useropt"
-+"*) ;;
-+      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
-+	 ac_unrecognized_sep=', ';;
-+    esac
-+    eval with_$ac_useropt=no ;;
- 
-   --x)
-     # Obsolete; use --with-x.
-@@ -383,199 +1099,913 @@
-     ac_prev=x_includes ;;
-   -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
-   | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
--    x_includes="$ac_optarg" ;;
-+    x_includes=$ac_optarg ;;
- 
-   -x-libraries | --x-libraries | --x-librarie | --x-librari \
-   | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
-     ac_prev=x_libraries ;;
-   -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
-   | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
--    x_libraries="$ac_optarg" ;;
-+    x_libraries=$ac_optarg ;;
- 
--  -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
-+  -*) as_fn_error $? "unrecognized option: \`$ac_option'
-+Try \`$0 --help' for more information"
-     ;;
- 
-+  *=*)
-+    ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
-+    # Reject names that are not valid shell variable names.
-+    case $ac_envvar in #(
-+      '' | [0-9]* | *[!_$as_cr_alnum]* )
-+      as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
-+    esac
-+    eval $ac_envvar=\$ac_optarg
-+    export $ac_envvar ;;
-+
-   *)
--    if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
--      echo "configure: warning: $ac_option: invalid host type" 1>&2
--    fi
--    if test "x$nonopt" != xNONE; then
--      { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
--    fi
--    nonopt="$ac_option"
-+    # FIXME: should be removed in autoconf 3.0.
-+    $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
-+    expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
-+      $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
-+    : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
-     ;;
- 
-   esac
- done
- 
- if test -n "$ac_prev"; then
--  { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
-+  ac_option=--`echo $ac_prev | sed 's/_/-/g'`
-+  as_fn_error $? "missing argument to $ac_option"
- fi
- 
--trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
--
--# File descriptor usage:
--# 0 standard input
--# 1 file creation
--# 2 errors and warnings
--# 3 some systems may open it to /dev/tty
--# 4 used on the Kubota Titan
--# 6 checking for... messages and results
--# 5 compiler messages saved in config.log
--if test "$silent" = yes; then
--  exec 6>/dev/null
--else
--  exec 6>&1
-+if test -n "$ac_unrecognized_opts"; then
-+  case $enable_option_checking in
-+    no) ;;
-+    fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
-+    *)     $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
-+  esac
- fi
--exec 5>./config.log
- 
--echo "\
--This file contains any messages produced by compilers while
--running configure, to aid debugging if configure makes a mistake.
--" 1>&5
--
--# Strip out --no-create and --no-recursion so they do not pile up.
--# Also quote any args containing shell metacharacters.
--ac_configure_args=
--for ac_arg
-+# Check all directory arguments for consistency.
-+for ac_var in	exec_prefix prefix bindir sbindir libexecdir datarootdir \
-+		datadir sysconfdir sharedstatedir localstatedir includedir \
-+		oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
-+		libdir localedir mandir runstatedir
- do
--  case "$ac_arg" in
--  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
--  | --no-cr | --no-c) ;;
--  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
--  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
--  *" "*|*"	"*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
--  ac_configure_args="$ac_configure_args '$ac_arg'" ;;
--  *) ac_configure_args="$ac_configure_args $ac_arg" ;;
-+  eval ac_val=\$$ac_var
-+  # Remove trailing slashes.
-+  case $ac_val in
-+    */ )
-+      ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
-+      eval $ac_var=\$ac_val;;
-+  esac
-+  # Be sure to have absolute directory names.
-+  case $ac_val in
-+    [\\/$]* | ?:[\\/]* )  continue;;
-+    NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
-   esac
-+  as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
- done
- 
--# NLS nuisances.
--# Only set these to C if already set.  These must not be set unconditionally
--# because not all systems understand e.g. LANG=C (notably SCO).
--# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'!
--# Non-C LC_CTYPE values break the ctype check.
--if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
--if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
--if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi
--if test "${LC_CTYPE+set}"    = set; then LC_CTYPE=C;    export LC_CTYPE;    fi
-+# There might be people who depend on the old broken behavior: `$host'
-+# used to hold the argument of --host etc.
-+# FIXME: To remove some day.
-+build=$build_alias
-+host=$host_alias
-+target=$target_alias
-+
-+# FIXME: To remove some day.
-+if test "x$host_alias" != x; then
-+  if test "x$build_alias" = x; then
-+    cross_compiling=maybe
-+  elif test "x$build_alias" != "x$host_alias"; then
-+    cross_compiling=yes
-+  fi
-+fi
-+
-+ac_tool_prefix=
-+test -n "$host_alias" && ac_tool_prefix=$host_alias-
-+
-+test "$silent" = yes && exec 6>/dev/null
-+
-+
-+ac_pwd=`pwd` && test -n "$ac_pwd" &&
-+ac_ls_di=`ls -di .` &&
-+ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
-+  as_fn_error $? "working directory cannot be determined"
-+test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
-+  as_fn_error $? "pwd does not report name of working directory"
- 
--# confdefs.h avoids OS command line length limits that DEFS can exceed.
--rm -rf conftest* confdefs.h
--# AIX cpp loses on an empty file, so make sure it contains at least a newline.
--echo > confdefs.h
--
--# A filename unique to this package, relative to the directory that
--# configure is in, which we can look for to find out if srcdir is correct.
--ac_unique_file=README
- 
- # Find the source files, if location was not specified.
- if test -z "$srcdir"; then
-   ac_srcdir_defaulted=yes
--  # Try the directory containing this script, then its parent.
--  ac_prog=$0
--  ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
--  test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
-+  # Try the directory containing this script, then the parent directory.
-+  ac_confdir=`$as_dirname -- "$as_myself" ||
-+$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$as_myself" : 'X\(//\)[^/]' \| \
-+	 X"$as_myself" : 'X\(//\)$' \| \
-+	 X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$as_myself" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-   srcdir=$ac_confdir
--  if test ! -r $srcdir/$ac_unique_file; then
-+  if test ! -r "$srcdir/$ac_unique_file"; then
-     srcdir=..
-   fi
- else
-   ac_srcdir_defaulted=no
- fi
--if test ! -r $srcdir/$ac_unique_file; then
--  if test "$ac_srcdir_defaulted" = yes; then
--    { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
--  else
--    { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
--  fi
-+if test ! -r "$srcdir/$ac_unique_file"; then
-+  test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
-+  as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
-+fi
-+ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
-+ac_abs_confdir=`(
-+	cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
-+	pwd)`
-+# When building in place, set srcdir=.
-+if test "$ac_abs_confdir" = "$ac_pwd"; then
-+  srcdir=.
-+fi
-+# Remove unnecessary trailing slashes from srcdir.
-+# Double slashes in file names in object file debugging info
-+# mess up M-x gdb in Emacs.
-+case $srcdir in
-+*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
-+esac
-+for ac_var in $ac_precious_vars; do
-+  eval ac_env_${ac_var}_set=\${${ac_var}+set}
-+  eval ac_env_${ac_var}_value=\$${ac_var}
-+  eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
-+  eval ac_cv_env_${ac_var}_value=\$${ac_var}
-+done
-+
-+#
-+# Report the --help message.
-+#
-+if test "$ac_init_help" = "long"; then
-+  # Omit some internal or obsolete options to make the list less imposing.
-+  # This message is too long to be a string in the A/UX 3.1 sh.
-+  cat <<_ACEOF
-+\`configure' configures tk707 0.7.21 to adapt to many kinds of systems.
-+
-+Usage: $0 [OPTION]... [VAR=VALUE]...
-+
-+To assign environment variables (e.g., CC, CFLAGS...), specify them as
-+VAR=VALUE.  See below for descriptions of some of the useful variables.
-+
-+Defaults for the options are specified in brackets.
-+
-+Configuration:
-+  -h, --help              display this help and exit
-+      --help=short        display options specific to this package
-+      --help=recursive    display the short help of all the included packages
-+  -V, --version           display version information and exit
-+  -q, --quiet, --silent   do not print \`checking ...' messages
-+      --cache-file=FILE   cache test results in FILE [disabled]
-+  -C, --config-cache      alias for \`--cache-file=config.cache'
-+  -n, --no-create         do not create output files
-+      --srcdir=DIR        find the sources in DIR [configure dir or \`..']
-+
-+Installation directories:
-+  --prefix=PREFIX         install architecture-independent files in PREFIX
-+                          [$ac_default_prefix]
-+  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
-+                          [PREFIX]
-+
-+By default, \`make install' will install all the files in
-+\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc.  You can specify
-+an installation prefix other than \`$ac_default_prefix' using \`--prefix',
-+for instance \`--prefix=\$HOME'.
-+
-+For better control, use the options below.
-+
-+Fine tuning of the installation directories:
-+  --bindir=DIR            user executables [EPREFIX/bin]
-+  --sbindir=DIR           system admin executables [EPREFIX/sbin]
-+  --libexecdir=DIR        program executables [EPREFIX/libexec]
-+  --sysconfdir=DIR        read-only single-machine data [PREFIX/etc]
-+  --sharedstatedir=DIR    modifiable architecture-independent data [PREFIX/com]
-+  --localstatedir=DIR     modifiable single-machine data [PREFIX/var]
-+  --runstatedir=DIR       modifiable per-process data [LOCALSTATEDIR/run]
-+  --libdir=DIR            object code libraries [EPREFIX/lib]
-+  --includedir=DIR        C header files [PREFIX/include]
-+  --oldincludedir=DIR     C header files for non-gcc [/usr/include]
-+  --datarootdir=DIR       read-only arch.-independent data root [PREFIX/share]
-+  --datadir=DIR           read-only architecture-independent data [DATAROOTDIR]
-+  --infodir=DIR           info documentation [DATAROOTDIR/info]
-+  --localedir=DIR         locale-dependent data [DATAROOTDIR/locale]
-+  --mandir=DIR            man documentation [DATAROOTDIR/man]
-+  --docdir=DIR            documentation root [DATAROOTDIR/doc/tk707]
-+  --htmldir=DIR           html documentation [DOCDIR]
-+  --dvidir=DIR            dvi documentation [DOCDIR]
-+  --pdfdir=DIR            pdf documentation [DOCDIR]
-+  --psdir=DIR             ps documentation [DOCDIR]
-+_ACEOF
-+
-+  cat <<\_ACEOF
-+
-+Program names:
-+  --program-prefix=PREFIX            prepend PREFIX to installed program names
-+  --program-suffix=SUFFIX            append SUFFIX to installed program names
-+  --program-transform-name=PROGRAM   run sed PROGRAM on installed program names
-+
-+X features:
-+  --x-includes=DIR    X include files are in DIR
-+  --x-libraries=DIR   X library files are in DIR
-+_ACEOF
-+fi
-+
-+if test -n "$ac_init_help"; then
-+  case $ac_init_help in
-+     short | recursive ) echo "Configuration of tk707 0.7.21:";;
-+   esac
-+  cat <<\_ACEOF
-+
-+Optional Features:
-+  --disable-option-checking  ignore unrecognized --enable/--with options
-+  --disable-FEATURE       do not include FEATURE (same as --enable-FEATURE=no)
-+  --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
-+  --enable-silent-rules   less verbose build output (undo: "make V=1")
-+  --disable-silent-rules  verbose build output (undo: "make V=0")
-+  --enable-dependency-tracking
-+                          do not reject slow dependency extractors
-+  --disable-dependency-tracking
-+                          speeds up one-time build
-+  --disable-alsatest      Do not try to compile and run a test Alsa program
-+
-+Optional Packages:
-+  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
-+  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
-+  --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)
-+  --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)
-+  --with-x                use the X Window System
-+  --with-tcl-includes=DIR Tcl include file path
-+  --with-tcl-libs=DIR     Tcl library file path
-+  --with-tk-includes=DIR  Tk include file path
-+  --with-tk-libs=DIR      Tk library file path
-+
-+Some influential environment variables:
-+  CC          C compiler command
-+  CFLAGS      C compiler flags
-+  LDFLAGS     linker flags, e.g. -L<lib dir> if you have libraries in a
-+              nonstandard directory <lib dir>
-+  LIBS        libraries to pass to the linker, e.g. -l<library>
-+  CPPFLAGS    (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
-+              you have headers in a nonstandard directory <include dir>
-+  XMKMF       Path to xmkmf, Makefile generator for X Window System
-+  CPP         C preprocessor
-+
-+Use these variables to override the choices made by `configure' or to help
-+it to find libraries and programs with nonstandard names/locations.
-+
-+Report bugs to the package provider.
-+_ACEOF
-+ac_status=$?
-+fi
-+
-+if test "$ac_init_help" = "recursive"; then
-+  # If there are subdirs, report their specific --help.
-+  for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
-+    test -d "$ac_dir" ||
-+      { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
-+      continue
-+    ac_builddir=.
-+
-+case "$ac_dir" in
-+.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-+*)
-+  ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
-+  # A ".." for each directory in $ac_dir_suffix.
-+  ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
-+  case $ac_top_builddir_sub in
-+  "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
-+  *)  ac_top_build_prefix=$ac_top_builddir_sub/ ;;
-+  esac ;;
-+esac
-+ac_abs_top_builddir=$ac_pwd
-+ac_abs_builddir=$ac_pwd$ac_dir_suffix
-+# for backward compatibility:
-+ac_top_builddir=$ac_top_build_prefix
-+
-+case $srcdir in
-+  .)  # We are building in place.
-+    ac_srcdir=.
-+    ac_top_srcdir=$ac_top_builddir_sub
-+    ac_abs_top_srcdir=$ac_pwd ;;
-+  [\\/]* | ?:[\\/]* )  # Absolute name.
-+    ac_srcdir=$srcdir$ac_dir_suffix;
-+    ac_top_srcdir=$srcdir
-+    ac_abs_top_srcdir=$srcdir ;;
-+  *) # Relative name.
-+    ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
-+    ac_top_srcdir=$ac_top_build_prefix$srcdir
-+    ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-+esac
-+ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-+
-+    cd "$ac_dir" || { ac_status=$?; continue; }
-+    # Check for guested configure.
-+    if test -f "$ac_srcdir/configure.gnu"; then
-+      echo &&
-+      $SHELL "$ac_srcdir/configure.gnu" --help=recursive
-+    elif test -f "$ac_srcdir/configure"; then
-+      echo &&
-+      $SHELL "$ac_srcdir/configure" --help=recursive
-+    else
-+      $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
-+    fi || ac_status=$?
-+    cd "$ac_pwd" || { ac_status=$?; break; }
-+  done
- fi
--srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
- 
--# Prefer explicitly selected file to automatically selected ones.
--if test -z "$CONFIG_SITE"; then
--  if test "x$prefix" != xNONE; then
--    CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
--  else
--    CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
-+test -n "$ac_init_help" && exit $ac_status
-+if $ac_init_version; then
-+  cat <<\_ACEOF
-+tk707 configure 0.7.21
-+generated by GNU Autoconf 2.69
-+
-+Copyright (C) 2012 Free Software Foundation, Inc.
-+This configure script is free software; the Free Software Foundation
-+gives unlimited permission to copy, distribute and modify it.
-+_ACEOF
-+  exit
-+fi
-+
-+## ------------------------ ##
-+## Autoconf initialization. ##
-+## ------------------------ ##
-+
-+# ac_fn_c_try_compile LINENO
-+# --------------------------
-+# Try to compile conftest.$ac_ext, and return whether this succeeded.
-+ac_fn_c_try_compile ()
-+{
-+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+  rm -f conftest.$ac_objext
-+  if { { ac_try="$ac_compile"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_compile") 2>conftest.err
-+  ac_status=$?
-+  if test -s conftest.err; then
-+    grep -v '^ *+' conftest.err >conftest.er1
-+    cat conftest.er1 >&5
-+    mv -f conftest.er1 conftest.err
-   fi
--fi
--for ac_site_file in $CONFIG_SITE; do
--  if test -r "$ac_site_file"; then
--    echo "loading site script $ac_site_file"
--    . "$ac_site_file"
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; } && {
-+	 test -z "$ac_c_werror_flag" ||
-+	 test ! -s conftest.err
-+       } && test -s conftest.$ac_objext; then :
-+  ac_retval=0
-+else
-+  $as_echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+	ac_retval=1
-+fi
-+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-+  as_fn_set_status $ac_retval
-+
-+} # ac_fn_c_try_compile
-+
-+# ac_fn_c_try_link LINENO
-+# -----------------------
-+# Try to link conftest.$ac_ext, and return whether this succeeded.
-+ac_fn_c_try_link ()
-+{
-+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+  rm -f conftest.$ac_objext conftest$ac_exeext
-+  if { { ac_try="$ac_link"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_link") 2>conftest.err
-+  ac_status=$?
-+  if test -s conftest.err; then
-+    grep -v '^ *+' conftest.err >conftest.er1
-+    cat conftest.er1 >&5
-+    mv -f conftest.er1 conftest.err
-   fi
--done
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; } && {
-+	 test -z "$ac_c_werror_flag" ||
-+	 test ! -s conftest.err
-+       } && test -s conftest$ac_exeext && {
-+	 test "$cross_compiling" = yes ||
-+	 test -x conftest$ac_exeext
-+       }; then :
-+  ac_retval=0
-+else
-+  $as_echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+	ac_retval=1
-+fi
-+  # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
-+  # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
-+  # interfere with the next link command; also delete a directory that is
-+  # left behind by Apple's compiler.  We do this before executing the actions.
-+  rm -rf conftest.dSYM conftest_ipa8_conftest.oo
-+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-+  as_fn_set_status $ac_retval
-+
-+} # ac_fn_c_try_link
-+
-+# ac_fn_c_try_cpp LINENO
-+# ----------------------
-+# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-+ac_fn_c_try_cpp ()
-+{
-+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+  if { { ac_try="$ac_cpp conftest.$ac_ext"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
-+  ac_status=$?
-+  if test -s conftest.err; then
-+    grep -v '^ *+' conftest.err >conftest.er1
-+    cat conftest.er1 >&5
-+    mv -f conftest.er1 conftest.err
-+  fi
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; } > conftest.i && {
-+	 test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
-+	 test ! -s conftest.err
-+       }; then :
-+  ac_retval=0
-+else
-+  $as_echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+    ac_retval=1
-+fi
-+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-+  as_fn_set_status $ac_retval
-+
-+} # ac_fn_c_try_cpp
-+
-+# ac_fn_c_check_func LINENO FUNC VAR
-+# ----------------------------------
-+# Tests whether FUNC exists, setting the cache variable VAR accordingly
-+ac_fn_c_check_func ()
-+{
-+  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-+$as_echo_n "checking for $2... " >&6; }
-+if eval \${$3+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
-+   For example, HP-UX 11i <limits.h> declares gettimeofday.  */
-+#define $2 innocuous_$2
- 
-+/* System header to define __stub macros and hopefully few prototypes,
-+    which can conflict with char $2 (); below.
-+    Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-+    <limits.h> exists even on freestanding compilers.  */
- 
--ac_ext=c
--# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
--ac_cpp='$CPP $CPPFLAGS'
--ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
--ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
--cross_compiling=$ac_cv_prog_cc_cross
--
--ac_exeext=
--ac_objext=o
--if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
--  # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
--  if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
--    ac_n= ac_c='
--' ac_t='	'
--  else
--    ac_n=-n ac_c= ac_t=
--  fi
--else
--  ac_n= ac_c='\c' ac_t=
--fi
-+#ifdef __STDC__
-+# include <limits.h>
-+#else
-+# include <assert.h>
-+#endif
-+
-+#undef $2
- 
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char $2 ();
-+/* The GNU C library defines this for functions which it implements
-+    to always fail with ENOSYS.  Some functions are actually named
-+    something starting with __ and the normal name is an alias.  */
-+#if defined __stub_$2 || defined __stub___$2
-+choke me
-+#endif
- 
-+int
-+main ()
-+{
-+return $2 ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  eval "$3=yes"
-+else
-+  eval "$3=no"
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+fi
-+eval ac_res=\$$3
-+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-+$as_echo "$ac_res" >&6; }
-+  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- 
-+} # ac_fn_c_check_func
-+cat >config.log <<_ACEOF
-+This file contains any messages produced by compilers while
-+running configure, to aid debugging if configure makes a mistake.
- 
-+It was created by tk707 $as_me 0.7.21, which was
-+generated by GNU Autoconf 2.69.  Invocation command line was
- 
--PACKAGE=tk707
-+  $ $0 $@
- 
-+_ACEOF
-+exec 5>>config.log
-+{
-+cat <<_ASUNAME
-+## --------- ##
-+## Platform. ##
-+## --------- ##
-+
-+hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-+uname -m = `(uname -m) 2>/dev/null || echo unknown`
-+uname -r = `(uname -r) 2>/dev/null || echo unknown`
-+uname -s = `(uname -s) 2>/dev/null || echo unknown`
-+uname -v = `(uname -v) 2>/dev/null || echo unknown`
-+
-+/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-+/bin/uname -X     = `(/bin/uname -X) 2>/dev/null     || echo unknown`
-+
-+/bin/arch              = `(/bin/arch) 2>/dev/null              || echo unknown`
-+/usr/bin/arch -k       = `(/usr/bin/arch -k) 2>/dev/null       || echo unknown`
-+/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-+/usr/bin/hostinfo      = `(/usr/bin/hostinfo) 2>/dev/null      || echo unknown`
-+/bin/machine           = `(/bin/machine) 2>/dev/null           || echo unknown`
-+/usr/bin/oslevel       = `(/usr/bin/oslevel) 2>/dev/null       || echo unknown`
-+/bin/universe          = `(/bin/universe) 2>/dev/null          || echo unknown`
- 
-+_ASUNAME
- 
--  if test -f $srcdir/VERSION; then
--   MINOR_VERSION=`cat $srcdir/VERSION | awk -F "." '{print $NF}'`
--   MAJOR_VERSION=`cat $srcdir/VERSION | \
--        awk -F "." '{
--                i=1; printf("%s", $i);
--                for(i=2;i<NF;i++) {
--                        printf(".%s", $i);
--                }
--                printf("\n");
--        }' `
--  else
--   echo "configure: warning: file $srcdir/VERSION not defined" 1>&2
--   MAJOR_VERSION=1
--   MINOR_VERSION=0
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    $as_echo "PATH: $as_dir"
-+  done
-+IFS=$as_save_IFS
-+
-+} >&5
-+
-+cat >&5 <<_ACEOF
-+
-+
-+## ----------- ##
-+## Core tests. ##
-+## ----------- ##
-+
-+_ACEOF
-+
-+
-+# Keep a trace of the command line.
-+# Strip out --no-create and --no-recursion so they do not pile up.
-+# Strip out --silent because we don't want to record it for future runs.
-+# Also quote any args containing shell meta-characters.
-+# Make two passes to allow for proper duplicate-argument suppression.
-+ac_configure_args=
-+ac_configure_args0=
-+ac_configure_args1=
-+ac_must_keep_next=false
-+for ac_pass in 1 2
-+do
-+  for ac_arg
-+  do
-+    case $ac_arg in
-+    -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
-+    -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-+    | -silent | --silent | --silen | --sile | --sil)
-+      continue ;;
-+    *\'*)
-+      ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
-+    esac
-+    case $ac_pass in
-+    1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
-+    2)
-+      as_fn_append ac_configure_args1 " '$ac_arg'"
-+      if test $ac_must_keep_next = true; then
-+	ac_must_keep_next=false # Got value, back to normal.
-+      else
-+	case $ac_arg in
-+	  *=* | --config-cache | -C | -disable-* | --disable-* \
-+	  | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
-+	  | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
-+	  | -with-* | --with-* | -without-* | --without-* | --x)
-+	    case "$ac_configure_args0 " in
-+	      "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
-+	    esac
-+	    ;;
-+	  -* ) ac_must_keep_next=true ;;
-+	esac
-+      fi
-+      as_fn_append ac_configure_args " '$ac_arg'"
-+      ;;
-+    esac
-+  done
-+done
-+{ ac_configure_args0=; unset ac_configure_args0;}
-+{ ac_configure_args1=; unset ac_configure_args1;}
-+
-+# When interrupted or exit'd, cleanup temporary files, and complete
-+# config.log.  We remove comments because anyway the quotes in there
-+# would cause problems or look ugly.
-+# WARNING: Use '\'' to represent an apostrophe within the trap.
-+# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
-+trap 'exit_status=$?
-+  # Save into config.log some information that might help in debugging.
-+  {
-+    echo
-+
-+    $as_echo "## ---------------- ##
-+## Cache variables. ##
-+## ---------------- ##"
-+    echo
-+    # The following way of writing the cache mishandles newlines in values,
-+(
-+  for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
-+    eval ac_val=\$$ac_var
-+    case $ac_val in #(
-+    *${as_nl}*)
-+      case $ac_var in #(
-+      *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-+$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
-+      esac
-+      case $ac_var in #(
-+      _ | IFS | as_nl) ;; #(
-+      BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
-+      *) { eval $ac_var=; unset $ac_var;} ;;
-+      esac ;;
-+    esac
-+  done
-+  (set) 2>&1 |
-+    case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
-+    *${as_nl}ac_space=\ *)
-+      sed -n \
-+	"s/'\''/'\''\\\\'\'''\''/g;
-+	  s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
-+      ;; #(
-+    *)
-+      sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
-+      ;;
-+    esac |
-+    sort
-+)
-+    echo
-+
-+    $as_echo "## ----------------- ##
-+## Output variables. ##
-+## ----------------- ##"
-+    echo
-+    for ac_var in $ac_subst_vars
-+    do
-+      eval ac_val=\$$ac_var
-+      case $ac_val in
-+      *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
-+      esac
-+      $as_echo "$ac_var='\''$ac_val'\''"
-+    done | sort
-+    echo
-+
-+    if test -n "$ac_subst_files"; then
-+      $as_echo "## ------------------- ##
-+## File substitutions. ##
-+## ------------------- ##"
-+      echo
-+      for ac_var in $ac_subst_files
-+      do
-+	eval ac_val=\$$ac_var
-+	case $ac_val in
-+	*\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
-+	esac
-+	$as_echo "$ac_var='\''$ac_val'\''"
-+      done | sort
-+      echo
-+    fi
-+
-+    if test -s confdefs.h; then
-+      $as_echo "## ----------- ##
-+## confdefs.h. ##
-+## ----------- ##"
-+      echo
-+      cat confdefs.h
-+      echo
-+    fi
-+    test "$ac_signal" != 0 &&
-+      $as_echo "$as_me: caught signal $ac_signal"
-+    $as_echo "$as_me: exit $exit_status"
-+  } >&5
-+  rm -f core *.core core.conftest.* &&
-+    rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
-+    exit $exit_status
-+' 0
-+for ac_signal in 1 2 13 15; do
-+  trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
-+done
-+ac_signal=0
-+
-+# confdefs.h avoids OS command line length limits that DEFS can exceed.
-+rm -f -r conftest* confdefs.h
-+
-+$as_echo "/* confdefs.h */" > confdefs.h
-+
-+# Predefined preprocessor variables.
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_NAME "$PACKAGE_NAME"
-+_ACEOF
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
-+_ACEOF
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_VERSION "$PACKAGE_VERSION"
-+_ACEOF
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_STRING "$PACKAGE_STRING"
-+_ACEOF
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
-+_ACEOF
-+
-+cat >>confdefs.h <<_ACEOF
-+#define PACKAGE_URL "$PACKAGE_URL"
-+_ACEOF
-+
-+
-+# Let the site file select an alternate cache file if it wants to.
-+# Prefer an explicitly selected file to automatically selected ones.
-+ac_site_file1=NONE
-+ac_site_file2=NONE
-+if test -n "$CONFIG_SITE"; then
-+  # We do not want a PATH search for config.site.
-+  case $CONFIG_SITE in #((
-+    -*)  ac_site_file1=./$CONFIG_SITE;;
-+    */*) ac_site_file1=$CONFIG_SITE;;
-+    *)   ac_site_file1=./$CONFIG_SITE;;
-+  esac
-+elif test "x$prefix" != xNONE; then
-+  ac_site_file1=$prefix/share/config.site
-+  ac_site_file2=$prefix/etc/config.site
-+else
-+  ac_site_file1=$ac_default_prefix/share/config.site
-+  ac_site_file2=$ac_default_prefix/etc/config.site
-+fi
-+for ac_site_file in "$ac_site_file1" "$ac_site_file2"
-+do
-+  test "x$ac_site_file" = xNONE && continue
-+  if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
-+    { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
-+$as_echo "$as_me: loading site script $ac_site_file" >&6;}
-+    sed 's/^/| /' "$ac_site_file" >&5
-+    . "$ac_site_file" \
-+      || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "failed to load site script $ac_site_file
-+See \`config.log' for more details" "$LINENO" 5; }
-+  fi
-+done
-+
-+
-+# Check that the precious variables saved in the cache have kept the same
-+# value.
-+ac_cache_corrupted=false
-+for ac_var in $ac_precious_vars; do
-+  eval ac_old_set=\$ac_cv_env_${ac_var}_set
-+  eval ac_new_set=\$ac_env_${ac_var}_set
-+  eval ac_old_val=\$ac_cv_env_${ac_var}_value
-+  eval ac_new_val=\$ac_env_${ac_var}_value
-+  case $ac_old_set,$ac_new_set in
-+    set,)
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
-+$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
-+      ac_cache_corrupted=: ;;
-+    ,set)
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
-+$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
-+      ac_cache_corrupted=: ;;
-+    ,);;
-+    *)
-+      if test "x$ac_old_val" != "x$ac_new_val"; then
-+	# differences in whitespace do not lead to failure.
-+	ac_old_val_w=`echo x $ac_old_val`
-+	ac_new_val_w=`echo x $ac_new_val`
-+	if test "$ac_old_val_w" != "$ac_new_val_w"; then
-+	  { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
-+$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
-+	  ac_cache_corrupted=:
-+	else
-+	  { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
-+$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
-+	  eval $ac_var=\$ac_old_val
-+	fi
-+	{ $as_echo "$as_me:${as_lineno-$LINENO}:   former value:  \`$ac_old_val'" >&5
-+$as_echo "$as_me:   former value:  \`$ac_old_val'" >&2;}
-+	{ $as_echo "$as_me:${as_lineno-$LINENO}:   current value: \`$ac_new_val'" >&5
-+$as_echo "$as_me:   current value: \`$ac_new_val'" >&2;}
-+      fi;;
-+  esac
-+  # Pass precious variables to config.status.
-+  if test "$ac_new_set" = set; then
-+    case $ac_new_val in
-+    *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
-+    *) ac_arg=$ac_var=$ac_new_val ;;
-+    esac
-+    case " $ac_configure_args " in
-+      *" '$ac_arg' "*) ;; # Avoid dups.  Use of quotes ensures accuracy.
-+      *) as_fn_append ac_configure_args " '$ac_arg'" ;;
-+    esac
-   fi
-+done
-+if $ac_cache_corrupted; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
-+$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
-+  as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
-+fi
-+## -------------------- ##
-+## Main body of script. ##
-+## -------------------- ##
-+
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
- 
--VERSION=$MAJOR_VERSION
- 
--echo "configuring $PACKAGE $VERSION..."
- 
-+am__api_version='1.15'
- 
- ac_aux_dir=
--for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
--  if test -f $ac_dir/install-sh; then
-+for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do
-+  if test -f "$ac_dir/install-sh"; then
-     ac_aux_dir=$ac_dir
-     ac_install_sh="$ac_aux_dir/install-sh -c"
-     break
--  elif test -f $ac_dir/install.sh; then
-+  elif test -f "$ac_dir/install.sh"; then
-     ac_aux_dir=$ac_dir
-     ac_install_sh="$ac_aux_dir/install.sh -c"
-     break
-+  elif test -f "$ac_dir/shtool"; then
-+    ac_aux_dir=$ac_dir
-+    ac_install_sh="$ac_aux_dir/shtool install -c"
-+    break
-   fi
- done
- if test -z "$ac_aux_dir"; then
--  { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
-+  as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5
- fi
--ac_config_guess=$ac_aux_dir/config.guess
--ac_config_sub=$ac_aux_dir/config.sub
--ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
-+
-+# These three variables are undocumented and unsupported,
-+# and are intended to be withdrawn in a future Autoconf release.
-+# They can cause serious problems if a builder's source tree is in a directory
-+# whose full name contains unusual characters.
-+ac_config_guess="$SHELL $ac_aux_dir/config.guess"  # Please don't use this var.
-+ac_config_sub="$SHELL $ac_aux_dir/config.sub"  # Please don't use this var.
-+ac_configure="$SHELL $ac_aux_dir/configure"  # Please don't use this var.
-+
- 
- # Find a good install program.  We prefer a C program (faster),
- # so one script is as good as another.  But avoid the broken or
-@@ -584,465 +2014,1261 @@
- # SunOS /usr/etc/install
- # IRIX /sbin/install
- # AIX /bin/install
-+# AmigaOS /C/install, which installs bootblocks on floppy discs
- # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
- # AFS /usr/afsws/bin/install, which mishandles nonexistent args
- # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-+# OS/2's system install, which has a completely different semantic
- # ./install, which can be erroneously created by make from ./install.sh.
--echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
--echo "configure:593: checking for a BSD compatible install" >&5
-+# Reject install programs that cannot install multiple files.
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
-+$as_echo_n "checking for a BSD-compatible install... " >&6; }
- if test -z "$INSTALL"; then
--if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+if ${ac_cv_path_install+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--    IFS="${IFS= 	}"; ac_save_IFS="$IFS"; IFS=":"
--  for ac_dir in $PATH; do
-+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-     # Account for people who put trailing slashes in PATH elements.
--    case "$ac_dir/" in
--    /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;;
--    *)
--      # OSF1 and SCO ODT 3.0 have their own names for install.
--      # Don't use installbsd from OSF since it installs stuff as root
--      # by default.
--      for ac_prog in ginstall scoinst install; do
--        if test -f $ac_dir/$ac_prog; then
-+case $as_dir/ in #((
-+  ./ | .// | /[cC]/* | \
-+  /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
-+  ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
-+  /usr/ucb/* ) ;;
-+  *)
-+    # OSF1 and SCO ODT 3.0 have their own names for install.
-+    # Don't use installbsd from OSF since it installs stuff as root
-+    # by default.
-+    for ac_prog in ginstall scoinst install; do
-+      for ac_exec_ext in '' $ac_executable_extensions; do
-+	if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then
- 	  if test $ac_prog = install &&
--            grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then
-+	    grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- 	    # AIX install.  It has an incompatible calling convention.
- 	    :
-+	  elif test $ac_prog = install &&
-+	    grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
-+	    # program-specific install script used by HP pwplus--don't use.
-+	    :
- 	  else
--	    ac_cv_path_install="$ac_dir/$ac_prog -c"
--	    break 2
-+	    rm -rf conftest.one conftest.two conftest.dir
-+	    echo one > conftest.one
-+	    echo two > conftest.two
-+	    mkdir conftest.dir
-+	    if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
-+	      test -s conftest.one && test -s conftest.two &&
-+	      test -s conftest.dir/conftest.one &&
-+	      test -s conftest.dir/conftest.two
-+	    then
-+	      ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
-+	      break 3
-+	    fi
- 	  fi
- 	fi
-       done
--      ;;
--    esac
-+    done
-+    ;;
-+esac
-+
-   done
--  IFS="$ac_save_IFS"
-+IFS=$as_save_IFS
-+
-+rm -rf conftest.one conftest.two conftest.dir
- 
- fi
-   if test "${ac_cv_path_install+set}" = set; then
--    INSTALL="$ac_cv_path_install"
-+    INSTALL=$ac_cv_path_install
-   else
--    # As a last resort, use the slow shell script.  We don't cache a
--    # path for INSTALL within a source directory, because that will
-+    # As a last resort, use the slow shell script.  Don't cache a
-+    # value for INSTALL within a source directory, because that will
-     # break other packages using the cache if that directory is
--    # removed, or if the path is relative.
--    INSTALL="$ac_install_sh"
-+    # removed, or if the value is a relative name.
-+    INSTALL=$ac_install_sh
-   fi
- fi
--echo "$ac_t""$INSTALL" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
-+$as_echo "$INSTALL" >&6; }
- 
- # Use test -z because SunOS4 sh mishandles braces in ${var-val}.
- # It thinks the first close brace ends the variable substitution.
- test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
- 
--test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}'
-+test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
- 
- test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
- 
--echo $ac_n "checking whether build environment is sane""... $ac_c" 1>&6
--echo "configure:646: checking whether build environment is sane" >&5
--# Just in case
--sleep 1
--echo timestamp > conftestfile
--# Do `set' in a subshell so we don't clobber the current shell's
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
-+$as_echo_n "checking whether build environment is sane... " >&6; }
-+# Reject unsafe characters in $srcdir or the absolute working directory
-+# name.  Accept space and tab only in the latter.
-+am_lf='
-+'
-+case `pwd` in
-+  *[\\\"\#\$\&\'\`$am_lf]*)
-+    as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
-+esac
-+case $srcdir in
-+  *[\\\"\#\$\&\'\`$am_lf\ \	]*)
-+    as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;;
-+esac
-+
-+# Do 'set' in a subshell so we don't clobber the current shell's
- # arguments.  Must try -L first in case configure is actually a
- # symlink; some systems play weird games with the mod time of symlinks
- # (eg FreeBSD returns the mod time of the symlink's containing
- # directory).
- if (
--   set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
--   if test "$*" = "X"; then
--      # -L didn't work.
--      set X `ls -t $srcdir/configure conftestfile`
--   fi
--   if test "$*" != "X $srcdir/configure conftestfile" \
--      && test "$*" != "X conftestfile $srcdir/configure"; then
--
--      # If neither matched, then we have a broken ls.  This can happen
--      # if, for instance, CONFIG_SHELL is bash and it inherits a
--      # broken ls alias from the environment.  This has actually
--      # happened.  Such a system could not be considered "sane".
--      { echo "configure: error: ls -t appears to fail.  Make sure there is not a broken
--alias in your environment" 1>&2; exit 1; }
--   fi
--
--   test "$2" = conftestfile
-+   am_has_slept=no
-+   for am_try in 1 2; do
-+     echo "timestamp, slept: $am_has_slept" > conftest.file
-+     set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
-+     if test "$*" = "X"; then
-+	# -L didn't work.
-+	set X `ls -t "$srcdir/configure" conftest.file`
-+     fi
-+     if test "$*" != "X $srcdir/configure conftest.file" \
-+	&& test "$*" != "X conftest.file $srcdir/configure"; then
-+
-+	# If neither matched, then we have a broken ls.  This can happen
-+	# if, for instance, CONFIG_SHELL is bash and it inherits a
-+	# broken ls alias from the environment.  This has actually
-+	# happened.  Such a system could not be considered "sane".
-+	as_fn_error $? "ls -t appears to fail.  Make sure there is not a broken
-+  alias in your environment" "$LINENO" 5
-+     fi
-+     if test "$2" = conftest.file || test $am_try -eq 2; then
-+       break
-+     fi
-+     # Just in case.
-+     sleep 1
-+     am_has_slept=yes
-+   done
-+   test "$2" = conftest.file
-    )
- then
-    # Ok.
-    :
- else
--   { echo "configure: error: newly created file is older than distributed files!
--Check your system clock" 1>&2; exit 1; }
-+   as_fn_error $? "newly created file is older than distributed files!
-+Check your system clock" "$LINENO" 5
- fi
--rm -f conftest*
--echo "$ac_t""yes" 1>&6
--if test "$program_transform_name" = s,x,x,; then
--  program_transform_name=
--else
--  # Double any \ or $.  echo might interpret backslashes.
--  cat <<\EOF_SED > conftestsed
--s,\\,\\\\,g; s,\$,$$,g
--EOF_SED
--  program_transform_name="`echo $program_transform_name|sed -f conftestsed`"
--  rm -f conftestsed
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-+$as_echo "yes" >&6; }
-+# If we didn't sleep, we still need to ensure time stamps of config.status and
-+# generated files are strictly newer.
-+am_sleep_pid=
-+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
-+  ( sleep 1 ) &
-+  am_sleep_pid=$!
- fi
-+
-+rm -f conftest.file
-+
- test "$program_prefix" != NONE &&
--  program_transform_name="s,^,${program_prefix},; $program_transform_name"
-+  program_transform_name="s&^&$program_prefix&;$program_transform_name"
- # Use a double $ so make ignores it.
- test "$program_suffix" != NONE &&
--  program_transform_name="s,\$\$,${program_suffix},; $program_transform_name"
-+  program_transform_name="s&\$&$program_suffix&;$program_transform_name"
-+# Double any \ or $.
-+# By default was `s,x,x', remove it if useless.
-+ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
-+program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
-+
-+# Expand $ac_aux_dir to an absolute path.
-+am_aux_dir=`cd "$ac_aux_dir" && pwd`
-+
-+if test x"${MISSING+set}" != xset; then
-+  case $am_aux_dir in
-+  *\ * | *\	*)
-+    MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
-+  *)
-+    MISSING="\${SHELL} $am_aux_dir/missing" ;;
-+  esac
-+fi
-+# Use eval to expand $SHELL
-+if eval "$MISSING --is-lightweight"; then
-+  am_missing_run="$MISSING "
-+else
-+  am_missing_run=
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5
-+$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;}
-+fi
- 
--# sed with no file args requires a program.
--test "$program_transform_name" = "" && program_transform_name="s,x,x,"
-+if test x"${install_sh+set}" != xset; then
-+  case $am_aux_dir in
-+  *\ * | *\	*)
-+    install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
-+  *)
-+    install_sh="\${SHELL} $am_aux_dir/install-sh"
-+  esac
-+fi
- 
--echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6
--echo "configure:703: checking whether ${MAKE-make} sets \${MAKE}" >&5
--set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+# Installed binaries are usually stripped using 'strip' when the user
-+# run "make install-strip".  However 'strip' might not be the right
-+# tool to use in cross-compilation environments, therefore Automake
-+# will honor the 'STRIP' environment variable to overrule this program.
-+if test "$cross_compiling" != no; then
-+  if test -n "$ac_tool_prefix"; then
-+  # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-+set dummy ${ac_tool_prefix}strip; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_STRIP+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  cat > conftestmake <<\EOF
--all:
--	@echo 'ac_maketemp="${MAKE}"'
--EOF
--# GNU make sometimes prints "make[1]: Entering...", which would confuse us.
--eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=`
--if test -n "$ac_maketemp"; then
--  eval ac_cv_prog_make_${ac_make}_set=yes
-+  if test -n "$STRIP"; then
-+  ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_STRIP="${ac_tool_prefix}strip"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+fi
-+STRIP=$ac_cv_prog_STRIP
-+if test -n "$STRIP"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-+$as_echo "$STRIP" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
-+
-+
-+fi
-+if test -z "$ac_cv_prog_STRIP"; then
-+  ac_ct_STRIP=$STRIP
-+  # Extract the first word of "strip", so it can be a program name with args.
-+set dummy strip; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$ac_ct_STRIP"; then
-+  ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_ac_ct_STRIP="strip"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+fi
-+ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-+if test -n "$ac_ct_STRIP"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-+$as_echo "$ac_ct_STRIP" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
-+
-+  if test "x$ac_ct_STRIP" = x; then
-+    STRIP=":"
-+  else
-+    case $cross_compiling:$ac_tool_warned in
-+yes:)
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-+ac_tool_warned=yes ;;
-+esac
-+    STRIP=$ac_ct_STRIP
-+  fi
-+else
-+  STRIP="$ac_cv_prog_STRIP"
-+fi
-+
-+fi
-+INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
-+$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
-+if test -z "$MKDIR_P"; then
-+  if ${ac_cv_path_mkdir+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_prog in mkdir gmkdir; do
-+	 for ac_exec_ext in '' $ac_executable_extensions; do
-+	   as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue
-+	   case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
-+	     'mkdir (GNU coreutils) '* | \
-+	     'mkdir (coreutils) '* | \
-+	     'mkdir (fileutils) '4.1*)
-+	       ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
-+	       break 3;;
-+	   esac
-+	 done
-+       done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+
-+  test -d ./--version && rmdir ./--version
-+  if test "${ac_cv_path_mkdir+set}" = set; then
-+    MKDIR_P="$ac_cv_path_mkdir -p"
-+  else
-+    # As a last resort, use the slow shell script.  Don't cache a
-+    # value for MKDIR_P within a source directory, because that will
-+    # break other packages using the cache if that directory is
-+    # removed, or if the value is a relative name.
-+    MKDIR_P="$ac_install_sh -d"
-+  fi
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
-+$as_echo "$MKDIR_P" >&6; }
-+
-+for ac_prog in gawk mawk nawk awk
-+do
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
-+set dummy $ac_prog; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_AWK+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$AWK"; then
-+  ac_cv_prog_AWK="$AWK" # Let the user override the test.
- else
--  eval ac_cv_prog_make_${ac_make}_set=no
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_AWK="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-+  done
-+IFS=$as_save_IFS
-+
- fi
--rm -f conftestmake
- fi
--if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+AWK=$ac_cv_prog_AWK
-+if test -n "$AWK"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
-+$as_echo "$AWK" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
-+
-+
-+  test -n "$AWK" && break
-+done
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-+$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-+set x ${MAKE-make}
-+ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-+if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  cat >conftest.make <<\_ACEOF
-+SHELL = /bin/sh
-+all:
-+	@echo '@@@%%%=$(MAKE)=@@@%%%'
-+_ACEOF
-+# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-+case `${MAKE-make} -f conftest.make 2>/dev/null` in
-+  *@@@%%%=?*=@@@%%%*)
-+    eval ac_cv_prog_make_${ac_make}_set=yes;;
-+  *)
-+    eval ac_cv_prog_make_${ac_make}_set=no;;
-+esac
-+rm -f conftest.make
-+fi
-+if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-+$as_echo "yes" >&6; }
-   SET_MAKE=
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-   SET_MAKE="MAKE=${MAKE-make}"
- fi
- 
-+rm -rf .tst 2>/dev/null
-+mkdir .tst 2>/dev/null
-+if test -d .tst; then
-+  am__leading_dot=.
-+else
-+  am__leading_dot=_
-+fi
-+rmdir .tst 2>/dev/null
-+
-+# Check whether --enable-silent-rules was given.
-+if test "${enable_silent_rules+set}" = set; then :
-+  enableval=$enable_silent_rules;
-+fi
-+
-+case $enable_silent_rules in # (((
-+  yes) AM_DEFAULT_VERBOSITY=0;;
-+   no) AM_DEFAULT_VERBOSITY=1;;
-+    *) AM_DEFAULT_VERBOSITY=1;;
-+esac
-+am_make=${MAKE-make}
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5
-+$as_echo_n "checking whether $am_make supports nested variables... " >&6; }
-+if ${am_cv_make_support_nested_variables+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if $as_echo 'TRUE=$(BAR$(V))
-+BAR0=false
-+BAR1=true
-+V=1
-+am__doit:
-+	@$(TRUE)
-+.PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then
-+  am_cv_make_support_nested_variables=yes
-+else
-+  am_cv_make_support_nested_variables=no
-+fi
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5
-+$as_echo "$am_cv_make_support_nested_variables" >&6; }
-+if test $am_cv_make_support_nested_variables = yes; then
-+    AM_V='$(V)'
-+  AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
-+else
-+  AM_V=$AM_DEFAULT_VERBOSITY
-+  AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
-+fi
-+AM_BACKSLASH='\'
-+
-+if test "`cd $srcdir && pwd`" != "`pwd`"; then
-+  # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
-+  # is not polluted with repeated "-I."
-+  am__isrc=' -I$(srcdir)'
-+  # test to see if srcdir already configured
-+  if test -f $srcdir/config.status; then
-+    as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
-+  fi
-+fi
- 
--PACKAGE=$PACKAGE
-+# test whether we have cygpath
-+if test -z "$CYGPATH_W"; then
-+  if (cygpath --version) >/dev/null 2>/dev/null; then
-+    CYGPATH_W='cygpath -w'
-+  else
-+    CYGPATH_W=echo
-+  fi
-+fi
- 
--VERSION=$VERSION
- 
--if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then
--  { echo "configure: error: source directory already configured; run "make distclean" there first" 1>&2; exit 1; }
--fi
--cat >> confdefs.h <<EOF
-+# Define the identity of the package.
-+ PACKAGE='tk707'
-+ VERSION='0.7.21'
-+
-+
-+cat >>confdefs.h <<_ACEOF
- #define PACKAGE "$PACKAGE"
--EOF
-+_ACEOF
-+
- 
--cat >> confdefs.h <<EOF
-+cat >>confdefs.h <<_ACEOF
- #define VERSION "$VERSION"
--EOF
-+_ACEOF
-+
-+# Some tools Automake needs.
-+
-+ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
-+
-+
-+AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
-+
-+
-+AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
-+
-+
-+AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
-+
-+
-+MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
-+
-+# For better backward compatibility.  To be removed once Automake 1.9.x
-+# dies out for good.  For more background, see:
-+# <http://lists.gnu.org/archive/html/automake/2012-07/msg00001.html>
-+# <http://lists.gnu.org/archive/html/automake/2012-07/msg00014.html>
-+mkdir_p='$(MKDIR_P)'
-+
-+# We need awk for the "check" target (and possibly the TAP driver).  The
-+# system "awk" is bad on some platforms.
-+# Always define AMTAR for backward compatibility.  Yes, it's still used
-+# in the wild :-(  We should find a proper way to deprecate it ...
-+AMTAR='$${TAR-tar}'
- 
- 
-+# We'll loop over all known methods to create a tar archive until one works.
-+_am_tools='gnutar  pax cpio none'
- 
--missing_dir=`cd $ac_aux_dir && pwd`
--echo $ac_n "checking for working aclocal""... $ac_c" 1>&6
--echo "configure:749: checking for working aclocal" >&5
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if (aclocal --version) < /dev/null > /dev/null 2>&1; then
--   ACLOCAL=aclocal
--   echo "$ac_t""found" 1>&6
--else
--   ACLOCAL="$missing_dir/missing aclocal"
--   echo "$ac_t""missing" 1>&6
--fi
--
--echo $ac_n "checking for working autoconf""... $ac_c" 1>&6
--echo "configure:762: checking for working autoconf" >&5
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if (autoconf --version) < /dev/null > /dev/null 2>&1; then
--   AUTOCONF=autoconf
--   echo "$ac_t""found" 1>&6
--else
--   AUTOCONF="$missing_dir/missing autoconf"
--   echo "$ac_t""missing" 1>&6
--fi
--
--echo $ac_n "checking for working automake""... $ac_c" 1>&6
--echo "configure:775: checking for working automake" >&5
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if (automake --version) < /dev/null > /dev/null 2>&1; then
--   AUTOMAKE=automake
--   echo "$ac_t""found" 1>&6
--else
--   AUTOMAKE="$missing_dir/missing automake"
--   echo "$ac_t""missing" 1>&6
--fi
--
--echo $ac_n "checking for working autoheader""... $ac_c" 1>&6
--echo "configure:788: checking for working autoheader" >&5
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if (autoheader --version) < /dev/null > /dev/null 2>&1; then
--   AUTOHEADER=autoheader
--   echo "$ac_t""found" 1>&6
--else
--   AUTOHEADER="$missing_dir/missing autoheader"
--   echo "$ac_t""missing" 1>&6
--fi
--
--echo $ac_n "checking for working makeinfo""... $ac_c" 1>&6
--echo "configure:801: checking for working makeinfo" >&5
--# Run test in a subshell; some versions of sh will print an error if
--# an executable is not found, even if stderr is redirected.
--# Redirect stdin to placate older versions of autoconf.  Sigh.
--if (makeinfo --version) < /dev/null > /dev/null 2>&1; then
--   MAKEINFO=makeinfo
--   echo "$ac_t""found" 1>&6
--else
--   MAKEINFO="$missing_dir/missing makeinfo"
--   echo "$ac_t""missing" 1>&6
--fi
--
--
--if test "$program_transform_name" = s,x,x,; then
--  program_transform_name=
--else
--  # Double any \ or $.  echo might interpret backslashes.
--  cat <<\EOF_SED > conftestsed
--s,\\,\\\\,g; s,\$,$$,g
--EOF_SED
--  program_transform_name="`echo $program_transform_name|sed -f conftestsed`"
--  rm -f conftestsed
-+am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'
-+
-+
-+
-+
-+
-+
-+# POSIX will say in a future version that running "rm -f" with no argument
-+# is OK; and we want to be able to make that assumption in our Makefile
-+# recipes.  So use an aggressive probe to check that the usage we want is
-+# actually supported "in the wild" to an acceptable degree.
-+# See automake bug#10828.
-+# To make any issue more visible, cause the running configure to be aborted
-+# by default if the 'rm' program in use doesn't match our expectations; the
-+# user can still override this though.
-+if rm -f && rm -fr && rm -rf; then : OK; else
-+  cat >&2 <<'END'
-+Oops!
-+
-+Your 'rm' program seems unable to run without file operands specified
-+on the command line, even when the '-f' option is present.  This is contrary
-+to the behaviour of most rm programs out there, and not conforming with
-+the upcoming POSIX standard: <http://austingroupbugs.net/view.php?id=542>
-+
-+Please tell bug-automake@gnu.org about your system, including the value
-+of your $PATH and any error possibly output before this message.  This
-+can help us improve future automake versions.
-+
-+END
-+  if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
-+    echo 'Configuration will proceed anyway, since you have set the' >&2
-+    echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
-+    echo >&2
-+  else
-+    cat >&2 <<'END'
-+Aborting the configuration process, to ensure you take notice of the issue.
-+
-+You can download and install GNU coreutils to get an 'rm' implementation
-+that behaves properly: <http://www.gnu.org/software/coreutils/>.
-+
-+If you want to complete the configuration process using your problematic
-+'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
-+to "yes", and re-run configure.
-+
-+END
-+    as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5
-+  fi
- fi
--test "$program_prefix" != NONE &&
--  program_transform_name="s,^,${program_prefix},; $program_transform_name"
--# Use a double $ so make ignores it.
--test "$program_suffix" != NONE &&
--  program_transform_name="s,\$\$,${program_suffix},; $program_transform_name"
- 
--# sed with no file args requires a program.
--test "$program_transform_name" = "" && program_transform_name="s,x,x,"
- 
-+ac_config_headers="$ac_config_headers config.h"
- 
- 
- 
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+if test -n "$ac_tool_prefix"; then
-+  # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
-+set dummy ${ac_tool_prefix}gcc; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$CC"; then
-+  ac_cv_prog_CC="$CC" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_CC="${ac_tool_prefix}gcc"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+fi
-+CC=$ac_cv_prog_CC
-+if test -n "$CC"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-+$as_echo "$CC" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
- 
- 
--USER_CFLAGS=$CFLAGS
--# Extract the first word of "gcc", so it can be a program name with args.
-+fi
-+if test -z "$ac_cv_prog_CC"; then
-+  ac_ct_CC=$CC
-+  # Extract the first word of "gcc", so it can be a program name with args.
- set dummy gcc; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:842: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_ac_ct_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$ac_ct_CC"; then
-+  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_ac_ct_CC="gcc"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+fi
-+ac_ct_CC=$ac_cv_prog_ac_ct_CC
-+if test -n "$ac_ct_CC"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-+$as_echo "$ac_ct_CC" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
-+
-+  if test "x$ac_ct_CC" = x; then
-+    CC=""
-+  else
-+    case $cross_compiling:$ac_tool_warned in
-+yes:)
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-+ac_tool_warned=yes ;;
-+esac
-+    CC=$ac_ct_CC
-+  fi
-+else
-+  CC="$ac_cv_prog_CC"
-+fi
-+
-+if test -z "$CC"; then
-+          if test -n "$ac_tool_prefix"; then
-+    # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
-+set dummy ${ac_tool_prefix}cc; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$CC"; then
-   ac_cv_prog_CC="$CC" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_CC="gcc"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_CC="${ac_tool_prefix}cc"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--CC="$ac_cv_prog_CC"
-+CC=$ac_cv_prog_CC
- if test -n "$CC"; then
--  echo "$ac_t""$CC" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-+$as_echo "$CC" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
-+
-+  fi
-+fi
- if test -z "$CC"; then
-   # Extract the first word of "cc", so it can be a program name with args.
- set dummy cc; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:872: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$CC"; then
-   ac_cv_prog_CC="$CC" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
-   ac_prog_rejected=no
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then
--        ac_prog_rejected=yes
--	continue
--      fi
--      ac_cv_prog_CC="cc"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
-+       ac_prog_rejected=yes
-+       continue
-+     fi
-+    ac_cv_prog_CC="cc"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- if test $ac_prog_rejected = yes; then
-   # We found a bogon in the path, so make sure we never use it.
-   set dummy $ac_cv_prog_CC
-   shift
--  if test $# -gt 0; then
-+  if test $# != 0; then
-     # We chose a different compiler from the bogus one.
-     # However, it has the same basename, so the bogon will be chosen
-     # first if we set CC to just the basename; use the full file name.
-     shift
--    set dummy "$ac_dir/$ac_word" "$@"
--    shift
--    ac_cv_prog_CC="$@"
-+    ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
-   fi
- fi
- fi
- fi
--CC="$ac_cv_prog_CC"
-+CC=$ac_cv_prog_CC
- if test -n "$CC"; then
--  echo "$ac_t""$CC" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-+$as_echo "$CC" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--  if test -z "$CC"; then
--    case "`uname -s`" in
--    *win32* | *WIN32*)
--      # Extract the first word of "cl", so it can be a program name with args.
--set dummy cl; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:923: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+
-+fi
-+if test -z "$CC"; then
-+  if test -n "$ac_tool_prefix"; then
-+  for ac_prog in cl.exe
-+  do
-+    # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-+set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$CC"; then
-   ac_cv_prog_CC="$CC" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_CC="cl"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--CC="$ac_cv_prog_CC"
-+CC=$ac_cv_prog_CC
- if test -n "$CC"; then
--  echo "$ac_t""$CC" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-+$as_echo "$CC" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
-- ;;
--    esac
-+
-+
-+    test -n "$CC" && break
-+  done
-+fi
-+if test -z "$CC"; then
-+  ac_ct_CC=$CC
-+  for ac_prog in cl.exe
-+do
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
-+set dummy $ac_prog; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_ac_ct_CC+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$ac_ct_CC"; then
-+  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_ac_ct_CC="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-   fi
--  test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; }
-+done
-+  done
-+IFS=$as_save_IFS
-+
-+fi
-+fi
-+ac_ct_CC=$ac_cv_prog_ac_ct_CC
-+if test -n "$ac_ct_CC"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-+$as_echo "$ac_ct_CC" >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
--echo "configure:955: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
- 
--ac_ext=c
--# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
--ac_cpp='$CPP $CPPFLAGS'
--ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
--ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
--cross_compiling=$ac_cv_prog_cc_cross
--
--cat > conftest.$ac_ext << EOF
--
--#line 966 "configure"
--#include "confdefs.h"
--
--main(){return(0);}
--EOF
--if { (eval echo configure:971: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  ac_cv_prog_cc_works=yes
--  # If we can't run a trivial program, we are probably using a cross compiler.
--  if (./conftest; exit) 2>/dev/null; then
--    ac_cv_prog_cc_cross=no
-+  test -n "$ac_ct_CC" && break
-+done
-+
-+  if test "x$ac_ct_CC" = x; then
-+    CC=""
-   else
--    ac_cv_prog_cc_cross=yes
-+    case $cross_compiling:$ac_tool_warned in
-+yes:)
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-+$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-+ac_tool_warned=yes ;;
-+esac
-+    CC=$ac_ct_CC
-   fi
-+fi
-+
-+fi
-+
-+
-+test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "no acceptable C compiler found in \$PATH
-+See \`config.log' for more details" "$LINENO" 5; }
-+
-+# Provide some information about the compiler.
-+$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-+set X $ac_compile
-+ac_compiler=$2
-+for ac_option in --version -v -V -qversion; do
-+  { { ac_try="$ac_compiler $ac_option >&5"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_compiler $ac_option >&5") 2>conftest.err
-+  ac_status=$?
-+  if test -s conftest.err; then
-+    sed '10a\
-+... rest of stderr output deleted ...
-+         10q' conftest.err >conftest.er1
-+    cat conftest.er1 >&5
-+  fi
-+  rm -f conftest.er1 conftest.err
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }
-+done
-+
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+ac_clean_files_save=$ac_clean_files
-+ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
-+# Try to create an executable without -o first, disregard a.out.
-+# It will help us diagnose broken compilers, and finding out an intuition
-+# of exeext.
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
-+$as_echo_n "checking whether the C compiler works... " >&6; }
-+ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
-+
-+# The possible output files:
-+ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
-+
-+ac_rmfiles=
-+for ac_file in $ac_files
-+do
-+  case $ac_file in
-+    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
-+    * ) ac_rmfiles="$ac_rmfiles $ac_file";;
-+  esac
-+done
-+rm -f $ac_rmfiles
-+
-+if { { ac_try="$ac_link_default"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_link_default") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }; then :
-+  # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
-+# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
-+# in a Makefile.  We should not override ac_cv_exeext if it was cached,
-+# so that the user can short-circuit this test for compilers unknown to
-+# Autoconf.
-+for ac_file in $ac_files ''
-+do
-+  test -f "$ac_file" || continue
-+  case $ac_file in
-+    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
-+	;;
-+    [ab].out )
-+	# We found the default executable, but exeext='' is most
-+	# certainly right.
-+	break;;
-+    *.* )
-+	if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
-+	then :; else
-+	   ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
-+	fi
-+	# We set ac_cv_exeext here because the later test for it is not
-+	# safe: cross compilers may not add the suffix if given an `-o'
-+	# argument, so we may need to know it at that point already.
-+	# Even if this section looks crufty: it has the advantage of
-+	# actually working.
-+	break;;
-+    * )
-+	break;;
-+  esac
-+done
-+test "$ac_cv_exeext" = no && ac_cv_exeext=
-+
- else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  ac_cv_prog_cc_works=no
-+  ac_file=''
- fi
--rm -fr conftest*
--ac_ext=c
--# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
--ac_cpp='$CPP $CPPFLAGS'
--ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
--ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
--cross_compiling=$ac_cv_prog_cc_cross
-+if test -z "$ac_file"; then :
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+$as_echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error 77 "C compiler cannot create executables
-+See \`config.log' for more details" "$LINENO" 5; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-+$as_echo "yes" >&6; }
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
-+$as_echo_n "checking for C compiler default output file name... " >&6; }
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
-+$as_echo "$ac_file" >&6; }
-+ac_exeext=$ac_cv_exeext
-+
-+rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
-+ac_clean_files=$ac_clean_files_save
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
-+$as_echo_n "checking for suffix of executables... " >&6; }
-+if { { ac_try="$ac_link"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_link") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }; then :
-+  # If both `conftest.exe' and `conftest' are `present' (well, observable)
-+# catch `conftest.exe'.  For instance with Cygwin, `ls conftest' will
-+# work properly (i.e., refer to `conftest.exe'), while it won't with
-+# `rm'.
-+for ac_file in conftest.exe conftest conftest.*; do
-+  test -f "$ac_file" || continue
-+  case $ac_file in
-+    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
-+    *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
-+	  break;;
-+    * ) break;;
-+  esac
-+done
-+else
-+  { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "cannot compute suffix of executables: cannot compile and link
-+See \`config.log' for more details" "$LINENO" 5; }
-+fi
-+rm -f conftest conftest$ac_cv_exeext
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
-+$as_echo "$ac_cv_exeext" >&6; }
-+
-+rm -f conftest.$ac_ext
-+EXEEXT=$ac_cv_exeext
-+ac_exeext=$EXEEXT
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <stdio.h>
-+int
-+main ()
-+{
-+FILE *f = fopen ("conftest.out", "w");
-+ return ferror (f) || fclose (f) != 0;
- 
--echo "$ac_t""$ac_cv_prog_cc_works" 1>&6
--if test $ac_cv_prog_cc_works = no; then
--  { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+ac_clean_files="$ac_clean_files conftest.out"
-+# Check that the compiler produces executables we can run.  If not, either
-+# the compiler is broken, or we cross compile.
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
-+$as_echo_n "checking whether we are cross compiling... " >&6; }
-+if test "$cross_compiling" != yes; then
-+  { { ac_try="$ac_link"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_link") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }
-+  if { ac_try='./conftest$ac_cv_exeext'
-+  { { case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_try") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }; }; then
-+    cross_compiling=no
-+  else
-+    if test "$cross_compiling" = maybe; then
-+	cross_compiling=yes
-+    else
-+	{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "cannot run C compiled programs.
-+If you meant to cross compile, use \`--host'.
-+See \`config.log' for more details" "$LINENO" 5; }
-+    fi
-+  fi
- fi
--echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
--echo "configure:997: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
--echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
--cross_compiling=$ac_cv_prog_cc_cross
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
-+$as_echo "$cross_compiling" >&6; }
-+
-+rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
-+ac_clean_files=$ac_clean_files_save
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
-+$as_echo_n "checking for suffix of object files... " >&6; }
-+if ${ac_cv_objext+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
--echo "configure:1002: checking whether we are using GNU C" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+rm -f conftest.o conftest.obj
-+if { { ac_try="$ac_compile"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$ac_compile") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }; then :
-+  for ac_file in conftest.o conftest.obj conftest.*; do
-+  test -f "$ac_file" || continue;
-+  case $ac_file in
-+    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
-+    *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
-+       break;;
-+  esac
-+done
- else
--  cat > conftest.c <<EOF
--#ifdef __GNUC__
--  yes;
-+  $as_echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "cannot compute suffix of object files: cannot compile
-+See \`config.log' for more details" "$LINENO" 5; }
-+fi
-+rm -f conftest.$ac_cv_objext conftest.$ac_ext
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
-+$as_echo "$ac_cv_objext" >&6; }
-+OBJEXT=$ac_cv_objext
-+ac_objext=$OBJEXT
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-+$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-+if ${ac_cv_c_compiler_gnu+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+int
-+main ()
-+{
-+#ifndef __GNUC__
-+       choke me
- #endif
--EOF
--if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:1011: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
--  ac_cv_prog_gcc=yes
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_compile "$LINENO"; then :
-+  ac_compiler_gnu=yes
- else
--  ac_cv_prog_gcc=no
--fi
-+  ac_compiler_gnu=no
- fi
-+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-+ac_cv_c_compiler_gnu=$ac_compiler_gnu
- 
--echo "$ac_t""$ac_cv_prog_gcc" 1>&6
--
--if test $ac_cv_prog_gcc = yes; then
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-+$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-+if test $ac_compiler_gnu = yes; then
-   GCC=yes
- else
-   GCC=
- fi
-+ac_test_CFLAGS=${CFLAGS+set}
-+ac_save_CFLAGS=$CFLAGS
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-+$as_echo_n "checking whether $CC accepts -g... " >&6; }
-+if ${ac_cv_prog_cc_g+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  ac_save_c_werror_flag=$ac_c_werror_flag
-+   ac_c_werror_flag=yes
-+   ac_cv_prog_cc_g=no
-+   CFLAGS="-g"
-+   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--ac_test_CFLAGS="${CFLAGS+set}"
--ac_save_CFLAGS="$CFLAGS"
--CFLAGS=
--echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
--echo "configure:1030: checking whether ${CC-cc} accepts -g" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  echo 'void f(){}' > conftest.c
--if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_compile "$LINENO"; then :
-   ac_cv_prog_cc_g=yes
- else
--  ac_cv_prog_cc_g=no
--fi
--rm -f conftest*
-+  CFLAGS=""
-+      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_compile "$LINENO"; then :
-+
-+else
-+  ac_c_werror_flag=$ac_save_c_werror_flag
-+	 CFLAGS="-g"
-+	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--echo "$ac_t""$ac_cv_prog_cc_g" 1>&6
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_compile "$LINENO"; then :
-+  ac_cv_prog_cc_g=yes
-+fi
-+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-+fi
-+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-+fi
-+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-+   ac_c_werror_flag=$ac_save_c_werror_flag
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-+$as_echo "$ac_cv_prog_cc_g" >&6; }
- if test "$ac_test_CFLAGS" = set; then
--  CFLAGS="$ac_save_CFLAGS"
-+  CFLAGS=$ac_save_CFLAGS
- elif test $ac_cv_prog_cc_g = yes; then
-   if test "$GCC" = yes; then
-     CFLAGS="-g -O2"
-@@ -1056,263 +3282,554 @@
-     CFLAGS=
-   fi
- fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-+$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-+if ${ac_cv_prog_cc_c89+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  ac_cv_prog_cc_c89=no
-+ac_save_CC=$CC
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <stdarg.h>
-+#include <stdio.h>
-+struct stat;
-+/* Most of the following tests are stolen from RCS 5.7's src/conf.sh.  */
-+struct buf { int x; };
-+FILE * (*rcsopen) (struct buf *, struct stat *, int);
-+static char *e (p, i)
-+     char **p;
-+     int i;
-+{
-+  return p[i];
-+}
-+static char *f (char * (*g) (char **, int), char **p, ...)
-+{
-+  char *s;
-+  va_list v;
-+  va_start (v,p);
-+  s = g (p, va_arg (v,int));
-+  va_end (v);
-+  return s;
-+}
- 
--if test x"$GCC" = x"yes" -a x"$USER_CFLAGS" = x""; then
--    CFLAGS="-O9 -Wall -Wno-unused"
-+/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default.  It has
-+   function prototypes and stuff, but not '\xHH' hex character constants.
-+   These don't provoke an error unfortunately, instead are silently treated
-+   as 'x'.  The following induces an error, until -std is added to get
-+   proper ANSI mode.  Curiously '\x00'!='x' always comes out true, for an
-+   array size at least.  It's necessary to write '\x00'==0 to get something
-+   that's true only with -std.  */
-+int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-+
-+/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
-+   inside strings and character constants.  */
-+#define FOO(x) 'x'
-+int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-+
-+int test (int i, double x);
-+struct s1 {int (*f) (int a);};
-+struct s2 {int (*f) (double a);};
-+int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-+int argc;
-+char **argv;
-+int
-+main ()
-+{
-+return f (e, argv, 0) != argv[0]  ||  f (e, argv, 1) != argv[1];
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
-+	-Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-+do
-+  CC="$ac_save_CC $ac_arg"
-+  if ac_fn_c_try_compile "$LINENO"; then :
-+  ac_cv_prog_cc_c89=$ac_arg
- fi
-+rm -f core conftest.err conftest.$ac_objext
-+  test "x$ac_cv_prog_cc_c89" != "xno" && break
-+done
-+rm -f conftest.$ac_ext
-+CC=$ac_save_CC
- 
--for ac_prog in flex lex
--do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
--set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1070: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_LEX'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  if test -n "$LEX"; then
--  ac_cv_prog_LEX="$LEX" # Let the user override the test.
-+fi
-+# AC_CACHE_VAL
-+case "x$ac_cv_prog_cc_c89" in
-+  x)
-+    { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-+$as_echo "none needed" >&6; } ;;
-+  xno)
-+    { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-+$as_echo "unsupported" >&6; } ;;
-+  *)
-+    CC="$CC $ac_cv_prog_cc_c89"
-+    { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-+$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-+esac
-+if test "x$ac_cv_prog_cc_c89" != xno; then :
-+
-+fi
-+
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5
-+$as_echo_n "checking whether $CC understands -c and -o together... " >&6; }
-+if ${am_cv_prog_cc_c_o+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_LEX="$ac_prog"
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+  # Make sure it works both with $CC and with simple cc.
-+  # Following AC_PROG_CC_C_O, we do the test twice because some
-+  # compilers refuse to overwrite an existing .o file with -o,
-+  # though they will create one.
-+  am_cv_prog_cc_c_o=yes
-+  for am_i in 1 2; do
-+    if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5
-+   ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5
-+   ac_status=$?
-+   echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+   (exit $ac_status); } \
-+         && test -f conftest2.$ac_objext; then
-+      : OK
-+    else
-+      am_cv_prog_cc_c_o=no
-       break
-     fi
-   done
--  IFS="$ac_save_ifs"
-+  rm -f core conftest*
-+  unset am_i
- fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5
-+$as_echo "$am_cv_prog_cc_c_o" >&6; }
-+if test "$am_cv_prog_cc_c_o" != yes; then
-+   # Losing compiler, so override with the script.
-+   # FIXME: It is wrong to rewrite CC.
-+   # But if we don't then we get into trouble of one sort or another.
-+   # A longer-term fix would be to have automake use am__CC in this case,
-+   # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
-+   CC="$am_aux_dir/compile $CC"
- fi
--LEX="$ac_cv_prog_LEX"
--if test -n "$LEX"; then
--  echo "$ac_t""$LEX" 1>&6
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+
-+DEPDIR="${am__leading_dot}deps"
-+
-+ac_config_commands="$ac_config_commands depfiles"
-+
-+
-+am_make=${MAKE-make}
-+cat > confinc << 'END'
-+am__doit:
-+	@echo this is the am__doit target
-+.PHONY: am__doit
-+END
-+# If we don't find an include directive, just comment out the code.
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5
-+$as_echo_n "checking for style of include used by $am_make... " >&6; }
-+am__include="#"
-+am__quote=
-+_am_result=none
-+# First try GNU make style include.
-+echo "include confinc" > confmf
-+# Ignore all kinds of additional output from 'make'.
-+case `$am_make -s -f confmf 2> /dev/null` in #(
-+*the\ am__doit\ target*)
-+  am__include=include
-+  am__quote=
-+  _am_result=GNU
-+  ;;
-+esac
-+# Now try BSD make style include.
-+if test "$am__include" = "#"; then
-+   echo '.include "confinc"' > confmf
-+   case `$am_make -s -f confmf 2> /dev/null` in #(
-+   *the\ am__doit\ target*)
-+     am__include=.include
-+     am__quote="\""
-+     _am_result=BSD
-+     ;;
-+   esac
-+fi
-+
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5
-+$as_echo "$_am_result" >&6; }
-+rm -f confinc confmf
-+
-+# Check whether --enable-dependency-tracking was given.
-+if test "${enable_dependency_tracking+set}" = set; then :
-+  enableval=$enable_dependency_tracking;
-+fi
-+
-+if test "x$enable_dependency_tracking" != xno; then
-+  am_depcomp="$ac_aux_dir/depcomp"
-+  AMDEPBACKSLASH='\'
-+  am__nodep='_no'
-+fi
-+ if test "x$enable_dependency_tracking" != xno; then
-+  AMDEP_TRUE=
-+  AMDEP_FALSE='#'
-+else
-+  AMDEP_TRUE='#'
-+  AMDEP_FALSE=
-+fi
-+
-+
-+
-+depcc="$CC"   am_compiler_list=
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-+$as_echo_n "checking dependency style of $depcc... " >&6; }
-+if ${am_cv_CC_dependencies_compiler_type+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
-+  # We make a subdir and do the tests there.  Otherwise we can end up
-+  # making bogus files that we don't know about and never remove.  For
-+  # instance it was reported that on HP-UX the gcc test will end up
-+  # making a dummy file named 'D' -- because '-MD' means "put the output
-+  # in D".
-+  rm -rf conftest.dir
-+  mkdir conftest.dir
-+  # Copy depcomp to subdir because otherwise we won't find it if we're
-+  # using a relative directory.
-+  cp "$am_depcomp" conftest.dir
-+  cd conftest.dir
-+  # We will build objects and dependencies in a subdirectory because
-+  # it helps to detect inapplicable dependency modes.  For instance
-+  # both Tru64's cc and ICC support -MD to output dependencies as a
-+  # side effect of compilation, but ICC will put the dependencies in
-+  # the current directory while Tru64 will put them in the object
-+  # directory.
-+  mkdir sub
-+
-+  am_cv_CC_dependencies_compiler_type=none
-+  if test "$am_compiler_list" = ""; then
-+     am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
-+  fi
-+  am__universal=false
-+  case " $depcc " in #(
-+     *\ -arch\ *\ -arch\ *) am__universal=true ;;
-+     esac
-+
-+  for depmode in $am_compiler_list; do
-+    # Setup a source with many dependencies, because some compilers
-+    # like to wrap large dependency lists on column 80 (with \), and
-+    # we should not choose a depcomp mode which is confused by this.
-+    #
-+    # We need to recreate these files for each test, as the compiler may
-+    # overwrite some of them when testing with obscure command lines.
-+    # This happens at least with the AIX C compiler.
-+    : > sub/conftest.c
-+    for i in 1 2 3 4 5 6; do
-+      echo '#include "conftst'$i'.h"' >> sub/conftest.c
-+      # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
-+      # Solaris 10 /bin/sh.
-+      echo '/* dummy */' > sub/conftst$i.h
-+    done
-+    echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-+
-+    # We check with '-c' and '-o' for the sake of the "dashmstdout"
-+    # mode.  It turns out that the SunPro C++ compiler does not properly
-+    # handle '-M -o', and we need to detect this.  Also, some Intel
-+    # versions had trouble with output in subdirs.
-+    am__obj=sub/conftest.${OBJEXT-o}
-+    am__minus_obj="-o $am__obj"
-+    case $depmode in
-+    gcc)
-+      # This depmode causes a compiler race in universal mode.
-+      test "$am__universal" = false || continue
-+      ;;
-+    nosideeffect)
-+      # After this tag, mechanisms are not by side-effect, so they'll
-+      # only be used when explicitly requested.
-+      if test "x$enable_dependency_tracking" = xyes; then
-+	continue
-+      else
-+	break
-+      fi
-+      ;;
-+    msvc7 | msvc7msys | msvisualcpp | msvcmsys)
-+      # This compiler won't grok '-c -o', but also, the minuso test has
-+      # not run yet.  These depmodes are late enough in the game, and
-+      # so weak that their functioning should not be impacted.
-+      am__obj=conftest.${OBJEXT-o}
-+      am__minus_obj=
-+      ;;
-+    none) break ;;
-+    esac
-+    if depmode=$depmode \
-+       source=sub/conftest.c object=$am__obj \
-+       depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
-+       $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
-+         >/dev/null 2>conftest.err &&
-+       grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
-+       grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
-+       grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
-+       ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
-+      # icc doesn't choke on unknown options, it will just issue warnings
-+      # or remarks (even with -Werror).  So we grep stderr for any message
-+      # that says an option was ignored or not supported.
-+      # When given -MP, icc 7.0 and 7.1 complain thusly:
-+      #   icc: Command line warning: ignoring option '-M'; no argument required
-+      # The diagnosis changed in icc 8.0:
-+      #   icc: Command line remark: option '-MP' not supported
-+      if (grep 'ignoring option' conftest.err ||
-+          grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
-+        am_cv_CC_dependencies_compiler_type=$depmode
-+        break
-+      fi
-+    fi
-+  done
-+
-+  cd ..
-+  rm -rf conftest.dir
-+else
-+  am_cv_CC_dependencies_compiler_type=none
-+fi
-+
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
-+$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
-+CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
-+
-+ if
-+  test "x$enable_dependency_tracking" != xno \
-+  && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
-+  am__fastdepCC_TRUE=
-+  am__fastdepCC_FALSE='#'
- else
--  echo "$ac_t""no" 1>&6
-+  am__fastdepCC_TRUE='#'
-+  am__fastdepCC_FALSE=
- fi
- 
--test -n "$LEX" && break
-+
-+
-+for ac_prog in flex lex
-+do
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
-+set dummy $ac_prog; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_LEX+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  if test -n "$LEX"; then
-+  ac_cv_prog_LEX="$LEX" # Let the user override the test.
-+else
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_LEX="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
- done
-+  done
-+IFS=$as_save_IFS
- 
--if test x"$LEX" != x""; then
--  echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
--echo "configure:1101: checking how to run the C preprocessor" >&5
--# On Suns, sometimes $CPP names a directory.
--if test -n "$CPP" && test -d "$CPP"; then
--  CPP=
- fi
--if test -z "$CPP"; then
--if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+fi
-+LEX=$ac_cv_prog_LEX
-+if test -n "$LEX"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LEX" >&5
-+$as_echo "$LEX" >&6; }
- else
--    # This must be in double quotes, not single quotes, because CPP may get
--  # substituted into the Makefile and "${CC-cc}" will confuse make.
--  CPP="${CC-cc} -E"
--  # On the NeXT, cc -E runs the code through the compiler's parser,
--  # not just through cpp.
--  cat > conftest.$ac_ext <<EOF
--#line 1116 "configure"
--#include "confdefs.h"
--#include <assert.h>
--Syntax Error
--EOF
--ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
--{ (eval echo configure:1122: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
--ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
--if test -z "$ac_err"; then
--  :
--else
--  echo "$ac_err" >&5
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  CPP="${CC-cc} -E -traditional-cpp"
--  cat > conftest.$ac_ext <<EOF
--#line 1133 "configure"
--#include "confdefs.h"
--#include <assert.h>
--Syntax Error
--EOF
--ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
--{ (eval echo configure:1139: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
--ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
--if test -z "$ac_err"; then
--  :
--else
--  echo "$ac_err" >&5
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  CPP="${CC-cc} -nologo -E"
--  cat > conftest.$ac_ext <<EOF
--#line 1150 "configure"
--#include "confdefs.h"
--#include <assert.h>
--Syntax Error
--EOF
--ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
--{ (eval echo configure:1156: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
--ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
--if test -z "$ac_err"; then
--  :
--else
--  echo "$ac_err" >&5
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  CPP=/lib/cpp
--fi
--rm -f conftest*
--fi
--rm -f conftest*
--fi
--rm -f conftest*
--  ac_cv_prog_CPP="$CPP"
--fi
--  CPP="$ac_cv_prog_CPP"
--else
--  ac_cv_prog_CPP="$CPP"
--fi
--echo "$ac_t""$CPP" 1>&6
--
--# Extract the first word of "flex", so it can be a program name with args.
--set dummy flex; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1183: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_LEX'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+fi
-+
-+
-+  test -n "$LEX" && break
-+done
-+
-+if test x"$LEX" != x""; then
-+
-+for ac_prog in flex lex
-+do
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
-+set dummy $ac_prog; ac_word=$2
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_LEX+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$LEX"; then
-   ac_cv_prog_LEX="$LEX" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_LEX="flex"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_LEX="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
--  test -z "$ac_cv_prog_LEX" && ac_cv_prog_LEX="lex"
-+IFS=$as_save_IFS
-+
- fi
- fi
--LEX="$ac_cv_prog_LEX"
-+LEX=$ac_cv_prog_LEX
- if test -n "$LEX"; then
--  echo "$ac_t""$LEX" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LEX" >&5
-+$as_echo "$LEX" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--if test -z "$LEXLIB"
--then
--  case "$LEX" in
--  flex*) ac_lib=fl ;;
--  *) ac_lib=l ;;
--  esac
--  echo $ac_n "checking for yywrap in -l$ac_lib""... $ac_c" 1>&6
--echo "configure:1217: checking for yywrap in -l$ac_lib" >&5
--ac_lib_var=`echo $ac_lib'_'yywrap | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  ac_save_LIBS="$LIBS"
--LIBS="-l$ac_lib  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 1225 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char yywrap();
--
--int main() {
--yywrap()
--; return 0; }
--EOF
--if { (eval echo configure:1236: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  LEXLIB="-l$ac_lib"
--else
--  echo "$ac_t""no" 1>&6
--fi
- 
--fi
-+  test -n "$LEX" && break
-+done
-+test -n "$LEX" || LEX=":"
-+
-+if test "x$LEX" != "x:"; then
-+  cat >conftest.l <<_ACEOF
-+%%
-+a { ECHO; }
-+b { REJECT; }
-+c { yymore (); }
-+d { yyless (1); }
-+e { /* IRIX 6.5 flex 2.5.4 underquotes its yyless argument.  */
-+    yyless ((input () != 0)); }
-+f { unput (yytext[0]); }
-+. { BEGIN INITIAL; }
-+%%
-+#ifdef YYTEXT_POINTER
-+extern char *yytext;
-+#endif
-+int
-+main (void)
-+{
-+  return ! yylex () + ! yywrap ();
-+}
-+_ACEOF
-+{ { ac_try="$LEX conftest.l"
-+case "(($ac_try" in
-+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-+  *) ac_try_echo=$ac_try;;
-+esac
-+eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-+$as_echo "$ac_try_echo"; } >&5
-+  (eval "$LEX conftest.l") 2>&5
-+  ac_status=$?
-+  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-+  test $ac_status = 0; }
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking lex output file root" >&5
-+$as_echo_n "checking lex output file root... " >&6; }
-+if ${ac_cv_prog_lex_root+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
- 
--echo $ac_n "checking lex output file root""... $ac_c" 1>&6
--echo "configure:1259: checking lex output file root" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_lex_root'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  # The minimal lex program is just a single line: %%.  But some broken lexes
--# (Solaris, I think it was) want two %% lines, so accommodate them.
--echo '%%
--%%' | $LEX
- if test -f lex.yy.c; then
-   ac_cv_prog_lex_root=lex.yy
- elif test -f lexyy.c; then
-   ac_cv_prog_lex_root=lexyy
- else
--  { echo "configure: error: cannot find output from $LEX; giving up" 1>&2; exit 1; }
-+  as_fn_error $? "cannot find output from $LEX; giving up" "$LINENO" 5
- fi
- fi
--
--echo "$ac_t""$ac_cv_prog_lex_root" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_root" >&5
-+$as_echo "$ac_cv_prog_lex_root" >&6; }
- LEX_OUTPUT_ROOT=$ac_cv_prog_lex_root
- 
--echo $ac_n "checking whether yytext is a pointer""... $ac_c" 1>&6
--echo "configure:1280: checking whether yytext is a pointer" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_lex_yytext_pointer'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+if test -z "${LEXLIB+set}"; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking lex library" >&5
-+$as_echo_n "checking lex library... " >&6; }
-+if ${ac_cv_lib_lex+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+
-+    ac_save_LIBS=$LIBS
-+    ac_cv_lib_lex='none needed'
-+    for ac_lib in '' -lfl -ll; do
-+      LIBS="$ac_lib $ac_save_LIBS"
-+      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+`cat $LEX_OUTPUT_ROOT.c`
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_lex=$ac_lib
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+      test "$ac_cv_lib_lex" != 'none needed' && break
-+    done
-+    LIBS=$ac_save_LIBS
-+
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_lex" >&5
-+$as_echo "$ac_cv_lib_lex" >&6; }
-+  test "$ac_cv_lib_lex" != 'none needed' && LEXLIB=$ac_cv_lib_lex
-+fi
-+
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether yytext is a pointer" >&5
-+$as_echo_n "checking whether yytext is a pointer... " >&6; }
-+if ${ac_cv_prog_lex_yytext_pointer+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   # POSIX says lex can declare yytext either as a pointer or an array; the
--# default is implementation-dependent. Figure out which it is, since
-+# default is implementation-dependent.  Figure out which it is, since
- # not all implementations provide the %pointer and %array declarations.
- ac_cv_prog_lex_yytext_pointer=no
--echo 'extern char *yytext;' >>$LEX_OUTPUT_ROOT.c
--ac_save_LIBS="$LIBS"
--LIBS="$LIBS $LEXLIB"
--cat > conftest.$ac_ext <<EOF
--#line 1292 "configure"
--#include "confdefs.h"
--`cat $LEX_OUTPUT_ROOT.c`
--int main() {
-+ac_save_LIBS=$LIBS
-+LIBS="$LEXLIB $ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--; return 0; }
--EOF
--if { (eval echo configure:1299: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
-+  #define YYTEXT_POINTER 1
-+`cat $LEX_OUTPUT_ROOT.c`
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-   ac_cv_prog_lex_yytext_pointer=yes
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
- fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--rm -f "${LEX_OUTPUT_ROOT}.c"
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_save_LIBS
- 
- fi
--
--echo "$ac_t""$ac_cv_prog_lex_yytext_pointer" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_yytext_pointer" >&5
-+$as_echo "$ac_cv_prog_lex_yytext_pointer" >&6; }
- if test $ac_cv_prog_lex_yytext_pointer = yes; then
--  cat >> confdefs.h <<\EOF
--#define YYTEXT_POINTER 1
--EOF
-+
-+$as_echo "#define YYTEXT_POINTER 1" >>confdefs.h
-+
-+fi
-+rm -f conftest.l $LEX_OUTPUT_ROOT.c
- 
- fi
- 
-@@ -1321,340 +3838,392 @@
- fi
- for ac_prog in makeinfo
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1328: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_MAKEINFO'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_MAKEINFO+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$MAKEINFO"; then
-   ac_cv_prog_MAKEINFO="$MAKEINFO" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_MAKEINFO="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_MAKEINFO="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--MAKEINFO="$ac_cv_prog_MAKEINFO"
-+MAKEINFO=$ac_cv_prog_MAKEINFO
- if test -n "$MAKEINFO"; then
--  echo "$ac_t""$MAKEINFO" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAKEINFO" >&5
-+$as_echo "$MAKEINFO" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$MAKEINFO" && break
-+
-+  test -n "$MAKEINFO" && break
- done
- test -n "$MAKEINFO" || MAKEINFO="makeinfo"
- 
- for ac_prog in texi2html
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1363: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_TEXI2HTML'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_TEXI2HTML+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$TEXI2HTML"; then
-   ac_cv_prog_TEXI2HTML="$TEXI2HTML" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_TEXI2HTML="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_TEXI2HTML="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--TEXI2HTML="$ac_cv_prog_TEXI2HTML"
-+TEXI2HTML=$ac_cv_prog_TEXI2HTML
- if test -n "$TEXI2HTML"; then
--  echo "$ac_t""$TEXI2HTML" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TEXI2HTML" >&5
-+$as_echo "$TEXI2HTML" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$TEXI2HTML" && break
-+
-+  test -n "$TEXI2HTML" && break
- done
- test -n "$TEXI2HTML" || TEXI2HTML="texi2html"
- 
- for ac_prog in texi2dvi
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1398: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_TEXI2DVI'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_TEXI2DVI+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$TEXI2DVI"; then
-   ac_cv_prog_TEXI2DVI="$TEXI2DVI" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_TEXI2DVI="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_TEXI2DVI="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--TEXI2DVI="$ac_cv_prog_TEXI2DVI"
-+TEXI2DVI=$ac_cv_prog_TEXI2DVI
- if test -n "$TEXI2DVI"; then
--  echo "$ac_t""$TEXI2DVI" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TEXI2DVI" >&5
-+$as_echo "$TEXI2DVI" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$TEXI2DVI" && break
-+
-+  test -n "$TEXI2DVI" && break
- done
- 
- for ac_prog in fig2dev
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1432: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_FIG2DEV'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_FIG2DEV+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$FIG2DEV"; then
-   ac_cv_prog_FIG2DEV="$FIG2DEV" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_FIG2DEV="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_FIG2DEV="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--FIG2DEV="$ac_cv_prog_FIG2DEV"
-+FIG2DEV=$ac_cv_prog_FIG2DEV
- if test -n "$FIG2DEV"; then
--  echo "$ac_t""$FIG2DEV" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $FIG2DEV" >&5
-+$as_echo "$FIG2DEV" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$FIG2DEV" && break
-+
-+  test -n "$FIG2DEV" && break
- done
- 
- 
- 
- for ac_prog in timidity
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1468: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_TIMIDITY'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_TIMIDITY+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$TIMIDITY"; then
-   ac_cv_prog_TIMIDITY="$TIMIDITY" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_TIMIDITY="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_TIMIDITY="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--TIMIDITY="$ac_cv_prog_TIMIDITY"
-+TIMIDITY=$ac_cv_prog_TIMIDITY
- if test -n "$TIMIDITY"; then
--  echo "$ac_t""$TIMIDITY" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TIMIDITY" >&5
-+$as_echo "$TIMIDITY" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$TIMIDITY" && break
-+
-+  test -n "$TIMIDITY" && break
- done
- 
- for ac_prog in lame
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1502: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_LAME'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_LAME+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$LAME"; then
-   ac_cv_prog_LAME="$LAME" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_LAME="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_LAME="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--LAME="$ac_cv_prog_LAME"
-+LAME=$ac_cv_prog_LAME
- if test -n "$LAME"; then
--  echo "$ac_t""$LAME" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LAME" >&5
-+$as_echo "$LAME" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$LAME" && break
-+
-+  test -n "$LAME" && break
- done
- 
- for ac_prog in mididump
- do
--# Extract the first word of "$ac_prog", so it can be a program name with args.
-+  # Extract the first word of "$ac_prog", so it can be a program name with args.
- set dummy $ac_prog; ac_word=$2
--echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
--echo "configure:1536: checking for $ac_word" >&5
--if eval "test \"`echo '$''{'ac_cv_prog_MIDIDUMP'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-+$as_echo_n "checking for $ac_word... " >&6; }
-+if ${ac_cv_prog_MIDIDUMP+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   if test -n "$MIDIDUMP"; then
-   ac_cv_prog_MIDIDUMP="$MIDIDUMP" # Let the user override the test.
- else
--  IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS=":"
--  ac_dummy="$PATH"
--  for ac_dir in $ac_dummy; do
--    test -z "$ac_dir" && ac_dir=.
--    if test -f $ac_dir/$ac_word; then
--      ac_cv_prog_MIDIDUMP="$ac_prog"
--      break
--    fi
-+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    for ac_exec_ext in '' $ac_executable_extensions; do
-+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-+    ac_cv_prog_MIDIDUMP="$ac_prog"
-+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-+    break 2
-+  fi
-+done
-   done
--  IFS="$ac_save_ifs"
-+IFS=$as_save_IFS
-+
- fi
- fi
--MIDIDUMP="$ac_cv_prog_MIDIDUMP"
-+MIDIDUMP=$ac_cv_prog_MIDIDUMP
- if test -n "$MIDIDUMP"; then
--  echo "$ac_t""$MIDIDUMP" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MIDIDUMP" >&5
-+$as_echo "$MIDIDUMP" >&6; }
- else
--  echo "$ac_t""no" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
- fi
- 
--test -n "$MIDIDUMP" && break
-+
-+  test -n "$MIDIDUMP" && break
- done
- 
- 
- 
--echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6
--echo "configure:1568: checking for dlopen in -ldl" >&5
--ac_lib_var=`echo dl'_'dlopen | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-+$as_echo_n "checking for dlopen in -ldl... " >&6; }
-+if ${ac_cv_lib_dl_dlopen+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-ldl  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 1576 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char dlopen();
--
--int main() {
--dlopen()
--; return 0; }
--EOF
--if { (eval echo configure:1587: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--    ac_tr_lib=HAVE_LIB`echo dl | sed -e 's/[^a-zA-Z0-9_]/_/g' \
--    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
--  cat >> confdefs.h <<EOF
--#define $ac_tr_lib 1
--EOF
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char dlopen ();
-+int
-+main ()
-+{
-+return dlopen ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_dl_dlopen=yes
-+else
-+  ac_cv_lib_dl_dlopen=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-+$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-+if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
-+  cat >>confdefs.h <<_ACEOF
-+#define HAVE_LIBDL 1
-+_ACEOF
- 
-   LIBS="-ldl $LIBS"
- 
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
--echo $ac_n "checking for sqrt in -lm""... $ac_c" 1>&6
--echo "configure:1615: checking for sqrt in -lm" >&5
--ac_lib_var=`echo m'_'sqrt | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sqrt in -lm" >&5
-+$as_echo_n "checking for sqrt in -lm... " >&6; }
-+if ${ac_cv_lib_m_sqrt+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lm  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 1623 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char sqrt();
--
--int main() {
--sqrt()
--; return 0; }
--EOF
--if { (eval echo configure:1634: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--    ac_tr_lib=HAVE_LIB`echo m | sed -e 's/[^a-zA-Z0-9_]/_/g' \
--    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
--  cat >> confdefs.h <<EOF
--#define $ac_tr_lib 1
--EOF
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char sqrt ();
-+int
-+main ()
-+{
-+return sqrt ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_m_sqrt=yes
-+else
-+  ac_cv_lib_m_sqrt=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_m_sqrt" >&5
-+$as_echo "$ac_cv_lib_m_sqrt" >&6; }
-+if test "x$ac_cv_lib_m_sqrt" = xyes; then :
-+  cat >>confdefs.h <<_ACEOF
-+#define HAVE_LIBM 1
-+_ACEOF
- 
-   LIBS="-lm $LIBS"
- 
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
- 
-@@ -1664,54 +4233,62 @@
- PREV_CFLAGS=$CFLAGS
- PREV_CPPFLAGS=$CPPFLAGS
- 
--# Check whether --with-alsa-prefix or --without-alsa-prefix was given.
--if test "${with_alsa_prefix+set}" = set; then
--  withval="$with_alsa_prefix"
--  alsa_prefix="$withval"
-+alsa_save_CFLAGS="$CFLAGS"
-+alsa_save_LDFLAGS="$LDFLAGS"
-+alsa_save_LIBS="$LIBS"
-+alsa_found=yes
-+
-+
-+# Check whether --with-alsa-prefix was given.
-+if test "${with_alsa_prefix+set}" = set; then :
-+  withval=$with_alsa_prefix; alsa_prefix="$withval"
- else
-   alsa_prefix=""
- fi
- 
--# Check whether --with-alsa-inc-prefix or --without-alsa-inc-prefix was given.
--if test "${with_alsa_inc_prefix+set}" = set; then
--  withval="$with_alsa_inc_prefix"
--  alsa_inc_prefix="$withval"
-+
-+
-+# Check whether --with-alsa-inc-prefix was given.
-+if test "${with_alsa_inc_prefix+set}" = set; then :
-+  withval=$with_alsa_inc_prefix; alsa_inc_prefix="$withval"
- else
-   alsa_inc_prefix=""
- fi
- 
--# Check whether --enable-alsatest or --disable-alsatest was given.
--if test "${enable_alsatest+set}" = set; then
--  enableval="$enable_alsatest"
--  enable_alsatest=no
-+
-+# Check whether --enable-alsatest was given.
-+if test "${enable_alsatest+set}" = set; then :
-+  enableval=$enable_alsatest; enable_alsatest="$enableval"
- else
-   enable_alsatest=yes
- fi
- 
- 
--echo $ac_n "checking for ALSA CFLAGS""... $ac_c" 1>&6
--echo "configure:1694: checking for ALSA CFLAGS" >&5
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ALSA CFLAGS" >&5
-+$as_echo_n "checking for ALSA CFLAGS... " >&6; }
- if test "$alsa_inc_prefix" != "" ; then
- 	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
- 	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
- fi
--echo "$ac_t""$ALSA_CFLAGS" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ALSA_CFLAGS" >&5
-+$as_echo "$ALSA_CFLAGS" >&6; }
- 
--echo $ac_n "checking for ALSA LDFLAGS""... $ac_c" 1>&6
--echo "configure:1702: checking for ALSA LDFLAGS" >&5
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ALSA LDFLAGS" >&5
-+$as_echo_n "checking for ALSA LDFLAGS... " >&6; }
- if test "$alsa_prefix" != "" ; then
- 	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
--	LIBS="$LIBS -L$alsa_prefix"
-+	LDFLAGS="$LDFLAGS $ALSA_LIBS"
- fi
- 
--ALSA_LIBS="$ALSA_LIBS -lasound"
--LDFLAGS="$LDFLAGS $ALSA_LIBS"
--echo "$ac_t""$ALSA_LIBS" 1>&6
--
-+ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread"
-+LIBS="$ALSA_LIBS $LIBS"
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ALSA_LIBS" >&5
-+$as_echo "$ALSA_LIBS" >&6; }
- 
-+if test "x$enable_alsatest" = "xyes"; then
- min_alsa_version=0.1.1
--echo $ac_n "checking for libasound headers version >= $min_alsa_version""... $ac_c" 1>&6
--echo "configure:1715: checking for libasound headers version >= $min_alsa_version" >&5
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for libasound headers version >= $min_alsa_version" >&5
-+$as_echo_n "checking for libasound headers version >= $min_alsa_version... " >&6; }
- no_alsa=""
-     alsa_min_major_version=`echo $min_alsa_version | \
-            sed 's/\([0-9]*\).\([0-9]*\).\([0-9]*\)/\1/'`
-@@ -1722,22 +4299,20 @@
- 
- 
- ac_ext=c
--# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
- ac_cpp='$CPP $CPPFLAGS'
--ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
--ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
--cross_compiling=$ac_cv_prog_cc_cross
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
- 
--cat > conftest.$ac_ext <<EOF
--#line 1733 "configure"
--#include "confdefs.h"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--#include <sys/asoundlib.h>
-+#include <alsa/asoundlib.h>
- 
--int main() {
--
--void main(void)
-+int
-+main ()
- {
-+
- /* ensure backward compatibility */
- #if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
- #define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
-@@ -1769,79 +4344,96 @@
- #    endif
- #  endif
- exit(0);
--}
- 
--; return 0; }
--EOF
--if { (eval echo configure:1777: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
--  rm -rf conftest*
--  echo "$ac_t""found." 1>&6
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  echo "$ac_t""not present." 1>&6
--   echo "configure: warning: Sufficiently new version of libasound not found." 1>&2
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_compile "$LINENO"; then :
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: found." >&5
-+$as_echo "found." >&6; }
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: not present." >&5
-+$as_echo "not present." >&6; }
-+   as_fn_error $? "Sufficiently new version of libasound not found." "$LINENO" 5
-+   alsa_found=no
- 
- fi
--rm -f conftest*
-+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_ext=c
--# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
- ac_cpp='$CPP $CPPFLAGS'
--ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
--ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
--cross_compiling=$ac_cv_prog_cc_cross
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
- 
-+fi
- 
--echo $ac_n "checking for snd_cards in -lasound""... $ac_c" 1>&6
--echo "configure:1798: checking for snd_cards in -lasound" >&5
--ac_lib_var=`echo asound'_'snd_cards | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+if test "x$enable_alsatest" = "xyes"; then
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for snd_ctl_open in -lasound" >&5
-+$as_echo_n "checking for snd_ctl_open in -lasound... " >&6; }
-+if ${ac_cv_lib_asound_snd_ctl_open+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lasound  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 1806 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char snd_cards();
--
--int main() {
--snd_cards()
--; return 0; }
--EOF
--if { (eval echo configure:1817: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--    ac_tr_lib=HAVE_LIB`echo asound | sed -e 's/[^a-zA-Z0-9_]/_/g' \
--    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
--  cat >> confdefs.h <<EOF
--#define $ac_tr_lib 1
--EOF
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char snd_ctl_open ();
-+int
-+main ()
-+{
-+return snd_ctl_open ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_asound_snd_ctl_open=yes
-+else
-+  ac_cv_lib_asound_snd_ctl_open=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_asound_snd_ctl_open" >&5
-+$as_echo "$ac_cv_lib_asound_snd_ctl_open" >&6; }
-+if test "x$ac_cv_lib_asound_snd_ctl_open" = xyes; then :
-+  cat >>confdefs.h <<_ACEOF
-+#define HAVE_LIBASOUND 1
-+_ACEOF
- 
-   LIBS="-lasound $LIBS"
- 
- else
--  echo "$ac_t""no" 1>&6
--echo "configure: warning: No linkable libasound was found." 1>&2
-+  as_fn_error $? "No linkable libasound was found." "$LINENO" 5
-+	 alsa_found=no
-+
-+fi
- 
- fi
- 
-+if test "x$alsa_found" = "xyes" ; then
-+   :
-+   LIBS=`echo $LIBS | sed 's/-lasound//g'`
-+   LIBS=`echo $LIBS | sed 's/  //'`
-+   LIBS="-lasound $LIBS"
-+fi
-+if test "x$alsa_found" = "xno" ; then
-+   :
-+   CFLAGS="$alsa_save_CFLAGS"
-+   LDFLAGS="$alsa_save_LDFLAGS"
-+   LIBS="$alsa_save_LIBS"
-+   ALSA_CFLAGS=""
-+   ALSA_LIBS=""
-+fi
- 
- 
- 
-@@ -1853,17 +4445,151 @@
- CPPFLAGS=$PREV_CPPFLAGS
- 
- 
--# If we find X, set shell vars x_includes and x_libraries to the
--# paths, otherwise set no_x=yes.
--# Uses ac_ vars as temps to allow command line to override cache and checks.
--# --without-x overrides everything else, but does not touch the cache.
--echo $ac_n "checking for X""... $ac_c" 1>&6
--echo "configure:1862: checking for X" >&5
--
--# Check whether --with-x or --without-x was given.
--if test "${with_x+set}" = set; then
--  withval="$with_x"
--  :
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
-+$as_echo_n "checking how to run the C preprocessor... " >&6; }
-+# On Suns, sometimes $CPP names a directory.
-+if test -n "$CPP" && test -d "$CPP"; then
-+  CPP=
-+fi
-+if test -z "$CPP"; then
-+  if ${ac_cv_prog_CPP+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+      # Double quotes because CPP needs to be expanded
-+    for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
-+    do
-+      ac_preproc_ok=false
-+for ac_c_preproc_warn_flag in '' yes
-+do
-+  # Use a header file that comes with gcc, so configuring glibc
-+  # with a fresh cross-compiler works.
-+  # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-+  # <limits.h> exists even on freestanding compilers.
-+  # On the NeXT, cc -E runs the code through the compiler's parser,
-+  # not just through cpp. "Syntax error" is here to catch this case.
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#ifdef __STDC__
-+# include <limits.h>
-+#else
-+# include <assert.h>
-+#endif
-+		     Syntax error
-+_ACEOF
-+if ac_fn_c_try_cpp "$LINENO"; then :
-+
-+else
-+  # Broken: fails on valid input.
-+continue
-+fi
-+rm -f conftest.err conftest.i conftest.$ac_ext
-+
-+  # OK, works on sane cases.  Now check whether nonexistent headers
-+  # can be detected and how.
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <ac_nonexistent.h>
-+_ACEOF
-+if ac_fn_c_try_cpp "$LINENO"; then :
-+  # Broken: success on invalid input.
-+continue
-+else
-+  # Passes both tests.
-+ac_preproc_ok=:
-+break
-+fi
-+rm -f conftest.err conftest.i conftest.$ac_ext
-+
-+done
-+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-+rm -f conftest.i conftest.err conftest.$ac_ext
-+if $ac_preproc_ok; then :
-+  break
-+fi
-+
-+    done
-+    ac_cv_prog_CPP=$CPP
-+
-+fi
-+  CPP=$ac_cv_prog_CPP
-+else
-+  ac_cv_prog_CPP=$CPP
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
-+$as_echo "$CPP" >&6; }
-+ac_preproc_ok=false
-+for ac_c_preproc_warn_flag in '' yes
-+do
-+  # Use a header file that comes with gcc, so configuring glibc
-+  # with a fresh cross-compiler works.
-+  # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-+  # <limits.h> exists even on freestanding compilers.
-+  # On the NeXT, cc -E runs the code through the compiler's parser,
-+  # not just through cpp. "Syntax error" is here to catch this case.
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#ifdef __STDC__
-+# include <limits.h>
-+#else
-+# include <assert.h>
-+#endif
-+		     Syntax error
-+_ACEOF
-+if ac_fn_c_try_cpp "$LINENO"; then :
-+
-+else
-+  # Broken: fails on valid input.
-+continue
-+fi
-+rm -f conftest.err conftest.i conftest.$ac_ext
-+
-+  # OK, works on sane cases.  Now check whether nonexistent headers
-+  # can be detected and how.
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <ac_nonexistent.h>
-+_ACEOF
-+if ac_fn_c_try_cpp "$LINENO"; then :
-+  # Broken: success on invalid input.
-+continue
-+else
-+  # Passes both tests.
-+ac_preproc_ok=:
-+break
-+fi
-+rm -f conftest.err conftest.i conftest.$ac_ext
-+
-+done
-+# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-+rm -f conftest.i conftest.err conftest.$ac_ext
-+if $ac_preproc_ok; then :
-+
-+else
-+  { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-+as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
-+See \`config.log' for more details" "$LINENO" 5; }
-+fi
-+
-+ac_ext=c
-+ac_cpp='$CPP $CPPFLAGS'
-+ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-+ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-+ac_compiler_gnu=$ac_cv_c_compiler_gnu
-+
-+
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for X" >&5
-+$as_echo_n "checking for X... " >&6; }
-+
-+
-+# Check whether --with-x was given.
-+if test "${with_x+set}" = set; then :
-+  withval=$with_x;
- fi
- 
- # $have_x is `yes', `no', `disabled', or empty when we do not yet know.
-@@ -1871,227 +4597,189 @@
-   # The user explicitly disabled X.
-   have_x=disabled
- else
--  if test "x$x_includes" != xNONE && test "x$x_libraries" != xNONE; then
--    # Both variables are already set.
--    have_x=yes
--  else
--if eval "test \"`echo '$''{'ac_cv_have_x'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+  case $x_includes,$x_libraries in #(
-+    *\'*) as_fn_error $? "cannot use X directory names containing '" "$LINENO" 5;; #(
-+    *,NONE | NONE,*) if ${ac_cv_have_x+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
-   # One or both of the vars are not set, and there is no cached value.
--ac_x_includes=NO ac_x_libraries=NO
--rm -fr conftestdir
--if mkdir conftestdir; then
--  cd conftestdir
--  # Make sure to not put "make" in the Imakefile rules, since we grep it out.
--  cat > Imakefile <<'EOF'
--acfindx:
--	@echo 'ac_im_incroot="${INCROOT}"; ac_im_usrlibdir="${USRLIBDIR}"; ac_im_libdir="${LIBDIR}"'
--EOF
--  if (xmkmf) >/dev/null 2>/dev/null && test -f Makefile; then
--    # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
--    eval `${MAKE-make} acfindx 2>/dev/null | grep -v make`
-+ac_x_includes=no ac_x_libraries=no
-+rm -f -r conftest.dir
-+if mkdir conftest.dir; then
-+  cd conftest.dir
-+  cat >Imakefile <<'_ACEOF'
-+incroot:
-+	@echo incroot='${INCROOT}'
-+usrlibdir:
-+	@echo usrlibdir='${USRLIBDIR}'
-+libdir:
-+	@echo libdir='${LIBDIR}'
-+_ACEOF
-+  if (export CC; ${XMKMF-xmkmf}) >/dev/null 2>/dev/null && test -f Makefile; then
-+    # GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-+    for ac_var in incroot usrlibdir libdir; do
-+      eval "ac_im_$ac_var=\`\${MAKE-make} $ac_var 2>/dev/null | sed -n 's/^$ac_var=//p'\`"
-+    done
-     # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
--    for ac_extension in a so sl; do
--      if test ! -f $ac_im_usrlibdir/libX11.$ac_extension &&
--        test -f $ac_im_libdir/libX11.$ac_extension; then
--        ac_im_usrlibdir=$ac_im_libdir; break
-+    for ac_extension in a so sl dylib la dll; do
-+      if test ! -f "$ac_im_usrlibdir/libX11.$ac_extension" &&
-+	 test -f "$ac_im_libdir/libX11.$ac_extension"; then
-+	ac_im_usrlibdir=$ac_im_libdir; break
-       fi
-     done
-     # Screen out bogus values from the imake configuration.  They are
-     # bogus both because they are the default anyway, and because
-     # using them would break gcc on systems where it needs fixed includes.
--    case "$ac_im_incroot" in
--	/usr/include) ;;
--	*) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes="$ac_im_incroot" ;;
-+    case $ac_im_incroot in
-+	/usr/include) ac_x_includes= ;;
-+	*) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes=$ac_im_incroot;;
-     esac
--    case "$ac_im_usrlibdir" in
--	/usr/lib | /lib) ;;
--	*) test -d "$ac_im_usrlibdir" && ac_x_libraries="$ac_im_usrlibdir" ;;
-+    case $ac_im_usrlibdir in
-+	/usr/lib | /usr/lib64 | /lib | /lib64) ;;
-+	*) test -d "$ac_im_usrlibdir" && ac_x_libraries=$ac_im_usrlibdir ;;
-     esac
-   fi
-   cd ..
--  rm -fr conftestdir
-+  rm -f -r conftest.dir
- fi
- 
--if test "$ac_x_includes" = NO; then
--  # Guess where to find include files, by looking for this one X11 .h file.
--  test -z "$x_direct_test_include" && x_direct_test_include=X11/Intrinsic.h
-+# Standard set of common directories for X headers.
-+# Check X11 before X11Rn because it is often a symlink to the current release.
-+ac_x_header_dirs='
-+/usr/X11/include
-+/usr/X11R7/include
-+/usr/X11R6/include
-+/usr/X11R5/include
-+/usr/X11R4/include
-+
-+/usr/include/X11
-+/usr/include/X11R7
-+/usr/include/X11R6
-+/usr/include/X11R5
-+/usr/include/X11R4
-+
-+/usr/local/X11/include
-+/usr/local/X11R7/include
-+/usr/local/X11R6/include
-+/usr/local/X11R5/include
-+/usr/local/X11R4/include
-+
-+/usr/local/include/X11
-+/usr/local/include/X11R7
-+/usr/local/include/X11R6
-+/usr/local/include/X11R5
-+/usr/local/include/X11R4
-+
-+/usr/X386/include
-+/usr/x386/include
-+/usr/XFree86/include/X11
-+
-+/usr/include
-+/usr/local/include
-+/usr/unsupported/include
-+/usr/athena/include
-+/usr/local/x11r5/include
-+/usr/lpp/Xamples/include
-+
-+/usr/openwin/include
-+/usr/openwin/share/include'
- 
-+if test "$ac_x_includes" = no; then
-+  # Guess where to find include files, by looking for Xlib.h.
-   # First, try using that file with no special directory specified.
--cat > conftest.$ac_ext <<EOF
--#line 1924 "configure"
--#include "confdefs.h"
--#include <$x_direct_test_include>
--EOF
--ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
--{ (eval echo configure:1929: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
--ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"`
--if test -z "$ac_err"; then
--  rm -rf conftest*
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <X11/Xlib.h>
-+_ACEOF
-+if ac_fn_c_try_cpp "$LINENO"; then :
-   # We can compile using X headers with no special include directory.
- ac_x_includes=
- else
--  echo "$ac_err" >&5
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  # Look for the header file in a standard set of common directories.
--# Check X11 before X11Rn because it is often a symlink to the current release.
--  for ac_dir in               \
--    /usr/X11/include          \
--    /usr/X11R6/include        \
--    /usr/X11R5/include        \
--    /usr/X11R4/include        \
--                              \
--    /usr/include/X11          \
--    /usr/include/X11R6        \
--    /usr/include/X11R5        \
--    /usr/include/X11R4        \
--                              \
--    /usr/local/X11/include    \
--    /usr/local/X11R6/include  \
--    /usr/local/X11R5/include  \
--    /usr/local/X11R4/include  \
--                              \
--    /usr/local/include/X11    \
--    /usr/local/include/X11R6  \
--    /usr/local/include/X11R5  \
--    /usr/local/include/X11R4  \
--                              \
--    /usr/X386/include         \
--    /usr/x386/include         \
--    /usr/XFree86/include/X11  \
--                              \
--    /usr/include              \
--    /usr/local/include        \
--    /usr/unsupported/include  \
--    /usr/athena/include       \
--    /usr/local/x11r5/include  \
--    /usr/lpp/Xamples/include  \
--                              \
--    /usr/openwin/include      \
--    /usr/openwin/share/include \
--    ; \
--  do
--    if test -r "$ac_dir/$x_direct_test_include"; then
--      ac_x_includes=$ac_dir
--      break
--    fi
--  done
-+  for ac_dir in $ac_x_header_dirs; do
-+  if test -r "$ac_dir/X11/Xlib.h"; then
-+    ac_x_includes=$ac_dir
-+    break
-+  fi
-+done
- fi
--rm -f conftest*
--fi # $ac_x_includes = NO
-+rm -f conftest.err conftest.i conftest.$ac_ext
-+fi # $ac_x_includes = no
- 
--if test "$ac_x_libraries" = NO; then
-+if test "$ac_x_libraries" = no; then
-   # Check for the libraries.
--
--  test -z "$x_direct_test_library" && x_direct_test_library=Xt
--  test -z "$x_direct_test_function" && x_direct_test_function=XtMalloc
--
-   # See if we find them without any special options.
-   # Don't add to $LIBS permanently.
--  ac_save_LIBS="$LIBS"
--  LIBS="-l$x_direct_test_library $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 1998 "configure"
--#include "confdefs.h"
--
--int main() {
--${x_direct_test_function}()
--; return 0; }
--EOF
--if { (eval echo configure:2005: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  LIBS="$ac_save_LIBS"
-+  ac_save_LIBS=$LIBS
-+  LIBS="-lX11 $LIBS"
-+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+#include <X11/Xlib.h>
-+int
-+main ()
-+{
-+XrmInitialize ()
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  LIBS=$ac_save_LIBS
- # We can link X programs with no special library path.
- ac_x_libraries=
- else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  LIBS="$ac_save_LIBS"
--# First see if replacing the include by lib works.
--# Check X11 before X11Rn because it is often a symlink to the current release.
--for ac_dir in `echo "$ac_x_includes" | sed s/include/lib/` \
--    /usr/X11/lib          \
--    /usr/X11R6/lib        \
--    /usr/X11R5/lib        \
--    /usr/X11R4/lib        \
--                          \
--    /usr/lib/X11          \
--    /usr/lib/X11R6        \
--    /usr/lib/X11R5        \
--    /usr/lib/X11R4        \
--                          \
--    /usr/local/X11/lib    \
--    /usr/local/X11R6/lib  \
--    /usr/local/X11R5/lib  \
--    /usr/local/X11R4/lib  \
--                          \
--    /usr/local/lib/X11    \
--    /usr/local/lib/X11R6  \
--    /usr/local/lib/X11R5  \
--    /usr/local/lib/X11R4  \
--                          \
--    /usr/X386/lib         \
--    /usr/x386/lib         \
--    /usr/XFree86/lib/X11  \
--                          \
--    /usr/lib              \
--    /usr/local/lib        \
--    /usr/unsupported/lib  \
--    /usr/athena/lib       \
--    /usr/local/x11r5/lib  \
--    /usr/lpp/Xamples/lib  \
--    /lib/usr/lib/X11	  \
--                          \
--    /usr/openwin/lib      \
--    /usr/openwin/share/lib \
--    ; \
-+  LIBS=$ac_save_LIBS
-+for ac_dir in `$as_echo "$ac_x_includes $ac_x_header_dirs" | sed s/include/lib/g`
- do
--  for ac_extension in a so sl; do
--    if test -r $ac_dir/lib${x_direct_test_library}.$ac_extension; then
-+  # Don't even attempt the hair of trying to link an X program!
-+  for ac_extension in a so sl dylib la dll; do
-+    if test -r "$ac_dir/libX11.$ac_extension"; then
-       ac_x_libraries=$ac_dir
-       break 2
-     fi
-   done
- done
- fi
--rm -f conftest*
--fi # $ac_x_libraries = NO
--
--if test "$ac_x_includes" = NO || test "$ac_x_libraries" = NO; then
--  # Didn't find X anywhere.  Cache the known absence of X.
--  ac_cv_have_x="have_x=no"
--else
--  # Record where we found X for the cache.
--  ac_cv_have_x="have_x=yes \
--	        ac_x_includes=$ac_x_includes ac_x_libraries=$ac_x_libraries"
--fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+fi # $ac_x_libraries = no
-+
-+case $ac_x_includes,$ac_x_libraries in #(
-+  no,* | *,no | *\'*)
-+    # Didn't find X, or a directory has "'" in its name.
-+    ac_cv_have_x="have_x=no";; #(
-+  *)
-+    # Record where we found X for the cache.
-+    ac_cv_have_x="have_x=yes\
-+	ac_x_includes='$ac_x_includes'\
-+	ac_x_libraries='$ac_x_libraries'"
-+esac
- fi
--  fi
-+;; #(
-+    *) have_x=yes;;
-+  esac
-   eval "$ac_cv_have_x"
- fi # $with_x != no
- 
- if test "$have_x" != yes; then
--  echo "$ac_t""$have_x" 1>&6
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $have_x" >&5
-+$as_echo "$have_x" >&6; }
-   no_x=yes
- else
-   # If each of the values was on the command line, it overrides each guess.
-   test "x$x_includes" = xNONE && x_includes=$ac_x_includes
-   test "x$x_libraries" = xNONE && x_libraries=$ac_x_libraries
-   # Update the cache value to reflect the command line values.
--  ac_cv_have_x="have_x=yes \
--		ac_x_includes=$x_includes ac_x_libraries=$x_libraries"
--  echo "$ac_t""libraries $x_libraries, headers $x_includes" 1>&6
-+  ac_cv_have_x="have_x=yes\
-+	ac_x_includes='$x_includes'\
-+	ac_x_libraries='$x_libraries'"
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: libraries $x_libraries, headers $x_includes" >&5
-+$as_echo "libraries $x_libraries, headers $x_includes" >&6; }
- fi
- 
- if test "$no_x" = yes; then
-   # Not all programs may use this symbol, but it does not hurt to define it.
--  cat >> confdefs.h <<\EOF
--#define X_DISPLAY_MISSING 1
--EOF
-+
-+$as_echo "#define X_DISPLAY_MISSING 1" >>confdefs.h
- 
-   X_CFLAGS= X_PRE_LIBS= X_LIBS= X_EXTRA_LIBS=
- else
-@@ -2104,61 +4792,54 @@
-     X_LIBS="$X_LIBS -L$x_libraries"
-     # For Solaris; some versions of Sun CC require a space after -R and
-     # others require no space.  Words are not sufficient . . . .
--    case "`(uname -sr) 2>/dev/null`" in
--    "SunOS 5"*)
--      echo $ac_n "checking whether -R must be followed by a space""... $ac_c" 1>&6
--echo "configure:2111: checking whether -R must be followed by a space" >&5
--      ac_xsave_LIBS="$LIBS"; LIBS="$LIBS -R$x_libraries"
--      cat > conftest.$ac_ext <<EOF
--#line 2114 "configure"
--#include "confdefs.h"
--
--int main() {
--
--; return 0; }
--EOF
--if { (eval echo configure:2121: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  ac_R_nospace=yes
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  ac_R_nospace=no
--fi
--rm -f conftest*
--      if test $ac_R_nospace = yes; then
--	echo "$ac_t""no" 1>&6
--	X_LIBS="$X_LIBS -R$x_libraries"
--      else
--	LIBS="$ac_xsave_LIBS -R $x_libraries"
--	cat > conftest.$ac_ext <<EOF
--#line 2137 "configure"
--#include "confdefs.h"
--
--int main() {
--
--; return 0; }
--EOF
--if { (eval echo configure:2144: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  ac_R_space=yes
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  ac_R_space=no
--fi
--rm -f conftest*
--	if test $ac_R_space = yes; then
--	  echo "$ac_t""yes" 1>&6
-+    { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -R must be followed by a space" >&5
-+$as_echo_n "checking whether -R must be followed by a space... " >&6; }
-+    ac_xsave_LIBS=$LIBS; LIBS="$LIBS -R$x_libraries"
-+    ac_xsave_c_werror_flag=$ac_c_werror_flag
-+    ac_c_werror_flag=yes
-+    cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-+$as_echo "no" >&6; }
-+       X_LIBS="$X_LIBS -R$x_libraries"
-+else
-+  LIBS="$ac_xsave_LIBS -R $x_libraries"
-+       cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+int
-+main ()
-+{
-+
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-+$as_echo "yes" >&6; }
- 	  X_LIBS="$X_LIBS -R $x_libraries"
--	else
--	  echo "$ac_t""neither works" 1>&6
--	fi
--      fi
--      LIBS="$ac_xsave_LIBS"
--    esac
-+else
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: neither works" >&5
-+$as_echo "neither works" >&6; }
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+    ac_c_werror_flag=$ac_xsave_c_werror_flag
-+    LIBS=$ac_xsave_LIBS
-   fi
- 
-   # Check for system-dependent libraries X programs must link with.
-@@ -2168,528 +4849,426 @@
-   if test "$ISC" = yes; then
-     X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl_s -linet"
-   else
--    # Martyn.Johnson@cl.cam.ac.uk says this is needed for Ultrix, if the X
--    # libraries were built with DECnet support.  And karl@cs.umb.edu says
-+    # Martyn Johnson says this is needed for Ultrix, if the X
-+    # libraries were built with DECnet support.  And Karl Berry says
-     # the Alpha needs dnet_stub (dnet does not exist).
--    echo $ac_n "checking for dnet_ntoa in -ldnet""... $ac_c" 1>&6
--echo "configure:2176: checking for dnet_ntoa in -ldnet" >&5
--ac_lib_var=`echo dnet'_'dnet_ntoa | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+    ac_xsave_LIBS="$LIBS"; LIBS="$LIBS $X_LIBS -lX11"
-+    cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char XOpenDisplay ();
-+int
-+main ()
-+{
-+return XOpenDisplay ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+
- else
--  ac_save_LIBS="$LIBS"
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dnet_ntoa in -ldnet" >&5
-+$as_echo_n "checking for dnet_ntoa in -ldnet... " >&6; }
-+if ${ac_cv_lib_dnet_dnet_ntoa+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-ldnet  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2184 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char dnet_ntoa();
--
--int main() {
--dnet_ntoa()
--; return 0; }
--EOF
--if { (eval echo configure:2195: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char dnet_ntoa ();
-+int
-+main ()
-+{
-+return dnet_ntoa ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_dnet_dnet_ntoa=yes
-+else
-+  ac_cv_lib_dnet_dnet_ntoa=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dnet_dnet_ntoa" >&5
-+$as_echo "$ac_cv_lib_dnet_dnet_ntoa" >&6; }
-+if test "x$ac_cv_lib_dnet_dnet_ntoa" = xyes; then :
-   X_EXTRA_LIBS="$X_EXTRA_LIBS -ldnet"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     if test $ac_cv_lib_dnet_dnet_ntoa = no; then
--      echo $ac_n "checking for dnet_ntoa in -ldnet_stub""... $ac_c" 1>&6
--echo "configure:2217: checking for dnet_ntoa in -ldnet_stub" >&5
--ac_lib_var=`echo dnet_stub'_'dnet_ntoa | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dnet_ntoa in -ldnet_stub" >&5
-+$as_echo_n "checking for dnet_ntoa in -ldnet_stub... " >&6; }
-+if ${ac_cv_lib_dnet_stub_dnet_ntoa+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-ldnet_stub  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2225 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char dnet_ntoa();
--
--int main() {
--dnet_ntoa()
--; return 0; }
--EOF
--if { (eval echo configure:2236: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char dnet_ntoa ();
-+int
-+main ()
-+{
-+return dnet_ntoa ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_dnet_stub_dnet_ntoa=yes
-+else
-+  ac_cv_lib_dnet_stub_dnet_ntoa=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dnet_stub_dnet_ntoa" >&5
-+$as_echo "$ac_cv_lib_dnet_stub_dnet_ntoa" >&6; }
-+if test "x$ac_cv_lib_dnet_stub_dnet_ntoa" = xyes; then :
-   X_EXTRA_LIBS="$X_EXTRA_LIBS -ldnet_stub"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     fi
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+    LIBS="$ac_xsave_LIBS"
- 
-     # msh@cis.ufl.edu says -lnsl (and -lsocket) are needed for his 386/AT,
-     # to get the SysV transport functions.
--    # chad@anasazi.com says the Pyramis MIS-ES running DC/OSx (SVR4)
-+    # Chad R. Larson says the Pyramis MIS-ES running DC/OSx (SVR4)
-     # needs -lnsl.
-     # The nsl library prevents programs from opening the X display
--    # on Irix 5.2, according to dickey@clark.net.
--    echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6
--echo "configure:2265: checking for gethostbyname" >&5
--if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  cat > conftest.$ac_ext <<EOF
--#line 2270 "configure"
--#include "confdefs.h"
--/* System header to define __stub macros and hopefully few prototypes,
--    which can conflict with char gethostbyname(); below.  */
--#include <assert.h>
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char gethostbyname();
--
--int main() {
--
--/* The GNU C library defines this for functions which it implements
--    to always fail with ENOSYS.  Some functions are actually named
--    something starting with __ and the normal name is an alias.  */
--#if defined (__stub_gethostbyname) || defined (__stub___gethostbyname)
--choke me
--#else
--gethostbyname();
--#endif
--
--; return 0; }
--EOF
--if { (eval echo configure:2293: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_func_gethostbyname=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_func_gethostbyname=no"
--fi
--rm -f conftest*
--fi
-+    # on Irix 5.2, according to T.E. Dickey.
-+    # The functions gethostbyname, getservbyname, and inet_addr are
-+    # in -lbsd on LynxOS 3.0.1/i386, according to Lars Hecking.
-+    ac_fn_c_check_func "$LINENO" "gethostbyname" "ac_cv_func_gethostbyname"
-+if test "x$ac_cv_func_gethostbyname" = xyes; then :
- 
--if eval "test \"`echo '$ac_cv_func_'gethostbyname`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  :
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     if test $ac_cv_func_gethostbyname = no; then
--      echo $ac_n "checking for gethostbyname in -lnsl""... $ac_c" 1>&6
--echo "configure:2314: checking for gethostbyname in -lnsl" >&5
--ac_lib_var=`echo nsl'_'gethostbyname | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gethostbyname in -lnsl" >&5
-+$as_echo_n "checking for gethostbyname in -lnsl... " >&6; }
-+if ${ac_cv_lib_nsl_gethostbyname+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lnsl  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2322 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char gethostbyname();
--
--int main() {
--gethostbyname()
--; return 0; }
--EOF
--if { (eval echo configure:2333: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl"
--else
--  echo "$ac_t""no" 1>&6
--fi
--
--    fi
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--    # lieder@skyler.mavd.honeywell.com says without -lsocket,
--    # socket/setsockopt and other routines are undefined under SCO ODT
--    # 2.0.  But -lsocket is broken on IRIX 5.2 (and is not necessary
--    # on later versions), says simon@lia.di.epfl.ch: it contains
--    # gethostby* variants that don't use the nameserver (or something).
--    # -lsocket must be given before -lnsl if both are needed.
--    # We assume that if connect needs -lnsl, so does gethostbyname.
--    echo $ac_n "checking for connect""... $ac_c" 1>&6
--echo "configure:2363: checking for connect" >&5
--if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  cat > conftest.$ac_ext <<EOF
--#line 2368 "configure"
--#include "confdefs.h"
--/* System header to define __stub macros and hopefully few prototypes,
--    which can conflict with char connect(); below.  */
--#include <assert.h>
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char connect();
--
--int main() {
--
--/* The GNU C library defines this for functions which it implements
--    to always fail with ENOSYS.  Some functions are actually named
--    something starting with __ and the normal name is an alias.  */
--#if defined (__stub_connect) || defined (__stub___connect)
--choke me
--#else
--connect();
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
- #endif
--
--; return 0; }
--EOF
--if { (eval echo configure:2391: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_func_connect=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_func_connect=no"
-+char gethostbyname ();
-+int
-+main ()
-+{
-+return gethostbyname ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_nsl_gethostbyname=yes
-+else
-+  ac_cv_lib_nsl_gethostbyname=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_nsl_gethostbyname" >&5
-+$as_echo "$ac_cv_lib_nsl_gethostbyname" >&6; }
-+if test "x$ac_cv_lib_nsl_gethostbyname" = xyes; then :
-+  X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl"
- fi
--rm -f conftest*
-+
-+      if test $ac_cv_lib_nsl_gethostbyname = no; then
-+	{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for gethostbyname in -lbsd" >&5
-+$as_echo_n "checking for gethostbyname in -lbsd... " >&6; }
-+if ${ac_cv_lib_bsd_gethostbyname+:} false; then :
-+  $as_echo_n "(cached) " >&6
-+else
-+  ac_check_lib_save_LIBS=$LIBS
-+LIBS="-lbsd  $LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char gethostbyname ();
-+int
-+main ()
-+{
-+return gethostbyname ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_bsd_gethostbyname=yes
-+else
-+  ac_cv_lib_bsd_gethostbyname=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_bsd_gethostbyname" >&5
-+$as_echo "$ac_cv_lib_bsd_gethostbyname" >&6; }
-+if test "x$ac_cv_lib_bsd_gethostbyname" = xyes; then :
-+  X_EXTRA_LIBS="$X_EXTRA_LIBS -lbsd"
- fi
- 
--if eval "test \"`echo '$ac_cv_func_'connect`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  :
--else
--  echo "$ac_t""no" 1>&6
-+      fi
-+    fi
-+
-+    # lieder@skyler.mavd.honeywell.com says without -lsocket,
-+    # socket/setsockopt and other routines are undefined under SCO ODT
-+    # 2.0.  But -lsocket is broken on IRIX 5.2 (and is not necessary
-+    # on later versions), says Simon Leinen: it contains gethostby*
-+    # variants that don't use the name server (or something).  -lsocket
-+    # must be given before -lnsl if both are needed.  We assume that
-+    # if connect needs -lnsl, so does gethostbyname.
-+    ac_fn_c_check_func "$LINENO" "connect" "ac_cv_func_connect"
-+if test "x$ac_cv_func_connect" = xyes; then :
-+
- fi
- 
-     if test $ac_cv_func_connect = no; then
--      echo $ac_n "checking for connect in -lsocket""... $ac_c" 1>&6
--echo "configure:2412: checking for connect in -lsocket" >&5
--ac_lib_var=`echo socket'_'connect | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: checking for connect in -lsocket" >&5
-+$as_echo_n "checking for connect in -lsocket... " >&6; }
-+if ${ac_cv_lib_socket_connect+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lsocket $X_EXTRA_LIBS $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2420 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char connect();
--
--int main() {
--connect()
--; return 0; }
--EOF
--if { (eval echo configure:2431: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char connect ();
-+int
-+main ()
-+{
-+return connect ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_socket_connect=yes
-+else
-+  ac_cv_lib_socket_connect=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_socket_connect" >&5
-+$as_echo "$ac_cv_lib_socket_connect" >&6; }
-+if test "x$ac_cv_lib_socket_connect" = xyes; then :
-   X_EXTRA_LIBS="-lsocket $X_EXTRA_LIBS"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     fi
- 
--    # gomez@mi.uni-erlangen.de says -lposix is necessary on A/UX.
--    echo $ac_n "checking for remove""... $ac_c" 1>&6
--echo "configure:2455: checking for remove" >&5
--if eval "test \"`echo '$''{'ac_cv_func_remove'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  cat > conftest.$ac_ext <<EOF
--#line 2460 "configure"
--#include "confdefs.h"
--/* System header to define __stub macros and hopefully few prototypes,
--    which can conflict with char remove(); below.  */
--#include <assert.h>
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char remove();
--
--int main() {
--
--/* The GNU C library defines this for functions which it implements
--    to always fail with ENOSYS.  Some functions are actually named
--    something starting with __ and the normal name is an alias.  */
--#if defined (__stub_remove) || defined (__stub___remove)
--choke me
--#else
--remove();
--#endif
--
--; return 0; }
--EOF
--if { (eval echo configure:2483: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_func_remove=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_func_remove=no"
--fi
--rm -f conftest*
--fi
-+    # Guillermo Gomez says -lposix is necessary on A/UX.
-+    ac_fn_c_check_func "$LINENO" "remove" "ac_cv_func_remove"
-+if test "x$ac_cv_func_remove" = xyes; then :
- 
--if eval "test \"`echo '$ac_cv_func_'remove`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  :
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     if test $ac_cv_func_remove = no; then
--      echo $ac_n "checking for remove in -lposix""... $ac_c" 1>&6
--echo "configure:2504: checking for remove in -lposix" >&5
--ac_lib_var=`echo posix'_'remove | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: checking for remove in -lposix" >&5
-+$as_echo_n "checking for remove in -lposix... " >&6; }
-+if ${ac_cv_lib_posix_remove+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lposix  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2512 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char remove();
--
--int main() {
--remove()
--; return 0; }
--EOF
--if { (eval echo configure:2523: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char remove ();
-+int
-+main ()
-+{
-+return remove ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_posix_remove=yes
-+else
-+  ac_cv_lib_posix_remove=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_posix_remove" >&5
-+$as_echo "$ac_cv_lib_posix_remove" >&6; }
-+if test "x$ac_cv_lib_posix_remove" = xyes; then :
-   X_EXTRA_LIBS="$X_EXTRA_LIBS -lposix"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     fi
- 
-     # BSDI BSD/OS 2.1 needs -lipc for XOpenDisplay.
--    echo $ac_n "checking for shmat""... $ac_c" 1>&6
--echo "configure:2547: checking for shmat" >&5
--if eval "test \"`echo '$''{'ac_cv_func_shmat'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
--else
--  cat > conftest.$ac_ext <<EOF
--#line 2552 "configure"
--#include "confdefs.h"
--/* System header to define __stub macros and hopefully few prototypes,
--    which can conflict with char shmat(); below.  */
--#include <assert.h>
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char shmat();
--
--int main() {
--
--/* The GNU C library defines this for functions which it implements
--    to always fail with ENOSYS.  Some functions are actually named
--    something starting with __ and the normal name is an alias.  */
--#if defined (__stub_shmat) || defined (__stub___shmat)
--choke me
--#else
--shmat();
--#endif
--
--; return 0; }
--EOF
--if { (eval echo configure:2575: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_func_shmat=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_func_shmat=no"
--fi
--rm -f conftest*
--fi
-+    ac_fn_c_check_func "$LINENO" "shmat" "ac_cv_func_shmat"
-+if test "x$ac_cv_func_shmat" = xyes; then :
- 
--if eval "test \"`echo '$ac_cv_func_'shmat`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--  :
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     if test $ac_cv_func_shmat = no; then
--      echo $ac_n "checking for shmat in -lipc""... $ac_c" 1>&6
--echo "configure:2596: checking for shmat in -lipc" >&5
--ac_lib_var=`echo ipc'_'shmat | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shmat in -lipc" >&5
-+$as_echo_n "checking for shmat in -lipc... " >&6; }
-+if ${ac_cv_lib_ipc_shmat+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lipc  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2604 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char shmat();
--
--int main() {
--shmat()
--; return 0; }
--EOF
--if { (eval echo configure:2615: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char shmat ();
-+int
-+main ()
-+{
-+return shmat ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_ipc_shmat=yes
-+else
-+  ac_cv_lib_ipc_shmat=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ipc_shmat" >&5
-+$as_echo "$ac_cv_lib_ipc_shmat" >&6; }
-+if test "x$ac_cv_lib_ipc_shmat" = xyes; then :
-   X_EXTRA_LIBS="$X_EXTRA_LIBS -lipc"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
-     fi
-   fi
- 
-   # Check for libraries that X11R6 Xt/Xaw programs need.
--  ac_save_LDFLAGS="$LDFLAGS"
-+  ac_save_LDFLAGS=$LDFLAGS
-   test -n "$x_libraries" && LDFLAGS="$LDFLAGS -L$x_libraries"
-   # SM needs ICE to (dynamically) link under SunOS 4.x (so we have to
-   # check for ICE first), but we must link in the order -lSM -lICE or
-   # we get undefined symbols.  So assume we have SM if we have ICE.
-   # These have to be linked with before -lX11, unlike the other
-   # libraries we check for below, so use a different variable.
--  #  --interran@uluru.Stanford.EDU, kb@cs.umb.edu.
--  echo $ac_n "checking for IceConnectionNumber in -lICE""... $ac_c" 1>&6
--echo "configure:2648: checking for IceConnectionNumber in -lICE" >&5
--ac_lib_var=`echo ICE'_'IceConnectionNumber | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+  # John Interrante, Karl Berry
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for IceConnectionNumber in -lICE" >&5
-+$as_echo_n "checking for IceConnectionNumber in -lICE... " >&6; }
-+if ${ac_cv_lib_ICE_IceConnectionNumber+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lICE $X_EXTRA_LIBS $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2656 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char IceConnectionNumber();
--
--int main() {
--IceConnectionNumber()
--; return 0; }
--EOF
--if { (eval echo configure:2667: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char IceConnectionNumber ();
-+int
-+main ()
-+{
-+return IceConnectionNumber ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_ICE_IceConnectionNumber=yes
-+else
-+  ac_cv_lib_ICE_IceConnectionNumber=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ICE_IceConnectionNumber" >&5
-+$as_echo "$ac_cv_lib_ICE_IceConnectionNumber" >&6; }
-+if test "x$ac_cv_lib_ICE_IceConnectionNumber" = xyes; then :
-   X_PRE_LIBS="$X_PRE_LIBS -lSM -lICE"
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
--  LDFLAGS="$ac_save_LDFLAGS"
-+  LDFLAGS=$ac_save_LDFLAGS
- 
- fi
- 
- 
- if test "x$have_x" = xno; then
--      { echo "configure: error: Could not configure X" 1>&2; exit 1; }
-+      as_fn_error $? "Could not configure X" "$LINENO" 5
- fi
- if test "x$x_libraries" != x; then
-     ldflags_x_opt="-L$x_libraries"
-@@ -2702,90 +5281,92 @@
-     CPPFLAGS="$CPPFLAGS -I$x_includes"
- fi
- 
--echo $ac_n "checking for XOpenDisplay in -lX11""... $ac_c" 1>&6
--echo "configure:2707: checking for XOpenDisplay in -lX11" >&5
--ac_lib_var=`echo X11'_'XOpenDisplay | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for XOpenDisplay in -lX11" >&5
-+$as_echo_n "checking for XOpenDisplay in -lX11... " >&6; }
-+if ${ac_cv_lib_X11_XOpenDisplay+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-lX11  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2715 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char XOpenDisplay();
--
--int main() {
--XOpenDisplay()
--; return 0; }
--EOF
--if { (eval echo configure:2726: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
--
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
--    ac_tr_lib=HAVE_LIB`echo X11 | sed -e 's/[^a-zA-Z0-9_]/_/g' \
--    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
--  cat >> confdefs.h <<EOF
--#define $ac_tr_lib 1
--EOF
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
-+
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char XOpenDisplay ();
-+int
-+main ()
-+{
-+return XOpenDisplay ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  ac_cv_lib_X11_XOpenDisplay=yes
-+else
-+  ac_cv_lib_X11_XOpenDisplay=no
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_X11_XOpenDisplay" >&5
-+$as_echo "$ac_cv_lib_X11_XOpenDisplay" >&6; }
-+if test "x$ac_cv_lib_X11_XOpenDisplay" = xyes; then :
-+  cat >>confdefs.h <<_ACEOF
-+#define HAVE_LIBX11 1
-+_ACEOF
- 
-   LIBS="-lX11 $LIBS"
- 
--else
--  echo "$ac_t""no" 1>&6
- fi
- 
- 
- 
--# Check whether --with-tcl-includes or --without-tcl-includes was given.
--if test "${with_tcl_includes+set}" = set; then
--  withval="$with_tcl_includes"
--   if test ! -d $withval; then
--      echo "configure: warning: $withval is not found." 1>&2
-+
-+# Check whether --with-tcl-includes was given.
-+if test "${with_tcl_includes+set}" = set; then :
-+  withval=$with_tcl_includes;  if test ! -d $withval; then
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $withval is not found." >&5
-+$as_echo "$as_me: WARNING: $withval is not found." >&2;}
-     fi
-     tcl_include_dir="-I$withval"
--  
-+
- fi
- 
--# Check whether --with-tcl-libs or --without-tcl-libs was given.
--if test "${with_tcl_libs+set}" = set; then
--  withval="$with_tcl_libs"
--   if test ! -d $withval; then
--      echo "configure: warning: $withval is not found." 1>&2
-+
-+# Check whether --with-tcl-libs was given.
-+if test "${with_tcl_libs+set}" = set; then :
-+  withval=$with_tcl_libs;  if test ! -d $withval; then
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $withval is not found." >&5
-+$as_echo "$as_me: WARNING: $withval is not found." >&2;}
-     fi
--    tcl_libdir="-L$withval" 
-+    tcl_libdir="-L$withval"
- fi
- 
--# Check whether --with-tk-includes or --without-tk-includes was given.
--if test "${with_tk_includes+set}" = set; then
--  withval="$with_tk_includes"
--   if test ! -d $withval; then
--      echo "configure: warning: $withval is not found." 1>&2
-+
-+# Check whether --with-tk-includes was given.
-+if test "${with_tk_includes+set}" = set; then :
-+  withval=$with_tk_includes;  if test ! -d $withval; then
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $withval is not found." >&5
-+$as_echo "$as_me: WARNING: $withval is not found." >&2;}
-     fi
--    tk_includes="-I$withval" 
-+    tk_includes="-I$withval"
- fi
- 
--# Check whether --with-tk-libs or --without-tk-libs was given.
--if test "${with_tk_libs+set}" = set; then
--  withval="$with_tk_libs"
--   if test ! -d $withval; then
--      echo "configure: warning: $withval is not found." 1>&2
-+
-+# Check whether --with-tk-libs was given.
-+if test "${with_tk_libs+set}" = set; then :
-+  withval=$with_tk_libs;  if test ! -d $withval; then
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $withval is not found." >&5
-+$as_echo "$as_me: WARNING: $withval is not found." >&2;}
-     fi
--    tk_libdir="-L$withval" 
-+    tk_libdir="-L$withval"
- fi
- 
- 
-@@ -2801,88 +5382,92 @@
- 
-     tcl_lib=
-     tk_lib=
--    for l in tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
--      case "x$tcl_lib" in x) echo $ac_n "checking for Tcl_Init in -l$l""... $ac_c" 1>&6
--echo "configure:2807: checking for Tcl_Init in -l$l" >&5
--ac_lib_var=`echo $l'_'Tcl_Init | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+    for l in tcl8.4 tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
-+      case "x$tcl_lib" in x) as_ac_Lib=`$as_echo "ac_cv_lib_$l''_Tcl_Init" | $as_tr_sh`
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl_Init in -l$l" >&5
-+$as_echo_n "checking for Tcl_Init in -l$l... " >&6; }
-+if eval \${$as_ac_Lib+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-l$l  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2815 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char Tcl_Init();
--
--int main() {
--Tcl_Init()
--; return 0; }
--EOF
--if { (eval echo configure:2826: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char Tcl_Init ();
-+int
-+main ()
-+{
-+return Tcl_Init ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  eval "$as_ac_Lib=yes"
-+else
-+  eval "$as_ac_Lib=no"
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+eval ac_res=\$$as_ac_Lib
-+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-+$as_echo "$ac_res" >&6; }
-+if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
-   tcl_lib=-l$l
--else
--  echo "$ac_t""no" 1>&6
- fi
- ;; esac
-     done
-     LIBS="$LIBS $tcl_lib"
--    for l in tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
--      case "x$tk_lib" in x) echo $ac_n "checking for Tk_Init in -l$l""... $ac_c" 1>&6
--echo "configure:2850: checking for Tk_Init in -l$l" >&5
--ac_lib_var=`echo $l'_'Tk_Init | sed 'y%./+-%__p_%'`
--if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
--  echo $ac_n "(cached) $ac_c" 1>&6
-+    for l in tk8.4 tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
-+      case "x$tk_lib" in x) as_ac_Lib=`$as_echo "ac_cv_lib_$l''_Tk_Init" | $as_tr_sh`
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk_Init in -l$l" >&5
-+$as_echo_n "checking for Tk_Init in -l$l... " >&6; }
-+if eval \${$as_ac_Lib+:} false; then :
-+  $as_echo_n "(cached) " >&6
- else
--  ac_save_LIBS="$LIBS"
-+  ac_check_lib_save_LIBS=$LIBS
- LIBS="-l$l  $LIBS"
--cat > conftest.$ac_ext <<EOF
--#line 2858 "configure"
--#include "confdefs.h"
--/* Override any gcc2 internal prototype to avoid an error.  */
--/* We use char because int might match the return type of a gcc2
--    builtin and then its argument prototype would still apply.  */
--char Tk_Init();
--
--int main() {
--Tk_Init()
--; return 0; }
--EOF
--if { (eval echo configure:2869: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=yes"
--else
--  echo "configure: failed program was:" >&5
--  cat conftest.$ac_ext >&5
--  rm -rf conftest*
--  eval "ac_cv_lib_$ac_lib_var=no"
--fi
--rm -f conftest*
--LIBS="$ac_save_LIBS"
-+cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-+/* end confdefs.h.  */
- 
--fi
--if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
--  echo "$ac_t""yes" 1>&6
-+/* Override any GCC internal prototype to avoid an error.
-+   Use char because int might match the return type of a GCC
-+   builtin and then its argument prototype would still apply.  */
-+#ifdef __cplusplus
-+extern "C"
-+#endif
-+char Tk_Init ();
-+int
-+main ()
-+{
-+return Tk_Init ();
-+  ;
-+  return 0;
-+}
-+_ACEOF
-+if ac_fn_c_try_link "$LINENO"; then :
-+  eval "$as_ac_Lib=yes"
-+else
-+  eval "$as_ac_Lib=no"
-+fi
-+rm -f core conftest.err conftest.$ac_objext \
-+    conftest$ac_exeext conftest.$ac_ext
-+LIBS=$ac_check_lib_save_LIBS
-+fi
-+eval ac_res=\$$as_ac_Lib
-+	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-+$as_echo "$ac_res" >&6; }
-+if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
-   tk_lib=-l$l
--else
--  echo "$ac_t""no" 1>&6
- fi
- ;; esac
-     done
-@@ -2892,19 +5477,20 @@
-       CPPFLAGS=$KEEPCPPFLAGS
-       LDFLAGS=$KEEPLDFLAGS
-       enable_tcltk=no
--      echo "configure: warning: tcl/tk is not enable" 1>&2
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: tcl/tk is not enable" >&5
-+$as_echo "$as_me: WARNING: tcl/tk is not enable" >&2;}
-     else
-       tcltk_dep='tclIndex'
- 
-       TCLTK_CFLAGS="$tcl_include_dir $tk_includes"
--      
-+
- 
-       TCLTK_LDFLAGS="$tk_lib $tcl_lib $lib_dl_opt"
--      
-+
- 
- 
-       TCLTK_LIBS=`echo $LIBS | sed "s/-lX11/$tk_lib $tcl_lib -lX11/"`
--      
-+
-       case "$target" in
-         *-*-bsdi*)
-           TCLTK_LIBS="$TCLTK_LIBS -lipc"
-@@ -2918,343 +5504,1376 @@
- CPPFLAGS=$PREV_CPPFLAGS
- 
- 
--trap '' 1 2 15
-+ac_config_files="$ac_config_files Makefile tk707.sh"
-+
- 
--trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
- 
- test "x$prefix" = xNONE && prefix=$ac_default_prefix
- # Let make expand exec_prefix.
- test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
- 
--# Any assignment to VPATH causes Sun make to only execute
--# the first set of double-colon rules, so remove it if not needed.
--# If there is a colon in the path, we need to keep it.
--if test "x$srcdir" = x.; then
--  ac_vpsub='/^[ 	]*VPATH[ 	]*=[^:]*$/d'
--fi
-+DEFS=-DHAVE_CONFIG_H
- 
--trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
-+ac_libobjs=
-+ac_ltlibobjs=
-+for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
-+  # 1. Remove the extension, and $U if already installed.
-+  ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
-+  ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
-+  # 2. Prepend LIBOBJDIR.  When used with automake>=1.10 LIBOBJDIR
-+  #    will be set to the directory where LIBOBJS objects are built.
-+  as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
-+  as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
-+done
-+LIBOBJS=$ac_libobjs
- 
--DEFS=-DHAVE_CONFIG_H
-+LTLIBOBJS=$ac_ltlibobjs
- 
--# Without the "./", some shells look in PATH for config.status.
--: ${CONFIG_STATUS=./config.status}
- 
--echo creating $CONFIG_STATUS
--rm -f $CONFIG_STATUS
--cat > $CONFIG_STATUS <<EOF
--#! /bin/sh
--# Generated automatically by configure.
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5
-+$as_echo_n "checking that generated files are newer than configure... " >&6; }
-+   if test -n "$am_sleep_pid"; then
-+     # Hide warnings about reused PIDs.
-+     wait $am_sleep_pid 2>/dev/null
-+   fi
-+   { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5
-+$as_echo "done" >&6; }
-+ if test -n "$EXEEXT"; then
-+  am__EXEEXT_TRUE=
-+  am__EXEEXT_FALSE='#'
-+else
-+  am__EXEEXT_TRUE='#'
-+  am__EXEEXT_FALSE=
-+fi
-+
-+if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
-+  as_fn_error $? "conditional \"AMDEP\" was never defined.
-+Usually this means the macro was only invoked conditionally." "$LINENO" 5
-+fi
-+if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
-+  as_fn_error $? "conditional \"am__fastdepCC\" was never defined.
-+Usually this means the macro was only invoked conditionally." "$LINENO" 5
-+fi
-+
-+: "${CONFIG_STATUS=./config.status}"
-+ac_write_fail=0
-+ac_clean_files_save=$ac_clean_files
-+ac_clean_files="$ac_clean_files $CONFIG_STATUS"
-+{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
-+$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
-+as_write_fail=0
-+cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
-+#! $SHELL
-+# Generated by $as_me.
- # Run this file to recreate the current configuration.
--# This directory was configured as follows,
--# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
--#
--# $0 $ac_configure_args
--#
- # Compiler output produced by configure, useful for debugging
--# configure, is in ./config.log if it exists.
-+# configure, is in config.log if it exists.
- 
--ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
--for ac_option
-+debug=false
-+ac_cs_recheck=false
-+ac_cs_silent=false
-+
-+SHELL=\${CONFIG_SHELL-$SHELL}
-+export SHELL
-+_ASEOF
-+cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
-+## -------------------- ##
-+## M4sh Initialization. ##
-+## -------------------- ##
-+
-+# Be more Bourne compatible
-+DUALCASE=1; export DUALCASE # for MKS sh
-+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
-+  emulate sh
-+  NULLCMD=:
-+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
-+  # is contrary to our usage.  Disable this feature.
-+  alias -g '${1+"$@"}'='"$@"'
-+  setopt NO_GLOB_SUBST
-+else
-+  case `(set -o) 2>/dev/null` in #(
-+  *posix*) :
-+    set -o posix ;; #(
-+  *) :
-+     ;;
-+esac
-+fi
-+
-+
-+as_nl='
-+'
-+export as_nl
-+# Printing a long string crashes Solaris 7 /usr/bin/printf.
-+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-+# Prefer a ksh shell builtin over an external printf program on Solaris,
-+# but without wasting forks for bash or zsh.
-+if test -z "$BASH_VERSION$ZSH_VERSION" \
-+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
-+  as_echo='print -r --'
-+  as_echo_n='print -rn --'
-+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
-+  as_echo='printf %s\n'
-+  as_echo_n='printf %s'
-+else
-+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
-+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
-+    as_echo_n='/usr/ucb/echo -n'
-+  else
-+    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
-+    as_echo_n_body='eval
-+      arg=$1;
-+      case $arg in #(
-+      *"$as_nl"*)
-+	expr "X$arg" : "X\\(.*\\)$as_nl";
-+	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
-+      esac;
-+      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
-+    '
-+    export as_echo_n_body
-+    as_echo_n='sh -c $as_echo_n_body as_echo'
-+  fi
-+  export as_echo_body
-+  as_echo='sh -c $as_echo_body as_echo'
-+fi
-+
-+# The user is always right.
-+if test "${PATH_SEPARATOR+set}" != set; then
-+  PATH_SEPARATOR=:
-+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
-+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
-+      PATH_SEPARATOR=';'
-+  }
-+fi
-+
-+
-+# IFS
-+# We need space, tab and new line, in precisely that order.  Quoting is
-+# there to prevent editors from complaining about space-tab.
-+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-+# splitting by setting IFS to empty value.)
-+IFS=" ""	$as_nl"
-+
-+# Find who we are.  Look in the path if we contain no directory separator.
-+as_myself=
-+case $0 in #((
-+  *[\\/]* ) as_myself=$0 ;;
-+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-+for as_dir in $PATH
-+do
-+  IFS=$as_save_IFS
-+  test -z "$as_dir" && as_dir=.
-+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
-+  done
-+IFS=$as_save_IFS
-+
-+     ;;
-+esac
-+# We did not find ourselves, most probably we were run as `sh COMMAND'
-+# in which case we are not to be found in the path.
-+if test "x$as_myself" = x; then
-+  as_myself=$0
-+fi
-+if test ! -f "$as_myself"; then
-+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
-+  exit 1
-+fi
-+
-+# Unset variables that we do not need and which cause bugs (e.g. in
-+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
-+# suppresses any "Segmentation fault" message there.  '((' could
-+# trigger a bug in pdksh 5.2.14.
-+for as_var in BASH_ENV ENV MAIL MAILPATH
-+do eval test x\${$as_var+set} = xset \
-+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-+done
-+PS1='$ '
-+PS2='> '
-+PS4='+ '
-+
-+# NLS nuisances.
-+LC_ALL=C
-+export LC_ALL
-+LANGUAGE=C
-+export LANGUAGE
-+
-+# CDPATH.
-+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-+
-+
-+# as_fn_error STATUS ERROR [LINENO LOG_FD]
-+# ----------------------------------------
-+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-+# script with STATUS, using 1 if that was 0.
-+as_fn_error ()
-+{
-+  as_status=$1; test $as_status -eq 0 && as_status=1
-+  if test "$4"; then
-+    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-+    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
-+  fi
-+  $as_echo "$as_me: error: $2" >&2
-+  as_fn_exit $as_status
-+} # as_fn_error
-+
-+
-+# as_fn_set_status STATUS
-+# -----------------------
-+# Set $? to STATUS, without forking.
-+as_fn_set_status ()
-+{
-+  return $1
-+} # as_fn_set_status
-+
-+# as_fn_exit STATUS
-+# -----------------
-+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-+as_fn_exit ()
-+{
-+  set +e
-+  as_fn_set_status $1
-+  exit $1
-+} # as_fn_exit
-+
-+# as_fn_unset VAR
-+# ---------------
-+# Portably unset VAR.
-+as_fn_unset ()
-+{
-+  { eval $1=; unset $1;}
-+}
-+as_unset=as_fn_unset
-+# as_fn_append VAR VALUE
-+# ----------------------
-+# Append the text in VALUE to the end of the definition contained in VAR. Take
-+# advantage of any shell optimizations that allow amortized linear growth over
-+# repeated appends, instead of the typical quadratic growth present in naive
-+# implementations.
-+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
-+  eval 'as_fn_append ()
-+  {
-+    eval $1+=\$2
-+  }'
-+else
-+  as_fn_append ()
-+  {
-+    eval $1=\$$1\$2
-+  }
-+fi # as_fn_append
-+
-+# as_fn_arith ARG...
-+# ------------------
-+# Perform arithmetic evaluation on the ARGs, and store the result in the
-+# global $as_val. Take advantage of shells that can avoid forks. The arguments
-+# must be portable across $(()) and expr.
-+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
-+  eval 'as_fn_arith ()
-+  {
-+    as_val=$(( $* ))
-+  }'
-+else
-+  as_fn_arith ()
-+  {
-+    as_val=`expr "$@" || test $? -eq 1`
-+  }
-+fi # as_fn_arith
-+
-+
-+if expr a : '\(a\)' >/dev/null 2>&1 &&
-+   test "X`expr 00001 : '.*\(...\)'`" = X001; then
-+  as_expr=expr
-+else
-+  as_expr=false
-+fi
-+
-+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
-+  as_basename=basename
-+else
-+  as_basename=false
-+fi
-+
-+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
-+  as_dirname=dirname
-+else
-+  as_dirname=false
-+fi
-+
-+as_me=`$as_basename -- "$0" ||
-+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
-+	 X"$0" : 'X\(//\)$' \| \
-+	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X/"$0" |
-+    sed '/^.*\/\([^/][^/]*\)\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\/\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\/\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+
-+# Avoid depending upon Character Ranges.
-+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-+as_cr_digits='0123456789'
-+as_cr_alnum=$as_cr_Letters$as_cr_digits
-+
-+ECHO_C= ECHO_N= ECHO_T=
-+case `echo -n x` in #(((((
-+-n*)
-+  case `echo 'xy\c'` in
-+  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
-+  xy)  ECHO_C='\c';;
-+  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
-+       ECHO_T='	';;
-+  esac;;
-+*)
-+  ECHO_N='-n';;
-+esac
-+
-+rm -f conf$$ conf$$.exe conf$$.file
-+if test -d conf$$.dir; then
-+  rm -f conf$$.dir/conf$$.file
-+else
-+  rm -f conf$$.dir
-+  mkdir conf$$.dir 2>/dev/null
-+fi
-+if (echo >conf$$.file) 2>/dev/null; then
-+  if ln -s conf$$.file conf$$ 2>/dev/null; then
-+    as_ln_s='ln -s'
-+    # ... but there are two gotchas:
-+    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
-+    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
-+    # In both cases, we have to default to `cp -pR'.
-+    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
-+      as_ln_s='cp -pR'
-+  elif ln conf$$.file conf$$ 2>/dev/null; then
-+    as_ln_s=ln
-+  else
-+    as_ln_s='cp -pR'
-+  fi
-+else
-+  as_ln_s='cp -pR'
-+fi
-+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-+rmdir conf$$.dir 2>/dev/null
-+
-+
-+# as_fn_mkdir_p
-+# -------------
-+# Create "$as_dir" as a directory, including parents if necessary.
-+as_fn_mkdir_p ()
-+{
-+
-+  case $as_dir in #(
-+  -*) as_dir=./$as_dir;;
-+  esac
-+  test -d "$as_dir" || eval $as_mkdir_p || {
-+    as_dirs=
-+    while :; do
-+      case $as_dir in #(
-+      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
-+      *) as_qdir=$as_dir;;
-+      esac
-+      as_dirs="'$as_qdir' $as_dirs"
-+      as_dir=`$as_dirname -- "$as_dir" ||
-+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$as_dir" : 'X\(//\)[^/]' \| \
-+	 X"$as_dir" : 'X\(//\)$' \| \
-+	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$as_dir" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+      test -d "$as_dir" && break
-+    done
-+    test -z "$as_dirs" || eval "mkdir $as_dirs"
-+  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-+
-+
-+} # as_fn_mkdir_p
-+if mkdir -p . 2>/dev/null; then
-+  as_mkdir_p='mkdir -p "$as_dir"'
-+else
-+  test -d ./-p && rmdir ./-p
-+  as_mkdir_p=false
-+fi
-+
-+
-+# as_fn_executable_p FILE
-+# -----------------------
-+# Test if FILE is an executable regular file.
-+as_fn_executable_p ()
-+{
-+  test -f "$1" && test -x "$1"
-+} # as_fn_executable_p
-+as_test_x='test -x'
-+as_executable_p=as_fn_executable_p
-+
-+# Sed expression to map a string onto a valid CPP name.
-+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-+
-+# Sed expression to map a string onto a valid variable name.
-+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-+
-+
-+exec 6>&1
-+## ----------------------------------- ##
-+## Main body of $CONFIG_STATUS script. ##
-+## ----------------------------------- ##
-+_ASEOF
-+test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+# Save the log message, to keep $0 and so on meaningful, and to
-+# report actual input values of CONFIG_FILES etc. instead of their
-+# values after options handling.
-+ac_log="
-+This file was extended by tk707 $as_me 0.7.21, which was
-+generated by GNU Autoconf 2.69.  Invocation command line was
-+
-+  CONFIG_FILES    = $CONFIG_FILES
-+  CONFIG_HEADERS  = $CONFIG_HEADERS
-+  CONFIG_LINKS    = $CONFIG_LINKS
-+  CONFIG_COMMANDS = $CONFIG_COMMANDS
-+  $ $0 $@
-+
-+on `(hostname || uname -n) 2>/dev/null | sed 1q`
-+"
-+
-+_ACEOF
-+
-+case $ac_config_files in *"
-+"*) set x $ac_config_files; shift; ac_config_files=$*;;
-+esac
-+
-+case $ac_config_headers in *"
-+"*) set x $ac_config_headers; shift; ac_config_headers=$*;;
-+esac
-+
-+
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+# Files that config.status was made for.
-+config_files="$ac_config_files"
-+config_headers="$ac_config_headers"
-+config_commands="$ac_config_commands"
-+
-+_ACEOF
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+ac_cs_usage="\
-+\`$as_me' instantiates files and other configuration actions
-+from templates according to the current configuration.  Unless the files
-+and actions are specified as TAGs, all are instantiated by default.
-+
-+Usage: $0 [OPTION]... [TAG]...
-+
-+  -h, --help       print this help, then exit
-+  -V, --version    print version number and configuration settings, then exit
-+      --config     print configuration, then exit
-+  -q, --quiet, --silent
-+                   do not print progress messages
-+  -d, --debug      don't remove temporary files
-+      --recheck    update $as_me by reconfiguring in the same conditions
-+      --file=FILE[:TEMPLATE]
-+                   instantiate the configuration file FILE
-+      --header=FILE[:TEMPLATE]
-+                   instantiate the configuration header FILE
-+
-+Configuration files:
-+$config_files
-+
-+Configuration headers:
-+$config_headers
-+
-+Configuration commands:
-+$config_commands
-+
-+Report bugs to the package provider."
-+
-+_ACEOF
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
-+ac_cs_version="\\
-+tk707 config.status 0.7.21
-+configured by $0, generated by GNU Autoconf 2.69,
-+  with options \\"\$ac_cs_config\\"
-+
-+Copyright (C) 2012 Free Software Foundation, Inc.
-+This config.status script is free software; the Free Software Foundation
-+gives unlimited permission to copy, distribute and modify it."
-+
-+ac_pwd='$ac_pwd'
-+srcdir='$srcdir'
-+INSTALL='$INSTALL'
-+MKDIR_P='$MKDIR_P'
-+AWK='$AWK'
-+test -n "\$AWK" || AWK=awk
-+_ACEOF
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+# The default lists apply if the user does not specify any file.
-+ac_need_defaults=:
-+while test $# != 0
- do
--  case "\$ac_option" in
-+  case $1 in
-+  --*=?*)
-+    ac_option=`expr "X$1" : 'X\([^=]*\)='`
-+    ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
-+    ac_shift=:
-+    ;;
-+  --*=)
-+    ac_option=`expr "X$1" : 'X\([^=]*\)='`
-+    ac_optarg=
-+    ac_shift=:
-+    ;;
-+  *)
-+    ac_option=$1
-+    ac_optarg=$2
-+    ac_shift=shift
-+    ;;
-+  esac
-+
-+  case $ac_option in
-+  # Handling of the options.
-   -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
--    echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
--    exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
--  -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
--    echo "$CONFIG_STATUS generated by autoconf version 2.13"
--    exit 0 ;;
--  -help | --help | --hel | --he | --h)
--    echo "\$ac_cs_usage"; exit 0 ;;
--  *) echo "\$ac_cs_usage"; exit 1 ;;
-+    ac_cs_recheck=: ;;
-+  --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
-+    $as_echo "$ac_cs_version"; exit ;;
-+  --config | --confi | --conf | --con | --co | --c )
-+    $as_echo "$ac_cs_config"; exit ;;
-+  --debug | --debu | --deb | --de | --d | -d )
-+    debug=: ;;
-+  --file | --fil | --fi | --f )
-+    $ac_shift
-+    case $ac_optarg in
-+    *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
-+    '') as_fn_error $? "missing file argument" ;;
-+    esac
-+    as_fn_append CONFIG_FILES " '$ac_optarg'"
-+    ac_need_defaults=false;;
-+  --header | --heade | --head | --hea )
-+    $ac_shift
-+    case $ac_optarg in
-+    *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
-+    esac
-+    as_fn_append CONFIG_HEADERS " '$ac_optarg'"
-+    ac_need_defaults=false;;
-+  --he | --h)
-+    # Conflict between --help and --header
-+    as_fn_error $? "ambiguous option: \`$1'
-+Try \`$0 --help' for more information.";;
-+  --help | --hel | -h )
-+    $as_echo "$ac_cs_usage"; exit ;;
-+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-+  | -silent | --silent | --silen | --sile | --sil | --si | --s)
-+    ac_cs_silent=: ;;
-+
-+  # This is an error.
-+  -*) as_fn_error $? "unrecognized option: \`$1'
-+Try \`$0 --help' for more information." ;;
-+
-+  *) as_fn_append ac_config_targets " $1"
-+     ac_need_defaults=false ;;
-+
-   esac
-+  shift
- done
- 
--ac_given_srcdir=$srcdir
--ac_given_INSTALL="$INSTALL"
--
--trap 'rm -fr `echo "Makefile tk707.sh config.h" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
--EOF
--cat >> $CONFIG_STATUS <<EOF
--
--# Protect against being on the right side of a sed subst in config.status.
--sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
-- s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
--$ac_vpsub
--$extrasub
--s%@SHELL@%$SHELL%g
--s%@CFLAGS@%$CFLAGS%g
--s%@CPPFLAGS@%$CPPFLAGS%g
--s%@CXXFLAGS@%$CXXFLAGS%g
--s%@FFLAGS@%$FFLAGS%g
--s%@DEFS@%$DEFS%g
--s%@LDFLAGS@%$LDFLAGS%g
--s%@LIBS@%$LIBS%g
--s%@exec_prefix@%$exec_prefix%g
--s%@prefix@%$prefix%g
--s%@program_transform_name@%$program_transform_name%g
--s%@bindir@%$bindir%g
--s%@sbindir@%$sbindir%g
--s%@libexecdir@%$libexecdir%g
--s%@datadir@%$datadir%g
--s%@sysconfdir@%$sysconfdir%g
--s%@sharedstatedir@%$sharedstatedir%g
--s%@localstatedir@%$localstatedir%g
--s%@libdir@%$libdir%g
--s%@includedir@%$includedir%g
--s%@oldincludedir@%$oldincludedir%g
--s%@infodir@%$infodir%g
--s%@mandir@%$mandir%g
--s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
--s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g
--s%@INSTALL_DATA@%$INSTALL_DATA%g
--s%@PACKAGE@%$PACKAGE%g
--s%@VERSION@%$VERSION%g
--s%@ACLOCAL@%$ACLOCAL%g
--s%@AUTOCONF@%$AUTOCONF%g
--s%@AUTOMAKE@%$AUTOMAKE%g
--s%@AUTOHEADER@%$AUTOHEADER%g
--s%@MAKEINFO@%$MAKEINFO%g
--s%@SET_MAKE@%$SET_MAKE%g
--s%@CC@%$CC%g
--s%@LEX@%$LEX%g
--s%@CPP@%$CPP%g
--s%@LEXLIB@%$LEXLIB%g
--s%@LEX_OUTPUT_ROOT@%$LEX_OUTPUT_ROOT%g
--s%@TEXI2HTML@%$TEXI2HTML%g
--s%@TEXI2DVI@%$TEXI2DVI%g
--s%@FIG2DEV@%$FIG2DEV%g
--s%@TIMIDITY@%$TIMIDITY%g
--s%@LAME@%$LAME%g
--s%@MIDIDUMP@%$MIDIDUMP%g
--s%@ALSA_CFLAGS@%$ALSA_CFLAGS%g
--s%@ALSA_LIBS@%$ALSA_LIBS%g
--s%@X_CFLAGS@%$X_CFLAGS%g
--s%@X_PRE_LIBS@%$X_PRE_LIBS%g
--s%@X_LIBS@%$X_LIBS%g
--s%@X_EXTRA_LIBS@%$X_EXTRA_LIBS%g
--s%@TCLTK_CFLAGS@%$TCLTK_CFLAGS%g
--s%@TCLTK_LDFLAGS@%$TCLTK_LDFLAGS%g
--s%@TCLTK_LIBS@%$TCLTK_LIBS%g
--
--CEOF
--EOF
--
--cat >> $CONFIG_STATUS <<\EOF
--
--# Split the substitutions into bite-sized pieces for seds with
--# small command number limits, like on Digital OSF/1 and HP-UX.
--ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script.
--ac_file=1 # Number of current file.
--ac_beg=1 # First line for current file.
--ac_end=$ac_max_sed_cmds # Line after last line for current file.
--ac_more_lines=:
--ac_sed_cmds=""
--while $ac_more_lines; do
--  if test $ac_beg -gt 1; then
--    sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file
-+ac_configure_extra_args=
-+
-+if $ac_cs_silent; then
-+  exec 6>/dev/null
-+  ac_configure_extra_args="$ac_configure_extra_args --silent"
-+fi
-+
-+_ACEOF
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+if \$ac_cs_recheck; then
-+  set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
-+  shift
-+  \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
-+  CONFIG_SHELL='$SHELL'
-+  export CONFIG_SHELL
-+  exec "\$@"
-+fi
-+
-+_ACEOF
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+exec 5>>config.log
-+{
-+  echo
-+  sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-+## Running $as_me. ##
-+_ASBOX
-+  $as_echo "$ac_log"
-+} >&5
-+
-+_ACEOF
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+#
-+# INIT-COMMANDS
-+#
-+AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"
-+
-+_ACEOF
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+
-+# Handling of arguments.
-+for ac_config_target in $ac_config_targets
-+do
-+  case $ac_config_target in
-+    "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;;
-+    "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
-+    "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
-+    "tk707.sh") CONFIG_FILES="$CONFIG_FILES tk707.sh" ;;
-+
-+  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
-+  esac
-+done
-+
-+
-+# If the user did not use the arguments to specify the items to instantiate,
-+# then the envvar interface is used.  Set only those that are not.
-+# We use the long form for the default assignment because of an extremely
-+# bizarre bug on SunOS 4.1.3.
-+if $ac_need_defaults; then
-+  test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
-+  test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
-+  test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
-+fi
-+
-+# Have a temporary directory for convenience.  Make it in the build tree
-+# simply because there is no reason against having it here, and in addition,
-+# creating and moving files from /tmp can sometimes cause problems.
-+# Hook for its removal unless debugging.
-+# Note that there is a small window in which the directory will not be cleaned:
-+# after its creation but before its name has been assigned to `$tmp'.
-+$debug ||
-+{
-+  tmp= ac_tmp=
-+  trap 'exit_status=$?
-+  : "${ac_tmp:=$tmp}"
-+  { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
-+' 0
-+  trap 'as_fn_exit 1' 1 2 13 15
-+}
-+# Create a (secure) tmp directory for tmp files.
-+
-+{
-+  tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
-+  test -d "$tmp"
-+}  ||
-+{
-+  tmp=./conf$$-$RANDOM
-+  (umask 077 && mkdir "$tmp")
-+} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
-+ac_tmp=$tmp
-+
-+# Set up the scripts for CONFIG_FILES section.
-+# No need to generate them if there are no CONFIG_FILES.
-+# This happens for instance with `./config.status config.h'.
-+if test -n "$CONFIG_FILES"; then
-+
-+
-+ac_cr=`echo X | tr X '\015'`
-+# On cygwin, bash can eat \r inside `` if the user requested igncr.
-+# But we know of no other shell where ac_cr would be empty at this
-+# point, so we can use a bashism as a fallback.
-+if test "x$ac_cr" = x; then
-+  eval ac_cr=\$\'\\r\'
-+fi
-+ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-+if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
-+  ac_cs_awk_cr='\\r'
-+else
-+  ac_cs_awk_cr=$ac_cr
-+fi
-+
-+echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
-+_ACEOF
-+
-+
-+{
-+  echo "cat >conf$$subs.awk <<_ACEOF" &&
-+  echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
-+  echo "_ACEOF"
-+} >conf$$subs.sh ||
-+  as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-+ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
-+ac_delim='%!_!# '
-+for ac_last_try in false false false false false :; do
-+  . ./conf$$subs.sh ||
-+    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-+
-+  ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
-+  if test $ac_delim_n = $ac_delim_num; then
-+    break
-+  elif $ac_last_try; then
-+    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-   else
--    sed "${ac_end}q" conftest.subs > conftest.s$ac_file
-+    ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
-   fi
--  if test ! -s conftest.s$ac_file; then
--    ac_more_lines=false
--    rm -f conftest.s$ac_file
-+done
-+rm -f conf$$subs.sh
-+
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
-+_ACEOF
-+sed -n '
-+h
-+s/^/S["/; s/!.*/"]=/
-+p
-+g
-+s/^[^!]*!//
-+:repl
-+t repl
-+s/'"$ac_delim"'$//
-+t delim
-+:nl
-+h
-+s/\(.\{148\}\)..*/\1/
-+t more1
-+s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
-+p
-+n
-+b repl
-+:more1
-+s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-+p
-+g
-+s/.\{148\}//
-+t nl
-+:delim
-+h
-+s/\(.\{148\}\)..*/\1/
-+t more2
-+s/["\\]/\\&/g; s/^/"/; s/$/"/
-+p
-+b
-+:more2
-+s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-+p
-+g
-+s/.\{148\}//
-+t delim
-+' <conf$$subs.awk | sed '
-+/^[^""]/{
-+  N
-+  s/\n//
-+}
-+' >>$CONFIG_STATUS || ac_write_fail=1
-+rm -f conf$$subs.awk
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+_ACAWK
-+cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
-+  for (key in S) S_is_set[key] = 1
-+  FS = ""
-+
-+}
-+{
-+  line = $ 0
-+  nfields = split(line, field, "@")
-+  substed = 0
-+  len = length(field[1])
-+  for (i = 2; i < nfields; i++) {
-+    key = field[i]
-+    keylen = length(key)
-+    if (S_is_set[key]) {
-+      value = S[key]
-+      line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
-+      len += length(value) + length(field[++i])
-+      substed = 1
-+    } else
-+      len += 1 + keylen
-+  }
-+
-+  print line
-+}
-+
-+_ACAWK
-+_ACEOF
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
-+  sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-+else
-+  cat
-+fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
-+  || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
-+_ACEOF
-+
-+# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
-+# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
-+# trailing colons and then remove the whole line if VPATH becomes empty
-+# (actually we leave an empty line to preserve line numbers).
-+if test "x$srcdir" = x.; then
-+  ac_vpsub='/^[	 ]*VPATH[	 ]*=[	 ]*/{
-+h
-+s///
-+s/^/:/
-+s/[	 ]*$/:/
-+s/:\$(srcdir):/:/g
-+s/:\${srcdir}:/:/g
-+s/:@srcdir@:/:/g
-+s/^:*//
-+s/:*$//
-+x
-+s/\(=[	 ]*\).*/\1/
-+G
-+s/\n//
-+s/^[^=]*=[	 ]*$//
-+}'
-+fi
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+fi # test -n "$CONFIG_FILES"
-+
-+# Set up the scripts for CONFIG_HEADERS section.
-+# No need to generate them if there are no CONFIG_HEADERS.
-+# This happens for instance with `./config.status Makefile'.
-+if test -n "$CONFIG_HEADERS"; then
-+cat >"$ac_tmp/defines.awk" <<\_ACAWK ||
-+BEGIN {
-+_ACEOF
-+
-+# Transform confdefs.h into an awk script `defines.awk', embedded as
-+# here-document in config.status, that substitutes the proper values into
-+# config.h.in to produce config.h.
-+
-+# Create a delimiter string that does not exist in confdefs.h, to ease
-+# handling of long lines.
-+ac_delim='%!_!# '
-+for ac_last_try in false false :; do
-+  ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
-+  if test -z "$ac_tt"; then
-+    break
-+  elif $ac_last_try; then
-+    as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
-   else
--    if test -z "$ac_sed_cmds"; then
--      ac_sed_cmds="sed -f conftest.s$ac_file"
-+    ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
-+  fi
-+done
-+
-+# For the awk script, D is an array of macro values keyed by name,
-+# likewise P contains macro parameters if any.  Preserve backslash
-+# newline sequences.
-+
-+ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]*
-+sed -n '
-+s/.\{148\}/&'"$ac_delim"'/g
-+t rset
-+:rset
-+s/^[	 ]*#[	 ]*define[	 ][	 ]*/ /
-+t def
-+d
-+:def
-+s/\\$//
-+t bsnl
-+s/["\\]/\\&/g
-+s/^ \('"$ac_word_re"'\)\(([^()]*)\)[	 ]*\(.*\)/P["\1"]="\2"\
-+D["\1"]=" \3"/p
-+s/^ \('"$ac_word_re"'\)[	 ]*\(.*\)/D["\1"]=" \2"/p
-+d
-+:bsnl
-+s/["\\]/\\&/g
-+s/^ \('"$ac_word_re"'\)\(([^()]*)\)[	 ]*\(.*\)/P["\1"]="\2"\
-+D["\1"]=" \3\\\\\\n"\\/p
-+t cont
-+s/^ \('"$ac_word_re"'\)[	 ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p
-+t cont
-+d
-+:cont
-+n
-+s/.\{148\}/&'"$ac_delim"'/g
-+t clear
-+:clear
-+s/\\$//
-+t bsnlc
-+s/["\\]/\\&/g; s/^/"/; s/$/"/p
-+d
-+:bsnlc
-+s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p
-+b cont
-+' <confdefs.h | sed '
-+s/'"$ac_delim"'/"\\\
-+"/g' >>$CONFIG_STATUS || ac_write_fail=1
-+
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+  for (key in D) D_is_set[key] = 1
-+  FS = ""
-+}
-+/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ {
-+  line = \$ 0
-+  split(line, arg, " ")
-+  if (arg[1] == "#") {
-+    defundef = arg[2]
-+    mac1 = arg[3]
-+  } else {
-+    defundef = substr(arg[1], 2)
-+    mac1 = arg[2]
-+  }
-+  split(mac1, mac2, "(") #)
-+  macro = mac2[1]
-+  prefix = substr(line, 1, index(line, defundef) - 1)
-+  if (D_is_set[macro]) {
-+    # Preserve the white space surrounding the "#".
-+    print prefix "define", macro P[macro] D[macro]
-+    next
-+  } else {
-+    # Replace #undef with comments.  This is necessary, for example,
-+    # in the case of _POSIX_SOURCE, which is predefined and required
-+    # on some systems where configure will not decide to define it.
-+    if (defundef == "undef") {
-+      print "/*", prefix defundef, macro, "*/"
-+      next
-+    }
-+  }
-+}
-+{ print }
-+_ACAWK
-+_ACEOF
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+  as_fn_error $? "could not setup config headers machinery" "$LINENO" 5
-+fi # test -n "$CONFIG_HEADERS"
-+
-+
-+eval set X "  :F $CONFIG_FILES  :H $CONFIG_HEADERS    :C $CONFIG_COMMANDS"
-+shift
-+for ac_tag
-+do
-+  case $ac_tag in
-+  :[FHLC]) ac_mode=$ac_tag; continue;;
-+  esac
-+  case $ac_mode$ac_tag in
-+  :[FHL]*:*);;
-+  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
-+  :[FH]-) ac_tag=-:-;;
-+  :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
-+  esac
-+  ac_save_IFS=$IFS
-+  IFS=:
-+  set x $ac_tag
-+  IFS=$ac_save_IFS
-+  shift
-+  ac_file=$1
-+  shift
-+
-+  case $ac_mode in
-+  :L) ac_source=$1;;
-+  :[FH])
-+    ac_file_inputs=
-+    for ac_f
-+    do
-+      case $ac_f in
-+      -) ac_f="$ac_tmp/stdin";;
-+      *) # Look for the file first in the build tree, then in the source tree
-+	 # (if the path is not absolute).  The absolute path cannot be DOS-style,
-+	 # because $ac_f cannot contain `:'.
-+	 test -f "$ac_f" ||
-+	   case $ac_f in
-+	   [\\/$]*) false;;
-+	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
-+	   esac ||
-+	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
-+      esac
-+      case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
-+      as_fn_append ac_file_inputs " '$ac_f'"
-+    done
-+
-+    # Let's still pretend it is `configure' which instantiates (i.e., don't
-+    # use $as_me), people would be surprised to read:
-+    #    /* config.h.  Generated by config.status.  */
-+    configure_input='Generated from '`
-+	  $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
-+	`' by configure.'
-+    if test x"$ac_file" != x-; then
-+      configure_input="$ac_file.  $configure_input"
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-+$as_echo "$as_me: creating $ac_file" >&6;}
-+    fi
-+    # Neutralize special characters interpreted by sed in replacement strings.
-+    case $configure_input in #(
-+    *\&* | *\|* | *\\* )
-+       ac_sed_conf_input=`$as_echo "$configure_input" |
-+       sed 's/[\\\\&|]/\\\\&/g'`;; #(
-+    *) ac_sed_conf_input=$configure_input;;
-+    esac
-+
-+    case $ac_tag in
-+    *:-:* | *:-) cat >"$ac_tmp/stdin" \
-+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
-+    esac
-+    ;;
-+  esac
-+
-+  ac_dir=`$as_dirname -- "$ac_file" ||
-+$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$ac_file" : 'X\(//\)[^/]' \| \
-+	 X"$ac_file" : 'X\(//\)$' \| \
-+	 X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$ac_file" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+  as_dir="$ac_dir"; as_fn_mkdir_p
-+  ac_builddir=.
-+
-+case "$ac_dir" in
-+.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-+*)
-+  ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
-+  # A ".." for each directory in $ac_dir_suffix.
-+  ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
-+  case $ac_top_builddir_sub in
-+  "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
-+  *)  ac_top_build_prefix=$ac_top_builddir_sub/ ;;
-+  esac ;;
-+esac
-+ac_abs_top_builddir=$ac_pwd
-+ac_abs_builddir=$ac_pwd$ac_dir_suffix
-+# for backward compatibility:
-+ac_top_builddir=$ac_top_build_prefix
-+
-+case $srcdir in
-+  .)  # We are building in place.
-+    ac_srcdir=.
-+    ac_top_srcdir=$ac_top_builddir_sub
-+    ac_abs_top_srcdir=$ac_pwd ;;
-+  [\\/]* | ?:[\\/]* )  # Absolute name.
-+    ac_srcdir=$srcdir$ac_dir_suffix;
-+    ac_top_srcdir=$srcdir
-+    ac_abs_top_srcdir=$srcdir ;;
-+  *) # Relative name.
-+    ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
-+    ac_top_srcdir=$ac_top_build_prefix$srcdir
-+    ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-+esac
-+ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-+
-+
-+  case $ac_mode in
-+  :F)
-+  #
-+  # CONFIG_FILE
-+  #
-+
-+  case $INSTALL in
-+  [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
-+  *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
-+  esac
-+  ac_MKDIR_P=$MKDIR_P
-+  case $MKDIR_P in
-+  [\\/$]* | ?:[\\/]* ) ;;
-+  */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
-+  esac
-+_ACEOF
-+
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+# If the template does not know about datarootdir, expand it.
-+# FIXME: This hack should be removed a few years after 2.60.
-+ac_datarootdir_hack=; ac_datarootdir_seen=
-+ac_sed_dataroot='
-+/datarootdir/ {
-+  p
-+  q
-+}
-+/@datadir@/p
-+/@docdir@/p
-+/@infodir@/p
-+/@localedir@/p
-+/@mandir@/p'
-+case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-+*datarootdir*) ac_datarootdir_seen=yes;;
-+*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-+$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
-+_ACEOF
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+  ac_datarootdir_hack='
-+  s&@datadir@&$datadir&g
-+  s&@docdir@&$docdir&g
-+  s&@infodir@&$infodir&g
-+  s&@localedir@&$localedir&g
-+  s&@mandir@&$mandir&g
-+  s&\\\${datarootdir}&$datarootdir&g' ;;
-+esac
-+_ACEOF
-+
-+# Neutralize VPATH when `$srcdir' = `.'.
-+# Shell code in configure.ac might set extrasub.
-+# FIXME: do we really want to maintain this feature?
-+cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-+ac_sed_extra="$ac_vpsub
-+$extrasub
-+_ACEOF
-+cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-+:t
-+/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-+s|@configure_input@|$ac_sed_conf_input|;t t
-+s&@top_builddir@&$ac_top_builddir_sub&;t t
-+s&@top_build_prefix@&$ac_top_build_prefix&;t t
-+s&@srcdir@&$ac_srcdir&;t t
-+s&@abs_srcdir@&$ac_abs_srcdir&;t t
-+s&@top_srcdir@&$ac_top_srcdir&;t t
-+s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-+s&@builddir@&$ac_builddir&;t t
-+s&@abs_builddir@&$ac_abs_builddir&;t t
-+s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-+s&@INSTALL@&$ac_INSTALL&;t t
-+s&@MKDIR_P@&$ac_MKDIR_P&;t t
-+$ac_datarootdir_hack
-+"
-+eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
-+  >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-+
-+test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
-+  { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
-+  { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' \
-+      "$ac_tmp/out"`; test -z "$ac_out"; } &&
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-+which seems to be undefined.  Please make sure it is defined" >&5
-+$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-+which seems to be undefined.  Please make sure it is defined" >&2;}
-+
-+  rm -f "$ac_tmp/stdin"
-+  case $ac_file in
-+  -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
-+  *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
-+  esac \
-+  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-+ ;;
-+  :H)
-+  #
-+  # CONFIG_HEADER
-+  #
-+  if test x"$ac_file" != x-; then
-+    {
-+      $as_echo "/* $configure_input  */" \
-+      && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs"
-+    } >"$ac_tmp/config.h" \
-+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-+    if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then
-+      { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
-+$as_echo "$as_me: $ac_file is unchanged" >&6;}
-     else
--      ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file"
-+      rm -f "$ac_file"
-+      mv "$ac_tmp/config.h" "$ac_file" \
-+	|| as_fn_error $? "could not create $ac_file" "$LINENO" 5
-     fi
--    ac_file=`expr $ac_file + 1`
--    ac_beg=$ac_end
--    ac_end=`expr $ac_end + $ac_max_sed_cmds`
--  fi
--done
--if test -z "$ac_sed_cmds"; then
--  ac_sed_cmds=cat
--fi
--EOF
--
--cat >> $CONFIG_STATUS <<EOF
--
--CONFIG_FILES=\${CONFIG_FILES-"Makefile tk707.sh"}
--EOF
--cat >> $CONFIG_STATUS <<\EOF
--for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
--  # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
--  case "$ac_file" in
--  *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
--       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
--  *) ac_file_in="${ac_file}.in" ;;
--  esac
--
--  # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories.
--
--  # Remove last slash and all that follows it.  Not all systems have dirname.
--  ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
--  if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
--    # The file is in a subdirectory.
--    test ! -d "$ac_dir" && mkdir "$ac_dir"
--    ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
--    # A "../" for each directory in $ac_dir_suffix.
--    ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
-   else
--    ac_dir_suffix= ac_dots=
-+    $as_echo "/* $configure_input  */" \
-+      && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \
-+      || as_fn_error $? "could not create -" "$LINENO" 5
-   fi
-+# Compute "$ac_file"'s index in $config_headers.
-+_am_arg="$ac_file"
-+_am_stamp_count=1
-+for _am_header in $config_headers :; do
-+  case $_am_header in
-+    $_am_arg | $_am_arg:* )
-+      break ;;
-+    * )
-+      _am_stamp_count=`expr $_am_stamp_count + 1` ;;
-+  esac
-+done
-+echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" ||
-+$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$_am_arg" : 'X\(//\)[^/]' \| \
-+	 X"$_am_arg" : 'X\(//\)$' \| \
-+	 X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$_am_arg" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`/stamp-h$_am_stamp_count
-+ ;;
-+
-+  :C)  { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
-+$as_echo "$as_me: executing $ac_file commands" >&6;}
-+ ;;
-+  esac
- 
--  case "$ac_given_srcdir" in
--  .)  srcdir=.
--      if test -z "$ac_dots"; then top_srcdir=.
--      else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
--  /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
--  *) # Relative path.
--    srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
--    top_srcdir="$ac_dots$ac_given_srcdir" ;;
--  esac
--
--  case "$ac_given_INSTALL" in
--  [/$]*) INSTALL="$ac_given_INSTALL" ;;
--  *) INSTALL="$ac_dots$ac_given_INSTALL" ;;
--  esac
--
--  echo creating "$ac_file"
--  rm -f "$ac_file"
--  configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
--  case "$ac_file" in
--  *Makefile*) ac_comsub="1i\\
--# $configure_input" ;;
--  *) ac_comsub= ;;
--  esac
--
--  ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
--  sed -e "$ac_comsub
--s%@configure_input@%$configure_input%g
--s%@srcdir@%$srcdir%g
--s%@top_srcdir@%$top_srcdir%g
--s%@INSTALL@%$INSTALL%g
--" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file
--fi; done
--rm -f conftest.s*
- 
--# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where
--# NAME is the cpp macro being defined and VALUE is the value it is being given.
--#
--# ac_d sets the value in "#define NAME VALUE" lines.
--ac_dA='s%^\([ 	]*\)#\([ 	]*define[ 	][ 	]*\)'
--ac_dB='\([ 	][ 	]*\)[^ 	]*%\1#\2'
--ac_dC='\3'
--ac_dD='%g'
--# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE".
--ac_uA='s%^\([ 	]*\)#\([ 	]*\)undef\([ 	][ 	]*\)'
--ac_uB='\([ 	]\)%\1#\2define\3'
--ac_uC=' '
--ac_uD='\4%g'
--# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE".
--ac_eA='s%^\([ 	]*\)#\([ 	]*\)undef\([ 	][ 	]*\)'
--ac_eB='$%\1#\2define\3'
--ac_eC=' '
--ac_eD='%g'
--
--if test "${CONFIG_HEADERS+set}" != set; then
--EOF
--cat >> $CONFIG_STATUS <<EOF
--  CONFIG_HEADERS="config.h"
--EOF
--cat >> $CONFIG_STATUS <<\EOF
--fi
--for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then
--  # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
--  case "$ac_file" in
--  *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
--       ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
--  *) ac_file_in="${ac_file}.in" ;;
--  esac
--
--  echo creating $ac_file
--
--  rm -f conftest.frag conftest.in conftest.out
--  ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
--  cat $ac_file_inputs > conftest.in
--
--EOF
--
--# Transform confdefs.h into a sed script conftest.vals that substitutes
--# the proper values into config.h.in to produce config.h.  And first:
--# Protect against being on the right side of a sed subst in config.status.
--# Protect against being in an unquoted here document in config.status.
--rm -f conftest.vals
--cat > conftest.hdr <<\EOF
--s/[\\&%]/\\&/g
--s%[\\$`]%\\&%g
--s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp
--s%ac_d%ac_u%gp
--s%ac_u%ac_e%gp
--EOF
--sed -n -f conftest.hdr confdefs.h > conftest.vals
--rm -f conftest.hdr
--
--# This sed command replaces #undef with comments.  This is necessary, for
--# example, in the case of _POSIX_SOURCE, which is predefined and required
--# on some systems where configure will not decide to define it.
--cat >> conftest.vals <<\EOF
--s%^[ 	]*#[ 	]*undef[ 	][ 	]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */%
--EOF
--
--# Break up conftest.vals because some shells have a limit on
--# the size of here documents, and old seds have small limits too.
--
--rm -f conftest.tail
--while :
--do
--  ac_lines=`grep -c . conftest.vals`
--  # grep -c gives empty output for an empty file on some AIX systems.
--  if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi
--  # Write a limited-size here document to conftest.frag.
--  echo '  cat > conftest.frag <<CEOF' >> $CONFIG_STATUS
--  sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS
--  echo 'CEOF
--  sed -f conftest.frag conftest.in > conftest.out
--  rm -f conftest.in
--  mv conftest.out conftest.in
--' >> $CONFIG_STATUS
--  sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail
--  rm -f conftest.vals
--  mv conftest.tail conftest.vals
--done
--rm -f conftest.vals
--
--cat >> $CONFIG_STATUS <<\EOF
--  rm -f conftest.frag conftest.h
--  echo "/* $ac_file.  Generated automatically by configure.  */" > conftest.h
--  cat conftest.in >> conftest.h
--  rm -f conftest.in
--  if cmp -s $ac_file conftest.h 2>/dev/null; then
--    echo "$ac_file is unchanged"
--    rm -f conftest.h
--  else
--    # Remove last slash and all that follows it.  Not all systems have dirname.
--      ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
--      if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
--      # The file is in a subdirectory.
--      test ! -d "$ac_dir" && mkdir "$ac_dir"
-+  case $ac_file$ac_mode in
-+    "depfiles":C) test x"$AMDEP_TRUE" != x"" || {
-+  # Older Autoconf quotes --file arguments for eval, but not when files
-+  # are listed without --file.  Let's play safe and only enable the eval
-+  # if we detect the quoting.
-+  case $CONFIG_FILES in
-+  *\'*) eval set x "$CONFIG_FILES" ;;
-+  *)   set x $CONFIG_FILES ;;
-+  esac
-+  shift
-+  for mf
-+  do
-+    # Strip MF so we end up with the name of the file.
-+    mf=`echo "$mf" | sed -e 's/:.*$//'`
-+    # Check whether this is an Automake generated Makefile or not.
-+    # We used to match only the files named 'Makefile.in', but
-+    # some people rename them; so instead we look at the file content.
-+    # Grep'ing the first line is not enough: some people post-process
-+    # each Makefile.in and add a new line on top of each file to say so.
-+    # Grep'ing the whole file is not good either: AIX grep has a line
-+    # limit of 2048, but all sed's we know have understand at least 4000.
-+    if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
-+      dirpart=`$as_dirname -- "$mf" ||
-+$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$mf" : 'X\(//\)[^/]' \| \
-+	 X"$mf" : 'X\(//\)$' \| \
-+	 X"$mf" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$mf" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+    else
-+      continue
-     fi
--    rm -f $ac_file
--    mv conftest.h $ac_file
--  fi
--fi; done
--
--EOF
--cat >> $CONFIG_STATUS <<EOF
-+    # Extract the definition of DEPDIR, am__include, and am__quote
-+    # from the Makefile without running 'make'.
-+    DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
-+    test -z "$DEPDIR" && continue
-+    am__include=`sed -n 's/^am__include = //p' < "$mf"`
-+    test -z "$am__include" && continue
-+    am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
-+    # Find all dependency output files, they are included files with
-+    # $(DEPDIR) in their names.  We invoke sed twice because it is the
-+    # simplest approach to changing $(DEPDIR) to its actual value in the
-+    # expansion.
-+    for file in `sed -n "
-+      s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
-+	 sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do
-+      # Make sure the directory exists.
-+      test -f "$dirpart/$file" && continue
-+      fdir=`$as_dirname -- "$file" ||
-+$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-+	 X"$file" : 'X\(//\)[^/]' \| \
-+	 X"$file" : 'X\(//\)$' \| \
-+	 X"$file" : 'X\(/\)' \| . 2>/dev/null ||
-+$as_echo X"$file" |
-+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)[^/].*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\/\)$/{
-+	    s//\1/
-+	    q
-+	  }
-+	  /^X\(\/\).*/{
-+	    s//\1/
-+	    q
-+	  }
-+	  s/.*/./; q'`
-+      as_dir=$dirpart/$fdir; as_fn_mkdir_p
-+      # echo "creating $dirpart/$file"
-+      echo '# dummy' > "$dirpart/$file"
-+    done
-+  done
-+}
-+ ;;
- 
-+  esac
-+done # for ac_tag
- 
--EOF
--cat >> $CONFIG_STATUS <<\EOF
--test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h
- 
--exit 0
--EOF
--chmod +x $CONFIG_STATUS
--rm -fr confdefs* $ac_clean_files
--test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
-+as_fn_exit 0
-+_ACEOF
-+ac_clean_files=$ac_clean_files_save
-+
-+test $ac_write_fail = 0 ||
-+  as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
-+
-+
-+# configure is writing to config.log, and then calls config.status.
-+# config.status does its own redirection, appending to config.log.
-+# Unfortunately, on DOS this fails, as config.log is still kept open
-+# by configure, so config.status won't be able to write to it; its
-+# output is simply discarded.  So we exec the FD to /dev/null,
-+# effectively closing config.log, so it can be properly (re)opened and
-+# appended to by config.status.  When coming back to configure, we
-+# need to make the FD available again.
-+if test "$no_create" != yes; then
-+  ac_cs_success=:
-+  ac_config_status_args=
-+  test "$silent" = yes &&
-+    ac_config_status_args="$ac_config_status_args --quiet"
-+  exec 5>/dev/null
-+  $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
-+  exec 5>>config.log
-+  # Use ||, not &&, to avoid exiting from the if with $? = 1, which
-+  # would make configure fail if this is the last instruction.
-+  $ac_cs_success || as_fn_exit 1
-+fi
-+if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
-+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
-+$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
-+fi
- 
- 
 --- a/configure.in
 +++ b/configure.in
-@@ -13,7 +13,6 @@
+@@ -32,7 +32,6 @@
  define([AC_CACHE_LOAD], )
  define([AC_CACHE_SAVE], )
  
 -AC_INIT(README)
- AC_PREREQ(2.13)
+ AC_PREREQ(2.53)
  
  dnl-------------------------------------------------------------------------
-@@ -33,16 +32,13 @@
+@@ -52,17 +51,14 @@
  dnl	     the major version number; then reset it in the VERSION file:
  dnl		0.7.0
  
@@ -13015,16330 +127,14 @@ Description: Debian changes to the upstream tk707 package.
  dnl-------------------------------------------------------------------------
  
 -AM_INIT_AUTOMAKE($PACKAGE,$VERSION)
+-dnl AC_ARG_PROGRAM
 +AC_INIT([tk707], [0.7.21])
 +AC_CONFIG_SRCDIR([README])
 +AM_INIT_AUTOMAKE
- AC_ARG_PROGRAM
++AC_ARG_PROGRAM
  AM_CONFIG_HEADER(config.h)
  
-@@ -50,11 +46,7 @@
- dnl   check some commands
- dnl-------------------------------------------------------------------------
- 
--USER_CFLAGS=$CFLAGS
- AC_PROG_CC
--if test x"$GCC" = x"yes" -a x"$USER_CFLAGS" = x""; then
--    CFLAGS="-O9 -Wall -Wno-unused"
--fi
- dnl-------------------------------------------------------------------------
- dnl   check for maintainers tools (not requiered for build)
- dnl-------------------------------------------------------------------------
-@@ -169,11 +161,11 @@
- 
-     tcl_lib=
-     tk_lib=
--    for l in tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
-+    for l in tcl8.4 tcl8.3 tcl8.2 tcl8.1 tcl8.0 tcl8.0jp tcl7.6jp tcl80jp tcl76jp tcl7.6 tcl80 tcl76 tcl; do
-       case "x$tcl_lib" in x) AC_CHECK_LIB($l,Tcl_Init,tcl_lib=-l$l);; esac
-     done
-     LIBS="$LIBS $tcl_lib"
--    for l in tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
-+    for l in tk8.4 tk8.3 tk8.2 tk8.1 tk8.0 tk8.0jp tk4.2jp tk80jp tk42jp tk4.2 tk80 tk42 tk; do
-       case "x$tk_lib" in x) AC_CHECK_LIB($l,Tk_Init,tk_lib=-l$l);; esac
-     done
- 
-@@ -211,5 +203,6 @@
- dnl   Output
  dnl-------------------------------------------------------------------------
- 
--AC_OUTPUT(Makefile tk707.sh)
-+AC_CONFIG_FILES(Makefile tk707.sh)
-+AC_OUTPUT
- 
---- a/defs.c
-+++ b/defs.c
-@@ -1,343 +1,343 @@
--char tcl_defs[] = "\
--# -----------------------------------------\n\
--#	File defs.tcl\n\
--#	Definitions and pre-start set up.\n\
--# -----------------------------------------\n\
--proc usage {} {\n\
--    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n\
--    exit 0\n\
--}\n\
--set size_factor 1.0;\n\
--set input_file_name \"\";\n\
--set new_argv \"\"\n\
--for {set i 0} {$i < $argc} {incr i} {\n\
--        set argi [lindex $argv $i];\n\
--#       puts \"defs.tcl: argv($i) = `$argi'\";\n\
--        if {$argi == \"--help\"} {\n\
--	    usage\n\
--        } elseif {$argi == \"-small\"} {\n\
--#           puts \"defs.tcl: small!\";\n\
--	    set [lindex $argv $i] \"-n\";\n\
--	    set size_factor 0.5;\n\
--        } elseif {$argi == \"-medium\"} {\n\
--#           puts \"defs.tcl: medium!\";\n\
--	    set size_factor 0.75;\n\
--        } elseif {$argi == \"-normalsize\"} {\n\
--#           puts \"defs.tcl: normal!\";\n\
--	    set new_argv \"$new_argv $argi\"\n\
--	    set size_factor 1;\n\
--	} else {\n\
--	    # send option to the 2nd C-code pass...\n\
--#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n\
--	    set new_argv \"$new_argv $argi\"\n\
--	}\n\
--}\n\
--#\n\
--# we strip options to avoid mistakes\n\
--#  TODO: send -p x:y nd so to C code\n\
--set argv $new_argv\n\
--set argc [llength $argv]\n\
--#puts \"argv := $argv\"\n\
--#puts \"argc := $argc\"\n\
--# -----------------------------------------\n\
--# pixel to centimeter conversion\n\
--# -----------------------------------------\n\
--package require Tcl 8.0\n\
--package require Tk 8.0\n\
--set VERSION 0.7\n\
--set PKGDATADIR  [pwd]\n\
--\n\
--# uncomment to show sonme boxes:\n\
--#set debug_relief \"-borderwidth 2p -relief groove\";\n\
--set debug_relief \"\";\n\
--# -----------------------------------------\n\
--# pixel <--> point/inch/cm\n\
--# -----------------------------------------\n\
--set cm_per_inch     2.54;\n\
--set point_per_inch 72.00;\n\
--set point_per_cm [expr $point_per_inch / $cm_per_inch];\n\
--set pixel_per_point [tk scaling]\n\
--# puts \"dpi $pixel_per_point\"\n\
--set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
--set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
--# -----------------------------------------\n\
--# get window max dimension\n\
--# -----------------------------------------\n\
--set maxsize_in_pixel   [wm maxsize .]\n\
--set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n\
--set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n\
--set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n\
--set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n\
--# -----------------------------------------\n\
--# resize coefficient if window is too small\n\
--# -----------------------------------------\n\
--if {$size_factor < 0.75} { 	# small screens\n\
--    set size_factor 0.5; \n\
--    set font8 \"6\";\n\
--    set font12 \"6\"; \n\
--    set boldfont12 \"6\"; \n\
--    set boldfont13 \"6\";\n\
--    set courrier_boldfont_i_50 \"10\"; \n\
--    set boldr14 \"8\";\n\
--    set helvetica_bold_r_12 \"6\"; \n\
--    set normal_r_14 \"8\"; \n\
--} elseif {$size_factor < 1.0} { # medium screen\n\
--    set size_factor 0.75; \n\
--    set font8 \"6\";\n\
--    set font12 \"8\";\n\
--    set boldfont12 \"8\"; \n\
--    set boldfont13 \"8\"; \n\
--    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n\
--    set boldr14 \"bold-r-*-10\"; \n\
--    set helvetica_bold_r_12 \"8\"; \n\
--    set normal_r_14 \"10\"; \n\
--} else { 			# normal screen\n\
--    set size_factor 1.0;\n\
--    set font8 \"8\";\n\
--    set font12 \"*-helvetica-medium-o-*--8\";\n\
--    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n\
--    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n\
--    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n\
--    set boldr14 \"bold-r-*-14\"; \n\
--    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n\
--    set normal_r_14 \"normal-r-*-14\"; \n\
--}\n\
--# -----------------------------------------\n\
--# pixel to centimeter conversion\n\
--# -----------------------------------------\n\
--set scaling $size_factor;\n\
--tk scaling $scaling\n\
--set pixel_per_point [tk scaling]\n\
--set point_per_pixel [expr 1./$pixel_per_point]\n\
--set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
--set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
--# -----------------------------------------\n\
--# set global constants\n\
--# -----------------------------------------\n\
--set tcl_rcFileName \"~/.tk707rc\"\n\
--if {[catch {open $tcl_rcFileName r} fid]} {\n\
--} else {\n\
--      catch {source $tcl_rcFileName}\n\
--}\n\
--set res [eval tk7_init $argv]\n\
--if {$res == 1 || $res == 3} {\n\
--	exit\n\
--} elseif {$res ==2} {\n\
--	wm iconify .\n\
--	port_setup\n\
--	tk7_init\n\
--}\n\
--rename exit exit.old\n\
--proc exit {} {\n\
--	exit707\n\
--	exit.old\n\
--}\n\
--# -----------------------------------------\n\
--# set global constants\n\
--# -----------------------------------------\n\
--set right_space_width 0.5;\n\
--\n\
--\n\
--set tkxox(VERSION)		\"TK707-$VERSION\"\n\
--set tkxox(READ) 		0\n\
--set tkxox(WRITE) 		1\n\
--set tkxox(TRACK) 		0\n\
--set tkxox(PATTERN) 		1\n\
--set tkxox(STOP)			0\n\
--set tkxox(START)		1\n\
--set tkxox(CONT)			2\n\
--set tkxox(FILE_UNCHANGED)	0\n\
--set tkxox(FILE_MODIFIED)	1\n\
--set tkxox(col_on) 		#ffaa00\n\
--set tkxox(col_active) 		#ffaaaa\n\
--set tkxox(col_def_bg) 		#d9d9d9\n\
--set tkxox(col_def_active) 	#ececec\n\
--set tkxox(but_grey) 		#888888\n\
--set tkxox(but_grey_active) 	#999999\n\
--set tkxox(but_grey_on) 		#bbbbbb\n\
--set tkxox(lamp_off) 		#882200\n\
--set tkxox(lamp_on) 		#ff8800\n\
--set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n\
--set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n\
--set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n\
--set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n\
--set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n\
--set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n\
--\n\
--set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n\
--set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n\
--set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n\
--\n\
--set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n\
--set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n\
--set tkxox(color_title_bg)       $tkxox(col_def_bg); \n\
--\n\
--set tkxox(tick_flam_duration)	4\n\
--#\n\
--# color background\n\
--#\n\
--tk_setPalette $tkxox(col_def_bg)\n\
--#\n\
--#\n\
--# Properties of note elements:\n\
--# WARNING: may be as in <util.h>\n\
--#\n\
--set tkxox(flam)               	[expr 1 << 0]\n\
--set tkxox(weak_accent)       	[expr 1 << 1]\n\
--set tkxox(strong_accent)     	[expr 1 << 2]\n\
--set tkxox(zero_velocity)       	[expr 1 << 3]\n\
--set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n\
--				      $tkxox(weak_accent)   | \\\n\
--				      $tkxox(strong_accent)]\n\
--\n\
--set tkxox(col_default_velocity) $tkxox(but_grey)\n\
--set tkxox(col_weak_accent)      $tkxox(lamp_on)\n\
--set tkxox(col_strong_accent)    #ff0000\n\
--set tkxox(col_zero_velocity)    white\n\
--\n\
--\n\
--set mode(rdrw) 			$tkxox(READ)\n\
--set mode(patr) 			-1\n\
--set mode(stopgo) 		$tkxox(STOP)\n\
--set mode(patgroup) 		0\n\
--set mode(current_track) 	0\n\
--set mode(current_pattern) 	0\n\
--set mode(current_instr)		1\n\
--set mode(measure) 		-1\n\
--set mode(tempo) 		120\n\
--set mode(cartridge) 		0\n\
--set mode(midi_channel) 		0\n\
--set mode(PATTERN_REPEAT) 	false\n\
--set mode(TRACK_START) 		false\n\
--set mode(REPEAT_INTERVAL) 	5\n\
--set mode(showtrack)		true\n\
--set mode(current_accent)	0\n\
--set mode(file_status)		$tkxox(FILE_UNCHANGED)\n\
--\n\
--set flash(count) -1\n\
--set flash(duration) 20\n\
--\n\
--# Default sound mapping\n\
--#\n\
--set sound(1,name) \"Bass 1\"\n\
--set sound(1,shortname) \"Bass 1\"\n\
--set sound(1,note) 35\n\
--set sound(2,name) \"Bass 2\"\n\
--set sound(2,shortname) \"Bass 2\"\n\
--set sound(2,note) 36\n\
--set sound(3,name) \"Snare 1\"\n\
--set sound(3,shortname) \"Snare 1\"\n\
--set sound(3,note) 38\n\
--set sound(4,name) \"Snare 2\"\n\
--set sound(4,shortname) \"Snare 2\"\n\
--set sound(4,note) 40\n\
--set sound(5,name) \"LowTom\"\n\
--set sound(5,shortname) \"LowTom\"\n\
--set sound(5,note) 41\n\
--set sound(6,name) \"MidTom\"\n\
--set sound(6,shortname) \"MidTom\"\n\
--set sound(6,note) 45\n\
--set sound(7,name) \"HighTom\"\n\
--set sound(7,shortname) \"HighTom\"\n\
--set sound(7,note) 48\n\
--set sound(8,name) \"Rim\"\n\
--set sound(8,shortname) \"Rim\"\n\
--set sound(8,note) 37\n\
--set sound(9,name) \"Cowbell\"\n\
--set sound(9,shortname) \"Cowbell\"\n\
--set sound(9,note) 56\n\
--set sound(10,name) \"Hand Clap\"\n\
--set sound(10,shortname) \"Clap\"\n\
--set sound(10,note) 39\n\
--set sound(11,name) \"Tambourine\"\n\
--set sound(11,shortname) \"Tamb\"\n\
--set sound(11,note) 54\n\
--set sound(12,name) \"HH Closed 1\"\n\
--set sound(12,shortname) \"HH C1\"\n\
--set sound(12,note) 42\n\
--set sound(13,name) \"HH Closed 2\"\n\
--set sound(13,shortname) \"HH C2\"\n\
--set sound(13,note) 42\n\
--set sound(14,name) \"HHat Open\"\n\
--set sound(14,shortname) \"HH Open\"\n\
--set sound(14,note) 46\n\
--set sound(15,name) \"Crash\"\n\
--set sound(15,shortname) \"Crash\"\n\
--set sound(15,note) 49\n\
--set sound(16,name) \"Ride\"\n\
--set sound(16,shortname) \"Ride\"\n\
--set sound(16,note) 51\n\
--tk7_set_sounds\n\
--#\n\
--# instrument(1:16) to volume(1:10) mapping\n\
--#\n\
--set instrument_to_volume(1) 1\n\
--set instrument_to_volume(2) 1\n\
--set instrument_to_volume(3) 2\n\
--set instrument_to_volume(4) 2\n\
--set instrument_to_volume(5) 3\n\
--set instrument_to_volume(6) 4\n\
--set instrument_to_volume(7) 5\n\
--set instrument_to_volume(8) 6\n\
--set instrument_to_volume(9) 6\n\
--set instrument_to_volume(10) 7\n\
--set instrument_to_volume(11) 7\n\
--set instrument_to_volume(12) 8\n\
--set instrument_to_volume(13) 8\n\
--set instrument_to_volume(14) 8\n\
--set instrument_to_volume(15) 9\n\
--set instrument_to_volume(16) 10\n\
--\n\
--#\n\
--# default abbrevs, for volume labels\n\
--#\n\
--set sound(1,abbrev)  \"BASS\"\n\
--set sound(2,abbrev)  \"\"\n\
--set sound(3,abbrev)  \"SNARE\"\n\
--set sound(4,abbrev)  \"\"\n\
--set sound(5,abbrev)  \"LT\"\n\
--set sound(6,abbrev)  \"MT\"\n\
--set sound(7,abbrev)  \"HT\"\n\
--set sound(8,abbrev)  \"R\"\n\
--set sound(9,abbrev)  \"CB\"\n\
--set sound(10,abbrev) \"C\"\n\
--set sound(11,abbrev) \"T\"\n\
--set sound(12,abbrev) \"HH\"\n\
--set sound(13,abbrev) \"\"\n\
--set sound(14,abbrev) \"\"\n\
--set sound(15,abbrev) \"CRASH\"\n\
--set sound(16,abbrev) \"RIDE\"\n\
--#\n\
--# default volume labels\n\
--#\n\
--set volume_label(0) \"ACCENT\"\n\
--set volume_label(1) \"$sound(1,abbrev)\"\n\
--set volume_label(2) \"$sound(3,abbrev)\"\n\
--set volume_label(3) \"$sound(5,abbrev)\"\n\
--set volume_label(4) \"$sound(6,abbrev)\"\n\
--set volume_label(5) \"$sound(7,abbrev)\"\n\
--set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n\
--set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n\
--set volume_label(8) \"$sound(12,abbrev)\"\n\
--set volume_label(9) \"$sound(15,abbrev)\"\n\
--set volume_label(10) \"$sound(16,abbrev)\"\n\
--#\n\
--# default implicit delay (e.g. short sound)\n\
--#\n\
--set has_delay(1) 0\n\
--set has_delay(2) 0\n\
--set has_delay(3) 0\n\
--set has_delay(4) 0\n\
--set has_delay(5) 0\n\
--set has_delay(6) 0\n\
--set has_delay(7) 0\n\
--set has_delay(8) 0\n\
--set has_delay(9) 0\n\
--set has_delay(10) 0\n\
--set has_delay(11) 0\n\
--set has_delay(12) 0\n\
--set has_delay(13) 0\n\
--set has_delay(14) 0\n\
--set has_delay(15) 0\n\
--set has_delay(16) 0\n\
--";
-+char tcl_defs[] = ""
-+"# -----------------------------------------\n"
-+"#	File defs.tcl\n"
-+"#	Definitions and pre-start set up.\n"
-+"# -----------------------------------------\n"
-+"proc usage {} {\n"
-+"    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n"
-+"    exit 0\n"
-+"}\n"
-+"set size_factor 1.0;\n"
-+"set input_file_name \"\";\n"
-+"set new_argv \"\"\n"
-+"for {set i 0} {$i < $argc} {incr i} {\n"
-+"        set argi [lindex $argv $i];\n"
-+"#       puts \"defs.tcl: argv($i) = `$argi'\";\n"
-+"        if {$argi == \"--help\"} {\n"
-+"	    usage\n"
-+"        } elseif {$argi == \"-small\"} {\n"
-+"#           puts \"defs.tcl: small!\";\n"
-+"	    set [lindex $argv $i] \"-n\";\n"
-+"	    set size_factor 0.5;\n"
-+"        } elseif {$argi == \"-medium\"} {\n"
-+"#           puts \"defs.tcl: medium!\";\n"
-+"	    set size_factor 0.75;\n"
-+"        } elseif {$argi == \"-normalsize\"} {\n"
-+"#           puts \"defs.tcl: normal!\";\n"
-+"	    set new_argv \"$new_argv $argi\"\n"
-+"	    set size_factor 1;\n"
-+"	} else {\n"
-+"	    # send option to the 2nd C-code pass...\n"
-+"#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n"
-+"	    set new_argv \"$new_argv $argi\"\n"
-+"	}\n"
-+"}\n"
-+"#\n"
-+"# we strip options to avoid mistakes\n"
-+"#  TODO: send -p x:y nd so to C code\n"
-+"set argv $new_argv\n"
-+"set argc [llength $argv]\n"
-+"#puts \"argv := $argv\"\n"
-+"#puts \"argc := $argc\"\n"
-+"# -----------------------------------------\n"
-+"# pixel to centimeter conversion\n"
-+"# -----------------------------------------\n"
-+"package require Tcl 8.0\n"
-+"package require Tk 8.0\n"
-+"set VERSION     0.6\n"
-+"set PKGDATADIR  [pwd]\n"
-+"\n"
-+"# uncomment to show sonme boxes:\n"
-+"#set debug_relief \"-borderwidth 2p -relief groove\";\n"
-+"set debug_relief \"\";\n"
-+"# -----------------------------------------\n"
-+"# pixel <--> point/inch/cm\n"
-+"# -----------------------------------------\n"
-+"set cm_per_inch     2.54;\n"
-+"set point_per_inch 72.00;\n"
-+"set point_per_cm [expr $point_per_inch / $cm_per_inch];\n"
-+"set pixel_per_point [tk scaling]\n"
-+"# puts \"dpi $pixel_per_point\"\n"
-+"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-+"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-+"# -----------------------------------------\n"
-+"# get window max dimension\n"
-+"# -----------------------------------------\n"
-+"set maxsize_in_pixel   [wm maxsize .]\n"
-+"set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n"
-+"set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n"
-+"set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n"
-+"set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n"
-+"# -----------------------------------------\n"
-+"# resize coefficient if window is too small\n"
-+"# -----------------------------------------\n"
-+"if {$size_factor < 0.75} { 	# small screens\n"
-+"    set size_factor 0.5; \n"
-+"    set font8 \"6\";\n"
-+"    set font12 \"6\"; \n"
-+"    set boldfont12 \"6\"; \n"
-+"    set boldfont13 \"6\";\n"
-+"    set courrier_boldfont_i_50 \"10\"; \n"
-+"    set boldr14 \"8\";\n"
-+"    set helvetica_bold_r_12 \"6\"; \n"
-+"    set normal_r_14 \"8\"; \n"
-+"} elseif {$size_factor < 1.0} { # medium screen\n"
-+"    set size_factor 0.75; \n"
-+"    set font8 \"6\";\n"
-+"    set font12 \"8\";\n"
-+"    set boldfont12 \"8\"; \n"
-+"    set boldfont13 \"8\"; \n"
-+"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n"
-+"    set boldr14 \"bold-r-*-10\"; \n"
-+"    set helvetica_bold_r_12 \"8\"; \n"
-+"    set normal_r_14 \"10\"; \n"
-+"} else { 			# normal screen\n"
-+"    set size_factor 1.0;\n"
-+"    set font8 \"8\";\n"
-+"    set font12 \"*-helvetica-medium-o-*--8\";\n"
-+"    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n"
-+"    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n"
-+"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n"
-+"    set boldr14 \"bold-r-*-14\"; \n"
-+"    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n"
-+"    set normal_r_14 \"normal-r-*-14\"; \n"
-+"}\n"
-+"# -----------------------------------------\n"
-+"# pixel to centimeter conversion\n"
-+"# -----------------------------------------\n"
-+"set scaling $size_factor;\n"
-+"tk scaling $scaling\n"
-+"set pixel_per_point [tk scaling]\n"
-+"set point_per_pixel [expr 1./$pixel_per_point]\n"
-+"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-+"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-+"# -----------------------------------------\n"
-+"# set global constants\n"
-+"# -----------------------------------------\n"
-+"set tcl_rcFileName \"~/.tk707rc\"\n"
-+"if {[catch {open $tcl_rcFileName r} fid]} {\n"
-+"} else {\n"
-+"      catch {source $tcl_rcFileName}\n"
-+"}\n"
-+"set res [eval tk7_init $argv]\n"
-+"if {$res == 1 || $res == 3} {\n"
-+"	exit\n"
-+"} elseif {$res ==2} {\n"
-+"	wm iconify .\n"
-+"	port_setup\n"
-+"	tk7_init\n"
-+"}\n"
-+"rename exit exit.old\n"
-+"proc exit {} {\n"
-+"	exit707\n"
-+"	exit.old\n"
-+"}\n"
-+"# -----------------------------------------\n"
-+"# set global constants\n"
-+"# -----------------------------------------\n"
-+"set right_space_width 0.5;\n"
-+"\n"
-+"\n"
-+"set tkxox(VERSION)		\"TK707-$VERSION\"\n"
-+"set tkxox(READ) 		0\n"
-+"set tkxox(WRITE) 		1\n"
-+"set tkxox(TRACK) 		0\n"
-+"set tkxox(PATTERN) 		1\n"
-+"set tkxox(STOP)			0\n"
-+"set tkxox(START)		1\n"
-+"set tkxox(CONT)			2\n"
-+"set tkxox(FILE_UNCHANGED)	0\n"
-+"set tkxox(FILE_MODIFIED)	1\n"
-+"set tkxox(col_on) 		#ffaa00\n"
-+"set tkxox(col_active) 		#ffaaaa\n"
-+"set tkxox(col_def_bg) 		#d9d9d9\n"
-+"set tkxox(col_def_active) 	#ececec\n"
-+"set tkxox(but_grey) 		#888888\n"
-+"set tkxox(but_grey_active) 	#999999\n"
-+"set tkxox(but_grey_on) 		#bbbbbb\n"
-+"set tkxox(lamp_off) 		#882200\n"
-+"set tkxox(lamp_on) 		#ff8800\n"
-+"set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n"
-+"set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n"
-+"set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n"
-+"set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n"
-+"set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n"
-+"set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n"
-+"\n"
-+"set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n"
-+"set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n"
-+"set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n"
-+"\n"
-+"set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n"
-+"set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n"
-+"set tkxox(color_title_bg)       $tkxox(col_def_bg); \n"
-+"\n"
-+"set tkxox(tick_flam_duration)	4\n"
-+"#\n"
-+"# color background\n"
-+"#\n"
-+"tk_setPalette $tkxox(col_def_bg)\n"
-+"#\n"
-+"#\n"
-+"# Properties of note elements:\n"
-+"# WARNING: may be as in <util.h>\n"
-+"#\n"
-+"set tkxox(flam)               	[expr 1 << 0]\n"
-+"set tkxox(weak_accent)       	[expr 1 << 1]\n"
-+"set tkxox(strong_accent)     	[expr 1 << 2]\n"
-+"set tkxox(zero_velocity)       	[expr 1 << 3]\n"
-+"set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n"
-+"				      $tkxox(weak_accent)   | \\\n"
-+"				      $tkxox(strong_accent)]\n"
-+"\n"
-+"set tkxox(col_default_velocity) $tkxox(but_grey)\n"
-+"set tkxox(col_weak_accent)      $tkxox(lamp_on)\n"
-+"set tkxox(col_strong_accent)    #ff0000\n"
-+"set tkxox(col_zero_velocity)    white\n"
-+"\n"
-+"\n"
-+"set mode(rdrw) 			$tkxox(READ)\n"
-+"set mode(patr) 			-1\n"
-+"set mode(stopgo) 		$tkxox(STOP)\n"
-+"set mode(patgroup) 		0\n"
-+"set mode(current_track) 	0\n"
-+"set mode(current_pattern) 	0\n"
-+"set mode(current_instr)		1\n"
-+"set mode(measure) 		-1\n"
-+"set mode(tempo) 		120\n"
-+"set mode(cartridge) 		0\n"
-+"set mode(midi_channel) 		0\n"
-+"set mode(PATTERN_REPEAT) 	false\n"
-+"set mode(TRACK_START) 		false\n"
-+"set mode(REPEAT_INTERVAL) 	5\n"
-+"set mode(showtrack)		true\n"
-+"set mode(current_accent)	0\n"
-+"set mode(file_status)		$tkxox(FILE_UNCHANGED)\n"
-+"\n"
-+"set flash(count) -1\n"
-+"set flash(duration) 20\n"
-+"\n"
-+"# Default sound mapping\n"
-+"#\n"
-+"set sound(1,name) \"Bass 1\"\n"
-+"set sound(1,shortname) \"Bass 1\"\n"
-+"set sound(1,note) 35\n"
-+"set sound(2,name) \"Bass 2\"\n"
-+"set sound(2,shortname) \"Bass 2\"\n"
-+"set sound(2,note) 36\n"
-+"set sound(3,name) \"Snare 1\"\n"
-+"set sound(3,shortname) \"Snare 1\"\n"
-+"set sound(3,note) 38\n"
-+"set sound(4,name) \"Snare 2\"\n"
-+"set sound(4,shortname) \"Snare 2\"\n"
-+"set sound(4,note) 40\n"
-+"set sound(5,name) \"LowTom\"\n"
-+"set sound(5,shortname) \"LowTom\"\n"
-+"set sound(5,note) 41\n"
-+"set sound(6,name) \"MidTom\"\n"
-+"set sound(6,shortname) \"MidTom\"\n"
-+"set sound(6,note) 45\n"
-+"set sound(7,name) \"HighTom\"\n"
-+"set sound(7,shortname) \"HighTom\"\n"
-+"set sound(7,note) 48\n"
-+"set sound(8,name) \"Rim\"\n"
-+"set sound(8,shortname) \"Rim\"\n"
-+"set sound(8,note) 37\n"
-+"set sound(9,name) \"Cowbell\"\n"
-+"set sound(9,shortname) \"Cowbell\"\n"
-+"set sound(9,note) 56\n"
-+"set sound(10,name) \"Hand Clap\"\n"
-+"set sound(10,shortname) \"Clap\"\n"
-+"set sound(10,note) 39\n"
-+"set sound(11,name) \"Tambourine\"\n"
-+"set sound(11,shortname) \"Tamb\"\n"
-+"set sound(11,note) 54\n"
-+"set sound(12,name) \"HH Closed 1\"\n"
-+"set sound(12,shortname) \"HH C1\"\n"
-+"set sound(12,note) 42\n"
-+"set sound(13,name) \"HH Closed 2\"\n"
-+"set sound(13,shortname) \"HH C2\"\n"
-+"set sound(13,note) 42\n"
-+"set sound(14,name) \"HHat Open\"\n"
-+"set sound(14,shortname) \"HH Open\"\n"
-+"set sound(14,note) 46\n"
-+"set sound(15,name) \"Crash\"\n"
-+"set sound(15,shortname) \"Crash\"\n"
-+"set sound(15,note) 49\n"
-+"set sound(16,name) \"Ride\"\n"
-+"set sound(16,shortname) \"Ride\"\n"
-+"set sound(16,note) 51\n"
-+"tk7_set_sounds\n"
-+"#\n"
-+"# instrument(1:16) to volume(1:10) mapping\n"
-+"#\n"
-+"set instrument_to_volume(1) 1\n"
-+"set instrument_to_volume(2) 1\n"
-+"set instrument_to_volume(3) 2\n"
-+"set instrument_to_volume(4) 2\n"
-+"set instrument_to_volume(5) 3\n"
-+"set instrument_to_volume(6) 4\n"
-+"set instrument_to_volume(7) 5\n"
-+"set instrument_to_volume(8) 6\n"
-+"set instrument_to_volume(9) 6\n"
-+"set instrument_to_volume(10) 7\n"
-+"set instrument_to_volume(11) 7\n"
-+"set instrument_to_volume(12) 8\n"
-+"set instrument_to_volume(13) 8\n"
-+"set instrument_to_volume(14) 8\n"
-+"set instrument_to_volume(15) 9\n"
-+"set instrument_to_volume(16) 10\n"
-+"\n"
-+"#\n"
-+"# default abbrevs, for volume labels\n"
-+"#\n"
-+"set sound(1,abbrev)  \"BASS\"\n"
-+"set sound(2,abbrev)  \"\"\n"
-+"set sound(3,abbrev)  \"SNARE\"\n"
-+"set sound(4,abbrev)  \"\"\n"
-+"set sound(5,abbrev)  \"LT\"\n"
-+"set sound(6,abbrev)  \"MT\"\n"
-+"set sound(7,abbrev)  \"HT\"\n"
-+"set sound(8,abbrev)  \"R\"\n"
-+"set sound(9,abbrev)  \"CB\"\n"
-+"set sound(10,abbrev) \"C\"\n"
-+"set sound(11,abbrev) \"T\"\n"
-+"set sound(12,abbrev) \"HH\"\n"
-+"set sound(13,abbrev) \"\"\n"
-+"set sound(14,abbrev) \"\"\n"
-+"set sound(15,abbrev) \"CRASH\"\n"
-+"set sound(16,abbrev) \"RIDE\"\n"
-+"#\n"
-+"# default volume labels\n"
-+"#\n"
-+"set volume_label(0) \"ACCENT\"\n"
-+"set volume_label(1) \"$sound(1,abbrev)\"\n"
-+"set volume_label(2) \"$sound(3,abbrev)\"\n"
-+"set volume_label(3) \"$sound(5,abbrev)\"\n"
-+"set volume_label(4) \"$sound(6,abbrev)\"\n"
-+"set volume_label(5) \"$sound(7,abbrev)\"\n"
-+"set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n"
-+"set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n"
-+"set volume_label(8) \"$sound(12,abbrev)\"\n"
-+"set volume_label(9) \"$sound(15,abbrev)\"\n"
-+"set volume_label(10) \"$sound(16,abbrev)\"\n"
-+"#\n"
-+"# default implicit delay (e.g. short sound)\n"
-+"#\n"
-+"set has_delay(1) 0\n"
-+"set has_delay(2) 0\n"
-+"set has_delay(3) 0\n"
-+"set has_delay(4) 0\n"
-+"set has_delay(5) 0\n"
-+"set has_delay(6) 0\n"
-+"set has_delay(7) 0\n"
-+"set has_delay(8) 0\n"
-+"set has_delay(9) 0\n"
-+"set has_delay(10) 0\n"
-+"set has_delay(11) 0\n"
-+"set has_delay(12) 0\n"
-+"set has_delay(13) 0\n"
-+"set has_delay(14) 0\n"
-+"set has_delay(15) 0\n"
-+"set has_delay(16) 0\n"
-+"";
---- a/defsa.c
-+++ b/defsa.c
-@@ -1,343 +1,343 @@
--char tcl_defs[] = "\
--# -----------------------------------------\n\
--#	File defs.tcl\n\
--#	Definitions and pre-start set up.\n\
--# -----------------------------------------\n\
--proc usage {} {\n\
--    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n\
--    exit 0\n\
--}\n\
--set size_factor 1.0;\n\
--set input_file_name \"\";\n\
--set new_argv \"\"\n\
--for {set i 0} {$i < $argc} {incr i} {\n\
--        set argi [lindex $argv $i];\n\
--#       puts \"defs.tcl: argv($i) = `$argi'\";\n\
--        if {$argi == \"--help\"} {\n\
--	    usage\n\
--        } elseif {$argi == \"-small\"} {\n\
--#           puts \"defs.tcl: small!\";\n\
--	    set [lindex $argv $i] \"-n\";\n\
--	    set size_factor 0.5;\n\
--        } elseif {$argi == \"-medium\"} {\n\
--#           puts \"defs.tcl: medium!\";\n\
--	    set size_factor 0.75;\n\
--        } elseif {$argi == \"-normalsize\"} {\n\
--#           puts \"defs.tcl: normal!\";\n\
--	    set new_argv \"$new_argv $argi\"\n\
--	    set size_factor 1;\n\
--	} else {\n\
--	    # send option to the 2nd C-code pass...\n\
--#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n\
--	    set new_argv \"$new_argv $argi\"\n\
--	}\n\
--}\n\
--#\n\
--# we strip options to avoid mistakes\n\
--#  TODO: send -p x:y nd so to C code\n\
--set argv $new_argv\n\
--set argc [llength $argv]\n\
--#puts \"argv := $argv\"\n\
--#puts \"argc := $argc\"\n\
--# -----------------------------------------\n\
--# pixel to centimeter conversion\n\
--# -----------------------------------------\n\
--package require Tcl 8.0\n\
--package require Tk 8.0\n\
--set VERSION 0.7\n\
--set PKGDATADIR /yama/home/edp/saramito/sys/SunOS/share/tk707
--\n\
--# uncomment to show sonme boxes:\n\
--#set debug_relief \"-borderwidth 2p -relief groove\";\n\
--set debug_relief \"\";\n\
--# -----------------------------------------\n\
--# pixel <--> point/inch/cm\n\
--# -----------------------------------------\n\
--set cm_per_inch     2.54;\n\
--set point_per_inch 72.00;\n\
--set point_per_cm [expr $point_per_inch / $cm_per_inch];\n\
--set pixel_per_point [tk scaling]\n\
--# puts \"dpi $pixel_per_point\"\n\
--set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
--set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
--# -----------------------------------------\n\
--# get window max dimension\n\
--# -----------------------------------------\n\
--set maxsize_in_pixel   [wm maxsize .]\n\
--set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n\
--set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n\
--set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n\
--set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n\
--# -----------------------------------------\n\
--# resize coefficient if window is too small\n\
--# -----------------------------------------\n\
--if {$size_factor < 0.75} { 	# small screens\n\
--    set size_factor 0.5; \n\
--    set font8 \"6\";\n\
--    set font12 \"6\"; \n\
--    set boldfont12 \"6\"; \n\
--    set boldfont13 \"6\";\n\
--    set courrier_boldfont_i_50 \"10\"; \n\
--    set boldr14 \"8\";\n\
--    set helvetica_bold_r_12 \"6\"; \n\
--    set normal_r_14 \"8\"; \n\
--} elseif {$size_factor < 1.0} { # medium screen\n\
--    set size_factor 0.75; \n\
--    set font8 \"6\";\n\
--    set font12 \"8\";\n\
--    set boldfont12 \"8\"; \n\
--    set boldfont13 \"8\"; \n\
--    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n\
--    set boldr14 \"bold-r-*-10\"; \n\
--    set helvetica_bold_r_12 \"8\"; \n\
--    set normal_r_14 \"10\"; \n\
--} else { 			# normal screen\n\
--    set size_factor 1.0;\n\
--    set font8 \"8\";\n\
--    set font12 \"*-helvetica-medium-o-*--8\";\n\
--    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n\
--    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n\
--    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n\
--    set boldr14 \"bold-r-*-14\"; \n\
--    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n\
--    set normal_r_14 \"normal-r-*-14\"; \n\
--}\n\
--# -----------------------------------------\n\
--# pixel to centimeter conversion\n\
--# -----------------------------------------\n\
--set scaling $size_factor;\n\
--tk scaling $scaling\n\
--set pixel_per_point [tk scaling]\n\
--set point_per_pixel [expr 1./$pixel_per_point]\n\
--set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
--set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
--# -----------------------------------------\n\
--# set global constants\n\
--# -----------------------------------------\n\
--set tcl_rcFileName \"~/.tk707rc\"\n\
--if {[catch {open $tcl_rcFileName r} fid]} {\n\
--} else {\n\
--      catch {source $tcl_rcFileName}\n\
--}\n\
--set res [eval tk7_init $argv]\n\
--if {$res == 1 || $res == 3} {\n\
--	exit\n\
--} elseif {$res ==2} {\n\
--	wm iconify .\n\
--	port_setup\n\
--	tk7_init\n\
--}\n\
--rename exit exit.old\n\
--proc exit {} {\n\
--	exit707\n\
--	exit.old\n\
--}\n\
--# -----------------------------------------\n\
--# set global constants\n\
--# -----------------------------------------\n\
--set right_space_width 0.5;\n\
--\n\
--\n\
--set tkxox(VERSION)		\"TK707-$VERSION\"\n\
--set tkxox(READ) 		0\n\
--set tkxox(WRITE) 		1\n\
--set tkxox(TRACK) 		0\n\
--set tkxox(PATTERN) 		1\n\
--set tkxox(STOP)			0\n\
--set tkxox(START)		1\n\
--set tkxox(CONT)			2\n\
--set tkxox(FILE_UNCHANGED)	0\n\
--set tkxox(FILE_MODIFIED)	1\n\
--set tkxox(col_on) 		#ffaa00\n\
--set tkxox(col_active) 		#ffaaaa\n\
--set tkxox(col_def_bg) 		#d9d9d9\n\
--set tkxox(col_def_active) 	#ececec\n\
--set tkxox(but_grey) 		#888888\n\
--set tkxox(but_grey_active) 	#999999\n\
--set tkxox(but_grey_on) 		#bbbbbb\n\
--set tkxox(lamp_off) 		#882200\n\
--set tkxox(lamp_on) 		#ff8800\n\
--set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n\
--set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n\
--set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n\
--set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n\
--set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n\
--set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n\
--\n\
--set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n\
--set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n\
--set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n\
--\n\
--set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n\
--set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n\
--set tkxox(color_title_bg)       $tkxox(col_def_bg); \n\
--\n\
--set tkxox(tick_flam_duration)	4\n\
--#\n\
--# color background\n\
--#\n\
--tk_setPalette $tkxox(col_def_bg)\n\
--#\n\
--#\n\
--# Properties of note elements:\n\
--# WARNING: may be as in <util.h>\n\
--#\n\
--set tkxox(flam)               	[expr 1 << 0]\n\
--set tkxox(weak_accent)       	[expr 1 << 1]\n\
--set tkxox(strong_accent)     	[expr 1 << 2]\n\
--set tkxox(zero_velocity)       	[expr 1 << 3]\n\
--set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n\
--				      $tkxox(weak_accent)   | \\\n\
--				      $tkxox(strong_accent)]\n\
--\n\
--set tkxox(col_default_velocity) $tkxox(but_grey)\n\
--set tkxox(col_weak_accent)      $tkxox(lamp_on)\n\
--set tkxox(col_strong_accent)    #ff0000\n\
--set tkxox(col_zero_velocity)    white\n\
--\n\
--\n\
--set mode(rdrw) 			$tkxox(READ)\n\
--set mode(patr) 			-1\n\
--set mode(stopgo) 		$tkxox(STOP)\n\
--set mode(patgroup) 		0\n\
--set mode(current_track) 	0\n\
--set mode(current_pattern) 	0\n\
--set mode(current_instr)		1\n\
--set mode(measure) 		-1\n\
--set mode(tempo) 		120\n\
--set mode(cartridge) 		0\n\
--set mode(midi_channel) 		0\n\
--set mode(PATTERN_REPEAT) 	false\n\
--set mode(TRACK_START) 		false\n\
--set mode(REPEAT_INTERVAL) 	5\n\
--set mode(showtrack)		true\n\
--set mode(current_accent)	0\n\
--set mode(file_status)		$tkxox(FILE_UNCHANGED)\n\
--\n\
--set flash(count) -1\n\
--set flash(duration) 20\n\
--\n\
--# Default sound mapping\n\
--#\n\
--set sound(1,name) \"Bass 1\"\n\
--set sound(1,shortname) \"Bass 1\"\n\
--set sound(1,note) 35\n\
--set sound(2,name) \"Bass 2\"\n\
--set sound(2,shortname) \"Bass 2\"\n\
--set sound(2,note) 36\n\
--set sound(3,name) \"Snare 1\"\n\
--set sound(3,shortname) \"Snare 1\"\n\
--set sound(3,note) 38\n\
--set sound(4,name) \"Snare 2\"\n\
--set sound(4,shortname) \"Snare 2\"\n\
--set sound(4,note) 40\n\
--set sound(5,name) \"LowTom\"\n\
--set sound(5,shortname) \"LowTom\"\n\
--set sound(5,note) 41\n\
--set sound(6,name) \"MidTom\"\n\
--set sound(6,shortname) \"MidTom\"\n\
--set sound(6,note) 45\n\
--set sound(7,name) \"HighTom\"\n\
--set sound(7,shortname) \"HighTom\"\n\
--set sound(7,note) 48\n\
--set sound(8,name) \"Rim\"\n\
--set sound(8,shortname) \"Rim\"\n\
--set sound(8,note) 37\n\
--set sound(9,name) \"Cowbell\"\n\
--set sound(9,shortname) \"Cowbell\"\n\
--set sound(9,note) 56\n\
--set sound(10,name) \"Hand Clap\"\n\
--set sound(10,shortname) \"Clap\"\n\
--set sound(10,note) 39\n\
--set sound(11,name) \"Tambourine\"\n\
--set sound(11,shortname) \"Tamb\"\n\
--set sound(11,note) 54\n\
--set sound(12,name) \"HH Closed 1\"\n\
--set sound(12,shortname) \"HH C1\"\n\
--set sound(12,note) 42\n\
--set sound(13,name) \"HH Closed 2\"\n\
--set sound(13,shortname) \"HH C2\"\n\
--set sound(13,note) 42\n\
--set sound(14,name) \"HHat Open\"\n\
--set sound(14,shortname) \"HH Open\"\n\
--set sound(14,note) 46\n\
--set sound(15,name) \"Crash\"\n\
--set sound(15,shortname) \"Crash\"\n\
--set sound(15,note) 49\n\
--set sound(16,name) \"Ride\"\n\
--set sound(16,shortname) \"Ride\"\n\
--set sound(16,note) 51\n\
--tk7_set_sounds\n\
--#\n\
--# instrument(1:16) to volume(1:10) mapping\n\
--#\n\
--set instrument_to_volume(1) 1\n\
--set instrument_to_volume(2) 1\n\
--set instrument_to_volume(3) 2\n\
--set instrument_to_volume(4) 2\n\
--set instrument_to_volume(5) 3\n\
--set instrument_to_volume(6) 4\n\
--set instrument_to_volume(7) 5\n\
--set instrument_to_volume(8) 6\n\
--set instrument_to_volume(9) 6\n\
--set instrument_to_volume(10) 7\n\
--set instrument_to_volume(11) 7\n\
--set instrument_to_volume(12) 8\n\
--set instrument_to_volume(13) 8\n\
--set instrument_to_volume(14) 8\n\
--set instrument_to_volume(15) 9\n\
--set instrument_to_volume(16) 10\n\
--\n\
--#\n\
--# default abbrevs, for volume labels\n\
--#\n\
--set sound(1,abbrev)  \"BASS\"\n\
--set sound(2,abbrev)  \"\"\n\
--set sound(3,abbrev)  \"SNARE\"\n\
--set sound(4,abbrev)  \"\"\n\
--set sound(5,abbrev)  \"LT\"\n\
--set sound(6,abbrev)  \"MT\"\n\
--set sound(7,abbrev)  \"HT\"\n\
--set sound(8,abbrev)  \"R\"\n\
--set sound(9,abbrev)  \"CB\"\n\
--set sound(10,abbrev) \"C\"\n\
--set sound(11,abbrev) \"T\"\n\
--set sound(12,abbrev) \"HH\"\n\
--set sound(13,abbrev) \"\"\n\
--set sound(14,abbrev) \"\"\n\
--set sound(15,abbrev) \"CRASH\"\n\
--set sound(16,abbrev) \"RIDE\"\n\
--#\n\
--# default volume labels\n\
--#\n\
--set volume_label(0) \"ACCENT\"\n\
--set volume_label(1) \"$sound(1,abbrev)\"\n\
--set volume_label(2) \"$sound(3,abbrev)\"\n\
--set volume_label(3) \"$sound(5,abbrev)\"\n\
--set volume_label(4) \"$sound(6,abbrev)\"\n\
--set volume_label(5) \"$sound(7,abbrev)\"\n\
--set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n\
--set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n\
--set volume_label(8) \"$sound(12,abbrev)\"\n\
--set volume_label(9) \"$sound(15,abbrev)\"\n\
--set volume_label(10) \"$sound(16,abbrev)\"\n\
--#\n\
--# default implicit delay (e.g. short sound)\n\
--#\n\
--set has_delay(1) 0\n\
--set has_delay(2) 0\n\
--set has_delay(3) 0\n\
--set has_delay(4) 0\n\
--set has_delay(5) 0\n\
--set has_delay(6) 0\n\
--set has_delay(7) 0\n\
--set has_delay(8) 0\n\
--set has_delay(9) 0\n\
--set has_delay(10) 0\n\
--set has_delay(11) 0\n\
--set has_delay(12) 0\n\
--set has_delay(13) 0\n\
--set has_delay(14) 0\n\
--set has_delay(15) 0\n\
--set has_delay(16) 0\n\
--";
-+char tcl_defs[] = ""
-+"# -----------------------------------------\n"
-+"#	File defs.tcl\n"
-+"#	Definitions and pre-start set up.\n"
-+"# -----------------------------------------\n"
-+"proc usage {} {\n"
-+"    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n"
-+"    exit 0\n"
-+"}\n"
-+"set size_factor 1.0;\n"
-+"set input_file_name \"\";\n"
-+"set new_argv \"\"\n"
-+"for {set i 0} {$i < $argc} {incr i} {\n"
-+"        set argi [lindex $argv $i];\n"
-+"#       puts \"defs.tcl: argv($i) = `$argi'\";\n"
-+"        if {$argi == \"--help\"} {\n"
-+"	    usage\n"
-+"        } elseif {$argi == \"-small\"} {\n"
-+"#           puts \"defs.tcl: small!\";\n"
-+"	    set [lindex $argv $i] \"-n\";\n"
-+"	    set size_factor 0.5;\n"
-+"        } elseif {$argi == \"-medium\"} {\n"
-+"#           puts \"defs.tcl: medium!\";\n"
-+"	    set size_factor 0.75;\n"
-+"        } elseif {$argi == \"-normalsize\"} {\n"
-+"#           puts \"defs.tcl: normal!\";\n"
-+"	    set new_argv \"$new_argv $argi\"\n"
-+"	    set size_factor 1;\n"
-+"	} else {\n"
-+"	    # send option to the 2nd C-code pass...\n"
-+"#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n"
-+"	    set new_argv \"$new_argv $argi\"\n"
-+"	}\n"
-+"}\n"
-+"#\n"
-+"# we strip options to avoid mistakes\n"
-+"#  TODO: send -p x:y nd so to C code\n"
-+"set argv $new_argv\n"
-+"set argc [llength $argv]\n"
-+"#puts \"argv := $argv\"\n"
-+"#puts \"argc := $argc\"\n"
-+"# -----------------------------------------\n"
-+"# pixel to centimeter conversion\n"
-+"# -----------------------------------------\n"
-+"package require Tcl 8.0\n"
-+"package require Tk 8.0\n"
-+"set VERSION     0.6\n"
-+"set PKGDATADIR /usr/share/tk707\n"
-+"\n"
-+"# uncomment to show sonme boxes:\n"
-+"#set debug_relief \"-borderwidth 2p -relief groove\";\n"
-+"set debug_relief \"\";\n"
-+"# -----------------------------------------\n"
-+"# pixel <--> point/inch/cm\n"
-+"# -----------------------------------------\n"
-+"set cm_per_inch     2.54;\n"
-+"set point_per_inch 72.00;\n"
-+"set point_per_cm [expr $point_per_inch / $cm_per_inch];\n"
-+"set pixel_per_point [tk scaling]\n"
-+"# puts \"dpi $pixel_per_point\"\n"
-+"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-+"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-+"# -----------------------------------------\n"
-+"# get window max dimension\n"
-+"# -----------------------------------------\n"
-+"set maxsize_in_pixel   [wm maxsize .]\n"
-+"set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n"
-+"set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n"
-+"set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n"
-+"set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n"
-+"# -----------------------------------------\n"
-+"# resize coefficient if window is too small\n"
-+"# -----------------------------------------\n"
-+"if {$size_factor < 0.75} { 	# small screens\n"
-+"    set size_factor 0.5; \n"
-+"    set font8 \"6\";\n"
-+"    set font12 \"6\"; \n"
-+"    set boldfont12 \"6\"; \n"
-+"    set boldfont13 \"6\";\n"
-+"    set courrier_boldfont_i_50 \"10\"; \n"
-+"    set boldr14 \"8\";\n"
-+"    set helvetica_bold_r_12 \"6\"; \n"
-+"    set normal_r_14 \"8\"; \n"
-+"} elseif {$size_factor < 1.0} { # medium screen\n"
-+"    set size_factor 0.75; \n"
-+"    set font8 \"6\";\n"
-+"    set font12 \"8\";\n"
-+"    set boldfont12 \"8\"; \n"
-+"    set boldfont13 \"8\"; \n"
-+"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n"
-+"    set boldr14 \"bold-r-*-10\"; \n"
-+"    set helvetica_bold_r_12 \"8\"; \n"
-+"    set normal_r_14 \"10\"; \n"
-+"} else { 			# normal screen\n"
-+"    set size_factor 1.0;\n"
-+"    set font8 \"8\";\n"
-+"    set font12 \"*-helvetica-medium-o-*--8\";\n"
-+"    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n"
-+"    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n"
-+"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n"
-+"    set boldr14 \"bold-r-*-14\"; \n"
-+"    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n"
-+"    set normal_r_14 \"normal-r-*-14\"; \n"
-+"}\n"
-+"# -----------------------------------------\n"
-+"# pixel to centimeter conversion\n"
-+"# -----------------------------------------\n"
-+"set scaling $size_factor;\n"
-+"tk scaling $scaling\n"
-+"set pixel_per_point [tk scaling]\n"
-+"set point_per_pixel [expr 1./$pixel_per_point]\n"
-+"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-+"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-+"# -----------------------------------------\n"
-+"# set global constants\n"
-+"# -----------------------------------------\n"
-+"set tcl_rcFileName \"~/.tk707rc\"\n"
-+"if {[catch {open $tcl_rcFileName r} fid]} {\n"
-+"} else {\n"
-+"      catch {source $tcl_rcFileName}\n"
-+"}\n"
-+"set res [eval tk7_init $argv]\n"
-+"if {$res == 1 || $res == 3} {\n"
-+"	exit\n"
-+"} elseif {$res ==2} {\n"
-+"	wm iconify .\n"
-+"	port_setup\n"
-+"	tk7_init\n"
-+"}\n"
-+"rename exit exit.old\n"
-+"proc exit {} {\n"
-+"	exit707\n"
-+"	exit.old\n"
-+"}\n"
-+"# -----------------------------------------\n"
-+"# set global constants\n"
-+"# -----------------------------------------\n"
-+"set right_space_width 0.5;\n"
-+"\n"
-+"\n"
-+"set tkxox(VERSION)		\"TK707-$VERSION\"\n"
-+"set tkxox(READ) 		0\n"
-+"set tkxox(WRITE) 		1\n"
-+"set tkxox(TRACK) 		0\n"
-+"set tkxox(PATTERN) 		1\n"
-+"set tkxox(STOP)			0\n"
-+"set tkxox(START)		1\n"
-+"set tkxox(CONT)			2\n"
-+"set tkxox(FILE_UNCHANGED)	0\n"
-+"set tkxox(FILE_MODIFIED)	1\n"
-+"set tkxox(col_on) 		#ffaa00\n"
-+"set tkxox(col_active) 		#ffaaaa\n"
-+"set tkxox(col_def_bg) 		#d9d9d9\n"
-+"set tkxox(col_def_active) 	#ececec\n"
-+"set tkxox(but_grey) 		#888888\n"
-+"set tkxox(but_grey_active) 	#999999\n"
-+"set tkxox(but_grey_on) 		#bbbbbb\n"
-+"set tkxox(lamp_off) 		#882200\n"
-+"set tkxox(lamp_on) 		#ff8800\n"
-+"set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n"
-+"set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n"
-+"set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n"
-+"set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n"
-+"set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n"
-+"set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n"
-+"\n"
-+"set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n"
-+"set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n"
-+"set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n"
-+"\n"
-+"set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n"
-+"set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n"
-+"set tkxox(color_title_bg)       $tkxox(col_def_bg); \n"
-+"\n"
-+"set tkxox(tick_flam_duration)	4\n"
-+"#\n"
-+"# color background\n"
-+"#\n"
-+"tk_setPalette $tkxox(col_def_bg)\n"
-+"#\n"
-+"#\n"
-+"# Properties of note elements:\n"
-+"# WARNING: may be as in <util.h>\n"
-+"#\n"
-+"set tkxox(flam)               	[expr 1 << 0]\n"
-+"set tkxox(weak_accent)       	[expr 1 << 1]\n"
-+"set tkxox(strong_accent)     	[expr 1 << 2]\n"
-+"set tkxox(zero_velocity)       	[expr 1 << 3]\n"
-+"set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n"
-+"				      $tkxox(weak_accent)   | \\\n"
-+"				      $tkxox(strong_accent)]\n"
-+"\n"
-+"set tkxox(col_default_velocity) $tkxox(but_grey)\n"
-+"set tkxox(col_weak_accent)      $tkxox(lamp_on)\n"
-+"set tkxox(col_strong_accent)    #ff0000\n"
-+"set tkxox(col_zero_velocity)    white\n"
-+"\n"
-+"\n"
-+"set mode(rdrw) 			$tkxox(READ)\n"
-+"set mode(patr) 			-1\n"
-+"set mode(stopgo) 		$tkxox(STOP)\n"
-+"set mode(patgroup) 		0\n"
-+"set mode(current_track) 	0\n"
-+"set mode(current_pattern) 	0\n"
-+"set mode(current_instr)		1\n"
-+"set mode(measure) 		-1\n"
-+"set mode(tempo) 		120\n"
-+"set mode(cartridge) 		0\n"
-+"set mode(midi_channel) 		0\n"
-+"set mode(PATTERN_REPEAT) 	false\n"
-+"set mode(TRACK_START) 		false\n"
-+"set mode(REPEAT_INTERVAL) 	5\n"
-+"set mode(showtrack)		true\n"
-+"set mode(current_accent)	0\n"
-+"set mode(file_status)		$tkxox(FILE_UNCHANGED)\n"
-+"\n"
-+"set flash(count) -1\n"
-+"set flash(duration) 20\n"
-+"\n"
-+"# Default sound mapping\n"
-+"#\n"
-+"set sound(1,name) \"Bass 1\"\n"
-+"set sound(1,shortname) \"Bass 1\"\n"
-+"set sound(1,note) 35\n"
-+"set sound(2,name) \"Bass 2\"\n"
-+"set sound(2,shortname) \"Bass 2\"\n"
-+"set sound(2,note) 36\n"
-+"set sound(3,name) \"Snare 1\"\n"
-+"set sound(3,shortname) \"Snare 1\"\n"
-+"set sound(3,note) 38\n"
-+"set sound(4,name) \"Snare 2\"\n"
-+"set sound(4,shortname) \"Snare 2\"\n"
-+"set sound(4,note) 40\n"
-+"set sound(5,name) \"LowTom\"\n"
-+"set sound(5,shortname) \"LowTom\"\n"
-+"set sound(5,note) 41\n"
-+"set sound(6,name) \"MidTom\"\n"
-+"set sound(6,shortname) \"MidTom\"\n"
-+"set sound(6,note) 45\n"
-+"set sound(7,name) \"HighTom\"\n"
-+"set sound(7,shortname) \"HighTom\"\n"
-+"set sound(7,note) 48\n"
-+"set sound(8,name) \"Rim\"\n"
-+"set sound(8,shortname) \"Rim\"\n"
-+"set sound(8,note) 37\n"
-+"set sound(9,name) \"Cowbell\"\n"
-+"set sound(9,shortname) \"Cowbell\"\n"
-+"set sound(9,note) 56\n"
-+"set sound(10,name) \"Hand Clap\"\n"
-+"set sound(10,shortname) \"Clap\"\n"
-+"set sound(10,note) 39\n"
-+"set sound(11,name) \"Tambourine\"\n"
-+"set sound(11,shortname) \"Tamb\"\n"
-+"set sound(11,note) 54\n"
-+"set sound(12,name) \"HH Closed 1\"\n"
-+"set sound(12,shortname) \"HH C1\"\n"
-+"set sound(12,note) 42\n"
-+"set sound(13,name) \"HH Closed 2\"\n"
-+"set sound(13,shortname) \"HH C2\"\n"
-+"set sound(13,note) 42\n"
-+"set sound(14,name) \"HHat Open\"\n"
-+"set sound(14,shortname) \"HH Open\"\n"
-+"set sound(14,note) 46\n"
-+"set sound(15,name) \"Crash\"\n"
-+"set sound(15,shortname) \"Crash\"\n"
-+"set sound(15,note) 49\n"
-+"set sound(16,name) \"Ride\"\n"
-+"set sound(16,shortname) \"Ride\"\n"
-+"set sound(16,note) 51\n"
-+"tk7_set_sounds\n"
-+"#\n"
-+"# instrument(1:16) to volume(1:10) mapping\n"
-+"#\n"
-+"set instrument_to_volume(1) 1\n"
-+"set instrument_to_volume(2) 1\n"
-+"set instrument_to_volume(3) 2\n"
-+"set instrument_to_volume(4) 2\n"
-+"set instrument_to_volume(5) 3\n"
-+"set instrument_to_volume(6) 4\n"
-+"set instrument_to_volume(7) 5\n"
-+"set instrument_to_volume(8) 6\n"
-+"set instrument_to_volume(9) 6\n"
-+"set instrument_to_volume(10) 7\n"
-+"set instrument_to_volume(11) 7\n"
-+"set instrument_to_volume(12) 8\n"
-+"set instrument_to_volume(13) 8\n"
-+"set instrument_to_volume(14) 8\n"
-+"set instrument_to_volume(15) 9\n"
-+"set instrument_to_volume(16) 10\n"
-+"\n"
-+"#\n"
-+"# default abbrevs, for volume labels\n"
-+"#\n"
-+"set sound(1,abbrev)  \"BASS\"\n"
-+"set sound(2,abbrev)  \"\"\n"
-+"set sound(3,abbrev)  \"SNARE\"\n"
-+"set sound(4,abbrev)  \"\"\n"
-+"set sound(5,abbrev)  \"LT\"\n"
-+"set sound(6,abbrev)  \"MT\"\n"
-+"set sound(7,abbrev)  \"HT\"\n"
-+"set sound(8,abbrev)  \"R\"\n"
-+"set sound(9,abbrev)  \"CB\"\n"
-+"set sound(10,abbrev) \"C\"\n"
-+"set sound(11,abbrev) \"T\"\n"
-+"set sound(12,abbrev) \"HH\"\n"
-+"set sound(13,abbrev) \"\"\n"
-+"set sound(14,abbrev) \"\"\n"
-+"set sound(15,abbrev) \"CRASH\"\n"
-+"set sound(16,abbrev) \"RIDE\"\n"
-+"#\n"
-+"# default volume labels\n"
-+"#\n"
-+"set volume_label(0) \"ACCENT\"\n"
-+"set volume_label(1) \"$sound(1,abbrev)\"\n"
-+"set volume_label(2) \"$sound(3,abbrev)\"\n"
-+"set volume_label(3) \"$sound(5,abbrev)\"\n"
-+"set volume_label(4) \"$sound(6,abbrev)\"\n"
-+"set volume_label(5) \"$sound(7,abbrev)\"\n"
-+"set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n"
-+"set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n"
-+"set volume_label(8) \"$sound(12,abbrev)\"\n"
-+"set volume_label(9) \"$sound(15,abbrev)\"\n"
-+"set volume_label(10) \"$sound(16,abbrev)\"\n"
-+"#\n"
-+"# default implicit delay (e.g. short sound)\n"
-+"#\n"
-+"set has_delay(1) 0\n"
-+"set has_delay(2) 0\n"
-+"set has_delay(3) 0\n"
-+"set has_delay(4) 0\n"
-+"set has_delay(5) 0\n"
-+"set has_delay(6) 0\n"
-+"set has_delay(7) 0\n"
-+"set has_delay(8) 0\n"
-+"set has_delay(9) 0\n"
-+"set has_delay(10) 0\n"
-+"set has_delay(11) 0\n"
-+"set has_delay(12) 0\n"
-+"set has_delay(13) 0\n"
-+"set has_delay(14) 0\n"
-+"set has_delay(15) 0\n"
-+"set has_delay(16) 0\n"
-+"";
---- a/gui.c
-+++ b/gui.c
-@@ -1,240 +1,240 @@
--char tcl_gui[] = "\
--# =========================================================================\n\
--#	File gui.tcl\n\
--#	GUI for TK-707\n\
--# =========================================================================\n\
--eval destroy [winfo child .]\n\
--wm title . \"TK-707\"\n\
--set font {Helvetica 14}\n\
--wm iconify .\n\
--# -------------------------------------------------------------------------\n\
--# menu bar\n\
--# -------------------------------------------------------------------------\n\
--frame .mbar -borderwidth 1p -relief raised\n\
--pack .mbar -fill x\n\
--\n\
--menubutton .mbar.file -text \"File\" -menu .mbar.file.m\n\
--menubutton .mbar.midi -text \"Midi\" -menu .mbar.midi.m\n\
--menubutton .mbar.map  -text \"Map\"  -menu .mbar.map.m\n\
--pack .mbar.file -side left\n\
--pack .mbar.midi -side left\n\
--pack .mbar.map  -side left\n\
--\n\
--menubutton .mbar.help -text \"Help\"  -menu .mbar.help.m \n\
--pack .mbar.help  -side right\n\
--\n\
--# -----------------------------------------------------------------------------\n\
--# file menu\n\
--# -----------------------------------------------------------------------------\n\
--menu .mbar.file.m -tearoff 0\n\
--.mbar.file.m add command -label \"Load Data\" -command {load_data_file \".\"}   	\\\n\
--					    -underline 0 		    	\\\n\
--        				    -accelerator \"Ctrl-O\"\n\
--.mbar.file.m add command -label \"Load Demo\" -command {load_data_file $PKGDATADIR} \\\n\
--					    -underline 0\n\
--.mbar.file.m add command -label \"Save Data\" -command {save_data_file} 		\\\n\
--					    -underline 0 			\\\n\
--					    -accelerator \"Ctrl-S\"\n\
--.mbar.file.m add command -label \"Ports\"     -command {port_setup} 		\\\n\
--					    -underline 0\n\
--.mbar.file.m add command -label \"Quit\"      -command \"exit\" 			\\\n\
--					    -underline 0 			\\\n\
--					    -accelerator \"Ctrl-Q\"\n\
--\n\
--bind . <Control-q> { exit;}\n\
--bind . <Control-o> { load_data_file \".\";}\n\
--bind . <Control-s> { save_data_file;}\n\
--\n\
--# -----------------------------------------------------------------------------\n\
--# midi & map menus\n\
--# -----------------------------------------------------------------------------\n\
--menu .mbar.midi.m -tearoff 0\n\
--menu .mbar.map.m  -tearoff 0\n\
--\n\
--.mbar.midi.m add command -label \"Save Midi Track\"  -command {save_midi_file} -underline 0\n\
--.mbar.midi.m add command -label \"Set MIDI Channel\" -command {ac_midi} -underline 0\n\
--\n\
--\n\
--.mbar.map.m add command -label \"Load Standard Sound Map\" -command {load_sound_map $PKGDATADIR} -underline 0\n\
--.mbar.map.m add command -label \"Load Local Sound Map\" -command {load_sound_map \".\"} -underline 0\n\
--.mbar.map.m add command -label \"Save Sound Map\" -command {save_sound_map} -underline 0\n\
--.mbar.map.m add command -label \"Edit Sound Map\" -command {map_edit} -underline 0\n\
--.mbar.map.m add command -label \"Edit Fader Map\" -command {fader_edit} -underline 0\n\
--\n\
--# TODO: next will put names on patterns for automatic score generation...\n\
--# menu .mbar.pattern -tearoff 0\n\
--# .mbar add cascade -menu .mbar.pattern -label \"Pattern\" -underline 0\n\
--# .mbar.pattern add command -label \"Edit Comment\" -command {edit_pattern_comment} -underline 0\n\
--\n\
--# -----------------------------------------------------------------------------\n\
--# help menu\n\
--# -----------------------------------------------------------------------------\n\
--menu .mbar.help.m -tearoff 0\n\
--\n\
--.mbar.help.m add command -label \"About\"         -command {about}      -underline 0\n\
--.mbar.help.m add command -label \"User's Manual\" -command {UserManual} -underline 0\n\
--\n\
--\n\
--. configure -menu .mbar\n\
--\n\
--# =========================================================================\n\
--# Frame for Grid & Volume controls\n\
--# =========================================================================\n\
--set grid_vols .gv\n\
--eval frame $grid_vols $debug_relief\n\
--pack $grid_vols -anchor c\n\
--# --------------------------------------------------------------------------\n\
--# Grid Display\n\
--# --------------------------------------------------------------------------\n\
--set display $grid_vols.d\n\
--frame $display -relief groove -borderwidth 2p\n\
--pack $display -side left\n\
--frame $display.g\n\
--pack $display.g ;#-side left\n\
--set gridlabel $display.g.l		;	# Instrument label\n\
--canvas $gridlabel -width 3c -height 9.0c\n\
--set grid $display.g.c			;	# Pattern Grid\n\
--canvas $grid -width 8.5c -height 9.0c\n\
--pack $gridlabel $grid -side left\n\
--# --------------------------------------------------------------------------\n\
--# Status area\n\
--# --------------------------------------------------------------------------\n\
--set infosection $display.i		;	# to contain Tempo, Track & Mode widgets\n\
--frame $infosection\n\
--pack $infosection -side bottom\n\
--set tempoinfo $infosection.t\n\
--set tminfo $infosection.tm\n\
--frame $tminfo\n\
--canvas $tempoinfo -width 4c -height 2c -relief groove -borderwidth 2\n\
--canvas $tminfo.t -width 7.5c -height 0.75c -relief groove -borderwidth 2\n\
--canvas $tminfo.m -width 7.5c -height 1.25c -relief groove -borderwidth 2\n\
--pack $tminfo.t $tminfo.m\n\
--pack $tempoinfo $tminfo -side left -expand true -fill y\n\
--# --------------------------------------------------------------------------\n\
--# Volume controls\n\
--# --------------------------------------------------------------------------\n\
--set vcunit $grid_vols.cu\n\
--eval frame $vcunit $debug_relief\n\
--pack $vcunit -side left\n\
--#\n\
--# Controls + Notes Staff\n\
--#\n\
--set ctrls_notes_staff .cns\n\
--frame $ctrls_notes_staff\n\
--pack $ctrls_notes_staff -expand true -fill x\n\
--# ==========================================================================\n\
--# Controls\n\
--# ==========================================================================\n\
--set ctrl_height  4.0;\n\
--set ctrls $ctrls_notes_staff.c\n\
--frame $ctrls\n\
--pack $ctrls -side top -expand true -fill x\n\
--# ---------------------------------------\n\
--# Scale lamps + Score + Notes/Instruments\n\
--# ---------------------------------------\n\
--set notes_staff $ctrls_notes_staff.ns\n\
--frame $notes_staff\n\
--pack $notes_staff -anchor s\n\
--# ---------------------------------------\n\
--# Transport control (Start/Cont)\n\
--# ---------------------------------------\n\
--set    stop_box $ctrls.stop_box\n\
--eval canvas $stop_box -width 2.3c -height ${ctrl_height}c $debug_relief;\n\
--pack   $stop_box -side left -anchor n ;\n\
--set button_stop  $stop_box.stop\n\
--label $stop_box.lt  -text STOP/CONT -font *-${boldfont13}-*\n\
--radiobutton $button_stop -bitmap nix -width 1.45c -height 2.6c    \\\n\
--        -variable ss -value stop -indicatoron false     \\\n\
--        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n\
--        -selectcolor $tkxox(but_grey_active)    \\\n\
--        -command \"ac_stopgo $tkxox(CONT)\"\n\
--$stop_box  create window 1.25c 0.4c -window $stop_box.lt\n\
--$stop_box  create window 1.25c 2.2c -window $button_stop\n\
--bind all <space> {\n\
--        if {$mode(stopgo) == $tkxox(START)} {\n\
--                $button_stop invoke\n\
--        } else {\n\
--                ac_stopgo $tkxox(START)\n\
--                $button_start invoke\n\
--        }\n\
--}\n\
--#\n\
--# Transport control (start)\n\
--#\n\
--set     start_box $notes_staff.start_box\n\
--canvas $start_box -width 2.3c -height 4.5c ;#-relief groove -borderwidth 4\n\
--pack   $start_box -side left -anchor n ;#-expand true -fill y\n\
--set button_start $start_box.start\n\
--label $start_box.lb -text START     -font *-${boldfont13}-*\n\
--radiobutton $button_start -bitmap nix -width 1.45c -height 2.6c   \\\n\
--        -variable ss -value start -indicatoron false    \\\n\
--        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n\
--        -selectcolor $tkxox(but_grey_active)\n\
--$start_box create window 1.25c 0.4c -window $start_box.lb\n\
--$start_box create window 1.25c 2.1c -window $button_start\n\
--bind $button_start <1> {ac_stopgo $tkxox(START)}\n\
--# ================================================================\n\
--# button controls\n\
--# ================================================================\n\
--set space_width  2.8;\n\
--set misc_width   5.0;\n\
--set st_width     4.0;\n\
--set trpa_width   3.0;\n\
--set grp_width    5.0;\n\
--set accent_width 2.6;\n\
--#\n\
--# Empty Space : adjust vectical alignment with score\n\
--#\n\
--set empty_case $ctrls.z\n\
--eval canvas $empty_case -width ${space_width}c -height ${ctrl_height}c \\\n\
--	$debug_relief;\n\
--pack   $empty_case -side left -anchor nw ;\n\
--#\n\
--# Clear/Scale/Last Step/Instrument Guide\n\
--#\n\
--set misc $ctrls.misc\n\
--eval canvas $misc -width ${misc_width}c -height ${ctrl_height}c $debug_relief;\n\
--pack $misc -side left -anchor n\n\
--#\n\
--# Shuffle/Flam Tempo/Measure controls\n\
--#\n\
--set st $ctrls.st\n\
--eval canvas $st -width ${st_width}c -height ${ctrl_height}c $debug_relief;\n\
--pack $st -side left -anchor n\n\
--#\n\
--# Track/Pattern Read/Write Control\n\
--#\n\
--set trpa $ctrls.trpa\n\
--eval canvas $trpa -width 3c -height ${ctrl_height}c $debug_relief;\n\
--pack $trpa -side left -anchor n\n\
--#\n\
--# Pattern Group & Track Number selection\n\
--#\n\
--set grps $ctrls.grps\n\
--eval canvas $grps  -width 5c -height ${ctrl_height}c $debug_relief;\n\
--pack $grps -side left -anchor n\n\
--#\n\
--# Accent/Enter\n\
--#\n\
--set accenter $ctrls.accenter\n\
--eval canvas $accenter -width 2.6c -height ${ctrl_height}c $debug_relief;\n\
--pack $accenter -side left -anchor n\n\
--#\n\
--# Tempo Dial\n\
--#\n\
--set dial $ctrls.dial\n\
--eval frame $dial $debug_relief\n\
--pack $dial -side left -expand true;\n\
--# ---------------------------\n\
--# Score + Notes/Instruments\n\
--# ---------------------------\n\
--set note_score $notes_staff.sc\n\
--eval frame $note_score $debug_relief;\n\
--pack $note_score\n\
--# ---------------------------\n\
--# Notes/Instruments\n\
--# ---------------------------\n\
--set notes $notes_staff.n;\n\
--eval frame $notes $debug_relief;\n\
--pack $notes -anchor w -side left\n\
--";
-+char tcl_gui[] = ""
-+"# =========================================================================\n"
-+"#	File gui.tcl\n"
-+"#	GUI for TK-707\n"
-+"# =========================================================================\n"
-+"eval destroy [winfo child .]\n"
-+"wm title . \"TK-707\"\n"
-+"set font {Helvetica 14}\n"
-+"wm iconify .\n"
-+"# -------------------------------------------------------------------------\n"
-+"# menu bar\n"
-+"# -------------------------------------------------------------------------\n"
-+"frame .mbar -borderwidth 1p -relief raised\n"
-+"pack .mbar -fill x\n"
-+"\n"
-+"menubutton .mbar.file -text \"File\" -menu .mbar.file.m\n"
-+"menubutton .mbar.midi -text \"Midi\" -menu .mbar.midi.m\n"
-+"menubutton .mbar.map  -text \"Map\"  -menu .mbar.map.m\n"
-+"pack .mbar.file -side left\n"
-+"pack .mbar.midi -side left\n"
-+"pack .mbar.map  -side left\n"
-+"\n"
-+"menubutton .mbar.help -text \"Help\"  -menu .mbar.help.m \n"
-+"pack .mbar.help  -side right\n"
-+"\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# file menu\n"
-+"# -----------------------------------------------------------------------------\n"
-+"menu .mbar.file.m -tearoff 0\n"
-+".mbar.file.m add command -label \"Load Data\" -command {load_data_file \".\"}   	\\\n"
-+"					    -underline 0 		    	\\\n"
-+"        				    -accelerator \"Ctrl-O\"\n"
-+".mbar.file.m add command -label \"Load Demo\" -command {load_data_file $PKGDATADIR} \\\n"
-+"					    -underline 0\n"
-+".mbar.file.m add command -label \"Save Data\" -command {save_data_file} 		\\\n"
-+"					    -underline 0 			\\\n"
-+"					    -accelerator \"Ctrl-S\"\n"
-+".mbar.file.m add command -label \"Ports\"     -command {port_setup} 		\\\n"
-+"					    -underline 0\n"
-+".mbar.file.m add command -label \"Quit\"      -command \"exit\" 			\\\n"
-+"					    -underline 0 			\\\n"
-+"					    -accelerator \"Ctrl-Q\"\n"
-+"\n"
-+"bind . <Control-q> { exit;}\n"
-+"bind . <Control-o> { load_data_file \".\";}\n"
-+"bind . <Control-s> { save_data_file;}\n"
-+"\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# midi & map menus\n"
-+"# -----------------------------------------------------------------------------\n"
-+"menu .mbar.midi.m -tearoff 0\n"
-+"menu .mbar.map.m  -tearoff 0\n"
-+"\n"
-+".mbar.midi.m add command -label \"Save Midi Track\"  -command {save_midi_file} -underline 0\n"
-+".mbar.midi.m add command -label \"Set MIDI Channel\" -command {ac_midi} -underline 0\n"
-+"\n"
-+"\n"
-+".mbar.map.m add command -label \"Load Standard Sound Map\" -command {load_sound_map $PKGDATADIR} -underline 0\n"
-+".mbar.map.m add command -label \"Load Local Sound Map\" -command {load_sound_map \".\"} -underline 0\n"
-+".mbar.map.m add command -label \"Save Sound Map\" -command {save_sound_map} -underline 0\n"
-+".mbar.map.m add command -label \"Edit Sound Map\" -command {map_edit} -underline 0\n"
-+".mbar.map.m add command -label \"Edit Fader Map\" -command {fader_edit} -underline 0\n"
-+"\n"
-+"# TODO: next will put names on patterns for automatic score generation...\n"
-+"# menu .mbar.pattern -tearoff 0\n"
-+"# .mbar add cascade -menu .mbar.pattern -label \"Pattern\" -underline 0\n"
-+"# .mbar.pattern add command -label \"Edit Comment\" -command {edit_pattern_comment} -underline 0\n"
-+"\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# help menu\n"
-+"# -----------------------------------------------------------------------------\n"
-+"menu .mbar.help.m -tearoff 0\n"
-+"\n"
-+".mbar.help.m add command -label \"About\"         -command {about}      -underline 0\n"
-+".mbar.help.m add command -label \"User's Manual\" -command {UserManual} -underline 0\n"
-+"\n"
-+"\n"
-+". configure -menu .mbar\n"
-+"\n"
-+"# =========================================================================\n"
-+"# Frame for Grid & Volume controls\n"
-+"# =========================================================================\n"
-+"set grid_vols .gv\n"
-+"eval frame $grid_vols $debug_relief\n"
-+"pack $grid_vols -anchor c\n"
-+"# --------------------------------------------------------------------------\n"
-+"# Grid Display\n"
-+"# --------------------------------------------------------------------------\n"
-+"set display $grid_vols.d\n"
-+"frame $display -relief groove -borderwidth 2p\n"
-+"pack $display -side left\n"
-+"frame $display.g\n"
-+"pack $display.g ;#-side left\n"
-+"set gridlabel $display.g.l		;	# Instrument label\n"
-+"canvas $gridlabel -width 3c -height 9.0c\n"
-+"set grid $display.g.c			;	# Pattern Grid\n"
-+"canvas $grid -width 8.5c -height 9.0c\n"
-+"pack $gridlabel $grid -side left\n"
-+"# --------------------------------------------------------------------------\n"
-+"# Status area\n"
-+"# --------------------------------------------------------------------------\n"
-+"set infosection $display.i		;	# to contain Tempo, Track & Mode widgets\n"
-+"frame $infosection\n"
-+"pack $infosection -side bottom\n"
-+"set tempoinfo $infosection.t\n"
-+"set tminfo $infosection.tm\n"
-+"frame $tminfo\n"
-+"canvas $tempoinfo -width 4c -height 2c -relief groove -borderwidth 2\n"
-+"canvas $tminfo.t -width 7.5c -height 0.75c -relief groove -borderwidth 2\n"
-+"canvas $tminfo.m -width 7.5c -height 1.25c -relief groove -borderwidth 2\n"
-+"pack $tminfo.t $tminfo.m\n"
-+"pack $tempoinfo $tminfo -side left -expand true -fill y\n"
-+"# --------------------------------------------------------------------------\n"
-+"# Volume controls\n"
-+"# --------------------------------------------------------------------------\n"
-+"set vcunit $grid_vols.cu\n"
-+"eval frame $vcunit $debug_relief\n"
-+"pack $vcunit -side left\n"
-+"#\n"
-+"# Controls + Notes Staff\n"
-+"#\n"
-+"set ctrls_notes_staff .cns\n"
-+"frame $ctrls_notes_staff\n"
-+"pack $ctrls_notes_staff -expand true -fill x\n"
-+"# ==========================================================================\n"
-+"# Controls\n"
-+"# ==========================================================================\n"
-+"set ctrl_height  4.0;\n"
-+"set ctrls $ctrls_notes_staff.c\n"
-+"frame $ctrls\n"
-+"pack $ctrls -side top -expand true -fill x\n"
-+"# ---------------------------------------\n"
-+"# Scale lamps + Score + Notes/Instruments\n"
-+"# ---------------------------------------\n"
-+"set notes_staff $ctrls_notes_staff.ns\n"
-+"frame $notes_staff\n"
-+"pack $notes_staff -anchor s\n"
-+"# ---------------------------------------\n"
-+"# Transport control (Start/Cont)\n"
-+"# ---------------------------------------\n"
-+"set    stop_box $ctrls.stop_box\n"
-+"eval canvas $stop_box -width 2.3c -height ${ctrl_height}c $debug_relief;\n"
-+"pack   $stop_box -side left -anchor n ;\n"
-+"set button_stop  $stop_box.stop\n"
-+"label $stop_box.lt  -text STOP/CONT -font *-${boldfont13}-*\n"
-+"radiobutton $button_stop -bitmap nix -width 1.45c -height 2.6c    \\\n"
-+"        -variable ss -value stop -indicatoron false     \\\n"
-+"        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n"
-+"        -selectcolor $tkxox(but_grey_active)    \\\n"
-+"        -command \"ac_stopgo $tkxox(CONT)\"\n"
-+"$stop_box  create window 1.25c 0.4c -window $stop_box.lt\n"
-+"$stop_box  create window 1.25c 2.2c -window $button_stop\n"
-+"bind all <space> {\n"
-+"        if {$mode(stopgo) == $tkxox(START)} {\n"
-+"                $button_stop invoke\n"
-+"        } else {\n"
-+"                ac_stopgo $tkxox(START)\n"
-+"                $button_start invoke\n"
-+"        }\n"
-+"}\n"
-+"#\n"
-+"# Transport control (start)\n"
-+"#\n"
-+"set     start_box $notes_staff.start_box\n"
-+"canvas $start_box -width 2.3c -height 4.5c ;#-relief groove -borderwidth 4\n"
-+"pack   $start_box -side left -anchor n ;#-expand true -fill y\n"
-+"set button_start $start_box.start\n"
-+"label $start_box.lb -text START     -font *-${boldfont13}-*\n"
-+"radiobutton $button_start -bitmap nix -width 1.45c -height 2.6c   \\\n"
-+"        -variable ss -value start -indicatoron false    \\\n"
-+"        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n"
-+"        -selectcolor $tkxox(but_grey_active)\n"
-+"$start_box create window 1.25c 0.4c -window $start_box.lb\n"
-+"$start_box create window 1.25c 2.1c -window $button_start\n"
-+"bind $button_start <1> {ac_stopgo $tkxox(START)}\n"
-+"# ================================================================\n"
-+"# button controls\n"
-+"# ================================================================\n"
-+"set space_width  2.8;\n"
-+"set misc_width   5.0;\n"
-+"set st_width     4.0;\n"
-+"set trpa_width   3.0;\n"
-+"set grp_width    5.0;\n"
-+"set accent_width 2.6;\n"
-+"#\n"
-+"# Empty Space : adjust vectical alignment with score\n"
-+"#\n"
-+"set empty_case $ctrls.z\n"
-+"eval canvas $empty_case -width ${space_width}c -height ${ctrl_height}c \\\n"
-+"	$debug_relief;\n"
-+"pack   $empty_case -side left -anchor nw ;\n"
-+"#\n"
-+"# Clear/Scale/Last Step/Instrument Guide\n"
-+"#\n"
-+"set misc $ctrls.misc\n"
-+"eval canvas $misc -width ${misc_width}c -height ${ctrl_height}c $debug_relief;\n"
-+"pack $misc -side left -anchor n\n"
-+"#\n"
-+"# Shuffle/Flam Tempo/Measure controls\n"
-+"#\n"
-+"set st $ctrls.st\n"
-+"eval canvas $st -width ${st_width}c -height ${ctrl_height}c $debug_relief;\n"
-+"pack $st -side left -anchor n\n"
-+"#\n"
-+"# Track/Pattern Read/Write Control\n"
-+"#\n"
-+"set trpa $ctrls.trpa\n"
-+"eval canvas $trpa -width 3c -height ${ctrl_height}c $debug_relief;\n"
-+"pack $trpa -side left -anchor n\n"
-+"#\n"
-+"# Pattern Group & Track Number selection\n"
-+"#\n"
-+"set grps $ctrls.grps\n"
-+"eval canvas $grps  -width 5c -height ${ctrl_height}c $debug_relief;\n"
-+"pack $grps -side left -anchor n\n"
-+"#\n"
-+"# Accent/Enter\n"
-+"#\n"
-+"set accenter $ctrls.accenter\n"
-+"eval canvas $accenter -width 2.6c -height ${ctrl_height}c $debug_relief;\n"
-+"pack $accenter -side left -anchor n\n"
-+"#\n"
-+"# Tempo Dial\n"
-+"#\n"
-+"set dial $ctrls.dial\n"
-+"eval frame $dial $debug_relief\n"
-+"pack $dial -side left -expand true;\n"
-+"# ---------------------------\n"
-+"# Score + Notes/Instruments\n"
-+"# ---------------------------\n"
-+"set note_score $notes_staff.sc\n"
-+"eval frame $note_score $debug_relief;\n"
-+"pack $note_score\n"
-+"# ---------------------------\n"
-+"# Notes/Instruments\n"
-+"# ---------------------------\n"
-+"set notes $notes_staff.n;\n"
-+"eval frame $notes $debug_relief;\n"
-+"pack $notes -anchor w -side left\n"
-+"";
---- a/help.c
-+++ b/help.c
-@@ -1,384 +1,384 @@
--char tcl_help[] = "\
--# =================================================================\n\
--# The Help Module\n\
--# =================================================================\n\
--\n\
--set HELP(UserGuide) $PKGDATADIR/tk707.help\n\
--\n\
--# ----------------------------------------------------------\n\
--# formatText\n\
--# ----------------------------------------------------------\n\
--# This procedure tags the text in a text widget (if format is true),\n\
--# based on the character in \"char\". \n\
--# Text Marks \"first\" and \"last\" need to have been set prior to calling \n\
--# the procedure. These mark the range of characters to be tagged.\n\
--# The parameters are as follows:\n\
--# w	: is the path of the text widget.\n\
--# char  : is the character determining which tag is to be set.\n\
--# 	  The current valid characters are:\n\
--#		u  : underline\n\
--#		i  : italic\n\
--#		c  : command\n\
--#		Cn : Content item, n is a positive integer. \n\
--#		t  : title\n\
--#		h  : highlight\n\
--#		@  : keep the @ character.		\n\
--# format : is a boolean value, which when true causes the text to be formatted.\n\
--#  	   when false it removes all format information from the text\n\
--#	   without tagging\n\
--proc formatText { w char {format 1} } {\n\
--   global HELP\n\
--\n\
--   # Format the text.\n\
--   if {$format} {\n\
--	switch $char {\n\
--		u { 	$w delete last \"last + 1 chars\"\n\
--			$w tag add underline \"last\" \"last wordend\"\n\
--		  }\n\
--		@ { 	$w insert first @ }\n\
--		c { 	$w delete last \"last + 1 chars\"\n\
--			$w tag add command \"last\" \"last wordend\"\n\
--		  }\n\
--		C {	\n\
--			set tab \"\"\n\
--			set tabs [$w get \"last + 1 chars\" \"last + 2 chars\"]\n\
--			$w delete last \"last + 2 chars\"\n\
--			while {$tabs} {\n\
--			    set tab \"$tab      \" ;\n\
--			    incr tabs -1\n\
--			}\n\
--			lappend HELP(Contents)\\\n\
--			 [list \"$tab[$w get \"first\" \"first lineend\"]\" \\\n\
--				[$w index first]]\n\
--		  }\n\
--		t { 	$w delete last \"last + 1 chars\"\n\
--			$w tag add title \"last\" \"last lineend\"\n\
--		  }\n\
--		h {	$w delete last \"last + 1 chars\"\n\
--			$w tag add highlight \"last\" \"last wordend\"\n\
--		  }\n\
--		i {	$w delete last \"last + 1 chars\"\n\
--			$w tag add italic \"last\" \"last wordend\"\n\
--		  }\n\
--	default { }\n\
--	}\n\
--\n\
--   # Remove all format data without formatting.\n\
--   }  else {\n\
--	set ok 0\n\
--	foreach i {u c C t h i} {\n\
--		if {$i==$char} { \n\
--			$w delete last \"last + 1 chars\"\n\
--			set ok 1 \n\
--		}\n\
--	}\n\
--		if {!$ok} { $w insert last @ }\n\
--  }\n\
--}\n\
--# ----------------------------------------------------------\n\
--# Set Help globals.\n\
--# ----------------------------------------------------------\n\
--set HELP(BG) snow2\n\
--set HELP(FG) black\n\
--set HELP(AFG) grey\n\
--set HELP(HIL) red\n\
--set HELP(COM) DarkGreen\n\
--set HELP(Log) \"0\"\n\
--\n\
--# ----------------------------------------------------------\n\
--# about\n\
--# ----------------------------------------------------------\n\
--proc about {} {\n\
--  global VERSION\n\
--  if {[winfo exists .about]} {\n\
--    wm deiconify .about\n\
--  } else {\n\
--    toplevel .about\n\
--    wm title .about \"About tk707...\"\n\
--    label    .about.label -text \"\n\
--TK 707\\n\n\
--version $VERSION\\n\n\
--\n\
--Copyright(C) 2000, 2001\\n\n\
--Chris Willing <chris@vislab.usyd.edu.au>,\\n\n\
--Pierre Saramito <pierre.saramito@imag.fr>.\\n\n\
--\n\
--Go to the Help menu for the complete documentation.\n\
--This documentation is available in HTML and INFO formats.\n\
--Type `man tk707` to access the on-line reference manual.\n\
--\n\
--The tk707 documentation is also available in html, pdf, postscript and\n\
--dvi formats from\\n\n\
--http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707\n\
--http://www.vislab.usyd.edu.au/staff/chris/tk707\n\
--\n\
--Send comments and requests, bugs, suggestions and mods \n\
--to the both authors.\"\n\
--\n\
--    frame    .about.sep -width 100p -height 2p -borderwidth 1p -relief sunken\n\
--    button   .about.dismiss -text \"Dissmiss\" -command {wm iconify .about}\n\
--    pack     .about.label\n\
--    pack     .about.dismiss -side bottom -pady 4p\n\
--    pack     .about.sep     -side bottom -fill x -pady 4p\n\
--  }\n\
--}\n\
--# ----------------------------------------------------------\n\
--# UserManual\n\
--# ----------------------------------------------------------\n\
--# This procedure is the callback to to the Help-User's Manual menu item.\n\
--# It creates a pop-up window containing the user's manual, with a few \n\
--# basic highlighting and goto features.\n\
--proc UserManual {} {\n\
--   global HELP FILE\n\
--\n\
--   # Only procede if the help window is non-existant.	\n\
--   if {![winfo exists .help]} {\n\
--	set HELP(Contents) \"\"\n\
--\n\
--	# Create the toplevel window.\n\
--	toplevel .help -bg $HELP(BG)\n\
--	# Set the geometry\n\
--	wm geometry .help 80x25\n\
--	wm title .help \"Tk-707 User's Guide\"\n\
--	# Set the Icon information.\n\
--	wm iconname .help Help\n\
--\n\
--	# Create the buttons panel (Contents, Back, Exit)\n\
--	frame .help.buttons -bg $HELP(BG) -relief ridge -bd 4\n\
--	# Create the Contents button.\n\
--	button .help.buttons.contents\\\n\
--			-text Contents\\\n\
--			-bg $HELP(AFG)\\\n\
--			-fg $HELP(FG)\\\n\
--			-activeforeground $HELP(FG)\\\n\
--			-activebackground $HELP(AFG)\\\n\
--			-width 10\\\n\
--			-command {.help.help.text yview 0}\n\
--	# Create the Back button.\n\
--	button .help.buttons.prev\\\n\
--			-text Back\\\n\
--			-bg $HELP(AFG)\\\n\
--			-fg $HELP(FG)\\\n\
--			-width 10\\\n\
--			-activebackground $HELP(AFG)\\\n\
--			-command {\n\
-- 				set end [expr [llength $HELP(Log)]-1]\n\
--				set value [lindex $HELP(Log) [expr $end-1]]\n\
--				.help.help.text yview $value\n\
--				set HELP(Log) [lreplace $HELP(Log) $end $end]\n\
--			        }\n\
--	# Create the Exit button.\n\
--	button .help.buttons.exit\\\n\
--			-text Exit\\\n\
--			-bg $HELP(AFG)\\\n\
--			-fg $HELP(FG)\\\n\
--			-activeforeground $HELP(FG)\\\n\
--			-activebackground $HELP(AFG)\\\n\
--			-width 10\\\n\
--			-command {destroy .help}\n\
--\n\
--        # Procedure to call when HELP(Log) is written\n\
--        proc setlog {nm1 nm2 op} {\n\
--	  global HELP\n\
--	  if {$HELP(Log)==0} {\n\
--	    .help.buttons.prev config -state disabled \n\
--	  } else {\n\
--	    .help.buttons.prev config -state normal\n\
--	  }\n\
--	}\n\
--\n\
--	# Set a variable trace on the Help(Log) variable to ensure that\n\
--	# the Back button is disabled when the log is empty.\n\
--        trace variable HELP(Log) w setlog\n\
--\n\
--	# Set the current state of the Back button.\n\
--	set HELP(Log) $HELP(Log)\n\
--\n\
--	# Pack the buttons.\n\
--	pack 	.help.buttons.contents \\\n\
--		.help.buttons.prev\\\n\
--		.help.buttons.exit\\\n\
--		-side left -anchor w\n\
--\n\
--	pack .help.buttons  -anchor w -fill x\n\
--\n\
--	# Create and pack the text widget (with scrollbar)\n\
--	setupText .help.help\n\
--\n\
--	# Load the User's Guide into widget and generate contents list.\n\
--	loadFile .help.help.text $HELP(UserGuide)\n\
--\n\
--	# Insert the contents list.\n\
--	set i 1\n\
--	foreach item $HELP(Contents) {\n\
--		.help.help.text insert $i.0 [format \"[lindex $item 0]\\n\"]\n\
--		.help.help.text tag add content $i.0 \"$i.0 lineend\"\n\
--		incr i\n\
--	}\n\
--	incr i 2\n\
--	# Insert the \"Contents\" title.\n\
--	.help.help.text insert 1.0 [format \"Contents\\n\\n\"]\n\
--	# Give it the format of a title.\n\
--	.help.help.text tag add title 1.0 \"1.0 lineend\"\n\
--	# Store the number of lines added after Contents line.\n\
--	set xtraLinesBefore 2\n\
--	\n\
--	# Add 3 blank lines after contents.\n\
--	# This has to be stored for later\n\
--	set xtraLinesAfter 3\n\
--	.help.help.text insert $i.0 [format \"\\n\\n\\n\"]\n\
--	# Strip the Format code from the Contents list\n\
--	forAllMatches .help.help.text @ {\n\
--		.help.help.text delete first last\n\
--		set char [.help.help.text get last \"last+ 1 chars\"]\n\
--		formatText .help.help.text $char 0\n\
--	}\n\
--	# Configure and Bind content list.\n\
--	# A different cursor when above the item\n\
--	.help.help.text tag bind content <Any-Enter> \\\n\
--		\".help.help.text configure -cursor arrow\"\n\
--	.help.help.text tag bind content <Any-Leave> \\\n\
--		\".help.help.text configure -cursor {}\"\n\
--	# Skip to the relevant line.\n\
--	.help.help.text tag bind content <Button-1>\\\n\
--	  \"set index \\[ expr \\[lindex \\[split \\[%W index @%x,%y\\] .\\] 0\\]\\\n\
--			-(1 +$xtraLinesBefore)\\]\n\
--	   set goto \\[expr \\[lindex \\[lindex \\$HELP(Contents) \\$index\\] 1\\] +2\\\n\
--	   		+$xtraLinesAfter +\\[llength \\$HELP(Contents)\\]\\]\n\
--\n\
-- 	   # Store in the log.\n\
--	   lappend HELP(Log) \\$goto\n\
--\n\
--	   # Adjust the view to the selected line.\n\
--	   %W yview \\$goto\"\n\
--   } else {\n\
--	# Bring  the user manual to the front.\n\
--	# I am not using raise since it doesn't generally work for olwm.\n\
--	wm withdraw .help\n\
--	wm deiconify .help\n\
--   }\n\
--}\n\
--\n\
--# ----------------------------------------------------------\n\
--# setupText\n\
--# ----------------------------------------------------------\n\
--# This procedure creates a text widget and scroll bar.\n\
--# The parameter \"w\" is a path for the combined widget.\n\
--proc setupText {w} {\n\
--   global HELP\n\
--\n\
--   #Create Widgets if the path name is valid.\n\
--   if {![winfo exists $w]} {\n\
--	# Create the general frame.\n\
--	frame $w\n\
--\n\
--	# Create the text widget.\n\
--	# The configuration option \"setgrid\" sets up gridded \n\
--	# window management.\n\
--	text $w.text 	-yscrollcommand \"$w.scroll set\"\\\n\
--			-setgrid 1 \\\n\
--			-wrap word\n\
--	# Create the scrollbar.\n\
--	scrollbar $w.scroll -command \"$w.text yview\"\n\
--\n\
--	# Pack the widget.\n\
--	pack $w.text  -fill both -expand 1 -side left\n\
--	pack $w.scroll -side left -fill y -expand 1\n\
--	pack $w -fill both -expand 1\n\
--   }\n\
--\n\
--   # Configure the Widgets.\n\
--   $w config -bg $HELP(BG)\n\
--   $w.text config\\\n\
--		-background $HELP(BG)\\\n\
--		-foreground $HELP(FG)\\\n\
--		-cursor {}\\\n\
--		-font -adobe-helvetica-medium-r-normal--12-120-*\\\n\
--		-exportselection 0\n\
--\n\
--   $w.scroll config -background $HELP(BG)\n\
--\n\
--   # Remove the default bindings that make the text widget editable.\n\
--   bind $w.text <Any-KeyPress> { }\n\
--   bind $w.text <Any-Button> { }\n\
--   bind $w.text <Any-B1-Motion> { }\n\
--\n\
--   # Set the configuration for text tags.\n\
--   # Underline.\n\
--   $w.text tag configure underline -underline 1\n\
--   # Command\n\
--   $w.text tag configure command \\\n\
--		-foreground DarkGreen\\\n\
--		-font -adobe-helvetica-medium-r-normal--14-140-*\n\
--   $w.text tag bind command <Button-1> { \n\
--		puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n\
--   $w.text tag bind command <Any-Enter> \"$w.text configure -cursor arrow\"\n\
--   $w.text tag bind command <Any-Leave> \"$w.text configure -cursor {}\"\n\
--   # Content\n\
--   $w.text tag configure content \\\n\
--		-foreground DarkGreen \\\n\
--		-font -adobe-helvetica-medium-r-normal--14-140-*\n\
--   # Title.\n\
--   $w.text tag configure title -font -adobe-helvetica-medium-r-normal--24-240-*\n\
--   # Italic\n\
--   $w.text tag configure italic -font -adobe-helvetica-medium-o-normal--12-120-*\n\
--   # Highlight.\n\
--   $w.text tag configure highlight -foreground red\n\
--}\n\
--\n\
--\n\
--# ----------------------------------------------------------\n\
--# loadFile\n\
--# ----------------------------------------------------------\n\
--# This procedure load a text file given by \"file\" formatted with a \n\
--# simple form of hyper-text into the text widget given by \"w\". And\n\
--# format it.\n\
--proc loadFile {w file} {\n\
--   # Delete all previous text in the text widget.\n\
--   $w delete 1.0 end\n\
--\n\
--   # Open the text file.\n\
--   set f [open $file]\n\
--\n\
--   # Insert the text into the text widget.\n\
--   while {![eof $f]} {\n\
--	$w insert end [read $f 1000]\n\
--   }\n\
--	\n\
--   # Close the text file.\n\
--   close $f\n\
--\n\
--   # Format the text. This is done by looking for all the \"@\" in the\n\
--   # text widget, deleting it and sending the following character to\n\
--   # the procedure formaText, which tags the text appropriately.\n\
--	forAllMatches $w @ {\n\
--		$w delete first last\n\
--		set char [$w get last \"last+ 1 chars\"]\n\
--		formatText $w $char\n\
--	}\n\
--}\n\
--\n\
--# ----------------------------------------------------------\n\
--# forAllMatches\n\
--# ----------------------------------------------------------\n\
--# This procedure takes three arguments: the name of a text widget, \n\
--# a regular expression pattern and a script. \n\
--# It finds all of the ranges of characters that match the pattern. \n\
--# For each matching range forAllMatches sets the marks first and last \n\
--# to the beginning and end of the of the range, then it invokes the \n\
--# script.\n\
--# This procedure has been taken from John K. Ousterhout's book,\n\
--# Tcl and the Tk Toolkit (1994) p.219. \n\
--proc forAllMatches {w pattern script} {\n\
--	scan [$w index end] %d numLines\n\
--	for {set i 1} {$i<=$numLines} {incr i } {\n\
--	   $w mark set last $i.0\n\
--	   while {[regexp -indices $pattern \\\n\
--		  [$w get last \"last lineend\" ] indices ] } {\n\
--		$w mark set first \"last + [lindex $indices 0] chars\"\n\
--		$w mark set last \"last + 1 chars +[lindex $indices 1] chars\"\n\
--		uplevel $script\n\
--	   }\n\
--	}\n\
--}\n\
--";
-+char tcl_help[] = ""
-+"# =================================================================\n"
-+"# The Help Module\n"
-+"# =================================================================\n"
-+"\n"
-+"set HELP(UserGuide) $PKGDATADIR/tk707.help\n"
-+"\n"
-+"# ----------------------------------------------------------\n"
-+"# formatText\n"
-+"# ----------------------------------------------------------\n"
-+"# This procedure tags the text in a text widget (if format is true),\n"
-+"# based on the character in \"char\". \n"
-+"# Text Marks \"first\" and \"last\" need to have been set prior to calling \n"
-+"# the procedure. These mark the range of characters to be tagged.\n"
-+"# The parameters are as follows:\n"
-+"# w	: is the path of the text widget.\n"
-+"# char  : is the character determining which tag is to be set.\n"
-+"# 	  The current valid characters are:\n"
-+"#		u  : underline\n"
-+"#		i  : italic\n"
-+"#		c  : command\n"
-+"#		Cn : Content item, n is a positive integer. \n"
-+"#		t  : title\n"
-+"#		h  : highlight\n"
-+"#		@  : keep the @ character.		\n"
-+"# format : is a boolean value, which when true causes the text to be formatted.\n"
-+"#  	   when false it removes all format information from the text\n"
-+"#	   without tagging\n"
-+"proc formatText { w char {format 1} } {\n"
-+"   global HELP\n"
-+"\n"
-+"   # Format the text.\n"
-+"   if {$format} {\n"
-+"	switch $char {\n"
-+"		u { 	$w delete last \"last + 1 chars\"\n"
-+"			$w tag add underline \"last\" \"last wordend\"\n"
-+"		  }\n"
-+"		@ { 	$w insert first @ }\n"
-+"		c { 	$w delete last \"last + 1 chars\"\n"
-+"			$w tag add command \"last\" \"last wordend\"\n"
-+"		  }\n"
-+"		C {	\n"
-+"			set tab \"\"\n"
-+"			set tabs [$w get \"last + 1 chars\" \"last + 2 chars\"]\n"
-+"			$w delete last \"last + 2 chars\"\n"
-+"			while {$tabs} {\n"
-+"			    set tab \"$tab      \" ;\n"
-+"			    incr tabs -1\n"
-+"			}\n"
-+"			lappend HELP(Contents)\\\n"
-+"			 [list \"$tab[$w get \"first\" \"first lineend\"]\" \\\n"
-+"				[$w index first]]\n"
-+"		  }\n"
-+"		t { 	$w delete last \"last + 1 chars\"\n"
-+"			$w tag add title \"last\" \"last lineend\"\n"
-+"		  }\n"
-+"		h {	$w delete last \"last + 1 chars\"\n"
-+"			$w tag add highlight \"last\" \"last wordend\"\n"
-+"		  }\n"
-+"		i {	$w delete last \"last + 1 chars\"\n"
-+"			$w tag add italic \"last\" \"last wordend\"\n"
-+"		  }\n"
-+"	default { }\n"
-+"	}\n"
-+"\n"
-+"   # Remove all format data without formatting.\n"
-+"   }  else {\n"
-+"	set ok 0\n"
-+"	foreach i {u c C t h i} {\n"
-+"		if {$i==$char} { \n"
-+"			$w delete last \"last + 1 chars\"\n"
-+"			set ok 1 \n"
-+"		}\n"
-+"	}\n"
-+"		if {!$ok} { $w insert last @ }\n"
-+"  }\n"
-+"}\n"
-+"# ----------------------------------------------------------\n"
-+"# Set Help globals.\n"
-+"# ----------------------------------------------------------\n"
-+"set HELP(BG) snow2\n"
-+"set HELP(FG) black\n"
-+"set HELP(AFG) grey\n"
-+"set HELP(HIL) red\n"
-+"set HELP(COM) DarkGreen\n"
-+"set HELP(Log) \"0\"\n"
-+"\n"
-+"# ----------------------------------------------------------\n"
-+"# about\n"
-+"# ----------------------------------------------------------\n"
-+"proc about {} {\n"
-+"  global VERSION\n"
-+"  if {[winfo exists .about]} {\n"
-+"    wm deiconify .about\n"
-+"  } else {\n"
-+"    toplevel .about\n"
-+"    wm title .about \"About tk707...\"\n"
-+"    label    .about.label -text \"\n"
-+"TK 707\\n\n"
-+"version $VERSION\\n\n"
-+"\n"
-+"Copyright(C) 2000, 2001\\n\n"
-+"Chris Willing <chris@vislab.usyd.edu.au>,\\n\n"
-+"Pierre Saramito <pierre.saramito@imag.fr>.\\n\n"
-+"\n"
-+"Go to the Help menu for the complete documentation.\n"
-+"This documentation is available in HTML and INFO formats.\n"
-+"Type `man tk707` to access the on-line reference manual.\n"
-+"\n"
-+"The tk707 documentation is also available in html, pdf, postscript and\n"
-+"dvi formats from\\n\n"
-+"http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707\n"
-+"http://www.vislab.usyd.edu.au/staff/chris/tk707\n"
-+"\n"
-+"Send comments and requests, bugs, suggestions and mods \n"
-+"to the both authors.\"\n"
-+"\n"
-+"    frame    .about.sep -width 100p -height 2p -borderwidth 1p -relief sunken\n"
-+"    button   .about.dismiss -text \"Dissmiss\" -command {wm iconify .about}\n"
-+"    pack     .about.label\n"
-+"    pack     .about.dismiss -side bottom -pady 4p\n"
-+"    pack     .about.sep     -side bottom -fill x -pady 4p\n"
-+"  }\n"
-+"}\n"
-+"# ----------------------------------------------------------\n"
-+"# UserManual\n"
-+"# ----------------------------------------------------------\n"
-+"# This procedure is the callback to to the Help-User's Manual menu item.\n"
-+"# It creates a pop-up window containing the user's manual, with a few \n"
-+"# basic highlighting and goto features.\n"
-+"proc UserManual {} {\n"
-+"   global HELP FILE\n"
-+"\n"
-+"   # Only procede if the help window is non-existant.	\n"
-+"   if {![winfo exists .help]} {\n"
-+"	set HELP(Contents) \"\"\n"
-+"\n"
-+"	# Create the toplevel window.\n"
-+"	toplevel .help -bg $HELP(BG)\n"
-+"	# Set the geometry\n"
-+"	wm geometry .help 80x25\n"
-+"	wm title .help \"Tk-707 User's Guide\"\n"
-+"	# Set the Icon information.\n"
-+"	wm iconname .help Help\n"
-+"\n"
-+"	# Create the buttons panel (Contents, Back, Exit)\n"
-+"	frame .help.buttons -bg $HELP(BG) -relief ridge -bd 4\n"
-+"	# Create the Contents button.\n"
-+"	button .help.buttons.contents\\\n"
-+"			-text Contents\\\n"
-+"			-bg $HELP(AFG)\\\n"
-+"			-fg $HELP(FG)\\\n"
-+"			-activeforeground $HELP(FG)\\\n"
-+"			-activebackground $HELP(AFG)\\\n"
-+"			-width 10\\\n"
-+"			-command {.help.help.text yview 0}\n"
-+"	# Create the Back button.\n"
-+"	button .help.buttons.prev\\\n"
-+"			-text Back\\\n"
-+"			-bg $HELP(AFG)\\\n"
-+"			-fg $HELP(FG)\\\n"
-+"			-width 10\\\n"
-+"			-activebackground $HELP(AFG)\\\n"
-+"			-command {\n"
-+" 				set end [expr [llength $HELP(Log)]-1]\n"
-+"				set value [lindex $HELP(Log) [expr $end-1]]\n"
-+"				.help.help.text yview $value\n"
-+"				set HELP(Log) [lreplace $HELP(Log) $end $end]\n"
-+"			        }\n"
-+"	# Create the Exit button.\n"
-+"	button .help.buttons.exit\\\n"
-+"			-text Exit\\\n"
-+"			-bg $HELP(AFG)\\\n"
-+"			-fg $HELP(FG)\\\n"
-+"			-activeforeground $HELP(FG)\\\n"
-+"			-activebackground $HELP(AFG)\\\n"
-+"			-width 10\\\n"
-+"			-command {destroy .help}\n"
-+"\n"
-+"        # Procedure to call when HELP(Log) is written\n"
-+"        proc setlog {nm1 nm2 op} {\n"
-+"	  global HELP\n"
-+"	  if {$HELP(Log)==0} {\n"
-+"	    .help.buttons.prev config -state disabled \n"
-+"	  } else {\n"
-+"	    .help.buttons.prev config -state normal\n"
-+"	  }\n"
-+"	}\n"
-+"\n"
-+"	# Set a variable trace on the Help(Log) variable to ensure that\n"
-+"	# the Back button is disabled when the log is empty.\n"
-+"        trace variable HELP(Log) w setlog\n"
-+"\n"
-+"	# Set the current state of the Back button.\n"
-+"	set HELP(Log) $HELP(Log)\n"
-+"\n"
-+"	# Pack the buttons.\n"
-+"	pack 	.help.buttons.contents \\\n"
-+"		.help.buttons.prev\\\n"
-+"		.help.buttons.exit\\\n"
-+"		-side left -anchor w\n"
-+"\n"
-+"	pack .help.buttons  -anchor w -fill x\n"
-+"\n"
-+"	# Create and pack the text widget (with scrollbar)\n"
-+"	setupText .help.help\n"
-+"\n"
-+"	# Load the User's Guide into widget and generate contents list.\n"
-+"	loadFile .help.help.text $HELP(UserGuide)\n"
-+"\n"
-+"	# Insert the contents list.\n"
-+"	set i 1\n"
-+"	foreach item $HELP(Contents) {\n"
-+"		.help.help.text insert $i.0 [format \"[lindex $item 0]\\n\"]\n"
-+"		.help.help.text tag add content $i.0 \"$i.0 lineend\"\n"
-+"		incr i\n"
-+"	}\n"
-+"	incr i 2\n"
-+"	# Insert the \"Contents\" title.\n"
-+"	.help.help.text insert 1.0 [format \"Contents\\n\\n\"]\n"
-+"	# Give it the format of a title.\n"
-+"	.help.help.text tag add title 1.0 \"1.0 lineend\"\n"
-+"	# Store the number of lines added after Contents line.\n"
-+"	set xtraLinesBefore 2\n"
-+"	\n"
-+"	# Add 3 blank lines after contents.\n"
-+"	# This has to be stored for later\n"
-+"	set xtraLinesAfter 3\n"
-+"	.help.help.text insert $i.0 [format \"\\n\\n\\n\"]\n"
-+"	# Strip the Format code from the Contents list\n"
-+"	forAllMatches .help.help.text @ {\n"
-+"		.help.help.text delete first last\n"
-+"		set char [.help.help.text get last \"last+ 1 chars\"]\n"
-+"		formatText .help.help.text $char 0\n"
-+"	}\n"
-+"	# Configure and Bind content list.\n"
-+"	# A different cursor when above the item\n"
-+"	.help.help.text tag bind content <Any-Enter> \\\n"
-+"		\".help.help.text configure -cursor arrow\"\n"
-+"	.help.help.text tag bind content <Any-Leave> \\\n"
-+"		\".help.help.text configure -cursor {}\"\n"
-+"	# Skip to the relevant line.\n"
-+"	.help.help.text tag bind content <Button-1>\\\n"
-+"	  \"set index \\[ expr \\[lindex \\[split \\[%W index @%x,%y\\] .\\] 0\\]\\\n"
-+"			-(1 +$xtraLinesBefore)\\]\n"
-+"	   set goto \\[expr \\[lindex \\[lindex \\$HELP(Contents) \\$index\\] 1\\] +2\\\n"
-+"	   		+$xtraLinesAfter +\\[llength \\$HELP(Contents)\\]\\]\n"
-+"\n"
-+" 	   # Store in the log.\n"
-+"	   lappend HELP(Log) \\$goto\n"
-+"\n"
-+"	   # Adjust the view to the selected line.\n"
-+"	   %W yview \\$goto\"\n"
-+"   } else {\n"
-+"	# Bring  the user manual to the front.\n"
-+"	# I am not using raise since it doesn't generally work for olwm.\n"
-+"	wm withdraw .help\n"
-+"	wm deiconify .help\n"
-+"   }\n"
-+"}\n"
-+"\n"
-+"# ----------------------------------------------------------\n"
-+"# setupText\n"
-+"# ----------------------------------------------------------\n"
-+"# This procedure creates a text widget and scroll bar.\n"
-+"# The parameter \"w\" is a path for the combined widget.\n"
-+"proc setupText {w} {\n"
-+"   global HELP\n"
-+"\n"
-+"   #Create Widgets if the path name is valid.\n"
-+"   if {![winfo exists $w]} {\n"
-+"	# Create the general frame.\n"
-+"	frame $w\n"
-+"\n"
-+"	# Create the text widget.\n"
-+"	# The configuration option \"setgrid\" sets up gridded \n"
-+"	# window management.\n"
-+"	text $w.text 	-yscrollcommand \"$w.scroll set\"\\\n"
-+"			-setgrid 1 \\\n"
-+"			-wrap word\n"
-+"	# Create the scrollbar.\n"
-+"	scrollbar $w.scroll -command \"$w.text yview\"\n"
-+"\n"
-+"	# Pack the widget.\n"
-+"	pack $w.text  -fill both -expand 1 -side left\n"
-+"	pack $w.scroll -side left -fill y -expand 1\n"
-+"	pack $w -fill both -expand 1\n"
-+"   }\n"
-+"\n"
-+"   # Configure the Widgets.\n"
-+"   $w config -bg $HELP(BG)\n"
-+"   $w.text config\\\n"
-+"		-background $HELP(BG)\\\n"
-+"		-foreground $HELP(FG)\\\n"
-+"		-cursor {}\\\n"
-+"		-font -adobe-helvetica-medium-r-normal--12-120-*\\\n"
-+"		-exportselection 0\n"
-+"\n"
-+"   $w.scroll config -background $HELP(BG)\n"
-+"\n"
-+"   # Remove the default bindings that make the text widget editable.\n"
-+"   bind $w.text <Any-KeyPress> { }\n"
-+"   bind $w.text <Any-Button> { }\n"
-+"   bind $w.text <Any-B1-Motion> { }\n"
-+"\n"
-+"   # Set the configuration for text tags.\n"
-+"   # Underline.\n"
-+"   $w.text tag configure underline -underline 1\n"
-+"   # Command\n"
-+"   $w.text tag configure command \\\n"
-+"		-foreground DarkGreen\\\n"
-+"		-font -adobe-helvetica-medium-r-normal--14-140-*\n"
-+"   $w.text tag bind command <Button-1> { \n"
-+"		puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n"
-+"   $w.text tag bind command <Any-Enter> \"$w.text configure -cursor arrow\"\n"
-+"   $w.text tag bind command <Any-Leave> \"$w.text configure -cursor {}\"\n"
-+"   # Content\n"
-+"   $w.text tag configure content \\\n"
-+"		-foreground DarkGreen \\\n"
-+"		-font -adobe-helvetica-medium-r-normal--14-140-*\n"
-+"   # Title.\n"
-+"   $w.text tag configure title -font -adobe-helvetica-medium-r-normal--24-240-*\n"
-+"   # Italic\n"
-+"   $w.text tag configure italic -font -adobe-helvetica-medium-o-normal--12-120-*\n"
-+"   # Highlight.\n"
-+"   $w.text tag configure highlight -foreground red\n"
-+"}\n"
-+"\n"
-+"\n"
-+"# ----------------------------------------------------------\n"
-+"# loadFile\n"
-+"# ----------------------------------------------------------\n"
-+"# This procedure load a text file given by \"file\" formatted with a \n"
-+"# simple form of hyper-text into the text widget given by \"w\". And\n"
-+"# format it.\n"
-+"proc loadFile {w file} {\n"
-+"   # Delete all previous text in the text widget.\n"
-+"   $w delete 1.0 end\n"
-+"\n"
-+"   # Open the text file.\n"
-+"   set f [open $file]\n"
-+"\n"
-+"   # Insert the text into the text widget.\n"
-+"   while {![eof $f]} {\n"
-+"	$w insert end [read $f 1000]\n"
-+"   }\n"
-+"	\n"
-+"   # Close the text file.\n"
-+"   close $f\n"
-+"\n"
-+"   # Format the text. This is done by looking for all the \"@\" in the\n"
-+"   # text widget, deleting it and sending the following character to\n"
-+"   # the procedure formaText, which tags the text appropriately.\n"
-+"	forAllMatches $w @ {\n"
-+"		$w delete first last\n"
-+"		set char [$w get last \"last+ 1 chars\"]\n"
-+"		formatText $w $char\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"# ----------------------------------------------------------\n"
-+"# forAllMatches\n"
-+"# ----------------------------------------------------------\n"
-+"# This procedure takes three arguments: the name of a text widget, \n"
-+"# a regular expression pattern and a script. \n"
-+"# It finds all of the ranges of characters that match the pattern. \n"
-+"# For each matching range forAllMatches sets the marks first and last \n"
-+"# to the beginning and end of the of the range, then it invokes the \n"
-+"# script.\n"
-+"# This procedure has been taken from John K. Ousterhout's book,\n"
-+"# Tcl and the Tk Toolkit (1994) p.219. \n"
-+"proc forAllMatches {w pattern script} {\n"
-+"	scan [$w index end] %d numLines\n"
-+"	for {set i 1} {$i<=$numLines} {incr i } {\n"
-+"	   $w mark set last $i.0\n"
-+"	   while {[regexp -indices $pattern \\\n"
-+"		  [$w get last \"last lineend\" ] indices ] } {\n"
-+"		$w mark set first \"last + [lindex $indices 0] chars\"\n"
-+"		$w mark set last \"last + 1 chars +[lindex $indices 1] chars\"\n"
-+"		uplevel $script\n"
-+"	   }\n"
-+"	}\n"
-+"}\n"
-+"";
---- a/play.c
-+++ b/play.c
-@@ -179,8 +179,8 @@
- 				break;
- 			}
- 			default:
--				fprintf(stderr, "unexpected short option `%c'\n", c);
- 				usage();
-+				Tcl_SetObjResult(interp, Tcl_NewIntObj(3));
- 				return TCL_OK;
- 				break;
- 		}
-@@ -559,7 +559,6 @@
- 	TK707 *tk707 = (TK707*)clientData;
- 	seq707_context_t *ctxp = tk707->ctxp_p;
- 	int diff, newticks;
--	snd_seq_queue_tempo_t   tempo;
- 	snd_seq_event_t ev;
- 	tk707_get_int1_macro(interp,objc,objv, newticks);
- 
-@@ -568,6 +567,7 @@
- 	ctxp->ppq = newticks;
- 	return TCL_OK;
- }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- int 
- timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
- {
-@@ -591,6 +591,36 @@
- 	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
- 	return TCL_OK;
- }
-+#else /* !HAVE_SYS_ASOUNDLIB_H */
-+int 
-+timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	seq707_context_t *ctxp = tk707->ctxp_p;
-+	snd_seq_queue_status_t *status;
-+
-+	snd_seq_queue_status_alloca(&status);
-+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
-+
-+return TCL_OK;
-+}
-+int 
-+get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	seq707_context_t *ctxp = tk707->ctxp_p;
-+	snd_seq_queue_status_t *status;
-+	int result;
-+
-+	snd_seq_queue_status_alloca(&status);
-+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
-+	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
-+
-+return TCL_OK;
-+}
-+#endif /* HAVE_SYS_ASOUNDLIB_H */
- static
- int
- ponderated_velocity (int volume_master, int volume_accent, double accent_factor,
-@@ -635,12 +665,24 @@
- 
- 	seq707_context_t *ctxp = tk707->ctxp_c;
- 	static int have_start = 0;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_queue_status_t status;
-+#else
-+        snd_seq_queue_status_t *status;
-+#endif
-+	int cur_tick;
- 	int midich;
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--        if ( status.tick > ctxp->currticktime ) {
--    	    ctxp->currticktime = status.tick;
-+        cur_tick = status.tick;
-+#else
-+        snd_seq_queue_status_alloca(&status);
-+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+        cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+        if ( cur_tick > ctxp->currticktime ) {
-+    	    ctxp->currticktime = cur_tick;
-         }
-         midich = ctxp->midichannel;
- 	if (!have_start) {
-@@ -658,27 +700,46 @@
- 	    ctxp->currticktime += tick_per_flam;
- 	    do_noteon (ctxp, midich, midi_note, velocity);
- 	}
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_flush_output(ctxp->handle);
-+#else
-+	snd_seq_drain_output(ctxp->handle);
-+#endif
- }
- static
- void
- c_stop_note (TK707 *tk707, int midi_note)
- {	
- 	seq707_context_t *ctxp = tk707->ctxp_c;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_queue_status_t status;
-+#else
-+        snd_seq_queue_status_t *status;
-+#endif
-+	int cur_tick;
- 	int midich;
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--        if ( status.tick > ctxp->currticktime ) {
--    	    ctxp->currticktime = status.tick;
-+        cur_tick = status.tick;
-+#else
-+        snd_seq_queue_status_alloca(&status);
-+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+        cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+        if ( cur_tick > ctxp->currticktime ) {
-+    	    ctxp->currticktime = cur_tick;
-         }
-         midich = ctxp->midichannel;
- 
- 	do_noteon (ctxp, midich, midi_note, 0);
- 	/* ctxp->currticktime += old_tick_per_quarter; */
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_flush_output(ctxp->handle);
--	/* snd_seq_drain_output(ctxp->handle); */
-+#else
-+	snd_seq_drain_output(ctxp->handle);
-+#endif
- 
-         alsa_timer_stop(ctxp);
- }
-@@ -741,7 +802,11 @@
- {
- 	TK707 *tk707 = (TK707*)clientData;
- 	seq707_context_t *ctxp = tk707->ctxp_p;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_drain_output(ctxp->handle);
-+#else
-+	snd_seq_drop_output(ctxp->handle);
-+#endif
- 	return TCL_OK;
- }
- int 
-@@ -749,7 +814,12 @@
- {
-     TK707 *tk707 = (TK707*)clientData;
-     seq707_context_t *ctxp = tk707->ctxp_p;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_queue_status_t status;
-+#else
-+    snd_seq_queue_status_t *status;
-+#endif
-+    int cur_tick;
-     int group, pattern, step, stepcount, scale, midich, dur;
-     PatternElement *current_pattern;
-     int volume_master, volume_accent, flam_interval;
-@@ -770,9 +840,16 @@
- 	fprintf (stderr, "FATAL: invalid flam/delay configuration\n");
- 	exit (1);
-     }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--    if ( status.tick > ctxp->currticktime ) {
--    	ctxp->currticktime = status.tick;
-+    cur_tick = status.tick;
-+#else
-+    snd_seq_queue_status_alloca(&status);
-+    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+    cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+    if ( cur_tick > ctxp->currticktime ) {
-+    	ctxp->currticktime = cur_tick;
-     }
-     midich = ctxp->midichannel;
-     alsa_timer_cont (ctxp);
-@@ -823,10 +900,14 @@
- 	}
- 	ctxp->currticktime += old_tick_per_step_off_scale [scale];
-     }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_flush_output(ctxp->handle);
-+#else
-+    snd_seq_drain_output(ctxp->handle);
-+#endif
-     alsa_timer_stop(ctxp);
- 
--    dur = (int)(500*((double)(ctxp->currticktime - status.tick)/(double)ctxp->ppq));
-+    dur = (int)(500*((double)(ctxp->currticktime - cur_tick)/(double)ctxp->ppq));
-     Tcl_SetObjResult(interp, Tcl_NewIntObj(dur - tick_per_step));
-     return TCL_OK;
- }
-@@ -1014,6 +1095,7 @@
- /*
- 	Construct a list of ALSA midi ports on the system.
- */
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- int 
- port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
- {
-@@ -1061,7 +1143,67 @@
- 				Tcl_ListObjAppendElement(interp, items[i],
- 							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
- 				Tcl_ListObjAppendElement(interp, items[i],
--							Tcl_NewStringObj(cinfo.name, strlen(pinfo.name)));
-+							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
-+
-+				Tcl_ListObjAppendElement(interp, res, items[i]);
-+				i++;
-+			}
-+		}
-+	}
-+	
-+	Tcl_SetObjResult(interp, res);
-+
-+return TCL_OK;
-+}
-+#else /* !HAVE_SYS_ASOUNDLIB_H */
-+int 
-+port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	Tcl_Obj *res, *items[17]={NULL};
-+	int i, client, port, io;
-+	snd_seq_client_info_t *cinfo;
-+	snd_seq_port_info_t *pinfo;
-+	snd_seq_t *handle;
-+	tk707_get_int1_macro(interp,objc,objv, io);
-+
-+	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
-+	{
-+		return TCL_ERROR;
-+	}
-+
-+	res = Tcl_NewListObj(0, NULL);
-+
-+	snd_seq_client_info_alloca(&cinfo);
-+	snd_seq_port_info_alloca(&pinfo);
-+
-+	i = 0;
-+	snd_seq_client_info_set_client(cinfo, 0);
-+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-+		client = snd_seq_client_info_get_client(cinfo);
-+		snd_seq_port_info_set_client(pinfo, client);
-+		snd_seq_port_info_set_port(pinfo, -1);
-+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
-+			unsigned int cap;
-+			if( io > 0 )
-+				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-+			else
-+				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-+			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
-+			{
-+				const char *name;
-+				port = snd_seq_port_info_get_port(pinfo);
-+				items[i] = Tcl_NewListObj(0, NULL);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewIntObj(client));
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewIntObj(port));
-+				name = snd_seq_port_info_get_name(pinfo);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewStringObj(name, strlen(name)));
-+				name = snd_seq_client_info_get_name(cinfo);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewStringObj(name, strlen(name)));
- 
- 				Tcl_ListObjAppendElement(interp, res, items[i]);
- 				i++;
-@@ -1073,6 +1215,7 @@
- 
- return TCL_OK;
- }
-+#endif /* HAVE_SYS_ASOUNDLIB_H */
- 
- /*
- 	Return a given screen distance to pixels
---- a/playa.c
-+++ b/playa.c
-@@ -179,8 +179,8 @@
- 				break;
- 			}
- 			default:
--				fprintf(stderr, "unexpected short option `%c'\n", c);
- 				usage();
-+				Tcl_SetObjResult(interp, Tcl_NewIntObj(3));
- 				return TCL_OK;
- 				break;
- 		}
-@@ -559,7 +559,6 @@
- 	TK707 *tk707 = (TK707*)clientData;
- 	seq707_context_t *ctxp = tk707->ctxp_p;
- 	int diff, newticks;
--	snd_seq_queue_tempo_t   tempo;
- 	snd_seq_event_t ev;
- 	tk707_get_int1_macro(interp,objc,objv, newticks);
- 
-@@ -568,6 +567,7 @@
- 	ctxp->ppq = newticks;
- 	return TCL_OK;
- }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- int 
- timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
- {
-@@ -591,6 +591,36 @@
- 	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
- 	return TCL_OK;
- }
-+#else /* !HAVE_SYS_ASOUNDLIB_H */
-+int 
-+timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	seq707_context_t *ctxp = tk707->ctxp_p;
-+	snd_seq_queue_status_t *status;
-+
-+	snd_seq_queue_status_alloca(&status);
-+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
-+
-+return TCL_OK;
-+}
-+int 
-+get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	seq707_context_t *ctxp = tk707->ctxp_p;
-+	snd_seq_queue_status_t *status;
-+	int result;
-+
-+	snd_seq_queue_status_alloca(&status);
-+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
-+	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
-+
-+return TCL_OK;
-+}
-+#endif /* HAVE_SYS_ASOUNDLIB_H */
- static
- int
- ponderated_velocity (int volume_master, int volume_accent, double accent_factor,
-@@ -635,12 +665,24 @@
- 
- 	seq707_context_t *ctxp = tk707->ctxp_c;
- 	static int have_start = 0;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_queue_status_t status;
-+#else
-+        snd_seq_queue_status_t *status;
-+#endif
-+	int cur_tick;
- 	int midich;
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--        if ( status.tick > ctxp->currticktime ) {
--    	    ctxp->currticktime = status.tick;
-+        cur_tick = status.tick;
-+#else
-+        snd_seq_queue_status_alloca(&status);
-+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+        cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+        if ( cur_tick > ctxp->currticktime ) {
-+    	    ctxp->currticktime = cur_tick;
-         }
-         midich = ctxp->midichannel;
- 	if (!have_start) {
-@@ -658,27 +700,46 @@
- 	    ctxp->currticktime += tick_per_flam;
- 	    do_noteon (ctxp, midich, midi_note, velocity);
- 	}
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_flush_output(ctxp->handle);
-+#else
-+	snd_seq_drain_output(ctxp->handle);
-+#endif
- }
- static
- void
- c_stop_note (TK707 *tk707, int midi_note)
- {	
- 	seq707_context_t *ctxp = tk707->ctxp_c;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_queue_status_t status;
-+#else
-+        snd_seq_queue_status_t *status;
-+#endif
-+	int cur_tick;
- 	int midich;
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--        if ( status.tick > ctxp->currticktime ) {
--    	    ctxp->currticktime = status.tick;
-+        cur_tick = status.tick;
-+#else
-+        snd_seq_queue_status_alloca(&status);
-+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+        cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+        if ( cur_tick > ctxp->currticktime ) {
-+    	    ctxp->currticktime = cur_tick;
-         }
-         midich = ctxp->midichannel;
- 
- 	do_noteon (ctxp, midich, midi_note, 0);
- 	/* ctxp->currticktime += old_tick_per_quarter; */
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_flush_output(ctxp->handle);
--	/* snd_seq_drain_output(ctxp->handle); */
-+#else
-+	snd_seq_drain_output(ctxp->handle);
-+#endif
- 
-         alsa_timer_stop(ctxp);
- }
-@@ -741,7 +802,11 @@
- {
- 	TK707 *tk707 = (TK707*)clientData;
- 	seq707_context_t *ctxp = tk707->ctxp_p;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_drain_output(ctxp->handle);
-+#else
-+	snd_seq_drop_output(ctxp->handle);
-+#endif
- 	return TCL_OK;
- }
- int 
-@@ -749,7 +814,12 @@
- {
-     TK707 *tk707 = (TK707*)clientData;
-     seq707_context_t *ctxp = tk707->ctxp_p;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_queue_status_t status;
-+#else
-+    snd_seq_queue_status_t *status;
-+#endif
-+    int cur_tick;
-     int group, pattern, step, stepcount, scale, midich, dur;
-     PatternElement *current_pattern;
-     int volume_master, volume_accent, flam_interval;
-@@ -770,9 +840,16 @@
- 	fprintf (stderr, "FATAL: invalid flam/delay configuration\n");
- 	exit (1);
-     }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
--    if ( status.tick > ctxp->currticktime ) {
--    	ctxp->currticktime = status.tick;
-+    cur_tick = status.tick;
-+#else
-+    snd_seq_queue_status_alloca(&status);
-+    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-+    cur_tick = snd_seq_queue_status_get_tick_time(status);
-+#endif
-+    if ( cur_tick > ctxp->currticktime ) {
-+    	ctxp->currticktime = cur_tick;
-     }
-     midich = ctxp->midichannel;
-     alsa_timer_cont (ctxp);
-@@ -823,10 +900,14 @@
- 	}
- 	ctxp->currticktime += old_tick_per_step_off_scale [scale];
-     }
-+#ifdef HAVE_SYS_ASOUNDLIB_H
-     snd_seq_flush_output(ctxp->handle);
-+#else
-+    snd_seq_drain_output(ctxp->handle);
-+#endif
-     alsa_timer_stop(ctxp);
- 
--    dur = (int)(500*((double)(ctxp->currticktime - status.tick)/(double)ctxp->ppq));
-+    dur = (int)(500*((double)(ctxp->currticktime - cur_tick)/(double)ctxp->ppq));
-     Tcl_SetObjResult(interp, Tcl_NewIntObj(dur - tick_per_step));
-     return TCL_OK;
- }
-@@ -1014,6 +1095,7 @@
- /*
- 	Construct a list of ALSA midi ports on the system.
- */
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- int 
- port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
- {
-@@ -1061,7 +1143,67 @@
- 				Tcl_ListObjAppendElement(interp, items[i],
- 							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
- 				Tcl_ListObjAppendElement(interp, items[i],
--							Tcl_NewStringObj(cinfo.name, strlen(pinfo.name)));
-+							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
-+
-+				Tcl_ListObjAppendElement(interp, res, items[i]);
-+				i++;
-+			}
-+		}
-+	}
-+	
-+	Tcl_SetObjResult(interp, res);
-+
-+return TCL_OK;
-+}
-+#else /* !HAVE_SYS_ASOUNDLIB_H */
-+int 
-+port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
-+{
-+	TK707 *tk707 = (TK707*)clientData;
-+	Tcl_Obj *res, *items[17]={NULL};
-+	int i, client, port, io;
-+	snd_seq_client_info_t *cinfo;
-+	snd_seq_port_info_t *pinfo;
-+	snd_seq_t *handle;
-+	tk707_get_int1_macro(interp,objc,objv, io);
-+
-+	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
-+	{
-+		return TCL_ERROR;
-+	}
-+
-+	res = Tcl_NewListObj(0, NULL);
-+
-+	snd_seq_client_info_alloca(&cinfo);
-+	snd_seq_port_info_alloca(&pinfo);
-+
-+	i = 0;
-+	snd_seq_client_info_set_client(cinfo, 0);
-+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-+		client = snd_seq_client_info_get_client(cinfo);
-+		snd_seq_port_info_set_client(pinfo, client);
-+		snd_seq_port_info_set_port(pinfo, -1);
-+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
-+			unsigned int cap;
-+			if( io > 0 )
-+				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-+			else
-+				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-+			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
-+			{
-+				const char *name;
-+				port = snd_seq_port_info_get_port(pinfo);
-+				items[i] = Tcl_NewListObj(0, NULL);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewIntObj(client));
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewIntObj(port));
-+				name = snd_seq_port_info_get_name(pinfo);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewStringObj(name, strlen(name)));
-+				name = snd_seq_client_info_get_name(cinfo);
-+				Tcl_ListObjAppendElement(interp, items[i],
-+							Tcl_NewStringObj(name, strlen(name)));
- 
- 				Tcl_ListObjAppendElement(interp, res, items[i]);
- 				i++;
-@@ -1073,6 +1215,7 @@
- 
- return TCL_OK;
- }
-+#endif /* HAVE_SYS_ASOUNDLIB_H */
- 
- /*
- 	Return a given screen distance to pixels
---- a/ports.c
-+++ b/ports.c
-@@ -1,138 +1,142 @@
--char tcl_ports[] = "\
--#	File ports.tcl\n\
--#	GUI for selection of ALSA port.\n\
--\n\
--proc port_setup {} {\n\
--	global tcl_rcFileName\n\
--	global ports\n\
--	global iolists\n\
--	global font12\n\
--\n\
--	set ports .setup\n\
--	toplevel $ports\n\
--	wm title $ports \"TK-707 ALSA port setup\"\n\
--\n\
--	set howto .setup.h\n\
--	set howtotext $howto.text\n\
--	set howtoscroll $howto.scroll\n\
--	frame $howto ;#-relief groove -borderwidth 2\n\
--	canvas $howtotext -yscrollcommand \"$howtoscroll set\" -width 13.5c -height 5c\n\
--	scrollbar $howtoscroll -command \"$howtotext yview\" -width 0.4c\n\
--	pack $howtoscroll -side right -fill y\n\
--	pack $howtotext\n\
--	pack $howto\n\
--\n\
--	$howtotext create text 0.2c 0.2c -anchor nw -font *-${font12}-* -text	\\\n\
--\"Double click on one of Output Ports to make it the Selected Output.\\n\n\
--The SAVE button will save the setting in ~/.tk707rc so that this\n\
--selection dialogue won't appear next time TK-707 is started.\\n\n\
--The OK button will close this dialogue and allow TK-707 to start\n\
--using the selected port. If the current setting hasn't been SAVEd\n\
--then this dialogue will appear again next time TK-707 is run.\n\
--If no port has been selected, TK707 will not start.\\n\n\
--Input Port selection is for future use and currently has no effect.\\n\n\
--When this selection dialogue is raised from the File->Ports menu,\n\
--a selection can be SAVEd but ports cannot be changed while\n\
--TK-707 is running (yet).\"\n\
--\n\
--	set iolists $ports.l\n\
--	canvas $iolists -width 14c -height 8c -relief groove -borderwidth 2\n\
--	pack $iolists\n\
--	set	olist $iolists.ol\n\
--	set	ilist $iolists.il\n\
--	set oselect $iolists.op\n\
--	set iselect $iolists.ip\n\
--	listbox $olist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n\
--	listbox $ilist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n\
--	label $oselect -width 28 -height 1 -relief sunken -borderwidth 2\n\
--	label $iselect -width 28 -height 1 -relief sunken -borderwidth 2\n\
--\n\
--	$iolists create text 2c 0.5c -font *-${font12}-* -text \"Input Ports\" -anchor nw\n\
--	$iolists create text 9c 0.5c -font *-${font12}-* -text \"Output Ports\" -anchor nw\n\
--	$iolists create window 0.15c 1.5c -window $ilist -anchor nw\n\
--	$iolists create window 7c 1.5c -window $olist -anchor nw\n\
--	$iolists create window 0.2c 6c -window $iselect -anchor nw\n\
--	$iolists create window 7.05c 6c -window $oselect -anchor nw\n\
--	$iolists create text 2c 7c -font *-${font12}-* -text \"Selected Input\" -anchor nw\n\
--	$iolists create text 9c 7c -font *-${font12}-* -text \"Selected Output\" -anchor nw\n\
--\n\
--	# Get list of output ports\n\
--	set oportlist [tk7_port_list 1]\n\
--	foreach i $oportlist {\n\
--		if {[regexp -nocase \"MIDI\" $i]} {\n\
--			$olist insert end $i\n\
--		}\n\
--	}\n\
--	# Get list of input ports\n\
--	set iportlist [tk7_port_list 0]\n\
--	foreach i $iportlist {\n\
--		if {[regexp -nocase \"midi\" $i]} {\n\
--			$ilist insert end $i\n\
--		}\n\
--	}\n\
--	bind .setup.l.il <Double-1> {\n\
--		$iolists.ip configure -font *-${font12}-* -text [selection get]\n\
--	}\n\
--	bind $olist <Double-1> {\n\
--		$iolists.op configure -font *-${font12}-* -text [selection get]\n\
--	}\n\
--	set portacts $ports.pa\n\
--	canvas $portacts -width 14c -height 1.5c\n\
--	pack $portacts\n\
--\n\
--	button $portacts.c -font *-${font12}-* -text CANCEL -width 6 -command {\n\
--		if {! [tk7_port_setcheck]} {\n\
--			puts \"NO PORTS SET\"\n\
--			destroy .\n\
--			exit\n\
--		} else {\n\
--			destroy $ports\n\
--		}\n\
--	}\n\
--	button $portacts.s -font *-${font12}-* -text SAVE -width 6 -command {\n\
--		set oplist [.setup.l.op configure -text]\n\
--		# puts \"XX${oplist}XX\"\n\
--		if {[llength $oplist] != 5} {\n\
--			puts nothing\n\
--		} else {\n\
--			if {[llength [lindex $oplist 4]] > 0} {\n\
--				set op [lindex [lindex $oplist 4] 0]\n\
--				set oc [lindex [lindex $oplist 4] 1]\n\
--				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n\
--				# Save selection\n\
--				set OPstr [format \"set tkxox(ALSA_OUTPORT) %d:%d\" $op $oc]\n\
--				set f [open $tcl_rcFileName w]\n\
--				seek $f  0 end\n\
--				puts $f $OPstr\n\
--				close $f\n\
--				destroy $ports\n\
--			}\n\
--		}\n\
--	}\n\
--	button $portacts.b -font *-${font12}-* -text OK -width 6 -command {\n\
--		set oplist [.setup.l.op configure -text]\n\
--		if {[llength $oplist] != 5} {\n\
--			puts nothing\n\
--		} else {\n\
--			if {[llength [lindex $oplist 4]] > 0} {\n\
--				set op [lindex [lindex $oplist 4] 0]\n\
--				set oc [lindex [lindex $oplist 4] 1]\n\
--				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n\
--			}\n\
--		}\n\
--		if {! [tk7_port_setcheck]} {\n\
--			#puts \"NO PORTS SET\"\n\
--			destroy .\n\
--			exit\n\
--		} else {\n\
--			destroy $ports\n\
--		}\n\
--	}\n\
--	$portacts create window 3c 0.75c -window  $portacts.c\n\
--	$portacts create window 7c 0.75c -window  $portacts.s\n\
--	$portacts create window 11c 0.75c -window  $portacts.b\n\
--\n\
--	grab set $ports\n\
--	tkwait window $portacts\n\
--}\n\
--";
-+char tcl_ports[] = ""
-+"#	File ports.tcl\n"
-+"#	GUI for selection of ALSA port.\n"
-+"\n"
-+"proc port_setup {} {\n"
-+"	global tcl_rcFileName\n"
-+"	global ports\n"
-+"	global iolists\n"
-+"	global font12\n"
-+"\n"
-+"	if {[catch {tk7_port_list 1} oportlist] ||\n"
-+"	    [catch {tk7_port_list 0} iportlist]} {\n"
-+"		puts \"NO PORTS FOUND\"\n"
-+"		exit\n"
-+"	}\n"
-+"\n"
-+"	set ports .setup\n"
-+"	toplevel $ports\n"
-+"	wm title $ports \"TK-707 ALSA port setup\"\n"
-+"\n"
-+"	set howto .setup.h\n"
-+"	set howtotext $howto.text\n"
-+"	set howtoscroll $howto.scroll\n"
-+"	frame $howto ;#-relief groove -borderwidth 2\n"
-+"	canvas $howtotext -yscrollcommand \"$howtoscroll set\" -width 13.5c -height 5c\n"
-+"	scrollbar $howtoscroll -command \"$howtotext yview\" -width 0.4c\n"
-+"	pack $howtoscroll -side right -fill y\n"
-+"	pack $howtotext\n"
-+"	pack $howto\n"
-+"\n"
-+"	$howtotext create text 0.2c 0.2c -anchor nw -font *-${font12}-* -text	\\\n"
-+"\"Double click on one of Output Ports to make it the Selected Output.\\n\n"
-+"The SAVE button will save the setting in ~/.tk707rc so that this\n"
-+"selection dialogue won't appear next time TK-707 is started.\\n\n"
-+"The OK button will close this dialogue and allow TK-707 to start\n"
-+"using the selected port. If the current setting hasn't been SAVEd\n"
-+"then this dialogue will appear again next time TK-707 is run.\n"
-+"If no port has been selected, TK707 will not start.\\n\n"
-+"Input Port selection is for future use and currently has no effect.\\n\n"
-+"When this selection dialogue is raised from the File->Ports menu,\n"
-+"a selection can be SAVEd but ports cannot be changed while\n"
-+"TK-707 is running (yet).\"\n"
-+"\n"
-+"	set iolists $ports.l\n"
-+"	canvas $iolists -width 14c -height 8c -relief groove -borderwidth 2\n"
-+"	pack $iolists\n"
-+"	set	olist $iolists.ol\n"
-+"	set	ilist $iolists.il\n"
-+"	set oselect $iolists.op\n"
-+"	set iselect $iolists.ip\n"
-+"	listbox $olist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n"
-+"	listbox $ilist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n"
-+"	label $oselect -width 28 -height 1 -relief sunken -borderwidth 2\n"
-+"	label $iselect -width 28 -height 1 -relief sunken -borderwidth 2\n"
-+"\n"
-+"	$iolists create text 2c 0.5c -font *-${font12}-* -text \"Input Ports\" -anchor nw\n"
-+"	$iolists create text 9c 0.5c -font *-${font12}-* -text \"Output Ports\" -anchor nw\n"
-+"	$iolists create window 0.15c 1.5c -window $ilist -anchor nw\n"
-+"	$iolists create window 7c 1.5c -window $olist -anchor nw\n"
-+"	$iolists create window 0.2c 6c -window $iselect -anchor nw\n"
-+"	$iolists create window 7.05c 6c -window $oselect -anchor nw\n"
-+"	$iolists create text 2c 7c -font *-${font12}-* -text \"Selected Input\" -anchor nw\n"
-+"	$iolists create text 9c 7c -font *-${font12}-* -text \"Selected Output\" -anchor nw\n"
-+"\n"
-+"	# Get list of output ports\n"
-+"	foreach i $oportlist {\n"
-+"		if {[regexp -nocase \"MIDI\" $i]} {\n"
-+"			$olist insert end $i\n"
-+"		}\n"
-+"	}\n"
-+"	# Get list of input ports\n"
-+"	foreach i $iportlist {\n"
-+"		if {[regexp -nocase \"midi\" $i]} {\n"
-+"			$ilist insert end $i\n"
-+"		}\n"
-+"	}\n"
-+"	bind .setup.l.il <Double-1> {\n"
-+"		$iolists.ip configure -font *-${font12}-* -text [selection get]\n"
-+"	}\n"
-+"	bind $olist <Double-1> {\n"
-+"		$iolists.op configure -font *-${font12}-* -text [selection get]\n"
-+"	}\n"
-+"	set portacts $ports.pa\n"
-+"	canvas $portacts -width 14c -height 1.5c\n"
-+"	pack $portacts\n"
-+"\n"
-+"	button $portacts.c -font *-${font12}-* -text CANCEL -width 6 -command {\n"
-+"		if {! [tk7_port_setcheck]} {\n"
-+"			puts \"NO PORTS SET\"\n"
-+"			destroy .\n"
-+"			exit\n"
-+"		} else {\n"
-+"			destroy $ports\n"
-+"		}\n"
-+"	}\n"
-+"	button $portacts.s -font *-${font12}-* -text SAVE -width 6 -command {\n"
-+"		set oplist [.setup.l.op configure -text]\n"
-+"		# puts \"XX${oplist}XX\"\n"
-+"		if {[llength $oplist] != 5} {\n"
-+"			puts nothing\n"
-+"		} else {\n"
-+"			if {[llength [lindex $oplist 4]] > 0} {\n"
-+"				set op [lindex [lindex $oplist 4] 0]\n"
-+"				set oc [lindex [lindex $oplist 4] 1]\n"
-+"				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n"
-+"				# Save selection\n"
-+"				set OPstr [format \"set tkxox(ALSA_OUTPORT) %d:%d\" $op $oc]\n"
-+"				set f [open $tcl_rcFileName w]\n"
-+"				seek $f  0 end\n"
-+"				puts $f $OPstr\n"
-+"				close $f\n"
-+"				destroy $ports\n"
-+"			}\n"
-+"		}\n"
-+"	}\n"
-+"	button $portacts.b -font *-${font12}-* -text OK -width 6 -command {\n"
-+"		set oplist [.setup.l.op configure -text]\n"
-+"		if {[llength $oplist] != 5} {\n"
-+"			puts nothing\n"
-+"		} else {\n"
-+"			if {[llength [lindex $oplist 4]] > 0} {\n"
-+"				set op [lindex [lindex $oplist 4] 0]\n"
-+"				set oc [lindex [lindex $oplist 4] 1]\n"
-+"				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n"
-+"			}\n"
-+"		}\n"
-+"		if {! [tk7_port_setcheck]} {\n"
-+"			#puts \"NO PORTS SET\"\n"
-+"			destroy .\n"
-+"			exit\n"
-+"		} else {\n"
-+"			destroy $ports\n"
-+"		}\n"
-+"	}\n"
-+"	$portacts create window 3c 0.75c -window  $portacts.c\n"
-+"	$portacts create window 7c 0.75c -window  $portacts.s\n"
-+"	$portacts create window 11c 0.75c -window  $portacts.b\n"
-+"\n"
-+"	grab set $ports\n"
-+"	tkwait window $portacts\n"
-+"}\n"
-+"";
---- a/ports.tcl
-+++ b/ports.tcl
-@@ -7,6 +7,12 @@
- 	global iolists
- 	global font12
- 
-+	if {[catch {tk7_port_list 1} oportlist] ||
-+	    [catch {tk7_port_list 0} iportlist]} {
-+		puts "NO PORTS FOUND"
-+		exit
-+	}
-+
- 	set ports .setup
- 	toplevel $ports
- 	wm title $ports "TK-707 ALSA port setup"
-@@ -56,14 +62,12 @@
- 	$iolists create text 9c 7c -font *-${font12}-* -text "Selected Output" -anchor nw
- 
- 	# Get list of output ports
--	set oportlist [tk7_port_list 1]
- 	foreach i $oportlist {
- 		if {[regexp -nocase "MIDI" $i]} {
- 			$olist insert end $i
- 		}
- 	}
- 	# Get list of input ports
--	set iportlist [tk7_port_list 0]
- 	foreach i $iportlist {
- 		if {[regexp -nocase "midi" $i]} {
- 			$ilist insert end $i
---- a/procs.c
-+++ b/procs.c
-@@ -1,2163 +1,2163 @@
--char tcl_procs[] = "\
--#=====================================================\n\
--#	File procs.tcl\n\
--#	Procedures for the tcl side of the program\n\
--#=====================================================\n\
--\n\
--proc play_pattern {grp pat} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 pattern_list pl\n\
--\n\
--	if {$mo(PATTERN_REPEAT)} {\n\
--\n\
--		#puts \"TIMER = [tk7_timer_status]\"\n\
--		set steps [tk7_get_last_step $grp $pat]\n\
--		set dur [tk7_pattern_play $grp $pat]\n\
--\n\
--		cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n\
--\n\
--		# Fudge factor (extra time to change track display) in track play mode\n\
--		if {$mo(rdrw) == $xox(READ) || $mo(patr) == $xox(TRACK)} {\n\
--			incr dur -160\n\
--			if {$dur < 0} {\n\
--				set dur 0\n\
--			}\n\
--			#set mo(REPEAT_INTERVAL) [expr $dur - 160]\n\
--			set mo(REPEAT_INTERVAL) $dur\n\
--		} else {\n\
--			set mo(REPEAT_INTERVAL) $dur\n\
--		}\n\
--	}\n\
--}\n\
--proc stop_pattern {} {\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--#puts \"do stop_pattern\"\n\
--	tk7_pattern_stop\n\
--	set mo(REPEAT_INTERVAL) 10\n\
--}\n\
--\n\
--proc ac_clear {tp} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--	upvar #0 pattern_list pl\n\
--\n\
--	switch $tp {\n\
--		0	{\n\
--		# CLEAR the current PATTERN\n\
--			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(PATTERN)} {\n\
--				return\n\
--			}\n\
--			set result [tk_dialog .clr CONFIRM \"Clear Pattern [expr $mo(current_pattern) + 1] Group [expr $mo(patgroup) + 1]?\" \"\" 0 Cancel \"Delete Pattern\"]\n\
--			if {$result == 0} {\n\
--				return\n\
--			}\n\
--			set mo(file_status) $xox(FILE_MODIFIED)\n\
--			tk7_clear_pattern $mo(patgroup) $mo(current_pattern)\n\
--			pattern_setid $mo(current_pattern)\n\
--			scale_lamps_update\n\
--		}\n\
--\n\
--		1	{\n\
--		# CLEAR the current TRACK\n\
--			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
--				return\n\
--			}\n\
--			set result [tk_dialog .clr CONFIRM \"Clear Track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete Track\"]\n\
--			if {$result == 0} {\n\
--				return\n\
--			}\n\
--			set mo(file_status) $xox(FILE_MODIFIED)\n\
--			set tl($mo(current_track)) {}\n\
--			set mo(measure) -1\n\
--		}\n\
--		2 	{\n\
--		# CLEAR current track item from current track\n\
--			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
--				return\n\
--			}\n\
--			# Clearing track item has no meaning if we're already past end\n\
--			set target $mo(measure)\n\
--			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
--				#puts \"Already past end\"\n\
--				return\n\
--			}\n\
--			set result [tk_dialog .clr CONFIRM \"Clear measure [expr $target + 1] from track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete\"]\n\
--			if {$result == 0} {\n\
--				return\n\
--			}\n\
--			set mo(file_status) $xox(FILE_MODIFIED)\n\
--			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target]\n\
--		}\n\
--		3	{\n\
--		# CLEAR the rest of current track including current track item\n\
--			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
--				return\n\
--			}\n\
--			# Clearing rest has no meaning if we're already past end of track\n\
--			set target $mo(measure)\n\
--			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
--				# puts \"Already past end\"\n\
--				return\n\
--			}\n\
--			set result [tk_dialog .clr CONFIRM \"    Clear rest of track [expr $mo(current_track) + 1]?\\n(includes current measure)\" \"\" 0 Cancel \"Delete\"]\n\
--			if {$result == 0} {\n\
--				return\n\
--			}\n\
--			set mo(file_status) $xox(FILE_MODIFIED)\n\
--			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target end]\n\
--		}\n\
--	}\n\
--}\n\
--proc ac_scaleback {} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--	global scale_lamps\n\
--\n\
--	if {$mo(patr) == $xox(PATTERN)} {\n\
--		set old_scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n\
--		set new_scale [expr $old_scale + 1]\n\
--		if {$new_scale == 4} {\n\
--		    set new_scale 0\n\
--		}\n\
--		set old_button $scale_lamps.l$old_scale\n\
--		set new_button $scale_lamps.l$new_scale\n\
--		tk7_set_scale $mo(patgroup) $mo(current_pattern) $new_scale\n\
--		$old_button configure -background $xox(lamp_off)\n\
--		$new_button configure -background $xox(lamp_on)\n\
--	} else {\n\
--		set target [expr $mo(measure) - 1]\n\
--		set mo(measure) [measure_constrain $target]\n\
--		pattern_show\n\
--	}\n\
--	set mo(file_status) $xox(FILE_MODIFIED)\n\
--}\n\
--proc ac_lastfwd {} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--\n\
--	if {$mo(patr) == $xox(PATTERN)} {\n\
--		if {$mo(rdrw) == $xox(READ)} {\n\
--			return\n\
--		}\n\
--		select_laststep\n\
--		set mo(file_status) $xox(FILE_MODIFIED)\n\
--	} else {\n\
--		set target  [expr $mo(measure) + 1]\n\
--		set mo(measure) [measure_constrain $target]\n\
--		pattern_show\n\
--	}\n\
--}\n\
--proc measure_constrain {m} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--\n\
--	set tracklength [llength $tl($mo(current_track))]\n\
--\n\
--	if {$tracklength < 1} {\n\
--		if {$mo(rdrw) == $xox(READ)} {\n\
--			set minpos -1\n\
--			set maxpos -1\n\
--		} else {\n\
--			set minpos 0\n\
--			set maxpos 0\n\
--		}\n\
--	} else {\n\
--		if {$mo(rdrw) == $xox(READ)} {\n\
--			set maxpos [expr $tracklength - 1]\n\
--		} else {\n\
--			set maxpos $tracklength\n\
--		}\n\
--		set minpos 0\n\
--	}\n\
--\n\
--	# Result\n\
--	if {$m <= $minpos} {\n\
--		return $minpos\n\
--	} elseif {$m >= $maxpos} {\n\
--		return $maxpos\n\
--	} else {\n\
--		return $m\n\
--	}\n\
--}\n\
--# Decide which pattern from a track to display\n\
--#\n\
--proc pattern_show {} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--\n\
--	set raw [lindex $tl($mo(current_track)) $mo(measure)]\n\
--	if {$raw != \"\"} {\n\
--		set group [expr $raw / 16]\n\
--		set pattern [expr $raw % 16]\n\
--		ac_group $group\n\
--		pattern_setid $pattern\n\
--	}\n\
--}\n\
--\n\
--# For track mode, ordinary click (on LAST MEAS button) shows last measure\n\
--# of current track. Releasing button returns to orginal measure.\n\
--# Shift click goes to last measure and stays there.\n\
--#\n\
--proc ac_lastmeas {m} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--\n\
--	if {$mo(patr) == $xox(PATTERN)} {\n\
--	    	#puts \"Instrument Guide\"\n\
--	} else {\n\
--		switch $m {\n\
--			0	{\n\
--				#puts \"Show Last Measure\"\n\
--				set mo(oldmeasure) $mo(measure)\n\
--				set target [llength $tl($mo(current_track))]\n\
--				set mo(measure) [measure_constrain $target]\n\
--				pattern_show\n\
--			}\n\
--			1	{\n\
--				#puts \"Restore measure $mo(oldmeasure)\"\n\
--				set mo(measure) [measure_constrain $mo(oldmeasure)]\n\
--				pattern_show\n\
--			}\n\
--			2	{\n\
--				#puts \"Go to Last Measure\"\n\
--				set target [llength $tl($mo(current_track))]\n\
--				set mo(measure) [measure_constrain $target]\n\
--				pattern_show\n\
--			}\n\
--			3	{\n\
--				return\n\
--			}\n\
--		}\n\
--	}\n\
--\n\
--}\n\
--proc select_laststep {} {\n\
--	upvar #0 mode mo\n\
--\n\
--	if {[winfo exists .ls]} {\n\
--		wm deiconify .ls\n\
--	} else {\n\
--		toplevel .ls\n\
--		wm title .ls \"Set last pattern step\"\n\
--		scale .ls.s -from 1 -to 16 -command laststep_set -orient horizontal	\\\n\
--			-length 5c -relief groove -borderwidth 2\n\
--		button .ls.ok -text OK -font *-${font12}-* -command {wm iconify .ls} -relief groove -borderwidth 2\n\
--		pack .ls.s -side top -ipady 6\n\
--		pack .ls.ok -side top -expand true -fill x\n\
--	}\n\
--	.ls.s set [tk7_get_last_step $mo(patgroup) $mo(current_pattern)]\n\
--}\n\
--proc laststep_set val {\n\
--	upvar #0 mode mo\n\
--\n\
--	if {$val < 1 || $val > 16} {\n\
--		return\n\
--	}\n\
--	tk7_set_last_step $mo(patgroup) $mo(current_pattern) $val\n\
--}\n\
--proc flam_set val {\n\
--	upvar #0 mode mo\n\
--	if {$val < 0 || $val > 4} {\n\
--		return\n\
--	}\n\
--	tk7_set_flam $mo(patgroup) $mo(current_pattern) $val\n\
--}\n\
--proc select_flam {} {\n\
--	upvar #0 mode mo\n\
--\n\
--	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
--\n\
--	if {[winfo exists .flam]} {\n\
--		wm deiconify .flam\n\
--	} else {\n\
--		toplevel .flam\n\
--		wm title .flam \"Set pattern flam interval\"\n\
--		scale .flam.s -from 0 -to 4 -command flam_set -orient horizontal	\\\n\
--			-length 5c -relief groove -borderwidth 2\n\
--		button .flam.ok -text OK -font *-${font12}-* -command {wm iconify .flam} -relief groove -borderwidth 2\n\
--		pack .flam.s -side top -ipady 6\n\
--		pack .flam.ok -side top -expand true -fill x\n\
--	}\n\
--	.flam.s set [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
--	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
--}\n\
--proc ac_flam {} {\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	if {$mo(patr) != $xox(PATTERN) || $mo(rdrw) != $xox(WRITE)} {\n\
--	    return\n\
--	}\n\
--	select_flam\n\
--}\n\
--proc ac_midi {} {\n\
--	global font12\n\
--	upvar #0 mode mo\n\
--	if {[winfo exists .ms]} {\n\
--		wm deiconify .ms\n\
--	} else {\n\
--		toplevel .ms\n\
--		wm title .ms \"MIDI Channel\"\n\
--		scale .ms.s -from 1 -to 16 -command midichan_set -orient horizontal	\\\n\
--			-length 5c -relief groove -borderwidth 2 -font *-${font12}-*\n\
--		button .ms.ok -text OK -font *-${font12}-* -command {wm iconify .ms} \\\n\
--			-relief groove -borderwidth 2\n\
--		pack .ms.s -side top -ipady 6\n\
--		pack .ms.ok -side top -expand true -fill x\n\
--		.ms.s set [expr $mo(midi_channel)  + 1]\n\
--	}\n\
--}\n\
--proc midichan_set val {\n\
--	upvar #0 mode mo\n\
--	global midi_channel\n\
--\n\
--	if {$val < 1 || $val >16} {\n\
--		return\n\
--	}\n\
--	set mo(midi_channel) [expr $val - 1]\n\
--	# This is needed for C code to trace midi channel,\n\
--	# (I don't know how to make it trace an array variable).\n\
--	set midi_channel $mo(midi_channel)\n\
--}\n\
--proc ac_note {widget prop} {\n\
--    global tapwrite\n\
--    global notes\n\
--    upvar #0 tkxox xox\n\
--    upvar #0 mode mo\n\
--\n\
--    # Extract button number from widget path\n\
--    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
--    #                                      ^ +5 ^\n\
--    set prefix_length [expr [string length $notes] + 5]\n\
--    set b [string range [string trimright $widget .b] $prefix_length end]\n\
--\n\
--    if {$mo(patr) == $xox(TRACK)} {\n\
--	# TRACK mode\n\
--	if {$mo(rdrw) == $xox(READ)} {\n\
--		tk7_start_note_play $b $prop\n\
--	} else {\n\
--		# Just changeing pattern numbers\n\
--		pattern_setid $b\n\
--	}\n\
--	return\n\
--    }\n\
--    # PATTERN mode\n\
--    if {$mo(rdrw) == $xox(READ)} {\n\
--    	# PATTERN READ mode\n\
--	pattern_setid $b\n\
--	if {$mo(stopgo) == $xox(START)} {\n\
--	    # If running, wait till current pattern finished before changeing ?\n\
--	}\n\
--	return\n\
--    }\n\
--    # PATTERN TAP or WRITE mode\n\
--    if {$mo(stopgo) != $xox(START)} {\n\
--	# Just changeing pattern numbers\n\
--	pattern_setid $b\n\
--	return\n\
--    }\n\
--    # PATTERN TAP or WRITE mode with START\n\
--    if {![have_zero_velocity $prop]} {\n\
--	switch $mo(current_accent) {\n\
--	    2       {set prop [add_strong_accent    $prop] }\n\
--	    1 	    {set prop [add_weak_accent      $prop] }\n\
--	    default {set prop [add_default_velocity $prop] }\n\
--	}\n\
--    }\n\
--    if {$tapwrite} {\n\
--	set step [expr [tk7_get_pat_tick] % 16]\n\
--	if {$step < 0} {\n\
--	    set step 0\n\
--	}\n\
--	ac_newinstr $notes.note$b.b\n\
--	step_insert $step $prop\n\
--	tk7_start_note_play $b $prop\n\
--    } else {\n\
--	# Recording steps\n\
--	step_insert $b $prop\n\
--    }\n\
--}\n\
--proc ac_note_off {widget} {\n\
--    global notes\n\
--    global tapwrite\n\
--    upvar #0 tkxox xox\n\
--    upvar #0 mode mo\n\
--\n\
--    # Extract button number from widget path\n\
--    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
--    #                                      ^ +5 ^\n\
--    set prefix_length [expr [string length $notes] + 5]\n\
--    set b [string range [string trimright $widget .b] $prefix_length end]\n\
--\n\
--    if {$mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n\
--	tk7_stop_note_play $b\n\
--	return\n\
--    }\n\
--    if {$mo(rdrw) == $xox(READ) || $mo(stopgo) != $xox(START)} {\n\
--	return\n\
--    }\n\
--    if {$tapwrite} {\n\
--	tk7_stop_note_play $b\n\
--	return\n\
--    }\n\
--}\n\
--#\n\
--# Accept 0->15 to set new current pattern id.\n\
--# Also need to light buttons lamp.\n\
--#\n\
--proc pattern_setid {id} {\n\
--	global grid\n\
--	global notes\n\
--	upvar #0 pattern_list pl\n\
--	upvar #0 mode mo\n\
--\n\
--	lamp_onoff 0 $notes.note$mo(current_pattern).l\n\
--	set mo(current_pattern) $id\n\
--	lamp_onoff 1 $notes.note$id.l\n\
--\n\
--	# Clear the grid display & redraw for new pattern\n\
--	$grid delete stepnode\n\
--	set pg $mo(patgroup)\n\
--	set cp $mo(current_pattern)\n\
--	for {set k 0} {$k < 16} {incr k} {\n\
--		set instruments [tk7_pattern_items $pg $cp $k]\n\
--		set properties  [tk7_get_pattern_properties $pg $cp $k]\n\
--		set idx 0\n\
--		foreach instr $instruments {\n\
--	                set prop  [lindex $properties $idx]\n\
--			step_draw [expr $k + 1] $instr $prop\n\
--			set idx [expr $idx + 1]\n\
--		}\n\
--	}\n\
--	scale_lamps_update\n\
--	refresh_comment\n\
--}\n\
--# Turn a \"lamp\" on or off (1 or 0 for parameter onoff).\n\
--# Parameter lamp is a full widget path.\n\
--#\n\
--proc lamp_onoff {onoff lamp} {\n\
--	upvar #0 tkxox xox\n\
--\n\
--	switch $onoff {\n\
--		0 {\n\
--			$lamp configure -bg $xox(col_def_bg)\n\
--		}\n\
--		1 {\n\
--			$lamp configure -bg $xox(col_on)\n\
--		}\n\
--	}\n\
--}\n\
--\n\
--# Respond to change of Track/Pattern controls\n\
--#\n\
--proc ac_patternmode {rw} {\n\
--	global trpa notes tempoinfo\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--	# Check if running (can't change mode)\n\
--	if {$mo(stopgo) == $xox(START)} {\n\
--		return\n\
--	}\n\
--\n\
--	if {$mo(patr) != $xox(PATTERN)} {\n\
--		set mo(patr) $xox(PATTERN)\n\
--		$tempoinfo itemconfigure tmtitle  -text TEMPO\n\
--		$tempoinfo coords tmtitle 1c 0.5c\n\
--		trace vdelete mo(current_track) w trackinfo_update\n\
--		trace vdelete mo(measure) w measureinfo_update\n\
--		$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
--		trace variable mo(tempo) w tempoinfo_update\n\
--	}\n\
--\n\
--	if {$rw == $xox(WRITE)} {\n\
--		set mo(rdrw) $xox(WRITE)\n\
--		$trpa.lt configure -text PLAY\n\
--		$trpa.lb configure -text \"-> WRITE <-\"\n\
--		modeinfo_update 3\n\
--	} else {\n\
--		set mo(rdrw) [expr $xox(WRITE) - 1]\n\
--		$trpa.lt configure -text \"-> PLAY <-\"\n\
--		$trpa.lb configure -text \"WRITE\"\n\
--		modeinfo_update 2\n\
--	}\n\
--\n\
--	# Show current instrument\n\
--	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n\
--}\n\
--proc ac_trackmode {rw} {\n\
--	global trpa notes tempoinfo\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 track_list tl\n\
--\n\
--	# Check if running (can't change mode)\n\
--	if {$mo(stopgo) == $xox(START)} {\n\
--		return\n\
--	}\n\
--\n\
--	if {$mo(patr) != $xox(TRACK)} {\n\
--		set mo(patr) $xox(TRACK)\n\
--		$tempoinfo itemconfigure tmtitle -text MEASURE\n\
--		$tempoinfo coords tmtitle 2.7c 0.5c\n\
--		# Go to 1st pattern of new track\n\
--		# Trace current measure in track\n\
--		trace vdelete mo(tempo) w tempoinfo_update\n\
--		trace variable mo(measure) w measureinfo_update\n\
--		trace variable mo(current_track) w trackinfo_update\n\
--	}\n\
--\n\
--	if {$rw == $xox(WRITE)} {\n\
--		set mo(rdrw) $xox(WRITE)\n\
--		$trpa.lt configure -text PLAY\n\
--		$trpa.lb configure -text \"-> WRITE <-\"\n\
--		modeinfo_update 1\n\
--	} else {\n\
--		set mo(rdrw) $xox(READ)\n\
--		$trpa.lt configure -text \"-> PLAY <-\"\n\
--		$trpa.lb configure -text WRITE\n\
--		modeinfo_update 0\n\
--	}\n\
--	set mo(measure) [measure_constrain -1]\n\
--	pattern_show\n\
--\n\
--	# Hide current instrument\n\
--	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n\
--}\n\
--# Toggle display to show tempo or measure\n\
--#\n\
--proc ac_tempomeasure {} {\n\
--	global tempoinfo\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--	if {$mo(patr) == $xox(PATTERN)} {\n\
--		return\n\
--	}\n\
--\n\
--	if {$mo(showtrack)} {\n\
--		set mo(showtrack) false\n\
--		$tempoinfo itemconfigure tmtitle  -text TEMPO\n\
--		$tempoinfo coords tmtitle 1c 0.5c\n\
--#		trace vdelete mo(measure) w trackinfo_update\n\
--		trace vdelete mo(measure) w measureinfo_update\n\
--		$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
--		trace variable mo(tempo) w tempoinfo_update\n\
--set mo(tempo) $mo(tempo)\n\
--	} else {\n\
--		set mo(showtrack) true\n\
--		$tempoinfo itemconfigure tmtitle -text MEASURE\n\
--		$tempoinfo coords tmtitle 2.7c 0.5c\n\
--		# Trace current measure in track\n\
--		trace vdelete mo(tempo) w tempoinfo_update\n\
--		trace variable mo(measure) w measureinfo_update\n\
--		trace variable mo(current_track) w trackinfo_update\n\
--set mo(measure) $mo(measure)\n\
--set mo(current_track) $mo(current_track)\n\
--	}\n\
--\n\
--}\n\
--\n\
--proc ac_stopgo {new} {\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 track_list tl\n\
--\n\
--	switch $new {\n\
--		0 {\n\
--			set mo(stopgo) $xox(STOP)\n\
--			set mo(PATTERN_REPEAT) false\n\
--			stop_pattern\n\
--			set stepcount [tk7_get_last_step $grp $pat]\n\
--			cycle_notes 1 0 0 0 $stepcount\n\
--		}\n\
--		1 {\n\
--			if {$new == $mo(stopgo)} {\n\
--				return\n\
--			}\n\
--			if {$mo(patr) == $xox(TRACK)} {\n\
--				set mo(TRACK_START) true\n\
--			}\n\
--\n\
--			set mo(stopgo) $xox(START)\n\
--\n\
--\n\
--			# This starts the player!\n\
--			set mo(PATTERN_REPEAT) true\n\
--		}\n\
--		2 {\n\
--			if {$mo(patr) == $xox(PATTERN)} {\n\
--				set mo(PATTERN_REPEAT) false\n\
--				stop_pattern\n\
--				set mo(stopgo) $xox(STOP)\n\
--			} else {\n\
--				if {$mo(stopgo) == $xox(CONT)} {\n\
--					set mo(stopgo) $xox(START)\n\
--				} else {\n\
--					set mo(stopgo) $xox(CONT)\n\
--					set mo(PATTERN_REPEAT) false\n\
--					stop_pattern\n\
--				}\n\
--			}\n\
--		}\n\
--	}\n\
--}\n\
--\n\
--# For patterns,\n\
--# i = 0->3 Groups\n\
--# j = 0->15 Patterns\n\
--# k = 0->15 Step divisions, each is a list of note events\n\
--#\n\
--# For tracks,\n\
--# i = 0->3 Tracks, each is a list patterns (16*Group + Pattern)\n\
--#\n\
--proc mem_init {} {\n\
--	upvar #0 pattern_list pl\n\
--	upvar #0 track_list tl\n\
--\n\
--	# Patterns\n\
--#	for {set i 0} {$i <4} {incr i} {\n\
--#		for {set j 0} {$j <16 } {incr j} {\n\
--#			for {set k 0} {$k < 16} {incr k} {\n\
--#				set pl($i,$j,$k) {}\n\
--#			}\n\
--#		}\n\
--#	}\n\
--\n\
--	# Tracks\n\
--	for {set i 0} {$i <4} {incr i} {\n\
--		set tl($i) {}\n\
--	}\n\
--	\n\
--}\n\
--\n\
--proc ac_group {b} {\n\
--	global grps\n\
--\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	global comment\n\
--\n\
--	if {$mo(rdrw) == $xox(WRITE) && $mo(stopgo) == $xox(START)} {\n\
--		return\n\
--	} else {\n\
--		set but_old ${grps}.lt$mo(patgroup).lamp\n\
--		set but_new ${grps}.lt${b}.lamp\n\
--		$but_old configure -background $xox(lamp_off)\n\
--		$but_new configure -background $xox(lamp_on)\n\
--		set mo(patgroup) $b\n\
--		if {$mo(patr) == $xox(TRACK)} {\n\
--			return\n\
--		}\n\
--		pattern_setid $mo(current_pattern)\n\
--	}\n\
--}\n\
--\n\
--proc ac_track {b} {\n\
--	global tminfo\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--	if {$mo(patr) != $xox(TRACK) || $mo(stopgo) == $xox(START)} {\n\
--		return\n\
--	}\n\
--	set mo(current_track) $b\n\
--	set mo(measure) [measure_constrain -1]\n\
--	pattern_show\n\
--}\n\
--\n\
--proc ac_newinstr {widget} {\n\
--	global gridlabel\n\
--	global notes\n\
--	global font12\n\
--	global boldfont13\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--\n\
--	# Check first that we're in PATTERN:WRITE mode\n\
--	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n\
--		set w $notes.note[expr $mo(current_instr) - 1].instr\n\
--		if {[winfo exists $w]} {\n\
--			lamp_onoff 0 $w\n\
--		}\n\
--		return\n\
--	}\n\
--	# Extract button number from widget path\n\
--	# Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
--	#                                      ^ +5 ^\n\
--	set prefix_length [expr [string length $notes] + 5]\n\
--	set b [string range [string trimright $widget .b] $prefix_length end]\n\
--	lamp_onoff 0 $notes.note[expr $mo(current_instr) - 1].instr\n\
--	set mo(current_instr) [expr $b + 1]\n\
--	lamp_onoff 1 $notes.note$b.instr\n\
--\n\
--	$gridlabel itemconfigure selectinstr -font *-${font12}-*\n\
--	$gridlabel dtag selectinstr\n\
--	$gridlabel itemconfigure ilabel[expr 15 - $b] -font *-${boldfont13}-*\n\
--	$gridlabel addtag selectinstr withtag ilabel[expr 15 - $b]\n\
--}\n\
--\n\
--# Change memory cartridge being used\n\
--#\n\
--proc ac_cartridge {} {\n\
--	global accenter\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--	if {$mo(patr) != $xox(TRACK)} {\n\
--		return\n\
--	}\n\
--\n\
--	set mo(cartridge) [tk7_cartridge_incr]\n\
--	#puts \"Cartridge $mo(cartridge)\"\n\
--	switch $mo(cartridge) {\n\
--		2	{\n\
--			$accenter.cart.lamp configure -bg #00ff00\n\
--		}\n\
--		1	{\n\
--			$accenter.cart.lamp configure -bg $xox(lamp_on)\n\
--		}\n\
--		0	-\n\
--		default	{\n\
--			$accenter.cart.lamp configure -bg $xox(lamp_off)\n\
--		}\n\
--	}\n\
--\n\
--}\n\
--\n\
--# Process Enter button\n\
--#\n\
--proc ac_accenter {addmode} {\n\
--	global accent_label\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 track_list tl\n\
--\n\
--	if {$mo(patr) == $xox(PATTERN) && $mo(rdrw) == $xox(WRITE)} {\n\
--		set mo(current_accent) [expr ($mo(current_accent)+1) % 3]\n\
--		switch $mo(current_accent) {\n\
--		    2       {set color $xox(col_strong_accent) }\n\
--		    1 	    {set color $xox(col_weak_accent) }\n\
--		    default {set color $xox(col_def_bg) }\n\
--		}\n\
--		$accent_label configure -bg $color\n\
--		return\n\
--	}\n\
--	if {$mo(patr) != $xox(TRACK) || $mo(rdrw) != $xox(WRITE)} {\n\
--		return\n\
--	}\n\
--	# Track Write\n\
--	switch $addmode {\n\
--		0	{\n\
--			# Add/replace current pattern in current track\n\
--			#puts \"ADD pattern\"\n\
--			set target $mo(measure)\n\
--			#puts \"Target measure is $target\"\n\
--			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n\
--			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
--				#puts \"Adding $pat to Track $mo(current_track)\"\n\
--				lappend tl($mo(current_track)) $pat\n\
--			} else {\n\
--				set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target $pat]\n\
--				#puts \"Inserting $pat to Track $mo(current_track)\"\n\
--			}\n\
--		}\n\
--		1	{\n\
--			# Insert pattern before current position in track\n\
--			#puts \"INSERT pattern\"\n\
--			set target $mo(measure)\n\
--			#puts \"Target measure is $target\"\n\
--			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n\
--			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
--			#puts \"Adding $pat to Track $mo(current_track)\"\n\
--				lappend tl($mo(current_track)) $pat\n\
--			} else {\n\
--				set tl($mo(current_track)) [linsert $tl($mo(current_track)) $target $pat]\n\
--				#puts \"Inserting $pat to Track $mo(current_track)\"\n\
--			}\n\
--		}\n\
--	}\n\
--	# Go to next step\n\
--	ac_lastfwd\n\
--}\n\
--\n\
--proc have_fla {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & $xox(flam)];\n\
--}\n\
--proc have_weak_accent {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & $xox(weak_accent)];\n\
--}\n\
--proc have_strong_accent {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & $xox(strong_accent)];\n\
--}\n\
--proc have_zero_velocity {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & $xox(zero_velocity)];\n\
--}\n\
--proc set_velocity_flag {prop flag} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & (~$xox(velocity_field)) | ($flag & $xox(velocity_field))]\n\
--}\n\
--proc add_weak_accent {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [set_velocity_flag $prop $xox(weak_accent)]\n\
--}\n\
--proc add_strong_accent {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [set_velocity_flag $prop $xox(strong_accent)]\n\
--}\n\
--proc add_zero_velocity {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [set_velocity_flag $prop $xox(zero_velocity)]\n\
--}\n\
--proc add_default_velocity {prop} {\n\
--    upvar #0 tkxox xox\n\
--    return [expr $prop & (~$xox(velocity_field))]\n\
--}\n\
--#\n\
--# Draw a step node in the grid canvas.\n\
--# Parameters step & inst are expected in 1->16 format (not 0->15).\n\
--#\n\
--proc step_draw {step inst prop} {\n\
--	global grid\n\
--    	upvar #0 tkxox xox\n\
--\n\
--	set x [expr $step / 2.0]\n\
--	set y [expr 9.0 - [expr $inst / 2.0]]\n\
--	if {[have_strong_accent $prop]} {\n\
--	    set color $xox(col_strong_accent)\n\
--	} elseif {[have_weak_accent $prop]} {\n\
--	    set color $xox(col_weak_accent)\n\
--	} elseif {[have_zero_velocity $prop]} {\n\
--	    set color $xox(col_zero_velocity)\n\
--	} else {\n\
--	    set color $xox(col_default_velocity)\n\
--	}\n\
--	if {[have_fla $prop]} {\n\
--	  # draw a star\n\
--	  set new [$grid create polygon \\\n\
--		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n\
--		 [expr $x - (-0.0681818)]c  [expr $y - (0.0681818)]c \\\n\
--		 [expr $x - (-0.1875)]c     [expr $y - (0.0681818)]c \\\n\
--		 [expr $x - (-0.102273)]c   [expr $y - (-0.0426136)]c \\\n\
--		 [expr $x - (-0.127841)]c   [expr $y - (-0.1875)]c \\\n\
--		 [expr $x - (-0.00852273)]c [expr $y - (-0.127841)]c \\\n\
--		 [expr $x - (0.119318)]c    [expr $y - (-0.1875)]c \\\n\
--		 [expr $x - (0.102273)]c    [expr $y - (-0.0511364)]c \\\n\
--		 [expr $x - (0.1875)]c      [expr $y - (0.0681818)]c \\\n\
--		 [expr $x - (0.0681818)]c   [expr $y - (0.0681818)]c \\\n\
--		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n\
--		-outline $color \\\n\
--		-fill    $color \\\n\
--		-tags stepnode]\n\
--	} else {\n\
--	  # draw a circle\n\
--	    set new [$grid create oval \\\n\
--		[expr $x - 0.1875]c [expr $y - 0.1875]c	\\\n\
--		[expr $x + 0.1875]c [expr $y + 0.1875]c \\\n\
--		-outline black \\\n\
--		-fill    $color \\\n\
--		-tags stepnode]\n\
--	}\n\
--	$grid addtag ${step}_instr$inst withtag $new\n\
--}\n\
--#\n\
--# Insert given step into current pattern with specified properties\n\
--#\n\
--proc step_insert {step prop} {\n\
--	global grid\n\
--	global tapwrite\n\
--\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 pattern_list pl\n\
--\n\
--	#puts \"Inserting $mo(current_instr) at step $step into bank $mo(patgroup), pattern $mo(current_pattern)\"\n\
--	# First check for duplicates (=> remove)\n\
--	set pg   $mo(patgroup)\n\
--	set cp   $mo(current_pattern)\n\
--	set note $mo(current_instr)\n\
--	if {[tk7_add_note $pg $cp $step $note]} {\n\
--		tk7_set_properties $pg $cp $step $note $prop\n\
--		step_draw [expr $step + 1] $mo(current_instr) $prop\n\
--		#puts \"added note\"\n\
--	} else {\n\
--		$grid delete [expr $step + 1]_instr$mo(current_instr)\n\
--		#puts \"deleted note\"\n\
--	}\n\
--}\n\
--#\n\
--# ClearGrid Display Area\n\
--#\n\
--proc grid_clear {} {\n\
--	global grid\n\
--\n\
--	# Vertical lines\n\
--	set xcoord 0.0\n\
--	for {set i 0} {$i < 16} {incr i} {\n\
--		set xcoord [expr $xcoord + 0.5]\n\
--		$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n\
--	}\n\
--	# Horizontal lines\n\
--	set ycoord 0.5\n\
--	for {set i 0} {$i < 16} {incr i} {\n\
--		set ycoord [expr $ycoord + 0.5]\n\
--		$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n\
--	}\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# Load sound map\n\
--# -----------------------------------------------------------------------------\n\
--set last_map_file_name \"\";\n\
--\n\
--proc load_sound_map {initialdir} {\n\
--\n\
--	# From TK-707 version 0.6, the format of .map files is changed\n\
--	#	(they now include also abbreviation information, for volume labels).\n\
--	# New format is recognized by number of saved data segments (4 rather than 3).\n\
--\n\
--	upvar #0 sound snd\n\
--	upvar #0 last_map_file_name last_map_file_name\n\
--\n\
--	set ftypes	{\n\
--		{{TK707 Sound Map} {.map}}\n\
--		{{All types} {.*}}\n\
--	}\n\
--	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir ]\n\
--\n\
--	if {$fname == \"\"} {\n\
--		return\n\
--	}\n\
--	set last_map_file_name [lindex [split $fname /] end];\n\
--\n\
--	set f [open $fname r]\n\
--	set data \"\"\n\
--	set i 1\n\
--	while {[gets $f line] >= 0} {\n\
--		if {[string index $line 0] == \"#\"} {\n\
--			continue\n\
--		}\n\
--		set data [lindex $line 0]\n\
--		set datasegs [llength $data]\n\
--		set snd($i,name) [lindex $data 0]\n\
--		set snd($i,shortname) [lindex $data 1]\n\
--		if {$datasegs == 4} {\n\
--		    set snd($i,abbrev) [lindex $data 2]\n\
--		    set snd($i,note) [lindex $data 3]\n\
--		} else {\n\
--		    # we could set a better algo to abbrev\n\
--		    set snd($i,abbrev) $snd($i,shortname)\n\
--		    set snd($i,note) [lindex $data 2]\n\
--		}\n\
--		incr i\n\
--	}\n\
--	close $f\n\
--\n\
--	# Reset Name Displays\n\
--	instrument_label_reset\n\
--	tk7_set_sounds\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# Save sound map\n\
--# -----------------------------------------------------------------------------\n\
--proc save_sound_map {} {\n\
--\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 sound snd\n\
--	upvar #0 last_map_file_name last_map_file_name\n\
--\n\
--	set ftypes	{\n\
--		{{TK707 Sound Map} {.map}}\n\
--		{{All types} {.*}}\n\
--	}\n\
--	#puts \"last_map_file_name before: $last_map_file_name\"\n\
--	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_map_file_name]\n\
--	if {$fname == \"\"} {\n\
--		return\n\
--	}\n\
--	set last_map_file_name [lindex [split $fname /] end];\n\
--\n\
--	set f [open $fname w]\n\
--	puts $f \"#################  TK707 Sound Map generated by $xox(VERSION)  #################\"\n\
--	puts $f \"# Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }\"\n\
--	puts $f \"############################################################################\"\n\
--	for {set i 1} {$i < 17} {incr i} {\n\
--		puts $f \"{ {$snd($i,name)} {$snd($i,shortname)} {$snd($i,abbrev)} {$snd($i,note)} }\"\n\
--	}\n\
--	close $f\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# Load data file\n\
--# -----------------------------------------------------------------------------\n\
--set last_data_file_name \"\";\n\
--\n\
--proc load_data_file {initialdir} {\n\
--\n\
--	# From TK-707 version 0.7, the format of .dat files is changed\n\
--	#	(they now include also note properties information).\n\
--	# New format is recognized by number of saved data segments (5 rather than 2, 3 or 4).\n\
--	# They are:\n\
--	#	segment 0: pattern note data\n\
--	#	segment 1: pattern note properties\n\
--	#	segment 2: pattern {length,scale,flam,shuffle} properties\n\
--	#	segment 3: track data\n\
--\n\
--	# From TK-707 version 0.6, the format of .dat files is changed\n\
--	#	(they now include also pattern scale information).\n\
--	# New format is recognized by number of saved data segments (4 rather than 2 or 3).\n\
--	# They are:\n\
--	#	segment 0: pattern note data\n\
--	#	segment 1: pattern length data\n\
--	#	segment 2: pattern scale data\n\
--	#	segment 3: track data\n\
--\n\
--	# From TK-707 version 0.5, the format of .dat files is changed\n\
--	#	(they now include pattern length information).\n\
--	# New format is recognized by number of saved data segments (3 rather than 2).\n\
--	# They are:\n\
--	#	segment 0: pattern note data\n\
--	#	segment 1: pattern length data\n\
--	#	segment 2: track data\n\
--\n\
--	upvar #0 track_list tl\n\
--	upvar #0 mode mo\n\
--	upvar #0 last_data_file_name last_data_file_name\n\
--\n\
--	set ftypes	{\n\
--		{{TK-707 Data} {.dat}}\n\
--		{{All types} {.*}}\n\
--	}\n\
--	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir]\n\
--	if {$fname == \"\"} {\n\
--		return\n\
--	}\n\
--	set last_data_file_name [lindex [split $fname /] end];\n\
--	#puts \"LOAD last_data_file_name $last_data_file_name\"\n\
--\n\
--	set f [open $fname r]\n\
--	set data \"\"\n\
--	while {[gets $f line] >= 0} {\n\
--		if {[string index $line 0] == \"#\"} {\n\
--			continue\n\
--		}\n\
--		set data \"$data [string trim $line]\"\n\
--	}\n\
--	close $f\n\
--\n\
--	# ----------------------------------\n\
--	# find format version from structure\n\
--	# ----------------------------------\n\
--	set datasegs [llength [lindex $data 0]]\n\
--	set data_version \"unknown\";\n\
--	if {$datasegs == 2} {\n\
--	    set data_version 2;\n\
--	} elseif {$datasegs == 3} {\n\
--	    set data_version 5;\n\
--	} elseif {$datasegs == 4} {\n\
--	    set segment2 [lindex [lindex $data 0] 2]\n\
--	    set n_seg2_level2 [llength [lindex [lindex $segment2 0] 0]]\n\
--	    if {$n_seg2_level2 == 1} {\n\
--	        set data_version 6;\n\
--	    } elseif {$n_seg2_level2 >= 4} {\n\
--	        set data_version 7;\n\
--	    }\n\
--	}\n\
--	#puts \"data_version $data_version\"\n\
--	if {$data_version == \"unknown\"} {\n\
--	    puts \"ERROR: ${fname}: unexpected data format\";\n\
--	    return;\n\
--	}\n\
--	# ----------------------------------\n\
--	# load segments\n\
--	# ----------------------------------\n\
--	set loadsegment 0\n\
--	tk7_clear_tree\n\
--	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Pattern data\n\
--	set i 0\n\
--	foreach bankdata $pdata {\n\
--		set j 0\n\
--		foreach patterndata $bankdata {\n\
--			set k 0\n\
--			foreach stepdata $patterndata {\n\
--				if {[llength $stepdata] > 0} {\n\
--					foreach n $stepdata {\n\
--						tk7_add_note $i $j $k $n\n\
--					}\n\
--				}\n\
--				incr k\n\
--			}\n\
--			incr j\n\
--		}\n\
--		incr i\n\
--	}\n\
--	incr loadsegment\n\
--\n\
--	if {$data_version >= 7} {\n\
--	    # format version 0.7 includes note properties: flam, accents, etc...\n\
--	    set p_prop [lindex [lindex $data 0] $loadsegment]	;	#Pattern note properties\n\
--	    set p_data [lindex [lindex $data 0] 0]\n\
--	    set i 0\n\
--	    foreach bank_prop $p_prop {\n\
--	        set bank_data [lindex $p_data $i]\n\
--		set j 0\n\
--		foreach pattern_prop $bank_prop {\n\
--	            set pattern_data [lindex $bank_data $j]\n\
--		    set k 0\n\
--		    foreach step_prop $pattern_prop {\n\
--	                set step_data [lindex $pattern_data $k]\n\
--			if {[llength $step_prop] > 0} {\n\
--			    set idx_n 0\n\
--			    foreach p $step_prop {\n\
--	                        set n [lindex $step_data $idx_n]\n\
--			        tk7_set_properties $i $j $k $n $p\n\
--		        	incr idx_n\n\
--			    }\n\
--			}\n\
--		        incr k\n\
--		    }\n\
--		    incr j\n\
--		}\n\
--		incr i\n\
--	    }\n\
--	    incr loadsegment\n\
--	}\n\
--	pattern_setid $mo(current_pattern)\n\
--\n\
--	if {$data_version >= 5} {\n\
--		# format version 0.5 and 0.6 includes length info.\n\
--	    	# format version 0.7 includes {length,scale,flam,shuffle} infos.\n\
--		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step length data\n\
--		set grp 0\n\
--		foreach grpdata $pdata {\n\
--			set pat 0\n\
--			foreach pldata $grpdata {\n\
--				if {$data_version >= 7} {\n\
--				    # from TK-707 version 0.7: {length,scale,flam,shuffle} infos.\n\
--				    tk7_set_last_step $grp $pat [lindex $pldata 0]\n\
--				    tk7_set_scale     $grp $pat [lindex $pldata 1]\n\
--				    tk7_set_flam      $grp $pat [lindex $pldata 2]\n\
--				    tk7_set_shuffle   $grp $pat [lindex $pldata 3]\n\
--				    if {[llength $pldata] >= 5} {\n\
--				      tk7_set_pattern_comment  $grp $pat [lindex $pldata 4]\n\
--				    }\n\
--				} else {\n\
--				    # TK-707 version 0.5 and 0.6: step length info.\n\
--				    tk7_set_last_step $grp $pat $pldata\n\
--				}\n\
--				incr pat\n\
--			}\n\
--			incr grp\n\
--		}\n\
--		incr loadsegment\n\
--	}\n\
--	if {$data_version == 6} {\n\
--		# format version 0.6 includes step scale info.\n\
--		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step scale data\n\
--		set grp 0\n\
--		foreach grpdata $pdata {\n\
--			set pat 0\n\
--			foreach pldata $grpdata {\n\
--				set scaleresult  [tk7_set_scale $grp $pat $pldata]\n\
--				incr pat\n\
--			}\n\
--			incr grp\n\
--		}\n\
--		incr loadsegment\n\
--	}\n\
--	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Track data\n\
--	set i 0\n\
--	foreach trackdata $pdata {\n\
--		#puts $trackdata\n\
--		set tl($i) [join $trackdata]\n\
--		incr i\n\
--	}\n\
--	ac_track 0\n\
--	pattern_show\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# Save data file\n\
--# -----------------------------------------------------------------------------\n\
--proc reverse {l1} {\n\
--    set n  [llength $l1]\n\
--    set l2 {}\n\
--    for {set i [expr $n - 1]} {$i >= 0} {set i [expr $i - 1]} {\n\
--        lappend l2 [lindex $l1 $i]\n\
--    }\n\
--    return $l2\n\
--}\n\
--proc save_data_file {} {\n\
--\n\
--	upvar #0 pattern_list pl\n\
--	upvar #0 track_list tl\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 last_data_file_name last_data_file_name\n\
--\n\
--	set ftypes	{\n\
--		{{TK-707 Data} {.dat}}\n\
--		{{All types} {.*}}\n\
--	}\n\
--	#puts \"PREV last_data_file_name $last_data_file_name\"\n\
--	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_data_file_name]\n\
--	if {$fname == \"\"} {\n\
--		return\n\
--	}\n\
--	set last_data_file_name [lindex [split $fname /] end];\n\
--	#puts \"NEW last_data_file_name $last_data_file_name\"\n\
--\n\
--	set f [open $fname w]\n\
--	puts $f \"####################### MACHINE GENERATED - DO NOT EDIT #######################\"\n\
--	puts $f \"####   TK707 Data file generated by $xox(VERSION)\"\n\
--	puts $f \"###############################################################################\"\n\
--	puts $f \"{\"							;	# Begin DATA\n\
--\n\
--	# PATTERN NOTES. Four groups of 16 patterns each with 16 steps.\n\
--	puts $f \" {\"							;	# Begin PATTERNS\n\
--	for {set i 0} {$i<4} {incr i} {\n\
--	    puts $f \"  {\"						;	# Begin GROUP i\n\
--	    for {set j 0} {$j<16} {incr j} {\n\
--		puts $f \"   {\"						;	# Begin PATTERN j\n\
--		for {set k 0} {$k<16} {incr k} {\n\
--		    set instruments [tk7_pattern_items $i $j $k]\n\
--		    set instruments [reverse $instruments]\n\
--		    puts $f \"    { $instruments }\"\n\
--		}\n\
--		puts $f \"   }\"						;	# End PATTERN j\n\
--	    }\n\
--	    puts $f \"  }\"						;	# End GROUP i\n\
--	}\n\
--	puts $f \" }\"							;	# End PATTERNS\n\
--\n\
--	# PATTERN NOTES PROPERTIES. Four groups of 16 patterns each with 16 steps.\n\
--	puts $f \" {\"							;	# Begin PATTERNS\n\
--	for {set i 0} {$i<4} {incr i} {\n\
--	    puts $f \"  {\"						;	# Begin GROUP i\n\
--	    for {set j 0} {$j<16} {incr j} {\n\
--		puts $f \"   {\"						;	# Begin PATTERN j\n\
--		for {set k 0} {$k<16} {incr k} {\n\
--		    set properties [tk7_get_pattern_properties $i $j $k]\n\
--		    set properties [reverse $properties]\n\
--		    puts $f \"    { $properties }\"\n\
--		}\n\
--		puts $f \"   }\"						;	# End PATTERN j\n\
--	    }\n\
--	    puts $f \"  }\"						;	# End GROUP i\n\
--	}\n\
--	puts $f \" }\"							;	# End PATTERNS\n\
--\n\
--	# PATTERN PROPERTIES. Four lots of sixteen 4-lists. New from TK-707 version 0.7\n\
--	puts $f  \" {\"							;	# Begin PATTERN PROPERTIES\n\
--	for {set i 0} {$i<4} {incr i} {\n\
--		set pat_props [tk7_group_pattern_properties $i]		; 	# Group step lengths \n\
--		puts $f \"  { $pat_props }\"				; 	# Group step lengths \n\
--	}\n\
--	puts $f  \" }\"							;	# End PATTERN PROPERTIES\n\
--\n\
--	# TRACK DATA. Four tracks of arbitrary length.\n\
--	puts $f \" {\"							;	# Begin TRACKS\n\
--	for {set i 0} {$i<4} {incr i} {\n\
--		puts $f \"  { $tl($i) }\"					;	# TRACK i data\n\
--	}\n\
--	puts $f \" }\"							;	# End TRACKS\n\
--	puts $f \"}\"							;	# End DATA\n\
--	close $f\n\
--}\n\
--# --------------------\n\
--# compute the velocity\n\
--# --------------------\n\
--# velocity range is 0..127 as integer\n\
--# volume   range is 0..1   as float\n\
--proc compute_velocity {prop volume_master volume_accent volume_instr} {\n\
--\n\
--    if {[have_zero_velocity $prop]} {\n\
--	set velocity_factor 0\n\
--    } else {\n\
--    	set velocity_factor 1\n\
--    }\n\
--    if {[have_strong_accent $prop]} {\n\
--	set accent_factor 1\n\
--    } elseif {[have_weak_accent $prop]} {\n\
--	set accent_factor 2/3.0\n\
--    } else {\n\
--	set accent_factor 1/3.0\n\
--    }\n\
--    set volume_note [expr  $volume_master \\\n\
--	     	     	  *$velocity_factor*$volume_instr \\\n\
--		      	  *$accent_factor*$volume_accent]\n\
--    set velocity [expr int(127 * $volume_note + 0.5)]\n\
--    return $velocity\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# Save midi file - current track\n\
--# -----------------------------------------------------------------------------\n\
--\n\
--set last_midi_file_name \"\";\n\
--set prev_data_file_name \"\";\n\
--\n\
--proc put_note {f tick_shift midinote velocity} {\n\
--    if {$tick_shift > 127} {\n\
--        varlen_short shortres $tick_shift\n\
--	puts -nonewline $f [binary format c2 [list $shortres(high) $shortres(low)]]\n\
--	set size 2\n\
--    } else {\n\
--        puts -nonewline $f [binary format c1 $tick_shift]\n\
--	set size 1\n\
--    }\n\
--    puts -nonewline $f [binary format c2 [list $midinote $velocity]]\n\
--    return [expr $size + 2]\n\
--}\n\
--proc put_note_off {f tick_shift midinote} {\n\
--    return [put_note $f $tick_shift $midinote 0]\n\
--}\n\
--proc save_midi_file {} {\n\
--	global cunit\n\
--	global masterv\n\
--\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 sound snd\n\
--	upvar #0 track_list tl\n\
--	upvar #0 has_delay has_delay\n\
--	upvar #0 last_midi_file_name last_midi_file_name\n\
--	upvar #0 last_data_file_name last_data_file_name\n\
--	upvar #0 prev_data_file_name prev_data_file_name\n\
--	upvar #0 instrument_to_volume instrument_to_volume\n\
--\n\
--	if {    ($last_data_file_name != \"\")\n\
--	    && (($prev_data_file_name == \"\") ||\n\
--	        ($prev_data_file_name != $last_data_file_name)) } {\n\
--\n\
--	    # build a predefined name:\n\
--	    set x [lindex [split $last_data_file_name .] 0];\n\
--	    set t $mo(current_track)\n\
--	    set last_midi_file_name \"${x}-track${t}.mid\"\n\
--	}\n\
--	set ftypes	{\n\
--		{{Midi File Format} {.mid}}\n\
--		{{All types} {.*}}\n\
--	}\n\
--	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_midi_file_name]\n\
--	if {$fname == \"\"} {\n\
--	    return\n\
--	}\n\
--	set last_midi_file_name [lindex [split $fname /] end];\n\
--	set prev_data_file_name $last_data_file_name\n\
--\n\
--	set thirty_second_note_on_ratio 5; 	# customize the ratio !\n\
--						# ex1: ratio=3\n\
--						# => 1/3 note-on\n\
--						#    2/3 note-off, for a thirty-second \n\
--						# ex2: ratio=16\n\
--						# => 1/16 note-on, 15/16 note-off\n\
--						# ex3: ratio=1\n\
--						# => 100 % note-on; not for percussions...\n\
--\n\
--	set tick_per_note_on            3; 	# how long, in ticks, the note is on\n\
--						# DO NOT change ! because we may divide \n\
--						# it per 3 quarters and eigth later...\n\
--\n\
--	set tick_per_thirty_second      [expr  $thirty_second_note_on_ratio*$tick_per_note_on];\n\
--	set tick_per_quarter            [expr  8*$tick_per_thirty_second];\n\
--\n\
--	# steps are in two parts:\n\
--	#	a note-on part, which have a duration independant of the scale (a hit)\n\
--	#	a note-off part, which depend on the scale:\n\
--\n\
--	# scale(0): 1 step = quarter/4\n\
--        set tick_per_step_off_scale(0) [expr $tick_per_quarter/4 - $tick_per_note_on];\n\
--\n\
--	# scale(1): 1 step = quarter/8\n\
--        set tick_per_step_off_scale(1) [expr $tick_per_quarter/8 - $tick_per_note_on];\n\
--\n\
--	# scale(2): 1 step = quarter/3\n\
--        set tick_per_step_off_scale(2) [expr $tick_per_quarter/3 - $tick_per_note_on];\n\
--\n\
--	# scale(3): 1 step = quarter/6\n\
--        set tick_per_step_off_scale(3) [expr $tick_per_quarter/6 - $tick_per_note_on];\n\
--\n\
--	# ex1: ratio=3\n\
--	#     => tick_per_step_off_scale = {15   6  21   9}\n\
--	# ex1: ratio=16\n\
--	#     => tick_per_step_off_scale = {93   45  125   61}\n\
--	#        the grid is finer and the result is better\n\
--	# ex3: ratio=1\n\
--	#     => tick_per_step_off_scale = {3, 0, 5, 1}, as expected.\n\
--	#	 as expected, the thirty-second has no note-off part...\n\
--\n\
--	#\n\
--	# get volumes:\n\
--	#\n\
--	set volume_master [expr [$masterv.sf.s get] / 100.0]\n\
--	#puts \"volume_master $volume_master\"\n\
--	set volume_accent [expr [$cunit.0.sf.s get] / 100.0]\n\
--	#puts \"volume_accent $volume_accent\"\n\
--	set volume_set {}\n\
--	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
--	    set i_vol $instrument_to_volume($instrument)\n\
--	    set volume($instrument) [expr [$cunit.${i_vol}.sf.s get] / 100.0]\n\
--	    #puts \"volume($instrument) $volume($instrument)\"\n\
--	}\n\
--	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
--	    set in_note($instrument) 0;\n\
--	}\n\
--	set f [open $fname w]\n\
--	puts -nonewline $f MThd\n\
--	puts -nonewline $f [binary format I 6]\n\
--	puts -nonewline $f [binary format S 0]\n\
--	puts -nonewline $f [binary format S 1]\n\
--	puts -nonewline $f [binary format S $tick_per_quarter]\n\
--	puts -nonewline $f MTrk\n\
--	set loc_tracksize 18\n\
--	puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n\
--\n\
--	# Meta Event to set track tempo\n\
--	set micro_tempo [expr 60000000 / $mo(tempo)]\n\
--	puts -nonewline $f [binary format c7 [list 0 255 81 3 [expr $micro_tempo >> 16] [expr $micro_tempo >> 8] $micro_tempo]]\n\
--	set tracksize 7\n\
--\n\
--	# Establish running status with a zero volume note\n\
--	puts -nonewline $f [binary format c4 [list 0 [expr 144 + $mo(midi_channel)] 17 0]]\n\
--	incr tracksize 4\n\
--\n\
--	set track $tl($mo(current_track))\n\
--	set tick_shift 0\n\
--	foreach patid $track {\n\
--	    set group     [expr $patid / 16]\n\
--	    set pattern   [expr $patid % 16]\n\
--	    set last_step [tk7_get_last_step $group $pattern]\n\
--	    set scale     [tk7_get_scale $group $pattern]\n\
--	    set step 0\n\
--	    while {$step < $last_step} {\n\
--		set instrument_set [tk7_pattern_items          $group $pattern $step]\n\
--		set property_set   [tk7_get_pattern_properties $group $pattern $step]\n\
--		set idx 0\n\
--		foreach instrument $instrument_set {\n\
--		    if {$instrument == \"\"} {\n\
--			#puts \"EMPTY instrument ?? idx = $idx\"\n\
--		        incr idx\n\
--			continue;\n\
--		    }\n\
--		    # ------------\n\
--		    # start a note\n\
--		    # ------------\n\
--		    set midinote $snd($instrument,note)\n\
--    		    set prop [lindex $property_set $idx]\n\
--		    set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n\
--		    incr tracksize [put_note $f $tick_shift $midinote $velocity]\n\
--		    set tick_shift 0\n\
--		    if {! $has_delay($instrument) && ! [have_zero_velocity $prop]} {\n\
--			# start a note without delay\n\
--		        set in_note($instrument) 1\n\
--		    }\n\
--		    incr idx\n\
--		}\n\
--		set flam_interval [tk7_get_flam $group $pattern]\n\
--		set tick_per_flam [expr $xox(tick_flam_duration) * $flam_interval]\n\
--		incr tick_shift $tick_per_flam\n\
--		if {$flam_interval != 0} {\n\
--		    set idx 0\n\
--		    foreach instrument $instrument_set {\n\
--		        if {$instrument == \"\"} {\n\
--			    continue;\n\
--		        }\n\
--	  	        set prop [lindex $property_set $idx]\n\
--		        if {! [have_fla $prop]} {\n\
--			    continue;\n\
--		        }\n\
--		        # ----------------------\n\
--		        # write a fla note\n\
--		        # ----------------------\n\
--		        set midinote $snd($instrument,note)\n\
--    		        set prop [lindex $property_set $idx]\n\
--		        set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n\
--		        incr tracksize [put_note $f $tick_shift $midinote $velocity]\n\
--		        set tick_shift 0\n\
--		        incr idx\n\
--		    }\n\
--		}\n\
--		incr tick_shift [expr $tick_per_note_on - $tick_per_flam]\n\
--		foreach instrument $instrument_set {\n\
--		    if {$instrument == \"\"} {\n\
--			continue;\n\
--		    }\n\
--		    if {! $has_delay($instrument)} {\n\
--			continue;\n\
--		    }\n\
--		    # ----------------------\n\
--		    # stop a note with delay\n\
--		    # ----------------------\n\
--		    set midinote $snd($instrument,note)\n\
--		    incr tracksize [put_note_off $f $tick_shift $midinote]\n\
--		    set tick_shift 0\n\
--		}\n\
--		incr tick_shift $tick_per_step_off_scale($scale)\n\
--\n\
--		incr step\n\
--	    }\n\
--	}\n\
--	# stop current long notes on (whistle, etc...)\n\
--	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
--\n\
--		if {$in_note($instrument)} {\n\
--\n\
--		 #puts \"stop instrument $instrument\";\n\
--\n\
--		 set midinote $snd($instrument,note)\n\
--		 incr tracksize [put_note_off $f $tick_shift $midinote]\n\
--		 set tick_shift 0\n\
--	    }\n\
--	}\n\
--	# End of track\n\
--	puts -nonewline $f [binary format c 0]\n\
--	puts -nonewline $f [binary format c3 {255 47 0}]\n\
--	incr tracksize 4\n\
--\n\
--	# Go back and insert tracksize\n\
--	flush $f\n\
--	seek $f $loc_tracksize\n\
--	puts -nonewline $f [binary format I $tracksize]\n\
--	close $f\n\
--}\n\
--# -----------------------------------------------------------------------------\n\
--# fileMidi - TEST area\n\
--# -----------------------------------------------------------------------------\n\
--proc fileAction {a} {\n\
--	upvar #0 pattern_list pl\n\
--	upvar #0 track_list tl\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--\n\
--	if {$a == 99} {\n\
--		set ftypes	{\n\
--			{{Midi File Format} {.mid}}\n\
--			{{All types} {.*}}\n\
--		}\n\
--		set fname [tk_getSaveFile -filetypes $ftypes]\n\
--		if {$fname == \"\"} {\n\
--			return\n\
--		}\n\
--		set f [open $fname w]\n\
--\n\
--		puts -nonewline $f MThd\n\
--		puts -nonewline $f [binary format I 6]\n\
--		puts -nonewline $f [binary format S 0]\n\
--		puts -nonewline $f [binary format S 1]\n\
--		puts -nonewline $f [binary format S 7]\n\
--		puts -nonewline $f MTrk\n\
--		set loc_tracksize 18\n\
--		puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n\
--\n\
--		puts -nonewline $f [binary format c2 [list 0 [expr 144 + $mo(midi_channel)]]]\n\
--\n\
--		# Once running status is established, format is\n\
--		# {note onlevel pause note offlevel pause}\n\
--		puts -nonewline $f [binary format c12 {35 127 0 51 127 2 35 0 0 51 0 4}]\n\
--		puts -nonewline $f [binary format c6 {48 127 2 48 0 4}]\n\
--		puts -nonewline $f [binary format c6 {38 127 2 38 0 4}]\n\
--		puts -nonewline $f [binary format c6 {51 127 2 51 0 4}]\n\
--\n\
--		# End of track\n\
--		puts -nonewline $f [binary format c3 {255 47 0}]\n\
--\n\
--		set tracksize 35\n\
--		# Go back and insert tracksize\n\
--		flush $f\n\
--		seek $f $loc_tracksize\n\
--		puts -nonewline $f [binary format I $tracksize]\n\
--		close $f\n\
--	} else {\n\
--		puts \"INTERNAL ERROR: Unexected file action: $a\"\n\
--	}\n\
--}\n\
--proc varlen_short {result value} {\n\
--	upvar $result res\n\
--\n\
--	if {$value < 128} {\n\
--		set res(high) 0\n\
--		set res(low) $value\n\
--	} else {\n\
--		set res(high) [expr 128 + [expr $value / 128]]\n\
--#		set res(high) [expr 65536 + [expr $value / 128]]\n\
--		set res(low) [expr $value % 128]\n\
--	}\n\
--}\n\
--\n\
--#=============================================================\n\
--# These procs to edit mapping of note keys to midi note values\n\
--#\n\
--proc map_edit {} {\n\
--	global font12\n\
--	global boldfont12\n\
--	upvar #0 sound snd\n\
--	upvar #0 soundbuf sbuf\n\
--	upvar #0 tkxox xox\n\
--\n\
--	if {[winfo exists .edit]} {\n\
--		wm deiconify .edit\n\
--	} else {\n\
--		toplevel .edit\n\
--		wm title .edit \"Edit Sound Map\"\n\
--\n\
--		set m_titles .edit.t\n\
--		canvas $m_titles -height 0.75c -width 13.5c -relief raised -borderwidth 2\n\
--		pack $m_titles\n\
--		set m_maps .edit.m\n\
--		frame $m_maps\n\
--		pack $m_maps\n\
--		set m_opts	.edit.o\n\
--		canvas $m_opts -height 1.5c -width 13.5c\n\
--		pack $m_opts\n\
--\n\
--		label $m_titles.key    -text \"Key\"        -font *-${boldfont12}-*\n\
--		label $m_titles.long   -text \"Long Name\"  -font *-${boldfont12}-*\n\
--		label $m_titles.short  -text \"Short Name\" -font *-${boldfont12}-*\n\
--		label $m_titles.abbrev -text \"Abbrev\"     -font *-${boldfont12}-*\n\
--		label $m_titles.note   -text \"Note\"       -font *-${boldfont12}-*\n\
--		label $m_titles.test   -text \"Test\"       -font *-${boldfont12}-*\n\
--		$m_titles create window  0c   0.45c -window $m_titles.key    -anchor w -width 1c\n\
--		$m_titles create window  1c   0.45c -window $m_titles.long   -anchor w -width 4c\n\
--		$m_titles create window  5.3c 0.45c -window $m_titles.short  -anchor w -width 2c\n\
--		$m_titles create window  7.5c 0.45c -window $m_titles.abbrev -anchor w -width 2c\n\
--		$m_titles create window 10.0c 0.45c -window $m_titles.note   -anchor w -width 1c\n\
--		$m_titles create window 11.7c 0.45c -window $m_titles.test   -anchor w -width 1c\n\
--\n\
--		# Name, Shortname, Midi note entries\n\
--		#\n\
--		for {set i 0} {$i < 16} {incr i} {\n\
--			canvas $m_maps.$i -height 1c -width 13.5c\n\
--			label $m_maps.$i.l -text [expr $i + 1] -font *-${font12}-*\n\
--			entry $m_maps.$i.long  -font *-${font12}-*\n\
--			entry $m_maps.$i.short  -font *-${font12}-*\n\
--			entry $m_maps.$i.abbrev  -font *-${font12}-*\n\
--			entry $m_maps.$i.note  -font *-${font12}-*\n\
--			button $m_maps.$i.test \\\n\
--				-bitmap nix \\\n\
--				-bg $xox(but_grey) \\\n\
--				-activebackground $xox(but_grey_active) \\\n\
--				-width 1.0c -height 0.7c\n\
--\n\
--			$m_maps.$i create window 0c   0.5c -window $m_maps.$i.l 	 -anchor w -width 1c\n\
--			$m_maps.$i create window 1c   0.5c -window $m_maps.$i.long -anchor w -width 4c\n\
--			$m_maps.$i create window 5c   0.5c -window $m_maps.$i.short -anchor w -width 2.5c\n\
--			$m_maps.$i create window 7.5c 0.5c -window $m_maps.$i.abbrev -anchor w -width 2.5c\n\
--			$m_maps.$i create window 10c  0.5c -window $m_maps.$i.note -anchor w -width 1c\n\
--			$m_maps.$i create window 11.2c 0.5c -window $m_maps.$i.test -anchor w -width 2.1c\n\
--\n\
--			set j [expr $i + 1]\n\
--			$m_maps.$i.long insert 0 $snd($j,name)\n\
--			set sbuf($j,name) $snd($j,name)\n\
--			$m_maps.$i.short insert 0 $snd($j,shortname)\n\
--			set sbuf($j,shortname) $snd($j,shortname)\n\
--			$m_maps.$i.abbrev insert 0 $snd($j,abbrev)\n\
--			set sbuf($j,abbrev) $snd($j,abbrev)\n\
--			$m_maps.$i.note insert 0 $snd($j,note)\n\
--			set sbuf($j,note) $snd($j,note)\n\
--			pack $m_maps.$i\n\
--\n\
--			bind $m_maps.$i.test <ButtonPress-1>    {map_start_test_note %W}\n\
--			bind $m_maps.$i.test <ButtonRelease-1>  {map_stop_test_note %W}\n\
--\n\
--			bind $m_maps.$i.note <Shift-ButtonPress-1>   {map_start_set_note %W 1}\n\
--			bind $m_maps.$i.note <Shift-ButtonRelease-1> {map_stop_set_note %W}\n\
--\n\
--			bind $m_maps.$i.note <Control-ButtonPress-1>   {map_start_set_note %W -1}\n\
--			bind $m_maps.$i.note <Control-ButtonRelease-1> {map_stop_set_note %W}\n\
--\n\
--			bind $m_maps.$i.note <Button-2>  {\n\
--				set noteY %y\n\
--			}\n\
--			bind $m_maps.$i.note <B2-Motion> {\n\
--				set direction [expr %y - $noteY]\n\
--				if {$direction >= 0} {\n\
--				    set diff 1\n\
--				} else {\n\
--				    set diff -1\n\
--				}\n\
--				map_start_set_note %W $diff\n\
--				after 500;\n\
--				map_stop_set_note  %W\n\
--			}\n\
--		}\n\
--\n\
--		# Cancel, Apply, OK buttons\n\
--		#\n\
--		button $m_opts.cancel -text Cancel -font *-${font12}-* -command {\n\
--			upvar #0 soundbuf buf\n\
--			for {set i 0} {$i < 16} {incr i} {\n\
--				set j [expr $i + 1]\n\
--				.edit.m.$i.long delete 0 100\n\
--				.edit.m.$i.long insert 0 $buf($j,name)\n\
--				set snd($j,name) $buf($j,name)\n\
--\n\
--				.edit.m.$i.short delete 0 100\n\
--				.edit.m.$i.short insert 0 $buf($j,shortname)\n\
--				set snd($j,shortname) $buf($j,shortname)\n\
--\n\
--				.edit.m.$i.abbrev delete 0 100\n\
--				.edit.m.$i.abbrev insert 0 $buf($j,abbrev)\n\
--				set snd($j,abbrev) $buf($j,abbrev)\n\
--\n\
--				.edit.m.$i.note delete 0 end\n\
--				.edit.m.$i.note insert 0 $buf($j,note)\n\
--				set snd($j,note) $buf($j,note)\n\
--			}\n\
--			instrument_label_reset\n\
--			tk7_set_sounds\n\
--			destroy .edit\n\
--		}\n\
--		button $m_opts.apply -text Apply -font *-${font12}-* -command {\n\
--			map_set_new_sounds\n\
--		}\n\
--		button $m_opts.ok -text OK -font *-${font12}-* -command {\n\
--			map_set_new_sounds\n\
--			destroy .edit\n\
--		}\n\
--		$m_opts create window 1c 0.75c -window $m_opts.cancel -anchor w -width 2.5c\n\
--		$m_opts create window 4c 0.75c -window $m_opts.apply -anchor w -width 2.5c\n\
--		$m_opts create window 7c 0.75c -window $m_opts.ok -anchor w -width 2.5c\n\
--	}\n\
--}\n\
--\n\
--proc map_set_new_sounds {} {\n\
--	global .edit\n\
--	upvar #0 sound snd\n\
--	upvar #0 soundbuf sbuf\n\
--\n\
--	for {set i 0} {$i < 16} {incr i} {\n\
--		set j [expr $i + 1]\n\
--		set snd($j,name) [.edit.m.$i.long get]\n\
--		set snd($j,shortname) [.edit.m.$i.short get]\n\
--		set snd($j,abbrev) [.edit.m.$i.abbrev get]\n\
--		set snd($j,note) [.edit.m.$i.note get]\n\
--	}\n\
--	instrument_label_reset\n\
--	tk7_set_sounds\n\
--}\n\
--\n\
--proc map_start_test_note widget {\n\
--	global .edit\n\
--	set k [string range [string trimright $widget .test] 8 end]\n\
--	set n [.edit.m.$k.note get]\n\
--	tk7_start_note_test $k $n\n\
--}\n\
--proc map_stop_test_note widget {\n\
--	global .edit\n\
--	set k [string range [string trimright $widget .test] 8 end]\n\
--	set n [.edit.m.$k.note get]\n\
--	tk7_stop_note_test $k $n\n\
--}\n\
--proc map_start_set_note {widget diff} {\n\
--	set newval [expr [$widget get] + $diff]\n\
--	set newval [expr $newval % 128]\n\
--	$widget delete 0 end\n\
--	$widget insert 0 $newval\n\
--	set k [string range [string trimright $widget .note] 8 end]\n\
--	tk7_start_note_test $k $newval\n\
--}\n\
--proc map_stop_set_note {widget} {\n\
--	set keynum    [string range [string trimright $widget .note] 8 end]\n\
--	set midi_note [$widget get]\n\
--	tk7_stop_note_test $keynum $midi_note\n\
--}\n\
--#=============================================================\n\
--\n\
--#=====================================================\n\
--# These procs to edit mapping of instruments to faders\n\
--#\n\
--proc fader_edit {} {\n\
--	if {[winfo exists .fadermap]} {\n\
--		wm deiconify .fadermap\n\
--	} else {\n\
--		toplevel .fadermap\n\
--		wm title .fadermap \"Edit Fader Map\"\n\
--\n\
--		text .fadermap.intro -width 64 -height 16\n\
--		.fadermap.intro insert end	\\\n\
--\"Editing of the Instrument to Fader map is not implemented yet.\n\
--The default mapping being used is:\n\
--\n\
--Vol 0 (the first fader ) - unused\n\
--Vol 1	- Bass drums 1 & 2\n\
--Vol 2	- Snare drums 1 & 2\n\
--Vol 3	- Low Tom\n\
--Vol 4	- Mid Tom\n\
--Vol 5	- High Tom\n\
--Vol 6	- Rimshot & Cowbell\n\
--Vol 7	- Handclap & Tambourine\n\
--Vol 8	- Highhats (all)\n\
--Vol 9	- Crash cymbal\n\
--Vol 10	- Ride cymbal\n\
--VOLUME	- Master volume over all instruments\n\
--\"\n\
--\n\
--		button .fadermap.ok -text OK -command {destroy .fadermap}\n\
--\n\
--		pack .fadermap.intro\n\
--		pack .fadermap.ok -expand true -fill x\n\
--	}\n\
--\n\
--}\n\
--#=====================================================\n\
--#\n\
--# Flash the lamps for each of the 16 steps in 1 pattern\n\
--# (fix later for patterns with fewer steps)\n\
--#\n\
--#ex: cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n\
--proc cycle_notes {on dur w saved steps} {\n\
--	global notes\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	upvar #0 flash fl\n\
--\n\
--	if {$on == 1} {\n\
--		switch $mo(stopgo) {\n\
--		0	{\n\
--			#puts \"stopgo = STOP\"\n\
--			set fl(count) -1\n\
--			}\n\
--		1	{\n\
--			incr fl(count)\n\
--			if {$fl(count) > [expr $steps - 1]} {\n\
--				set fl(count) -1\n\
--				return\n\
--			}\n\
--			set savecolour [lindex [$notes.note$fl(count).l configure -bg] 4]\n\
--			set savedwin $notes.note$fl(count).l\n\
--			#puts \"cycle $fl(count) ON \"\n\
--			$savedwin configure -bg $xox(col_on)\n\
--			after $dur [list cycle_notes 0 $dur $savedwin $savecolour $steps]\n\
--			}\n\
--		2	{\n\
--			#puts \"stopgo = CONT\"\n\
--			}\n\
--		}\n\
--	} else {\n\
--#		#puts \"cycle $fl(count) OFF\"\n\
--		$w configure -bg $saved\n\
--		if {$mo(stopgo) != $xox(START)} {\n\
--			set fl(count) 15\n\
--			return\n\
--		}\n\
--\n\
--		if {$fl(count) < $steps} {\n\
--			after $dur [list cycle_notes 1 $dur 0 0 $steps]\n\
--		} else {\n\
--			set fl(count) -1\n\
--			return\n\
--		}\n\
--	}\n\
--\n\
--}\n\
--proc gridlabels_reset {} {\n\
--	global gridlabel\n\
--	global font12\n\
--	upvar #0 sound so\n\
--	for {set i 0} {$i < 16} {incr i} {\n\
--		$gridlabel itemconfigure ilabel$i -text $so([expr 16 - $i],name)	\\\n\
--			-font *-${font12}-* -anchor e\n\
--	}\n\
--}\n\
--proc key_labels_reset {} {\n\
--	global notes\n\
--	upvar #0 sound so\n\
--\n\
--	for {set i 0} {$i < 16} {incr i} {\n\
--		$notes.note$i.instr configure -text $so([expr $i + 1],shortname)\n\
--	}\n\
--}\n\
--proc volume_labels_reset {} {\n\
--	global cunit\n\
--	upvar #0 sound so\n\
--	upvar #0 volume_label vo\n\
--\n\
--	if {$so(2,abbrev) != \"\"} {\n\
--	    set vo(1)  \"$so(1,abbrev)/$so(2,abbrev)\"\n\
--	} else {\n\
--	    set vo(1)  \"$so(1,abbrev)\"\n\
--	}\n\
--	if {$so(4,abbrev) != \"\"} {\n\
--	    set vo(2)  \"$so(3,abbrev)/$so(4,abbrev)\"\n\
--	} else {\n\
--	    set vo(2)  \"$so(3,abbrev)\"\n\
--	}\n\
--	set vo(3)  \"$so(5,abbrev)\"\n\
--	set vo(4)  \"$so(6,abbrev)\"\n\
--	set vo(5)  \"$so(7,abbrev)\"\n\
--	if {$so(9,abbrev) != \"\"} {\n\
--	    set vo(6)  \"$so(8,abbrev)/$so(9,abbrev)\"\n\
--	} else {\n\
--	    set vo(6)  \"$so(8,abbrev)\"\n\
--	}\n\
--	if {$so(11,abbrev) != \"\"} {\n\
--	    set vo(7)  \"$so(10,abbrev)/$so(11,abbrev)\"\n\
--	} else {\n\
--	    set vo(7)  \"$so(10,abbrev)\"\n\
--	}\n\
--	if {($so(13,abbrev) != \"\") && ($so(14,abbrev) != \"\")} {\n\
--	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)/$so(14,abbrev)\"\n\
--	} elseif {$so(13,abbrev) != \"\"} {\n\
--	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)\"\n\
--	} elseif {$so(14,abbrev) != \"\"} {\n\
--	    set vo(8)  \"$so(12,abbrev)/$so(14,abbrev)\"\n\
--	} else {\n\
--	    set vo(8)  \"$so(12,abbrev)\"\n\
--	}\n\
--	set vo(9)  \"$so(15,abbrev)\"\n\
--	set vo(10) \"$so(16,abbrev)\"\n\
--\n\
--	for {set i 1} {$i < 11} {incr i} {\n\
--		$cunit.$i.l configure -text $vo($i)\n\
--	}\n\
--}\n\
--proc instrument_label_reset {} {\n\
--	gridlabels_reset\n\
--	key_labels_reset\n\
--	volume_labels_reset\n\
--}\n\
--proc tempoinfo_update {a b c} {\n\
--	global tempoinfo\n\
--	upvar $a mo\n\
--	$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
--}\n\
--proc measureinfo_update {a b c} {\n\
--	global tempoinfo\n\
--	upvar $a mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 track_list tl\n\
--\n\
--	if {$mo(measure) == -1} {\n\
--		$tempoinfo itemconfigure tempo -text \"\"\n\
--	} else {\n\
--		$tempoinfo itemconfigure tempo -text [expr $mo(measure) + 1]\n\
--	}\n\
--}\n\
--proc trackinfo_update {a b c} {\n\
--	global tminfo\n\
--	upvar $a mo\n\
--\n\
--	switch $mo(current_track) {\n\
--		0	{\n\
--			$tminfo.t coords trackid 3c 0.45c\n\
--			$tminfo.t itemconfigure trackid -text I\n\
--		}\n\
--		1	{\n\
--			$tminfo.t coords trackid 4c 0.45c\n\
--			$tminfo.t itemconfigure trackid -text II\n\
--		}\n\
--		2	{\n\
--			$tminfo.t coords trackid 5c 0.45c\n\
--			$tminfo.t itemconfigure trackid -text III\n\
--		}\n\
--		3	{\n\
--			$tminfo.t coords trackid 6c 0.45c\n\
--			$tminfo.t itemconfigure trackid -text IV\n\
--		}\n\
--	}\n\
--}\n\
--proc modeinfo_update {m} {\n\
--	global tminfo\n\
--	global tapwrite\n\
--	global font12\n\
--\n\
--	$tminfo.m delete modetext\n\
--	switch $m {\n\
--		0	{\n\
--			set tapwrite 1\n\
--			$tminfo.m create text 1.2c 0.8c -text \"TRACK PLAY\"	\\\n\
--				-tags modetext -anchor w -font *-${font12}-*\n\
--		}\n\
--		1	{\n\
--			set tapwrite 1\n\
--			$tminfo.m create text 1.2c 1.1c -text \"TRACK WRITE\"	\\\n\
--				-tags modetext -anchor w -font *-${font12}-*\n\
--		}\n\
--		2	{\n\
--			set tapwrite 1\n\
--			$tminfo.m create text 4.2c 0.4c -text \"PATTERN PLAY\"	\\\n\
--				-tags modetext -anchor w -font *-${font12}-*\n\
--		}\n\
--		3	{\n\
--			if {$tapwrite} {\n\
--				incr tapwrite -1\n\
--				$tminfo.m create text 4.2c 0.8c -text \"PATTERN WRITE\"	\\\n\
--					-tags modetext -anchor w -font *-${font12}-*\n\
--			} else {\n\
--				incr tapwrite\n\
--				$tminfo.m create text 4.2c 1.2c -text \"TAP WRITE\"	\\\n\
--					-tags modetext -anchor w -font *-${font12}-*\n\
--			}\n\
--		}\n\
--	}\n\
--}\n\
--proc scale_lamps_update {} {\n\
--	global scale_lamps\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--\n\
--	set scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n\
--	for {set i 0} {$i < 4} {incr i} {\n\
--	    set button ${scale_lamps}.l${i}\n\
--	    if {$i == $scale} {\n\
--		$button configure -background $xox(lamp_on)\n\
--	    } else {\n\
--		$button configure -background $xox(lamp_off)\n\
--	    }\n\
--	}\n\
--}\n\
--proc locate_gridpos {x y result} {\n\
--	global gridXs gridYs gridSvals gridIvals\n\
--	upvar $result res\n\
--\n\
--	#puts \"locate_gridpos $x,$y\"\n\
--	set halo 7\n\
--\n\
--	set resX -1\n\
--	foreach i $gridXs {\n\
--		if {($i > [expr $x - $halo]) && ($i < [expr $x + $halo])} {\n\
--			set resX $i\n\
--			break\n\
--		}\n\
--	}\n\
--	if {$resX < 0} {\n\
--		return $resX\n\
--	}\n\
--	#puts \"resX = $resX\"\n\
--\n\
--	set resY -1\n\
--	foreach i $gridYs {\n\
--		if {($i > [expr $y - $halo]) && ($i < [expr $y + $halo])} {\n\
--			set resY $i\n\
--			break\n\
--		}\n\
--	}\n\
--	if {$resY < 0} {\n\
--		return $resY\n\
--	}\n\
--#puts \"resY = $resY\"\n\
--\n\
--	set res(step) $gridSvals($resX)\n\
--	set res(inst) $gridIvals($resY)\n\
--\n\
--	return 0\n\
--}\n\
--\n\
--proc play_loop {} {\n\
--	upvar #0 mode mo\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 track_list tl\n\
--	global button_stop	;# to invoke stop button\n\
--	if {$mo(stopgo) == $xox(START) && $mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n\
--	\n\
--		# Playing a track\n\
--		if {$mo(TRACK_START)} {\n\
--			set xox(play_list) $tl($mo(current_track))\n\
--\n\
--			# Prepare to display pattern contents\n\
--			set mo(measure) -1\n\
--\n\
--			set mo(TRACK_START) 0\n\
--		}\n\
--\n\
--		if {[llength $xox(play_list)] > 0} {\n\
--			set target  [lindex $xox(play_list) 0]\n\
--			set group [expr $target / 16]\n\
--			set pat [expr $target % 16]\n\
--			set xox(play_list) [lreplace $xox(play_list) 0 0]\n\
--\n\
--			# Prepare to display pattern contents\n\
--			set target  [expr $mo(measure) + 1]\n\
--			set mo(measure) [measure_constrain $target]\n\
--		} else {\n\
--			$button_stop invoke\n\
--		}\n\
--\n\
--		if {$mo(PATTERN_REPEAT)} {\n\
--			play_pattern $group $pat\n\
--		}\n\
--\n\
--		# Update pattern display\n\
--		pattern_show\n\
--\n\
--	} else { # Not playing a track\n\
--\n\
--		if {$mo(PATTERN_REPEAT)} {\n\
--			play_pattern $mo(patgroup) $mo(current_pattern)\n\
--		}\n\
--	}\n\
--	after $mo(REPEAT_INTERVAL) play_loop\n\
--}\n\
--# ----------------------------------------------------------------------------\n\
--# Edit Pattern Comment\n\
--# ----------------------------------------------------------------------------\n\
--\n\
--proc get_current_pattern_name {} {\n\
--    upvar #0 mode mo\n\
--    switch $mo(patgroup) {\n\
--	0 { set g \"A\"; }\n\
--	1 { set g \"B\"; }\n\
--	2 { set g \"C\"; }\n\
--	3 { set g \"D\"; }\n\
--    }\n\
--    set name \"$g[expr $mo(current_pattern)+1]\";\n\
--    return $name;\n\
--}\n\
--set comment .pattern_comment;\n\
--\n\
--proc  refresh_comment {} {\n\
--    upvar #0 mode mo\n\
--    global comment;\n\
--    if {[winfo exists $comment]} {\n\
--    	set name [get_current_pattern_name];\n\
--    	wm title $comment \"$name pattern comment\"\n\
--        set old_comment [$comment.string get]\n\
--        $comment.string delete 0 [expr [string length $old_comment] ]\n\
--        set current_comment [tk7_get_pattern_comment $mo(patgroup) $mo(current_pattern)]\n\
--        $comment.string insert 0 \"$current_comment\"\n\
--    }\n\
--}\n\
--proc edit_pattern_comment {} {\n\
--    upvar #0 mode mo\n\
--    upvar #0 tkxox xox\n\
--    global comment\n\
--\n\
--    if {[winfo exists $comment]} {\n\
--	wm deiconify $comment\n\
--    } else {\n\
--	toplevel $comment\n\
--\n\
--	button $comment.quit -text quit -command {wm iconify $comment}\n\
--	button $comment.ok -text ok -command comment_ok\n\
--	pack $comment.quit $comment.ok -side right\n\
--\n\
--	# label $comment.label -text Comment: -padx 0\n\
--	entry $comment.string -width 20 -relief sunken\n\
--	# pack $comment.label -side left\n\
--	pack $comment.string -side left -fill x -expand true\n\
--\n\
--	bind $comment.string <Return> comment_ok\n\
--	bind $comment.string <Control-c> {wm iconify $comment}\n\
--	focus $comment.string \n\
--    }\n\
--    refresh_comment;\n\
--}\n\
--proc comment_ok {} {\n\
--    upvar #0 mode mo;\n\
--    global comment;\n\
--    set stringval [$comment.string get];\n\
--    set name [get_current_pattern_name];\n\
--    puts \"set $name comment to \\\"$stringval\\\"\";\n\
--    tk7_set_pattern_comment $mo(patgroup) $mo(current_pattern) $stringval;\n\
--    # wm iconify $comment;\n\
--}\n\
--";
-+char tcl_procs[] = ""
-+"#=====================================================\n"
-+"#	File procs.tcl\n"
-+"#	Procedures for the tcl side of the program\n"
-+"#=====================================================\n"
-+"\n"
-+"proc play_pattern {grp pat} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 pattern_list pl\n"
-+"\n"
-+"	if {$mo(PATTERN_REPEAT)} {\n"
-+"\n"
-+"		#puts \"TIMER = [tk7_timer_status]\"\n"
-+"		set steps [tk7_get_last_step $grp $pat]\n"
-+"		set dur [tk7_pattern_play $grp $pat]\n"
-+"\n"
-+"		cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n"
-+"\n"
-+"		# Fudge factor (extra time to change track display) in track play mode\n"
-+"		if {$mo(rdrw) == $xox(READ) || $mo(patr) == $xox(TRACK)} {\n"
-+"			incr dur -160\n"
-+"			if {$dur < 0} {\n"
-+"				set dur 0\n"
-+"			}\n"
-+"			#set mo(REPEAT_INTERVAL) [expr $dur - 160]\n"
-+"			set mo(REPEAT_INTERVAL) $dur\n"
-+"		} else {\n"
-+"			set mo(REPEAT_INTERVAL) $dur\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"proc stop_pattern {} {\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"#puts \"do stop_pattern\"\n"
-+"	tk7_pattern_stop\n"
-+"	set mo(REPEAT_INTERVAL) 10\n"
-+"}\n"
-+"\n"
-+"proc ac_clear {tp} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"	upvar #0 pattern_list pl\n"
-+"\n"
-+"	switch $tp {\n"
-+"		0	{\n"
-+"		# CLEAR the current PATTERN\n"
-+"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(PATTERN)} {\n"
-+"				return\n"
-+"			}\n"
-+"			set result [tk_dialog .clr CONFIRM \"Clear Pattern [expr $mo(current_pattern) + 1] Group [expr $mo(patgroup) + 1]?\" \"\" 0 Cancel \"Delete Pattern\"]\n"
-+"			if {$result == 0} {\n"
-+"				return\n"
-+"			}\n"
-+"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"			tk7_clear_pattern $mo(patgroup) $mo(current_pattern)\n"
-+"			pattern_setid $mo(current_pattern)\n"
-+"			scale_lamps_update\n"
-+"		}\n"
-+"\n"
-+"		1	{\n"
-+"		# CLEAR the current TRACK\n"
-+"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-+"				return\n"
-+"			}\n"
-+"			set result [tk_dialog .clr CONFIRM \"Clear Track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete Track\"]\n"
-+"			if {$result == 0} {\n"
-+"				return\n"
-+"			}\n"
-+"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"			set tl($mo(current_track)) {}\n"
-+"			set mo(measure) -1\n"
-+"		}\n"
-+"		2 	{\n"
-+"		# CLEAR current track item from current track\n"
-+"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-+"				return\n"
-+"			}\n"
-+"			# Clearing track item has no meaning if we're already past end\n"
-+"			set target $mo(measure)\n"
-+"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-+"				#puts \"Already past end\"\n"
-+"				return\n"
-+"			}\n"
-+"			set result [tk_dialog .clr CONFIRM \"Clear measure [expr $target + 1] from track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete\"]\n"
-+"			if {$result == 0} {\n"
-+"				return\n"
-+"			}\n"
-+"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target]\n"
-+"		}\n"
-+"		3	{\n"
-+"		# CLEAR the rest of current track including current track item\n"
-+"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-+"				return\n"
-+"			}\n"
-+"			# Clearing rest has no meaning if we're already past end of track\n"
-+"			set target $mo(measure)\n"
-+"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-+"				# puts \"Already past end\"\n"
-+"				return\n"
-+"			}\n"
-+"			set result [tk_dialog .clr CONFIRM \"    Clear rest of track [expr $mo(current_track) + 1]?\\n(includes current measure)\" \"\" 0 Cancel \"Delete\"]\n"
-+"			if {$result == 0} {\n"
-+"				return\n"
-+"			}\n"
-+"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target end]\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"proc ac_scaleback {} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"	global scale_lamps\n"
-+"\n"
-+"	if {$mo(patr) == $xox(PATTERN)} {\n"
-+"		set old_scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n"
-+"		set new_scale [expr $old_scale + 1]\n"
-+"		if {$new_scale == 4} {\n"
-+"		    set new_scale 0\n"
-+"		}\n"
-+"		set old_button $scale_lamps.l$old_scale\n"
-+"		set new_button $scale_lamps.l$new_scale\n"
-+"		tk7_set_scale $mo(patgroup) $mo(current_pattern) $new_scale\n"
-+"		$old_button configure -background $xox(lamp_off)\n"
-+"		$new_button configure -background $xox(lamp_on)\n"
-+"	} else {\n"
-+"		set target [expr $mo(measure) - 1]\n"
-+"		set mo(measure) [measure_constrain $target]\n"
-+"		pattern_show\n"
-+"	}\n"
-+"	set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"}\n"
-+"proc ac_lastfwd {} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	if {$mo(patr) == $xox(PATTERN)} {\n"
-+"		if {$mo(rdrw) == $xox(READ)} {\n"
-+"			return\n"
-+"		}\n"
-+"		select_laststep\n"
-+"		set mo(file_status) $xox(FILE_MODIFIED)\n"
-+"	} else {\n"
-+"		set target  [expr $mo(measure) + 1]\n"
-+"		set mo(measure) [measure_constrain $target]\n"
-+"		pattern_show\n"
-+"	}\n"
-+"}\n"
-+"proc measure_constrain {m} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	set tracklength [llength $tl($mo(current_track))]\n"
-+"\n"
-+"	if {$tracklength < 1} {\n"
-+"		if {$mo(rdrw) == $xox(READ)} {\n"
-+"			set minpos -1\n"
-+"			set maxpos -1\n"
-+"		} else {\n"
-+"			set minpos 0\n"
-+"			set maxpos 0\n"
-+"		}\n"
-+"	} else {\n"
-+"		if {$mo(rdrw) == $xox(READ)} {\n"
-+"			set maxpos [expr $tracklength - 1]\n"
-+"		} else {\n"
-+"			set maxpos $tracklength\n"
-+"		}\n"
-+"		set minpos 0\n"
-+"	}\n"
-+"\n"
-+"	# Result\n"
-+"	if {$m <= $minpos} {\n"
-+"		return $minpos\n"
-+"	} elseif {$m >= $maxpos} {\n"
-+"		return $maxpos\n"
-+"	} else {\n"
-+"		return $m\n"
-+"	}\n"
-+"}\n"
-+"# Decide which pattern from a track to display\n"
-+"#\n"
-+"proc pattern_show {} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	set raw [lindex $tl($mo(current_track)) $mo(measure)]\n"
-+"	if {$raw != \"\"} {\n"
-+"		set group [expr $raw / 16]\n"
-+"		set pattern [expr $raw % 16]\n"
-+"		ac_group $group\n"
-+"		pattern_setid $pattern\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"# For track mode, ordinary click (on LAST MEAS button) shows last measure\n"
-+"# of current track. Releasing button returns to orginal measure.\n"
-+"# Shift click goes to last measure and stays there.\n"
-+"#\n"
-+"proc ac_lastmeas {m} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	if {$mo(patr) == $xox(PATTERN)} {\n"
-+"	    	#puts \"Instrument Guide\"\n"
-+"	} else {\n"
-+"		switch $m {\n"
-+"			0	{\n"
-+"				#puts \"Show Last Measure\"\n"
-+"				set mo(oldmeasure) $mo(measure)\n"
-+"				set target [llength $tl($mo(current_track))]\n"
-+"				set mo(measure) [measure_constrain $target]\n"
-+"				pattern_show\n"
-+"			}\n"
-+"			1	{\n"
-+"				#puts \"Restore measure $mo(oldmeasure)\"\n"
-+"				set mo(measure) [measure_constrain $mo(oldmeasure)]\n"
-+"				pattern_show\n"
-+"			}\n"
-+"			2	{\n"
-+"				#puts \"Go to Last Measure\"\n"
-+"				set target [llength $tl($mo(current_track))]\n"
-+"				set mo(measure) [measure_constrain $target]\n"
-+"				pattern_show\n"
-+"			}\n"
-+"			3	{\n"
-+"				return\n"
-+"			}\n"
-+"		}\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"proc select_laststep {} {\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	if {[winfo exists .ls]} {\n"
-+"		wm deiconify .ls\n"
-+"	} else {\n"
-+"		toplevel .ls\n"
-+"		wm title .ls \"Set last pattern step\"\n"
-+"		scale .ls.s -from 1 -to 16 -command laststep_set -orient horizontal	\\\n"
-+"			-length 5c -relief groove -borderwidth 2\n"
-+"		button .ls.ok -text OK -font *-${font12}-* -command {wm iconify .ls} -relief groove -borderwidth 2\n"
-+"		pack .ls.s -side top -ipady 6\n"
-+"		pack .ls.ok -side top -expand true -fill x\n"
-+"	}\n"
-+"	.ls.s set [tk7_get_last_step $mo(patgroup) $mo(current_pattern)]\n"
-+"}\n"
-+"proc laststep_set val {\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	if {$val < 1 || $val > 16} {\n"
-+"		return\n"
-+"	}\n"
-+"	tk7_set_last_step $mo(patgroup) $mo(current_pattern) $val\n"
-+"}\n"
-+"proc flam_set val {\n"
-+"	upvar #0 mode mo\n"
-+"	if {$val < 0 || $val > 4} {\n"
-+"		return\n"
-+"	}\n"
-+"	tk7_set_flam $mo(patgroup) $mo(current_pattern) $val\n"
-+"}\n"
-+"proc select_flam {} {\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-+"\n"
-+"	if {[winfo exists .flam]} {\n"
-+"		wm deiconify .flam\n"
-+"	} else {\n"
-+"		toplevel .flam\n"
-+"		wm title .flam \"Set pattern flam interval\"\n"
-+"		scale .flam.s -from 0 -to 4 -command flam_set -orient horizontal	\\\n"
-+"			-length 5c -relief groove -borderwidth 2\n"
-+"		button .flam.ok -text OK -font *-${font12}-* -command {wm iconify .flam} -relief groove -borderwidth 2\n"
-+"		pack .flam.s -side top -ipady 6\n"
-+"		pack .flam.ok -side top -expand true -fill x\n"
-+"	}\n"
-+"	.flam.s set [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-+"	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-+"}\n"
-+"proc ac_flam {} {\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	if {$mo(patr) != $xox(PATTERN) || $mo(rdrw) != $xox(WRITE)} {\n"
-+"	    return\n"
-+"	}\n"
-+"	select_flam\n"
-+"}\n"
-+"proc ac_midi {} {\n"
-+"	global font12\n"
-+"	upvar #0 mode mo\n"
-+"	if {[winfo exists .ms]} {\n"
-+"		wm deiconify .ms\n"
-+"	} else {\n"
-+"		toplevel .ms\n"
-+"		wm title .ms \"MIDI Channel\"\n"
-+"		scale .ms.s -from 1 -to 16 -command midichan_set -orient horizontal	\\\n"
-+"			-length 5c -relief groove -borderwidth 2 -font *-${font12}-*\n"
-+"		button .ms.ok -text OK -font *-${font12}-* -command {wm iconify .ms} \\\n"
-+"			-relief groove -borderwidth 2\n"
-+"		pack .ms.s -side top -ipady 6\n"
-+"		pack .ms.ok -side top -expand true -fill x\n"
-+"		.ms.s set [expr $mo(midi_channel)  + 1]\n"
-+"	}\n"
-+"}\n"
-+"proc midichan_set val {\n"
-+"	upvar #0 mode mo\n"
-+"	global midi_channel\n"
-+"\n"
-+"	if {$val < 1 || $val >16} {\n"
-+"		return\n"
-+"	}\n"
-+"	set mo(midi_channel) [expr $val - 1]\n"
-+"	# This is needed for C code to trace midi channel,\n"
-+"	# (I don't know how to make it trace an array variable).\n"
-+"	set midi_channel $mo(midi_channel)\n"
-+"}\n"
-+"proc ac_note {widget prop} {\n"
-+"    global tapwrite\n"
-+"    global notes\n"
-+"    upvar #0 tkxox xox\n"
-+"    upvar #0 mode mo\n"
-+"\n"
-+"    # Extract button number from widget path\n"
-+"    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-+"    #                                      ^ +5 ^\n"
-+"    set prefix_length [expr [string length $notes] + 5]\n"
-+"    set b [string range [string trimright $widget .b] $prefix_length end]\n"
-+"\n"
-+"    if {$mo(patr) == $xox(TRACK)} {\n"
-+"	# TRACK mode\n"
-+"	if {$mo(rdrw) == $xox(READ)} {\n"
-+"		tk7_start_note_play $b $prop\n"
-+"	} else {\n"
-+"		# Just changeing pattern numbers\n"
-+"		pattern_setid $b\n"
-+"	}\n"
-+"	return\n"
-+"    }\n"
-+"    # PATTERN mode\n"
-+"    if {$mo(rdrw) == $xox(READ)} {\n"
-+"    	# PATTERN READ mode\n"
-+"	pattern_setid $b\n"
-+"	if {$mo(stopgo) == $xox(START)} {\n"
-+"	    # If running, wait till current pattern finished before changeing ?\n"
-+"	}\n"
-+"	return\n"
-+"    }\n"
-+"    # PATTERN TAP or WRITE mode\n"
-+"    if {$mo(stopgo) != $xox(START)} {\n"
-+"	# Just changeing pattern numbers\n"
-+"	pattern_setid $b\n"
-+"	return\n"
-+"    }\n"
-+"    # PATTERN TAP or WRITE mode with START\n"
-+"    if {![have_zero_velocity $prop]} {\n"
-+"	switch $mo(current_accent) {\n"
-+"	    2       {set prop [add_strong_accent    $prop] }\n"
-+"	    1 	    {set prop [add_weak_accent      $prop] }\n"
-+"	    default {set prop [add_default_velocity $prop] }\n"
-+"	}\n"
-+"    }\n"
-+"    if {$tapwrite} {\n"
-+"	set step [expr [tk7_get_pat_tick] % 16]\n"
-+"	if {$step < 0} {\n"
-+"	    set step 0\n"
-+"	}\n"
-+"	ac_newinstr $notes.note$b.b\n"
-+"	step_insert $step $prop\n"
-+"	tk7_start_note_play $b $prop\n"
-+"    } else {\n"
-+"	# Recording steps\n"
-+"	step_insert $b $prop\n"
-+"    }\n"
-+"}\n"
-+"proc ac_note_off {widget} {\n"
-+"    global notes\n"
-+"    global tapwrite\n"
-+"    upvar #0 tkxox xox\n"
-+"    upvar #0 mode mo\n"
-+"\n"
-+"    # Extract button number from widget path\n"
-+"    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-+"    #                                      ^ +5 ^\n"
-+"    set prefix_length [expr [string length $notes] + 5]\n"
-+"    set b [string range [string trimright $widget .b] $prefix_length end]\n"
-+"\n"
-+"    if {$mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n"
-+"	tk7_stop_note_play $b\n"
-+"	return\n"
-+"    }\n"
-+"    if {$mo(rdrw) == $xox(READ) || $mo(stopgo) != $xox(START)} {\n"
-+"	return\n"
-+"    }\n"
-+"    if {$tapwrite} {\n"
-+"	tk7_stop_note_play $b\n"
-+"	return\n"
-+"    }\n"
-+"}\n"
-+"#\n"
-+"# Accept 0->15 to set new current pattern id.\n"
-+"# Also need to light buttons lamp.\n"
-+"#\n"
-+"proc pattern_setid {id} {\n"
-+"	global grid\n"
-+"	global notes\n"
-+"	upvar #0 pattern_list pl\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	lamp_onoff 0 $notes.note$mo(current_pattern).l\n"
-+"	set mo(current_pattern) $id\n"
-+"	lamp_onoff 1 $notes.note$id.l\n"
-+"\n"
-+"	# Clear the grid display & redraw for new pattern\n"
-+"	$grid delete stepnode\n"
-+"	set pg $mo(patgroup)\n"
-+"	set cp $mo(current_pattern)\n"
-+"	for {set k 0} {$k < 16} {incr k} {\n"
-+"		set instruments [tk7_pattern_items $pg $cp $k]\n"
-+"		set properties  [tk7_get_pattern_properties $pg $cp $k]\n"
-+"		set idx 0\n"
-+"		foreach instr $instruments {\n"
-+"	                set prop  [lindex $properties $idx]\n"
-+"			step_draw [expr $k + 1] $instr $prop\n"
-+"			set idx [expr $idx + 1]\n"
-+"		}\n"
-+"	}\n"
-+"	scale_lamps_update\n"
-+"	refresh_comment\n"
-+"}\n"
-+"# Turn a \"lamp\" on or off (1 or 0 for parameter onoff).\n"
-+"# Parameter lamp is a full widget path.\n"
-+"#\n"
-+"proc lamp_onoff {onoff lamp} {\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	switch $onoff {\n"
-+"		0 {\n"
-+"			$lamp configure -bg $xox(col_def_bg)\n"
-+"		}\n"
-+"		1 {\n"
-+"			$lamp configure -bg $xox(col_on)\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"# Respond to change of Track/Pattern controls\n"
-+"#\n"
-+"proc ac_patternmode {rw} {\n"
-+"	global trpa notes tempoinfo\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	# Check if running (can't change mode)\n"
-+"	if {$mo(stopgo) == $xox(START)} {\n"
-+"		return\n"
-+"	}\n"
-+"\n"
-+"	if {$mo(patr) != $xox(PATTERN)} {\n"
-+"		set mo(patr) $xox(PATTERN)\n"
-+"		$tempoinfo itemconfigure tmtitle  -text TEMPO\n"
-+"		$tempoinfo coords tmtitle 1c 0.5c\n"
-+"		trace vdelete mo(current_track) w trackinfo_update\n"
-+"		trace vdelete mo(measure) w measureinfo_update\n"
-+"		$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-+"		trace variable mo(tempo) w tempoinfo_update\n"
-+"	}\n"
-+"\n"
-+"	if {$rw == $xox(WRITE)} {\n"
-+"		set mo(rdrw) $xox(WRITE)\n"
-+"		$trpa.lt configure -text PLAY\n"
-+"		$trpa.lb configure -text \"-> WRITE <-\"\n"
-+"		modeinfo_update 3\n"
-+"	} else {\n"
-+"		set mo(rdrw) [expr $xox(WRITE) - 1]\n"
-+"		$trpa.lt configure -text \"-> PLAY <-\"\n"
-+"		$trpa.lb configure -text \"WRITE\"\n"
-+"		modeinfo_update 2\n"
-+"	}\n"
-+"\n"
-+"	# Show current instrument\n"
-+"	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n"
-+"}\n"
-+"proc ac_trackmode {rw} {\n"
-+"	global trpa notes tempoinfo\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	# Check if running (can't change mode)\n"
-+"	if {$mo(stopgo) == $xox(START)} {\n"
-+"		return\n"
-+"	}\n"
-+"\n"
-+"	if {$mo(patr) != $xox(TRACK)} {\n"
-+"		set mo(patr) $xox(TRACK)\n"
-+"		$tempoinfo itemconfigure tmtitle -text MEASURE\n"
-+"		$tempoinfo coords tmtitle 2.7c 0.5c\n"
-+"		# Go to 1st pattern of new track\n"
-+"		# Trace current measure in track\n"
-+"		trace vdelete mo(tempo) w tempoinfo_update\n"
-+"		trace variable mo(measure) w measureinfo_update\n"
-+"		trace variable mo(current_track) w trackinfo_update\n"
-+"	}\n"
-+"\n"
-+"	if {$rw == $xox(WRITE)} {\n"
-+"		set mo(rdrw) $xox(WRITE)\n"
-+"		$trpa.lt configure -text PLAY\n"
-+"		$trpa.lb configure -text \"-> WRITE <-\"\n"
-+"		modeinfo_update 1\n"
-+"	} else {\n"
-+"		set mo(rdrw) $xox(READ)\n"
-+"		$trpa.lt configure -text \"-> PLAY <-\"\n"
-+"		$trpa.lb configure -text WRITE\n"
-+"		modeinfo_update 0\n"
-+"	}\n"
-+"	set mo(measure) [measure_constrain -1]\n"
-+"	pattern_show\n"
-+"\n"
-+"	# Hide current instrument\n"
-+"	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n"
-+"}\n"
-+"# Toggle display to show tempo or measure\n"
-+"#\n"
-+"proc ac_tempomeasure {} {\n"
-+"	global tempoinfo\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	if {$mo(patr) == $xox(PATTERN)} {\n"
-+"		return\n"
-+"	}\n"
-+"\n"
-+"	if {$mo(showtrack)} {\n"
-+"		set mo(showtrack) false\n"
-+"		$tempoinfo itemconfigure tmtitle  -text TEMPO\n"
-+"		$tempoinfo coords tmtitle 1c 0.5c\n"
-+"#		trace vdelete mo(measure) w trackinfo_update\n"
-+"		trace vdelete mo(measure) w measureinfo_update\n"
-+"		$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-+"		trace variable mo(tempo) w tempoinfo_update\n"
-+"set mo(tempo) $mo(tempo)\n"
-+"	} else {\n"
-+"		set mo(showtrack) true\n"
-+"		$tempoinfo itemconfigure tmtitle -text MEASURE\n"
-+"		$tempoinfo coords tmtitle 2.7c 0.5c\n"
-+"		# Trace current measure in track\n"
-+"		trace vdelete mo(tempo) w tempoinfo_update\n"
-+"		trace variable mo(measure) w measureinfo_update\n"
-+"		trace variable mo(current_track) w trackinfo_update\n"
-+"set mo(measure) $mo(measure)\n"
-+"set mo(current_track) $mo(current_track)\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"\n"
-+"proc ac_stopgo {new} {\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	switch $new {\n"
-+"		0 {\n"
-+"			set mo(stopgo) $xox(STOP)\n"
-+"			set mo(PATTERN_REPEAT) false\n"
-+"			stop_pattern\n"
-+"			set stepcount [tk7_get_last_step $grp $pat]\n"
-+"			cycle_notes 1 0 0 0 $stepcount\n"
-+"		}\n"
-+"		1 {\n"
-+"			if {$new == $mo(stopgo)} {\n"
-+"				return\n"
-+"			}\n"
-+"			if {$mo(patr) == $xox(TRACK)} {\n"
-+"				set mo(TRACK_START) true\n"
-+"			}\n"
-+"\n"
-+"			set mo(stopgo) $xox(START)\n"
-+"\n"
-+"\n"
-+"			# This starts the player!\n"
-+"			set mo(PATTERN_REPEAT) true\n"
-+"		}\n"
-+"		2 {\n"
-+"			if {$mo(patr) == $xox(PATTERN)} {\n"
-+"				set mo(PATTERN_REPEAT) false\n"
-+"				stop_pattern\n"
-+"				set mo(stopgo) $xox(STOP)\n"
-+"			} else {\n"
-+"				if {$mo(stopgo) == $xox(CONT)} {\n"
-+"					set mo(stopgo) $xox(START)\n"
-+"				} else {\n"
-+"					set mo(stopgo) $xox(CONT)\n"
-+"					set mo(PATTERN_REPEAT) false\n"
-+"					stop_pattern\n"
-+"				}\n"
-+"			}\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"# For patterns,\n"
-+"# i = 0->3 Groups\n"
-+"# j = 0->15 Patterns\n"
-+"# k = 0->15 Step divisions, each is a list of note events\n"
-+"#\n"
-+"# For tracks,\n"
-+"# i = 0->3 Tracks, each is a list patterns (16*Group + Pattern)\n"
-+"#\n"
-+"proc mem_init {} {\n"
-+"	upvar #0 pattern_list pl\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	# Patterns\n"
-+"#	for {set i 0} {$i <4} {incr i} {\n"
-+"#		for {set j 0} {$j <16 } {incr j} {\n"
-+"#			for {set k 0} {$k < 16} {incr k} {\n"
-+"#				set pl($i,$j,$k) {}\n"
-+"#			}\n"
-+"#		}\n"
-+"#	}\n"
-+"\n"
-+"	# Tracks\n"
-+"	for {set i 0} {$i <4} {incr i} {\n"
-+"		set tl($i) {}\n"
-+"	}\n"
-+"	\n"
-+"}\n"
-+"\n"
-+"proc ac_group {b} {\n"
-+"	global grps\n"
-+"\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	global comment\n"
-+"\n"
-+"	if {$mo(rdrw) == $xox(WRITE) && $mo(stopgo) == $xox(START)} {\n"
-+"		return\n"
-+"	} else {\n"
-+"		set but_old ${grps}.lt$mo(patgroup).lamp\n"
-+"		set but_new ${grps}.lt${b}.lamp\n"
-+"		$but_old configure -background $xox(lamp_off)\n"
-+"		$but_new configure -background $xox(lamp_on)\n"
-+"		set mo(patgroup) $b\n"
-+"		if {$mo(patr) == $xox(TRACK)} {\n"
-+"			return\n"
-+"		}\n"
-+"		pattern_setid $mo(current_pattern)\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"proc ac_track {b} {\n"
-+"	global tminfo\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	if {$mo(patr) != $xox(TRACK) || $mo(stopgo) == $xox(START)} {\n"
-+"		return\n"
-+"	}\n"
-+"	set mo(current_track) $b\n"
-+"	set mo(measure) [measure_constrain -1]\n"
-+"	pattern_show\n"
-+"}\n"
-+"\n"
-+"proc ac_newinstr {widget} {\n"
-+"	global gridlabel\n"
-+"	global notes\n"
-+"	global font12\n"
-+"	global boldfont13\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	# Check first that we're in PATTERN:WRITE mode\n"
-+"	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n"
-+"		set w $notes.note[expr $mo(current_instr) - 1].instr\n"
-+"		if {[winfo exists $w]} {\n"
-+"			lamp_onoff 0 $w\n"
-+"		}\n"
-+"		return\n"
-+"	}\n"
-+"	# Extract button number from widget path\n"
-+"	# Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-+"	#                                      ^ +5 ^\n"
-+"	set prefix_length [expr [string length $notes] + 5]\n"
-+"	set b [string range [string trimright $widget .b] $prefix_length end]\n"
-+"	lamp_onoff 0 $notes.note[expr $mo(current_instr) - 1].instr\n"
-+"	set mo(current_instr) [expr $b + 1]\n"
-+"	lamp_onoff 1 $notes.note$b.instr\n"
-+"\n"
-+"	$gridlabel itemconfigure selectinstr -font *-${font12}-*\n"
-+"	$gridlabel dtag selectinstr\n"
-+"	$gridlabel itemconfigure ilabel[expr 15 - $b] -font *-${boldfont13}-*\n"
-+"	$gridlabel addtag selectinstr withtag ilabel[expr 15 - $b]\n"
-+"}\n"
-+"\n"
-+"# Change memory cartridge being used\n"
-+"#\n"
-+"proc ac_cartridge {} {\n"
-+"	global accenter\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	if {$mo(patr) != $xox(TRACK)} {\n"
-+"		return\n"
-+"	}\n"
-+"\n"
-+"	set mo(cartridge) [tk7_cartridge_incr]\n"
-+"	#puts \"Cartridge $mo(cartridge)\"\n"
-+"	switch $mo(cartridge) {\n"
-+"		2	{\n"
-+"			$accenter.cart.lamp configure -bg #00ff00\n"
-+"		}\n"
-+"		1	{\n"
-+"			$accenter.cart.lamp configure -bg $xox(lamp_on)\n"
-+"		}\n"
-+"		0	-\n"
-+"		default	{\n"
-+"			$accenter.cart.lamp configure -bg $xox(lamp_off)\n"
-+"		}\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"\n"
-+"# Process Enter button\n"
-+"#\n"
-+"proc ac_accenter {addmode} {\n"
-+"	global accent_label\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	if {$mo(patr) == $xox(PATTERN) && $mo(rdrw) == $xox(WRITE)} {\n"
-+"		set mo(current_accent) [expr ($mo(current_accent)+1) % 3]\n"
-+"		switch $mo(current_accent) {\n"
-+"		    2       {set color $xox(col_strong_accent) }\n"
-+"		    1 	    {set color $xox(col_weak_accent) }\n"
-+"		    default {set color $xox(col_def_bg) }\n"
-+"		}\n"
-+"		$accent_label configure -bg $color\n"
-+"		return\n"
-+"	}\n"
-+"	if {$mo(patr) != $xox(TRACK) || $mo(rdrw) != $xox(WRITE)} {\n"
-+"		return\n"
-+"	}\n"
-+"	# Track Write\n"
-+"	switch $addmode {\n"
-+"		0	{\n"
-+"			# Add/replace current pattern in current track\n"
-+"			#puts \"ADD pattern\"\n"
-+"			set target $mo(measure)\n"
-+"			#puts \"Target measure is $target\"\n"
-+"			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n"
-+"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-+"				#puts \"Adding $pat to Track $mo(current_track)\"\n"
-+"				lappend tl($mo(current_track)) $pat\n"
-+"			} else {\n"
-+"				set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target $pat]\n"
-+"				#puts \"Inserting $pat to Track $mo(current_track)\"\n"
-+"			}\n"
-+"		}\n"
-+"		1	{\n"
-+"			# Insert pattern before current position in track\n"
-+"			#puts \"INSERT pattern\"\n"
-+"			set target $mo(measure)\n"
-+"			#puts \"Target measure is $target\"\n"
-+"			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n"
-+"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-+"			#puts \"Adding $pat to Track $mo(current_track)\"\n"
-+"				lappend tl($mo(current_track)) $pat\n"
-+"			} else {\n"
-+"				set tl($mo(current_track)) [linsert $tl($mo(current_track)) $target $pat]\n"
-+"				#puts \"Inserting $pat to Track $mo(current_track)\"\n"
-+"			}\n"
-+"		}\n"
-+"	}\n"
-+"	# Go to next step\n"
-+"	ac_lastfwd\n"
-+"}\n"
-+"\n"
-+"proc have_fla {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & $xox(flam)];\n"
-+"}\n"
-+"proc have_weak_accent {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & $xox(weak_accent)];\n"
-+"}\n"
-+"proc have_strong_accent {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & $xox(strong_accent)];\n"
-+"}\n"
-+"proc have_zero_velocity {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & $xox(zero_velocity)];\n"
-+"}\n"
-+"proc set_velocity_flag {prop flag} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & (~$xox(velocity_field)) | ($flag & $xox(velocity_field))]\n"
-+"}\n"
-+"proc add_weak_accent {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [set_velocity_flag $prop $xox(weak_accent)]\n"
-+"}\n"
-+"proc add_strong_accent {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [set_velocity_flag $prop $xox(strong_accent)]\n"
-+"}\n"
-+"proc add_zero_velocity {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [set_velocity_flag $prop $xox(zero_velocity)]\n"
-+"}\n"
-+"proc add_default_velocity {prop} {\n"
-+"    upvar #0 tkxox xox\n"
-+"    return [expr $prop & (~$xox(velocity_field))]\n"
-+"}\n"
-+"#\n"
-+"# Draw a step node in the grid canvas.\n"
-+"# Parameters step & inst are expected in 1->16 format (not 0->15).\n"
-+"#\n"
-+"proc step_draw {step inst prop} {\n"
-+"	global grid\n"
-+"    	upvar #0 tkxox xox\n"
-+"\n"
-+"	set x [expr $step / 2.0]\n"
-+"	set y [expr 9.0 - [expr $inst / 2.0]]\n"
-+"	if {[have_strong_accent $prop]} {\n"
-+"	    set color $xox(col_strong_accent)\n"
-+"	} elseif {[have_weak_accent $prop]} {\n"
-+"	    set color $xox(col_weak_accent)\n"
-+"	} elseif {[have_zero_velocity $prop]} {\n"
-+"	    set color $xox(col_zero_velocity)\n"
-+"	} else {\n"
-+"	    set color $xox(col_default_velocity)\n"
-+"	}\n"
-+"	if {[have_fla $prop]} {\n"
-+"	  # draw a star\n"
-+"	  set new [$grid create polygon \\\n"
-+"		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n"
-+"		 [expr $x - (-0.0681818)]c  [expr $y - (0.0681818)]c \\\n"
-+"		 [expr $x - (-0.1875)]c     [expr $y - (0.0681818)]c \\\n"
-+"		 [expr $x - (-0.102273)]c   [expr $y - (-0.0426136)]c \\\n"
-+"		 [expr $x - (-0.127841)]c   [expr $y - (-0.1875)]c \\\n"
-+"		 [expr $x - (-0.00852273)]c [expr $y - (-0.127841)]c \\\n"
-+"		 [expr $x - (0.119318)]c    [expr $y - (-0.1875)]c \\\n"
-+"		 [expr $x - (0.102273)]c    [expr $y - (-0.0511364)]c \\\n"
-+"		 [expr $x - (0.1875)]c      [expr $y - (0.0681818)]c \\\n"
-+"		 [expr $x - (0.0681818)]c   [expr $y - (0.0681818)]c \\\n"
-+"		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n"
-+"		-outline $color \\\n"
-+"		-fill    $color \\\n"
-+"		-tags stepnode]\n"
-+"	} else {\n"
-+"	  # draw a circle\n"
-+"	    set new [$grid create oval \\\n"
-+"		[expr $x - 0.1875]c [expr $y - 0.1875]c	\\\n"
-+"		[expr $x + 0.1875]c [expr $y + 0.1875]c \\\n"
-+"		-outline black \\\n"
-+"		-fill    $color \\\n"
-+"		-tags stepnode]\n"
-+"	}\n"
-+"	$grid addtag ${step}_instr$inst withtag $new\n"
-+"}\n"
-+"#\n"
-+"# Insert given step into current pattern with specified properties\n"
-+"#\n"
-+"proc step_insert {step prop} {\n"
-+"	global grid\n"
-+"	global tapwrite\n"
-+"\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 pattern_list pl\n"
-+"\n"
-+"	#puts \"Inserting $mo(current_instr) at step $step into bank $mo(patgroup), pattern $mo(current_pattern)\"\n"
-+"	# First check for duplicates (=> remove)\n"
-+"	set pg   $mo(patgroup)\n"
-+"	set cp   $mo(current_pattern)\n"
-+"	set note $mo(current_instr)\n"
-+"	if {[tk7_add_note $pg $cp $step $note]} {\n"
-+"		tk7_set_properties $pg $cp $step $note $prop\n"
-+"		step_draw [expr $step + 1] $mo(current_instr) $prop\n"
-+"		#puts \"added note\"\n"
-+"	} else {\n"
-+"		$grid delete [expr $step + 1]_instr$mo(current_instr)\n"
-+"		#puts \"deleted note\"\n"
-+"	}\n"
-+"}\n"
-+"#\n"
-+"# ClearGrid Display Area\n"
-+"#\n"
-+"proc grid_clear {} {\n"
-+"	global grid\n"
-+"\n"
-+"	# Vertical lines\n"
-+"	set xcoord 0.0\n"
-+"	for {set i 0} {$i < 16} {incr i} {\n"
-+"		set xcoord [expr $xcoord + 0.5]\n"
-+"		$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n"
-+"	}\n"
-+"	# Horizontal lines\n"
-+"	set ycoord 0.5\n"
-+"	for {set i 0} {$i < 16} {incr i} {\n"
-+"		set ycoord [expr $ycoord + 0.5]\n"
-+"		$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n"
-+"	}\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# Load sound map\n"
-+"# -----------------------------------------------------------------------------\n"
-+"set last_map_file_name \"\";\n"
-+"\n"
-+"proc load_sound_map {initialdir} {\n"
-+"\n"
-+"	# From TK-707 version 0.6, the format of .map files is changed\n"
-+"	#	(they now include also abbreviation information, for volume labels).\n"
-+"	# New format is recognized by number of saved data segments (4 rather than 3).\n"
-+"\n"
-+"	upvar #0 sound snd\n"
-+"	upvar #0 last_map_file_name last_map_file_name\n"
-+"\n"
-+"	set ftypes	{\n"
-+"		{{TK707 Sound Map} {.map}}\n"
-+"		{{All types} {.*}}\n"
-+"	}\n"
-+"	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir ]\n"
-+"\n"
-+"	if {$fname == \"\"} {\n"
-+"		return\n"
-+"	}\n"
-+"	set last_map_file_name [lindex [split $fname /] end];\n"
-+"\n"
-+"	set f [open $fname r]\n"
-+"	set data \"\"\n"
-+"	set i 1\n"
-+"	while {[gets $f line] >= 0} {\n"
-+"		if {[string index $line 0] == \"#\"} {\n"
-+"			continue\n"
-+"		}\n"
-+"		set data [lindex $line 0]\n"
-+"		set datasegs [llength $data]\n"
-+"		set snd($i,name) [lindex $data 0]\n"
-+"		set snd($i,shortname) [lindex $data 1]\n"
-+"		if {$datasegs == 4} {\n"
-+"		    set snd($i,abbrev) [lindex $data 2]\n"
-+"		    set snd($i,note) [lindex $data 3]\n"
-+"		} else {\n"
-+"		    # we could set a better algo to abbrev\n"
-+"		    set snd($i,abbrev) $snd($i,shortname)\n"
-+"		    set snd($i,note) [lindex $data 2]\n"
-+"		}\n"
-+"		incr i\n"
-+"	}\n"
-+"	close $f\n"
-+"\n"
-+"	# Reset Name Displays\n"
-+"	instrument_label_reset\n"
-+"	tk7_set_sounds\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# Save sound map\n"
-+"# -----------------------------------------------------------------------------\n"
-+"proc save_sound_map {} {\n"
-+"\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 sound snd\n"
-+"	upvar #0 last_map_file_name last_map_file_name\n"
-+"\n"
-+"	set ftypes	{\n"
-+"		{{TK707 Sound Map} {.map}}\n"
-+"		{{All types} {.*}}\n"
-+"	}\n"
-+"	#puts \"last_map_file_name before: $last_map_file_name\"\n"
-+"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_map_file_name]\n"
-+"	if {$fname == \"\"} {\n"
-+"		return\n"
-+"	}\n"
-+"	set last_map_file_name [lindex [split $fname /] end];\n"
-+"\n"
-+"	set f [open $fname w]\n"
-+"	puts $f \"#################  TK707 Sound Map generated by $xox(VERSION)  #################\"\n"
-+"	puts $f \"# Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }\"\n"
-+"	puts $f \"############################################################################\"\n"
-+"	for {set i 1} {$i < 17} {incr i} {\n"
-+"		puts $f \"{ {$snd($i,name)} {$snd($i,shortname)} {$snd($i,abbrev)} {$snd($i,note)} }\"\n"
-+"	}\n"
-+"	close $f\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# Load data file\n"
-+"# -----------------------------------------------------------------------------\n"
-+"set last_data_file_name \"\";\n"
-+"\n"
-+"proc load_data_file {initialdir} {\n"
-+"\n"
-+"	# From TK-707 version 0.7, the format of .dat files is changed\n"
-+"	#	(they now include also note properties information).\n"
-+"	# New format is recognized by number of saved data segments (5 rather than 2, 3 or 4).\n"
-+"	# They are:\n"
-+"	#	segment 0: pattern note data\n"
-+"	#	segment 1: pattern note properties\n"
-+"	#	segment 2: pattern {length,scale,flam,shuffle} properties\n"
-+"	#	segment 3: track data\n"
-+"\n"
-+"	# From TK-707 version 0.6, the format of .dat files is changed\n"
-+"	#	(they now include also pattern scale information).\n"
-+"	# New format is recognized by number of saved data segments (4 rather than 2 or 3).\n"
-+"	# They are:\n"
-+"	#	segment 0: pattern note data\n"
-+"	#	segment 1: pattern length data\n"
-+"	#	segment 2: pattern scale data\n"
-+"	#	segment 3: track data\n"
-+"\n"
-+"	# From TK-707 version 0.5, the format of .dat files is changed\n"
-+"	#	(they now include pattern length information).\n"
-+"	# New format is recognized by number of saved data segments (3 rather than 2).\n"
-+"	# They are:\n"
-+"	#	segment 0: pattern note data\n"
-+"	#	segment 1: pattern length data\n"
-+"	#	segment 2: track data\n"
-+"\n"
-+"	upvar #0 track_list tl\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 last_data_file_name last_data_file_name\n"
-+"\n"
-+"	set ftypes	{\n"
-+"		{{TK-707 Data} {.dat}}\n"
-+"		{{All types} {.*}}\n"
-+"	}\n"
-+"	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir]\n"
-+"	if {$fname == \"\"} {\n"
-+"		return\n"
-+"	}\n"
-+"	set last_data_file_name [lindex [split $fname /] end];\n"
-+"	#puts \"LOAD last_data_file_name $last_data_file_name\"\n"
-+"\n"
-+"	set f [open $fname r]\n"
-+"	set data \"\"\n"
-+"	while {[gets $f line] >= 0} {\n"
-+"		if {[string index $line 0] == \"#\"} {\n"
-+"			continue\n"
-+"		}\n"
-+"		set data \"$data [string trim $line]\"\n"
-+"	}\n"
-+"	close $f\n"
-+"\n"
-+"	# ----------------------------------\n"
-+"	# find format version from structure\n"
-+"	# ----------------------------------\n"
-+"	set datasegs [llength [lindex $data 0]]\n"
-+"	set data_version \"unknown\";\n"
-+"	if {$datasegs == 2} {\n"
-+"	    set data_version 2;\n"
-+"	} elseif {$datasegs == 3} {\n"
-+"	    set data_version 5;\n"
-+"	} elseif {$datasegs == 4} {\n"
-+"	    set segment2 [lindex [lindex $data 0] 2]\n"
-+"	    set n_seg2_level2 [llength [lindex [lindex $segment2 0] 0]]\n"
-+"	    if {$n_seg2_level2 == 1} {\n"
-+"	        set data_version 6;\n"
-+"	    } elseif {$n_seg2_level2 >= 4} {\n"
-+"	        set data_version 7;\n"
-+"	    }\n"
-+"	}\n"
-+"	#puts \"data_version $data_version\"\n"
-+"	if {$data_version == \"unknown\"} {\n"
-+"	    puts \"ERROR: ${fname}: unexpected data format\";\n"
-+"	    return;\n"
-+"	}\n"
-+"	# ----------------------------------\n"
-+"	# load segments\n"
-+"	# ----------------------------------\n"
-+"	set loadsegment 0\n"
-+"	tk7_clear_tree\n"
-+"	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Pattern data\n"
-+"	set i 0\n"
-+"	foreach bankdata $pdata {\n"
-+"		set j 0\n"
-+"		foreach patterndata $bankdata {\n"
-+"			set k 0\n"
-+"			foreach stepdata $patterndata {\n"
-+"				if {[llength $stepdata] > 0} {\n"
-+"					foreach n $stepdata {\n"
-+"						tk7_add_note $i $j $k $n\n"
-+"					}\n"
-+"				}\n"
-+"				incr k\n"
-+"			}\n"
-+"			incr j\n"
-+"		}\n"
-+"		incr i\n"
-+"	}\n"
-+"	incr loadsegment\n"
-+"\n"
-+"	if {$data_version >= 7} {\n"
-+"	    # format version 0.7 includes note properties: flam, accents, etc...\n"
-+"	    set p_prop [lindex [lindex $data 0] $loadsegment]	;	#Pattern note properties\n"
-+"	    set p_data [lindex [lindex $data 0] 0]\n"
-+"	    set i 0\n"
-+"	    foreach bank_prop $p_prop {\n"
-+"	        set bank_data [lindex $p_data $i]\n"
-+"		set j 0\n"
-+"		foreach pattern_prop $bank_prop {\n"
-+"	            set pattern_data [lindex $bank_data $j]\n"
-+"		    set k 0\n"
-+"		    foreach step_prop $pattern_prop {\n"
-+"	                set step_data [lindex $pattern_data $k]\n"
-+"			if {[llength $step_prop] > 0} {\n"
-+"			    set idx_n 0\n"
-+"			    foreach p $step_prop {\n"
-+"	                        set n [lindex $step_data $idx_n]\n"
-+"			        tk7_set_properties $i $j $k $n $p\n"
-+"		        	incr idx_n\n"
-+"			    }\n"
-+"			}\n"
-+"		        incr k\n"
-+"		    }\n"
-+"		    incr j\n"
-+"		}\n"
-+"		incr i\n"
-+"	    }\n"
-+"	    incr loadsegment\n"
-+"	}\n"
-+"	pattern_setid $mo(current_pattern)\n"
-+"\n"
-+"	if {$data_version >= 5} {\n"
-+"		# format version 0.5 and 0.6 includes length info.\n"
-+"	    	# format version 0.7 includes {length,scale,flam,shuffle} infos.\n"
-+"		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step length data\n"
-+"		set grp 0\n"
-+"		foreach grpdata $pdata {\n"
-+"			set pat 0\n"
-+"			foreach pldata $grpdata {\n"
-+"				if {$data_version >= 7} {\n"
-+"				    # from TK-707 version 0.7: {length,scale,flam,shuffle} infos.\n"
-+"				    tk7_set_last_step $grp $pat [lindex $pldata 0]\n"
-+"				    tk7_set_scale     $grp $pat [lindex $pldata 1]\n"
-+"				    tk7_set_flam      $grp $pat [lindex $pldata 2]\n"
-+"				    tk7_set_shuffle   $grp $pat [lindex $pldata 3]\n"
-+"				    if {[llength $pldata] >= 5} {\n"
-+"				      tk7_set_pattern_comment  $grp $pat [lindex $pldata 4]\n"
-+"				    }\n"
-+"				} else {\n"
-+"				    # TK-707 version 0.5 and 0.6: step length info.\n"
-+"				    tk7_set_last_step $grp $pat $pldata\n"
-+"				}\n"
-+"				incr pat\n"
-+"			}\n"
-+"			incr grp\n"
-+"		}\n"
-+"		incr loadsegment\n"
-+"	}\n"
-+"	if {$data_version == 6} {\n"
-+"		# format version 0.6 includes step scale info.\n"
-+"		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step scale data\n"
-+"		set grp 0\n"
-+"		foreach grpdata $pdata {\n"
-+"			set pat 0\n"
-+"			foreach pldata $grpdata {\n"
-+"				set scaleresult  [tk7_set_scale $grp $pat $pldata]\n"
-+"				incr pat\n"
-+"			}\n"
-+"			incr grp\n"
-+"		}\n"
-+"		incr loadsegment\n"
-+"	}\n"
-+"	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Track data\n"
-+"	set i 0\n"
-+"	foreach trackdata $pdata {\n"
-+"		#puts $trackdata\n"
-+"		set tl($i) [join $trackdata]\n"
-+"		incr i\n"
-+"	}\n"
-+"	ac_track 0\n"
-+"	pattern_show\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# Save data file\n"
-+"# -----------------------------------------------------------------------------\n"
-+"proc reverse {l1} {\n"
-+"    set n  [llength $l1]\n"
-+"    set l2 {}\n"
-+"    for {set i [expr $n - 1]} {$i >= 0} {set i [expr $i - 1]} {\n"
-+"        lappend l2 [lindex $l1 $i]\n"
-+"    }\n"
-+"    return $l2\n"
-+"}\n"
-+"proc save_data_file {} {\n"
-+"\n"
-+"	upvar #0 pattern_list pl\n"
-+"	upvar #0 track_list tl\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 last_data_file_name last_data_file_name\n"
-+"\n"
-+"	set ftypes	{\n"
-+"		{{TK-707 Data} {.dat}}\n"
-+"		{{All types} {.*}}\n"
-+"	}\n"
-+"	#puts \"PREV last_data_file_name $last_data_file_name\"\n"
-+"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_data_file_name]\n"
-+"	if {$fname == \"\"} {\n"
-+"		return\n"
-+"	}\n"
-+"	set last_data_file_name [lindex [split $fname /] end];\n"
-+"	#puts \"NEW last_data_file_name $last_data_file_name\"\n"
-+"\n"
-+"	set f [open $fname w]\n"
-+"	puts $f \"####################### MACHINE GENERATED - DO NOT EDIT #######################\"\n"
-+"	puts $f \"####   TK707 Data file generated by $xox(VERSION)\"\n"
-+"	puts $f \"###############################################################################\"\n"
-+"	puts $f \"{\"							;	# Begin DATA\n"
-+"\n"
-+"	# PATTERN NOTES. Four groups of 16 patterns each with 16 steps.\n"
-+"	puts $f \" {\"							;	# Begin PATTERNS\n"
-+"	for {set i 0} {$i<4} {incr i} {\n"
-+"	    puts $f \"  {\"						;	# Begin GROUP i\n"
-+"	    for {set j 0} {$j<16} {incr j} {\n"
-+"		puts $f \"   {\"						;	# Begin PATTERN j\n"
-+"		for {set k 0} {$k<16} {incr k} {\n"
-+"		    set instruments [tk7_pattern_items $i $j $k]\n"
-+"		    set instruments [reverse $instruments]\n"
-+"		    puts $f \"    { $instruments }\"\n"
-+"		}\n"
-+"		puts $f \"   }\"						;	# End PATTERN j\n"
-+"	    }\n"
-+"	    puts $f \"  }\"						;	# End GROUP i\n"
-+"	}\n"
-+"	puts $f \" }\"							;	# End PATTERNS\n"
-+"\n"
-+"	# PATTERN NOTES PROPERTIES. Four groups of 16 patterns each with 16 steps.\n"
-+"	puts $f \" {\"							;	# Begin PATTERNS\n"
-+"	for {set i 0} {$i<4} {incr i} {\n"
-+"	    puts $f \"  {\"						;	# Begin GROUP i\n"
-+"	    for {set j 0} {$j<16} {incr j} {\n"
-+"		puts $f \"   {\"						;	# Begin PATTERN j\n"
-+"		for {set k 0} {$k<16} {incr k} {\n"
-+"		    set properties [tk7_get_pattern_properties $i $j $k]\n"
-+"		    set properties [reverse $properties]\n"
-+"		    puts $f \"    { $properties }\"\n"
-+"		}\n"
-+"		puts $f \"   }\"						;	# End PATTERN j\n"
-+"	    }\n"
-+"	    puts $f \"  }\"						;	# End GROUP i\n"
-+"	}\n"
-+"	puts $f \" }\"							;	# End PATTERNS\n"
-+"\n"
-+"	# PATTERN PROPERTIES. Four lots of sixteen 4-lists. New from TK-707 version 0.7\n"
-+"	puts $f  \" {\"							;	# Begin PATTERN PROPERTIES\n"
-+"	for {set i 0} {$i<4} {incr i} {\n"
-+"		set pat_props [tk7_group_pattern_properties $i]		; 	# Group step lengths \n"
-+"		puts $f \"  { $pat_props }\"				; 	# Group step lengths \n"
-+"	}\n"
-+"	puts $f  \" }\"							;	# End PATTERN PROPERTIES\n"
-+"\n"
-+"	# TRACK DATA. Four tracks of arbitrary length.\n"
-+"	puts $f \" {\"							;	# Begin TRACKS\n"
-+"	for {set i 0} {$i<4} {incr i} {\n"
-+"		puts $f \"  { $tl($i) }\"					;	# TRACK i data\n"
-+"	}\n"
-+"	puts $f \" }\"							;	# End TRACKS\n"
-+"	puts $f \"}\"							;	# End DATA\n"
-+"	close $f\n"
-+"}\n"
-+"# --------------------\n"
-+"# compute the velocity\n"
-+"# --------------------\n"
-+"# velocity range is 0..127 as integer\n"
-+"# volume   range is 0..1   as float\n"
-+"proc compute_velocity {prop volume_master volume_accent volume_instr} {\n"
-+"\n"
-+"    if {[have_zero_velocity $prop]} {\n"
-+"	set velocity_factor 0\n"
-+"    } else {\n"
-+"    	set velocity_factor 1\n"
-+"    }\n"
-+"    if {[have_strong_accent $prop]} {\n"
-+"	set accent_factor 1\n"
-+"    } elseif {[have_weak_accent $prop]} {\n"
-+"	set accent_factor 2/3.0\n"
-+"    } else {\n"
-+"	set accent_factor 1/3.0\n"
-+"    }\n"
-+"    set volume_note [expr  $volume_master \\\n"
-+"	     	     	  *$velocity_factor*$volume_instr \\\n"
-+"		      	  *$accent_factor*$volume_accent]\n"
-+"    set velocity [expr int(127 * $volume_note + 0.5)]\n"
-+"    return $velocity\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# Save midi file - current track\n"
-+"# -----------------------------------------------------------------------------\n"
-+"\n"
-+"set last_midi_file_name \"\";\n"
-+"set prev_data_file_name \"\";\n"
-+"\n"
-+"proc put_note {f tick_shift midinote velocity} {\n"
-+"    if {$tick_shift > 127} {\n"
-+"        varlen_short shortres $tick_shift\n"
-+"	puts -nonewline $f [binary format c2 [list $shortres(high) $shortres(low)]]\n"
-+"	set size 2\n"
-+"    } else {\n"
-+"        puts -nonewline $f [binary format c1 $tick_shift]\n"
-+"	set size 1\n"
-+"    }\n"
-+"    puts -nonewline $f [binary format c2 [list $midinote $velocity]]\n"
-+"    return [expr $size + 2]\n"
-+"}\n"
-+"proc put_note_off {f tick_shift midinote} {\n"
-+"    return [put_note $f $tick_shift $midinote 0]\n"
-+"}\n"
-+"proc save_midi_file {} {\n"
-+"	global cunit\n"
-+"	global masterv\n"
-+"\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 sound snd\n"
-+"	upvar #0 track_list tl\n"
-+"	upvar #0 has_delay has_delay\n"
-+"	upvar #0 last_midi_file_name last_midi_file_name\n"
-+"	upvar #0 last_data_file_name last_data_file_name\n"
-+"	upvar #0 prev_data_file_name prev_data_file_name\n"
-+"	upvar #0 instrument_to_volume instrument_to_volume\n"
-+"\n"
-+"	if {    ($last_data_file_name != \"\")\n"
-+"	    && (($prev_data_file_name == \"\") ||\n"
-+"	        ($prev_data_file_name != $last_data_file_name)) } {\n"
-+"\n"
-+"	    # build a predefined name:\n"
-+"	    set x [lindex [split $last_data_file_name .] 0];\n"
-+"	    set t $mo(current_track)\n"
-+"	    set last_midi_file_name \"${x}-track${t}.mid\"\n"
-+"	}\n"
-+"	set ftypes	{\n"
-+"		{{Midi File Format} {.mid}}\n"
-+"		{{All types} {.*}}\n"
-+"	}\n"
-+"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_midi_file_name]\n"
-+"	if {$fname == \"\"} {\n"
-+"	    return\n"
-+"	}\n"
-+"	set last_midi_file_name [lindex [split $fname /] end];\n"
-+"	set prev_data_file_name $last_data_file_name\n"
-+"\n"
-+"	set thirty_second_note_on_ratio 5; 	# customize the ratio !\n"
-+"						# ex1: ratio=3\n"
-+"						# => 1/3 note-on\n"
-+"						#    2/3 note-off, for a thirty-second \n"
-+"						# ex2: ratio=16\n"
-+"						# => 1/16 note-on, 15/16 note-off\n"
-+"						# ex3: ratio=1\n"
-+"						# => 100 % note-on; not for percussions...\n"
-+"\n"
-+"	set tick_per_note_on            3; 	# how long, in ticks, the note is on\n"
-+"						# DO NOT change ! because we may divide \n"
-+"						# it per 3 quarters and eigth later...\n"
-+"\n"
-+"	set tick_per_thirty_second      [expr  $thirty_second_note_on_ratio*$tick_per_note_on];\n"
-+"	set tick_per_quarter            [expr  8*$tick_per_thirty_second];\n"
-+"\n"
-+"	# steps are in two parts:\n"
-+"	#	a note-on part, which have a duration independant of the scale (a hit)\n"
-+"	#	a note-off part, which depend on the scale:\n"
-+"\n"
-+"	# scale(0): 1 step = quarter/4\n"
-+"        set tick_per_step_off_scale(0) [expr $tick_per_quarter/4 - $tick_per_note_on];\n"
-+"\n"
-+"	# scale(1): 1 step = quarter/8\n"
-+"        set tick_per_step_off_scale(1) [expr $tick_per_quarter/8 - $tick_per_note_on];\n"
-+"\n"
-+"	# scale(2): 1 step = quarter/3\n"
-+"        set tick_per_step_off_scale(2) [expr $tick_per_quarter/3 - $tick_per_note_on];\n"
-+"\n"
-+"	# scale(3): 1 step = quarter/6\n"
-+"        set tick_per_step_off_scale(3) [expr $tick_per_quarter/6 - $tick_per_note_on];\n"
-+"\n"
-+"	# ex1: ratio=3\n"
-+"	#     => tick_per_step_off_scale = {15   6  21   9}\n"
-+"	# ex1: ratio=16\n"
-+"	#     => tick_per_step_off_scale = {93   45  125   61}\n"
-+"	#        the grid is finer and the result is better\n"
-+"	# ex3: ratio=1\n"
-+"	#     => tick_per_step_off_scale = {3, 0, 5, 1}, as expected.\n"
-+"	#	 as expected, the thirty-second has no note-off part...\n"
-+"\n"
-+"	#\n"
-+"	# get volumes:\n"
-+"	#\n"
-+"	set volume_master [expr [$masterv.sf.s get] / 100.0]\n"
-+"	#puts \"volume_master $volume_master\"\n"
-+"	set volume_accent [expr [$cunit.0.sf.s get] / 100.0]\n"
-+"	#puts \"volume_accent $volume_accent\"\n"
-+"	set volume_set {}\n"
-+"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-+"	    set i_vol $instrument_to_volume($instrument)\n"
-+"	    set volume($instrument) [expr [$cunit.${i_vol}.sf.s get] / 100.0]\n"
-+"	    #puts \"volume($instrument) $volume($instrument)\"\n"
-+"	}\n"
-+"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-+"	    set in_note($instrument) 0;\n"
-+"	}\n"
-+"	set f [open $fname w]\n"
-+"	puts -nonewline $f MThd\n"
-+"	puts -nonewline $f [binary format I 6]\n"
-+"	puts -nonewline $f [binary format S 0]\n"
-+"	puts -nonewline $f [binary format S 1]\n"
-+"	puts -nonewline $f [binary format S $tick_per_quarter]\n"
-+"	puts -nonewline $f MTrk\n"
-+"	set loc_tracksize 18\n"
-+"	puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n"
-+"\n"
-+"	# Meta Event to set track tempo\n"
-+"	set micro_tempo [expr 60000000 / $mo(tempo)]\n"
-+"	puts -nonewline $f [binary format c7 [list 0 255 81 3 [expr $micro_tempo >> 16] [expr $micro_tempo >> 8] $micro_tempo]]\n"
-+"	set tracksize 7\n"
-+"\n"
-+"	# Establish running status with a zero volume note\n"
-+"	puts -nonewline $f [binary format c4 [list 0 [expr 144 + $mo(midi_channel)] 17 0]]\n"
-+"	incr tracksize 4\n"
-+"\n"
-+"	set track $tl($mo(current_track))\n"
-+"	set tick_shift 0\n"
-+"	foreach patid $track {\n"
-+"	    set group     [expr $patid / 16]\n"
-+"	    set pattern   [expr $patid % 16]\n"
-+"	    set last_step [tk7_get_last_step $group $pattern]\n"
-+"	    set scale     [tk7_get_scale $group $pattern]\n"
-+"	    set step 0\n"
-+"	    while {$step < $last_step} {\n"
-+"		set instrument_set [tk7_pattern_items          $group $pattern $step]\n"
-+"		set property_set   [tk7_get_pattern_properties $group $pattern $step]\n"
-+"		set idx 0\n"
-+"		foreach instrument $instrument_set {\n"
-+"		    if {$instrument == \"\"} {\n"
-+"			#puts \"EMPTY instrument ?? idx = $idx\"\n"
-+"		        incr idx\n"
-+"			continue;\n"
-+"		    }\n"
-+"		    # ------------\n"
-+"		    # start a note\n"
-+"		    # ------------\n"
-+"		    set midinote $snd($instrument,note)\n"
-+"    		    set prop [lindex $property_set $idx]\n"
-+"		    set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n"
-+"		    incr tracksize [put_note $f $tick_shift $midinote $velocity]\n"
-+"		    set tick_shift 0\n"
-+"		    if {! $has_delay($instrument) && ! [have_zero_velocity $prop]} {\n"
-+"			# start a note without delay\n"
-+"		        set in_note($instrument) 1\n"
-+"		    }\n"
-+"		    incr idx\n"
-+"		}\n"
-+"		set flam_interval [tk7_get_flam $group $pattern]\n"
-+"		set tick_per_flam [expr $xox(tick_flam_duration) * $flam_interval]\n"
-+"		incr tick_shift $tick_per_flam\n"
-+"		if {$flam_interval != 0} {\n"
-+"		    set idx 0\n"
-+"		    foreach instrument $instrument_set {\n"
-+"		        if {$instrument == \"\"} {\n"
-+"			    continue;\n"
-+"		        }\n"
-+"	  	        set prop [lindex $property_set $idx]\n"
-+"		        if {! [have_fla $prop]} {\n"
-+"			    continue;\n"
-+"		        }\n"
-+"		        # ----------------------\n"
-+"		        # write a fla note\n"
-+"		        # ----------------------\n"
-+"		        set midinote $snd($instrument,note)\n"
-+"    		        set prop [lindex $property_set $idx]\n"
-+"		        set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n"
-+"		        incr tracksize [put_note $f $tick_shift $midinote $velocity]\n"
-+"		        set tick_shift 0\n"
-+"		        incr idx\n"
-+"		    }\n"
-+"		}\n"
-+"		incr tick_shift [expr $tick_per_note_on - $tick_per_flam]\n"
-+"		foreach instrument $instrument_set {\n"
-+"		    if {$instrument == \"\"} {\n"
-+"			continue;\n"
-+"		    }\n"
-+"		    if {! $has_delay($instrument)} {\n"
-+"			continue;\n"
-+"		    }\n"
-+"		    # ----------------------\n"
-+"		    # stop a note with delay\n"
-+"		    # ----------------------\n"
-+"		    set midinote $snd($instrument,note)\n"
-+"		    incr tracksize [put_note_off $f $tick_shift $midinote]\n"
-+"		    set tick_shift 0\n"
-+"		}\n"
-+"		incr tick_shift $tick_per_step_off_scale($scale)\n"
-+"\n"
-+"		incr step\n"
-+"	    }\n"
-+"	}\n"
-+"	# stop current long notes on (whistle, etc...)\n"
-+"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-+"\n"
-+"		if {$in_note($instrument)} {\n"
-+"\n"
-+"		 #puts \"stop instrument $instrument\";\n"
-+"\n"
-+"		 set midinote $snd($instrument,note)\n"
-+"		 incr tracksize [put_note_off $f $tick_shift $midinote]\n"
-+"		 set tick_shift 0\n"
-+"	    }\n"
-+"	}\n"
-+"	# End of track\n"
-+"	puts -nonewline $f [binary format c 0]\n"
-+"	puts -nonewline $f [binary format c3 {255 47 0}]\n"
-+"	incr tracksize 4\n"
-+"\n"
-+"	# Go back and insert tracksize\n"
-+"	flush $f\n"
-+"	seek $f $loc_tracksize\n"
-+"	puts -nonewline $f [binary format I $tracksize]\n"
-+"	close $f\n"
-+"}\n"
-+"# -----------------------------------------------------------------------------\n"
-+"# fileMidi - TEST area\n"
-+"# -----------------------------------------------------------------------------\n"
-+"proc fileAction {a} {\n"
-+"	upvar #0 pattern_list pl\n"
-+"	upvar #0 track_list tl\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	if {$a == 99} {\n"
-+"		set ftypes	{\n"
-+"			{{Midi File Format} {.mid}}\n"
-+"			{{All types} {.*}}\n"
-+"		}\n"
-+"		set fname [tk_getSaveFile -filetypes $ftypes]\n"
-+"		if {$fname == \"\"} {\n"
-+"			return\n"
-+"		}\n"
-+"		set f [open $fname w]\n"
-+"\n"
-+"		puts -nonewline $f MThd\n"
-+"		puts -nonewline $f [binary format I 6]\n"
-+"		puts -nonewline $f [binary format S 0]\n"
-+"		puts -nonewline $f [binary format S 1]\n"
-+"		puts -nonewline $f [binary format S 7]\n"
-+"		puts -nonewline $f MTrk\n"
-+"		set loc_tracksize 18\n"
-+"		puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n"
-+"\n"
-+"		puts -nonewline $f [binary format c2 [list 0 [expr 144 + $mo(midi_channel)]]]\n"
-+"\n"
-+"		# Once running status is established, format is\n"
-+"		# {note onlevel pause note offlevel pause}\n"
-+"		puts -nonewline $f [binary format c12 {35 127 0 51 127 2 35 0 0 51 0 4}]\n"
-+"		puts -nonewline $f [binary format c6 {48 127 2 48 0 4}]\n"
-+"		puts -nonewline $f [binary format c6 {38 127 2 38 0 4}]\n"
-+"		puts -nonewline $f [binary format c6 {51 127 2 51 0 4}]\n"
-+"\n"
-+"		# End of track\n"
-+"		puts -nonewline $f [binary format c3 {255 47 0}]\n"
-+"\n"
-+"		set tracksize 35\n"
-+"		# Go back and insert tracksize\n"
-+"		flush $f\n"
-+"		seek $f $loc_tracksize\n"
-+"		puts -nonewline $f [binary format I $tracksize]\n"
-+"		close $f\n"
-+"	} else {\n"
-+"		puts \"INTERNAL ERROR: Unexected file action: $a\"\n"
-+"	}\n"
-+"}\n"
-+"proc varlen_short {result value} {\n"
-+"	upvar $result res\n"
-+"\n"
-+"	if {$value < 128} {\n"
-+"		set res(high) 0\n"
-+"		set res(low) $value\n"
-+"	} else {\n"
-+"		set res(high) [expr 128 + [expr $value / 128]]\n"
-+"#		set res(high) [expr 65536 + [expr $value / 128]]\n"
-+"		set res(low) [expr $value % 128]\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"#=============================================================\n"
-+"# These procs to edit mapping of note keys to midi note values\n"
-+"#\n"
-+"proc map_edit {} {\n"
-+"	global font12\n"
-+"	global boldfont12\n"
-+"	upvar #0 sound snd\n"
-+"	upvar #0 soundbuf sbuf\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	if {[winfo exists .edit]} {\n"
-+"		wm deiconify .edit\n"
-+"	} else {\n"
-+"		toplevel .edit\n"
-+"		wm title .edit \"Edit Sound Map\"\n"
-+"\n"
-+"		set m_titles .edit.t\n"
-+"		canvas $m_titles -height 0.75c -width 13.5c -relief raised -borderwidth 2\n"
-+"		pack $m_titles\n"
-+"		set m_maps .edit.m\n"
-+"		frame $m_maps\n"
-+"		pack $m_maps\n"
-+"		set m_opts	.edit.o\n"
-+"		canvas $m_opts -height 1.5c -width 13.5c\n"
-+"		pack $m_opts\n"
-+"\n"
-+"		label $m_titles.key    -text \"Key\"        -font *-${boldfont12}-*\n"
-+"		label $m_titles.long   -text \"Long Name\"  -font *-${boldfont12}-*\n"
-+"		label $m_titles.short  -text \"Short Name\" -font *-${boldfont12}-*\n"
-+"		label $m_titles.abbrev -text \"Abbrev\"     -font *-${boldfont12}-*\n"
-+"		label $m_titles.note   -text \"Note\"       -font *-${boldfont12}-*\n"
-+"		label $m_titles.test   -text \"Test\"       -font *-${boldfont12}-*\n"
-+"		$m_titles create window  0c   0.45c -window $m_titles.key    -anchor w -width 1c\n"
-+"		$m_titles create window  1c   0.45c -window $m_titles.long   -anchor w -width 4c\n"
-+"		$m_titles create window  5.3c 0.45c -window $m_titles.short  -anchor w -width 2c\n"
-+"		$m_titles create window  7.5c 0.45c -window $m_titles.abbrev -anchor w -width 2c\n"
-+"		$m_titles create window 10.0c 0.45c -window $m_titles.note   -anchor w -width 1c\n"
-+"		$m_titles create window 11.7c 0.45c -window $m_titles.test   -anchor w -width 1c\n"
-+"\n"
-+"		# Name, Shortname, Midi note entries\n"
-+"		#\n"
-+"		for {set i 0} {$i < 16} {incr i} {\n"
-+"			canvas $m_maps.$i -height 1c -width 13.5c\n"
-+"			label $m_maps.$i.l -text [expr $i + 1] -font *-${font12}-*\n"
-+"			entry $m_maps.$i.long  -font *-${font12}-*\n"
-+"			entry $m_maps.$i.short  -font *-${font12}-*\n"
-+"			entry $m_maps.$i.abbrev  -font *-${font12}-*\n"
-+"			entry $m_maps.$i.note  -font *-${font12}-*\n"
-+"			button $m_maps.$i.test \\\n"
-+"				-bitmap nix \\\n"
-+"				-bg $xox(but_grey) \\\n"
-+"				-activebackground $xox(but_grey_active) \\\n"
-+"				-width 1.0c -height 0.7c\n"
-+"\n"
-+"			$m_maps.$i create window 0c   0.5c -window $m_maps.$i.l 	 -anchor w -width 1c\n"
-+"			$m_maps.$i create window 1c   0.5c -window $m_maps.$i.long -anchor w -width 4c\n"
-+"			$m_maps.$i create window 5c   0.5c -window $m_maps.$i.short -anchor w -width 2.5c\n"
-+"			$m_maps.$i create window 7.5c 0.5c -window $m_maps.$i.abbrev -anchor w -width 2.5c\n"
-+"			$m_maps.$i create window 10c  0.5c -window $m_maps.$i.note -anchor w -width 1c\n"
-+"			$m_maps.$i create window 11.2c 0.5c -window $m_maps.$i.test -anchor w -width 2.1c\n"
-+"\n"
-+"			set j [expr $i + 1]\n"
-+"			$m_maps.$i.long insert 0 $snd($j,name)\n"
-+"			set sbuf($j,name) $snd($j,name)\n"
-+"			$m_maps.$i.short insert 0 $snd($j,shortname)\n"
-+"			set sbuf($j,shortname) $snd($j,shortname)\n"
-+"			$m_maps.$i.abbrev insert 0 $snd($j,abbrev)\n"
-+"			set sbuf($j,abbrev) $snd($j,abbrev)\n"
-+"			$m_maps.$i.note insert 0 $snd($j,note)\n"
-+"			set sbuf($j,note) $snd($j,note)\n"
-+"			pack $m_maps.$i\n"
-+"\n"
-+"			bind $m_maps.$i.test <ButtonPress-1>    {map_start_test_note %W}\n"
-+"			bind $m_maps.$i.test <ButtonRelease-1>  {map_stop_test_note %W}\n"
-+"\n"
-+"			bind $m_maps.$i.note <Shift-ButtonPress-1>   {map_start_set_note %W 1}\n"
-+"			bind $m_maps.$i.note <Shift-ButtonRelease-1> {map_stop_set_note %W}\n"
-+"\n"
-+"			bind $m_maps.$i.note <Control-ButtonPress-1>   {map_start_set_note %W -1}\n"
-+"			bind $m_maps.$i.note <Control-ButtonRelease-1> {map_stop_set_note %W}\n"
-+"\n"
-+"			bind $m_maps.$i.note <Button-2>  {\n"
-+"				set noteY %y\n"
-+"			}\n"
-+"			bind $m_maps.$i.note <B2-Motion> {\n"
-+"				set direction [expr %y - $noteY]\n"
-+"				if {$direction >= 0} {\n"
-+"				    set diff 1\n"
-+"				} else {\n"
-+"				    set diff -1\n"
-+"				}\n"
-+"				map_start_set_note %W $diff\n"
-+"				after 500;\n"
-+"				map_stop_set_note  %W\n"
-+"			}\n"
-+"		}\n"
-+"\n"
-+"		# Cancel, Apply, OK buttons\n"
-+"		#\n"
-+"		button $m_opts.cancel -text Cancel -font *-${font12}-* -command {\n"
-+"			upvar #0 soundbuf buf\n"
-+"			for {set i 0} {$i < 16} {incr i} {\n"
-+"				set j [expr $i + 1]\n"
-+"				.edit.m.$i.long delete 0 100\n"
-+"				.edit.m.$i.long insert 0 $buf($j,name)\n"
-+"				set snd($j,name) $buf($j,name)\n"
-+"\n"
-+"				.edit.m.$i.short delete 0 100\n"
-+"				.edit.m.$i.short insert 0 $buf($j,shortname)\n"
-+"				set snd($j,shortname) $buf($j,shortname)\n"
-+"\n"
-+"				.edit.m.$i.abbrev delete 0 100\n"
-+"				.edit.m.$i.abbrev insert 0 $buf($j,abbrev)\n"
-+"				set snd($j,abbrev) $buf($j,abbrev)\n"
-+"\n"
-+"				.edit.m.$i.note delete 0 end\n"
-+"				.edit.m.$i.note insert 0 $buf($j,note)\n"
-+"				set snd($j,note) $buf($j,note)\n"
-+"			}\n"
-+"			instrument_label_reset\n"
-+"			tk7_set_sounds\n"
-+"			destroy .edit\n"
-+"		}\n"
-+"		button $m_opts.apply -text Apply -font *-${font12}-* -command {\n"
-+"			map_set_new_sounds\n"
-+"		}\n"
-+"		button $m_opts.ok -text OK -font *-${font12}-* -command {\n"
-+"			map_set_new_sounds\n"
-+"			destroy .edit\n"
-+"		}\n"
-+"		$m_opts create window 1c 0.75c -window $m_opts.cancel -anchor w -width 2.5c\n"
-+"		$m_opts create window 4c 0.75c -window $m_opts.apply -anchor w -width 2.5c\n"
-+"		$m_opts create window 7c 0.75c -window $m_opts.ok -anchor w -width 2.5c\n"
-+"	}\n"
-+"}\n"
-+"\n"
-+"proc map_set_new_sounds {} {\n"
-+"	global .edit\n"
-+"	upvar #0 sound snd\n"
-+"	upvar #0 soundbuf sbuf\n"
-+"\n"
-+"	for {set i 0} {$i < 16} {incr i} {\n"
-+"		set j [expr $i + 1]\n"
-+"		set snd($j,name) [.edit.m.$i.long get]\n"
-+"		set snd($j,shortname) [.edit.m.$i.short get]\n"
-+"		set snd($j,abbrev) [.edit.m.$i.abbrev get]\n"
-+"		set snd($j,note) [.edit.m.$i.note get]\n"
-+"	}\n"
-+"	instrument_label_reset\n"
-+"	tk7_set_sounds\n"
-+"}\n"
-+"\n"
-+"proc map_start_test_note widget {\n"
-+"	global .edit\n"
-+"	set k [string range [string trimright $widget .test] 8 end]\n"
-+"	set n [.edit.m.$k.note get]\n"
-+"	tk7_start_note_test $k $n\n"
-+"}\n"
-+"proc map_stop_test_note widget {\n"
-+"	global .edit\n"
-+"	set k [string range [string trimright $widget .test] 8 end]\n"
-+"	set n [.edit.m.$k.note get]\n"
-+"	tk7_stop_note_test $k $n\n"
-+"}\n"
-+"proc map_start_set_note {widget diff} {\n"
-+"	set newval [expr [$widget get] + $diff]\n"
-+"	set newval [expr $newval % 128]\n"
-+"	$widget delete 0 end\n"
-+"	$widget insert 0 $newval\n"
-+"	set k [string range [string trimright $widget .note] 8 end]\n"
-+"	tk7_start_note_test $k $newval\n"
-+"}\n"
-+"proc map_stop_set_note {widget} {\n"
-+"	set keynum    [string range [string trimright $widget .note] 8 end]\n"
-+"	set midi_note [$widget get]\n"
-+"	tk7_stop_note_test $keynum $midi_note\n"
-+"}\n"
-+"#=============================================================\n"
-+"\n"
-+"#=====================================================\n"
-+"# These procs to edit mapping of instruments to faders\n"
-+"#\n"
-+"proc fader_edit {} {\n"
-+"	if {[winfo exists .fadermap]} {\n"
-+"		wm deiconify .fadermap\n"
-+"	} else {\n"
-+"		toplevel .fadermap\n"
-+"		wm title .fadermap \"Edit Fader Map\"\n"
-+"\n"
-+"		text .fadermap.intro -width 64 -height 16\n"
-+"		.fadermap.intro insert end	\\\n"
-+"\"Editing of the Instrument to Fader map is not implemented yet.\n"
-+"The default mapping being used is:\n"
-+"\n"
-+"Vol 0 (the first fader ) - unused\n"
-+"Vol 1	- Bass drums 1 & 2\n"
-+"Vol 2	- Snare drums 1 & 2\n"
-+"Vol 3	- Low Tom\n"
-+"Vol 4	- Mid Tom\n"
-+"Vol 5	- High Tom\n"
-+"Vol 6	- Rimshot & Cowbell\n"
-+"Vol 7	- Handclap & Tambourine\n"
-+"Vol 8	- Highhats (all)\n"
-+"Vol 9	- Crash cymbal\n"
-+"Vol 10	- Ride cymbal\n"
-+"VOLUME	- Master volume over all instruments\n"
-+"\"\n"
-+"\n"
-+"		button .fadermap.ok -text OK -command {destroy .fadermap}\n"
-+"\n"
-+"		pack .fadermap.intro\n"
-+"		pack .fadermap.ok -expand true -fill x\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"#=====================================================\n"
-+"#\n"
-+"# Flash the lamps for each of the 16 steps in 1 pattern\n"
-+"# (fix later for patterns with fewer steps)\n"
-+"#\n"
-+"#ex: cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n"
-+"proc cycle_notes {on dur w saved steps} {\n"
-+"	global notes\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 flash fl\n"
-+"\n"
-+"	if {$on == 1} {\n"
-+"		switch $mo(stopgo) {\n"
-+"		0	{\n"
-+"			#puts \"stopgo = STOP\"\n"
-+"			set fl(count) -1\n"
-+"			}\n"
-+"		1	{\n"
-+"			incr fl(count)\n"
-+"			if {$fl(count) > [expr $steps - 1]} {\n"
-+"				set fl(count) -1\n"
-+"				return\n"
-+"			}\n"
-+"			set savecolour [lindex [$notes.note$fl(count).l configure -bg] 4]\n"
-+"			set savedwin $notes.note$fl(count).l\n"
-+"			#puts \"cycle $fl(count) ON \"\n"
-+"			$savedwin configure -bg $xox(col_on)\n"
-+"			after $dur [list cycle_notes 0 $dur $savedwin $savecolour $steps]\n"
-+"			}\n"
-+"		2	{\n"
-+"			#puts \"stopgo = CONT\"\n"
-+"			}\n"
-+"		}\n"
-+"	} else {\n"
-+"#		#puts \"cycle $fl(count) OFF\"\n"
-+"		$w configure -bg $saved\n"
-+"		if {$mo(stopgo) != $xox(START)} {\n"
-+"			set fl(count) 15\n"
-+"			return\n"
-+"		}\n"
-+"\n"
-+"		if {$fl(count) < $steps} {\n"
-+"			after $dur [list cycle_notes 1 $dur 0 0 $steps]\n"
-+"		} else {\n"
-+"			set fl(count) -1\n"
-+"			return\n"
-+"		}\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"proc gridlabels_reset {} {\n"
-+"	global gridlabel\n"
-+"	global font12\n"
-+"	upvar #0 sound so\n"
-+"	for {set i 0} {$i < 16} {incr i} {\n"
-+"		$gridlabel itemconfigure ilabel$i -text $so([expr 16 - $i],name)	\\\n"
-+"			-font *-${font12}-* -anchor e\n"
-+"	}\n"
-+"}\n"
-+"proc key_labels_reset {} {\n"
-+"	global notes\n"
-+"	upvar #0 sound so\n"
-+"\n"
-+"	for {set i 0} {$i < 16} {incr i} {\n"
-+"		$notes.note$i.instr configure -text $so([expr $i + 1],shortname)\n"
-+"	}\n"
-+"}\n"
-+"proc volume_labels_reset {} {\n"
-+"	global cunit\n"
-+"	upvar #0 sound so\n"
-+"	upvar #0 volume_label vo\n"
-+"\n"
-+"	if {$so(2,abbrev) != \"\"} {\n"
-+"	    set vo(1)  \"$so(1,abbrev)/$so(2,abbrev)\"\n"
-+"	} else {\n"
-+"	    set vo(1)  \"$so(1,abbrev)\"\n"
-+"	}\n"
-+"	if {$so(4,abbrev) != \"\"} {\n"
-+"	    set vo(2)  \"$so(3,abbrev)/$so(4,abbrev)\"\n"
-+"	} else {\n"
-+"	    set vo(2)  \"$so(3,abbrev)\"\n"
-+"	}\n"
-+"	set vo(3)  \"$so(5,abbrev)\"\n"
-+"	set vo(4)  \"$so(6,abbrev)\"\n"
-+"	set vo(5)  \"$so(7,abbrev)\"\n"
-+"	if {$so(9,abbrev) != \"\"} {\n"
-+"	    set vo(6)  \"$so(8,abbrev)/$so(9,abbrev)\"\n"
-+"	} else {\n"
-+"	    set vo(6)  \"$so(8,abbrev)\"\n"
-+"	}\n"
-+"	if {$so(11,abbrev) != \"\"} {\n"
-+"	    set vo(7)  \"$so(10,abbrev)/$so(11,abbrev)\"\n"
-+"	} else {\n"
-+"	    set vo(7)  \"$so(10,abbrev)\"\n"
-+"	}\n"
-+"	if {($so(13,abbrev) != \"\") && ($so(14,abbrev) != \"\")} {\n"
-+"	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)/$so(14,abbrev)\"\n"
-+"	} elseif {$so(13,abbrev) != \"\"} {\n"
-+"	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)\"\n"
-+"	} elseif {$so(14,abbrev) != \"\"} {\n"
-+"	    set vo(8)  \"$so(12,abbrev)/$so(14,abbrev)\"\n"
-+"	} else {\n"
-+"	    set vo(8)  \"$so(12,abbrev)\"\n"
-+"	}\n"
-+"	set vo(9)  \"$so(15,abbrev)\"\n"
-+"	set vo(10) \"$so(16,abbrev)\"\n"
-+"\n"
-+"	for {set i 1} {$i < 11} {incr i} {\n"
-+"		$cunit.$i.l configure -text $vo($i)\n"
-+"	}\n"
-+"}\n"
-+"proc instrument_label_reset {} {\n"
-+"	gridlabels_reset\n"
-+"	key_labels_reset\n"
-+"	volume_labels_reset\n"
-+"}\n"
-+"proc tempoinfo_update {a b c} {\n"
-+"	global tempoinfo\n"
-+"	upvar $a mo\n"
-+"	$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-+"}\n"
-+"proc measureinfo_update {a b c} {\n"
-+"	global tempoinfo\n"
-+"	upvar $a mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 track_list tl\n"
-+"\n"
-+"	if {$mo(measure) == -1} {\n"
-+"		$tempoinfo itemconfigure tempo -text \"\"\n"
-+"	} else {\n"
-+"		$tempoinfo itemconfigure tempo -text [expr $mo(measure) + 1]\n"
-+"	}\n"
-+"}\n"
-+"proc trackinfo_update {a b c} {\n"
-+"	global tminfo\n"
-+"	upvar $a mo\n"
-+"\n"
-+"	switch $mo(current_track) {\n"
-+"		0	{\n"
-+"			$tminfo.t coords trackid 3c 0.45c\n"
-+"			$tminfo.t itemconfigure trackid -text I\n"
-+"		}\n"
-+"		1	{\n"
-+"			$tminfo.t coords trackid 4c 0.45c\n"
-+"			$tminfo.t itemconfigure trackid -text II\n"
-+"		}\n"
-+"		2	{\n"
-+"			$tminfo.t coords trackid 5c 0.45c\n"
-+"			$tminfo.t itemconfigure trackid -text III\n"
-+"		}\n"
-+"		3	{\n"
-+"			$tminfo.t coords trackid 6c 0.45c\n"
-+"			$tminfo.t itemconfigure trackid -text IV\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"proc modeinfo_update {m} {\n"
-+"	global tminfo\n"
-+"	global tapwrite\n"
-+"	global font12\n"
-+"\n"
-+"	$tminfo.m delete modetext\n"
-+"	switch $m {\n"
-+"		0	{\n"
-+"			set tapwrite 1\n"
-+"			$tminfo.m create text 1.2c 0.8c -text \"TRACK PLAY\"	\\\n"
-+"				-tags modetext -anchor w -font *-${font12}-*\n"
-+"		}\n"
-+"		1	{\n"
-+"			set tapwrite 1\n"
-+"			$tminfo.m create text 1.2c 1.1c -text \"TRACK WRITE\"	\\\n"
-+"				-tags modetext -anchor w -font *-${font12}-*\n"
-+"		}\n"
-+"		2	{\n"
-+"			set tapwrite 1\n"
-+"			$tminfo.m create text 4.2c 0.4c -text \"PATTERN PLAY\"	\\\n"
-+"				-tags modetext -anchor w -font *-${font12}-*\n"
-+"		}\n"
-+"		3	{\n"
-+"			if {$tapwrite} {\n"
-+"				incr tapwrite -1\n"
-+"				$tminfo.m create text 4.2c 0.8c -text \"PATTERN WRITE\"	\\\n"
-+"					-tags modetext -anchor w -font *-${font12}-*\n"
-+"			} else {\n"
-+"				incr tapwrite\n"
-+"				$tminfo.m create text 4.2c 1.2c -text \"TAP WRITE\"	\\\n"
-+"					-tags modetext -anchor w -font *-${font12}-*\n"
-+"			}\n"
-+"		}\n"
-+"	}\n"
-+"}\n"
-+"proc scale_lamps_update {} {\n"
-+"	global scale_lamps\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"\n"
-+"	set scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n"
-+"	for {set i 0} {$i < 4} {incr i} {\n"
-+"	    set button ${scale_lamps}.l${i}\n"
-+"	    if {$i == $scale} {\n"
-+"		$button configure -background $xox(lamp_on)\n"
-+"	    } else {\n"
-+"		$button configure -background $xox(lamp_off)\n"
-+"	    }\n"
-+"	}\n"
-+"}\n"
-+"proc locate_gridpos {x y result} {\n"
-+"	global gridXs gridYs gridSvals gridIvals\n"
-+"	upvar $result res\n"
-+"\n"
-+"	#puts \"locate_gridpos $x,$y\"\n"
-+"	set halo 7\n"
-+"\n"
-+"	set resX -1\n"
-+"	foreach i $gridXs {\n"
-+"		if {($i > [expr $x - $halo]) && ($i < [expr $x + $halo])} {\n"
-+"			set resX $i\n"
-+"			break\n"
-+"		}\n"
-+"	}\n"
-+"	if {$resX < 0} {\n"
-+"		return $resX\n"
-+"	}\n"
-+"	#puts \"resX = $resX\"\n"
-+"\n"
-+"	set resY -1\n"
-+"	foreach i $gridYs {\n"
-+"		if {($i > [expr $y - $halo]) && ($i < [expr $y + $halo])} {\n"
-+"			set resY $i\n"
-+"			break\n"
-+"		}\n"
-+"	}\n"
-+"	if {$resY < 0} {\n"
-+"		return $resY\n"
-+"	}\n"
-+"#puts \"resY = $resY\"\n"
-+"\n"
-+"	set res(step) $gridSvals($resX)\n"
-+"	set res(inst) $gridIvals($resY)\n"
-+"\n"
-+"	return 0\n"
-+"}\n"
-+"\n"
-+"proc play_loop {} {\n"
-+"	upvar #0 mode mo\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 track_list tl\n"
-+"	global button_stop	;# to invoke stop button\n"
-+"	if {$mo(stopgo) == $xox(START) && $mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n"
-+"	\n"
-+"		# Playing a track\n"
-+"		if {$mo(TRACK_START)} {\n"
-+"			set xox(play_list) $tl($mo(current_track))\n"
-+"\n"
-+"			# Prepare to display pattern contents\n"
-+"			set mo(measure) -1\n"
-+"\n"
-+"			set mo(TRACK_START) 0\n"
-+"		}\n"
-+"\n"
-+"		if {[llength $xox(play_list)] > 0} {\n"
-+"			set target  [lindex $xox(play_list) 0]\n"
-+"			set group [expr $target / 16]\n"
-+"			set pat [expr $target % 16]\n"
-+"			set xox(play_list) [lreplace $xox(play_list) 0 0]\n"
-+"\n"
-+"			# Prepare to display pattern contents\n"
-+"			set target  [expr $mo(measure) + 1]\n"
-+"			set mo(measure) [measure_constrain $target]\n"
-+"		} else {\n"
-+"			$button_stop invoke\n"
-+"		}\n"
-+"\n"
-+"		if {$mo(PATTERN_REPEAT)} {\n"
-+"			play_pattern $group $pat\n"
-+"		}\n"
-+"\n"
-+"		# Update pattern display\n"
-+"		pattern_show\n"
-+"\n"
-+"	} else { # Not playing a track\n"
-+"\n"
-+"		if {$mo(PATTERN_REPEAT)} {\n"
-+"			play_pattern $mo(patgroup) $mo(current_pattern)\n"
-+"		}\n"
-+"	}\n"
-+"	after $mo(REPEAT_INTERVAL) play_loop\n"
-+"}\n"
-+"# ----------------------------------------------------------------------------\n"
-+"# Edit Pattern Comment\n"
-+"# ----------------------------------------------------------------------------\n"
-+"\n"
-+"proc get_current_pattern_name {} {\n"
-+"    upvar #0 mode mo\n"
-+"    switch $mo(patgroup) {\n"
-+"	0 { set g \"A\"; }\n"
-+"	1 { set g \"B\"; }\n"
-+"	2 { set g \"C\"; }\n"
-+"	3 { set g \"D\"; }\n"
-+"    }\n"
-+"    set name \"$g[expr $mo(current_pattern)+1]\";\n"
-+"    return $name;\n"
-+"}\n"
-+"set comment .pattern_comment;\n"
-+"\n"
-+"proc  refresh_comment {} {\n"
-+"    upvar #0 mode mo\n"
-+"    global comment;\n"
-+"    if {[winfo exists $comment]} {\n"
-+"    	set name [get_current_pattern_name];\n"
-+"    	wm title $comment \"$name pattern comment\"\n"
-+"        set old_comment [$comment.string get]\n"
-+"        $comment.string delete 0 [expr [string length $old_comment] ]\n"
-+"        set current_comment [tk7_get_pattern_comment $mo(patgroup) $mo(current_pattern)]\n"
-+"        $comment.string insert 0 \"$current_comment\"\n"
-+"    }\n"
-+"}\n"
-+"proc edit_pattern_comment {} {\n"
-+"    upvar #0 mode mo\n"
-+"    upvar #0 tkxox xox\n"
-+"    global comment\n"
-+"\n"
-+"    if {[winfo exists $comment]} {\n"
-+"	wm deiconify $comment\n"
-+"    } else {\n"
-+"	toplevel $comment\n"
-+"\n"
-+"	button $comment.quit -text quit -command {wm iconify $comment}\n"
-+"	button $comment.ok -text ok -command comment_ok\n"
-+"	pack $comment.quit $comment.ok -side right\n"
-+"\n"
-+"	# label $comment.label -text Comment: -padx 0\n"
-+"	entry $comment.string -width 20 -relief sunken\n"
-+"	# pack $comment.label -side left\n"
-+"	pack $comment.string -side left -fill x -expand true\n"
-+"\n"
-+"	bind $comment.string <Return> comment_ok\n"
-+"	bind $comment.string <Control-c> {wm iconify $comment}\n"
-+"	focus $comment.string \n"
-+"    }\n"
-+"    refresh_comment;\n"
-+"}\n"
-+"proc comment_ok {} {\n"
-+"    upvar #0 mode mo;\n"
-+"    global comment;\n"
-+"    set stringval [$comment.string get];\n"
-+"    set name [get_current_pattern_name];\n"
-+"    puts \"set $name comment to \\\"$stringval\\\"\";\n"
-+"    tk7_set_pattern_comment $mo(patgroup) $mo(current_pattern) $stringval;\n"
-+"    # wm iconify $comment;\n"
-+"}\n"
-+"";
---- /dev/null
-+++ b/prout.m4
-@@ -0,0 +1,158 @@
-+dnl MY_DEFINE(VARIABLE)
-+AC_DEFUN([MY_DEFINE],
-+[cat >> confdefs.h <<EOF
-+[#define] $1 1
-+EOF
-+])
-+
-+dnl CONFIG_INTERFACE(package,macro_name,interface_id,help
-+dnl                  $1      $2         $3           $4
-+dnl                  action-if-yes-or-dynamic,
-+dnl		     $5
-+dnl		     action-if-yes,action-if-dynamic,action-if-no)
-+dnl		     $6            $7                $8
-+AC_DEFUN([CONFIG_INTERFACE],
-+[AC_ARG_ENABLE($1,[$4],
-+[case "x$enable_$1" in xyes|xdynamic) $5 ;; esac])
-+case "x$enable_$1" in
-+xyes)
-+  MY_DEFINE(IA_$2)
-+  AM_CONDITIONAL(ENABLE_$2, true)
-+  $6
-+  ;;
-+xdynamic)
-+  dynamic_targets="$dynamic_targets interface_$3.\$(so)"
-+  $7
-+  ;;
-+*)
-+  $8
-+  ;;
-+esac
-+AC_SUBST($3_so_libs)
-+])
-+
-+
-+
-+dnl Configure Paths for Alsa
-+dnl Christopher Lansdown (lansdoct@cs.alfred.edu)
-+dnl 29/10/1998
-+dnl AM_PATH_ALSA(MINIMUM-VERSION)
-+dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
-+dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
-+dnl
-+AC_DEFUN(AM_PATH_ALSA,
-+[dnl
-+dnl Get the clfags and libraries for alsa
-+dnl
-+AC_ARG_WITH(alsa-prefix,[ --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
-+	[alsa_prefix="$withval"], [alsa_prefix=""])
-+AC_ARG_WITH(alsa-inc-prefix, [ --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
-+	[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
-+AC_ARG_ENABLE(alsatest, [ --disable-alsatest       Do not try to compile and run a test Alsa program], [enable_alsatest=no], [enable_alsatest=yes])
-+
-+dnl Add any special include directories
-+AC_MSG_CHECKING(for ALSA CFLAGS)
-+if test "$alsa_inc_prefix" != "" ; then
-+	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
-+	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
-+fi
-+AC_MSG_RESULT($ALSA_CFLAGS)
-+
-+dnl add any special lib dirs
-+AC_MSG_CHECKING(for ALSA LDFLAGS)
-+if test "$alsa_prefix" != "" ; then
-+	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
-+	LIBS="$LIBS -L$alsa_prefix"
-+fi
-+
-+dnl add the alsa library
-+ALSA_LIBS="$ALSA_LIBS -lasound"
-+LDFLAGS="$LDFLAGS $ALSA_LIBS"
-+AC_MSG_RESULT($ALSA_LIBS)
-+
-+dnl Check for the presence of the library
-+dnl if test $enable_alsatest = yes; then
-+dnl   AC_MSG_CHECKING(for working libasound)
-+dnl   AC_TRY_RUN([
-+dnl #include <sys/asoundlib.h>
-+dnl void main(void)
-+dnl {
-+dnl   snd_cards();
-+dnl   exit(0);
-+dnl }
-+dnl ],
-+dnl    [AC_MSG_RESULT("present")],
-+dnl    [AC_MSG_RESULT("not found. ")
-+dnl    AC_MSG_WARN(Fatal error: Install alsa-lib package or use --with-alsa-prefix option...)],
-+dnl    [AC_MSG_RESULT(unsopported)
-+dnl     AC_MSG_WARN(Cross-compiling isn't supported...)]
-+dnl  )
-+dnl fi
-+
-+dnl Check for a working version of libasound that is of the right version.
-+min_alsa_version=ifelse([$1], ,0.1.1,$1)
-+AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
-+no_alsa=""
-+    alsa_min_major_version=`echo $min_alsa_version | \
-+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
-+    alsa_min_minor_version=`echo $min_alsa_version | \
-+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
-+    alsa_min_micro_version=`echo $min_alsa_version | \
-+           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
-+
-+AC_LANG_SAVE
-+AC_LANG_C
-+AC_TRY_COMPILE([
-+#include <sys/asoundlib.h>
-+], [
-+void main(void)
-+{
-+/* ensure backward compatibility */
-+#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
-+#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
-+#endif
-+#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR)
-+#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR
-+#endif
-+#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR)
-+#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR
-+#endif
-+
-+#  if(SND_LIB_MAJOR > $alsa_min_major_version)
-+  exit(0);
-+#  else
-+#    if(SND_LIB_MAJOR < $alsa_min_major_version)
-+#       error not present
-+#    endif
-+
-+#   if(SND_LIB_MINOR > $alsa_min_minor_version)
-+  exit(0);
-+#   else
-+#     if(SND_LIB_MINOR < $alsa_min_minor_version)
-+#          error not present
-+#      endif
-+
-+#      if(SND_LIB_SUBMINOR < $alsa_min_micro_version)
-+#        error not present
-+#      endif
-+#    endif
-+#  endif
-+exit(0);
-+}
-+],
-+  [AC_MSG_RESULT(found.)],
-+  [AC_MSG_RESULT(not present.)
-+   AC_MSG_WARN(Sufficiently new version of libasound not found.)]
-+)
-+AC_LANG_RESTORE
-+
-+dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
-+AC_CHECK_LIB([asound], [snd_cards],,
-+	[AC_MSG_WARN(No linkable libasound was found.)]
-+)
-+
-+dnl That should be it.  Now just export out symbols:
-+AC_SUBST(ALSA_CFLAGS)
-+AC_SUBST(ALSA_LIBS)
-+])
-+
---- a/score.c
-+++ b/score.c
-@@ -1,2891 +1,2891 @@
--char tcl_score[] = "\
--# do not edit.\n\
--# file automatically generated by:\n\
--#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n\
--\n\
--set score $note_score.score\n\
--\n\
--canvas ${score} -width ${score_width_in_inch}i -height ${score_height_in_inch}i \\\n\
--	-bg                 $tkxox(col_def_bg) \\\n\
--	-highlightthickness 0\n\
--\n\
--${score} config -xscrollincrement 1p -yscrollincrement 1p\n\
--${score} xview scroll ${score_scroll_x_in_point} u\n\
--${score} yview scroll ${score_scroll_y_in_point} u\n\
--\n\
--pack ${score} -side left\n\
--\n\
--# The xfig objects begin here\n\
--${score} create line 0.720109i 0.040761i 11.321558i 0.040761i 11.321558i \\\n\
--  0.326087i 0.720109i 0.326087i 0.720109i 0.040761i -fill $tkxox(score_passive_note)\n\
--${score} create polygon 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n\
--  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -outline {} -fill $tkxox(col_def_bg) \\\n\
--  -width 0\n\
--${score} create line 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n\
--  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -fill $tkxox(col_def_bg)\n\
--${score} create polygon 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n\
--  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n\
--  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n\
--  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n\
--  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n\
--  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n\
--  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n\
--  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n\
--  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n\
--  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n\
--  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n\
--  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n\
--  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n\
--  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n\
--  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n\
--  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n\
--  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n\
--  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n\
--  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n\
--  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n\
--  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n\
--  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -outline {} -fill \\\n\
--  $tkxox(color_score_bg) -width 0\n\
--${score} create line 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n\
--  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n\
--  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n\
--  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n\
--  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n\
--  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n\
--  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n\
--  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create polygon 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n\
--  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n\
--  -width 0\n\
--${score} create line 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n\
--  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -fill $tkxox(color_score_bg)\n\
--${score} create line 7.042572i 0.423007i 7.042572i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n\
--  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n\
--  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n\
--  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n\
--  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n\
--  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n\
--  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n\
--  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n\
--  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n\
--  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n\
--  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n\
--  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n\
--  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n\
--  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n\
--  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n\
--  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n\
--  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n\
--  0.640399i 7.000000i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n\
--  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n\
--  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n\
--  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n\
--  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n\
--  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n\
--  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n\
--  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n\
--  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n\
--  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n\
--  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n\
--  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n\
--  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n\
--  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n\
--  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n\
--  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n\
--  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n\
--  0.640399i 7.000000i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n\
--  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n\
--  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n\
--  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n\
--  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n\
--  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n\
--  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n\
--  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n\
--  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n\
--  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n\
--  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n\
--  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n\
--  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n\
--  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n\
--  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n\
--  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n\
--  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n\
--  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n\
--  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n\
--  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n\
--  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n\
--  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n\
--  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n\
--  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n\
--  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n\
--  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n\
--  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n\
--  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n\
--  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n\
--  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n\
--  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n\
--  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n\
--  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n\
--  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n\
--  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n\
--  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n\
--  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n\
--  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n\
--  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n\
--  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n\
--  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n\
--  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n\
--  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n\
--  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n\
--  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n\
--  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n\
--  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n\
--  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n\
--  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n\
--  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n\
--  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n\
--  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n\
--  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n\
--  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n\
--  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n\
--  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n\
--  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n\
--  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n\
--  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n\
--  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n\
--  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 6.322464i 0.423007i 6.322464i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n\
--  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n\
--  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n\
--  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n\
--  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n\
--  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n\
--  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n\
--  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n\
--  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n\
--  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n\
--  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n\
--  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n\
--  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n\
--  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n\
--  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n\
--  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n\
--  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n\
--  0.640399i 6.280797i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n\
--  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n\
--  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n\
--  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n\
--  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n\
--  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n\
--  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n\
--  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n\
--  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n\
--  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n\
--  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n\
--  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n\
--  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n\
--  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n\
--  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n\
--  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n\
--  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n\
--  0.640399i 6.280797i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n\
--  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n\
--  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n\
--  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n\
--  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n\
--  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n\
--  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n\
--  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n\
--  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n\
--  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n\
--  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n\
--  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n\
--  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n\
--  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n\
--  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n\
--  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n\
--  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n\
--  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n\
--  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n\
--  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n\
--  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n\
--  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n\
--  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n\
--  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n\
--  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n\
--  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n\
--  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n\
--  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n\
--  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n\
--  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n\
--  6.326993i 0.435688i 6.327899i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n\
--  0\n\
--${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n\
--  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n\
--  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n\
--  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n\
--  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n\
--  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n\
--  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n\
--  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n\
--  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n\
--  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n\
--  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n\
--  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n\
--  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n\
--  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n\
--  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n\
--  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n\
--  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n\
--  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n\
--  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n\
--  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n\
--  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n\
--  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n\
--  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n\
--  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n\
--  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n\
--  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n\
--  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n\
--  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n\
--  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n\
--  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n\
--  6.326993i 0.435688i 6.327899i 0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 6.322464i 0.086051i 6.322464i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n\
--  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n\
--  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n\
--  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n\
--  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n\
--  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n\
--  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n\
--  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n\
--  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n\
--  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n\
--  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n\
--  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n\
--  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n\
--  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n\
--  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n\
--  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n\
--  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n\
--  0.301630i 6.280797i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n\
--  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n\
--  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n\
--  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n\
--  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n\
--  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n\
--  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n\
--  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n\
--  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n\
--  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n\
--  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n\
--  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n\
--  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n\
--  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n\
--  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n\
--  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n\
--  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n\
--  0.301630i 6.280797i 0.301630i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n\
--  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n\
--  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n\
--  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n\
--  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n\
--  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n\
--  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n\
--  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n\
--  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n\
--  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n\
--  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n\
--  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n\
--  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n\
--  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n\
--  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n\
--  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n\
--  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n\
--  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n\
--  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n\
--  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n\
--  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n\
--  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n\
--  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n\
--  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n\
--  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n\
--  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n\
--  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n\
--  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n\
--  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n\
--  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n\
--  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n\
--  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n\
--  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n\
--  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n\
--  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n\
--  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n\
--  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n\
--  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n\
--  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n\
--  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n\
--  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n\
--  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n\
--  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n\
--  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n\
--  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n\
--  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n\
--  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n\
--  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n\
--  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n\
--  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n\
--  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n\
--  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n\
--  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n\
--  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n\
--  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n\
--  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n\
--  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n\
--  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n\
--  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n\
--  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n\
--  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n\
--  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n\
--  0.104167i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 6.325181i 0.721920i 6.325181i 0.927536i -fill $tkxox(score_active_note)\n\
--${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n\
--  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n\
--  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n\
--  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n\
--  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n\
--  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n\
--  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n\
--  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n\
--  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n\
--  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n\
--  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n\
--  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n\
--  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n\
--  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n\
--  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n\
--  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n\
--  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n\
--  0.968297i 6.282609i 0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n\
--  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n\
--  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n\
--  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n\
--  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n\
--  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n\
--  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n\
--  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n\
--  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n\
--  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n\
--  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n\
--  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n\
--  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n\
--  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n\
--  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n\
--  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n\
--  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n\
--  0.968297i 6.282609i 0.968297i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 6.325181i 1.060688i 6.325181i 1.264493i -fill $tkxox(score_active_note)\n\
--${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n\
--  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n\
--  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n\
--  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n\
--  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n\
--  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n\
--  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n\
--  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n\
--  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n\
--  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n\
--  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n\
--  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n\
--  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n\
--  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n\
--  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n\
--  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n\
--  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n\
--  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n\
--  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n\
--  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n\
--  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n\
--  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n\
--  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n\
--  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n\
--  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n\
--  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n\
--  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n\
--  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n\
--  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n\
--  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n\
--  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n\
--  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n\
--  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n\
--  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n\
--  1.307065i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 7.647645i 0.423007i 7.647645i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n\
--  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n\
--  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n\
--  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n\
--  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n\
--  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n\
--  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n\
--  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n\
--  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n\
--  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n\
--  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n\
--  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n\
--  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n\
--  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n\
--  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n\
--  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n\
--  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n\
--  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n\
--  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n\
--  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n\
--  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n\
--  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n\
--  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n\
--  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n\
--  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n\
--  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n\
--  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n\
--  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n\
--  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n\
--  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n\
--  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n\
--  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n\
--  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n\
--  0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n\
--  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n\
--  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n\
--  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n\
--  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n\
--  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n\
--  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n\
--  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n\
--  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n\
--  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n\
--  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n\
--  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n\
--  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n\
--  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n\
--  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n\
--  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n\
--  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n\
--  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n\
--  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n\
--  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n\
--  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n\
--  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n\
--  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n\
--  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n\
--  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n\
--  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n\
--  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n\
--  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n\
--  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n\
--  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n\
--  7.651268i 0.435688i 7.652174i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n\
--  0\n\
--${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n\
--  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n\
--  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n\
--  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n\
--  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n\
--  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n\
--  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n\
--  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n\
--  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n\
--  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n\
--  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n\
--  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n\
--  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n\
--  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n\
--  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n\
--  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n\
--  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n\
--  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n\
--  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n\
--  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n\
--  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n\
--  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n\
--  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n\
--  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n\
--  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n\
--  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n\
--  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n\
--  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n\
--  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n\
--  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n\
--  7.651268i 0.435688i 7.652174i 0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 7.647645i 0.086051i 7.647645i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n\
--  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n\
--  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n\
--  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n\
--  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n\
--  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n\
--  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n\
--  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n\
--  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n\
--  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n\
--  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n\
--  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n\
--  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n\
--  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n\
--  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n\
--  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n\
--  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n\
--  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n\
--  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n\
--  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n\
--  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n\
--  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n\
--  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n\
--  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n\
--  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n\
--  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n\
--  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n\
--  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n\
--  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n\
--  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n\
--  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n\
--  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n\
--  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n\
--  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n\
--  0.301630i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n\
--  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n\
--  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n\
--  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n\
--  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n\
--  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n\
--  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n\
--  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n\
--  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n\
--  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n\
--  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n\
--  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n\
--  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n\
--  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n\
--  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n\
--  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n\
--  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n\
--  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n\
--  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n\
--  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n\
--  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n\
--  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n\
--  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n\
--  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n\
--  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n\
--  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n\
--  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n\
--  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n\
--  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n\
--  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n\
--  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n\
--  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n\
--  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n\
--  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n\
--  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n\
--  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n\
--  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n\
--  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n\
--  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n\
--  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n\
--  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n\
--  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n\
--  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n\
--  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n\
--  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n\
--  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n\
--  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n\
--  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n\
--  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n\
--  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n\
--  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n\
--  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n\
--  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n\
--  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n\
--  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n\
--  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n\
--  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n\
--  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n\
--  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n\
--  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n\
--  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n\
--  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n\
--  0.104167i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 8.288949i 0.423007i 8.288949i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n\
--  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n\
--  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n\
--  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n\
--  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n\
--  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n\
--  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n\
--  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n\
--  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n\
--  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n\
--  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n\
--  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n\
--  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n\
--  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n\
--  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n\
--  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n\
--  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n\
--  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n\
--  -width 0\n\
--${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n\
--  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n\
--  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n\
--  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n\
--  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n\
--  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n\
--  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n\
--  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n\
--  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n\
--  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n\
--  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n\
--  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n\
--  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n\
--  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n\
--  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n\
--  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n\
--  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n\
--  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline $tkxox(score_active_note) -fill \\\n\
--  {}\n\
--${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n\
--  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n\
--  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n\
--  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n\
--  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n\
--  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n\
--  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n\
--  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n\
--  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n\
--  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n\
--  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n\
--  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n\
--  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n\
--  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n\
--  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n\
--  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n\
--  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n\
--  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n\
--  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n\
--  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n\
--  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n\
--  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n\
--  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n\
--  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n\
--  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n\
--  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n\
--  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n\
--  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n\
--  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n\
--  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n\
--  -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n\
--  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n\
--  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n\
--  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n\
--  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n\
--  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n\
--  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n\
--  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n\
--  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n\
--  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n\
--  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n\
--  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n\
--  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n\
--  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n\
--  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n\
--  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n\
--  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n\
--  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n\
--  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n\
--  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n\
--  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n\
--  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n\
--  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n\
--  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n\
--  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n\
--  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n\
--  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n\
--  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n\
--  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n\
--  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n\
--  -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 9.048007i 0.423007i 9.048007i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n\
--  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n\
--  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n\
--  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n\
--  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n\
--  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n\
--  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n\
--  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n\
--  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n\
--  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n\
--  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n\
--  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n\
--  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n\
--  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n\
--  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n\
--  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n\
--  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n\
--  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n\
--  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n\
--  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n\
--  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n\
--  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n\
--  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n\
--  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n\
--  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n\
--  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n\
--  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n\
--  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n\
--  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n\
--  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n\
--  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n\
--  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n\
--  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n\
--  0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n\
--  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n\
--  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n\
--  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n\
--  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n\
--  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n\
--  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n\
--  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n\
--  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n\
--  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n\
--  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n\
--  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n\
--  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n\
--  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n\
--  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n\
--  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n\
--  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n\
--  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n\
--  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n\
--  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n\
--  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n\
--  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n\
--  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n\
--  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n\
--  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n\
--  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n\
--  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n\
--  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n\
--  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n\
--  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n\
--  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n\
--  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n\
--  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n\
--  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n\
--  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n\
--  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n\
--  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n\
--  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n\
--  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n\
--  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n\
--  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n\
--  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n\
--  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n\
--  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n\
--  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n\
--  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n\
--  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n\
--  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n\
--  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n\
--  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n\
--  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n\
--  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n\
--  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n\
--  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n\
--  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n\
--  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n\
--  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n\
--  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n\
--  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n\
--  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n\
--  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n\
--  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n\
--  0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 9.050725i 1.060688i 9.050725i 1.264493i -fill $tkxox(score_active_note)\n\
--${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n\
--  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n\
--  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n\
--  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n\
--  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n\
--  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n\
--  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n\
--  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n\
--  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n\
--  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n\
--  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n\
--  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n\
--  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n\
--  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n\
--  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n\
--  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n\
--  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n\
--  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n\
--  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n\
--  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n\
--  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n\
--  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n\
--  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n\
--  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n\
--  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n\
--  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n\
--  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n\
--  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n\
--  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n\
--  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n\
--  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n\
--  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n\
--  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 9.654891i 0.423007i 9.654891i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n\
--  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n\
--  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n\
--  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n\
--  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n\
--  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n\
--  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n\
--  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n\
--  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n\
--  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n\
--  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n\
--  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n\
--  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n\
--  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n\
--  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n\
--  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n\
--  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n\
--  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n\
--  -width 0\n\
--${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n\
--  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n\
--  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n\
--  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n\
--  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n\
--  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n\
--  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n\
--  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n\
--  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n\
--  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n\
--  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n\
--  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n\
--  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n\
--  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n\
--  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n\
--  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n\
--  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n\
--  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline $tkxox(score_active_note) -fill \\\n\
--  {}\n\
--${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n\
--  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n\
--  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n\
--  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n\
--  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n\
--  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n\
--  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n\
--  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n\
--  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n\
--  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n\
--  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n\
--  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n\
--  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n\
--  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n\
--  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n\
--  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n\
--  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n\
--  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n\
--  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n\
--  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n\
--  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n\
--  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n\
--  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n\
--  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n\
--  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n\
--  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n\
--  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n\
--  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n\
--  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n\
--  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n\
--  -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n\
--  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n\
--  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n\
--  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n\
--  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n\
--  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n\
--  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n\
--  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n\
--  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n\
--  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n\
--  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n\
--  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n\
--  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n\
--  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n\
--  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n\
--  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n\
--  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n\
--  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n\
--  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n\
--  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n\
--  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n\
--  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n\
--  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n\
--  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n\
--  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n\
--  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n\
--  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n\
--  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n\
--  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n\
--  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n\
--  -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 5.034420i 0.086051i 5.034420i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n\
--  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n\
--  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n\
--  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n\
--  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n\
--  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n\
--  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n\
--  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n\
--  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n\
--  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n\
--  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n\
--  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n\
--  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n\
--  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n\
--  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n\
--  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n\
--  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n\
--  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n\
--  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n\
--  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n\
--  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n\
--  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n\
--  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n\
--  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n\
--  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n\
--  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n\
--  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n\
--  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n\
--  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n\
--  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n\
--  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n\
--  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n\
--  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n\
--  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n\
--  0.301630i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n\
--  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n\
--  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n\
--  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n\
--  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n\
--  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n\
--  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n\
--  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n\
--  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n\
--  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n\
--  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n\
--  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n\
--  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n\
--  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n\
--  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n\
--  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n\
--  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n\
--  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n\
--  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n\
--  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n\
--  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n\
--  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n\
--  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n\
--  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n\
--  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n\
--  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n\
--  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n\
--  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n\
--  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n\
--  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n\
--  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n\
--  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n\
--  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n\
--  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n\
--  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n\
--  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n\
--  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n\
--  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n\
--  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n\
--  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n\
--  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n\
--  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n\
--  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n\
--  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n\
--  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n\
--  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n\
--  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n\
--  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n\
--  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n\
--  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n\
--  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n\
--  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n\
--  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n\
--  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n\
--  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n\
--  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n\
--  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n\
--  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n\
--  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n\
--  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n\
--  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n\
--  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n\
--  0.104167i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 5.034420i 0.423007i 5.034420i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n\
--  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n\
--  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n\
--  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n\
--  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n\
--  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n\
--  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n\
--  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n\
--  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n\
--  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n\
--  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n\
--  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n\
--  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n\
--  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n\
--  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n\
--  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n\
--  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n\
--  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n\
--  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n\
--  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n\
--  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n\
--  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n\
--  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n\
--  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n\
--  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n\
--  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n\
--  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n\
--  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n\
--  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n\
--  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n\
--  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n\
--  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n\
--  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n\
--  0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n\
--  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n\
--  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n\
--  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n\
--  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n\
--  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n\
--  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n\
--  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n\
--  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n\
--  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n\
--  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n\
--  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n\
--  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n\
--  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n\
--  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n\
--  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n\
--  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n\
--  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n\
--  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n\
--  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n\
--  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n\
--  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n\
--  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n\
--  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n\
--  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n\
--  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n\
--  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n\
--  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n\
--  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n\
--  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n\
--  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n\
--  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n\
--  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n\
--  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n\
--  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n\
--  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n\
--  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n\
--  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n\
--  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n\
--  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n\
--  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n\
--  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n\
--  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n\
--  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n\
--  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n\
--  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n\
--  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n\
--  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n\
--  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n\
--  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n\
--  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n\
--  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n\
--  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n\
--  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n\
--  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n\
--  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n\
--  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n\
--  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n\
--  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n\
--  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n\
--  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 5.678442i 0.423007i 5.678442i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n\
--  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n\
--  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n\
--  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n\
--  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n\
--  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n\
--  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n\
--  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n\
--  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n\
--  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n\
--  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n\
--  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n\
--  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n\
--  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n\
--  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n\
--  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n\
--  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n\
--  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n\
--  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n\
--  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n\
--  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n\
--  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n\
--  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n\
--  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n\
--  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n\
--  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n\
--  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n\
--  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n\
--  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n\
--  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n\
--  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n\
--  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n\
--  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n\
--  0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n\
--  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n\
--  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n\
--  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n\
--  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n\
--  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n\
--  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n\
--  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n\
--  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n\
--  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n\
--  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n\
--  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n\
--  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n\
--  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n\
--  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n\
--  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n\
--  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n\
--  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n\
--  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n\
--  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n\
--  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n\
--  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n\
--  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n\
--  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n\
--  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n\
--  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n\
--  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n\
--  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n\
--  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n\
--  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n\
--  5.682971i 0.435688i 5.683877i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n\
--  0\n\
--${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n\
--  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n\
--  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n\
--  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n\
--  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n\
--  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n\
--  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n\
--  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n\
--  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n\
--  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n\
--  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n\
--  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n\
--  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n\
--  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n\
--  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n\
--  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n\
--  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n\
--  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n\
--  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n\
--  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n\
--  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n\
--  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n\
--  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n\
--  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n\
--  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n\
--  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n\
--  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n\
--  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n\
--  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n\
--  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n\
--  5.682971i 0.435688i 5.683877i 0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 4.315217i 0.423007i 4.315217i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n\
--  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n\
--  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n\
--  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n\
--  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n\
--  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n\
--  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n\
--  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n\
--  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n\
--  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n\
--  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n\
--  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n\
--  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n\
--  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n\
--  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n\
--  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n\
--  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n\
--  0.640399i 4.272645i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n\
--  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n\
--  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n\
--  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n\
--  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n\
--  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n\
--  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n\
--  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n\
--  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n\
--  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n\
--  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n\
--  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n\
--  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n\
--  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n\
--  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n\
--  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n\
--  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n\
--  0.640399i 4.272645i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n\
--  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n\
--  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n\
--  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n\
--  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n\
--  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n\
--  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n\
--  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n\
--  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n\
--  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n\
--  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n\
--  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n\
--  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n\
--  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n\
--  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n\
--  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n\
--  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n\
--  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n\
--  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n\
--  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n\
--  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n\
--  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n\
--  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n\
--  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n\
--  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n\
--  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n\
--  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n\
--  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n\
--  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n\
--  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n\
--  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n\
--  0.435688i 4.320652i 0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n\
--  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n\
--  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n\
--  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n\
--  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n\
--  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n\
--  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n\
--  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n\
--  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n\
--  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n\
--  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n\
--  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n\
--  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n\
--  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n\
--  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n\
--  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n\
--  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n\
--  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n\
--  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n\
--  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n\
--  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n\
--  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n\
--  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n\
--  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n\
--  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n\
--  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n\
--  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n\
--  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n\
--  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n\
--  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n\
--  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n\
--  0.435688i 4.320652i 0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 3.671196i 0.086051i 3.671196i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n\
--  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n\
--  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n\
--  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n\
--  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n\
--  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n\
--  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n\
--  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n\
--  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n\
--  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n\
--  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n\
--  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n\
--  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n\
--  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n\
--  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n\
--  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n\
--  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n\
--  0.301630i 3.628623i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n\
--  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n\
--  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n\
--  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n\
--  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n\
--  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n\
--  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n\
--  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n\
--  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n\
--  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n\
--  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n\
--  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n\
--  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n\
--  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n\
--  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n\
--  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n\
--  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n\
--  0.301630i 3.628623i 0.301630i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n\
--  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n\
--  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n\
--  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n\
--  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n\
--  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n\
--  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n\
--  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n\
--  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n\
--  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n\
--  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n\
--  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n\
--  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n\
--  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n\
--  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n\
--  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n\
--  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n\
--  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n\
--  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n\
--  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n\
--  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n\
--  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n\
--  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n\
--  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n\
--  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n\
--  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n\
--  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n\
--  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n\
--  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n\
--  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n\
--  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n\
--  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline {} -fill $tkxox(score_active_note) \\\n\
--  -width 0\n\
--${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n\
--  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n\
--  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n\
--  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n\
--  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n\
--  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n\
--  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n\
--  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n\
--  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n\
--  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n\
--  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n\
--  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n\
--  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n\
--  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n\
--  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n\
--  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n\
--  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n\
--  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n\
--  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n\
--  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n\
--  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n\
--  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n\
--  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n\
--  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n\
--  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n\
--  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n\
--  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n\
--  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n\
--  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n\
--  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n\
--  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n\
--  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline $tkxox(score_active_note) -fill \\\n\
--  {}\n\
--${score} create line 3.671196i 0.423007i 3.671196i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n\
--  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n\
--  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n\
--  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n\
--  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n\
--  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n\
--  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n\
--  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n\
--  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n\
--  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n\
--  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n\
--  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n\
--  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n\
--  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n\
--  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n\
--  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n\
--  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n\
--  0.640399i 3.628623i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n\
--  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n\
--  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n\
--  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n\
--  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n\
--  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n\
--  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n\
--  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n\
--  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n\
--  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n\
--  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n\
--  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n\
--  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n\
--  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n\
--  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n\
--  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n\
--  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n\
--  0.640399i 3.628623i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n\
--  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n\
--  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n\
--  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n\
--  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n\
--  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n\
--  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n\
--  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n\
--  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n\
--  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n\
--  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n\
--  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n\
--  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n\
--  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n\
--  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n\
--  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n\
--  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n\
--  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n\
--  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n\
--  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n\
--  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n\
--  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n\
--  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n\
--  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n\
--  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n\
--  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n\
--  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n\
--  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n\
--  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n\
--  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n\
--  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n\
--  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n\
--  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n\
--  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n\
--  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n\
--  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n\
--  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n\
--  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n\
--  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n\
--  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n\
--  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n\
--  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n\
--  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n\
--  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n\
--  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n\
--  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n\
--  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n\
--  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n\
--  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n\
--  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n\
--  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n\
--  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n\
--  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n\
--  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n\
--  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n\
--  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n\
--  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n\
--  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n\
--  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n\
--  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n\
--  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 3.712862i 1.060688i 3.712862i 1.264493i -fill $tkxox(score_active_note)\n\
--${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n\
--  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n\
--  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n\
--  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n\
--  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n\
--  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n\
--  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n\
--  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n\
--  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n\
--  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n\
--  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n\
--  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n\
--  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n\
--  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n\
--  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n\
--  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n\
--  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n\
--  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n\
--  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n\
--  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n\
--  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n\
--  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n\
--  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n\
--  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n\
--  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n\
--  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n\
--  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n\
--  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n\
--  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n\
--  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n\
--  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n\
--  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n\
--  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 3.066123i 0.423007i 3.066123i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n\
--  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n\
--  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n\
--  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n\
--  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n\
--  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n\
--  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n\
--  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n\
--  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n\
--  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n\
--  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n\
--  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n\
--  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n\
--  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n\
--  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n\
--  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n\
--  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n\
--  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n\
--  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n\
--  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n\
--  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n\
--  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n\
--  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n\
--  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n\
--  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n\
--  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n\
--  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n\
--  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n\
--  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n\
--  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n\
--  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n\
--  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n\
--  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n\
--  0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n\
--  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n\
--  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n\
--  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n\
--  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n\
--  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n\
--  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n\
--  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n\
--  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n\
--  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n\
--  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n\
--  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n\
--  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n\
--  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n\
--  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n\
--  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n\
--  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n\
--  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n\
--  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n\
--  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n\
--  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n\
--  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n\
--  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n\
--  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n\
--  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n\
--  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n\
--  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n\
--  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n\
--  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n\
--  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n\
--  3.070652i 0.435688i 3.071558i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n\
--  0\n\
--${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n\
--  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n\
--  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n\
--  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n\
--  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n\
--  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n\
--  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n\
--  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n\
--  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n\
--  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n\
--  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n\
--  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n\
--  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n\
--  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n\
--  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n\
--  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n\
--  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n\
--  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n\
--  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n\
--  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n\
--  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n\
--  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n\
--  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n\
--  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n\
--  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n\
--  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n\
--  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n\
--  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n\
--  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n\
--  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n\
--  3.070652i 0.435688i 3.071558i 0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 2.309783i 0.423007i 2.309783i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n\
--  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n\
--  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n\
--  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n\
--  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n\
--  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n\
--  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n\
--  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n\
--  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n\
--  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n\
--  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n\
--  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n\
--  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n\
--  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n\
--  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n\
--  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n\
--  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n\
--  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n\
--  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n\
--  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n\
--  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n\
--  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n\
--  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n\
--  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n\
--  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n\
--  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n\
--  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n\
--  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n\
--  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n\
--  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n\
--  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n\
--  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n\
--  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n\
--  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n\
--  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n\
--  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n\
--  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n\
--  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n\
--  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n\
--  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n\
--  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n\
--  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n\
--  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n\
--  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n\
--  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n\
--  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n\
--  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n\
--  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n\
--  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n\
--  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n\
--  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n\
--  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n\
--  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n\
--  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n\
--  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n\
--  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n\
--  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n\
--  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n\
--  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n\
--  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n\
--  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n\
--  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n\
--  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n\
--  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n\
--  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n\
--  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n\
--  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n\
--  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n\
--  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n\
--  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n\
--  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n\
--  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n\
--  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n\
--  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n\
--  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n\
--  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n\
--  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n\
--  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n\
--  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n\
--  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n\
--  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n\
--  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n\
--  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n\
--  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n\
--  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n\
--  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n\
--  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n\
--  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n\
--  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n\
--  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n\
--  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n\
--  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n\
--  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create line 2.309783i 0.086051i 2.309783i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n\
--  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n\
--  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n\
--  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n\
--  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n\
--  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n\
--  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n\
--  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n\
--  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n\
--  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n\
--  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n\
--  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n\
--  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n\
--  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n\
--  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n\
--  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n\
--  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n\
--  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n\
--  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n\
--  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n\
--  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n\
--  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n\
--  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n\
--  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n\
--  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n\
--  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n\
--  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n\
--  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n\
--  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n\
--  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n\
--  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n\
--  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n\
--  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n\
--  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n\
--  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n\
--  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n\
--  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n\
--  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n\
--  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n\
--  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n\
--  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n\
--  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n\
--  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n\
--  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n\
--  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n\
--  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n\
--  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n\
--  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n\
--  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n\
--  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n\
--  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n\
--  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n\
--  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n\
--  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n\
--  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n\
--  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n\
--  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n\
--  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n\
--  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n\
--  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n\
--  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n\
--  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n\
--  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n\
--  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n\
--  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n\
--  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n\
--  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n\
--  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n\
--  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n\
--  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n\
--  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n\
--  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n\
--  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n\
--  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n\
--  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n\
--  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n\
--  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n\
--  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n\
--  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n\
--  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n\
--  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n\
--  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n\
--  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n\
--  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n\
--  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n\
--  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n\
--  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n\
--  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n\
--  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n\
--  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n\
--  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n\
--  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n\
--  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n\
--  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n\
--  0.104167i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 1.702899i 0.423007i 1.702899i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n\
--  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n\
--  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n\
--  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n\
--  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n\
--  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n\
--  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n\
--  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n\
--  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n\
--  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n\
--  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n\
--  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n\
--  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n\
--  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n\
--  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n\
--  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n\
--  1.660326i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n\
--  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n\
--  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n\
--  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n\
--  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n\
--  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n\
--  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n\
--  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n\
--  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n\
--  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n\
--  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n\
--  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n\
--  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n\
--  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n\
--  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n\
--  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n\
--  1.660326i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n\
--  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n\
--  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n\
--  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n\
--  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n\
--  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n\
--  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n\
--  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n\
--  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n\
--  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n\
--  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n\
--  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n\
--  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n\
--  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n\
--  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n\
--  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n\
--  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n\
--  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n\
--  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n\
--  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n\
--  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n\
--  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n\
--  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n\
--  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n\
--  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n\
--  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n\
--  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n\
--  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n\
--  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n\
--  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n\
--  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n\
--  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n\
--  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n\
--  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n\
--  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n\
--  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n\
--  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n\
--  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n\
--  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n\
--  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n\
--  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n\
--  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n\
--  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n\
--  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n\
--  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n\
--  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n\
--  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n\
--  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n\
--  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n\
--  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n\
--  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n\
--  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n\
--  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n\
--  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n\
--  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n\
--  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n\
--  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n\
--  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n\
--  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n\
--  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n\
--  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n\
--  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n\
--  0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 1.098732i 0.086051i 1.098732i 0.266304i -fill $tkxox(score_active_note)\n\
--${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n\
--  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n\
--  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n\
--  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n\
--  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n\
--  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n\
--  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n\
--  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n\
--  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n\
--  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n\
--  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n\
--  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n\
--  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n\
--  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n\
--  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n\
--  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n\
--  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n\
--  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n\
--  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n\
--  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n\
--  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n\
--  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n\
--  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n\
--  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n\
--  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n\
--  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n\
--  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n\
--  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n\
--  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n\
--  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n\
--  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n\
--  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n\
--  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n\
--  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n\
--  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n\
--  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n\
--  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n\
--  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n\
--  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n\
--  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n\
--  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n\
--  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n\
--  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n\
--  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n\
--  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n\
--  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n\
--  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n\
--  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n\
--  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n\
--  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n\
--  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n\
--  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n\
--  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n\
--  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n\
--  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n\
--  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n\
--  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n\
--  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n\
--  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n\
--  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n\
--  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n\
--  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n\
--  1.103261i 0.097826i 1.104167i 0.104167i -outline {} -fill $tkxox(score_active_note) -width \\\n\
--  0\n\
--${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n\
--  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n\
--  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n\
--  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n\
--  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n\
--  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n\
--  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n\
--  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n\
--  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n\
--  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n\
--  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n\
--  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n\
--  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n\
--  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n\
--  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n\
--  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n\
--  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n\
--  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n\
--  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n\
--  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n\
--  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n\
--  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n\
--  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n\
--  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n\
--  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n\
--  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n\
--  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n\
--  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n\
--  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n\
--  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n\
--  1.103261i 0.097826i 1.104167i 0.104167i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 1.098732i 0.423007i 1.098732i 0.602355i -fill $tkxox(score_active_note)\n\
--${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n\
--  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n\
--  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n\
--  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n\
--  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n\
--  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n\
--  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n\
--  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n\
--  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n\
--  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n\
--  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n\
--  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n\
--  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n\
--  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n\
--  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n\
--  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n\
--  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline {} \\\n\
--  -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n\
--  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n\
--  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n\
--  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n\
--  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n\
--  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n\
--  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n\
--  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n\
--  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n\
--  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n\
--  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n\
--  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n\
--  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n\
--  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n\
--  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n\
--  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n\
--  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline $tkxox(score_active_note) \\\n\
--  -fill {}\n\
--${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n\
--  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n\
--  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n\
--  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n\
--  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n\
--  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n\
--  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n\
--  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n\
--  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n\
--  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n\
--  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n\
--  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n\
--  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n\
--  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n\
--  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n\
--  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n\
--  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n\
--  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n\
--  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n\
--  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n\
--  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n\
--  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n\
--  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n\
--  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n\
--  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n\
--  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n\
--  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n\
--  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n\
--  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n\
--  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline {} -fill $tkxox(score_active_note) \\\n\
--  -width 0\n\
--${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n\
--  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n\
--  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n\
--  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n\
--  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n\
--  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n\
--  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n\
--  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n\
--  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n\
--  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n\
--  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n\
--  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n\
--  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n\
--  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n\
--  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n\
--  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n\
--  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n\
--  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n\
--  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n\
--  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n\
--  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n\
--  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n\
--  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n\
--  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n\
--  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n\
--  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n\
--  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n\
--  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n\
--  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n\
--  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline $tkxox(score_active_note) -fill \\\n\
--  {}\n\
--${score} create line 1.101449i 0.721920i 1.101449i 0.927536i -fill $tkxox(score_active_note)\n\
--${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n\
--  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n\
--  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n\
--  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n\
--  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n\
--  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n\
--  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n\
--  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n\
--  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n\
--  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n\
--  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n\
--  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n\
--  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n\
--  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n\
--  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n\
--  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n\
--  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n\
--  0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n\
--  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n\
--  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n\
--  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n\
--  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n\
--  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n\
--  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n\
--  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n\
--  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n\
--  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n\
--  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n\
--  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n\
--  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n\
--  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n\
--  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n\
--  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n\
--  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n\
--  0.968297i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 1.101449i 1.060688i 1.101449i 1.264493i -fill $tkxox(score_active_note)\n\
--${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n\
--  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n\
--  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n\
--  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n\
--  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n\
--  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n\
--  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n\
--  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n\
--  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n\
--  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n\
--  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n\
--  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n\
--  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n\
--  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n\
--  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n\
--  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n\
--  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n\
--  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n\
--  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n\
--  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n\
--  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n\
--  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n\
--  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n\
--  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n\
--  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n\
--  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n\
--  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n\
--  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n\
--  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n\
--  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n\
--  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n\
--  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n\
--  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n\
--  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n\
--  1.307065i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 11.018116i 0.423007i 11.018116i 0.602355i -fill \\\n\
--  $tkxox(score_passive_note)\n\
--${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n\
--  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n\
--  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n\
--  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n\
--  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n\
--  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n\
--  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n\
--  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n\
--  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n\
--  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n\
--  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n\
--  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n\
--  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n\
--  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n\
--  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n\
--  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n\
--  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n\
--  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n\
--  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n\
--  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n\
--  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n\
--  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n\
--  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n\
--  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n\
--  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n\
--  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n\
--  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n\
--  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n\
--  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n\
--  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n\
--  11.022645i 0.435688i 11.023551i 0.442029i -outline {} -fill $tkxox(score_passive_note) -width \\\n\
--  0\n\
--${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n\
--  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n\
--  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n\
--  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n\
--  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n\
--  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n\
--  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n\
--  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n\
--  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n\
--  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n\
--  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n\
--  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n\
--  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n\
--  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n\
--  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n\
--  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n\
--  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n\
--  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n\
--  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n\
--  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n\
--  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n\
--  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n\
--  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n\
--  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n\
--  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n\
--  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n\
--  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n\
--  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n\
--  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n\
--  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n\
--  11.022645i 0.435688i 11.023551i 0.442029i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n\
--  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n\
--  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n\
--  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n\
--  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n\
--  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n\
--  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n\
--  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n\
--  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n\
--  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n\
--  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n\
--  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n\
--  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n\
--  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n\
--  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n\
--  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n\
--  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n\
--  0.640399i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
--${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n\
--  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n\
--  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n\
--  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n\
--  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n\
--  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n\
--  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n\
--  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n\
--  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n\
--  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n\
--  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n\
--  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n\
--  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n\
--  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n\
--  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n\
--  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n\
--  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n\
--  0.640399i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create line 10.333333i 0.423007i 10.333333i 0.602355i -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n\
--  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n\
--  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n\
--  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n\
--  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n\
--  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n\
--  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n\
--  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n\
--  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n\
--  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n\
--  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n\
--  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n\
--  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n\
--  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n\
--  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n\
--  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n\
--  10.288949i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n\
--  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n\
--  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n\
--  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n\
--  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n\
--  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n\
--  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n\
--  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n\
--  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n\
--  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n\
--  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n\
--  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n\
--  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n\
--  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n\
--  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n\
--  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n\
--  10.288949i 0.640399i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n\
--  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n\
--  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n\
--  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n\
--  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n\
--  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n\
--  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n\
--  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n\
--  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n\
--  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n\
--  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n\
--  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n\
--  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n\
--  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n\
--  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n\
--  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n\
--  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n\
--  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n\
--  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n\
--  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n\
--  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n\
--  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n\
--  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n\
--  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n\
--  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n\
--  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n\
--  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n\
--  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n\
--  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n\
--  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n\
--  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n\
--  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n\
--${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n\
--  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n\
--  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n\
--  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n\
--  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n\
--  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n\
--  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n\
--  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n\
--  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n\
--  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n\
--  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n\
--  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n\
--  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n\
--  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n\
--  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n\
--  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n\
--  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n\
--  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n\
--  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n\
--  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n\
--  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n\
--  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n\
--  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n\
--  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n\
--  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n\
--  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n\
--  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n\
--  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n\
--  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n\
--  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n\
--  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n\
--  0.442029i -outline $tkxox(score_active_note) -fill {}\n\
--${score} create line 10.336051i 0.086051i 10.336051i 0.266304i -fill \\\n\
--  $tkxox(score_passive_note)\n\
--${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n\
--  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n\
--  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n\
--  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n\
--  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n\
--  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n\
--  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n\
--  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n\
--  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n\
--  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n\
--  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n\
--  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n\
--  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n\
--  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n\
--  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n\
--  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n\
--  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n\
--  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n\
--  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n\
--  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n\
--  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n\
--  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n\
--  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n\
--  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n\
--  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n\
--  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n\
--  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n\
--  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n\
--  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n\
--  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n\
--  10.340580i 0.097826i 10.341486i 0.104167i -outline {} -fill $tkxox(score_passive_note) -width \\\n\
--  0\n\
--${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n\
--  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n\
--  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n\
--  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n\
--  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n\
--  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n\
--  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n\
--  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n\
--  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n\
--  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n\
--  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n\
--  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n\
--  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n\
--  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n\
--  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n\
--  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n\
--  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n\
--  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n\
--  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n\
--  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n\
--  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n\
--  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n\
--  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n\
--  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n\
--  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n\
--  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n\
--  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n\
--  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n\
--  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n\
--  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n\
--  10.340580i 0.097826i 10.341486i 0.104167i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n\
--  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n\
--  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n\
--  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n\
--  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n\
--  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n\
--  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n\
--  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n\
--  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n\
--  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n\
--  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n\
--  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n\
--  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n\
--  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n\
--  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n\
--  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n\
--  10.284420i 0.301630i 10.291667i 0.301630i -outline {} -fill $tkxox(score_passive_note) -width \\\n\
--  0\n\
--${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n\
--  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n\
--  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n\
--  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n\
--  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n\
--  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n\
--  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n\
--  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n\
--  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n\
--  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n\
--  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n\
--  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n\
--  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n\
--  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n\
--  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n\
--  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n\
--  10.284420i 0.301630i 10.291667i 0.301630i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create line 9.048007i 0.086051i 9.048007i 0.266304i -fill $tkxox(score_passive_note)\n\
--${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n\
--  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n\
--  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n\
--  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n\
--  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n\
--  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n\
--  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n\
--  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n\
--  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n\
--  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n\
--  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n\
--  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n\
--  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n\
--  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n\
--  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n\
--  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n\
--  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n\
--  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n\
--  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n\
--  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n\
--  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n\
--  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n\
--  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n\
--  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n\
--  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n\
--  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n\
--  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n\
--  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n\
--  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n\
--  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n\
--  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n\
--  0.104167i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
--${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n\
--  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n\
--  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n\
--  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n\
--  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n\
--  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n\
--  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n\
--  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n\
--  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n\
--  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n\
--  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n\
--  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n\
--  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n\
--  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n\
--  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n\
--  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n\
--  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n\
--  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n\
--  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n\
--  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n\
--  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n\
--  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n\
--  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n\
--  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n\
--  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n\
--  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n\
--  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n\
--  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n\
--  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n\
--  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n\
--  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n\
--  0.104167i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n\
--  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n\
--  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n\
--  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n\
--  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n\
--  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n\
--  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n\
--  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n\
--  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n\
--  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n\
--  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n\
--  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n\
--  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n\
--  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n\
--  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n\
--  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n\
--  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n\
--  0.301630i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
--${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n\
--  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n\
--  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n\
--  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n\
--  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n\
--  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n\
--  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n\
--  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n\
--  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n\
--  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n\
--  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n\
--  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n\
--  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n\
--  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n\
--  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n\
--  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n\
--  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n\
--  0.301630i -outline $tkxox(score_passive_note) -fill {}\n\
--${score} create line 2.314312i 0.403080i 1.096014i 0.403080i -fill $tkxox(score_active_note)\n\
--${score} create line 2.317029i 0.063406i 1.099638i 0.063406i -fill $tkxox(score_active_note)\n\
--${score} create line 3.681159i 0.063406i 2.312500i 0.063406i -fill $tkxox(score_active_note)\n\
--${score} create line 4.343297i 0.403080i 3.070652i 0.403080i -fill $tkxox(score_active_note)\n\
--${score} create line 6.311594i 0.403080i 5.038043i 0.403080i -fill $tkxox(score_active_note)\n\
--${score} create line 7.660326i 0.065217i 5.040761i 0.065217i -fill $tkxox(score_active_note)\n\
--${score} create line 8.295290i 0.406703i 7.022645i 0.406703i -fill $tkxox(score_active_note)\n\
--${score} create line 10.346920i 0.404891i 9.047101i 0.404891i -fill $tkxox(score_active_note)\n\
--${score} create line 11.795290i 0.407609i 11.023551i 0.403080i -fill \\\n\
--  $tkxox(score_passive_note)\n\
--${score} create line 11.788949i 0.061594i 9.048007i 0.061594i -fill $tkxox(score_passive_note)\n\
--${score} create line 1.097826i 0.063406i 1.096920i 0.063406i 1.094203i \\\n\
--  0.063406i 1.088768i 0.063406i 1.081522i 0.063406i 1.073370i 0.064312i \\\n\
--  1.063406i 0.066123i 1.053442i 0.067935i 1.049819i 0.068841i 1.048913i \\\n\
--  0.069746i 1.045290i 0.070652i 1.034420i 0.075181i 1.024457i 0.079710i \\\n\
--  1.019022i 0.080616i 1.018116i 0.080616i 1.016304i 0.080616i 1.009964i \\\n\
--  0.084239i 0.995471i 0.093297i 0.981884i 0.103261i 0.970109i 0.112319i \\\n\
--  0.959239i 0.121377i 0.949275i 0.130435i 0.940217i 0.138587i 0.933877i \\\n\
--  0.144022i 0.931159i 0.146739i 0.930254i 0.147645i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 1.098732i 0.400362i 1.097826i 0.400362i 1.095109i \\\n\
--  0.400362i 1.089674i 0.400362i 1.082428i 0.400362i 1.074275i 0.401268i \\\n\
--  1.064312i 0.403080i 1.054348i 0.404891i 1.050725i 0.405797i 1.049819i \\\n\
--  0.406703i 1.046196i 0.407609i 1.035326i 0.412138i 1.025362i 0.416667i \\\n\
--  1.019928i 0.418478i 1.019022i 0.418478i 1.017210i 0.418478i 1.010870i \\\n\
--  0.422101i 0.996377i 0.432065i 0.982790i 0.442029i 0.971014i 0.451993i \\\n\
--  0.960145i 0.461051i 0.950181i 0.469203i 0.941123i 0.477355i 0.934783i \\\n\
--  0.482790i 0.932065i 0.485507i 0.931159i 0.486413i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 2.311594i 0.400362i 2.312500i 0.400362i 2.315217i \\\n\
--  0.400362i 2.319746i 0.400362i 2.326993i 0.400362i 2.334239i 0.401268i \\\n\
--  2.344203i 0.403080i 2.354167i 0.404891i 2.357790i 0.405797i 2.358696i \\\n\
--  0.406703i 2.362319i 0.407609i 2.373188i 0.412138i 2.383152i 0.416667i \\\n\
--  2.387681i 0.418478i 2.389493i 0.418478i 2.390399i 0.418478i 2.396739i \\\n\
--  0.422101i 2.411232i 0.432065i 2.423913i 0.442029i 2.436594i 0.451993i \\\n\
--  2.447464i 0.461051i 2.457428i 0.469203i 2.466486i 0.477355i 2.472826i \\\n\
--  0.482790i 2.475543i 0.485507i 2.476449i 0.486413i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 3.670290i 0.065217i 3.671196i 0.065217i 3.673913i \\\n\
--  0.065217i 3.679348i 0.065217i 3.686594i 0.066123i 3.695652i 0.067029i \\\n\
--  3.705616i 0.068841i 3.715580i 0.071558i 3.719203i 0.072464i 3.720109i \\\n\
--  0.072464i 3.723732i 0.074275i 3.734601i 0.077899i 3.744565i 0.081522i \\\n\
--  3.749094i 0.083333i 3.750906i 0.082428i 3.751812i 0.082428i 3.758152i \\\n\
--  0.086051i 3.772645i 0.095109i 3.785326i 0.104167i 3.798007i 0.114130i \\\n\
--  3.808877i 0.123188i 3.818841i 0.132246i 3.827899i 0.139493i 3.834239i \\\n\
--  0.144928i 3.836957i 0.147645i 3.837862i 0.148551i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 4.337862i 0.403080i 4.338768i 0.403080i 4.342391i \\\n\
--  0.403080i 4.349638i 0.403986i 4.357790i 0.404891i 4.369565i 0.406703i \\\n\
--  4.378623i 0.408514i 4.383152i 0.409420i 4.384964i 0.409420i 4.386775i \\\n\
--  0.409420i 4.391304i 0.411232i 4.401268i 0.414855i 4.411232i 0.419384i \\\n\
--  4.416667i 0.421196i 4.417572i 0.421196i 4.418478i 0.422101i 4.424819i \\\n\
--  0.425725i 4.439312i 0.435688i 4.451993i 0.445652i 4.464674i 0.455616i \\\n\
--  4.475543i 0.464674i 4.485507i 0.473732i 4.494565i 0.480978i 4.500906i \\\n\
--  0.486413i 4.503623i 0.489130i 4.504529i 0.490036i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 3.073370i 0.400362i 3.072464i 0.400362i 3.069746i \\\n\
--  0.400362i 3.065217i 0.400362i 3.057971i 0.400362i 3.050725i 0.401268i \\\n\
--  3.040761i 0.403080i 3.030797i 0.404891i 3.027174i 0.405797i 3.026268i \\\n\
--  0.406703i 3.022645i 0.407609i 3.011775i 0.412138i 3.001812i 0.416667i \\\n\
--  2.997283i 0.418478i 2.995471i 0.418478i 2.994565i 0.418478i 2.988225i \\\n\
--  0.422101i 2.973732i 0.432065i 2.960145i 0.442029i 2.948370i 0.451993i \\\n\
--  2.936594i 0.461051i 2.926630i 0.469203i 2.916667i 0.477355i 2.910326i \\\n\
--  0.482790i 2.907609i 0.485507i 2.906703i 0.486413i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 5.038043i 0.399457i 5.037138i 0.399457i 5.034420i \\\n\
--  0.399457i 5.029891i 0.400362i 5.022645i 0.400362i 5.015399i 0.401268i \\\n\
--  5.005435i 0.403080i 4.995471i 0.404891i 4.991848i 0.405797i 4.990942i \\\n\
--  0.405797i 4.987319i 0.406703i 4.976449i 0.411232i 4.966486i 0.415761i \\\n\
--  4.961957i 0.417572i 4.960145i 0.417572i 4.959239i 0.418478i 4.952899i \\\n\
--  0.422101i 4.938406i 0.432065i 4.925725i 0.442029i 4.913043i 0.451087i \\\n\
--  4.902174i 0.460145i 4.892210i 0.469203i 4.883152i 0.476449i 4.876812i \\\n\
--  0.481884i 4.874094i 0.484601i 4.873188i 0.485507i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 5.039855i 0.064312i 5.038949i 0.064312i 5.036232i \\\n\
--  0.064312i 5.031703i 0.064312i 5.024457i 0.064312i 5.017210i 0.065217i \\\n\
--  5.007246i 0.067029i 4.997283i 0.068841i 4.993659i 0.069746i 4.992754i \\\n\
--  0.070652i 4.989130i 0.071558i 4.978261i 0.076087i 4.968297i 0.080616i \\\n\
--  4.963768i 0.081522i 4.961957i 0.081522i 4.961051i 0.081522i 4.954710i \\\n\
--  0.085145i 4.940217i 0.094203i 4.927536i 0.103261i 4.914855i 0.113225i \\\n\
--  4.903986i 0.122283i 4.894022i 0.131341i 4.884964i 0.138587i 4.878623i \\\n\
--  0.144022i 4.875906i 0.146739i 4.875000i 0.147645i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 6.313406i 0.403080i 6.314312i 0.403080i 6.317029i \\\n\
--  0.403080i 6.322464i 0.403080i 6.328804i 0.403986i 6.336957i 0.403986i \\\n\
--  6.346920i 0.405797i 6.356884i 0.407609i 6.360507i 0.408514i 6.364130i \\\n\
--  0.409420i 6.375000i 0.413949i 6.384964i 0.418478i 6.390399i 0.420290i \\\n\
--  6.391304i 0.420290i 6.393116i 0.421196i 6.399457i 0.424819i 6.413949i \\\n\
--  0.434783i 6.427536i 0.444746i 6.439312i 0.454710i 6.450181i 0.463768i \\\n\
--  6.460145i 0.472826i 6.469203i 0.480072i 6.475543i 0.485507i 6.478261i \\\n\
--  0.488225i 6.479167i 0.489130i -joinstyle bevel -fill $tkxox(score_active_note)\n\
--${score} create line 7.658514i 0.067029i 7.659420i 0.067029i 7.663043i \\\n\
--  0.067029i 7.670290i 0.067029i 7.678442i 0.067935i 7.690217i 0.069746i \\\n\
--  7.699275i 0.071558i 7.703804i 0.073370i 7.705616i 0.073370i 7.707428i \\\n\
--  0.074275i 7.711957i 0.076087i 7.721920i 0.079710i 7.731884i 0.084239i \\\n\
--  7.737319i 0.085145i 7.738225i 0.085145i 7.739130i 0.085145i 7.745471i \\\n\
--  0.088768i 7.759964i 0.097826i 7.772645i 0.106884i 7.785326i 0.116848i \\\n\
--  7.796196i 0.125906i 7.806159i 0.134964i 7.815217i 0.142210i 7.821558i \\\n\
--  0.147645i 7.824275i 0.150362i 7.825181i 0.151268i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 7.049819i 0.403080i 7.048913i 0.403080i 7.046196i \\\n\
--  0.403080i 7.041667i 0.403080i 7.034420i 0.403986i 7.027174i 0.403986i \\\n\
--  7.017210i 0.405797i 7.007246i 0.407609i 7.003623i 0.408514i 7.002717i \\\n\
--  0.408514i 6.999094i 0.409420i 6.988225i 0.413949i 6.978261i 0.418478i \\\n\
--  6.972826i 0.420290i 6.971014i 0.420290i 6.969203i 0.421196i 6.962862i \\\n\
--  0.424819i 6.948370i 0.434783i 6.934783i 0.444746i 6.923007i 0.454710i \\\n\
--  6.912138i 0.463768i 6.902174i 0.472826i 6.893116i 0.480072i 6.886775i \\\n\
--  0.485507i 6.884058i 0.488225i 6.883152i 0.489130i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 8.290761i 0.405797i 8.291667i 0.405797i 8.295290i \\\n\
--  0.405797i 8.302536i 0.405797i 8.310688i 0.406703i 8.322464i 0.408514i \\\n\
--  8.332428i 0.410326i 8.336051i 0.411232i 8.336957i 0.412138i 8.341486i \\\n\
--  0.413043i 8.352355i 0.417572i 8.362319i 0.422101i 8.366848i 0.423913i \\\n\
--  8.368659i 0.423913i 8.369565i 0.423913i 8.375906i 0.427536i 8.390399i \\\n\
--  0.437500i 8.403986i 0.447464i 8.415761i 0.457428i 8.427536i 0.466486i \\\n\
--  8.438406i 0.474638i 8.447464i 0.482790i 8.453804i 0.488225i 8.456522i \\\n\
--  0.490942i 8.457428i 0.491848i -joinstyle bevel -fill $tkxox(score_active_note)\n\
--${score} create line 10.342391i 0.403080i 10.343297i 0.403080i 10.346014i \\\n\
--  0.403080i 10.351449i 0.403986i 10.357790i 0.403986i 10.365942i 0.404891i \\\n\
--  10.375906i 0.406703i 10.385870i 0.408514i 10.389493i 0.409420i 10.390399i \\\n\
--  0.409420i 10.394022i 0.410326i 10.404891i 0.414855i 10.414855i 0.419384i \\\n\
--  10.419384i 0.421196i 10.421196i 0.421196i 10.422101i 0.422101i 10.428442i \\\n\
--  0.425725i 10.442935i 0.435688i 10.455616i 0.445652i 10.468297i 0.455616i \\\n\
--  10.479167i 0.464674i 10.489130i 0.473732i 10.498188i 0.480978i 10.504529i \\\n\
--  0.486413i 10.507246i 0.489130i 10.508152i 0.490036i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--${score} create line 11.024457i 0.402174i 11.023551i 0.402174i 11.020833i \\\n\
--  0.402174i 11.015399i 0.402174i 11.008152i 0.403080i 10.999094i 0.403080i \\\n\
--  10.989130i 0.404891i 10.979167i 0.406703i 10.975543i 0.407609i 10.974638i \\\n\
--  0.407609i 10.971014i 0.408514i 10.960145i 0.413043i 10.950181i 0.417572i \\\n\
--  10.944746i 0.419384i 10.943841i 0.419384i 10.942029i 0.420290i 10.935688i \\\n\
--  0.423913i 10.921196i 0.433877i 10.908514i 0.443841i 10.895833i 0.452899i \\\n\
--  10.884964i 0.461957i 10.875000i 0.471014i 10.866848i 0.478261i 10.860507i \\\n\
--  0.483696i 10.857790i 0.486413i 10.856884i 0.487319i -joinstyle bevel -fill \\\n\
--  $tkxox(score_passive_note)\n\
--${score} create line 9.053442i 0.065217i 9.052536i 0.065217i 9.049819i \\\n\
--  0.065217i 9.045290i 0.065217i 9.038949i 0.066123i 9.030797i 0.067029i \\\n\
--  9.020833i 0.068841i 9.010870i 0.071558i 9.007246i 0.072464i 9.005435i \\\n\
--  0.072464i 9.001812i 0.074275i 8.990942i 0.077899i 8.980978i 0.081522i \\\n\
--  8.975543i 0.083333i 8.974638i 0.082428i 8.973732i 0.082428i 8.967391i \\\n\
--  0.086051i 8.952899i 0.095109i 8.940217i 0.104167i 8.927536i 0.114130i \\\n\
--  8.916667i 0.123188i 8.906703i 0.132246i 8.897645i 0.139493i 8.891304i \\\n\
--  0.144928i 8.888587i 0.147645i 8.887681i 0.148551i -joinstyle bevel -fill \\\n\
--  $tkxox(score_passive_note)\n\
--${score} create line 9.051630i 0.403080i 9.050725i 0.403080i 9.048007i \\\n\
--  0.403080i 9.043478i 0.403080i 9.037138i 0.403986i 9.028986i 0.403986i \\\n\
--  9.019022i 0.405797i 9.009058i 0.407609i 9.005435i 0.408514i 9.003623i \\\n\
--  0.408514i 9.000000i 0.409420i 8.989130i 0.413949i 8.979167i 0.418478i \\\n\
--  8.973732i 0.420290i 8.972826i 0.420290i 8.971920i 0.421196i 8.965580i \\\n\
--  0.424819i 8.951087i 0.434783i 8.938406i 0.444746i 8.925725i 0.454710i \\\n\
--  8.914855i 0.463768i 8.904891i 0.472826i 8.895833i 0.480072i 8.889493i \\\n\
--  0.485507i 8.886775i 0.488225i 8.885870i 0.489130i -joinstyle bevel -fill \\\n\
--  $tkxox(score_active_note)\n\
--";
-+char tcl_score[] = ""
-+"# do not edit.\n"
-+"# file automatically generated by:\n"
-+"#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n"
-+"\n"
-+"set score $note_score.score\n"
-+"\n"
-+"canvas ${score} -width ${score_width_in_inch}i -height ${score_height_in_inch}i \\\n"
-+"	-bg                 $tkxox(col_def_bg) \\\n"
-+"	-highlightthickness 0\n"
-+"\n"
-+"${score} config -xscrollincrement 1p -yscrollincrement 1p\n"
-+"${score} xview scroll ${score_scroll_x_in_point} u\n"
-+"${score} yview scroll ${score_scroll_y_in_point} u\n"
-+"\n"
-+"pack ${score} -side left\n"
-+"\n"
-+"# The xfig objects begin here\n"
-+"${score} create line 0.720109i 0.040761i 11.321558i 0.040761i 11.321558i \\\n"
-+"  0.326087i 0.720109i 0.326087i 0.720109i 0.040761i -fill $tkxox(score_passive_note)\n"
-+"${score} create polygon 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n"
-+"  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -outline {} -fill $tkxox(col_def_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n"
-+"  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -fill $tkxox(col_def_bg)\n"
-+"${score} create polygon 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n"
-+"  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n"
-+"  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n"
-+"  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n"
-+"  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n"
-+"  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n"
-+"  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n"
-+"  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n"
-+"  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n"
-+"  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n"
-+"  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n"
-+"  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n"
-+"  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n"
-+"  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n"
-+"  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n"
-+"  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n"
-+"  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n"
-+"  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n"
-+"  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n"
-+"  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n"
-+"  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n"
-+"  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -outline {} -fill \\\n"
-+"  $tkxox(color_score_bg) -width 0\n"
-+"${score} create line 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n"
-+"  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n"
-+"  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n"
-+"  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n"
-+"  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n"
-+"  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n"
-+"  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n"
-+"  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create polygon 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n"
-+"  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-+"  -width 0\n"
-+"${score} create line 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n"
-+"  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -fill $tkxox(color_score_bg)\n"
-+"${score} create line 7.042572i 0.423007i 7.042572i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n"
-+"  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n"
-+"  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n"
-+"  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n"
-+"  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n"
-+"  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n"
-+"  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n"
-+"  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n"
-+"  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n"
-+"  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n"
-+"  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n"
-+"  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n"
-+"  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n"
-+"  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n"
-+"  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n"
-+"  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n"
-+"  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n"
-+"  0.640399i 7.000000i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n"
-+"  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n"
-+"  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n"
-+"  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n"
-+"  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n"
-+"  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n"
-+"  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n"
-+"  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n"
-+"  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n"
-+"  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n"
-+"  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n"
-+"  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n"
-+"  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n"
-+"  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n"
-+"  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n"
-+"  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n"
-+"  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n"
-+"  0.640399i 7.000000i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n"
-+"  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n"
-+"  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n"
-+"  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n"
-+"  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n"
-+"  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n"
-+"  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n"
-+"  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n"
-+"  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n"
-+"  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n"
-+"  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n"
-+"  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n"
-+"  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n"
-+"  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n"
-+"  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n"
-+"  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n"
-+"  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n"
-+"  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n"
-+"  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n"
-+"  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n"
-+"  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n"
-+"  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n"
-+"  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n"
-+"  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n"
-+"  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n"
-+"  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n"
-+"  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n"
-+"  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n"
-+"  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n"
-+"  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n"
-+"  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n"
-+"  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n"
-+"  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n"
-+"  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n"
-+"  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n"
-+"  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n"
-+"  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n"
-+"  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n"
-+"  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n"
-+"  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n"
-+"  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n"
-+"  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n"
-+"  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n"
-+"  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n"
-+"  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n"
-+"  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n"
-+"  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n"
-+"  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n"
-+"  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n"
-+"  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n"
-+"  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n"
-+"  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n"
-+"  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n"
-+"  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n"
-+"  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n"
-+"  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n"
-+"  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n"
-+"  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n"
-+"  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n"
-+"  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n"
-+"  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 6.322464i 0.423007i 6.322464i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n"
-+"  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n"
-+"  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n"
-+"  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n"
-+"  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n"
-+"  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n"
-+"  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n"
-+"  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n"
-+"  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n"
-+"  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n"
-+"  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n"
-+"  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n"
-+"  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n"
-+"  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n"
-+"  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n"
-+"  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n"
-+"  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n"
-+"  0.640399i 6.280797i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n"
-+"  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n"
-+"  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n"
-+"  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n"
-+"  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n"
-+"  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n"
-+"  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n"
-+"  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n"
-+"  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n"
-+"  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n"
-+"  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n"
-+"  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n"
-+"  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n"
-+"  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n"
-+"  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n"
-+"  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n"
-+"  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n"
-+"  0.640399i 6.280797i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n"
-+"  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n"
-+"  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n"
-+"  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n"
-+"  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n"
-+"  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n"
-+"  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n"
-+"  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n"
-+"  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n"
-+"  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n"
-+"  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n"
-+"  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n"
-+"  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n"
-+"  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n"
-+"  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n"
-+"  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n"
-+"  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n"
-+"  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n"
-+"  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n"
-+"  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n"
-+"  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n"
-+"  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n"
-+"  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n"
-+"  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n"
-+"  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n"
-+"  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n"
-+"  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n"
-+"  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n"
-+"  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n"
-+"  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n"
-+"  6.326993i 0.435688i 6.327899i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n"
-+"  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n"
-+"  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n"
-+"  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n"
-+"  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n"
-+"  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n"
-+"  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n"
-+"  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n"
-+"  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n"
-+"  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n"
-+"  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n"
-+"  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n"
-+"  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n"
-+"  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n"
-+"  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n"
-+"  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n"
-+"  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n"
-+"  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n"
-+"  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n"
-+"  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n"
-+"  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n"
-+"  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n"
-+"  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n"
-+"  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n"
-+"  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n"
-+"  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n"
-+"  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n"
-+"  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n"
-+"  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n"
-+"  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n"
-+"  6.326993i 0.435688i 6.327899i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 6.322464i 0.086051i 6.322464i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n"
-+"  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n"
-+"  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n"
-+"  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n"
-+"  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n"
-+"  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n"
-+"  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n"
-+"  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n"
-+"  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n"
-+"  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n"
-+"  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n"
-+"  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n"
-+"  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n"
-+"  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n"
-+"  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n"
-+"  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n"
-+"  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n"
-+"  0.301630i 6.280797i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n"
-+"  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n"
-+"  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n"
-+"  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n"
-+"  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n"
-+"  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n"
-+"  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n"
-+"  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n"
-+"  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n"
-+"  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n"
-+"  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n"
-+"  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n"
-+"  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n"
-+"  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n"
-+"  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n"
-+"  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n"
-+"  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n"
-+"  0.301630i 6.280797i 0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n"
-+"  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n"
-+"  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n"
-+"  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n"
-+"  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n"
-+"  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n"
-+"  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n"
-+"  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n"
-+"  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n"
-+"  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n"
-+"  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n"
-+"  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n"
-+"  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n"
-+"  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n"
-+"  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n"
-+"  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n"
-+"  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n"
-+"  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n"
-+"  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n"
-+"  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n"
-+"  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n"
-+"  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n"
-+"  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n"
-+"  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n"
-+"  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n"
-+"  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n"
-+"  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n"
-+"  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n"
-+"  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n"
-+"  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n"
-+"  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n"
-+"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n"
-+"  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n"
-+"  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n"
-+"  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n"
-+"  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n"
-+"  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n"
-+"  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n"
-+"  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n"
-+"  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n"
-+"  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n"
-+"  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n"
-+"  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n"
-+"  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n"
-+"  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n"
-+"  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n"
-+"  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n"
-+"  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n"
-+"  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n"
-+"  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n"
-+"  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n"
-+"  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n"
-+"  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n"
-+"  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n"
-+"  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n"
-+"  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n"
-+"  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n"
-+"  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n"
-+"  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n"
-+"  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n"
-+"  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n"
-+"  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n"
-+"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 6.325181i 0.721920i 6.325181i 0.927536i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n"
-+"  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n"
-+"  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n"
-+"  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n"
-+"  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n"
-+"  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n"
-+"  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n"
-+"  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n"
-+"  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n"
-+"  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n"
-+"  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n"
-+"  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n"
-+"  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n"
-+"  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n"
-+"  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n"
-+"  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n"
-+"  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n"
-+"  0.968297i 6.282609i 0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n"
-+"  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n"
-+"  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n"
-+"  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n"
-+"  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n"
-+"  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n"
-+"  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n"
-+"  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n"
-+"  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n"
-+"  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n"
-+"  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n"
-+"  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n"
-+"  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n"
-+"  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n"
-+"  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n"
-+"  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n"
-+"  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n"
-+"  0.968297i 6.282609i 0.968297i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 6.325181i 1.060688i 6.325181i 1.264493i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n"
-+"  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n"
-+"  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n"
-+"  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n"
-+"  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n"
-+"  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n"
-+"  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n"
-+"  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n"
-+"  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n"
-+"  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n"
-+"  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n"
-+"  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n"
-+"  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n"
-+"  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n"
-+"  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n"
-+"  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n"
-+"  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n"
-+"  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n"
-+"  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n"
-+"  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n"
-+"  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n"
-+"  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n"
-+"  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n"
-+"  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n"
-+"  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n"
-+"  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n"
-+"  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n"
-+"  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n"
-+"  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n"
-+"  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n"
-+"  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n"
-+"  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n"
-+"  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n"
-+"  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n"
-+"  1.307065i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 7.647645i 0.423007i 7.647645i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n"
-+"  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n"
-+"  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n"
-+"  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n"
-+"  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n"
-+"  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n"
-+"  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n"
-+"  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n"
-+"  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n"
-+"  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n"
-+"  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n"
-+"  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n"
-+"  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n"
-+"  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n"
-+"  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n"
-+"  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n"
-+"  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n"
-+"  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n"
-+"  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n"
-+"  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n"
-+"  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n"
-+"  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n"
-+"  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n"
-+"  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n"
-+"  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n"
-+"  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n"
-+"  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n"
-+"  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n"
-+"  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n"
-+"  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n"
-+"  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n"
-+"  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n"
-+"  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n"
-+"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n"
-+"  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n"
-+"  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n"
-+"  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n"
-+"  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n"
-+"  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n"
-+"  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n"
-+"  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n"
-+"  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n"
-+"  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n"
-+"  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n"
-+"  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n"
-+"  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n"
-+"  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n"
-+"  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n"
-+"  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n"
-+"  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n"
-+"  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n"
-+"  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n"
-+"  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n"
-+"  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n"
-+"  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n"
-+"  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n"
-+"  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n"
-+"  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n"
-+"  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n"
-+"  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n"
-+"  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n"
-+"  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n"
-+"  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n"
-+"  7.651268i 0.435688i 7.652174i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n"
-+"  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n"
-+"  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n"
-+"  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n"
-+"  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n"
-+"  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n"
-+"  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n"
-+"  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n"
-+"  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n"
-+"  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n"
-+"  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n"
-+"  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n"
-+"  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n"
-+"  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n"
-+"  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n"
-+"  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n"
-+"  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n"
-+"  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n"
-+"  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n"
-+"  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n"
-+"  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n"
-+"  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n"
-+"  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n"
-+"  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n"
-+"  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n"
-+"  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n"
-+"  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n"
-+"  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n"
-+"  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n"
-+"  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n"
-+"  7.651268i 0.435688i 7.652174i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 7.647645i 0.086051i 7.647645i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n"
-+"  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n"
-+"  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n"
-+"  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n"
-+"  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n"
-+"  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n"
-+"  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n"
-+"  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n"
-+"  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n"
-+"  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n"
-+"  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n"
-+"  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n"
-+"  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n"
-+"  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n"
-+"  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n"
-+"  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n"
-+"  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n"
-+"  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n"
-+"  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n"
-+"  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n"
-+"  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n"
-+"  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n"
-+"  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n"
-+"  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n"
-+"  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n"
-+"  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n"
-+"  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n"
-+"  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n"
-+"  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n"
-+"  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n"
-+"  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n"
-+"  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n"
-+"  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n"
-+"  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n"
-+"  0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n"
-+"  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n"
-+"  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n"
-+"  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n"
-+"  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n"
-+"  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n"
-+"  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n"
-+"  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n"
-+"  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n"
-+"  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n"
-+"  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n"
-+"  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n"
-+"  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n"
-+"  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n"
-+"  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n"
-+"  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n"
-+"  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n"
-+"  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n"
-+"  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n"
-+"  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n"
-+"  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n"
-+"  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n"
-+"  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n"
-+"  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n"
-+"  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n"
-+"  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n"
-+"  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n"
-+"  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n"
-+"  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n"
-+"  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n"
-+"  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n"
-+"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n"
-+"  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n"
-+"  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n"
-+"  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n"
-+"  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n"
-+"  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n"
-+"  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n"
-+"  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n"
-+"  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n"
-+"  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n"
-+"  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n"
-+"  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n"
-+"  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n"
-+"  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n"
-+"  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n"
-+"  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n"
-+"  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n"
-+"  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n"
-+"  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n"
-+"  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n"
-+"  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n"
-+"  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n"
-+"  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n"
-+"  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n"
-+"  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n"
-+"  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n"
-+"  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n"
-+"  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n"
-+"  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n"
-+"  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n"
-+"  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n"
-+"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 8.288949i 0.423007i 8.288949i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n"
-+"  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n"
-+"  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n"
-+"  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n"
-+"  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n"
-+"  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n"
-+"  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n"
-+"  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n"
-+"  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n"
-+"  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n"
-+"  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n"
-+"  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n"
-+"  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n"
-+"  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n"
-+"  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n"
-+"  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n"
-+"  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n"
-+"  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n"
-+"  -width 0\n"
-+"${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n"
-+"  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n"
-+"  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n"
-+"  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n"
-+"  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n"
-+"  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n"
-+"  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n"
-+"  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n"
-+"  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n"
-+"  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n"
-+"  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n"
-+"  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n"
-+"  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n"
-+"  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n"
-+"  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n"
-+"  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n"
-+"  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n"
-+"  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline $tkxox(score_active_note) -fill \\\n"
-+"  {}\n"
-+"${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n"
-+"  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n"
-+"  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n"
-+"  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n"
-+"  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n"
-+"  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n"
-+"  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n"
-+"  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n"
-+"  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n"
-+"  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n"
-+"  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n"
-+"  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n"
-+"  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n"
-+"  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n"
-+"  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n"
-+"  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n"
-+"  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n"
-+"  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n"
-+"  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n"
-+"  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n"
-+"  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n"
-+"  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n"
-+"  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n"
-+"  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n"
-+"  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n"
-+"  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n"
-+"  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n"
-+"  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n"
-+"  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n"
-+"  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n"
-+"  -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n"
-+"  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n"
-+"  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n"
-+"  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n"
-+"  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n"
-+"  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n"
-+"  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n"
-+"  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n"
-+"  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n"
-+"  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n"
-+"  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n"
-+"  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n"
-+"  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n"
-+"  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n"
-+"  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n"
-+"  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n"
-+"  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n"
-+"  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n"
-+"  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n"
-+"  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n"
-+"  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n"
-+"  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n"
-+"  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n"
-+"  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n"
-+"  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n"
-+"  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n"
-+"  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n"
-+"  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n"
-+"  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n"
-+"  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n"
-+"  -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 9.048007i 0.423007i 9.048007i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n"
-+"  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n"
-+"  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n"
-+"  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n"
-+"  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n"
-+"  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n"
-+"  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n"
-+"  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n"
-+"  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n"
-+"  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n"
-+"  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n"
-+"  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n"
-+"  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n"
-+"  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n"
-+"  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n"
-+"  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n"
-+"  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n"
-+"  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n"
-+"  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n"
-+"  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n"
-+"  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n"
-+"  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n"
-+"  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n"
-+"  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n"
-+"  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n"
-+"  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n"
-+"  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n"
-+"  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n"
-+"  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n"
-+"  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n"
-+"  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n"
-+"  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n"
-+"  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n"
-+"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n"
-+"  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n"
-+"  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n"
-+"  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n"
-+"  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n"
-+"  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n"
-+"  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n"
-+"  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n"
-+"  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n"
-+"  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n"
-+"  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n"
-+"  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n"
-+"  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n"
-+"  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n"
-+"  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n"
-+"  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n"
-+"  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n"
-+"  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n"
-+"  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n"
-+"  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n"
-+"  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n"
-+"  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n"
-+"  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n"
-+"  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n"
-+"  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n"
-+"  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n"
-+"  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n"
-+"  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n"
-+"  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n"
-+"  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n"
-+"  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n"
-+"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n"
-+"  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n"
-+"  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n"
-+"  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n"
-+"  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n"
-+"  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n"
-+"  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n"
-+"  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n"
-+"  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n"
-+"  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n"
-+"  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n"
-+"  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n"
-+"  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n"
-+"  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n"
-+"  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n"
-+"  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n"
-+"  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n"
-+"  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n"
-+"  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n"
-+"  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n"
-+"  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n"
-+"  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n"
-+"  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n"
-+"  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n"
-+"  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n"
-+"  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n"
-+"  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n"
-+"  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n"
-+"  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n"
-+"  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n"
-+"  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n"
-+"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 9.050725i 1.060688i 9.050725i 1.264493i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n"
-+"  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n"
-+"  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n"
-+"  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n"
-+"  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n"
-+"  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n"
-+"  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n"
-+"  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n"
-+"  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n"
-+"  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n"
-+"  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n"
-+"  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n"
-+"  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n"
-+"  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n"
-+"  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n"
-+"  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n"
-+"  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n"
-+"  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n"
-+"  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n"
-+"  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n"
-+"  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n"
-+"  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n"
-+"  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n"
-+"  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n"
-+"  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n"
-+"  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n"
-+"  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n"
-+"  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n"
-+"  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n"
-+"  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n"
-+"  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n"
-+"  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n"
-+"  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 9.654891i 0.423007i 9.654891i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n"
-+"  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n"
-+"  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n"
-+"  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n"
-+"  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n"
-+"  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n"
-+"  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n"
-+"  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n"
-+"  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n"
-+"  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n"
-+"  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n"
-+"  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n"
-+"  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n"
-+"  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n"
-+"  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n"
-+"  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n"
-+"  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n"
-+"  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n"
-+"  -width 0\n"
-+"${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n"
-+"  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n"
-+"  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n"
-+"  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n"
-+"  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n"
-+"  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n"
-+"  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n"
-+"  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n"
-+"  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n"
-+"  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n"
-+"  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n"
-+"  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n"
-+"  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n"
-+"  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n"
-+"  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n"
-+"  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n"
-+"  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n"
-+"  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline $tkxox(score_active_note) -fill \\\n"
-+"  {}\n"
-+"${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n"
-+"  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n"
-+"  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n"
-+"  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n"
-+"  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n"
-+"  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n"
-+"  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n"
-+"  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n"
-+"  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n"
-+"  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n"
-+"  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n"
-+"  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n"
-+"  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n"
-+"  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n"
-+"  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n"
-+"  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n"
-+"  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n"
-+"  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n"
-+"  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n"
-+"  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n"
-+"  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n"
-+"  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n"
-+"  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n"
-+"  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n"
-+"  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n"
-+"  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n"
-+"  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n"
-+"  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n"
-+"  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n"
-+"  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n"
-+"  -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n"
-+"  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n"
-+"  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n"
-+"  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n"
-+"  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n"
-+"  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n"
-+"  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n"
-+"  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n"
-+"  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n"
-+"  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n"
-+"  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n"
-+"  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n"
-+"  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n"
-+"  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n"
-+"  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n"
-+"  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n"
-+"  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n"
-+"  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n"
-+"  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n"
-+"  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n"
-+"  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n"
-+"  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n"
-+"  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n"
-+"  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n"
-+"  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n"
-+"  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n"
-+"  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n"
-+"  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n"
-+"  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n"
-+"  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n"
-+"  -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 5.034420i 0.086051i 5.034420i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n"
-+"  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n"
-+"  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n"
-+"  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n"
-+"  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n"
-+"  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n"
-+"  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n"
-+"  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n"
-+"  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n"
-+"  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n"
-+"  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n"
-+"  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n"
-+"  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n"
-+"  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n"
-+"  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n"
-+"  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n"
-+"  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n"
-+"  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n"
-+"  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n"
-+"  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n"
-+"  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n"
-+"  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n"
-+"  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n"
-+"  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n"
-+"  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n"
-+"  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n"
-+"  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n"
-+"  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n"
-+"  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n"
-+"  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n"
-+"  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n"
-+"  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n"
-+"  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n"
-+"  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n"
-+"  0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n"
-+"  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n"
-+"  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n"
-+"  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n"
-+"  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n"
-+"  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n"
-+"  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n"
-+"  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n"
-+"  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n"
-+"  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n"
-+"  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n"
-+"  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n"
-+"  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n"
-+"  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n"
-+"  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n"
-+"  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n"
-+"  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n"
-+"  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n"
-+"  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n"
-+"  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n"
-+"  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n"
-+"  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n"
-+"  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n"
-+"  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n"
-+"  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n"
-+"  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n"
-+"  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n"
-+"  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n"
-+"  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n"
-+"  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n"
-+"  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n"
-+"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n"
-+"  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n"
-+"  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n"
-+"  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n"
-+"  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n"
-+"  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n"
-+"  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n"
-+"  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n"
-+"  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n"
-+"  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n"
-+"  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n"
-+"  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n"
-+"  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n"
-+"  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n"
-+"  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n"
-+"  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n"
-+"  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n"
-+"  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n"
-+"  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n"
-+"  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n"
-+"  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n"
-+"  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n"
-+"  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n"
-+"  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n"
-+"  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n"
-+"  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n"
-+"  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n"
-+"  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n"
-+"  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n"
-+"  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n"
-+"  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n"
-+"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 5.034420i 0.423007i 5.034420i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n"
-+"  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n"
-+"  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n"
-+"  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n"
-+"  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n"
-+"  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n"
-+"  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n"
-+"  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n"
-+"  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n"
-+"  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n"
-+"  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n"
-+"  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n"
-+"  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n"
-+"  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n"
-+"  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n"
-+"  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n"
-+"  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n"
-+"  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n"
-+"  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n"
-+"  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n"
-+"  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n"
-+"  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n"
-+"  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n"
-+"  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n"
-+"  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n"
-+"  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n"
-+"  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n"
-+"  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n"
-+"  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n"
-+"  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n"
-+"  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n"
-+"  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n"
-+"  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n"
-+"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n"
-+"  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n"
-+"  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n"
-+"  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n"
-+"  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n"
-+"  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n"
-+"  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n"
-+"  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n"
-+"  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n"
-+"  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n"
-+"  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n"
-+"  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n"
-+"  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n"
-+"  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n"
-+"  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n"
-+"  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n"
-+"  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n"
-+"  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n"
-+"  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n"
-+"  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n"
-+"  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n"
-+"  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n"
-+"  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n"
-+"  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n"
-+"  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n"
-+"  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n"
-+"  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n"
-+"  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n"
-+"  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n"
-+"  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n"
-+"  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n"
-+"  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n"
-+"  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n"
-+"  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n"
-+"  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n"
-+"  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n"
-+"  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n"
-+"  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n"
-+"  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n"
-+"  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n"
-+"  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n"
-+"  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n"
-+"  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n"
-+"  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n"
-+"  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n"
-+"  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n"
-+"  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n"
-+"  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n"
-+"  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n"
-+"  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n"
-+"  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n"
-+"  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n"
-+"  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n"
-+"  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n"
-+"  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n"
-+"  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n"
-+"  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n"
-+"  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n"
-+"  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n"
-+"  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n"
-+"  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 5.678442i 0.423007i 5.678442i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n"
-+"  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n"
-+"  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n"
-+"  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n"
-+"  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n"
-+"  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n"
-+"  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n"
-+"  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n"
-+"  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n"
-+"  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n"
-+"  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n"
-+"  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n"
-+"  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n"
-+"  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n"
-+"  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n"
-+"  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n"
-+"  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n"
-+"  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n"
-+"  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n"
-+"  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n"
-+"  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n"
-+"  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n"
-+"  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n"
-+"  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n"
-+"  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n"
-+"  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n"
-+"  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n"
-+"  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n"
-+"  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n"
-+"  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n"
-+"  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n"
-+"  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n"
-+"  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n"
-+"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n"
-+"  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n"
-+"  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n"
-+"  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n"
-+"  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n"
-+"  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n"
-+"  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n"
-+"  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n"
-+"  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n"
-+"  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n"
-+"  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n"
-+"  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n"
-+"  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n"
-+"  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n"
-+"  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n"
-+"  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n"
-+"  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n"
-+"  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n"
-+"  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n"
-+"  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n"
-+"  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n"
-+"  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n"
-+"  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n"
-+"  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n"
-+"  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n"
-+"  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n"
-+"  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n"
-+"  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n"
-+"  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n"
-+"  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n"
-+"  5.682971i 0.435688i 5.683877i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n"
-+"  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n"
-+"  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n"
-+"  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n"
-+"  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n"
-+"  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n"
-+"  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n"
-+"  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n"
-+"  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n"
-+"  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n"
-+"  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n"
-+"  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n"
-+"  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n"
-+"  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n"
-+"  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n"
-+"  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n"
-+"  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n"
-+"  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n"
-+"  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n"
-+"  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n"
-+"  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n"
-+"  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n"
-+"  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n"
-+"  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n"
-+"  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n"
-+"  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n"
-+"  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n"
-+"  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n"
-+"  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n"
-+"  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n"
-+"  5.682971i 0.435688i 5.683877i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 4.315217i 0.423007i 4.315217i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n"
-+"  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n"
-+"  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n"
-+"  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n"
-+"  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n"
-+"  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n"
-+"  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n"
-+"  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n"
-+"  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n"
-+"  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n"
-+"  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n"
-+"  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n"
-+"  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n"
-+"  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n"
-+"  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n"
-+"  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n"
-+"  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n"
-+"  0.640399i 4.272645i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n"
-+"  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n"
-+"  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n"
-+"  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n"
-+"  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n"
-+"  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n"
-+"  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n"
-+"  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n"
-+"  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n"
-+"  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n"
-+"  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n"
-+"  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n"
-+"  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n"
-+"  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n"
-+"  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n"
-+"  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n"
-+"  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n"
-+"  0.640399i 4.272645i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n"
-+"  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n"
-+"  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n"
-+"  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n"
-+"  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n"
-+"  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n"
-+"  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n"
-+"  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n"
-+"  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n"
-+"  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n"
-+"  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n"
-+"  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n"
-+"  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n"
-+"  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n"
-+"  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n"
-+"  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n"
-+"  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n"
-+"  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n"
-+"  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n"
-+"  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n"
-+"  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n"
-+"  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n"
-+"  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n"
-+"  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n"
-+"  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n"
-+"  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n"
-+"  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n"
-+"  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n"
-+"  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n"
-+"  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n"
-+"  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n"
-+"  0.435688i 4.320652i 0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n"
-+"  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n"
-+"  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n"
-+"  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n"
-+"  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n"
-+"  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n"
-+"  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n"
-+"  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n"
-+"  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n"
-+"  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n"
-+"  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n"
-+"  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n"
-+"  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n"
-+"  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n"
-+"  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n"
-+"  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n"
-+"  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n"
-+"  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n"
-+"  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n"
-+"  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n"
-+"  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n"
-+"  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n"
-+"  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n"
-+"  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n"
-+"  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n"
-+"  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n"
-+"  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n"
-+"  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n"
-+"  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n"
-+"  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n"
-+"  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n"
-+"  0.435688i 4.320652i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 3.671196i 0.086051i 3.671196i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n"
-+"  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n"
-+"  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n"
-+"  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n"
-+"  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n"
-+"  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n"
-+"  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n"
-+"  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n"
-+"  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n"
-+"  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n"
-+"  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n"
-+"  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n"
-+"  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n"
-+"  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n"
-+"  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n"
-+"  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n"
-+"  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n"
-+"  0.301630i 3.628623i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n"
-+"  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n"
-+"  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n"
-+"  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n"
-+"  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n"
-+"  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n"
-+"  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n"
-+"  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n"
-+"  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n"
-+"  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n"
-+"  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n"
-+"  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n"
-+"  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n"
-+"  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n"
-+"  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n"
-+"  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n"
-+"  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n"
-+"  0.301630i 3.628623i 0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n"
-+"  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n"
-+"  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n"
-+"  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n"
-+"  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n"
-+"  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n"
-+"  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n"
-+"  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n"
-+"  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n"
-+"  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n"
-+"  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n"
-+"  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n"
-+"  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n"
-+"  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n"
-+"  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n"
-+"  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n"
-+"  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n"
-+"  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n"
-+"  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n"
-+"  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n"
-+"  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n"
-+"  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n"
-+"  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n"
-+"  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n"
-+"  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n"
-+"  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n"
-+"  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n"
-+"  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n"
-+"  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n"
-+"  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n"
-+"  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n"
-+"  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline {} -fill $tkxox(score_active_note) \\\n"
-+"  -width 0\n"
-+"${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n"
-+"  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n"
-+"  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n"
-+"  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n"
-+"  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n"
-+"  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n"
-+"  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n"
-+"  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n"
-+"  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n"
-+"  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n"
-+"  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n"
-+"  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n"
-+"  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n"
-+"  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n"
-+"  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n"
-+"  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n"
-+"  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n"
-+"  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n"
-+"  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n"
-+"  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n"
-+"  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n"
-+"  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n"
-+"  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n"
-+"  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n"
-+"  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n"
-+"  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n"
-+"  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n"
-+"  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n"
-+"  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n"
-+"  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n"
-+"  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n"
-+"  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline $tkxox(score_active_note) -fill \\\n"
-+"  {}\n"
-+"${score} create line 3.671196i 0.423007i 3.671196i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n"
-+"  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n"
-+"  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n"
-+"  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n"
-+"  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n"
-+"  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n"
-+"  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n"
-+"  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n"
-+"  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n"
-+"  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n"
-+"  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n"
-+"  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n"
-+"  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n"
-+"  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n"
-+"  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n"
-+"  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n"
-+"  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n"
-+"  0.640399i 3.628623i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n"
-+"  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n"
-+"  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n"
-+"  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n"
-+"  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n"
-+"  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n"
-+"  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n"
-+"  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n"
-+"  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n"
-+"  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n"
-+"  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n"
-+"  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n"
-+"  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n"
-+"  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n"
-+"  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n"
-+"  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n"
-+"  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n"
-+"  0.640399i 3.628623i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n"
-+"  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n"
-+"  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n"
-+"  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n"
-+"  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n"
-+"  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n"
-+"  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n"
-+"  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n"
-+"  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n"
-+"  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n"
-+"  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n"
-+"  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n"
-+"  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n"
-+"  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n"
-+"  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n"
-+"  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n"
-+"  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n"
-+"  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n"
-+"  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n"
-+"  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n"
-+"  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n"
-+"  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n"
-+"  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n"
-+"  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n"
-+"  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n"
-+"  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n"
-+"  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n"
-+"  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n"
-+"  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n"
-+"  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n"
-+"  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n"
-+"  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n"
-+"  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n"
-+"  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n"
-+"  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n"
-+"  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n"
-+"  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n"
-+"  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n"
-+"  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n"
-+"  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n"
-+"  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n"
-+"  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n"
-+"  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n"
-+"  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n"
-+"  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n"
-+"  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n"
-+"  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n"
-+"  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n"
-+"  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n"
-+"  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n"
-+"  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n"
-+"  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n"
-+"  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n"
-+"  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n"
-+"  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n"
-+"  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n"
-+"  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n"
-+"  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n"
-+"  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n"
-+"  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n"
-+"  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 3.712862i 1.060688i 3.712862i 1.264493i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n"
-+"  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n"
-+"  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n"
-+"  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n"
-+"  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n"
-+"  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n"
-+"  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n"
-+"  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n"
-+"  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n"
-+"  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n"
-+"  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n"
-+"  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n"
-+"  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n"
-+"  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n"
-+"  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n"
-+"  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n"
-+"  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n"
-+"  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n"
-+"  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n"
-+"  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n"
-+"  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n"
-+"  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n"
-+"  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n"
-+"  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n"
-+"  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n"
-+"  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n"
-+"  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n"
-+"  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n"
-+"  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n"
-+"  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n"
-+"  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n"
-+"  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n"
-+"  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 3.066123i 0.423007i 3.066123i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n"
-+"  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n"
-+"  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n"
-+"  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n"
-+"  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n"
-+"  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n"
-+"  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n"
-+"  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n"
-+"  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n"
-+"  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n"
-+"  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n"
-+"  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n"
-+"  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n"
-+"  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n"
-+"  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n"
-+"  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n"
-+"  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n"
-+"  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n"
-+"  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n"
-+"  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n"
-+"  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n"
-+"  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n"
-+"  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n"
-+"  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n"
-+"  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n"
-+"  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n"
-+"  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n"
-+"  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n"
-+"  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n"
-+"  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n"
-+"  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n"
-+"  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n"
-+"  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n"
-+"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n"
-+"  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n"
-+"  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n"
-+"  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n"
-+"  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n"
-+"  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n"
-+"  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n"
-+"  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n"
-+"  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n"
-+"  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n"
-+"  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n"
-+"  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n"
-+"  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n"
-+"  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n"
-+"  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n"
-+"  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n"
-+"  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n"
-+"  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n"
-+"  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n"
-+"  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n"
-+"  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n"
-+"  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n"
-+"  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n"
-+"  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n"
-+"  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n"
-+"  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n"
-+"  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n"
-+"  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n"
-+"  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n"
-+"  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n"
-+"  3.070652i 0.435688i 3.071558i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n"
-+"  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n"
-+"  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n"
-+"  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n"
-+"  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n"
-+"  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n"
-+"  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n"
-+"  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n"
-+"  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n"
-+"  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n"
-+"  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n"
-+"  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n"
-+"  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n"
-+"  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n"
-+"  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n"
-+"  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n"
-+"  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n"
-+"  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n"
-+"  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n"
-+"  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n"
-+"  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n"
-+"  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n"
-+"  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n"
-+"  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n"
-+"  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n"
-+"  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n"
-+"  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n"
-+"  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n"
-+"  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n"
-+"  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n"
-+"  3.070652i 0.435688i 3.071558i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 2.309783i 0.423007i 2.309783i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n"
-+"  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n"
-+"  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n"
-+"  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n"
-+"  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n"
-+"  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n"
-+"  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n"
-+"  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n"
-+"  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n"
-+"  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n"
-+"  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n"
-+"  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n"
-+"  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n"
-+"  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n"
-+"  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n"
-+"  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n"
-+"  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n"
-+"  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n"
-+"  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n"
-+"  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n"
-+"  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n"
-+"  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n"
-+"  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n"
-+"  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n"
-+"  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n"
-+"  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n"
-+"  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n"
-+"  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n"
-+"  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n"
-+"  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n"
-+"  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n"
-+"  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n"
-+"  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n"
-+"  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n"
-+"  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n"
-+"  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n"
-+"  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n"
-+"  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n"
-+"  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n"
-+"  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n"
-+"  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n"
-+"  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n"
-+"  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n"
-+"  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n"
-+"  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n"
-+"  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n"
-+"  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n"
-+"  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n"
-+"  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n"
-+"  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n"
-+"  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n"
-+"  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n"
-+"  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n"
-+"  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n"
-+"  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n"
-+"  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n"
-+"  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n"
-+"  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n"
-+"  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n"
-+"  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n"
-+"  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n"
-+"  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n"
-+"  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n"
-+"  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n"
-+"  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n"
-+"  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n"
-+"  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n"
-+"  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n"
-+"  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n"
-+"  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n"
-+"  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n"
-+"  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n"
-+"  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n"
-+"  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n"
-+"  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n"
-+"  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n"
-+"  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n"
-+"  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n"
-+"  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n"
-+"  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n"
-+"  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n"
-+"  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n"
-+"  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n"
-+"  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n"
-+"  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n"
-+"  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n"
-+"  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n"
-+"  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n"
-+"  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n"
-+"  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n"
-+"  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n"
-+"  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n"
-+"  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create line 2.309783i 0.086051i 2.309783i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n"
-+"  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n"
-+"  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n"
-+"  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n"
-+"  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n"
-+"  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n"
-+"  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n"
-+"  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n"
-+"  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n"
-+"  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n"
-+"  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n"
-+"  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n"
-+"  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n"
-+"  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n"
-+"  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n"
-+"  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n"
-+"  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n"
-+"  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n"
-+"  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n"
-+"  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n"
-+"  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n"
-+"  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n"
-+"  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n"
-+"  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n"
-+"  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n"
-+"  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n"
-+"  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n"
-+"  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n"
-+"  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n"
-+"  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n"
-+"  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n"
-+"  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n"
-+"  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n"
-+"  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n"
-+"  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n"
-+"  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n"
-+"  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n"
-+"  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n"
-+"  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n"
-+"  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n"
-+"  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n"
-+"  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n"
-+"  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n"
-+"  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n"
-+"  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n"
-+"  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n"
-+"  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n"
-+"  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n"
-+"  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n"
-+"  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n"
-+"  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n"
-+"  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n"
-+"  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n"
-+"  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n"
-+"  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n"
-+"  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n"
-+"  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n"
-+"  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n"
-+"  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n"
-+"  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n"
-+"  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n"
-+"  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n"
-+"  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n"
-+"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n"
-+"  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n"
-+"  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n"
-+"  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n"
-+"  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n"
-+"  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n"
-+"  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n"
-+"  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n"
-+"  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n"
-+"  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n"
-+"  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n"
-+"  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n"
-+"  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n"
-+"  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n"
-+"  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n"
-+"  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n"
-+"  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n"
-+"  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n"
-+"  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n"
-+"  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n"
-+"  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n"
-+"  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n"
-+"  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n"
-+"  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n"
-+"  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n"
-+"  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n"
-+"  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n"
-+"  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n"
-+"  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n"
-+"  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n"
-+"  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n"
-+"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 1.702899i 0.423007i 1.702899i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n"
-+"  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n"
-+"  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n"
-+"  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n"
-+"  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n"
-+"  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n"
-+"  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n"
-+"  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n"
-+"  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n"
-+"  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n"
-+"  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n"
-+"  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n"
-+"  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n"
-+"  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n"
-+"  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n"
-+"  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n"
-+"  1.660326i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n"
-+"  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n"
-+"  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n"
-+"  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n"
-+"  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n"
-+"  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n"
-+"  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n"
-+"  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n"
-+"  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n"
-+"  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n"
-+"  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n"
-+"  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n"
-+"  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n"
-+"  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n"
-+"  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n"
-+"  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n"
-+"  1.660326i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n"
-+"  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n"
-+"  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n"
-+"  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n"
-+"  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n"
-+"  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n"
-+"  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n"
-+"  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n"
-+"  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n"
-+"  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n"
-+"  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n"
-+"  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n"
-+"  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n"
-+"  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n"
-+"  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n"
-+"  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n"
-+"  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n"
-+"  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n"
-+"  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n"
-+"  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n"
-+"  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n"
-+"  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n"
-+"  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n"
-+"  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n"
-+"  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n"
-+"  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n"
-+"  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n"
-+"  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n"
-+"  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n"
-+"  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n"
-+"  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n"
-+"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n"
-+"  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n"
-+"  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n"
-+"  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n"
-+"  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n"
-+"  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n"
-+"  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n"
-+"  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n"
-+"  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n"
-+"  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n"
-+"  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n"
-+"  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n"
-+"  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n"
-+"  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n"
-+"  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n"
-+"  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n"
-+"  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n"
-+"  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n"
-+"  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n"
-+"  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n"
-+"  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n"
-+"  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n"
-+"  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n"
-+"  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n"
-+"  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n"
-+"  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n"
-+"  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n"
-+"  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n"
-+"  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n"
-+"  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n"
-+"  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n"
-+"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 1.098732i 0.086051i 1.098732i 0.266304i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n"
-+"  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n"
-+"  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n"
-+"  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n"
-+"  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n"
-+"  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n"
-+"  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n"
-+"  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n"
-+"  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n"
-+"  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n"
-+"  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n"
-+"  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n"
-+"  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n"
-+"  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n"
-+"  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n"
-+"  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n"
-+"  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n"
-+"  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n"
-+"  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n"
-+"  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n"
-+"  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n"
-+"  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n"
-+"  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n"
-+"  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n"
-+"  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n"
-+"  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n"
-+"  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n"
-+"  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n"
-+"  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n"
-+"  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n"
-+"  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n"
-+"  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n"
-+"  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n"
-+"  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n"
-+"  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n"
-+"  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n"
-+"  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n"
-+"  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n"
-+"  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n"
-+"  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n"
-+"  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n"
-+"  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n"
-+"  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n"
-+"  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n"
-+"  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n"
-+"  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n"
-+"  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n"
-+"  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n"
-+"  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n"
-+"  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n"
-+"  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n"
-+"  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n"
-+"  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n"
-+"  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n"
-+"  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n"
-+"  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n"
-+"  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n"
-+"  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n"
-+"  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n"
-+"  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n"
-+"  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n"
-+"  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n"
-+"  1.103261i 0.097826i 1.104167i 0.104167i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n"
-+"  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n"
-+"  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n"
-+"  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n"
-+"  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n"
-+"  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n"
-+"  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n"
-+"  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n"
-+"  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n"
-+"  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n"
-+"  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n"
-+"  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n"
-+"  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n"
-+"  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n"
-+"  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n"
-+"  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n"
-+"  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n"
-+"  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n"
-+"  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n"
-+"  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n"
-+"  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n"
-+"  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n"
-+"  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n"
-+"  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n"
-+"  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n"
-+"  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n"
-+"  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n"
-+"  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n"
-+"  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n"
-+"  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n"
-+"  1.103261i 0.097826i 1.104167i 0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 1.098732i 0.423007i 1.098732i 0.602355i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n"
-+"  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n"
-+"  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n"
-+"  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n"
-+"  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n"
-+"  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n"
-+"  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n"
-+"  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n"
-+"  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n"
-+"  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n"
-+"  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n"
-+"  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n"
-+"  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n"
-+"  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n"
-+"  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n"
-+"  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n"
-+"  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline {} \\\n"
-+"  -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n"
-+"  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n"
-+"  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n"
-+"  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n"
-+"  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n"
-+"  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n"
-+"  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n"
-+"  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n"
-+"  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n"
-+"  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n"
-+"  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n"
-+"  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n"
-+"  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n"
-+"  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n"
-+"  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n"
-+"  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n"
-+"  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline $tkxox(score_active_note) \\\n"
-+"  -fill {}\n"
-+"${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n"
-+"  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n"
-+"  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n"
-+"  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n"
-+"  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n"
-+"  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n"
-+"  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n"
-+"  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n"
-+"  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n"
-+"  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n"
-+"  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n"
-+"  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n"
-+"  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n"
-+"  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n"
-+"  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n"
-+"  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n"
-+"  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n"
-+"  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n"
-+"  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n"
-+"  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n"
-+"  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n"
-+"  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n"
-+"  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n"
-+"  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n"
-+"  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n"
-+"  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n"
-+"  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n"
-+"  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n"
-+"  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n"
-+"  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline {} -fill $tkxox(score_active_note) \\\n"
-+"  -width 0\n"
-+"${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n"
-+"  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n"
-+"  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n"
-+"  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n"
-+"  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n"
-+"  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n"
-+"  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n"
-+"  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n"
-+"  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n"
-+"  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n"
-+"  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n"
-+"  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n"
-+"  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n"
-+"  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n"
-+"  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n"
-+"  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n"
-+"  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n"
-+"  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n"
-+"  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n"
-+"  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n"
-+"  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n"
-+"  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n"
-+"  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n"
-+"  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n"
-+"  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n"
-+"  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n"
-+"  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n"
-+"  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n"
-+"  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n"
-+"  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline $tkxox(score_active_note) -fill \\\n"
-+"  {}\n"
-+"${score} create line 1.101449i 0.721920i 1.101449i 0.927536i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n"
-+"  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n"
-+"  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n"
-+"  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n"
-+"  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n"
-+"  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n"
-+"  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n"
-+"  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n"
-+"  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n"
-+"  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n"
-+"  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n"
-+"  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n"
-+"  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n"
-+"  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n"
-+"  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n"
-+"  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n"
-+"  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n"
-+"  0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n"
-+"  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n"
-+"  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n"
-+"  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n"
-+"  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n"
-+"  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n"
-+"  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n"
-+"  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n"
-+"  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n"
-+"  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n"
-+"  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n"
-+"  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n"
-+"  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n"
-+"  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n"
-+"  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n"
-+"  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n"
-+"  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n"
-+"  0.968297i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 1.101449i 1.060688i 1.101449i 1.264493i -fill $tkxox(score_active_note)\n"
-+"${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n"
-+"  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n"
-+"  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n"
-+"  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n"
-+"  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n"
-+"  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n"
-+"  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n"
-+"  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n"
-+"  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n"
-+"  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n"
-+"  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n"
-+"  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n"
-+"  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n"
-+"  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n"
-+"  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n"
-+"  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n"
-+"  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n"
-+"  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n"
-+"  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n"
-+"  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n"
-+"  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n"
-+"  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n"
-+"  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n"
-+"  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n"
-+"  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n"
-+"  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n"
-+"  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n"
-+"  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n"
-+"  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n"
-+"  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n"
-+"  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n"
-+"  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n"
-+"  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n"
-+"  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n"
-+"  1.307065i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 11.018116i 0.423007i 11.018116i 0.602355i -fill \\\n"
-+"  $tkxox(score_passive_note)\n"
-+"${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n"
-+"  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n"
-+"  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n"
-+"  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n"
-+"  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n"
-+"  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n"
-+"  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n"
-+"  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n"
-+"  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n"
-+"  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n"
-+"  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n"
-+"  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n"
-+"  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n"
-+"  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n"
-+"  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n"
-+"  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n"
-+"  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n"
-+"  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n"
-+"  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n"
-+"  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n"
-+"  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n"
-+"  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n"
-+"  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n"
-+"  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n"
-+"  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n"
-+"  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n"
-+"  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n"
-+"  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n"
-+"  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n"
-+"  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n"
-+"  11.022645i 0.435688i 11.023551i 0.442029i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n"
-+"  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n"
-+"  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n"
-+"  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n"
-+"  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n"
-+"  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n"
-+"  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n"
-+"  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n"
-+"  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n"
-+"  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n"
-+"  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n"
-+"  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n"
-+"  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n"
-+"  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n"
-+"  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n"
-+"  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n"
-+"  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n"
-+"  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n"
-+"  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n"
-+"  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n"
-+"  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n"
-+"  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n"
-+"  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n"
-+"  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n"
-+"  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n"
-+"  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n"
-+"  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n"
-+"  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n"
-+"  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n"
-+"  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n"
-+"  11.022645i 0.435688i 11.023551i 0.442029i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n"
-+"  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n"
-+"  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n"
-+"  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n"
-+"  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n"
-+"  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n"
-+"  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n"
-+"  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n"
-+"  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n"
-+"  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n"
-+"  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n"
-+"  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n"
-+"  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n"
-+"  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n"
-+"  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n"
-+"  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n"
-+"  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n"
-+"  0.640399i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-+"${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n"
-+"  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n"
-+"  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n"
-+"  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n"
-+"  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n"
-+"  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n"
-+"  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n"
-+"  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n"
-+"  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n"
-+"  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n"
-+"  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n"
-+"  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n"
-+"  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n"
-+"  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n"
-+"  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n"
-+"  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n"
-+"  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n"
-+"  0.640399i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create line 10.333333i 0.423007i 10.333333i 0.602355i -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n"
-+"  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n"
-+"  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n"
-+"  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n"
-+"  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n"
-+"  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n"
-+"  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n"
-+"  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n"
-+"  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n"
-+"  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n"
-+"  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n"
-+"  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n"
-+"  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n"
-+"  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n"
-+"  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n"
-+"  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n"
-+"  10.288949i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n"
-+"  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n"
-+"  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n"
-+"  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n"
-+"  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n"
-+"  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n"
-+"  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n"
-+"  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n"
-+"  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n"
-+"  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n"
-+"  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n"
-+"  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n"
-+"  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n"
-+"  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n"
-+"  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n"
-+"  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n"
-+"  10.288949i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n"
-+"  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n"
-+"  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n"
-+"  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n"
-+"  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n"
-+"  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n"
-+"  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n"
-+"  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n"
-+"  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n"
-+"  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n"
-+"  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n"
-+"  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n"
-+"  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n"
-+"  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n"
-+"  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n"
-+"  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n"
-+"  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n"
-+"  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n"
-+"  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n"
-+"  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n"
-+"  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n"
-+"  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n"
-+"  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n"
-+"  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n"
-+"  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n"
-+"  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n"
-+"  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n"
-+"  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n"
-+"  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n"
-+"  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n"
-+"  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n"
-+"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-+"${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n"
-+"  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n"
-+"  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n"
-+"  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n"
-+"  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n"
-+"  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n"
-+"  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n"
-+"  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n"
-+"  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n"
-+"  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n"
-+"  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n"
-+"  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n"
-+"  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n"
-+"  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n"
-+"  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n"
-+"  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n"
-+"  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n"
-+"  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n"
-+"  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n"
-+"  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n"
-+"  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n"
-+"  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n"
-+"  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n"
-+"  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n"
-+"  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n"
-+"  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n"
-+"  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n"
-+"  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n"
-+"  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n"
-+"  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n"
-+"  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n"
-+"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-+"${score} create line 10.336051i 0.086051i 10.336051i 0.266304i -fill \\\n"
-+"  $tkxox(score_passive_note)\n"
-+"${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n"
-+"  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n"
-+"  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n"
-+"  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n"
-+"  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n"
-+"  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n"
-+"  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n"
-+"  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n"
-+"  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n"
-+"  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n"
-+"  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n"
-+"  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n"
-+"  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n"
-+"  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n"
-+"  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n"
-+"  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n"
-+"  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n"
-+"  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n"
-+"  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n"
-+"  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n"
-+"  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n"
-+"  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n"
-+"  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n"
-+"  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n"
-+"  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n"
-+"  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n"
-+"  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n"
-+"  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n"
-+"  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n"
-+"  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n"
-+"  10.340580i 0.097826i 10.341486i 0.104167i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n"
-+"  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n"
-+"  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n"
-+"  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n"
-+"  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n"
-+"  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n"
-+"  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n"
-+"  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n"
-+"  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n"
-+"  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n"
-+"  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n"
-+"  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n"
-+"  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n"
-+"  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n"
-+"  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n"
-+"  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n"
-+"  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n"
-+"  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n"
-+"  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n"
-+"  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n"
-+"  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n"
-+"  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n"
-+"  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n"
-+"  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n"
-+"  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n"
-+"  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n"
-+"  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n"
-+"  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n"
-+"  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n"
-+"  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n"
-+"  10.340580i 0.097826i 10.341486i 0.104167i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n"
-+"  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n"
-+"  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n"
-+"  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n"
-+"  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n"
-+"  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n"
-+"  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n"
-+"  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n"
-+"  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n"
-+"  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n"
-+"  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n"
-+"  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n"
-+"  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n"
-+"  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n"
-+"  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n"
-+"  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n"
-+"  10.284420i 0.301630i 10.291667i 0.301630i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-+"  0\n"
-+"${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n"
-+"  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n"
-+"  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n"
-+"  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n"
-+"  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n"
-+"  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n"
-+"  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n"
-+"  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n"
-+"  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n"
-+"  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n"
-+"  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n"
-+"  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n"
-+"  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n"
-+"  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n"
-+"  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n"
-+"  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n"
-+"  10.284420i 0.301630i 10.291667i 0.301630i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create line 9.048007i 0.086051i 9.048007i 0.266304i -fill $tkxox(score_passive_note)\n"
-+"${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n"
-+"  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n"
-+"  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n"
-+"  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n"
-+"  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n"
-+"  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n"
-+"  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n"
-+"  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n"
-+"  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n"
-+"  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n"
-+"  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n"
-+"  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n"
-+"  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n"
-+"  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n"
-+"  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n"
-+"  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n"
-+"  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n"
-+"  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n"
-+"  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n"
-+"  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n"
-+"  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n"
-+"  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n"
-+"  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n"
-+"  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n"
-+"  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n"
-+"  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n"
-+"  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n"
-+"  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n"
-+"  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n"
-+"  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n"
-+"  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n"
-+"  0.104167i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-+"${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n"
-+"  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n"
-+"  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n"
-+"  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n"
-+"  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n"
-+"  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n"
-+"  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n"
-+"  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n"
-+"  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n"
-+"  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n"
-+"  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n"
-+"  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n"
-+"  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n"
-+"  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n"
-+"  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n"
-+"  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n"
-+"  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n"
-+"  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n"
-+"  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n"
-+"  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n"
-+"  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n"
-+"  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n"
-+"  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n"
-+"  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n"
-+"  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n"
-+"  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n"
-+"  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n"
-+"  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n"
-+"  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n"
-+"  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n"
-+"  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n"
-+"  0.104167i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n"
-+"  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n"
-+"  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n"
-+"  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n"
-+"  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n"
-+"  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n"
-+"  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n"
-+"  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n"
-+"  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n"
-+"  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n"
-+"  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n"
-+"  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n"
-+"  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n"
-+"  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n"
-+"  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n"
-+"  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n"
-+"  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n"
-+"  0.301630i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-+"${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n"
-+"  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n"
-+"  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n"
-+"  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n"
-+"  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n"
-+"  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n"
-+"  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n"
-+"  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n"
-+"  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n"
-+"  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n"
-+"  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n"
-+"  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n"
-+"  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n"
-+"  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n"
-+"  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n"
-+"  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n"
-+"  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n"
-+"  0.301630i -outline $tkxox(score_passive_note) -fill {}\n"
-+"${score} create line 2.314312i 0.403080i 1.096014i 0.403080i -fill $tkxox(score_active_note)\n"
-+"${score} create line 2.317029i 0.063406i 1.099638i 0.063406i -fill $tkxox(score_active_note)\n"
-+"${score} create line 3.681159i 0.063406i 2.312500i 0.063406i -fill $tkxox(score_active_note)\n"
-+"${score} create line 4.343297i 0.403080i 3.070652i 0.403080i -fill $tkxox(score_active_note)\n"
-+"${score} create line 6.311594i 0.403080i 5.038043i 0.403080i -fill $tkxox(score_active_note)\n"
-+"${score} create line 7.660326i 0.065217i 5.040761i 0.065217i -fill $tkxox(score_active_note)\n"
-+"${score} create line 8.295290i 0.406703i 7.022645i 0.406703i -fill $tkxox(score_active_note)\n"
-+"${score} create line 10.346920i 0.404891i 9.047101i 0.404891i -fill $tkxox(score_active_note)\n"
-+"${score} create line 11.795290i 0.407609i 11.023551i 0.403080i -fill \\\n"
-+"  $tkxox(score_passive_note)\n"
-+"${score} create line 11.788949i 0.061594i 9.048007i 0.061594i -fill $tkxox(score_passive_note)\n"
-+"${score} create line 1.097826i 0.063406i 1.096920i 0.063406i 1.094203i \\\n"
-+"  0.063406i 1.088768i 0.063406i 1.081522i 0.063406i 1.073370i 0.064312i \\\n"
-+"  1.063406i 0.066123i 1.053442i 0.067935i 1.049819i 0.068841i 1.048913i \\\n"
-+"  0.069746i 1.045290i 0.070652i 1.034420i 0.075181i 1.024457i 0.079710i \\\n"
-+"  1.019022i 0.080616i 1.018116i 0.080616i 1.016304i 0.080616i 1.009964i \\\n"
-+"  0.084239i 0.995471i 0.093297i 0.981884i 0.103261i 0.970109i 0.112319i \\\n"
-+"  0.959239i 0.121377i 0.949275i 0.130435i 0.940217i 0.138587i 0.933877i \\\n"
-+"  0.144022i 0.931159i 0.146739i 0.930254i 0.147645i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 1.098732i 0.400362i 1.097826i 0.400362i 1.095109i \\\n"
-+"  0.400362i 1.089674i 0.400362i 1.082428i 0.400362i 1.074275i 0.401268i \\\n"
-+"  1.064312i 0.403080i 1.054348i 0.404891i 1.050725i 0.405797i 1.049819i \\\n"
-+"  0.406703i 1.046196i 0.407609i 1.035326i 0.412138i 1.025362i 0.416667i \\\n"
-+"  1.019928i 0.418478i 1.019022i 0.418478i 1.017210i 0.418478i 1.010870i \\\n"
-+"  0.422101i 0.996377i 0.432065i 0.982790i 0.442029i 0.971014i 0.451993i \\\n"
-+"  0.960145i 0.461051i 0.950181i 0.469203i 0.941123i 0.477355i 0.934783i \\\n"
-+"  0.482790i 0.932065i 0.485507i 0.931159i 0.486413i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 2.311594i 0.400362i 2.312500i 0.400362i 2.315217i \\\n"
-+"  0.400362i 2.319746i 0.400362i 2.326993i 0.400362i 2.334239i 0.401268i \\\n"
-+"  2.344203i 0.403080i 2.354167i 0.404891i 2.357790i 0.405797i 2.358696i \\\n"
-+"  0.406703i 2.362319i 0.407609i 2.373188i 0.412138i 2.383152i 0.416667i \\\n"
-+"  2.387681i 0.418478i 2.389493i 0.418478i 2.390399i 0.418478i 2.396739i \\\n"
-+"  0.422101i 2.411232i 0.432065i 2.423913i 0.442029i 2.436594i 0.451993i \\\n"
-+"  2.447464i 0.461051i 2.457428i 0.469203i 2.466486i 0.477355i 2.472826i \\\n"
-+"  0.482790i 2.475543i 0.485507i 2.476449i 0.486413i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 3.670290i 0.065217i 3.671196i 0.065217i 3.673913i \\\n"
-+"  0.065217i 3.679348i 0.065217i 3.686594i 0.066123i 3.695652i 0.067029i \\\n"
-+"  3.705616i 0.068841i 3.715580i 0.071558i 3.719203i 0.072464i 3.720109i \\\n"
-+"  0.072464i 3.723732i 0.074275i 3.734601i 0.077899i 3.744565i 0.081522i \\\n"
-+"  3.749094i 0.083333i 3.750906i 0.082428i 3.751812i 0.082428i 3.758152i \\\n"
-+"  0.086051i 3.772645i 0.095109i 3.785326i 0.104167i 3.798007i 0.114130i \\\n"
-+"  3.808877i 0.123188i 3.818841i 0.132246i 3.827899i 0.139493i 3.834239i \\\n"
-+"  0.144928i 3.836957i 0.147645i 3.837862i 0.148551i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 4.337862i 0.403080i 4.338768i 0.403080i 4.342391i \\\n"
-+"  0.403080i 4.349638i 0.403986i 4.357790i 0.404891i 4.369565i 0.406703i \\\n"
-+"  4.378623i 0.408514i 4.383152i 0.409420i 4.384964i 0.409420i 4.386775i \\\n"
-+"  0.409420i 4.391304i 0.411232i 4.401268i 0.414855i 4.411232i 0.419384i \\\n"
-+"  4.416667i 0.421196i 4.417572i 0.421196i 4.418478i 0.422101i 4.424819i \\\n"
-+"  0.425725i 4.439312i 0.435688i 4.451993i 0.445652i 4.464674i 0.455616i \\\n"
-+"  4.475543i 0.464674i 4.485507i 0.473732i 4.494565i 0.480978i 4.500906i \\\n"
-+"  0.486413i 4.503623i 0.489130i 4.504529i 0.490036i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 3.073370i 0.400362i 3.072464i 0.400362i 3.069746i \\\n"
-+"  0.400362i 3.065217i 0.400362i 3.057971i 0.400362i 3.050725i 0.401268i \\\n"
-+"  3.040761i 0.403080i 3.030797i 0.404891i 3.027174i 0.405797i 3.026268i \\\n"
-+"  0.406703i 3.022645i 0.407609i 3.011775i 0.412138i 3.001812i 0.416667i \\\n"
-+"  2.997283i 0.418478i 2.995471i 0.418478i 2.994565i 0.418478i 2.988225i \\\n"
-+"  0.422101i 2.973732i 0.432065i 2.960145i 0.442029i 2.948370i 0.451993i \\\n"
-+"  2.936594i 0.461051i 2.926630i 0.469203i 2.916667i 0.477355i 2.910326i \\\n"
-+"  0.482790i 2.907609i 0.485507i 2.906703i 0.486413i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 5.038043i 0.399457i 5.037138i 0.399457i 5.034420i \\\n"
-+"  0.399457i 5.029891i 0.400362i 5.022645i 0.400362i 5.015399i 0.401268i \\\n"
-+"  5.005435i 0.403080i 4.995471i 0.404891i 4.991848i 0.405797i 4.990942i \\\n"
-+"  0.405797i 4.987319i 0.406703i 4.976449i 0.411232i 4.966486i 0.415761i \\\n"
-+"  4.961957i 0.417572i 4.960145i 0.417572i 4.959239i 0.418478i 4.952899i \\\n"
-+"  0.422101i 4.938406i 0.432065i 4.925725i 0.442029i 4.913043i 0.451087i \\\n"
-+"  4.902174i 0.460145i 4.892210i 0.469203i 4.883152i 0.476449i 4.876812i \\\n"
-+"  0.481884i 4.874094i 0.484601i 4.873188i 0.485507i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 5.039855i 0.064312i 5.038949i 0.064312i 5.036232i \\\n"
-+"  0.064312i 5.031703i 0.064312i 5.024457i 0.064312i 5.017210i 0.065217i \\\n"
-+"  5.007246i 0.067029i 4.997283i 0.068841i 4.993659i 0.069746i 4.992754i \\\n"
-+"  0.070652i 4.989130i 0.071558i 4.978261i 0.076087i 4.968297i 0.080616i \\\n"
-+"  4.963768i 0.081522i 4.961957i 0.081522i 4.961051i 0.081522i 4.954710i \\\n"
-+"  0.085145i 4.940217i 0.094203i 4.927536i 0.103261i 4.914855i 0.113225i \\\n"
-+"  4.903986i 0.122283i 4.894022i 0.131341i 4.884964i 0.138587i 4.878623i \\\n"
-+"  0.144022i 4.875906i 0.146739i 4.875000i 0.147645i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 6.313406i 0.403080i 6.314312i 0.403080i 6.317029i \\\n"
-+"  0.403080i 6.322464i 0.403080i 6.328804i 0.403986i 6.336957i 0.403986i \\\n"
-+"  6.346920i 0.405797i 6.356884i 0.407609i 6.360507i 0.408514i 6.364130i \\\n"
-+"  0.409420i 6.375000i 0.413949i 6.384964i 0.418478i 6.390399i 0.420290i \\\n"
-+"  6.391304i 0.420290i 6.393116i 0.421196i 6.399457i 0.424819i 6.413949i \\\n"
-+"  0.434783i 6.427536i 0.444746i 6.439312i 0.454710i 6.450181i 0.463768i \\\n"
-+"  6.460145i 0.472826i 6.469203i 0.480072i 6.475543i 0.485507i 6.478261i \\\n"
-+"  0.488225i 6.479167i 0.489130i -joinstyle bevel -fill $tkxox(score_active_note)\n"
-+"${score} create line 7.658514i 0.067029i 7.659420i 0.067029i 7.663043i \\\n"
-+"  0.067029i 7.670290i 0.067029i 7.678442i 0.067935i 7.690217i 0.069746i \\\n"
-+"  7.699275i 0.071558i 7.703804i 0.073370i 7.705616i 0.073370i 7.707428i \\\n"
-+"  0.074275i 7.711957i 0.076087i 7.721920i 0.079710i 7.731884i 0.084239i \\\n"
-+"  7.737319i 0.085145i 7.738225i 0.085145i 7.739130i 0.085145i 7.745471i \\\n"
-+"  0.088768i 7.759964i 0.097826i 7.772645i 0.106884i 7.785326i 0.116848i \\\n"
-+"  7.796196i 0.125906i 7.806159i 0.134964i 7.815217i 0.142210i 7.821558i \\\n"
-+"  0.147645i 7.824275i 0.150362i 7.825181i 0.151268i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 7.049819i 0.403080i 7.048913i 0.403080i 7.046196i \\\n"
-+"  0.403080i 7.041667i 0.403080i 7.034420i 0.403986i 7.027174i 0.403986i \\\n"
-+"  7.017210i 0.405797i 7.007246i 0.407609i 7.003623i 0.408514i 7.002717i \\\n"
-+"  0.408514i 6.999094i 0.409420i 6.988225i 0.413949i 6.978261i 0.418478i \\\n"
-+"  6.972826i 0.420290i 6.971014i 0.420290i 6.969203i 0.421196i 6.962862i \\\n"
-+"  0.424819i 6.948370i 0.434783i 6.934783i 0.444746i 6.923007i 0.454710i \\\n"
-+"  6.912138i 0.463768i 6.902174i 0.472826i 6.893116i 0.480072i 6.886775i \\\n"
-+"  0.485507i 6.884058i 0.488225i 6.883152i 0.489130i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 8.290761i 0.405797i 8.291667i 0.405797i 8.295290i \\\n"
-+"  0.405797i 8.302536i 0.405797i 8.310688i 0.406703i 8.322464i 0.408514i \\\n"
-+"  8.332428i 0.410326i 8.336051i 0.411232i 8.336957i 0.412138i 8.341486i \\\n"
-+"  0.413043i 8.352355i 0.417572i 8.362319i 0.422101i 8.366848i 0.423913i \\\n"
-+"  8.368659i 0.423913i 8.369565i 0.423913i 8.375906i 0.427536i 8.390399i \\\n"
-+"  0.437500i 8.403986i 0.447464i 8.415761i 0.457428i 8.427536i 0.466486i \\\n"
-+"  8.438406i 0.474638i 8.447464i 0.482790i 8.453804i 0.488225i 8.456522i \\\n"
-+"  0.490942i 8.457428i 0.491848i -joinstyle bevel -fill $tkxox(score_active_note)\n"
-+"${score} create line 10.342391i 0.403080i 10.343297i 0.403080i 10.346014i \\\n"
-+"  0.403080i 10.351449i 0.403986i 10.357790i 0.403986i 10.365942i 0.404891i \\\n"
-+"  10.375906i 0.406703i 10.385870i 0.408514i 10.389493i 0.409420i 10.390399i \\\n"
-+"  0.409420i 10.394022i 0.410326i 10.404891i 0.414855i 10.414855i 0.419384i \\\n"
-+"  10.419384i 0.421196i 10.421196i 0.421196i 10.422101i 0.422101i 10.428442i \\\n"
-+"  0.425725i 10.442935i 0.435688i 10.455616i 0.445652i 10.468297i 0.455616i \\\n"
-+"  10.479167i 0.464674i 10.489130i 0.473732i 10.498188i 0.480978i 10.504529i \\\n"
-+"  0.486413i 10.507246i 0.489130i 10.508152i 0.490036i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"${score} create line 11.024457i 0.402174i 11.023551i 0.402174i 11.020833i \\\n"
-+"  0.402174i 11.015399i 0.402174i 11.008152i 0.403080i 10.999094i 0.403080i \\\n"
-+"  10.989130i 0.404891i 10.979167i 0.406703i 10.975543i 0.407609i 10.974638i \\\n"
-+"  0.407609i 10.971014i 0.408514i 10.960145i 0.413043i 10.950181i 0.417572i \\\n"
-+"  10.944746i 0.419384i 10.943841i 0.419384i 10.942029i 0.420290i 10.935688i \\\n"
-+"  0.423913i 10.921196i 0.433877i 10.908514i 0.443841i 10.895833i 0.452899i \\\n"
-+"  10.884964i 0.461957i 10.875000i 0.471014i 10.866848i 0.478261i 10.860507i \\\n"
-+"  0.483696i 10.857790i 0.486413i 10.856884i 0.487319i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_passive_note)\n"
-+"${score} create line 9.053442i 0.065217i 9.052536i 0.065217i 9.049819i \\\n"
-+"  0.065217i 9.045290i 0.065217i 9.038949i 0.066123i 9.030797i 0.067029i \\\n"
-+"  9.020833i 0.068841i 9.010870i 0.071558i 9.007246i 0.072464i 9.005435i \\\n"
-+"  0.072464i 9.001812i 0.074275i 8.990942i 0.077899i 8.980978i 0.081522i \\\n"
-+"  8.975543i 0.083333i 8.974638i 0.082428i 8.973732i 0.082428i 8.967391i \\\n"
-+"  0.086051i 8.952899i 0.095109i 8.940217i 0.104167i 8.927536i 0.114130i \\\n"
-+"  8.916667i 0.123188i 8.906703i 0.132246i 8.897645i 0.139493i 8.891304i \\\n"
-+"  0.144928i 8.888587i 0.147645i 8.887681i 0.148551i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_passive_note)\n"
-+"${score} create line 9.051630i 0.403080i 9.050725i 0.403080i 9.048007i \\\n"
-+"  0.403080i 9.043478i 0.403080i 9.037138i 0.403986i 9.028986i 0.403986i \\\n"
-+"  9.019022i 0.405797i 9.009058i 0.407609i 9.005435i 0.408514i 9.003623i \\\n"
-+"  0.408514i 9.000000i 0.409420i 8.989130i 0.413949i 8.979167i 0.418478i \\\n"
-+"  8.973732i 0.420290i 8.972826i 0.420290i 8.971920i 0.421196i 8.965580i \\\n"
-+"  0.424819i 8.951087i 0.434783i 8.938406i 0.444746i 8.925725i 0.454710i \\\n"
-+"  8.914855i 0.463768i 8.904891i 0.472826i 8.895833i 0.480072i 8.889493i \\\n"
-+"  0.485507i 8.886775i 0.488225i 8.885870i 0.489130i -joinstyle bevel -fill \\\n"
-+"  $tkxox(score_active_note)\n"
-+"";
---- a/score_defs.c
-+++ b/score_defs.c
-@@ -1,8 +1,8 @@
--char tcl_score_defs[] = "\
--# file automatically generated by:\n\
--#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n\
--set score_width_in_inch  12.12\n\
--set score_height_in_inch 1.44\n\
--set score_scroll_x_in_point -10\n\
--set score_scroll_y_in_point -2\n\
--";
-+char tcl_score_defs[] = ""
-+"# file automatically generated by:\n"
-+"#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n"
-+"set score_width_in_inch  12.12\n"
-+"set score_height_in_inch 1.44\n"
-+"set score_scroll_x_in_point -10\n"
-+"set score_scroll_y_in_point -2\n"
-+"";
---- a/tcl2c.c
-+++ b/tcl2c.c
-@@ -45,11 +45,11 @@
-     }
- 
-     if (genstrings) {
--	fprintf(out, "char %s[] = \"\\\n", argv[1]);
-+	fprintf(out, "char %s[] = \"\"\n\"", argv[1]);
- 	while ((c = getc(in)) != EOF) {
- 	    switch (c) {
- 	    case '\n':
--		fprintf(out, "\\n\\\n");
-+		fprintf(out, "\\n\"\n\"");
- 		break;
- 	    case '\"':
- 		fprintf(out, "\\\"");
---- a/title.c
-+++ b/title.c
-@@ -1,444 +1,444 @@
--char tcl_title[] = "\
--# do not edit.\n\
--# file automatically generated by:\n\
--#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n\
--\n\
--set title $vcunit.title\n\
--\n\
--canvas ${title} -width ${title_width_in_inch}i -height ${title_height_in_inch}i \\\n\
--	-bg                 $tkxox(col_def_bg) \\\n\
--	-highlightthickness 0\n\
--\n\
--${title} config -xscrollincrement 1p -yscrollincrement 1p\n\
--${title} xview scroll ${title_scroll_x_in_point} u\n\
--${title} yview scroll ${title_scroll_y_in_point} u\n\
--\n\
--pack ${title} -side top\n\
--\n\
--# The xfig objects begin here\n\
--${title} create polygon 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n\
--  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -outline {} -fill $tkxox(color_title_bg) \\\n\
--  -width 0\n\
--${title} create line 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n\
--  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -fill $tkxox(color_title_bg)\n\
--${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n\
--  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n\
--  4.745686i 0.380345i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
--${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n\
--  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n\
--  4.745686i 0.380345i -outline $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create polygon 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n\
--  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -outline {} -fill $tkxox(color_title_logo_fg) \\\n\
--  -width 0\n\
--${title} create line 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n\
--  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -fill $tkxox(color_title_logo_fg)\n\
--${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n\
--  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n\
--  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n\
--  0.516129i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n\
--  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n\
--  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n\
--  0.516129i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n\
--  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n\
--  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n\
--  0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n\
--  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n\
--  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n\
--  0.411103i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n\
--  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -outline {} -fill $tkxox(color_title_logo_fg) \\\n\
--  -width 0\n\
--${title} create line 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n\
--  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -fill $tkxox(color_title_logo_fg)\n\
--${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n\
--  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n\
--  6.241560i 0.121530i 6.241560i 0.213053i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n\
--  0\n\
--${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n\
--  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n\
--  6.241560i 0.121530i 6.241560i 0.213053i -outline $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n\
--  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n\
--  5.366092i 0.121530i 5.366092i 0.214554i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n\
--  0\n\
--${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n\
--  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n\
--  5.366092i 0.121530i 5.366092i 0.214554i -outline $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n\
--  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n\
--  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n\
--  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n\
--  -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n\
--  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n\
--  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n\
--  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n\
--  -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n\
--  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n\
--  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n\
--  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n\
--  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n\
--  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n\
--  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n\
--  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n\
--  3.558890i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n\
--  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n\
--  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n\
--  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n\
--  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n\
--  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n\
--  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n\
--  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n\
--  3.558890i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n\
--  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n\
--  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n\
--  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n\
--  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n\
--  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n\
--  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n\
--  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline {} -fill $tkxox(color_title_fg) \\\n\
--  -width 0\n\
--${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n\
--  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n\
--  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n\
--  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n\
--  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n\
--  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n\
--  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n\
--  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline $tkxox(color_title_fg) -fill \\\n\
--  {}\n\
--${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n\
--  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n\
--  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n\
--  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n\
--  1.332333i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n\
--  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n\
--  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n\
--  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n\
--  1.332333i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n\
--  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n\
--  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n\
--  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n\
--  -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n\
--  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n\
--  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n\
--  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n\
--  -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n\
--  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n\
--  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n\
--  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n\
--  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n\
--  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n\
--  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n\
--  0.410353i 0.250563i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n\
--  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n\
--  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n\
--  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n\
--  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n\
--  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n\
--  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n\
--  0.410353i 0.250563i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n\
--  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n\
--  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n\
--  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n\
--  0.325581i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n\
--  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n\
--  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n\
--  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n\
--  0.325581i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n\
--  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n\
--  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n\
--  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n\
--  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n\
--  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n\
--  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n\
--  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n\
--  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n\
--  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n\
--  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n\
--  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n\
--  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n\
--  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n\
--  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n\
--  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n\
--  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n\
--  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n\
--  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n\
--  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n\
--  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n\
--  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n\
--  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n\
--  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n\
--  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n\
--  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n\
--  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n\
--  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n\
--  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n\
--  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n\
--  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n\
--  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n\
--  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n\
--  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n\
--  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n\
--  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n\
--  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n\
--  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n\
--  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n\
--  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n\
--  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n\
--  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n\
--  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n\
--  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n\
--  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n\
--  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n\
--  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n\
--  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n\
--  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n\
--  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n\
--  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n\
--  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n\
--  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n\
--  0.414104i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n\
--  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n\
--  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n\
--  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n\
--  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n\
--  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n\
--  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n\
--  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n\
--  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n\
--  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n\
--  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n\
--  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n\
--  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n\
--  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n\
--  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n\
--  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n\
--  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n\
--  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n\
--  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n\
--  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n\
--  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n\
--  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n\
--  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n\
--  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n\
--  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n\
--  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n\
--  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n\
--  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n\
--  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n\
--  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n\
--  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n\
--  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n\
--  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n\
--  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n\
--  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n\
--  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n\
--  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n\
--  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n\
--  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n\
--  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n\
--  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n\
--  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n\
--  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n\
--  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n\
--  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n\
--  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n\
--  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n\
--  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n\
--  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n\
--  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n\
--  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n\
--  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n\
--  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n\
--  0.414104i -outline $tkxox(color_title_fg) -fill {}\n\
--${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n\
--  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n\
--  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n\
--  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n\
--  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n\
--  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n\
--  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n\
--  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n\
--  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n\
--  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n\
--  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n\
--  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n\
--  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n\
--  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n\
--  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n\
--  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n\
--  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n\
--  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n\
--  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n\
--  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n\
--  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n\
--  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n\
--  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n\
--  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n\
--  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n\
--  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n\
--  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n\
--  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n\
--  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n\
--  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n\
--  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n\
--  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n\
--  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n\
--  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n\
--  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n\
--  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n\
--  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n\
--  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n\
--  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n\
--  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n\
--  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n\
--  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n\
--  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n\
--  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n\
--  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n\
--  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n\
--  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n\
--  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n\
--  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n\
--  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n\
--  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n\
--  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n\
--  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n\
--  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n\
--  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n\
--  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n\
--  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n\
--  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n\
--  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n\
--  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n\
--  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n\
--  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n\
--  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n\
--  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n\
--  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline {} \\\n\
--  -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n\
--  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n\
--  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n\
--  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n\
--  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n\
--  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n\
--  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n\
--  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n\
--  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n\
--  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n\
--  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n\
--  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n\
--  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n\
--  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n\
--  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n\
--  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n\
--  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n\
--  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n\
--  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n\
--  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n\
--  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n\
--  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n\
--  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n\
--  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n\
--  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n\
--  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n\
--  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n\
--  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n\
--  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n\
--  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n\
--  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n\
--  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n\
--  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n\
--  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n\
--  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n\
--  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n\
--  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n\
--  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n\
--  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n\
--  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n\
--  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n\
--  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n\
--  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n\
--  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n\
--  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n\
--  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n\
--  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n\
--  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n\
--  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n\
--  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n\
--  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n\
--  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n\
--  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n\
--  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n\
--  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n\
--  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n\
--  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n\
--  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n\
--  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n\
--  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n\
--  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n\
--  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n\
--  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n\
--  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n\
--  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline $tkxox(color_title_fg) \\\n\
--  -fill {}\n\
--${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n\
--  {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n\
--  $tkxox(color_title_fg) -fill {}\n\
--${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n\
--  {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n\
--  $tkxox(color_title_fg) -fill {}\n\
--${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n\
--  {} -fill $tkxox(color_title_logo_fg) -width 0\n\
--${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n\
--  $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n\
--  {} -fill $tkxox(color_title_bg) -width 0\n\
--${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n\
--  $tkxox(color_title_fg) -fill {}\n\
--${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n\
--  {} -fill $tkxox(color_title_bg) -width 0\n\
--${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n\
--  $tkxox(color_title_fg) -fill {}\n\
--${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n\
--  {} -fill $tkxox(color_title_bg) -width 0\n\
--${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n\
--  $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n\
--  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n\
--  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n\
--  0.121530i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
--${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n\
--  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n\
--  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n\
--  0.121530i -outline $tkxox(color_title_logo_fg) -fill {}\n\
--${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n\
--  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n\
--  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n\
--  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n\
--  2.366092i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
--${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n\
--  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n\
--  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n\
--  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n\
--  2.366092i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n\
--";
-+char tcl_title[] = ""
-+"# do not edit.\n"
-+"# file automatically generated by:\n"
-+"#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n"
-+"\n"
-+"set title $vcunit.title\n"
-+"\n"
-+"canvas ${title} -width ${title_width_in_inch}i -height ${title_height_in_inch}i \\\n"
-+"	-bg                 $tkxox(col_def_bg) \\\n"
-+"	-highlightthickness 0\n"
-+"\n"
-+"${title} config -xscrollincrement 1p -yscrollincrement 1p\n"
-+"${title} xview scroll ${title_scroll_x_in_point} u\n"
-+"${title} yview scroll ${title_scroll_y_in_point} u\n"
-+"\n"
-+"pack ${title} -side top\n"
-+"\n"
-+"# The xfig objects begin here\n"
-+"${title} create polygon 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n"
-+"  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -outline {} -fill $tkxox(color_title_bg) \\\n"
-+"  -width 0\n"
-+"${title} create line 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n"
-+"  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -fill $tkxox(color_title_bg)\n"
-+"${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n"
-+"  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n"
-+"  4.745686i 0.380345i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-+"${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n"
-+"  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n"
-+"  4.745686i 0.380345i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create polygon 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n"
-+"  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -outline {} -fill $tkxox(color_title_logo_fg) \\\n"
-+"  -width 0\n"
-+"${title} create line 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n"
-+"  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -fill $tkxox(color_title_logo_fg)\n"
-+"${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n"
-+"  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n"
-+"  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n"
-+"  0.516129i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n"
-+"  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n"
-+"  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n"
-+"  0.516129i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n"
-+"  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n"
-+"  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n"
-+"  0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n"
-+"  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n"
-+"  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n"
-+"  0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n"
-+"  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -outline {} -fill $tkxox(color_title_logo_fg) \\\n"
-+"  -width 0\n"
-+"${title} create line 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n"
-+"  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -fill $tkxox(color_title_logo_fg)\n"
-+"${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n"
-+"  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n"
-+"  6.241560i 0.121530i 6.241560i 0.213053i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n"
-+"  0\n"
-+"${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n"
-+"  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n"
-+"  6.241560i 0.121530i 6.241560i 0.213053i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n"
-+"  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n"
-+"  5.366092i 0.121530i 5.366092i 0.214554i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n"
-+"  0\n"
-+"${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n"
-+"  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n"
-+"  5.366092i 0.121530i 5.366092i 0.214554i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n"
-+"  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n"
-+"  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n"
-+"  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n"
-+"  -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n"
-+"  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n"
-+"  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n"
-+"  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n"
-+"  -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n"
-+"  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n"
-+"  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n"
-+"  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n"
-+"  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n"
-+"  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n"
-+"  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n"
-+"  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n"
-+"  3.558890i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n"
-+"  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n"
-+"  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n"
-+"  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n"
-+"  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n"
-+"  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n"
-+"  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n"
-+"  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n"
-+"  3.558890i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n"
-+"  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n"
-+"  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n"
-+"  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n"
-+"  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n"
-+"  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n"
-+"  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n"
-+"  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline {} -fill $tkxox(color_title_fg) \\\n"
-+"  -width 0\n"
-+"${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n"
-+"  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n"
-+"  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n"
-+"  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n"
-+"  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n"
-+"  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n"
-+"  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n"
-+"  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline $tkxox(color_title_fg) -fill \\\n"
-+"  {}\n"
-+"${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n"
-+"  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n"
-+"  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n"
-+"  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n"
-+"  1.332333i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n"
-+"  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n"
-+"  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n"
-+"  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n"
-+"  1.332333i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n"
-+"  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n"
-+"  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n"
-+"  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n"
-+"  -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n"
-+"  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n"
-+"  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n"
-+"  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n"
-+"  -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n"
-+"  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n"
-+"  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n"
-+"  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n"
-+"  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n"
-+"  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n"
-+"  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n"
-+"  0.410353i 0.250563i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n"
-+"  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n"
-+"  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n"
-+"  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n"
-+"  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n"
-+"  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n"
-+"  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n"
-+"  0.410353i 0.250563i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n"
-+"  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n"
-+"  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n"
-+"  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n"
-+"  0.325581i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n"
-+"  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n"
-+"  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n"
-+"  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n"
-+"  0.325581i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n"
-+"  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n"
-+"  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n"
-+"  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n"
-+"  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n"
-+"  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n"
-+"  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n"
-+"  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n"
-+"  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n"
-+"  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n"
-+"  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n"
-+"  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n"
-+"  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n"
-+"  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n"
-+"  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n"
-+"  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n"
-+"  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n"
-+"  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n"
-+"  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n"
-+"  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n"
-+"  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n"
-+"  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n"
-+"  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n"
-+"  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n"
-+"  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n"
-+"  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n"
-+"  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n"
-+"  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n"
-+"  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n"
-+"  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n"
-+"  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n"
-+"  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n"
-+"  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n"
-+"  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n"
-+"  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n"
-+"  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n"
-+"  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n"
-+"  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n"
-+"  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n"
-+"  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n"
-+"  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n"
-+"  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n"
-+"  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n"
-+"  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n"
-+"  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n"
-+"  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n"
-+"  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n"
-+"  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n"
-+"  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n"
-+"  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n"
-+"  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n"
-+"  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n"
-+"  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n"
-+"  0.414104i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n"
-+"  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n"
-+"  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n"
-+"  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n"
-+"  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n"
-+"  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n"
-+"  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n"
-+"  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n"
-+"  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n"
-+"  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n"
-+"  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n"
-+"  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n"
-+"  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n"
-+"  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n"
-+"  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n"
-+"  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n"
-+"  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n"
-+"  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n"
-+"  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n"
-+"  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n"
-+"  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n"
-+"  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n"
-+"  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n"
-+"  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n"
-+"  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n"
-+"  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n"
-+"  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n"
-+"  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n"
-+"  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n"
-+"  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n"
-+"  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n"
-+"  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n"
-+"  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n"
-+"  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n"
-+"  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n"
-+"  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n"
-+"  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n"
-+"  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n"
-+"  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n"
-+"  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n"
-+"  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n"
-+"  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n"
-+"  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n"
-+"  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n"
-+"  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n"
-+"  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n"
-+"  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n"
-+"  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n"
-+"  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n"
-+"  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n"
-+"  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n"
-+"  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n"
-+"  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n"
-+"  0.414104i -outline $tkxox(color_title_fg) -fill {}\n"
-+"${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n"
-+"  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n"
-+"  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n"
-+"  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n"
-+"  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n"
-+"  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n"
-+"  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n"
-+"  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n"
-+"  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n"
-+"  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n"
-+"  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n"
-+"  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n"
-+"  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n"
-+"  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n"
-+"  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n"
-+"  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n"
-+"  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n"
-+"  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n"
-+"  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n"
-+"  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n"
-+"  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n"
-+"  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n"
-+"  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n"
-+"  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n"
-+"  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n"
-+"  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n"
-+"  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n"
-+"  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n"
-+"  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n"
-+"  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n"
-+"  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n"
-+"  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n"
-+"  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n"
-+"  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n"
-+"  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n"
-+"  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n"
-+"  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n"
-+"  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n"
-+"  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n"
-+"  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n"
-+"  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n"
-+"  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n"
-+"  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n"
-+"  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n"
-+"  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n"
-+"  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n"
-+"  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n"
-+"  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n"
-+"  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n"
-+"  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n"
-+"  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n"
-+"  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n"
-+"  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n"
-+"  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n"
-+"  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n"
-+"  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n"
-+"  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n"
-+"  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n"
-+"  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n"
-+"  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n"
-+"  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n"
-+"  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n"
-+"  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n"
-+"  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n"
-+"  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline {} \\\n"
-+"  -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n"
-+"  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n"
-+"  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n"
-+"  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n"
-+"  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n"
-+"  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n"
-+"  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n"
-+"  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n"
-+"  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n"
-+"  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n"
-+"  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n"
-+"  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n"
-+"  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n"
-+"  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n"
-+"  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n"
-+"  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n"
-+"  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n"
-+"  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n"
-+"  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n"
-+"  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n"
-+"  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n"
-+"  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n"
-+"  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n"
-+"  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n"
-+"  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n"
-+"  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n"
-+"  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n"
-+"  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n"
-+"  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n"
-+"  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n"
-+"  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n"
-+"  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n"
-+"  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n"
-+"  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n"
-+"  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n"
-+"  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n"
-+"  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n"
-+"  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n"
-+"  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n"
-+"  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n"
-+"  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n"
-+"  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n"
-+"  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n"
-+"  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n"
-+"  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n"
-+"  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n"
-+"  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n"
-+"  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n"
-+"  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n"
-+"  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n"
-+"  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n"
-+"  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n"
-+"  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n"
-+"  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n"
-+"  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n"
-+"  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n"
-+"  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n"
-+"  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n"
-+"  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n"
-+"  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n"
-+"  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n"
-+"  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n"
-+"  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n"
-+"  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n"
-+"  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline $tkxox(color_title_fg) \\\n"
-+"  -fill {}\n"
-+"${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n"
-+"  {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n"
-+"  $tkxox(color_title_fg) -fill {}\n"
-+"${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n"
-+"  {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n"
-+"  $tkxox(color_title_fg) -fill {}\n"
-+"${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n"
-+"  {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-+"${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n"
-+"  $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n"
-+"  {} -fill $tkxox(color_title_bg) -width 0\n"
-+"${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n"
-+"  $tkxox(color_title_fg) -fill {}\n"
-+"${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n"
-+"  {} -fill $tkxox(color_title_bg) -width 0\n"
-+"${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n"
-+"  $tkxox(color_title_fg) -fill {}\n"
-+"${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n"
-+"  {} -fill $tkxox(color_title_bg) -width 0\n"
-+"${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n"
-+"  $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n"
-+"  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n"
-+"  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n"
-+"  0.121530i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-+"${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n"
-+"  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n"
-+"  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n"
-+"  0.121530i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-+"${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n"
-+"  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n"
-+"  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n"
-+"  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n"
-+"  2.366092i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-+"${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n"
-+"  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n"
-+"  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n"
-+"  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n"
-+"  2.366092i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n"
-+"";
---- a/title_defs.c
-+++ b/title_defs.c
-@@ -1,8 +1,8 @@
--char tcl_title_defs[] = "\
--# file automatically generated by:\n\
--#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n\
--set title_width_in_inch  6.90\n\
--set title_height_in_inch 0.82\n\
--set title_scroll_x_in_point -7\n\
--set title_scroll_y_in_point -2\n\
--";
-+char tcl_title_defs[] = ""
-+"# file automatically generated by:\n"
-+"#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n"
-+"set title_width_in_inch  6.90\n"
-+"set title_height_in_inch 0.82\n"
-+"set title_scroll_x_in_point -7\n"
-+"set title_scroll_y_in_point -2\n"
-+"";
---- a/tk707.c
-+++ b/tk707.c
-@@ -1,771 +1,771 @@
--char tcl_tk707[] = "\
--#	File tk707.tcl\n\
--#	Remainder of gui, including key & mouse bindings. Then RUN!\n\
--\n\
--#	Pattern memory is now in C-land but track memory still in tcl/tk.\n\
--#\n\
--mem_init\n\
--\n\
--# ======================================================\n\
--# lamps into the score\n\
--# ======================================================\n\
--set score_width  [expr $score_width_in_inch  * $cm_per_inch]\n\
--set score_height [expr $score_height_in_inch * $cm_per_inch]\n\
--set lamp_width  0.40;\n\
--set lamp_height 0.15;\n\
--set scale_lamps $score\n\
--\n\
--set scale_lamp3 $score.l3\n\
--set scale_lamp2 $score.l2\n\
--set scale_lamp1 $score.l1\n\
--set scale_lamp0 $score.l0\n\
--label $scale_lamp3 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $scale_lamp2 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $scale_lamp1 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $scale_lamp0 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_on)\n\
--pack  $scale_lamp3 -side bottom\n\
--pack  $scale_lamp2 -side bottom\n\
--pack  $scale_lamp1 -side bottom\n\
--pack  $scale_lamp0 -side bottom\n\
--set x  0.75\n\
--set dy [expr $score_height / 4.0 - 0.04]\n\
--set y3 [expr $dy/2 - 0.01];\n\
--set y2 [expr $y3 + $dy]\n\
--set y1 [expr $y2 + $dy]\n\
--set y0 [expr $y1 + $dy]\n\
--\n\
--$scale_lamps create window ${x}c ${y3}c -window $scale_lamp3;\n\
--$scale_lamps create window ${x}c ${y2}c -window $scale_lamp2;\n\
--$scale_lamps create window ${x}c ${y1}c -window $scale_lamp1;\n\
--$scale_lamps create window ${x}c ${y0}c -window $scale_lamp0;\n\
--\n\
--focus ${scale_lamp0}\n\
--# ======================================================\n\
--# Grid Display Area\n\
--# ======================================================\n\
--# Vertical lines\n\
--set xcoord 0.0\n\
--for {set i 0} {$i < 16} {incr i} {\n\
--	set xcoord [expr $xcoord + 0.5]\n\
--	$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n\
--	set pvalX [tk7_cm2pix $grid ${xcoord}c]\n\
--	lappend gridXs $pvalX\n\
--	set gridSvals($pvalX) $i\n\
--}\n\
--# Horizontal lines\n\
--set ycoord 0.5\n\
--for {set i 0} {$i < 16} {incr i} {\n\
--	set ycoord [expr $ycoord + 0.5]\n\
--	$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n\
--	set pvalY [tk7_cm2pix $grid ${ycoord}c]\n\
--	lappend gridYs $pvalY\n\
--	set gridIvals($pvalY) [expr 15 - $i]\n\
--}\n\
--# -----------------------\n\
--# Step markers\n\
--# -----------------------\n\
--set xcoord 0.0\n\
--for {set i 0} {$i < 16} {incr i} {\n\
--	set xcoord [expr $xcoord + 0.5]\n\
--	$grid create text ${xcoord}c 0.28125c -text [expr $i + 1] -font *-${font12}-*\n\
--}\n\
--# -----------------------\n\
--# Instrument labels\n\
--# -----------------------\n\
--$gridlabel create text 2.85c 0.28125c -text Step -font *-${font12}-* -anchor e\n\
--set xcoord 0.5\n\
--set ycoord 0.5625\n\
--for {set i 0} {$i < 16} {incr i} {\n\
--	set ycoord [expr $ycoord + 0.5]\n\
--	$gridlabel create text 2.85c ${ycoord}c -tags ilabel$i	\\\n\
--		-text $sound([expr 16 - $i],name) -font *-${font12}-* -anchor e\n\
--}\n\
--$tempoinfo create text 1c 0.5c -text TEMPO -font *-${font12}-* -tags tmtitle\n\
--$tempoinfo create text 3.6c 1.5c -text \"$mode(tempo)\" -tags tempo	\\\n\
--	-font -${courrier_boldfont_i_50}-* -anchor e\n\
--#trace variable mode(tempo) w tempoinfo_update\n\
--$tminfo.t create text 0.2c 0.45c -text TRACK -anchor w -font *-${normal_r_14}-*\n\
--$tminfo.t create text 3c 0.45c -text \"\" -tags trackid -font *-${normal_r_14}-*\n\
--trace variable mode(current_track) w trackinfo_update\n\
--$tminfo.m create text 0.2c 0.4c -text STATUS -anchor w -font *-${font12}-*\n\
--# ===================================================================================\n\
--# Volume controls\n\
--# ===================================================================================\n\
--set vol_tics_width 0.25\n\
--\n\
--set title_width  [expr ${title_width_in_inch}  * ${cm_per_inch}];\n\
--set title_height [expr ${title_height_in_inch} * ${cm_per_inch}];\n\
--set space_height [expr ${title_height}/4.];\n\
--set volspacer $vcunit.spacer\n\
--canvas $volspacer -width ${title_width}c -height ${space_height}c\n\
--pack $volspacer\n\
--\n\
--set cunit $vcunit.u\n\
--frame $cunit;\n\
--pack $cunit\n\
--for {set i 0} {$i<11} {incr i} {\n\
--	frame $cunit.$i ;# -relief groove -borderwidth 2\n\
--	frame $cunit.$i.sf\n\
--	if {$i == 0} {\n\
--		canvas $cunit.$i.sf.cl -width 1.2c -height 4c\n\
--		$cunit.$i.sf.cl create text 1.2c 0.4c -text MAX -font *-${font12}-* -anchor e\n\
--		$cunit.$i.sf.cl create text 1.2c 3.6c -text MIN -font *-${font12}-* -anchor e\n\
--		pack $cunit.$i.sf.cl -side left\n\
--		set vol_space_width [expr 4*${vol_tics_width}];\n\
--	} else {\n\
--		set vol_space_width ${vol_tics_width};\n\
--	}\n\
--	canvas $cunit.$i.sf.c -width 0.25c -height 4c\n\
--	for {set j 1} {$j < 10} {incr j} {\n\
--		set y [expr 0.4 * $j]\n\
--		$cunit.$i.sf.c create line 0c ${y}c ${vol_tics_width}c ${y}c\n\
--	}\n\
--	$cunit.$i.sf.c create line 0c 0.4c 0.25c 0.4c -width 2\n\
--	$cunit.$i.sf.c create line 0c 2.0c 0.25c 2.0c -width 2\n\
--	$cunit.$i.sf.c create line 0c 3.6c 0.25c 3.6c -width 2\n\
--	scale $cunit.$i.sf.s -orient vertical -from 100 -to 0 -length 4c	\\\n\
--		-width 0.4c -sliderlength 0.8c \\\n\
--		-activebackground 	$tkxox(vol_slider_active) \\\n\
--		-troughcolor 		$tkxox(vol_trough_color) \\\n\
--		-background 		$tkxox(vol_slider_passive) \\\n\
--		-highlightbackground 	$tkxox(vol_highlightbackground) \\\n\
--		-showvalue false -borderwidth 1p \\\n\
--		-command volset -relief groove\n\
--\n\
--	eval canvas $cunit.$i.sf.spacer -width ${vol_space_width}c -height 4c ${debug_relief};\n\
--	pack $cunit.$i.sf.spacer -side right\n\
--\n\
--	pack $cunit.$i -side left\n\
--	pack $cunit.$i.sf\n\
--	pack $cunit.$i.sf.c -side left\n\
--	pack $cunit.$i.sf.s -side left\n\
--	frame $cunit.$i.lab\n\
--\n\
--	eval label $cunit.$i.l -height 1 -font *-${font8}-*	\\\n\
--		-text $volume_label($i) -justify left ${debug_relief}\n\
--	pack $cunit.$i.l -expand true -fill x\n\
--\n\
--	# Initialise fader setting\n\
--	if {$i == 0} {\n\
--	    $cunit.$i.sf.s set 100\n\
--	} else {\n\
--	    $cunit.$i.sf.s set 66\n\
--	}\n\
--}\n\
--set masterv $cunit.11\n\
--frame $masterv\n\
--frame  $masterv.sf\n\
--pack $masterv -side left\n\
--pack  $masterv.sf\n\
--\n\
--set master_width        0.5;\n\
--set master_height       5.0;\n\
--set master_n_tics       10;\n\
--set master_tics_width   0.7;\n\
--set master_sliderlength [expr 2.*${master_height}/${master_n_tics}]\n\
--set master_incr_height  [expr ${master_height}/(${master_n_tics}+2)];\n\
--set vol_space_width     [expr 3*${vol_tics_width}];\n\
--eval canvas $masterv.sf.spacer -width ${vol_space_width}c -height ${master_height}c \\\n\
--	${debug_relief}\n\
--pack $masterv.sf.spacer -side left\n\
--\n\
--set master_hi_color #ffff00000000; # red\n\
--set master_hibg_color #f332ffff0000; # yellow\n\
--set master_acbg_color #000044cffb22; # blue\n\
--set master_fg_color #000044440000; # green\n\
--	#-background 		$tkxox(but_grey)          \\\n\
--\n\
--canvas $masterv.sf.cl -width ${master_tics_width}c -height ${master_height}c\n\
--scale $masterv.sf.s -orient vertical -from 100 -to 0 \\\n\
--	-length ${master_height}c -width ${master_width}c \\\n\
--	-sliderlength ${master_sliderlength}c	\\\n\
--	-activebackground 	$tkxox(vol_slider_active) \\\n\
--	-troughcolor 		$tkxox(vol_trough_color) \\\n\
--	-background 		$tkxox(vol_slider_passive) \\\n\
--	-highlightbackground 	$tkxox(vol_highlightbackground) \\\n\
--	-showvalue false \\\n\
--	-command volset \\\n\
--	-borderwidth 1p \\\n\
--	-relief groove\n\
--\n\
--\n\
--canvas $masterv.sf.cr -width 2.0c -height ${master_height}c\n\
--$masterv.sf.s set 100\n\
--for {set i 0} {$i <= ${master_n_tics}} {incr i} {\n\
--	if {$i == 0 || 2*$i == ${master_n_tics} || $i == ${master_n_tics} } {\n\
--	    set width_in_point 2;\n\
--	} else {\n\
--	    set width_in_point 1;\n\
--	}\n\
--	set y [expr ${master_incr_height} * ($i + 1)]\n\
--	$masterv.sf.cl create line 0c ${y}c 1.5c ${y}c \\\n\
--		-width ${width_in_point}p\n\
--	$masterv.sf.cr create line 0c ${y}c ${master_tics_width}c ${y}c \\\n\
--		-width ${width_in_point}p\n\
--}\n\
--set x [expr ${master_tics_width} * 1.2 ]\n\
--set y [expr ${master_incr_height} * (0 + 1)]\n\
--$masterv.sf.cr create text ${x}c ${y}c -text MAX -font *-${font12}-* -anchor w\n\
--set y [expr ${master_incr_height} * (${master_n_tics} + 1)]\n\
--$masterv.sf.cr create text ${x}c ${y}c -text MIN -font *-${font12}-* -anchor w\n\
--eval label $masterv.l -text \"VOLUME\" -justify right -font *-${boldfont12}-* ${debug_relief}\n\
--\n\
--pack  $masterv.sf.cl $masterv.sf.s $masterv.sf.cr -side left\n\
--pack $masterv.l -expand true -fill x\n\
--$masterv.sf.cl configure\n\
--\n\
--set bypassval 0\n\
--set bypass $vcunit.bypass\n\
--frame $bypass\n\
--pack $bypass\n\
--label $bypass.l -text \"BYPASS Faders\" -font *-${font12}-*\n\
--button $bypass.b -bitmap nix -width 3.5c -height 0.75c 	\\\n\
--	-background $tkxox(but_grey) -activebackground $tkxox(but_grey_active)	\\\n\
--	-command {vol_bypass [incr bypassval -1]}\n\
--pack $bypass.b\n\
--pack $bypass.l\n\
--set volspacerB $vcunit.spacerB\n\
--canvas $volspacerB -width ${title_width}c -height ${space_height}c\n\
--pack $volspacerB\n\
--\n\
--proc volset {val} {\n\
--	global cunit\n\
--\n\
--	for {set i 0} {$i < 12} {incr i} {\n\
--		lappend vals [$cunit.$i.sf.s get]\n\
--	}\n\
--	eval tk7_set_vols $vals\n\
--\n\
--}\n\
--proc vol_bypass {n} {\n\
--	global bypassval cunit vcunit masterv\n\
--	global font12\n\
--\n\
--	set bypassval [expr abs($n)]	;# Should now be 0 or 1\n\
--	if {$bypassval} {\n\
--		for {set i 0} {$i < 11} {incr i} {\n\
--			$cunit.$i.sf.s configure -state disabled\n\
--			$masterv.sf.s configure -state disabled\n\
--			$vcunit.bypass.l configure -text \"ACTIVATE Faders\" -font *-${font12}-*\n\
--			tk7_set_vols 100 100 100 100 100 100 100 100 100 100 100 100\n\
--		}\n\
--	} else {\n\
--		for {set i 0} {$i < 11} {incr i} {\n\
--			$cunit.$i.sf.s configure -state normal\n\
--			$masterv.sf.s configure -state normal\n\
--			$vcunit.bypass.l configure -text \"BYPASS Faders\" -font *-${font12}-*\n\
--			volset 0\n\
--		}\n\
--	}\n\
--\n\
--}\n\
--# ======================================================\n\
--# small buttons area\n\
--# ======================================================\n\
--\n\
--# ------------------------------------------------------\n\
--# Clear/Scale/Last Step/Instrument Guide\n\
--# ------------------------------------------------------\n\
--eval frame $misc.lt1 $debug_relief\n\
--pack $misc.lt1\n\
--label $misc.lt1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lt1.clear\n\
--button $misc.b1 -bitmap nix -width 0.75c -height 0.75c	\\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $misc.lb1 $debug_relief\n\
--pack $misc.lb1\n\
--label $misc.lb1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lb1.clear\n\
--$misc create window 0.8c 1.4c  -window $misc.lt1 -anchor s\n\
--$misc create window 0.8c 2c    -window $misc.b1  -anchor c\n\
--$misc create window 0.8c 2.65c -window $misc.lb1 -anchor n\n\
--bind $misc.b1 <ButtonRelease-1>               {ac_clear 0}\n\
--bind $misc.b1 <Shift-ButtonRelease-1>         {ac_clear 1}\n\
--bind $misc.b1 <Control-ButtonRelease-1>       {ac_clear 2}\n\
--bind $misc.b1 <Shift-Control-ButtonRelease-1> {ac_clear 3}\n\
--\n\
--eval frame $misc.lt2 $debug_relief;\n\
--pack $misc.lt2\n\
--label $misc.lt2.scale -text SCALE -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lt2.scale\n\
--button $misc.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $misc.lb2 $debug_relief;\n\
--pack $misc.lb2\n\
--label $misc.lb2.back -text BACK -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lb2.back\n\
--$misc create window 2.0c 1.4c  -window $misc.lt2 -anchor s\n\
--$misc create window 2.0c 2c    -window $misc.b2 -anchor c\n\
--$misc create window 2.0c 2.65c -window $misc.lb2 -anchor n\n\
--bind $misc.b2 <1> ac_scaleback\n\
--\n\
--eval frame $misc.lt3 $debug_relief;\n\
--pack $misc.lt3\n\
--label $misc.lt3.last -text LAST -font *-${boldfont12}-* -anchor c\n\
--label $misc.lt3.step -text STEP -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lt3.last $misc.lt3.step\n\
--button $misc.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $misc.lb3 $debug_relief;\n\
--pack $misc.lb3\n\
--label $misc.lb3.fwd -text FWD -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lb3.fwd\n\
--$misc create window 3.2c 1.4c  -window $misc.lt3 -anchor s\n\
--$misc create window 3.2c 2c    -window $misc.b3 -anchor c\n\
--$misc create window 3.2c 2.65c -window $misc.lb3 -anchor n\n\
--bind $misc.b3 <1> ac_lastfwd\n\
--\n\
--eval frame $misc.lt4 $debug_relief;\n\
--pack $misc.lt4\n\
--label $misc.lt4.inst -text INSTR -font *-${boldfont12}-* -anchor c\n\
--label $misc.lt4.guide -text /GUIDE -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lt4.inst $misc.lt4.guide\n\
--button $misc.b4 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $misc.lb4 $debug_relief;\n\
--pack $misc.lb4\n\
--label $misc.lb4.last -text LAST -font *-${boldfont12}-* -anchor c\n\
--label $misc.lb4.meas -text MEAS -font *-${boldfont12}-* -anchor c\n\
--pack $misc.lb4.last $misc.lb4.meas\n\
--$misc create window 4.4c 1.4c  -window $misc.lt4 -anchor s\n\
--$misc create window 4.4c 2c    -window $misc.b4 -anchor c\n\
--$misc create window 4.4c 2.65c -window $misc.lb4 -anchor n\n\
--\n\
--bind $misc.b4 <1>                     {ac_lastmeas 0}\n\
--bind $misc.b4 <ButtonRelease-1>       {ac_lastmeas 1}\n\
--bind $misc.b4 <Shift-1>               {ac_lastmeas 2}\n\
--bind $misc.b4 <Shift-ButtonRelease-1> {ac_lastmeas 3}\n\
--\n\
--# ------------------------------------------------------\n\
--# Shuffle/Flam & Tempo/Measure controls\n\
--# ------------------------------------------------------\n\
--#\n\
--# shuffle/flam\n\
--#\n\
--eval frame $st.lt1 $debug_relief;\n\
--pack $st.lt1\n\
--label $st.lt1.shuff -text SHUFFLE -font *-${boldfont12}-*\n\
--label $st.lt1.flam -text /FLAM -font *-${boldfont12}-*\n\
--pack $st.lt1.shuff $st.lt1.flam\n\
--button $st.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $st.lb1 $debug_relief;\n\
--pack $st.lb1\n\
--label $st.lb1.midi -text \"MIDI CH\" -font *-${boldfont12}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--pack $st.lb1.midi\n\
--$st create window 1c 1.4c  -window $st.lt1 -anchor s\n\
--$st create window 1c 2c    -window $st.b1  -anchor c\n\
--$st create window 1c 2.65c -window $st.lb1 -anchor n\n\
--bind $st.b1 <Button-1> { ac_flam }\n\
--bind $st.b1 <Shift-1>  { ac_midi }\n\
--#\n\
--# tempo/meas area\n\
--#\n\
--eval frame $st.lt2 $debug_relief;\n\
--pack $st.lt2\n\
--label $st.lt2.tempo -text TEMPO -font *-${boldfont12}-*\n\
--label $st.lt2.meas -text /MEAS  -font *-${boldfont12}-*\n\
--pack $st.lt2.tempo $st.lt2.meas\n\
--button $st.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--eval frame $st.lb2 $debug_relief;\n\
--pack $st.lb2\n\
--label $st.lb2.sync -text \"SYNC MODE\" -font *-${boldfont12}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--pack $st.lb2.sync\n\
--$st create window 3c 1.4c  -window $st.lt2 -anchor s\n\
--$st create window 3c 2c    -window $st.b2\n\
--$st create window 3c 2.65c -window $st.lb2 -anchor n\n\
--bind $st.b2 <1> ac_tempomeasure\n\
--# ------------------------------------------------------\n\
--# Track/Pattern Read/Write control\n\
--# ------------------------------------------------------\n\
--label $trpa.lt -text PLAY -font *-${boldfont12}-*\n\
--label $trpa.lttrack -text TRACK -font *-${boldfont12}-*\n\
--label $trpa.ltpattern -text PATTERN -font *-${boldfont12}-*\n\
--label $trpa.lbtrack -text TRACK -font *-${boldfont12}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--label $trpa.lbstep -text \"STEP/TAP\" -font *-${boldfont12}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--button $trpa.btrk -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--button $trpa.bpat -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--label $trpa.lb -text WRITE -font *-${boldfont12}-*\n\
--$trpa create window 1.6c 0.8c  -window $trpa.lt -anchor s\n\
--$trpa create window 0.8c 1.4c  -window $trpa.lttrack -anchor s\n\
--$trpa create window 0.8c 2c    -window $trpa.btrk -anchor c\n\
--$trpa create window 0.8c 2.65c -window $trpa.lbtrack -anchor n\n\
--$trpa create window 2.3c 1.4c  -window $trpa.ltpattern -anchor s\n\
--$trpa create window 2.3c 2c    -window $trpa.bpat -anchor c\n\
--$trpa create window 2.3c 2.65c -window $trpa.lbstep -anchor n\n\
--$trpa create window 1.6c 3.30c -window $trpa.lb -anchor n\n\
--\n\
--bind $trpa.btrk <1>        {ac_trackmode $tkxox(READ)}\n\
--bind $trpa.btrk <Double-1> {ac_trackmode $tkxox(WRITE)}\n\
--bind $trpa.btrk <Shift-1>  {ac_trackmode $tkxox(WRITE)}\n\
--bind $trpa.bpat <1>        { ac_patternmode $tkxox(READ); }\n\
--bind $trpa.bpat <Double-1> { ac_patternmode $tkxox(WRITE); }\n\
--bind $trpa.bpat <Shift-1>  { ac_patternmode $tkxox(WRITE); }\n\
--#---------------------------------------\n\
--# Pattern Group & Track Number selection\n\
--#---------------------------------------\n\
--label $grps.lt -text \"PATTERN GROUP\" -font *-${boldfont12}-*\n\
--label $grps.lb -text \"TRACK NUMBER\"  -font *-${boldfont12}-*\n\
--$grps create window 2.5c 0.8c  -window $grps.lt -anchor s\n\
--$grps create window 2.5c 3.30c -window $grps.lb -anchor n\n\
--eval frame $grps.lt0 $debug_relief;\n\
--pack $grps.lt0\n\
--label $grps.lt0.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $grps.lt0.labl -text A -font *-${boldfont12}-*\n\
--pack $grps.lt0.lamp $grps.lt0.labl -side left\n\
--button $grps.b0 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--label $grps.lb0 -text I -font *-${boldfont13}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--$grps create window 0.8c 1.4c -window $grps.lt0 -anchor s\n\
--$grps create window 0.8c 2c -window $grps.b0 -anchor c\n\
--$grps create window 0.8c 2.65c -window $grps.lb0 -anchor n\n\
--\n\
--eval frame $grps.lt1 $debug_relief;\n\
--pack $grps.lt1\n\
--label $grps.lt1.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $grps.lt1.labl -text B -font *-${boldfont12}-*\n\
--pack $grps.lt1.lamp $grps.lt1.labl -side left\n\
--button $grps.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--label $grps.lb1 -text II -font *-${boldfont13}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--\n\
--\n\
--\n\
--$grps create window 2c 1.4c -window $grps.lt1 -anchor s\n\
--$grps create window 2c 2c -window $grps.b1 -anchor c\n\
--$grps create window 2c 2.65c -window $grps.lb1 -anchor n\n\
--\n\
--eval frame $grps.lt2 $debug_relief;\n\
--pack $grps.lt2\n\
--label $grps.lt2.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $grps.lt2.labl -text C -font *-${boldfont12}-*\n\
--pack $grps.lt2.lamp $grps.lt2.labl -side left\n\
--button $grps.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--label $grps.lb2 -text III -font *-${boldfont13}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--$grps create window 3.2c 1.4c -window $grps.lt2 -anchor s\n\
--$grps create window 3.2c 2c -window $grps.b2 -anchor c\n\
--$grps create window 3.2c 2.65c -window $grps.lb2 -anchor n\n\
--\n\
--eval frame $grps.lt3 $debug_relief;\n\
--pack $grps.lt3\n\
--label $grps.lt3.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $grps.lt3.labl -text D -font *-${boldfont12}-*\n\
--pack $grps.lt3.lamp $grps.lt3.labl -side left\n\
--button $grps.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n\
--    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--label $grps.lb3 -text IV -font *-${boldfont13}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--$grps create window 4.4c 1.4c -window $grps.lt3 -anchor s\n\
--$grps create window 4.4c 2c -window $grps.b3 -anchor c\n\
--$grps create window 4.4c 2.65c -window $grps.lb3 -anchor n\n\
--\n\
--bind $grps.b0 <1> {ac_group 0}\n\
--bind $grps.b1 <1> {ac_group 1}\n\
--bind $grps.b2 <1> {ac_group 2}\n\
--bind $grps.b3 <1> {ac_group 3}\n\
--bind $grps.b0 <Shift-1> {ac_track 0}\n\
--bind $grps.b1 <Shift-1> {ac_track 1}\n\
--bind $grps.b2 <Shift-1> {ac_track 2}\n\
--bind $grps.b3 <Shift-1> {ac_track 3}\n\
--# -------------------------------\n\
--# Create the note buttons & lamps\n\
--# -------------------------------\n\
--# add half a button width at left and right of the score alignement\n\
--set border_width_in_point 2;\n\
--set correction            0.20\n\
--set button_width [expr $score_width/17.0 - 2*$border_width_in_point/$point_per_cm - $correction];\n\
--\n\
--set shift_buttons $notes.shift\n\
--canvas $shift_buttons -width [expr 0.95*${button_width}]c -height 2.6c;\n\
--pack   $shift_buttons -side left;\n\
--\n\
--for {set i 0} {$i<16} {incr i} {\n\
--	frame $notes.note$i\n\
--	pack $notes.note$i -side left\n\
--	label $notes.note$i.l -height 1 -text [expr $i + 1]	\\\n\
--		-relief groove -borderwidth ${border_width_in_point}p -font *-${font12}-*\n\
--	button $notes.note$i.b -bitmap nix -width ${button_width}c -height 2.6c	\\\n\
--		-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--	label $notes.note$i.instr -width 1 \\\n\
--		-font *-${font12}-* -text $sound([expr $i + 1],shortname);\n\
--	pack $notes.note$i.l $notes.note$i.b $notes.note$i.instr \\\n\
--		-expand true -fill x\n\
--	bind $notes.note$i.b <ButtonPress-1>           {ac_note     %W 0}\n\
--	bind $notes.note$i.b <ButtonRelease-1>         {ac_note_off %W}\n\
--	bind $notes.note$i.b <Control-ButtonPress-1>   {ac_note     %W $tkxox(flam)}\n\
--	bind $notes.note$i.b <Control-ButtonRelease-1> {ac_note_off %W}\n\
--	bind $notes.note$i.b <Button-3>                {ac_note     %W $tkxox(zero_velocity)}\n\
--	bind $notes.note$i.b <Shift-1>                 {ac_newinstr %W}\n\
--}\n\
--#\n\
--# Empty Space : adjust vectical alignment with score\n\
--# 	- at the right of the score\n\
--# 	- at the right of the instrument buttons\n\
--#\n\
--set empty_right $note_score.right\n\
--set empty_case $notes.right\n\
--canvas $empty_right -width ${right_space_width}c -height ${score_height_in_inch}i;\n\
--canvas $empty_case  -width ${right_space_width}c -height 2.6c;\n\
--pack   $empty_right -side left;\n\
--pack   $empty_case -side right;\n\
--\n\
--pattern_setid 0	;	# Initialise pattern number\n\
--ac_group $mode(patgroup)\n\
--ac_newinstr $notes.note0.b	;	# Initialise current instrument\n\
--\n\
--# Bindings to activate note buttons from keyboard\n\
--# 1->10 = buttons 1->10, \"q\"->\"y\" = 11->16\n\
--#\n\
--set k 0\n\
--bind . <KeyPress-1> {ac_note $notes.note0.b 0}\n\
--bind . <KeyPress-2> {ac_note $notes.note1.b 0}\n\
--bind . <KeyPress-3> {ac_note $notes.note2.b 0}\n\
--bind . <KeyPress-4> {ac_note $notes.note3.b 0}\n\
--bind . <KeyPress-5> {ac_note $notes.note4.b 0}\n\
--bind . <KeyPress-6> {ac_note $notes.note5.b 0}\n\
--bind . <KeyPress-7> {ac_note $notes.note6.b 0}\n\
--bind . <KeyPress-8> {ac_note $notes.note7.b 0}\n\
--bind . <KeyPress-9> {ac_note $notes.note8.b 0}\n\
--bind . <KeyPress-0> {ac_note $notes.note9.b 0}\n\
--bind . <KeyPress-q> {ac_note $notes.note10.b 0}\n\
--bind . <KeyPress-w> {ac_note $notes.note11.b 0}\n\
--bind . <KeyPress-e> {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n\
--bind . <KeyPress-r> {ac_note $notes.note13.b 0}\n\
--bind . <KeyPress-t> {ac_note $notes.note14.b 0}\n\
--bind . <KeyPress-y> {ac_note $notes.note15.b 0}\n\
--\n\
--# Bindings for pattern Copy/Paste\n\
--#\n\
--bind . <Control-c> {\n\
--	tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n\
--}\n\
--bind . <Control-b> {\n\
--	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n\
--		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 1\n\
--		pattern_setid $mode(current_pattern)\n\
--	}\n\
--}\n\
--bind . <Control-v> {\n\
--	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n\
--		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 0\n\
--		pattern_setid $mode(current_pattern)\n\
--	}\n\
--}\n\
--#\n\
--# Bindings for pattern editing from display grid\n\
--#\n\
--proc grid_note {x y prop} {\n\
--	global notes\n\
--	upvar #0 tkxox xox\n\
--	upvar #0 mode mo\n\
--	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n\
--	    return\n\
--	}\n\
--	if {![have_zero_velocity $prop]} {\n\
--	  switch $mo(current_accent) {\n\
--	    2       {set prop [add_strong_accent    $prop] }\n\
--	    1 	    {set prop [add_weak_accent      $prop] }\n\
--	    default {set prop [add_default_velocity $prop] }\n\
--	  }\n\
--	}\n\
--	# Convert x,y position to a grid intersection point\n\
--	# and imply step,instrument combination from it.\n\
--	if {[locate_gridpos $x $y SIvals] < 0 } {\n\
--	    return\n\
--	}\n\
--	#puts \" -> Instrument $SIvals(inst) at step $SIvals(step) with prop $prop\"\n\
--	ac_newinstr $notes.note$SIvals(inst).b\n\
--	step_insert $SIvals(step) $prop\n\
--}\n\
--bind $grid <Button-1> {\n\
--	#puts \"Button-1: %x,%y\"\n\
--}\n\
--bind $grid <Double-Button-1> {\n\
--	#puts \"Double-Button-1: %x,%y\"\n\
--	grid_note %x %y 0\n\
--}\n\
--bind $grid <Control-Double-Button-1> {\n\
--	#puts \"Control-Double-Button-1: %x,%y\"\n\
--        upvar #0 tkxox xox\n\
--	grid_note %x %y $xox(flam)\n\
--}\n\
--bind $grid <Double-Button-3> {\n\
--	#puts \"Shift-Double-Button-1: %x,%y\"\n\
--        upvar #0 tkxox xox\n\
--	grid_note %x %y $xox(zero_velocity)\n\
--}\n\
--# ------------------------------------------------------\n\
--# Create Accent/Enter button set\n\
--# ------------------------------------------------------\n\
--label $accenter.lt -height 1 -text ENTER -font *-${boldfont12}-*\n\
--frame $accenter.cart\n\
--label $accenter.cart.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
--	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
--label $accenter.cart.labl -text CARTRIDGE -font *-${boldfont12}-* \\\n\
--	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
--pack $accenter.cart.lamp $accenter.cart.labl -side left\n\
--button $accenter.b -bitmap nix -width 1.45c -height 2.1c	\\\n\
--	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
--set accent_label $accenter.lb\n\
--label $accent_label -height 1 -text ACCENT -font *-${boldfont12}-*\n\
--$accenter create window 1.43c 0.35c -window $accenter.lt\n\
--$accenter create window 1.43c 0.8c -window $accenter.cart\n\
--$accenter create window 1.43c 2.3c -window $accenter.b\n\
--$accenter create window 1.43c 3.8c -window $accent_label -tags accent\n\
--bind $accenter.b <1> {ac_accenter 0}		;# Add pattern into track\n\
--bind $accenter.b <Shift-1> {ac_accenter 1}	;# Insert pattern into track\n\
--bind $accenter.b <Control-1> {ac_cartridge}\n\
--# ------------------------------------------------------\n\
--# Create the Tempo Dial\n\
--# ------------------------------------------------------\n\
--set dial_canvas $dial.c\n\
--set dial_value  $dial.v\n\
--\n\
--label $dial_value -text \"TEMPO $mode(tempo)\" -anchor n -font *-${boldr14}-* ;\n\
--pack $dial_value -expand true -fill x\n\
--canvas $dial_canvas -width 4c -height 3.2c ;#-relief groove -borderwidth 2\n\
--pack $dial_canvas -side left\n\
--set dial_radius 1.; # in centimeter\n\
--$dial_canvas create oval 1c 0.2c 3c 2.2c -width 2p -tags dial	\\\n\
--	-fill $tkxox(but_grey)\n\
--$dial_canvas create line 0c 0c 0c 0c -tags indicator\n\
--$dial_canvas create text 0.4c 2.9c -text SLOW -anchor w	\\\n\
--	-font *-${helvetica_bold_r_12}-*\n\
--$dial_canvas create text 3.7c 2.9c -text FAST -anchor e	\\\n\
--	-font *-${helvetica_bold_r_12}-*\n\
--$dial_canvas bind dial <Button-1> {\n\
--	upvar #0 mode mo\n\
--\n\
--	# Angular-oriented dial:\n\
--	# Note: It would be better to get the center of the\n\
--	# dial as origin, instead of the picked point into the dial\n\
--	set orig_x %x\n\
--	set orig_y %x\n\
--	set orig_tempo $mo(tempo)\n\
--}\n\
--$dial_canvas bind dial <B1-Motion> {\n\
--	dial_adjust [expr %x - $orig_x] [expr %y - $orig_y] $orig_tempo\n\
--}\n\
--# the tempo range is 30-330 on my tk727 (saramito@imag.fr)\n\
--# I don't known for the tk707\n\
--set tempo_min  30; # points to SLOW\n\
--set tempo_max 265; # points to FAST\n\
--set tempo_ini 120; # at initialization\n\
--\n\
--proc dial_adjust {x y orig_tempo} {\n\
--	global dial_value\n\
--	global dial_canvas\n\
--	global dial_radius\n\
--	global tempo_min; # the arrow points to SLOW\n\
--	global tempo_max; # the arrow points to FAST\n\
--	upvar #0 mode mo\n\
--\n\
--	set pi          3.14159265358979323846;\n\
--	set pi_o4       [expr 0.25*$pi];\n\
--	set pi_3o4      [expr 3*$pi_o4];\n\
--\n\
--	# vertical indicator -> medium tempo\n\
--	set delta_tempo  [expr 0.5*($tempo_max - $tempo_min)];\n\
--	set tempo_med    [expr 0.5*($tempo_max + $tempo_min)];\n\
--\n\
--	if {($x == 0) && ($y == 0)} {\n\
--\n\
--	    # special case: when x = y = 0\n\
--	    # i.e. when mouse comes back to origin where we pick the dial\n\
--	    #  or also at the initialization call procedure\n\
--	    # => angle is not computable with (x,y)	\n\
--	    # but by using $orig_tempo :\n\
--	    set tempo_val $orig_tempo\n\
--	    if {$tempo_val > $tempo_med} {\n\
--		# alpha is in the range ( pi/4, pi (\n\
--		# ksi                   (  0 ,  1  (\n\
--	        set ksi    [expr  ($tempo_max-$tempo_val)/$delta_tempo]\n\
--	        set alpha  [expr  $pi/4 + $ksi*(3*$pi/4)]\n\
--	    } else {\n\
--		# alpha is in the range ) -pi, -pi/4 )\n\
--		# ksi                   )  0 ,  1    )\n\
--	        set ksi    [expr  ($tempo_val-$tempo_min)/$delta_tempo]\n\
--	        set alpha  [expr  - $pi/4 - $ksi*(3*$pi/4)]\n\
--	    }\n\
--	} else {\n\
--	    #  the general case\n\
--	    set alpha [expr atan2($x,$y)];\n\
--            if {$alpha > 0} {\n\
--\n\
--	        # the mouse is on the right side of the origin -> fast\n\
--	        if {$alpha < $pi_o4} {\n\
--		    # set to the minimal value\n\
--		    set tempo_val $tempo_max\n\
--		    set alpha $pi_o4\n\
--	        } else {\n\
--	  	    # alpha is in the range ( pi/4, pi (\n\
--		    # zeta                  ( 0     1  (\n\
--	            set zeta  [expr ($alpha-$pi_o4)/$pi_3o4]\n\
--		    set tempo_val [expr $tempo_max - $zeta*$delta_tempo]\n\
--	        }\n\
--	    } else {\n\
--	        # alpha < 0\n\
--\n\
--	        # mouse is on the right side of the origin -> fast\n\
--	        if {$alpha > [expr -$pi_o4]} {\n\
--		    # set tempo the minimal value\n\
--		    set tempo_val $tempo_min\n\
--		    set alpha -$pi_o4\n\
--	        } else {\n\
--	  	    # alpha is in the range ) -pi, -pi/4 )\n\
--		    # zeta                  ) 0     1    )\n\
--		    set zeta  [expr ($alpha+$pi)/$pi_3o4]\n\
--		    set tempo_val [expr $tempo_med - $zeta*$delta_tempo ]\n\
--	        }\n\
--	    }\n\
--	}\n\
--        # make an integer\n\
--	set tempo_val [expr int($tempo_val)]\n\
--\n\
--	# then we apply this :\n\
--	set mo(tempo) $tempo_val\n\
--	tk7_set_tempo $tempo_val\n\
--	${dial_value} configure -text \"TEMPO $tempo_val\"\n\
--\n\
--	# update the dial indicator\n\
--	set sin_alpha [expr sin($alpha)]\n\
--	set cos_alpha [expr cos($alpha)]\n\
--	set x_indic [expr 2.0 + $dial_radius * $sin_alpha]\n\
--	set y_indic [expr 1.2 + $dial_radius * $cos_alpha]\n\
--	${dial_canvas} coords indicator ${x_indic}c ${y_indic}c 2c 1.2c\n\
--}\n\
--# Angular-oriented dial: set initial tempo and vertical direction\n\
--dial_adjust 0 0 $tempo_ini\n\
--\n\
--midichan_set [expr $midi_channel + 1]\n\
--ac_patternmode $tkxox(READ)\n\
--ac_trackmode $tkxox(READ)\n\
--ac_track 0\n\
--# ======================================================\n\
--# Action!\n\
--# ======================================================\n\
--wm deiconify .;\n\
--# after 10 play_loop;\n\
--play_loop;\n\
--\n\
--\n\
--";
-+char tcl_tk707[] = ""
-+"#	File tk707.tcl\n"
-+"#	Remainder of gui, including key & mouse bindings. Then RUN!\n"
-+"\n"
-+"#	Pattern memory is now in C-land but track memory still in tcl/tk.\n"
-+"#\n"
-+"mem_init\n"
-+"\n"
-+"# ======================================================\n"
-+"# lamps into the score\n"
-+"# ======================================================\n"
-+"set score_width  [expr $score_width_in_inch  * $cm_per_inch]\n"
-+"set score_height [expr $score_height_in_inch * $cm_per_inch]\n"
-+"set lamp_width  0.40;\n"
-+"set lamp_height 0.15;\n"
-+"set scale_lamps $score\n"
-+"\n"
-+"set scale_lamp3 $score.l3\n"
-+"set scale_lamp2 $score.l2\n"
-+"set scale_lamp1 $score.l1\n"
-+"set scale_lamp0 $score.l0\n"
-+"label $scale_lamp3 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $scale_lamp2 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $scale_lamp1 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $scale_lamp0 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_on)\n"
-+"pack  $scale_lamp3 -side bottom\n"
-+"pack  $scale_lamp2 -side bottom\n"
-+"pack  $scale_lamp1 -side bottom\n"
-+"pack  $scale_lamp0 -side bottom\n"
-+"set x  0.75\n"
-+"set dy [expr $score_height / 4.0 - 0.04]\n"
-+"set y3 [expr $dy/2 - 0.01];\n"
-+"set y2 [expr $y3 + $dy]\n"
-+"set y1 [expr $y2 + $dy]\n"
-+"set y0 [expr $y1 + $dy]\n"
-+"\n"
-+"$scale_lamps create window ${x}c ${y3}c -window $scale_lamp3;\n"
-+"$scale_lamps create window ${x}c ${y2}c -window $scale_lamp2;\n"
-+"$scale_lamps create window ${x}c ${y1}c -window $scale_lamp1;\n"
-+"$scale_lamps create window ${x}c ${y0}c -window $scale_lamp0;\n"
-+"\n"
-+"focus ${scale_lamp0}\n"
-+"# ======================================================\n"
-+"# Grid Display Area\n"
-+"# ======================================================\n"
-+"# Vertical lines\n"
-+"set xcoord 0.0\n"
-+"for {set i 0} {$i < 16} {incr i} {\n"
-+"	set xcoord [expr $xcoord + 0.5]\n"
-+"	$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n"
-+"	set pvalX [tk7_cm2pix $grid ${xcoord}c]\n"
-+"	lappend gridXs $pvalX\n"
-+"	set gridSvals($pvalX) $i\n"
-+"}\n"
-+"# Horizontal lines\n"
-+"set ycoord 0.5\n"
-+"for {set i 0} {$i < 16} {incr i} {\n"
-+"	set ycoord [expr $ycoord + 0.5]\n"
-+"	$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n"
-+"	set pvalY [tk7_cm2pix $grid ${ycoord}c]\n"
-+"	lappend gridYs $pvalY\n"
-+"	set gridIvals($pvalY) [expr 15 - $i]\n"
-+"}\n"
-+"# -----------------------\n"
-+"# Step markers\n"
-+"# -----------------------\n"
-+"set xcoord 0.0\n"
-+"for {set i 0} {$i < 16} {incr i} {\n"
-+"	set xcoord [expr $xcoord + 0.5]\n"
-+"	$grid create text ${xcoord}c 0.28125c -text [expr $i + 1] -font *-${font12}-*\n"
-+"}\n"
-+"# -----------------------\n"
-+"# Instrument labels\n"
-+"# -----------------------\n"
-+"$gridlabel create text 2.85c 0.28125c -text Step -font *-${font12}-* -anchor e\n"
-+"set xcoord 0.5\n"
-+"set ycoord 0.5625\n"
-+"for {set i 0} {$i < 16} {incr i} {\n"
-+"	set ycoord [expr $ycoord + 0.5]\n"
-+"	$gridlabel create text 2.85c ${ycoord}c -tags ilabel$i	\\\n"
-+"		-text $sound([expr 16 - $i],name) -font *-${font12}-* -anchor e\n"
-+"}\n"
-+"$tempoinfo create text 1c 0.5c -text TEMPO -font *-${font12}-* -tags tmtitle\n"
-+"$tempoinfo create text 3.6c 1.5c -text \"$mode(tempo)\" -tags tempo	\\\n"
-+"	-font -${courrier_boldfont_i_50}-* -anchor e\n"
-+"#trace variable mode(tempo) w tempoinfo_update\n"
-+"$tminfo.t create text 0.2c 0.45c -text TRACK -anchor w -font *-${normal_r_14}-*\n"
-+"$tminfo.t create text 3c 0.45c -text \"\" -tags trackid -font *-${normal_r_14}-*\n"
-+"trace variable mode(current_track) w trackinfo_update\n"
-+"$tminfo.m create text 0.2c 0.4c -text STATUS -anchor w -font *-${font12}-*\n"
-+"# ===================================================================================\n"
-+"# Volume controls\n"
-+"# ===================================================================================\n"
-+"set vol_tics_width 0.25\n"
-+"\n"
-+"set title_width  [expr ${title_width_in_inch}  * ${cm_per_inch}];\n"
-+"set title_height [expr ${title_height_in_inch} * ${cm_per_inch}];\n"
-+"set space_height [expr ${title_height}/4.];\n"
-+"set volspacer $vcunit.spacer\n"
-+"canvas $volspacer -width ${title_width}c -height ${space_height}c\n"
-+"pack $volspacer\n"
-+"\n"
-+"set cunit $vcunit.u\n"
-+"frame $cunit;\n"
-+"pack $cunit\n"
-+"for {set i 0} {$i<11} {incr i} {\n"
-+"	frame $cunit.$i ;# -relief groove -borderwidth 2\n"
-+"	frame $cunit.$i.sf\n"
-+"	if {$i == 0} {\n"
-+"		canvas $cunit.$i.sf.cl -width 1.2c -height 4c\n"
-+"		$cunit.$i.sf.cl create text 1.2c 0.4c -text MAX -font *-${font12}-* -anchor e\n"
-+"		$cunit.$i.sf.cl create text 1.2c 3.6c -text MIN -font *-${font12}-* -anchor e\n"
-+"		pack $cunit.$i.sf.cl -side left\n"
-+"		set vol_space_width [expr 4*${vol_tics_width}];\n"
-+"	} else {\n"
-+"		set vol_space_width ${vol_tics_width};\n"
-+"	}\n"
-+"	canvas $cunit.$i.sf.c -width 0.25c -height 4c\n"
-+"	for {set j 1} {$j < 10} {incr j} {\n"
-+"		set y [expr 0.4 * $j]\n"
-+"		$cunit.$i.sf.c create line 0c ${y}c ${vol_tics_width}c ${y}c\n"
-+"	}\n"
-+"	$cunit.$i.sf.c create line 0c 0.4c 0.25c 0.4c -width 2\n"
-+"	$cunit.$i.sf.c create line 0c 2.0c 0.25c 2.0c -width 2\n"
-+"	$cunit.$i.sf.c create line 0c 3.6c 0.25c 3.6c -width 2\n"
-+"	scale $cunit.$i.sf.s -orient vertical -from 100 -to 0 -length 4c	\\\n"
-+"		-width 0.4c -sliderlength 0.8c \\\n"
-+"		-activebackground 	$tkxox(vol_slider_active) \\\n"
-+"		-troughcolor 		$tkxox(vol_trough_color) \\\n"
-+"		-background 		$tkxox(vol_slider_passive) \\\n"
-+"		-highlightbackground 	$tkxox(vol_highlightbackground) \\\n"
-+"		-showvalue false -borderwidth 1p \\\n"
-+"		-command volset -relief groove\n"
-+"\n"
-+"	eval canvas $cunit.$i.sf.spacer -width ${vol_space_width}c -height 4c ${debug_relief};\n"
-+"	pack $cunit.$i.sf.spacer -side right\n"
-+"\n"
-+"	pack $cunit.$i -side left\n"
-+"	pack $cunit.$i.sf\n"
-+"	pack $cunit.$i.sf.c -side left\n"
-+"	pack $cunit.$i.sf.s -side left\n"
-+"	frame $cunit.$i.lab\n"
-+"\n"
-+"	eval label $cunit.$i.l -height 1 -font *-${font8}-*	\\\n"
-+"		-text $volume_label($i) -justify left ${debug_relief}\n"
-+"	pack $cunit.$i.l -expand true -fill x\n"
-+"\n"
-+"	# Initialise fader setting\n"
-+"	if {$i == 0} {\n"
-+"	    $cunit.$i.sf.s set 100\n"
-+"	} else {\n"
-+"	    $cunit.$i.sf.s set 66\n"
-+"	}\n"
-+"}\n"
-+"set masterv $cunit.11\n"
-+"frame $masterv\n"
-+"frame  $masterv.sf\n"
-+"pack $masterv -side left\n"
-+"pack  $masterv.sf\n"
-+"\n"
-+"set master_width        0.5;\n"
-+"set master_height       5.0;\n"
-+"set master_n_tics       10;\n"
-+"set master_tics_width   0.7;\n"
-+"set master_sliderlength [expr 2.*${master_height}/${master_n_tics}]\n"
-+"set master_incr_height  [expr ${master_height}/(${master_n_tics}+2)];\n"
-+"set vol_space_width     [expr 3*${vol_tics_width}];\n"
-+"eval canvas $masterv.sf.spacer -width ${vol_space_width}c -height ${master_height}c \\\n"
-+"	${debug_relief}\n"
-+"pack $masterv.sf.spacer -side left\n"
-+"\n"
-+"set master_hi_color #ffff00000000; # red\n"
-+"set master_hibg_color #f332ffff0000; # yellow\n"
-+"set master_acbg_color #000044cffb22; # blue\n"
-+"set master_fg_color #000044440000; # green\n"
-+"	#-background 		$tkxox(but_grey)          \\\n"
-+"\n"
-+"canvas $masterv.sf.cl -width ${master_tics_width}c -height ${master_height}c\n"
-+"scale $masterv.sf.s -orient vertical -from 100 -to 0 \\\n"
-+"	-length ${master_height}c -width ${master_width}c \\\n"
-+"	-sliderlength ${master_sliderlength}c	\\\n"
-+"	-activebackground 	$tkxox(vol_slider_active) \\\n"
-+"	-troughcolor 		$tkxox(vol_trough_color) \\\n"
-+"	-background 		$tkxox(vol_slider_passive) \\\n"
-+"	-highlightbackground 	$tkxox(vol_highlightbackground) \\\n"
-+"	-showvalue false \\\n"
-+"	-command volset \\\n"
-+"	-borderwidth 1p \\\n"
-+"	-relief groove\n"
-+"\n"
-+"\n"
-+"canvas $masterv.sf.cr -width 2.0c -height ${master_height}c\n"
-+"$masterv.sf.s set 100\n"
-+"for {set i 0} {$i <= ${master_n_tics}} {incr i} {\n"
-+"	if {$i == 0 || 2*$i == ${master_n_tics} || $i == ${master_n_tics} } {\n"
-+"	    set width_in_point 2;\n"
-+"	} else {\n"
-+"	    set width_in_point 1;\n"
-+"	}\n"
-+"	set y [expr ${master_incr_height} * ($i + 1)]\n"
-+"	$masterv.sf.cl create line 0c ${y}c 1.5c ${y}c \\\n"
-+"		-width ${width_in_point}p\n"
-+"	$masterv.sf.cr create line 0c ${y}c ${master_tics_width}c ${y}c \\\n"
-+"		-width ${width_in_point}p\n"
-+"}\n"
-+"set x [expr ${master_tics_width} * 1.2 ]\n"
-+"set y [expr ${master_incr_height} * (0 + 1)]\n"
-+"$masterv.sf.cr create text ${x}c ${y}c -text MAX -font *-${font12}-* -anchor w\n"
-+"set y [expr ${master_incr_height} * (${master_n_tics} + 1)]\n"
-+"$masterv.sf.cr create text ${x}c ${y}c -text MIN -font *-${font12}-* -anchor w\n"
-+"eval label $masterv.l -text \"VOLUME\" -justify right -font *-${boldfont12}-* ${debug_relief}\n"
-+"\n"
-+"pack  $masterv.sf.cl $masterv.sf.s $masterv.sf.cr -side left\n"
-+"pack $masterv.l -expand true -fill x\n"
-+"$masterv.sf.cl configure\n"
-+"\n"
-+"set bypassval 0\n"
-+"set bypass $vcunit.bypass\n"
-+"frame $bypass\n"
-+"pack $bypass\n"
-+"label $bypass.l -text \"BYPASS Faders\" -font *-${font12}-*\n"
-+"button $bypass.b -bitmap nix -width 3.5c -height 0.75c 	\\\n"
-+"	-background $tkxox(but_grey) -activebackground $tkxox(but_grey_active)	\\\n"
-+"	-command {vol_bypass [incr bypassval -1]}\n"
-+"pack $bypass.b\n"
-+"pack $bypass.l\n"
-+"set volspacerB $vcunit.spacerB\n"
-+"canvas $volspacerB -width ${title_width}c -height ${space_height}c\n"
-+"pack $volspacerB\n"
-+"\n"
-+"proc volset {val} {\n"
-+"	global cunit\n"
-+"\n"
-+"	for {set i 0} {$i < 12} {incr i} {\n"
-+"		lappend vals [$cunit.$i.sf.s get]\n"
-+"	}\n"
-+"	eval tk7_set_vols $vals\n"
-+"\n"
-+"}\n"
-+"proc vol_bypass {n} {\n"
-+"	global bypassval cunit vcunit masterv\n"
-+"	global font12\n"
-+"\n"
-+"	set bypassval [expr abs($n)]	;# Should now be 0 or 1\n"
-+"	if {$bypassval} {\n"
-+"		for {set i 0} {$i < 11} {incr i} {\n"
-+"			$cunit.$i.sf.s configure -state disabled\n"
-+"			$masterv.sf.s configure -state disabled\n"
-+"			$vcunit.bypass.l configure -text \"ACTIVATE Faders\" -font *-${font12}-*\n"
-+"			tk7_set_vols 100 100 100 100 100 100 100 100 100 100 100 100\n"
-+"		}\n"
-+"	} else {\n"
-+"		for {set i 0} {$i < 11} {incr i} {\n"
-+"			$cunit.$i.sf.s configure -state normal\n"
-+"			$masterv.sf.s configure -state normal\n"
-+"			$vcunit.bypass.l configure -text \"BYPASS Faders\" -font *-${font12}-*\n"
-+"			volset 0\n"
-+"		}\n"
-+"	}\n"
-+"\n"
-+"}\n"
-+"# ======================================================\n"
-+"# small buttons area\n"
-+"# ======================================================\n"
-+"\n"
-+"# ------------------------------------------------------\n"
-+"# Clear/Scale/Last Step/Instrument Guide\n"
-+"# ------------------------------------------------------\n"
-+"eval frame $misc.lt1 $debug_relief\n"
-+"pack $misc.lt1\n"
-+"label $misc.lt1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lt1.clear\n"
-+"button $misc.b1 -bitmap nix -width 0.75c -height 0.75c	\\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $misc.lb1 $debug_relief\n"
-+"pack $misc.lb1\n"
-+"label $misc.lb1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lb1.clear\n"
-+"$misc create window 0.8c 1.4c  -window $misc.lt1 -anchor s\n"
-+"$misc create window 0.8c 2c    -window $misc.b1  -anchor c\n"
-+"$misc create window 0.8c 2.65c -window $misc.lb1 -anchor n\n"
-+"bind $misc.b1 <ButtonRelease-1>               {ac_clear 0}\n"
-+"bind $misc.b1 <Shift-ButtonRelease-1>         {ac_clear 1}\n"
-+"bind $misc.b1 <Control-ButtonRelease-1>       {ac_clear 2}\n"
-+"bind $misc.b1 <Shift-Control-ButtonRelease-1> {ac_clear 3}\n"
-+"\n"
-+"eval frame $misc.lt2 $debug_relief;\n"
-+"pack $misc.lt2\n"
-+"label $misc.lt2.scale -text SCALE -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lt2.scale\n"
-+"button $misc.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $misc.lb2 $debug_relief;\n"
-+"pack $misc.lb2\n"
-+"label $misc.lb2.back -text BACK -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lb2.back\n"
-+"$misc create window 2.0c 1.4c  -window $misc.lt2 -anchor s\n"
-+"$misc create window 2.0c 2c    -window $misc.b2 -anchor c\n"
-+"$misc create window 2.0c 2.65c -window $misc.lb2 -anchor n\n"
-+"bind $misc.b2 <1> ac_scaleback\n"
-+"\n"
-+"eval frame $misc.lt3 $debug_relief;\n"
-+"pack $misc.lt3\n"
-+"label $misc.lt3.last -text LAST -font *-${boldfont12}-* -anchor c\n"
-+"label $misc.lt3.step -text STEP -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lt3.last $misc.lt3.step\n"
-+"button $misc.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $misc.lb3 $debug_relief;\n"
-+"pack $misc.lb3\n"
-+"label $misc.lb3.fwd -text FWD -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lb3.fwd\n"
-+"$misc create window 3.2c 1.4c  -window $misc.lt3 -anchor s\n"
-+"$misc create window 3.2c 2c    -window $misc.b3 -anchor c\n"
-+"$misc create window 3.2c 2.65c -window $misc.lb3 -anchor n\n"
-+"bind $misc.b3 <1> ac_lastfwd\n"
-+"\n"
-+"eval frame $misc.lt4 $debug_relief;\n"
-+"pack $misc.lt4\n"
-+"label $misc.lt4.inst -text INSTR -font *-${boldfont12}-* -anchor c\n"
-+"label $misc.lt4.guide -text /GUIDE -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lt4.inst $misc.lt4.guide\n"
-+"button $misc.b4 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $misc.lb4 $debug_relief;\n"
-+"pack $misc.lb4\n"
-+"label $misc.lb4.last -text LAST -font *-${boldfont12}-* -anchor c\n"
-+"label $misc.lb4.meas -text MEAS -font *-${boldfont12}-* -anchor c\n"
-+"pack $misc.lb4.last $misc.lb4.meas\n"
-+"$misc create window 4.4c 1.4c  -window $misc.lt4 -anchor s\n"
-+"$misc create window 4.4c 2c    -window $misc.b4 -anchor c\n"
-+"$misc create window 4.4c 2.65c -window $misc.lb4 -anchor n\n"
-+"\n"
-+"bind $misc.b4 <1>                     {ac_lastmeas 0}\n"
-+"bind $misc.b4 <ButtonRelease-1>       {ac_lastmeas 1}\n"
-+"bind $misc.b4 <Shift-1>               {ac_lastmeas 2}\n"
-+"bind $misc.b4 <Shift-ButtonRelease-1> {ac_lastmeas 3}\n"
-+"\n"
-+"# ------------------------------------------------------\n"
-+"# Shuffle/Flam & Tempo/Measure controls\n"
-+"# ------------------------------------------------------\n"
-+"#\n"
-+"# shuffle/flam\n"
-+"#\n"
-+"eval frame $st.lt1 $debug_relief;\n"
-+"pack $st.lt1\n"
-+"label $st.lt1.shuff -text SHUFFLE -font *-${boldfont12}-*\n"
-+"label $st.lt1.flam -text /FLAM -font *-${boldfont12}-*\n"
-+"pack $st.lt1.shuff $st.lt1.flam\n"
-+"button $st.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $st.lb1 $debug_relief;\n"
-+"pack $st.lb1\n"
-+"label $st.lb1.midi -text \"MIDI CH\" -font *-${boldfont12}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"pack $st.lb1.midi\n"
-+"$st create window 1c 1.4c  -window $st.lt1 -anchor s\n"
-+"$st create window 1c 2c    -window $st.b1  -anchor c\n"
-+"$st create window 1c 2.65c -window $st.lb1 -anchor n\n"
-+"bind $st.b1 <Button-1> { ac_flam }\n"
-+"bind $st.b1 <Shift-1>  { ac_midi }\n"
-+"#\n"
-+"# tempo/meas area\n"
-+"#\n"
-+"eval frame $st.lt2 $debug_relief;\n"
-+"pack $st.lt2\n"
-+"label $st.lt2.tempo -text TEMPO -font *-${boldfont12}-*\n"
-+"label $st.lt2.meas -text /MEAS  -font *-${boldfont12}-*\n"
-+"pack $st.lt2.tempo $st.lt2.meas\n"
-+"button $st.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"eval frame $st.lb2 $debug_relief;\n"
-+"pack $st.lb2\n"
-+"label $st.lb2.sync -text \"SYNC MODE\" -font *-${boldfont12}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"pack $st.lb2.sync\n"
-+"$st create window 3c 1.4c  -window $st.lt2 -anchor s\n"
-+"$st create window 3c 2c    -window $st.b2\n"
-+"$st create window 3c 2.65c -window $st.lb2 -anchor n\n"
-+"bind $st.b2 <1> ac_tempomeasure\n"
-+"# ------------------------------------------------------\n"
-+"# Track/Pattern Read/Write control\n"
-+"# ------------------------------------------------------\n"
-+"label $trpa.lt -text PLAY -font *-${boldfont12}-*\n"
-+"label $trpa.lttrack -text TRACK -font *-${boldfont12}-*\n"
-+"label $trpa.ltpattern -text PATTERN -font *-${boldfont12}-*\n"
-+"label $trpa.lbtrack -text TRACK -font *-${boldfont12}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"label $trpa.lbstep -text \"STEP/TAP\" -font *-${boldfont12}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"button $trpa.btrk -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"button $trpa.bpat -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"label $trpa.lb -text WRITE -font *-${boldfont12}-*\n"
-+"$trpa create window 1.6c 0.8c  -window $trpa.lt -anchor s\n"
-+"$trpa create window 0.8c 1.4c  -window $trpa.lttrack -anchor s\n"
-+"$trpa create window 0.8c 2c    -window $trpa.btrk -anchor c\n"
-+"$trpa create window 0.8c 2.65c -window $trpa.lbtrack -anchor n\n"
-+"$trpa create window 2.3c 1.4c  -window $trpa.ltpattern -anchor s\n"
-+"$trpa create window 2.3c 2c    -window $trpa.bpat -anchor c\n"
-+"$trpa create window 2.3c 2.65c -window $trpa.lbstep -anchor n\n"
-+"$trpa create window 1.6c 3.30c -window $trpa.lb -anchor n\n"
-+"\n"
-+"bind $trpa.btrk <1>        {ac_trackmode $tkxox(READ)}\n"
-+"bind $trpa.btrk <Double-1> {ac_trackmode $tkxox(WRITE)}\n"
-+"bind $trpa.btrk <Shift-1>  {ac_trackmode $tkxox(WRITE)}\n"
-+"bind $trpa.bpat <1>        { ac_patternmode $tkxox(READ); }\n"
-+"bind $trpa.bpat <Double-1> { ac_patternmode $tkxox(WRITE); }\n"
-+"bind $trpa.bpat <Shift-1>  { ac_patternmode $tkxox(WRITE); }\n"
-+"#---------------------------------------\n"
-+"# Pattern Group & Track Number selection\n"
-+"#---------------------------------------\n"
-+"label $grps.lt -text \"PATTERN GROUP\" -font *-${boldfont12}-*\n"
-+"label $grps.lb -text \"TRACK NUMBER\"  -font *-${boldfont12}-*\n"
-+"$grps create window 2.5c 0.8c  -window $grps.lt -anchor s\n"
-+"$grps create window 2.5c 3.30c -window $grps.lb -anchor n\n"
-+"eval frame $grps.lt0 $debug_relief;\n"
-+"pack $grps.lt0\n"
-+"label $grps.lt0.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $grps.lt0.labl -text A -font *-${boldfont12}-*\n"
-+"pack $grps.lt0.lamp $grps.lt0.labl -side left\n"
-+"button $grps.b0 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"label $grps.lb0 -text I -font *-${boldfont13}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"$grps create window 0.8c 1.4c -window $grps.lt0 -anchor s\n"
-+"$grps create window 0.8c 2c -window $grps.b0 -anchor c\n"
-+"$grps create window 0.8c 2.65c -window $grps.lb0 -anchor n\n"
-+"\n"
-+"eval frame $grps.lt1 $debug_relief;\n"
-+"pack $grps.lt1\n"
-+"label $grps.lt1.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $grps.lt1.labl -text B -font *-${boldfont12}-*\n"
-+"pack $grps.lt1.lamp $grps.lt1.labl -side left\n"
-+"button $grps.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"label $grps.lb1 -text II -font *-${boldfont13}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"\n"
-+"\n"
-+"\n"
-+"$grps create window 2c 1.4c -window $grps.lt1 -anchor s\n"
-+"$grps create window 2c 2c -window $grps.b1 -anchor c\n"
-+"$grps create window 2c 2.65c -window $grps.lb1 -anchor n\n"
-+"\n"
-+"eval frame $grps.lt2 $debug_relief;\n"
-+"pack $grps.lt2\n"
-+"label $grps.lt2.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $grps.lt2.labl -text C -font *-${boldfont12}-*\n"
-+"pack $grps.lt2.lamp $grps.lt2.labl -side left\n"
-+"button $grps.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"label $grps.lb2 -text III -font *-${boldfont13}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"$grps create window 3.2c 1.4c -window $grps.lt2 -anchor s\n"
-+"$grps create window 3.2c 2c -window $grps.b2 -anchor c\n"
-+"$grps create window 3.2c 2.65c -window $grps.lb2 -anchor n\n"
-+"\n"
-+"eval frame $grps.lt3 $debug_relief;\n"
-+"pack $grps.lt3\n"
-+"label $grps.lt3.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $grps.lt3.labl -text D -font *-${boldfont12}-*\n"
-+"pack $grps.lt3.lamp $grps.lt3.labl -side left\n"
-+"button $grps.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-+"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"label $grps.lb3 -text IV -font *-${boldfont13}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"$grps create window 4.4c 1.4c -window $grps.lt3 -anchor s\n"
-+"$grps create window 4.4c 2c -window $grps.b3 -anchor c\n"
-+"$grps create window 4.4c 2.65c -window $grps.lb3 -anchor n\n"
-+"\n"
-+"bind $grps.b0 <1> {ac_group 0}\n"
-+"bind $grps.b1 <1> {ac_group 1}\n"
-+"bind $grps.b2 <1> {ac_group 2}\n"
-+"bind $grps.b3 <1> {ac_group 3}\n"
-+"bind $grps.b0 <Shift-1> {ac_track 0}\n"
-+"bind $grps.b1 <Shift-1> {ac_track 1}\n"
-+"bind $grps.b2 <Shift-1> {ac_track 2}\n"
-+"bind $grps.b3 <Shift-1> {ac_track 3}\n"
-+"# -------------------------------\n"
-+"# Create the note buttons & lamps\n"
-+"# -------------------------------\n"
-+"# add half a button width at left and right of the score alignement\n"
-+"set border_width_in_point 2;\n"
-+"set correction            0.20\n"
-+"set button_width [expr $score_width/17.0 - 2*$border_width_in_point/$point_per_cm - $correction];\n"
-+"\n"
-+"set shift_buttons $notes.shift\n"
-+"canvas $shift_buttons -width [expr 0.95*${button_width}]c -height 2.6c;\n"
-+"pack   $shift_buttons -side left;\n"
-+"\n"
-+"for {set i 0} {$i<16} {incr i} {\n"
-+"	frame $notes.note$i\n"
-+"	pack $notes.note$i -side left\n"
-+"	label $notes.note$i.l -height 1 -text [expr $i + 1]	\\\n"
-+"		-relief groove -borderwidth ${border_width_in_point}p -font *-${font12}-*\n"
-+"	button $notes.note$i.b -bitmap nix -width ${button_width}c -height 2.6c	\\\n"
-+"		-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"	label $notes.note$i.instr -width 1 \\\n"
-+"		-font *-${font12}-* -text $sound([expr $i + 1],shortname);\n"
-+"	pack $notes.note$i.l $notes.note$i.b $notes.note$i.instr \\\n"
-+"		-expand true -fill x\n"
-+"	bind $notes.note$i.b <ButtonPress-1>           {ac_note     %W 0}\n"
-+"	bind $notes.note$i.b <ButtonRelease-1>         {ac_note_off %W}\n"
-+"	bind $notes.note$i.b <Control-ButtonPress-1>   {ac_note     %W $tkxox(flam)}\n"
-+"	bind $notes.note$i.b <Control-ButtonRelease-1> {ac_note_off %W}\n"
-+"	bind $notes.note$i.b <Button-3>                {ac_note     %W $tkxox(zero_velocity)}\n"
-+"	bind $notes.note$i.b <Shift-1>                 {ac_newinstr %W}\n"
-+"}\n"
-+"#\n"
-+"# Empty Space : adjust vectical alignment with score\n"
-+"# 	- at the right of the score\n"
-+"# 	- at the right of the instrument buttons\n"
-+"#\n"
-+"set empty_right $note_score.right\n"
-+"set empty_case $notes.right\n"
-+"canvas $empty_right -width ${right_space_width}c -height ${score_height_in_inch}i;\n"
-+"canvas $empty_case  -width ${right_space_width}c -height 2.6c;\n"
-+"pack   $empty_right -side left;\n"
-+"pack   $empty_case -side right;\n"
-+"\n"
-+"pattern_setid 0	;	# Initialise pattern number\n"
-+"ac_group $mode(patgroup)\n"
-+"ac_newinstr $notes.note0.b	;	# Initialise current instrument\n"
-+"\n"
-+"# Bindings to activate note buttons from keyboard\n"
-+"# 1->10 = buttons 1->10, \"q\"->\"y\" = 11->16\n"
-+"#\n"
-+"set k 0\n"
-+"bind . <KeyPress-1> {ac_note $notes.note0.b 0}\n"
-+"bind . <KeyPress-2> {ac_note $notes.note1.b 0}\n"
-+"bind . <KeyPress-3> {ac_note $notes.note2.b 0}\n"
-+"bind . <KeyPress-4> {ac_note $notes.note3.b 0}\n"
-+"bind . <KeyPress-5> {ac_note $notes.note4.b 0}\n"
-+"bind . <KeyPress-6> {ac_note $notes.note5.b 0}\n"
-+"bind . <KeyPress-7> {ac_note $notes.note6.b 0}\n"
-+"bind . <KeyPress-8> {ac_note $notes.note7.b 0}\n"
-+"bind . <KeyPress-9> {ac_note $notes.note8.b 0}\n"
-+"bind . <KeyPress-0> {ac_note $notes.note9.b 0}\n"
-+"bind . <KeyPress-q> {ac_note $notes.note10.b 0}\n"
-+"bind . <KeyPress-w> {ac_note $notes.note11.b 0}\n"
-+"bind . <KeyPress-e> {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n"
-+"bind . <KeyPress-r> {ac_note $notes.note13.b 0}\n"
-+"bind . <KeyPress-t> {ac_note $notes.note14.b 0}\n"
-+"bind . <KeyPress-y> {ac_note $notes.note15.b 0}\n"
-+"\n"
-+"# Bindings for pattern Copy/Paste\n"
-+"#\n"
-+"bind . <Control-c> {\n"
-+"	tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n"
-+"}\n"
-+"bind . <Control-b> {\n"
-+"	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n"
-+"		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 1\n"
-+"		pattern_setid $mode(current_pattern)\n"
-+"	}\n"
-+"}\n"
-+"bind . <Control-v> {\n"
-+"	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n"
-+"		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 0\n"
-+"		pattern_setid $mode(current_pattern)\n"
-+"	}\n"
-+"}\n"
-+"#\n"
-+"# Bindings for pattern editing from display grid\n"
-+"#\n"
-+"proc grid_note {x y prop} {\n"
-+"	global notes\n"
-+"	upvar #0 tkxox xox\n"
-+"	upvar #0 mode mo\n"
-+"	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n"
-+"	    return\n"
-+"	}\n"
-+"	if {![have_zero_velocity $prop]} {\n"
-+"	  switch $mo(current_accent) {\n"
-+"	    2       {set prop [add_strong_accent    $prop] }\n"
-+"	    1 	    {set prop [add_weak_accent      $prop] }\n"
-+"	    default {set prop [add_default_velocity $prop] }\n"
-+"	  }\n"
-+"	}\n"
-+"	# Convert x,y position to a grid intersection point\n"
-+"	# and imply step,instrument combination from it.\n"
-+"	if {[locate_gridpos $x $y SIvals] < 0 } {\n"
-+"	    return\n"
-+"	}\n"
-+"	#puts \" -> Instrument $SIvals(inst) at step $SIvals(step) with prop $prop\"\n"
-+"	ac_newinstr $notes.note$SIvals(inst).b\n"
-+"	step_insert $SIvals(step) $prop\n"
-+"}\n"
-+"bind $grid <Button-1> {\n"
-+"	#puts \"Button-1: %x,%y\"\n"
-+"}\n"
-+"bind $grid <Double-Button-1> {\n"
-+"	#puts \"Double-Button-1: %x,%y\"\n"
-+"	grid_note %x %y 0\n"
-+"}\n"
-+"bind $grid <Control-Double-Button-1> {\n"
-+"	#puts \"Control-Double-Button-1: %x,%y\"\n"
-+"        upvar #0 tkxox xox\n"
-+"	grid_note %x %y $xox(flam)\n"
-+"}\n"
-+"bind $grid <Double-Button-3> {\n"
-+"	#puts \"Shift-Double-Button-1: %x,%y\"\n"
-+"        upvar #0 tkxox xox\n"
-+"	grid_note %x %y $xox(zero_velocity)\n"
-+"}\n"
-+"# ------------------------------------------------------\n"
-+"# Create Accent/Enter button set\n"
-+"# ------------------------------------------------------\n"
-+"label $accenter.lt -height 1 -text ENTER -font *-${boldfont12}-*\n"
-+"frame $accenter.cart\n"
-+"label $accenter.cart.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-+"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-+"label $accenter.cart.labl -text CARTRIDGE -font *-${boldfont12}-* \\\n"
-+"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-+"pack $accenter.cart.lamp $accenter.cart.labl -side left\n"
-+"button $accenter.b -bitmap nix -width 1.45c -height 2.1c	\\\n"
-+"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-+"set accent_label $accenter.lb\n"
-+"label $accent_label -height 1 -text ACCENT -font *-${boldfont12}-*\n"
-+"$accenter create window 1.43c 0.35c -window $accenter.lt\n"
-+"$accenter create window 1.43c 0.8c -window $accenter.cart\n"
-+"$accenter create window 1.43c 2.3c -window $accenter.b\n"
-+"$accenter create window 1.43c 3.8c -window $accent_label -tags accent\n"
-+"bind $accenter.b <1> {ac_accenter 0}		;# Add pattern into track\n"
-+"bind $accenter.b <Shift-1> {ac_accenter 1}	;# Insert pattern into track\n"
-+"bind $accenter.b <Control-1> {ac_cartridge}\n"
-+"# ------------------------------------------------------\n"
-+"# Create the Tempo Dial\n"
-+"# ------------------------------------------------------\n"
-+"set dial_canvas $dial.c\n"
-+"set dial_value  $dial.v\n"
-+"\n"
-+"label $dial_value -text \"TEMPO $mode(tempo)\" -anchor n -font *-${boldr14}-* ;\n"
-+"pack $dial_value -expand true -fill x\n"
-+"canvas $dial_canvas -width 4c -height 3.2c ;#-relief groove -borderwidth 2\n"
-+"pack $dial_canvas -side left\n"
-+"set dial_radius 1.; # in centimeter\n"
-+"$dial_canvas create oval 1c 0.2c 3c 2.2c -width 2p -tags dial	\\\n"
-+"	-fill $tkxox(but_grey)\n"
-+"$dial_canvas create line 0c 0c 0c 0c -tags indicator\n"
-+"$dial_canvas create text 0.4c 2.9c -text SLOW -anchor w	\\\n"
-+"	-font *-${helvetica_bold_r_12}-*\n"
-+"$dial_canvas create text 3.7c 2.9c -text FAST -anchor e	\\\n"
-+"	-font *-${helvetica_bold_r_12}-*\n"
-+"$dial_canvas bind dial <Button-1> {\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	# Angular-oriented dial:\n"
-+"	# Note: It would be better to get the center of the\n"
-+"	# dial as origin, instead of the picked point into the dial\n"
-+"	set orig_x %x\n"
-+"	set orig_y %x\n"
-+"	set orig_tempo $mo(tempo)\n"
-+"}\n"
-+"$dial_canvas bind dial <B1-Motion> {\n"
-+"	dial_adjust [expr %x - $orig_x] [expr %y - $orig_y] $orig_tempo\n"
-+"}\n"
-+"# the tempo range is 30-330 on my tk727 (saramito@imag.fr)\n"
-+"# I don't known for the tk707\n"
-+"set tempo_min  30; # points to SLOW\n"
-+"set tempo_max 265; # points to FAST\n"
-+"set tempo_ini 120; # at initialization\n"
-+"\n"
-+"proc dial_adjust {x y orig_tempo} {\n"
-+"	global dial_value\n"
-+"	global dial_canvas\n"
-+"	global dial_radius\n"
-+"	global tempo_min; # the arrow points to SLOW\n"
-+"	global tempo_max; # the arrow points to FAST\n"
-+"	upvar #0 mode mo\n"
-+"\n"
-+"	set pi          3.14159265358979323846;\n"
-+"	set pi_o4       [expr 0.25*$pi];\n"
-+"	set pi_3o4      [expr 3*$pi_o4];\n"
-+"\n"
-+"	# vertical indicator -> medium tempo\n"
-+"	set delta_tempo  [expr 0.5*($tempo_max - $tempo_min)];\n"
-+"	set tempo_med    [expr 0.5*($tempo_max + $tempo_min)];\n"
-+"\n"
-+"	if {($x == 0) && ($y == 0)} {\n"
-+"\n"
-+"	    # special case: when x = y = 0\n"
-+"	    # i.e. when mouse comes back to origin where we pick the dial\n"
-+"	    #  or also at the initialization call procedure\n"
-+"	    # => angle is not computable with (x,y)	\n"
-+"	    # but by using $orig_tempo :\n"
-+"	    set tempo_val $orig_tempo\n"
-+"	    if {$tempo_val > $tempo_med} {\n"
-+"		# alpha is in the range ( pi/4, pi (\n"
-+"		# ksi                   (  0 ,  1  (\n"
-+"	        set ksi    [expr  ($tempo_max-$tempo_val)/$delta_tempo]\n"
-+"	        set alpha  [expr  $pi/4 + $ksi*(3*$pi/4)]\n"
-+"	    } else {\n"
-+"		# alpha is in the range ) -pi, -pi/4 )\n"
-+"		# ksi                   )  0 ,  1    )\n"
-+"	        set ksi    [expr  ($tempo_val-$tempo_min)/$delta_tempo]\n"
-+"	        set alpha  [expr  - $pi/4 - $ksi*(3*$pi/4)]\n"
-+"	    }\n"
-+"	} else {\n"
-+"	    #  the general case\n"
-+"	    set alpha [expr atan2($x,$y)];\n"
-+"            if {$alpha > 0} {\n"
-+"\n"
-+"	        # the mouse is on the right side of the origin -> fast\n"
-+"	        if {$alpha < $pi_o4} {\n"
-+"		    # set to the minimal value\n"
-+"		    set tempo_val $tempo_max\n"
-+"		    set alpha $pi_o4\n"
-+"	        } else {\n"
-+"	  	    # alpha is in the range ( pi/4, pi (\n"
-+"		    # zeta                  ( 0     1  (\n"
-+"	            set zeta  [expr ($alpha-$pi_o4)/$pi_3o4]\n"
-+"		    set tempo_val [expr $tempo_max - $zeta*$delta_tempo]\n"
-+"	        }\n"
-+"	    } else {\n"
-+"	        # alpha < 0\n"
-+"\n"
-+"	        # mouse is on the right side of the origin -> fast\n"
-+"	        if {$alpha > [expr -$pi_o4]} {\n"
-+"		    # set tempo the minimal value\n"
-+"		    set tempo_val $tempo_min\n"
-+"		    set alpha -$pi_o4\n"
-+"	        } else {\n"
-+"	  	    # alpha is in the range ) -pi, -pi/4 )\n"
-+"		    # zeta                  ) 0     1    )\n"
-+"		    set zeta  [expr ($alpha+$pi)/$pi_3o4]\n"
-+"		    set tempo_val [expr $tempo_med - $zeta*$delta_tempo ]\n"
-+"	        }\n"
-+"	    }\n"
-+"	}\n"
-+"        # make an integer\n"
-+"	set tempo_val [expr int($tempo_val)]\n"
-+"\n"
-+"	# then we apply this :\n"
-+"	set mo(tempo) $tempo_val\n"
-+"	tk7_set_tempo $tempo_val\n"
-+"	${dial_value} configure -text \"TEMPO $tempo_val\"\n"
-+"\n"
-+"	# update the dial indicator\n"
-+"	set sin_alpha [expr sin($alpha)]\n"
-+"	set cos_alpha [expr cos($alpha)]\n"
-+"	set x_indic [expr 2.0 + $dial_radius * $sin_alpha]\n"
-+"	set y_indic [expr 1.2 + $dial_radius * $cos_alpha]\n"
-+"	${dial_canvas} coords indicator ${x_indic}c ${y_indic}c 2c 1.2c\n"
-+"}\n"
-+"# Angular-oriented dial: set initial tempo and vertical direction\n"
-+"dial_adjust 0 0 $tempo_ini\n"
-+"\n"
-+"midichan_set [expr $midi_channel + 1]\n"
-+"ac_patternmode $tkxox(READ)\n"
-+"ac_trackmode $tkxox(READ)\n"
-+"ac_track 0\n"
-+"# ======================================================\n"
-+"# Action!\n"
-+"# ======================================================\n"
-+"wm deiconify .;\n"
-+"# after 10 play_loop;\n"
-+"play_loop;\n"
-+"\n"
-+"\n"
-+"";
 --- a/tk707.sh.in
 +++ b/tk707.sh.in
 @@ -2,11 +2,11 @@
@@ -29355,185 +151,16 @@ Description: Debian changes to the upstream tk707 package.
 -echo | @bindir@/tk707bin $args
 +echo | @libdir@/tk707/tk707bin $args
  
---- a/util707.c
-+++ b/util707.c
-@@ -91,6 +91,7 @@
- return 0;
- }
- 
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- int
- get_clientsports(char ***cpinfo)
- {
-@@ -169,6 +170,76 @@
- return cp;
- }
- 
-+#else /* !HAVE_SYS_ASOUNDLIB_H */
-+
-+int
-+get_clientsports(char ***cpinfo)
-+{
-+	snd_seq_client_info_t *cinfo;
-+	snd_seq_port_info_t *pinfo;
-+	snd_seq_t *handle;
-+	int  client, port, cp, i;
-+	char buf[128];
-+
-+	if (snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0)
-+	{
-+		fprintf(stderr, "Couldn't open sequence. Error was:\n%s\n", snd_strerror(errno));
-+		return -1;
-+	}
-+	snd_seq_client_info_alloca(&cinfo);
-+	snd_seq_port_info_alloca(&pinfo);
-+	cp = 0;
-+	fprintf(stderr, "Port     %-30.30s    %s\n", "Client name", "Port name");
-+	snd_seq_client_info_set_client(cinfo, 0);
-+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-+		client = snd_seq_client_info_get_client(cinfo);
-+		snd_seq_port_info_set_client(pinfo, client);
-+		snd_seq_port_info_set_port(pinfo, -1);
-+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
-+			unsigned int cap;
-+			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-+			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap)
-+				cp++;
-+		}
-+	}
-+
-+	if( (*cpinfo=(char**)calloc(cp + 1, sizeof(char*))) == NULL )
-+	{
-+		fprintf(stderr, "Couldn't get memory for client:port info\n");
-+		return 0;
-+	}
-+	/* Now do it again and add each client:port */
-+	cp = 0;
-+	snd_seq_client_info_set_client(cinfo, 0);
-+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-+		client = snd_seq_client_info_get_client(cinfo);
-+		snd_seq_port_info_set_client(pinfo, client);
-+		snd_seq_port_info_set_port(pinfo, -1);
-+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
-+			unsigned int cap;
-+			port = snd_seq_port_info_get_port(pinfo);
-+			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-+			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap) {
-+				memset(buf, 0, sizeof(buf));
-+				sprintf(buf, "%3d:%-3d   %-30.30s    %s\n",
-+					client, port,
-+					snd_seq_client_info_get_name(cinfo),
-+					snd_seq_port_info_get_name(pinfo));
-+				(*cpinfo)[cp] = strdup(buf);
-+				cp++;
-+			}
-+		}
-+	}
-+/*
-+	sprintf(buf, "END END");
-+	(*cpinfo)[cp] = strdup(buf);
-+	return cp + 1;
-+*/
-+return cp;
-+}
-+
-+#endif /* HAVE_SYS_ASOUNDLIB_H */
-+
- void
- set_event_header(seq707_context_t *ctxp, snd_seq_event_t *ev)
- {
-@@ -332,7 +403,11 @@
- 	snd_seq_t *seq_handle = NULL;
- 	snd_seq_t *ctrl_handle = NULL;
- 	snd_seq_t *input_handle = NULL;
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	snd_seq_queue_tempo_t   tempo;
-+#else
-+	snd_seq_queue_tempo_t *tempo;
-+#endif
- 
- 
- 
-@@ -345,24 +420,38 @@
- 		return -1;
- 
- /* Obtain handles to sequencers */
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	if( snd_seq_open(&(tk707->ctxp_p->handle), SND_SEQ_OPEN) < 0 )
- 		return -1;
- 	if( snd_seq_open(&(tk707->ctxp_c->handle), SND_SEQ_OPEN) < 0 )
- 		return -1;
- 	if( snd_seq_open(&(tk707->ctxp_i->handle), SND_SEQ_OPEN) < 0 )
- 		return -1;
-+#else
-+	if( snd_seq_open(&(tk707->ctxp_p->handle), "hw", SND_SEQ_OPEN_DUPLEX,
-+			 SND_SEQ_NONBLOCK) < 0 )
-+		return -1;
-+	if( snd_seq_open(&(tk707->ctxp_c->handle), "hw", SND_SEQ_OPEN_DUPLEX,
-+			 SND_SEQ_NONBLOCK) < 0 )
-+		return -1;
-+	if( snd_seq_open(&(tk707->ctxp_i->handle), "hw", SND_SEQ_OPEN_DUPLEX,
-+			 SND_SEQ_NONBLOCK) < 0 )
-+		return -1;
-+#endif
- 
- 	seq_handle = tk707->ctxp_p->handle;
- 	ctrl_handle = tk707->ctxp_c->handle;
- 	input_handle = tk707->ctxp_i->handle;
- 
- /* Set non-blocking mode for the queues */
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	if( snd_seq_block_mode(seq_handle, 0) < 0 )
- 		return -1;
- 	if( snd_seq_block_mode(ctrl_handle, 0) < 0 )
- 		return -1;
- 	if( snd_seq_block_mode(input_handle, 0) < 0 )
- 		return -1;
-+#endif
- 
- /* Textual names for clients */
- 	snd_seq_set_client_name(seq_handle, "TK707");
-@@ -433,6 +522,7 @@
- 	}
- 
- /* Set pattern queue tempo. Control queue doesn't seem to need it (yet?) */
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- 	if( snd_seq_get_queue_tempo(seq_handle, dest_queue, &tempo) < 0 )
- 		return -1;
- 	ppq = tk707->ctxp_p->ppq;
-@@ -445,6 +535,21 @@
- 		}
- 	}
- 	tk707->ctxp_p->tempo = tempo.tempo;
-+#else
-+	snd_seq_queue_tempo_alloca(&tempo);
-+	if (snd_seq_get_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
-+		return -1;
-+	ppq = tk707->ctxp_p->ppq;
-+	if (snd_seq_queue_tempo_get_ppq(tempo) != ppq )
-+	{
-+		snd_seq_queue_tempo_set_ppq(tempo, ppq);
-+		if( snd_seq_set_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
-+		{
-+			return -1;
-+		}
-+	}
-+	tk707->ctxp_p->tempo = snd_seq_queue_tempo_get_tempo(tempo);
-+#endif
- 
- return 0;
- }
---- a/util707.h
-+++ b/util707.h
-@@ -9,7 +9,11 @@
- #endif HAVE_CONFIG_H
- 
- #ifdef HAVE_LIBASOUND
-+#ifdef HAVE_SYS_ASOUNDLIB_H
- #include <sys/asoundlib.h>
-+#else
-+#include <alsa/asoundlib.h>
-+#endif
- #endif HAVE_LIBASOUND
- 
- #ifndef HAVE_BOOL
+diff --git a/defs.tcl b/defs.tcl
+index 03b2b5f..10d8ef7 100644
+--- a/defs.tcl
++++ b/defs.tcl
+@@ -70,7 +70,7 @@ set argc [llength $argv]
+ # -----------------------------------------
+ package require Tcl 8.0
+ package require Tk 8.0
+-set VERSION     0.6
++set VERSION     0.8
+ set PKGDATADIR  [pwd]
+ 
+ # uncomment to show sonme boxes:
diff --git a/debian/rules b/debian/rules
index 87de1c0..f45d2a4 100755
--- a/debian/rules
+++ b/debian/rules
@@ -8,7 +8,7 @@
 # export MAKE+=-o INSTALL.txt -o texi2help -o version.texi
 
 %:
-	dh "$@"
+	dh "$@" --with=autoreconf
 
 override_dh_auto_configure:
 	# Add here commands to compile the package.
diff --git a/defs.c b/defs.c
index fd1b991..e1d1ca3 100644
--- a/defs.c
+++ b/defs.c
@@ -1,343 +1,370 @@
-char tcl_defs[] = ""
-"# -----------------------------------------\n"
-"#	File defs.tcl\n"
-"#	Definitions and pre-start set up.\n"
-"# -----------------------------------------\n"
-"proc usage {} {\n"
-"    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n"
-"    exit 0\n"
-"}\n"
-"set size_factor 1.0;\n"
-"set input_file_name \"\";\n"
-"set new_argv \"\"\n"
-"for {set i 0} {$i < $argc} {incr i} {\n"
-"        set argi [lindex $argv $i];\n"
-"#       puts \"defs.tcl: argv($i) = `$argi'\";\n"
-"        if {$argi == \"--help\"} {\n"
-"	    usage\n"
-"        } elseif {$argi == \"-small\"} {\n"
-"#           puts \"defs.tcl: small!\";\n"
-"	    set [lindex $argv $i] \"-n\";\n"
-"	    set size_factor 0.5;\n"
-"        } elseif {$argi == \"-medium\"} {\n"
-"#           puts \"defs.tcl: medium!\";\n"
-"	    set size_factor 0.75;\n"
-"        } elseif {$argi == \"-normalsize\"} {\n"
-"#           puts \"defs.tcl: normal!\";\n"
-"	    set new_argv \"$new_argv $argi\"\n"
-"	    set size_factor 1;\n"
-"	} else {\n"
-"	    # send option to the 2nd C-code pass...\n"
-"#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n"
-"	    set new_argv \"$new_argv $argi\"\n"
-"	}\n"
-"}\n"
-"#\n"
-"# we strip options to avoid mistakes\n"
-"#  TODO: send -p x:y nd so to C code\n"
-"set argv $new_argv\n"
-"set argc [llength $argv]\n"
-"#puts \"argv := $argv\"\n"
-"#puts \"argc := $argc\"\n"
-"# -----------------------------------------\n"
-"# pixel to centimeter conversion\n"
-"# -----------------------------------------\n"
-"package require Tcl 8.0\n"
-"package require Tk 8.0\n"
-"set VERSION     0.6\n"
-"set PKGDATADIR  [pwd]\n"
-"\n"
-"# uncomment to show sonme boxes:\n"
-"#set debug_relief \"-borderwidth 2p -relief groove\";\n"
-"set debug_relief \"\";\n"
-"# -----------------------------------------\n"
-"# pixel <--> point/inch/cm\n"
-"# -----------------------------------------\n"
-"set cm_per_inch     2.54;\n"
-"set point_per_inch 72.00;\n"
-"set point_per_cm [expr $point_per_inch / $cm_per_inch];\n"
-"set pixel_per_point [tk scaling]\n"
-"# puts \"dpi $pixel_per_point\"\n"
-"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-"# -----------------------------------------\n"
-"# get window max dimension\n"
-"# -----------------------------------------\n"
-"set maxsize_in_pixel   [wm maxsize .]\n"
-"set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n"
-"set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n"
-"set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n"
-"set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n"
-"# -----------------------------------------\n"
-"# resize coefficient if window is too small\n"
-"# -----------------------------------------\n"
-"if {$size_factor < 0.75} { 	# small screens\n"
-"    set size_factor 0.5; \n"
-"    set font8 \"6\";\n"
-"    set font12 \"6\"; \n"
-"    set boldfont12 \"6\"; \n"
-"    set boldfont13 \"6\";\n"
-"    set courrier_boldfont_i_50 \"10\"; \n"
-"    set boldr14 \"8\";\n"
-"    set helvetica_bold_r_12 \"6\"; \n"
-"    set normal_r_14 \"8\"; \n"
-"} elseif {$size_factor < 1.0} { # medium screen\n"
-"    set size_factor 0.75; \n"
-"    set font8 \"6\";\n"
-"    set font12 \"8\";\n"
-"    set boldfont12 \"8\"; \n"
-"    set boldfont13 \"8\"; \n"
-"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n"
-"    set boldr14 \"bold-r-*-10\"; \n"
-"    set helvetica_bold_r_12 \"8\"; \n"
-"    set normal_r_14 \"10\"; \n"
-"} else { 			# normal screen\n"
-"    set size_factor 1.0;\n"
-"    set font8 \"8\";\n"
-"    set font12 \"*-helvetica-medium-o-*--8\";\n"
-"    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n"
-"    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n"
-"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n"
-"    set boldr14 \"bold-r-*-14\"; \n"
-"    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n"
-"    set normal_r_14 \"normal-r-*-14\"; \n"
-"}\n"
-"# -----------------------------------------\n"
-"# pixel to centimeter conversion\n"
-"# -----------------------------------------\n"
-"set scaling $size_factor;\n"
-"tk scaling $scaling\n"
-"set pixel_per_point [tk scaling]\n"
-"set point_per_pixel [expr 1./$pixel_per_point]\n"
-"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-"# -----------------------------------------\n"
-"# set global constants\n"
-"# -----------------------------------------\n"
-"set tcl_rcFileName \"~/.tk707rc\"\n"
-"if {[catch {open $tcl_rcFileName r} fid]} {\n"
-"} else {\n"
-"      catch {source $tcl_rcFileName}\n"
-"}\n"
-"set res [eval tk7_init $argv]\n"
-"if {$res == 1 || $res == 3} {\n"
-"	exit\n"
-"} elseif {$res ==2} {\n"
-"	wm iconify .\n"
-"	port_setup\n"
-"	tk7_init\n"
-"}\n"
-"rename exit exit.old\n"
-"proc exit {} {\n"
-"	exit707\n"
-"	exit.old\n"
-"}\n"
-"# -----------------------------------------\n"
-"# set global constants\n"
-"# -----------------------------------------\n"
-"set right_space_width 0.5;\n"
-"\n"
-"\n"
-"set tkxox(VERSION)		\"TK707-$VERSION\"\n"
-"set tkxox(READ) 		0\n"
-"set tkxox(WRITE) 		1\n"
-"set tkxox(TRACK) 		0\n"
-"set tkxox(PATTERN) 		1\n"
-"set tkxox(STOP)			0\n"
-"set tkxox(START)		1\n"
-"set tkxox(CONT)			2\n"
-"set tkxox(FILE_UNCHANGED)	0\n"
-"set tkxox(FILE_MODIFIED)	1\n"
-"set tkxox(col_on) 		#ffaa00\n"
-"set tkxox(col_active) 		#ffaaaa\n"
-"set tkxox(col_def_bg) 		#d9d9d9\n"
-"set tkxox(col_def_active) 	#ececec\n"
-"set tkxox(but_grey) 		#888888\n"
-"set tkxox(but_grey_active) 	#999999\n"
-"set tkxox(but_grey_on) 		#bbbbbb\n"
-"set tkxox(lamp_off) 		#882200\n"
-"set tkxox(lamp_on) 		#ff8800\n"
-"set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n"
-"set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n"
-"set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n"
-"set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n"
-"set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n"
-"set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n"
-"\n"
-"set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n"
-"set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n"
-"set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n"
-"\n"
-"set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n"
-"set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n"
-"set tkxox(color_title_bg)       $tkxox(col_def_bg); \n"
-"\n"
-"set tkxox(tick_flam_duration)	4\n"
-"#\n"
-"# color background\n"
-"#\n"
-"tk_setPalette $tkxox(col_def_bg)\n"
-"#\n"
-"#\n"
-"# Properties of note elements:\n"
-"# WARNING: may be as in <util.h>\n"
-"#\n"
-"set tkxox(flam)               	[expr 1 << 0]\n"
-"set tkxox(weak_accent)       	[expr 1 << 1]\n"
-"set tkxox(strong_accent)     	[expr 1 << 2]\n"
-"set tkxox(zero_velocity)       	[expr 1 << 3]\n"
-"set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n"
-"				      $tkxox(weak_accent)   | \\\n"
-"				      $tkxox(strong_accent)]\n"
-"\n"
-"set tkxox(col_default_velocity) $tkxox(but_grey)\n"
-"set tkxox(col_weak_accent)      $tkxox(lamp_on)\n"
-"set tkxox(col_strong_accent)    #ff0000\n"
-"set tkxox(col_zero_velocity)    white\n"
-"\n"
-"\n"
-"set mode(rdrw) 			$tkxox(READ)\n"
-"set mode(patr) 			-1\n"
-"set mode(stopgo) 		$tkxox(STOP)\n"
-"set mode(patgroup) 		0\n"
-"set mode(current_track) 	0\n"
-"set mode(current_pattern) 	0\n"
-"set mode(current_instr)		1\n"
-"set mode(measure) 		-1\n"
-"set mode(tempo) 		120\n"
-"set mode(cartridge) 		0\n"
-"set mode(midi_channel) 		0\n"
-"set mode(PATTERN_REPEAT) 	false\n"
-"set mode(TRACK_START) 		false\n"
-"set mode(REPEAT_INTERVAL) 	5\n"
-"set mode(showtrack)		true\n"
-"set mode(current_accent)	0\n"
-"set mode(file_status)		$tkxox(FILE_UNCHANGED)\n"
-"\n"
-"set flash(count) -1\n"
-"set flash(duration) 20\n"
-"\n"
-"# Default sound mapping\n"
-"#\n"
-"set sound(1,name) \"Bass 1\"\n"
-"set sound(1,shortname) \"Bass 1\"\n"
-"set sound(1,note) 35\n"
-"set sound(2,name) \"Bass 2\"\n"
-"set sound(2,shortname) \"Bass 2\"\n"
-"set sound(2,note) 36\n"
-"set sound(3,name) \"Snare 1\"\n"
-"set sound(3,shortname) \"Snare 1\"\n"
-"set sound(3,note) 38\n"
-"set sound(4,name) \"Snare 2\"\n"
-"set sound(4,shortname) \"Snare 2\"\n"
-"set sound(4,note) 40\n"
-"set sound(5,name) \"LowTom\"\n"
-"set sound(5,shortname) \"LowTom\"\n"
-"set sound(5,note) 41\n"
-"set sound(6,name) \"MidTom\"\n"
-"set sound(6,shortname) \"MidTom\"\n"
-"set sound(6,note) 45\n"
-"set sound(7,name) \"HighTom\"\n"
-"set sound(7,shortname) \"HighTom\"\n"
-"set sound(7,note) 48\n"
-"set sound(8,name) \"Rim\"\n"
-"set sound(8,shortname) \"Rim\"\n"
-"set sound(8,note) 37\n"
-"set sound(9,name) \"Cowbell\"\n"
-"set sound(9,shortname) \"Cowbell\"\n"
-"set sound(9,note) 56\n"
-"set sound(10,name) \"Hand Clap\"\n"
-"set sound(10,shortname) \"Clap\"\n"
-"set sound(10,note) 39\n"
-"set sound(11,name) \"Tambourine\"\n"
-"set sound(11,shortname) \"Tamb\"\n"
-"set sound(11,note) 54\n"
-"set sound(12,name) \"HH Closed 1\"\n"
-"set sound(12,shortname) \"HH C1\"\n"
-"set sound(12,note) 42\n"
-"set sound(13,name) \"HH Closed 2\"\n"
-"set sound(13,shortname) \"HH C2\"\n"
-"set sound(13,note) 42\n"
-"set sound(14,name) \"HHat Open\"\n"
-"set sound(14,shortname) \"HH Open\"\n"
-"set sound(14,note) 46\n"
-"set sound(15,name) \"Crash\"\n"
-"set sound(15,shortname) \"Crash\"\n"
-"set sound(15,note) 49\n"
-"set sound(16,name) \"Ride\"\n"
-"set sound(16,shortname) \"Ride\"\n"
-"set sound(16,note) 51\n"
-"tk7_set_sounds\n"
-"#\n"
-"# instrument(1:16) to volume(1:10) mapping\n"
-"#\n"
-"set instrument_to_volume(1) 1\n"
-"set instrument_to_volume(2) 1\n"
-"set instrument_to_volume(3) 2\n"
-"set instrument_to_volume(4) 2\n"
-"set instrument_to_volume(5) 3\n"
-"set instrument_to_volume(6) 4\n"
-"set instrument_to_volume(7) 5\n"
-"set instrument_to_volume(8) 6\n"
-"set instrument_to_volume(9) 6\n"
-"set instrument_to_volume(10) 7\n"
-"set instrument_to_volume(11) 7\n"
-"set instrument_to_volume(12) 8\n"
-"set instrument_to_volume(13) 8\n"
-"set instrument_to_volume(14) 8\n"
-"set instrument_to_volume(15) 9\n"
-"set instrument_to_volume(16) 10\n"
-"\n"
-"#\n"
-"# default abbrevs, for volume labels\n"
-"#\n"
-"set sound(1,abbrev)  \"BASS\"\n"
-"set sound(2,abbrev)  \"\"\n"
-"set sound(3,abbrev)  \"SNARE\"\n"
-"set sound(4,abbrev)  \"\"\n"
-"set sound(5,abbrev)  \"LT\"\n"
-"set sound(6,abbrev)  \"MT\"\n"
-"set sound(7,abbrev)  \"HT\"\n"
-"set sound(8,abbrev)  \"R\"\n"
-"set sound(9,abbrev)  \"CB\"\n"
-"set sound(10,abbrev) \"C\"\n"
-"set sound(11,abbrev) \"T\"\n"
-"set sound(12,abbrev) \"HH\"\n"
-"set sound(13,abbrev) \"\"\n"
-"set sound(14,abbrev) \"\"\n"
-"set sound(15,abbrev) \"CRASH\"\n"
-"set sound(16,abbrev) \"RIDE\"\n"
-"#\n"
-"# default volume labels\n"
-"#\n"
-"set volume_label(0) \"ACCENT\"\n"
-"set volume_label(1) \"$sound(1,abbrev)\"\n"
-"set volume_label(2) \"$sound(3,abbrev)\"\n"
-"set volume_label(3) \"$sound(5,abbrev)\"\n"
-"set volume_label(4) \"$sound(6,abbrev)\"\n"
-"set volume_label(5) \"$sound(7,abbrev)\"\n"
-"set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n"
-"set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n"
-"set volume_label(8) \"$sound(12,abbrev)\"\n"
-"set volume_label(9) \"$sound(15,abbrev)\"\n"
-"set volume_label(10) \"$sound(16,abbrev)\"\n"
-"#\n"
-"# default implicit delay (e.g. short sound)\n"
-"#\n"
-"set has_delay(1) 0\n"
-"set has_delay(2) 0\n"
-"set has_delay(3) 0\n"
-"set has_delay(4) 0\n"
-"set has_delay(5) 0\n"
-"set has_delay(6) 0\n"
-"set has_delay(7) 0\n"
-"set has_delay(8) 0\n"
-"set has_delay(9) 0\n"
-"set has_delay(10) 0\n"
-"set has_delay(11) 0\n"
-"set has_delay(12) 0\n"
-"set has_delay(13) 0\n"
-"set has_delay(14) 0\n"
-"set has_delay(15) 0\n"
-"set has_delay(16) 0\n"
-"";
+char tcl_defs[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# -----------------------------------------\n\
+#	File defs.tcl\n\
+#	Definitions and pre-start set up.\n\
+# -----------------------------------------\n\
+proc usage {} {\n\
+    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n\
+    exit 0\n\
+}\n\
+set small_size_factor  0.75;\n\
+set medium_size_factor 0.9;\n\
+set normal_size_factor 1.0;\n\
+set large_size_factor  2;\n\
+set size_factor        $normal_size_factor\n\
+set input_file_name \"\";\n\
+set new_argv \"\"\n\
+for {set i 0} {$i < $argc} {incr i} {\n\
+        set argi [lindex $argv $i];\n\
+#       puts \"defs.tcl: argv($i) = `$argi'\";\n\
+        if {$argi == \"--help\"} {\n\
+	    usage\n\
+        } elseif {$argi == \"-small\"} {\n\
+#           puts \"defs.tcl: small!\";\n\
+	    set [lindex $argv $i] \"-n\";\n\
+	    set size_factor $small_size_factor;\n\
+        } elseif {$argi == \"-medium\"} {\n\
+#           puts \"defs.tcl: medium!\";\n\
+	    set size_factor $medium_size_factor;\n\
+        } elseif {$argi == \"-normalsize\"} {\n\
+#           puts \"defs.tcl: normal!\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	    set size_factor $normal_size_factor;\n\
+        } elseif {$argi == \"-big\"} {\n\
+#           puts \"defs.tcl: large!\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	    set size_factor $large_size_factor;\n\
+	} else {\n\
+	    # send option to the 2nd C-code pass...\n\
+#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	}\n\
+}\n\
+#\n\
+# we strip options to avoid mistakes\n\
+#  TODO: send -p x:y nd so to C code\n\
+set argv $new_argv\n\
+set argc [llength $argv]\n\
+#puts \"argv := $argv\"\n\
+#puts \"argc := $argc\"\n\
+# -----------------------------------------\n\
+# pixel to centimeter conversion\n\
+# -----------------------------------------\n\
+package require Tcl 8.0\n\
+package require Tk 8.0\n\
+set VERSION 0.8\n\
+set PKGDATADIR  [pwd]\n\
+\n\
+# uncomment to show sonme boxes:\n\
+#set debug_relief \"-borderwidth 2p -relief groove\";\n\
+set debug_relief \"\";\n\
+# -----------------------------------------\n\
+# pixel <--> point/inch/cm\n\
+# -----------------------------------------\n\
+set cm_per_inch     2.54;\n\
+set point_per_inch 72.00;\n\
+set point_per_cm [expr $point_per_inch / $cm_per_inch];\n\
+set pixel_per_point [tk scaling]\n\
+# puts \"dpi $pixel_per_point\"\n\
+set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
+set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
+# -----------------------------------------\n\
+# get window max dimension\n\
+# -----------------------------------------\n\
+set maxsize_in_pixel   [wm maxsize .]\n\
+set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n\
+set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n\
+set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n\
+set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n\
+# -----------------------------------------\n\
+# resize coefficient if window is too small\n\
+# -----------------------------------------\n\
+if {$size_factor < $medium_size_factor} { 	# small screens\n\
+    set size_factor $small_size_factor; \n\
+    set font8 \"6\";\n\
+    set font12 \"6\"; \n\
+    set boldfont12 \"6\"; \n\
+    set boldfont13 \"6\";\n\
+    set courrier_boldfont_i_50 \"10\"; \n\
+    set boldr14 \"8\";\n\
+    set helvetica_bold_r_12 \"6\"; \n\
+    set normal_r_14 \"8\"; \n\
+} elseif {$size_factor < $normal_size_factor} { # medium screen\n\
+    set size_factor $medium_size_factor; \n\
+    set font8      \"6\";\n\
+    set font12     \"8\";\n\
+    set boldfont12 \"8\"; \n\
+    set boldfont13 \"8\"; \n\
+    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n\
+    set boldr14 \"bold-r-*-10\"; \n\
+    set helvetica_bold_r_12 \"8\"; \n\
+    set normal_r_14 \"10\"; \n\
+} else { 			# normal screen\n\
+    set size_factor $normal_size_factor;\n\
+    set font8      \"7\";\n\
+    set font12     \"9\";\n\
+    set boldfont12 \"9\"; \n\
+    set boldfont13 \"9\";\n\
+    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n\
+    set boldr14 \"bold-r-*-11\"; \n\
+    set helvetica_bold_r_12 \"9\"; \n\
+    set normal_r_14 \"10\"; \n\
+}\n\
+# -----------------------------------------\n\
+# pixel to centimeter conversion\n\
+# -----------------------------------------\n\
+set scaling $size_factor;\n\
+tk scaling $scaling\n\
+set pixel_per_point [tk scaling]\n\
+set point_per_pixel [expr 1./$pixel_per_point]\n\
+set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
+set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
+# -----------------------------------------\n\
+# set global constants\n\
+# -----------------------------------------\n\
+set tcl_rcFileName \"~/.tk707rc\"\n\
+if {[catch {open $tcl_rcFileName r} fid]} {\n\
+} else {\n\
+      catch {source $tcl_rcFileName}\n\
+}\n\
+set res [eval tk7_init $argv]\n\
+if {$res == 1 || $res == 3} {\n\
+	exit\n\
+} elseif {$res ==2} {\n\
+	wm iconify .\n\
+	port_setup\n\
+	tk7_init\n\
+}\n\
+rename exit exit.old\n\
+proc exit {} {\n\
+	exit707\n\
+	exit.old\n\
+}\n\
+# -----------------------------------------\n\
+# set global constants\n\
+# -----------------------------------------\n\
+set right_space_width 0.5;\n\
+\n\
+\n\
+set tkxox(VERSION)		\"TK707-$VERSION\"\n\
+set tkxox(READ) 		0\n\
+set tkxox(WRITE) 		1\n\
+set tkxox(TRACK) 		0\n\
+set tkxox(PATTERN) 		1\n\
+set tkxox(STOP)			0\n\
+set tkxox(START)		1\n\
+set tkxox(CONT)			2\n\
+set tkxox(FILE_UNCHANGED)	0\n\
+set tkxox(FILE_MODIFIED)	1\n\
+set tkxox(col_on) 		#ffaa00\n\
+set tkxox(col_active) 		#ffaaaa\n\
+set tkxox(col_def_bg) 		#d9d9d9\n\
+set tkxox(col_def_active) 	#ececec\n\
+set tkxox(but_grey) 		#888888\n\
+set tkxox(but_grey_active) 	#999999\n\
+set tkxox(but_grey_on) 		#bbbbbb\n\
+set tkxox(lamp_off) 		#882200\n\
+set tkxox(lamp_on) 		#ff8800\n\
+set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n\
+set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n\
+set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n\
+set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n\
+set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n\
+set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n\
+\n\
+set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n\
+set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n\
+set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n\
+\n\
+set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n\
+set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n\
+set tkxox(color_title_bg)       $tkxox(col_def_bg); \n\
+\n\
+set tkxox(tick_flam_duration)	4\n\
+#\n\
+# color background\n\
+#\n\
+tk_setPalette $tkxox(col_def_bg)\n\
+#\n\
+#\n\
+# Properties of note elements:\n\
+# WARNING: may be as in <util.h>\n\
+#\n\
+set tkxox(flam)               	[expr 1 << 0]\n\
+set tkxox(weak_accent)       	[expr 1 << 1]\n\
+set tkxox(strong_accent)     	[expr 1 << 2]\n\
+set tkxox(zero_velocity)       	[expr 1 << 3]\n\
+set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n\
+				      $tkxox(weak_accent)   | \\\n\
+				      $tkxox(strong_accent)]\n\
+\n\
+set tkxox(col_default_velocity) $tkxox(but_grey)\n\
+set tkxox(col_weak_accent)      $tkxox(lamp_on)\n\
+set tkxox(col_strong_accent)    #ff0000\n\
+set tkxox(col_zero_velocity)    white\n\
+\n\
+\n\
+set mode(rdrw) 			$tkxox(READ)\n\
+set mode(patr) 			-1\n\
+set mode(stopgo) 		$tkxox(STOP)\n\
+set mode(patgroup) 		0\n\
+set mode(current_track) 	0\n\
+set mode(current_pattern) 	0\n\
+set mode(current_instr)		1\n\
+set mode(measure) 		-1\n\
+set mode(tempo) 		120\n\
+set mode(cartridge) 		0\n\
+set mode(midi_channel) 		0\n\
+set mode(PATTERN_REPEAT) 	false\n\
+set mode(TRACK_START) 		false\n\
+set mode(REPEAT_INTERVAL) 	5\n\
+set mode(showtrack)		true\n\
+set mode(current_accent)	0\n\
+set mode(file_status)		$tkxox(FILE_UNCHANGED)\n\
+\n\
+set flash(count) -1\n\
+set flash(duration) 20\n\
+\n\
+# Default sound mapping\n\
+#\n\
+set sound(1,name) \"Bass 1\"\n\
+set sound(1,shortname) \"Bass 1\"\n\
+set sound(1,note) 35\n\
+set sound(2,name) \"Bass 2\"\n\
+set sound(2,shortname) \"Bass 2\"\n\
+set sound(2,note) 36\n\
+set sound(3,name) \"Snare 1\"\n\
+set sound(3,shortname) \"Snare 1\"\n\
+set sound(3,note) 38\n\
+set sound(4,name) \"Snare 2\"\n\
+set sound(4,shortname) \"Snare 2\"\n\
+set sound(4,note) 40\n\
+set sound(5,name) \"LowTom\"\n\
+set sound(5,shortname) \"LowTom\"\n\
+set sound(5,note) 41\n\
+set sound(6,name) \"MidTom\"\n\
+set sound(6,shortname) \"MidTom\"\n\
+set sound(6,note) 45\n\
+set sound(7,name) \"HighTom\"\n\
+set sound(7,shortname) \"HighTom\"\n\
+set sound(7,note) 48\n\
+set sound(8,name) \"Rim\"\n\
+set sound(8,shortname) \"Rim\"\n\
+set sound(8,note) 37\n\
+set sound(9,name) \"Cowbell\"\n\
+set sound(9,shortname) \"Cowbell\"\n\
+set sound(9,note) 56\n\
+set sound(10,name) \"Hand Clap\"\n\
+set sound(10,shortname) \"Clap\"\n\
+set sound(10,note) 39\n\
+set sound(11,name) \"Tambourine\"\n\
+set sound(11,shortname) \"Tamb\"\n\
+set sound(11,note) 54\n\
+set sound(12,name) \"HH Closed 1\"\n\
+set sound(12,shortname) \"HH C1\"\n\
+set sound(12,note) 42\n\
+set sound(13,name) \"HH Closed 2\"\n\
+set sound(13,shortname) \"HH C2\"\n\
+set sound(13,note) 42\n\
+set sound(14,name) \"HHat Open\"\n\
+set sound(14,shortname) \"HH Open\"\n\
+set sound(14,note) 46\n\
+set sound(15,name) \"Crash\"\n\
+set sound(15,shortname) \"Crash\"\n\
+set sound(15,note) 49\n\
+set sound(16,name) \"Ride\"\n\
+set sound(16,shortname) \"Ride\"\n\
+set sound(16,note) 51\n\
+tk7_set_sounds\n\
+#\n\
+# instrument(1:16) to volume(1:10) mapping\n\
+#\n\
+set instrument_to_volume(1) 1\n\
+set instrument_to_volume(2) 1\n\
+set instrument_to_volume(3) 2\n\
+set instrument_to_volume(4) 2\n\
+set instrument_to_volume(5) 3\n\
+set instrument_to_volume(6) 4\n\
+set instrument_to_volume(7) 5\n\
+set instrument_to_volume(8) 6\n\
+set instrument_to_volume(9) 6\n\
+set instrument_to_volume(10) 7\n\
+set instrument_to_volume(11) 7\n\
+set instrument_to_volume(12) 8\n\
+set instrument_to_volume(13) 8\n\
+set instrument_to_volume(14) 8\n\
+set instrument_to_volume(15) 9\n\
+set instrument_to_volume(16) 10\n\
+\n\
+#\n\
+# default abbrevs, for volume labels\n\
+#\n\
+set sound(1,abbrev)  \"BASS\"\n\
+set sound(2,abbrev)  \"\"\n\
+set sound(3,abbrev)  \"SNARE\"\n\
+set sound(4,abbrev)  \"\"\n\
+set sound(5,abbrev)  \"LT\"\n\
+set sound(6,abbrev)  \"MT\"\n\
+set sound(7,abbrev)  \"HT\"\n\
+set sound(8,abbrev)  \"R\"\n\
+set sound(9,abbrev)  \"CB\"\n\
+set sound(10,abbrev) \"C\"\n\
+set sound(11,abbrev) \"T\"\n\
+set sound(12,abbrev) \"HH\"\n\
+set sound(13,abbrev) \"\"\n\
+set sound(14,abbrev) \"\"\n\
+set sound(15,abbrev) \"CRASH\"\n\
+set sound(16,abbrev) \"RIDE\"\n\
+#\n\
+# default volume labels\n\
+#\n\
+set volume_label(0) \"ACCENT\"\n\
+set volume_label(1) \"$sound(1,abbrev)\"\n\
+set volume_label(2) \"$sound(3,abbrev)\"\n\
+set volume_label(3) \"$sound(5,abbrev)\"\n\
+set volume_label(4) \"$sound(6,abbrev)\"\n\
+set volume_label(5) \"$sound(7,abbrev)\"\n\
+set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n\
+set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n\
+set volume_label(8) \"$sound(12,abbrev)\"\n\
+set volume_label(9) \"$sound(15,abbrev)\"\n\
+set volume_label(10) \"$sound(16,abbrev)\"\n\
+#\n\
+# default implicit delay (e.g. short sound)\n\
+#\n\
+set has_delay(1) 0\n\
+set has_delay(2) 0\n\
+set has_delay(3) 0\n\
+set has_delay(4) 0\n\
+set has_delay(5) 0\n\
+set has_delay(6) 0\n\
+set has_delay(7) 0\n\
+set has_delay(8) 0\n\
+set has_delay(9) 0\n\
+set has_delay(10) 0\n\
+set has_delay(11) 0\n\
+set has_delay(12) 0\n\
+set has_delay(13) 0\n\
+set has_delay(14) 0\n\
+set has_delay(15) 0\n\
+set has_delay(16) 0\n\
+";
diff --git a/defs.tcl b/defs.tcl
index c639442..10d8ef7 100644
--- a/defs.tcl
+++ b/defs.tcl
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 # -----------------------------------------
 #	File defs.tcl
 #	Definitions and pre-start set up.
@@ -6,7 +25,11 @@ proc usage {} {
     puts "usage: tk707 options...; please read the documentation (html,info,..) and the unix manual."
     exit 0
 }
-set size_factor 1.0;
+set small_size_factor  0.75;
+set medium_size_factor 0.9;
+set normal_size_factor 1.0;
+set large_size_factor  2;
+set size_factor        $normal_size_factor
 set input_file_name "";
 set new_argv ""
 for {set i 0} {$i < $argc} {incr i} {
@@ -17,14 +40,18 @@ for {set i 0} {$i < $argc} {incr i} {
         } elseif {$argi == "-small"} {
 #           puts "defs.tcl: small!";
 	    set [lindex $argv $i] "-n";
-	    set size_factor 0.5;
+	    set size_factor $small_size_factor;
         } elseif {$argi == "-medium"} {
 #           puts "defs.tcl: medium!";
-	    set size_factor 0.75;
+	    set size_factor $medium_size_factor;
         } elseif {$argi == "-normalsize"} {
 #           puts "defs.tcl: normal!";
 	    set new_argv "$new_argv $argi"
-	    set size_factor 1;
+	    set size_factor $normal_size_factor;
+        } elseif {$argi == "-big"} {
+#           puts "defs.tcl: large!";
+	    set new_argv "$new_argv $argi"
+	    set size_factor $large_size_factor;
 	} else {
 	    # send option to the 2nd C-code pass...
 #           puts "defs.tcl: argv($i) = `$argi'...added";
@@ -43,7 +70,7 @@ set argc [llength $argv]
 # -----------------------------------------
 package require Tcl 8.0
 package require Tk 8.0
-set VERSION     0.6
+set VERSION     0.8
 set PKGDATADIR  [pwd]
 
 # uncomment to show sonme boxes:
@@ -70,8 +97,8 @@ set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]
 # -----------------------------------------
 # resize coefficient if window is too small
 # -----------------------------------------
-if {$size_factor < 0.75} { 	# small screens
-    set size_factor 0.5; 
+if {$size_factor < $medium_size_factor} { 	# small screens
+    set size_factor $small_size_factor; 
     set font8 "6";
     set font12 "6"; 
     set boldfont12 "6"; 
@@ -80,10 +107,10 @@ if {$size_factor < 0.75} { 	# small screens
     set boldr14 "8";
     set helvetica_bold_r_12 "6"; 
     set normal_r_14 "8"; 
-} elseif {$size_factor < 1.0} { # medium screen
-    set size_factor 0.75; 
-    set font8 "6";
-    set font12 "8";
+} elseif {$size_factor < $normal_size_factor} { # medium screen
+    set size_factor $medium_size_factor; 
+    set font8      "6";
+    set font12     "8";
     set boldfont12 "8"; 
     set boldfont13 "8"; 
     set courrier_boldfont_i_50 "adobe-courier-bold-i-*-30"; 
@@ -91,15 +118,15 @@ if {$size_factor < 0.75} { 	# small screens
     set helvetica_bold_r_12 "8"; 
     set normal_r_14 "10"; 
 } else { 			# normal screen
-    set size_factor 1.0;
-    set font8 "8";
-    set font12 "*-helvetica-medium-o-*--8";
-    set boldfont12 "*-helvetica-bold-r-*--8"; 
-    set boldfont13 "*-helvetica-bold-r-*--12"; 
+    set size_factor $normal_size_factor;
+    set font8      "7";
+    set font12     "9";
+    set boldfont12 "9"; 
+    set boldfont13 "9";
     set courrier_boldfont_i_50 "adobe-courier-bold-i-*-50"; 
-    set boldr14 "bold-r-*-14"; 
-    set helvetica_bold_r_12 "helvetica-bold-r-*-12"; 
-    set normal_r_14 "normal-r-*-14"; 
+    set boldr14 "bold-r-*-11"; 
+    set helvetica_bold_r_12 "9"; 
+    set normal_r_14 "10"; 
 }
 # -----------------------------------------
 # pixel to centimeter conversion
diff --git a/defsa.c b/defsa.c
index 695fba2..1495df1 100644
--- a/defsa.c
+++ b/defsa.c
@@ -1,343 +1,370 @@
-char tcl_defs[] = ""
-"# -----------------------------------------\n"
-"#	File defs.tcl\n"
-"#	Definitions and pre-start set up.\n"
-"# -----------------------------------------\n"
-"proc usage {} {\n"
-"    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n"
-"    exit 0\n"
-"}\n"
-"set size_factor 1.0;\n"
-"set input_file_name \"\";\n"
-"set new_argv \"\"\n"
-"for {set i 0} {$i < $argc} {incr i} {\n"
-"        set argi [lindex $argv $i];\n"
-"#       puts \"defs.tcl: argv($i) = `$argi'\";\n"
-"        if {$argi == \"--help\"} {\n"
-"	    usage\n"
-"        } elseif {$argi == \"-small\"} {\n"
-"#           puts \"defs.tcl: small!\";\n"
-"	    set [lindex $argv $i] \"-n\";\n"
-"	    set size_factor 0.5;\n"
-"        } elseif {$argi == \"-medium\"} {\n"
-"#           puts \"defs.tcl: medium!\";\n"
-"	    set size_factor 0.75;\n"
-"        } elseif {$argi == \"-normalsize\"} {\n"
-"#           puts \"defs.tcl: normal!\";\n"
-"	    set new_argv \"$new_argv $argi\"\n"
-"	    set size_factor 1;\n"
-"	} else {\n"
-"	    # send option to the 2nd C-code pass...\n"
-"#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n"
-"	    set new_argv \"$new_argv $argi\"\n"
-"	}\n"
-"}\n"
-"#\n"
-"# we strip options to avoid mistakes\n"
-"#  TODO: send -p x:y nd so to C code\n"
-"set argv $new_argv\n"
-"set argc [llength $argv]\n"
-"#puts \"argv := $argv\"\n"
-"#puts \"argc := $argc\"\n"
-"# -----------------------------------------\n"
-"# pixel to centimeter conversion\n"
-"# -----------------------------------------\n"
-"package require Tcl 8.0\n"
-"package require Tk 8.0\n"
-"set VERSION     0.6\n"
-"set PKGDATADIR /usr/share/tk707\n"
-"\n"
-"# uncomment to show sonme boxes:\n"
-"#set debug_relief \"-borderwidth 2p -relief groove\";\n"
-"set debug_relief \"\";\n"
-"# -----------------------------------------\n"
-"# pixel <--> point/inch/cm\n"
-"# -----------------------------------------\n"
-"set cm_per_inch     2.54;\n"
-"set point_per_inch 72.00;\n"
-"set point_per_cm [expr $point_per_inch / $cm_per_inch];\n"
-"set pixel_per_point [tk scaling]\n"
-"# puts \"dpi $pixel_per_point\"\n"
-"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-"# -----------------------------------------\n"
-"# get window max dimension\n"
-"# -----------------------------------------\n"
-"set maxsize_in_pixel   [wm maxsize .]\n"
-"set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n"
-"set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n"
-"set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n"
-"set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n"
-"# -----------------------------------------\n"
-"# resize coefficient if window is too small\n"
-"# -----------------------------------------\n"
-"if {$size_factor < 0.75} { 	# small screens\n"
-"    set size_factor 0.5; \n"
-"    set font8 \"6\";\n"
-"    set font12 \"6\"; \n"
-"    set boldfont12 \"6\"; \n"
-"    set boldfont13 \"6\";\n"
-"    set courrier_boldfont_i_50 \"10\"; \n"
-"    set boldr14 \"8\";\n"
-"    set helvetica_bold_r_12 \"6\"; \n"
-"    set normal_r_14 \"8\"; \n"
-"} elseif {$size_factor < 1.0} { # medium screen\n"
-"    set size_factor 0.75; \n"
-"    set font8 \"6\";\n"
-"    set font12 \"8\";\n"
-"    set boldfont12 \"8\"; \n"
-"    set boldfont13 \"8\"; \n"
-"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n"
-"    set boldr14 \"bold-r-*-10\"; \n"
-"    set helvetica_bold_r_12 \"8\"; \n"
-"    set normal_r_14 \"10\"; \n"
-"} else { 			# normal screen\n"
-"    set size_factor 1.0;\n"
-"    set font8 \"8\";\n"
-"    set font12 \"*-helvetica-medium-o-*--8\";\n"
-"    set boldfont12 \"*-helvetica-bold-r-*--8\"; \n"
-"    set boldfont13 \"*-helvetica-bold-r-*--12\"; \n"
-"    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n"
-"    set boldr14 \"bold-r-*-14\"; \n"
-"    set helvetica_bold_r_12 \"helvetica-bold-r-*-12\"; \n"
-"    set normal_r_14 \"normal-r-*-14\"; \n"
-"}\n"
-"# -----------------------------------------\n"
-"# pixel to centimeter conversion\n"
-"# -----------------------------------------\n"
-"set scaling $size_factor;\n"
-"tk scaling $scaling\n"
-"set pixel_per_point [tk scaling]\n"
-"set point_per_pixel [expr 1./$pixel_per_point]\n"
-"set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n"
-"set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n"
-"# -----------------------------------------\n"
-"# set global constants\n"
-"# -----------------------------------------\n"
-"set tcl_rcFileName \"~/.tk707rc\"\n"
-"if {[catch {open $tcl_rcFileName r} fid]} {\n"
-"} else {\n"
-"      catch {source $tcl_rcFileName}\n"
-"}\n"
-"set res [eval tk7_init $argv]\n"
-"if {$res == 1 || $res == 3} {\n"
-"	exit\n"
-"} elseif {$res ==2} {\n"
-"	wm iconify .\n"
-"	port_setup\n"
-"	tk7_init\n"
-"}\n"
-"rename exit exit.old\n"
-"proc exit {} {\n"
-"	exit707\n"
-"	exit.old\n"
-"}\n"
-"# -----------------------------------------\n"
-"# set global constants\n"
-"# -----------------------------------------\n"
-"set right_space_width 0.5;\n"
-"\n"
-"\n"
-"set tkxox(VERSION)		\"TK707-$VERSION\"\n"
-"set tkxox(READ) 		0\n"
-"set tkxox(WRITE) 		1\n"
-"set tkxox(TRACK) 		0\n"
-"set tkxox(PATTERN) 		1\n"
-"set tkxox(STOP)			0\n"
-"set tkxox(START)		1\n"
-"set tkxox(CONT)			2\n"
-"set tkxox(FILE_UNCHANGED)	0\n"
-"set tkxox(FILE_MODIFIED)	1\n"
-"set tkxox(col_on) 		#ffaa00\n"
-"set tkxox(col_active) 		#ffaaaa\n"
-"set tkxox(col_def_bg) 		#d9d9d9\n"
-"set tkxox(col_def_active) 	#ececec\n"
-"set tkxox(but_grey) 		#888888\n"
-"set tkxox(but_grey_active) 	#999999\n"
-"set tkxox(but_grey_on) 		#bbbbbb\n"
-"set tkxox(lamp_off) 		#882200\n"
-"set tkxox(lamp_on) 		#ff8800\n"
-"set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n"
-"set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n"
-"set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n"
-"set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n"
-"set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n"
-"set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n"
-"\n"
-"set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n"
-"set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n"
-"set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n"
-"\n"
-"set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n"
-"set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n"
-"set tkxox(color_title_bg)       $tkxox(col_def_bg); \n"
-"\n"
-"set tkxox(tick_flam_duration)	4\n"
-"#\n"
-"# color background\n"
-"#\n"
-"tk_setPalette $tkxox(col_def_bg)\n"
-"#\n"
-"#\n"
-"# Properties of note elements:\n"
-"# WARNING: may be as in <util.h>\n"
-"#\n"
-"set tkxox(flam)               	[expr 1 << 0]\n"
-"set tkxox(weak_accent)       	[expr 1 << 1]\n"
-"set tkxox(strong_accent)     	[expr 1 << 2]\n"
-"set tkxox(zero_velocity)       	[expr 1 << 3]\n"
-"set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n"
-"				      $tkxox(weak_accent)   | \\\n"
-"				      $tkxox(strong_accent)]\n"
-"\n"
-"set tkxox(col_default_velocity) $tkxox(but_grey)\n"
-"set tkxox(col_weak_accent)      $tkxox(lamp_on)\n"
-"set tkxox(col_strong_accent)    #ff0000\n"
-"set tkxox(col_zero_velocity)    white\n"
-"\n"
-"\n"
-"set mode(rdrw) 			$tkxox(READ)\n"
-"set mode(patr) 			-1\n"
-"set mode(stopgo) 		$tkxox(STOP)\n"
-"set mode(patgroup) 		0\n"
-"set mode(current_track) 	0\n"
-"set mode(current_pattern) 	0\n"
-"set mode(current_instr)		1\n"
-"set mode(measure) 		-1\n"
-"set mode(tempo) 		120\n"
-"set mode(cartridge) 		0\n"
-"set mode(midi_channel) 		0\n"
-"set mode(PATTERN_REPEAT) 	false\n"
-"set mode(TRACK_START) 		false\n"
-"set mode(REPEAT_INTERVAL) 	5\n"
-"set mode(showtrack)		true\n"
-"set mode(current_accent)	0\n"
-"set mode(file_status)		$tkxox(FILE_UNCHANGED)\n"
-"\n"
-"set flash(count) -1\n"
-"set flash(duration) 20\n"
-"\n"
-"# Default sound mapping\n"
-"#\n"
-"set sound(1,name) \"Bass 1\"\n"
-"set sound(1,shortname) \"Bass 1\"\n"
-"set sound(1,note) 35\n"
-"set sound(2,name) \"Bass 2\"\n"
-"set sound(2,shortname) \"Bass 2\"\n"
-"set sound(2,note) 36\n"
-"set sound(3,name) \"Snare 1\"\n"
-"set sound(3,shortname) \"Snare 1\"\n"
-"set sound(3,note) 38\n"
-"set sound(4,name) \"Snare 2\"\n"
-"set sound(4,shortname) \"Snare 2\"\n"
-"set sound(4,note) 40\n"
-"set sound(5,name) \"LowTom\"\n"
-"set sound(5,shortname) \"LowTom\"\n"
-"set sound(5,note) 41\n"
-"set sound(6,name) \"MidTom\"\n"
-"set sound(6,shortname) \"MidTom\"\n"
-"set sound(6,note) 45\n"
-"set sound(7,name) \"HighTom\"\n"
-"set sound(7,shortname) \"HighTom\"\n"
-"set sound(7,note) 48\n"
-"set sound(8,name) \"Rim\"\n"
-"set sound(8,shortname) \"Rim\"\n"
-"set sound(8,note) 37\n"
-"set sound(9,name) \"Cowbell\"\n"
-"set sound(9,shortname) \"Cowbell\"\n"
-"set sound(9,note) 56\n"
-"set sound(10,name) \"Hand Clap\"\n"
-"set sound(10,shortname) \"Clap\"\n"
-"set sound(10,note) 39\n"
-"set sound(11,name) \"Tambourine\"\n"
-"set sound(11,shortname) \"Tamb\"\n"
-"set sound(11,note) 54\n"
-"set sound(12,name) \"HH Closed 1\"\n"
-"set sound(12,shortname) \"HH C1\"\n"
-"set sound(12,note) 42\n"
-"set sound(13,name) \"HH Closed 2\"\n"
-"set sound(13,shortname) \"HH C2\"\n"
-"set sound(13,note) 42\n"
-"set sound(14,name) \"HHat Open\"\n"
-"set sound(14,shortname) \"HH Open\"\n"
-"set sound(14,note) 46\n"
-"set sound(15,name) \"Crash\"\n"
-"set sound(15,shortname) \"Crash\"\n"
-"set sound(15,note) 49\n"
-"set sound(16,name) \"Ride\"\n"
-"set sound(16,shortname) \"Ride\"\n"
-"set sound(16,note) 51\n"
-"tk7_set_sounds\n"
-"#\n"
-"# instrument(1:16) to volume(1:10) mapping\n"
-"#\n"
-"set instrument_to_volume(1) 1\n"
-"set instrument_to_volume(2) 1\n"
-"set instrument_to_volume(3) 2\n"
-"set instrument_to_volume(4) 2\n"
-"set instrument_to_volume(5) 3\n"
-"set instrument_to_volume(6) 4\n"
-"set instrument_to_volume(7) 5\n"
-"set instrument_to_volume(8) 6\n"
-"set instrument_to_volume(9) 6\n"
-"set instrument_to_volume(10) 7\n"
-"set instrument_to_volume(11) 7\n"
-"set instrument_to_volume(12) 8\n"
-"set instrument_to_volume(13) 8\n"
-"set instrument_to_volume(14) 8\n"
-"set instrument_to_volume(15) 9\n"
-"set instrument_to_volume(16) 10\n"
-"\n"
-"#\n"
-"# default abbrevs, for volume labels\n"
-"#\n"
-"set sound(1,abbrev)  \"BASS\"\n"
-"set sound(2,abbrev)  \"\"\n"
-"set sound(3,abbrev)  \"SNARE\"\n"
-"set sound(4,abbrev)  \"\"\n"
-"set sound(5,abbrev)  \"LT\"\n"
-"set sound(6,abbrev)  \"MT\"\n"
-"set sound(7,abbrev)  \"HT\"\n"
-"set sound(8,abbrev)  \"R\"\n"
-"set sound(9,abbrev)  \"CB\"\n"
-"set sound(10,abbrev) \"C\"\n"
-"set sound(11,abbrev) \"T\"\n"
-"set sound(12,abbrev) \"HH\"\n"
-"set sound(13,abbrev) \"\"\n"
-"set sound(14,abbrev) \"\"\n"
-"set sound(15,abbrev) \"CRASH\"\n"
-"set sound(16,abbrev) \"RIDE\"\n"
-"#\n"
-"# default volume labels\n"
-"#\n"
-"set volume_label(0) \"ACCENT\"\n"
-"set volume_label(1) \"$sound(1,abbrev)\"\n"
-"set volume_label(2) \"$sound(3,abbrev)\"\n"
-"set volume_label(3) \"$sound(5,abbrev)\"\n"
-"set volume_label(4) \"$sound(6,abbrev)\"\n"
-"set volume_label(5) \"$sound(7,abbrev)\"\n"
-"set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n"
-"set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n"
-"set volume_label(8) \"$sound(12,abbrev)\"\n"
-"set volume_label(9) \"$sound(15,abbrev)\"\n"
-"set volume_label(10) \"$sound(16,abbrev)\"\n"
-"#\n"
-"# default implicit delay (e.g. short sound)\n"
-"#\n"
-"set has_delay(1) 0\n"
-"set has_delay(2) 0\n"
-"set has_delay(3) 0\n"
-"set has_delay(4) 0\n"
-"set has_delay(5) 0\n"
-"set has_delay(6) 0\n"
-"set has_delay(7) 0\n"
-"set has_delay(8) 0\n"
-"set has_delay(9) 0\n"
-"set has_delay(10) 0\n"
-"set has_delay(11) 0\n"
-"set has_delay(12) 0\n"
-"set has_delay(13) 0\n"
-"set has_delay(14) 0\n"
-"set has_delay(15) 0\n"
-"set has_delay(16) 0\n"
-"";
+char tcl_defs[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# -----------------------------------------\n\
+#	File defs.tcl\n\
+#	Definitions and pre-start set up.\n\
+# -----------------------------------------\n\
+proc usage {} {\n\
+    puts \"usage: tk707 options...; please read the documentation (html,info,..) and the unix manual.\"\n\
+    exit 0\n\
+}\n\
+set small_size_factor  0.75;\n\
+set medium_size_factor 0.9;\n\
+set normal_size_factor 1.0;\n\
+set large_size_factor  2;\n\
+set size_factor        $normal_size_factor\n\
+set input_file_name \"\";\n\
+set new_argv \"\"\n\
+for {set i 0} {$i < $argc} {incr i} {\n\
+        set argi [lindex $argv $i];\n\
+#       puts \"defs.tcl: argv($i) = `$argi'\";\n\
+        if {$argi == \"--help\"} {\n\
+	    usage\n\
+        } elseif {$argi == \"-small\"} {\n\
+#           puts \"defs.tcl: small!\";\n\
+	    set [lindex $argv $i] \"-n\";\n\
+	    set size_factor $small_size_factor;\n\
+        } elseif {$argi == \"-medium\"} {\n\
+#           puts \"defs.tcl: medium!\";\n\
+	    set size_factor $medium_size_factor;\n\
+        } elseif {$argi == \"-normalsize\"} {\n\
+#           puts \"defs.tcl: normal!\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	    set size_factor $normal_size_factor;\n\
+        } elseif {$argi == \"-big\"} {\n\
+#           puts \"defs.tcl: large!\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	    set size_factor $large_size_factor;\n\
+	} else {\n\
+	    # send option to the 2nd C-code pass...\n\
+#           puts \"defs.tcl: argv($i) = `$argi'...added\";\n\
+	    set new_argv \"$new_argv $argi\"\n\
+	}\n\
+}\n\
+#\n\
+# we strip options to avoid mistakes\n\
+#  TODO: send -p x:y nd so to C code\n\
+set argv $new_argv\n\
+set argc [llength $argv]\n\
+#puts \"argv := $argv\"\n\
+#puts \"argc := $argc\"\n\
+# -----------------------------------------\n\
+# pixel to centimeter conversion\n\
+# -----------------------------------------\n\
+package require Tcl 8.0\n\
+package require Tk 8.0\n\
+set VERSION 0.8\n\
+set PKGDATADIR /jonasz/saramito/sys/share/tk707
+\n\
+# uncomment to show sonme boxes:\n\
+#set debug_relief \"-borderwidth 2p -relief groove\";\n\
+set debug_relief \"\";\n\
+# -----------------------------------------\n\
+# pixel <--> point/inch/cm\n\
+# -----------------------------------------\n\
+set cm_per_inch     2.54;\n\
+set point_per_inch 72.00;\n\
+set point_per_cm [expr $point_per_inch / $cm_per_inch];\n\
+set pixel_per_point [tk scaling]\n\
+# puts \"dpi $pixel_per_point\"\n\
+set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
+set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
+# -----------------------------------------\n\
+# get window max dimension\n\
+# -----------------------------------------\n\
+set maxsize_in_pixel   [wm maxsize .]\n\
+set maxwidth_in_pixel  [lindex $maxsize_in_pixel 0]\n\
+set maxheight_in_pixel [lindex $maxsize_in_pixel 1]\n\
+set maxwidth_in_cm     [expr $maxwidth_in_pixel * $pixel_per_cm ]\n\
+set maxheight_in_cm    [expr $maxheight_in_pixel* $pixel_per_cm ]\n\
+# -----------------------------------------\n\
+# resize coefficient if window is too small\n\
+# -----------------------------------------\n\
+if {$size_factor < $medium_size_factor} { 	# small screens\n\
+    set size_factor $small_size_factor; \n\
+    set font8 \"6\";\n\
+    set font12 \"6\"; \n\
+    set boldfont12 \"6\"; \n\
+    set boldfont13 \"6\";\n\
+    set courrier_boldfont_i_50 \"10\"; \n\
+    set boldr14 \"8\";\n\
+    set helvetica_bold_r_12 \"6\"; \n\
+    set normal_r_14 \"8\"; \n\
+} elseif {$size_factor < $normal_size_factor} { # medium screen\n\
+    set size_factor $medium_size_factor; \n\
+    set font8      \"6\";\n\
+    set font12     \"8\";\n\
+    set boldfont12 \"8\"; \n\
+    set boldfont13 \"8\"; \n\
+    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-30\"; \n\
+    set boldr14 \"bold-r-*-10\"; \n\
+    set helvetica_bold_r_12 \"8\"; \n\
+    set normal_r_14 \"10\"; \n\
+} else { 			# normal screen\n\
+    set size_factor $normal_size_factor;\n\
+    set font8      \"7\";\n\
+    set font12     \"9\";\n\
+    set boldfont12 \"9\"; \n\
+    set boldfont13 \"9\";\n\
+    set courrier_boldfont_i_50 \"adobe-courier-bold-i-*-50\"; \n\
+    set boldr14 \"bold-r-*-11\"; \n\
+    set helvetica_bold_r_12 \"9\"; \n\
+    set normal_r_14 \"10\"; \n\
+}\n\
+# -----------------------------------------\n\
+# pixel to centimeter conversion\n\
+# -----------------------------------------\n\
+set scaling $size_factor;\n\
+tk scaling $scaling\n\
+set pixel_per_point [tk scaling]\n\
+set point_per_pixel [expr 1./$pixel_per_point]\n\
+set pixel_per_inch [expr int($pixel_per_point*$point_per_inch+0.5)]\n\
+set pixel_per_cm   [expr $pixel_per_inch/$cm_per_inch]\n\
+# -----------------------------------------\n\
+# set global constants\n\
+# -----------------------------------------\n\
+set tcl_rcFileName \"~/.tk707rc\"\n\
+if {[catch {open $tcl_rcFileName r} fid]} {\n\
+} else {\n\
+      catch {source $tcl_rcFileName}\n\
+}\n\
+set res [eval tk7_init $argv]\n\
+if {$res == 1 || $res == 3} {\n\
+	exit\n\
+} elseif {$res ==2} {\n\
+	wm iconify .\n\
+	port_setup\n\
+	tk7_init\n\
+}\n\
+rename exit exit.old\n\
+proc exit {} {\n\
+	exit707\n\
+	exit.old\n\
+}\n\
+# -----------------------------------------\n\
+# set global constants\n\
+# -----------------------------------------\n\
+set right_space_width 0.5;\n\
+\n\
+\n\
+set tkxox(VERSION)		\"TK707-$VERSION\"\n\
+set tkxox(READ) 		0\n\
+set tkxox(WRITE) 		1\n\
+set tkxox(TRACK) 		0\n\
+set tkxox(PATTERN) 		1\n\
+set tkxox(STOP)			0\n\
+set tkxox(START)		1\n\
+set tkxox(CONT)			2\n\
+set tkxox(FILE_UNCHANGED)	0\n\
+set tkxox(FILE_MODIFIED)	1\n\
+set tkxox(col_on) 		#ffaa00\n\
+set tkxox(col_active) 		#ffaaaa\n\
+set tkxox(col_def_bg) 		#d9d9d9\n\
+set tkxox(col_def_active) 	#ececec\n\
+set tkxox(but_grey) 		#888888\n\
+set tkxox(but_grey_active) 	#999999\n\
+set tkxox(but_grey_on) 		#bbbbbb\n\
+set tkxox(lamp_off) 		#882200\n\
+set tkxox(lamp_on) 		#ff8800\n\
+set tkxox(color_fg_shift)    	#ffffff;       # the text on the shift keys (white)\n\
+set tkxox(color_bg_shift)       #000044cffb22; # the box on the shift keys (blue)\n\
+set tkxox(vol_trough_color) 	#a5e3a5e3a5e3; # background of the trough for volume\n\
+set tkxox(vol_slider_passive)   #570a570a570a; # volume slider when nothing append\n\
+set tkxox(vol_slider_active)    #204120412041; # volume slider when we interact\n\
+set tkxox(vol_highlightbackground) $tkxox(col_def_bg); # the border outside volumes\n\
+\n\
+set tkxox(color_score_bg)       #c24d108c09e9;  # the color of rectangles arround notes\n\
+set tkxox(score_active_note)    #ffffff; 	# the color of used notes on the score\n\
+set tkxox(score_passive_note)   #87cfff; 	# the color of unused  notes (at right)\n\
+\n\
+set tkxox(color_title_fg)       $tkxox(color_bg_shift);  # the color of \"RHYTHM COMPOSER\"\n\
+set tkxox(color_title_logo_fg)  $tkxox(vol_slider_active); # the color of \"TK-707\"\n\
+set tkxox(color_title_bg)       $tkxox(col_def_bg); \n\
+\n\
+set tkxox(tick_flam_duration)	4\n\
+#\n\
+# color background\n\
+#\n\
+tk_setPalette $tkxox(col_def_bg)\n\
+#\n\
+#\n\
+# Properties of note elements:\n\
+# WARNING: may be as in <util.h>\n\
+#\n\
+set tkxox(flam)               	[expr 1 << 0]\n\
+set tkxox(weak_accent)       	[expr 1 << 1]\n\
+set tkxox(strong_accent)     	[expr 1 << 2]\n\
+set tkxox(zero_velocity)       	[expr 1 << 3]\n\
+set tkxox(velocity_field)       [expr $tkxox(zero_velocity) | \\\n\
+				      $tkxox(weak_accent)   | \\\n\
+				      $tkxox(strong_accent)]\n\
+\n\
+set tkxox(col_default_velocity) $tkxox(but_grey)\n\
+set tkxox(col_weak_accent)      $tkxox(lamp_on)\n\
+set tkxox(col_strong_accent)    #ff0000\n\
+set tkxox(col_zero_velocity)    white\n\
+\n\
+\n\
+set mode(rdrw) 			$tkxox(READ)\n\
+set mode(patr) 			-1\n\
+set mode(stopgo) 		$tkxox(STOP)\n\
+set mode(patgroup) 		0\n\
+set mode(current_track) 	0\n\
+set mode(current_pattern) 	0\n\
+set mode(current_instr)		1\n\
+set mode(measure) 		-1\n\
+set mode(tempo) 		120\n\
+set mode(cartridge) 		0\n\
+set mode(midi_channel) 		0\n\
+set mode(PATTERN_REPEAT) 	false\n\
+set mode(TRACK_START) 		false\n\
+set mode(REPEAT_INTERVAL) 	5\n\
+set mode(showtrack)		true\n\
+set mode(current_accent)	0\n\
+set mode(file_status)		$tkxox(FILE_UNCHANGED)\n\
+\n\
+set flash(count) -1\n\
+set flash(duration) 20\n\
+\n\
+# Default sound mapping\n\
+#\n\
+set sound(1,name) \"Bass 1\"\n\
+set sound(1,shortname) \"Bass 1\"\n\
+set sound(1,note) 35\n\
+set sound(2,name) \"Bass 2\"\n\
+set sound(2,shortname) \"Bass 2\"\n\
+set sound(2,note) 36\n\
+set sound(3,name) \"Snare 1\"\n\
+set sound(3,shortname) \"Snare 1\"\n\
+set sound(3,note) 38\n\
+set sound(4,name) \"Snare 2\"\n\
+set sound(4,shortname) \"Snare 2\"\n\
+set sound(4,note) 40\n\
+set sound(5,name) \"LowTom\"\n\
+set sound(5,shortname) \"LowTom\"\n\
+set sound(5,note) 41\n\
+set sound(6,name) \"MidTom\"\n\
+set sound(6,shortname) \"MidTom\"\n\
+set sound(6,note) 45\n\
+set sound(7,name) \"HighTom\"\n\
+set sound(7,shortname) \"HighTom\"\n\
+set sound(7,note) 48\n\
+set sound(8,name) \"Rim\"\n\
+set sound(8,shortname) \"Rim\"\n\
+set sound(8,note) 37\n\
+set sound(9,name) \"Cowbell\"\n\
+set sound(9,shortname) \"Cowbell\"\n\
+set sound(9,note) 56\n\
+set sound(10,name) \"Hand Clap\"\n\
+set sound(10,shortname) \"Clap\"\n\
+set sound(10,note) 39\n\
+set sound(11,name) \"Tambourine\"\n\
+set sound(11,shortname) \"Tamb\"\n\
+set sound(11,note) 54\n\
+set sound(12,name) \"HH Closed 1\"\n\
+set sound(12,shortname) \"HH C1\"\n\
+set sound(12,note) 42\n\
+set sound(13,name) \"HH Closed 2\"\n\
+set sound(13,shortname) \"HH C2\"\n\
+set sound(13,note) 42\n\
+set sound(14,name) \"HHat Open\"\n\
+set sound(14,shortname) \"HH Open\"\n\
+set sound(14,note) 46\n\
+set sound(15,name) \"Crash\"\n\
+set sound(15,shortname) \"Crash\"\n\
+set sound(15,note) 49\n\
+set sound(16,name) \"Ride\"\n\
+set sound(16,shortname) \"Ride\"\n\
+set sound(16,note) 51\n\
+tk7_set_sounds\n\
+#\n\
+# instrument(1:16) to volume(1:10) mapping\n\
+#\n\
+set instrument_to_volume(1) 1\n\
+set instrument_to_volume(2) 1\n\
+set instrument_to_volume(3) 2\n\
+set instrument_to_volume(4) 2\n\
+set instrument_to_volume(5) 3\n\
+set instrument_to_volume(6) 4\n\
+set instrument_to_volume(7) 5\n\
+set instrument_to_volume(8) 6\n\
+set instrument_to_volume(9) 6\n\
+set instrument_to_volume(10) 7\n\
+set instrument_to_volume(11) 7\n\
+set instrument_to_volume(12) 8\n\
+set instrument_to_volume(13) 8\n\
+set instrument_to_volume(14) 8\n\
+set instrument_to_volume(15) 9\n\
+set instrument_to_volume(16) 10\n\
+\n\
+#\n\
+# default abbrevs, for volume labels\n\
+#\n\
+set sound(1,abbrev)  \"BASS\"\n\
+set sound(2,abbrev)  \"\"\n\
+set sound(3,abbrev)  \"SNARE\"\n\
+set sound(4,abbrev)  \"\"\n\
+set sound(5,abbrev)  \"LT\"\n\
+set sound(6,abbrev)  \"MT\"\n\
+set sound(7,abbrev)  \"HT\"\n\
+set sound(8,abbrev)  \"R\"\n\
+set sound(9,abbrev)  \"CB\"\n\
+set sound(10,abbrev) \"C\"\n\
+set sound(11,abbrev) \"T\"\n\
+set sound(12,abbrev) \"HH\"\n\
+set sound(13,abbrev) \"\"\n\
+set sound(14,abbrev) \"\"\n\
+set sound(15,abbrev) \"CRASH\"\n\
+set sound(16,abbrev) \"RIDE\"\n\
+#\n\
+# default volume labels\n\
+#\n\
+set volume_label(0) \"ACCENT\"\n\
+set volume_label(1) \"$sound(1,abbrev)\"\n\
+set volume_label(2) \"$sound(3,abbrev)\"\n\
+set volume_label(3) \"$sound(5,abbrev)\"\n\
+set volume_label(4) \"$sound(6,abbrev)\"\n\
+set volume_label(5) \"$sound(7,abbrev)\"\n\
+set volume_label(6) \"$sound(8,abbrev)/$sound(9,abbrev)\"\n\
+set volume_label(7) \"$sound(10,abbrev)/$sound(11,abbrev)\"\n\
+set volume_label(8) \"$sound(12,abbrev)\"\n\
+set volume_label(9) \"$sound(15,abbrev)\"\n\
+set volume_label(10) \"$sound(16,abbrev)\"\n\
+#\n\
+# default implicit delay (e.g. short sound)\n\
+#\n\
+set has_delay(1) 0\n\
+set has_delay(2) 0\n\
+set has_delay(3) 0\n\
+set has_delay(4) 0\n\
+set has_delay(5) 0\n\
+set has_delay(6) 0\n\
+set has_delay(7) 0\n\
+set has_delay(8) 0\n\
+set has_delay(9) 0\n\
+set has_delay(10) 0\n\
+set has_delay(11) 0\n\
+set has_delay(12) 0\n\
+set has_delay(13) 0\n\
+set has_delay(14) 0\n\
+set has_delay(15) 0\n\
+set has_delay(16) 0\n\
+";
diff --git a/depcomp b/depcomp
new file mode 100755
index 0000000..6589965
--- /dev/null
+++ b/depcomp
@@ -0,0 +1,411 @@
+#! /bin/sh
+
+# depcomp - compile a program generating dependencies as side-effects
+# Copyright 1999, 2000 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# Originally written by Alexandre Oliva <oliva@dcc.unicamp.br>.
+
+if test -z "$depmode" || test -z "$source" || test -z "$object"; then
+  echo "depcomp: Variables source, object and depmode must be set" 1>&2
+  exit 1
+fi
+# `libtool' can also be set to `yes' or `no'.
+
+depfile=${depfile-`echo "$object" | sed 's,\([^/]*\)$,.deps/\1,;s/\.\([^.]*\)$/.P\1/'`}
+tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`}
+
+rm -f "$tmpdepfile"
+
+# Some modes work just like other modes, but use different flags.  We
+# parameterize here, but still list the modes in the big case below,
+# to make depend.m4 easier to write.  Note that we *cannot* use a case
+# here, because this file can only contain one case statement.
+if test "$depmode" = hp; then
+  # HP compiler uses -M and no extra arg.
+  gccflag=-M
+  depmode=gcc
+fi
+
+if test "$depmode" = dashXmstdout; then
+   # This is just like dashmstdout with a different argument.
+   dashmflag=-xM
+   depmode=dashmstdout
+fi
+
+case "$depmode" in
+gcc3)
+## gcc 3 implements dependency tracking that does exactly what
+## we want.  Yay!  Note: for some reason libtool 1.4 doesn't like
+## it if -MD -MP comes after the -MF stuff.  Hmm.
+  "$@" -MT "$object" -MD -MP -MF "$tmpdepfile"
+  stat=$?
+  if test $stat -eq 0; then :
+  else
+    rm -f "$tmpdepfile"
+    exit $stat
+  fi
+  mv "$tmpdepfile" "$depfile"
+  ;;
+
+gcc)
+## There are various ways to get dependency output from gcc.  Here's
+## why we pick this rather obscure method:
+## - Don't want to use -MD because we'd like the dependencies to end
+##   up in a subdir.  Having to rename by hand is ugly.
+##   (We might end up doing this anyway to support other compilers.)
+## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like
+##   -MM, not -M (despite what the docs say).
+## - Using -M directly means running the compiler twice (even worse
+##   than renaming).
+  if test -z "$gccflag"; then
+    gccflag=-MD,
+  fi
+  "$@" -Wp,"$gccflag$tmpdepfile"
+  stat=$?
+  if test $stat -eq 0; then :
+  else
+    rm -f "$tmpdepfile"
+    exit $stat
+  fi
+  rm -f "$depfile"
+  echo "$object : \\" > "$depfile"
+  alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
+## The second -e expression handles DOS-style file names with drive letters.
+  sed -e 's/^[^:]*: / /' \
+      -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile"
+## This next piece of magic avoids the `deleted header file' problem.
+## The problem is that when a header file which appears in a .P file
+## is deleted, the dependency causes make to die (because there is
+## typically no way to rebuild the header).  We avoid this by adding
+## dummy dependencies for each header file.  Too bad gcc doesn't do
+## this for us directly.
+  tr ' ' '
+' < "$tmpdepfile" |
+## Some versions of gcc put a space before the `:'.  On the theory
+## that the space means something, we add a space to the output as
+## well.
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly.  Breaking it into two sed invocations is a workaround.
+    sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+  rm -f "$tmpdepfile"
+  ;;
+
+hp)
+  # This case exists only to let depend.m4 do its work.  It works by
+  # looking at the text of this script.  This case will never be run,
+  # since it is checked for above.
+  exit 1
+  ;;
+
+sgi)
+  if test "$libtool" = yes; then
+    "$@" "-Wp,-MDupdate,$tmpdepfile"
+  else
+    "$@" -MDupdate "$tmpdepfile"
+  fi
+  stat=$?
+  if test $stat -eq 0; then :
+  else
+    rm -f "$tmpdepfile"
+    exit $stat
+  fi
+  rm -f "$depfile"
+
+  if test -f "$tmpdepfile"; then  # yes, the sourcefile depend on other files
+    echo "$object : \\" > "$depfile"
+
+    # Clip off the initial element (the dependent).  Don't try to be
+    # clever and replace this with sed code, as IRIX sed won't handle
+    # lines with more than a fixed number of characters (4096 in
+    # IRIX 6.2 sed, 8192 in IRIX 6.5).  We also remove comment lines;
+    # the IRIX cc adds comments like `#:fec' to the end of the
+    # dependency line.
+    tr ' ' '
+' < "$tmpdepfile" \
+    | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \
+    tr '
+' ' ' >> $depfile
+    echo >> $depfile
+
+    # The second pass generates a dummy entry for each header file.
+    tr ' ' '
+' < "$tmpdepfile" \
+   | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \
+   >> $depfile
+  else
+    # The sourcefile does not contain any dependencies, so just
+    # store a dummy comment line, to avoid errors with the Makefile
+    # "include basename.Plo" scheme.
+    echo "#dummy" > "$depfile"
+  fi
+  rm -f "$tmpdepfile"
+  ;;
+
+aix)
+  # The C for AIX Compiler uses -M and outputs the dependencies
+  # in a .u file.  This file always lives in the current directory.
+  # Also, the AIX compiler puts `$object:' at the start of each line;
+  # $object doesn't have directory information.
+  stripped=`echo "$object" | sed -e 's,^.*/,,' -e 's/\(.*\)\..*$/\1/'`
+  tmpdepfile="$stripped.u"
+  outname="$stripped.o"
+  if test "$libtool" = yes; then
+    "$@" -Wc,-M
+  else
+    "$@" -M
+  fi
+
+  stat=$?
+  if test $stat -eq 0; then :
+  else
+    rm -f "$tmpdepfile"
+    exit $stat
+  fi
+
+  if test -f "$tmpdepfile"; then
+    # Each line is of the form `foo.o: dependent.h'.
+    # Do two passes, one to just change these to
+    # `$object: dependent.h' and one to simply `dependent.h:'.
+    sed -e "s,^$outname:,$object :," < "$tmpdepfile" > "$depfile"
+    sed -e "s,^$outname: \(.*\)$,\1:," < "$tmpdepfile" >> "$depfile"
+  else
+    # The sourcefile does not contain any dependencies, so just
+    # store a dummy comment line, to avoid errors with the Makefile
+    # "include basename.Plo" scheme.
+    echo "#dummy" > "$depfile"
+  fi
+  rm -f "$tmpdepfile"
+  ;;
+
+tru64)
+   # The Tru64 AIX compiler uses -MD to generate dependencies as a side
+   # effect.  `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'.
+   # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put 
+   # dependencies in `foo.d' instead, so we check for that too.
+   # Subdirectories are respected.
+
+   tmpdepfile1="$object.d"
+   tmpdepfile2=`echo "$object" | sed -e 's/.o$/.d/'` 
+   if test "$libtool" = yes; then
+      "$@" -Wc,-MD
+   else
+      "$@" -MD
+   fi
+
+   stat=$?
+   if test $stat -eq 0; then :
+   else
+      rm -f "$tmpdepfile1" "$tmpdepfile2"
+      exit $stat
+   fi
+
+   if test -f "$tmpdepfile1"; then
+      tmpdepfile="$tmpdepfile1"
+   else
+      tmpdepfile="$tmpdepfile2"
+   fi
+   if test -f "$tmpdepfile"; then
+      sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile"
+      # That's a space and a tab in the [].
+      sed -e 's,^.*\.[a-z]*:[ 	]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile"
+   else
+      echo "#dummy" > "$depfile"
+   fi
+   rm -f "$tmpdepfile"
+   ;;
+
+#nosideeffect)
+  # This comment above is used by automake to tell side-effect
+  # dependency tracking mechanisms from slower ones.
+
+dashmstdout)
+  # Important note: in order to support this mode, a compiler *must*
+  # always write the proprocessed file to stdout, regardless of -o,
+  # because we must use -o when running libtool.
+  test -z "$dashmflag" && dashmflag=-M
+  ( IFS=" "
+    case " $* " in
+    *" --mode=compile "*) # this is libtool, let us make it quiet
+      for arg
+      do # cycle over the arguments
+        case "$arg" in
+	"--mode=compile")
+	  # insert --quiet before "--mode=compile"
+	  set fnord "$@" --quiet
+	  shift # fnord
+	  ;;
+	esac
+	set fnord "$@" "$arg"
+	shift # fnord
+	shift # "$arg"
+      done
+      ;;
+    esac
+    "$@" $dashmflag | sed 's:^[^:]*\:[ 	]*:'"$object"'\: :' > "$tmpdepfile"
+  ) &
+  proc=$!
+  "$@"
+  stat=$?
+  wait "$proc"
+  if test "$stat" != 0; then exit $stat; fi
+  rm -f "$depfile"
+  cat < "$tmpdepfile" > "$depfile"
+  tr ' ' '
+' < "$tmpdepfile" | \
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly.  Breaking it into two sed invocations is a workaround.
+    sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+  rm -f "$tmpdepfile"
+  ;;
+
+dashXmstdout)
+  # This case only exists to satisfy depend.m4.  It is never actually
+  # run, as this mode is specially recognized in the preamble.
+  exit 1
+  ;;
+
+makedepend)
+  # X makedepend
+  (
+    shift
+    cleared=no
+    for arg in "$@"; do
+      case $cleared in no)
+        set ""; shift
+	cleared=yes
+      esac
+      case "$arg" in
+        -D*|-I*)
+	  set fnord "$@" "$arg"; shift;;
+	-*)
+	  ;;
+	*)
+	  set fnord "$@" "$arg"; shift;;
+      esac
+    done
+    obj_suffix="`echo $object | sed 's/^.*\././'`"
+    touch "$tmpdepfile"
+    ${MAKEDEPEND-makedepend} 2>/dev/null -o"$obj_suffix" -f"$tmpdepfile" "$@"
+  ) &
+  proc=$!
+  "$@"
+  stat=$?
+  wait "$proc"
+  if test "$stat" != 0; then exit $stat; fi
+  rm -f "$depfile"
+  cat < "$tmpdepfile" > "$depfile"
+  tail +3 "$tmpdepfile" | tr ' ' '
+' | \
+## Some versions of the HPUX 10.20 sed can't process this invocation
+## correctly.  Breaking it into two sed invocations is a workaround.
+    sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
+  rm -f "$tmpdepfile" "$tmpdepfile".bak
+  ;;
+
+cpp)
+  # Important note: in order to support this mode, a compiler *must*
+  # always write the proprocessed file to stdout, regardless of -o,
+  # because we must use -o when running libtool.
+  ( IFS=" "
+    case " $* " in
+    *" --mode=compile "*)
+      for arg
+      do # cycle over the arguments
+        case $arg in
+	"--mode=compile")
+	  # insert --quiet before "--mode=compile"
+	  set fnord "$@" --quiet
+	  shift # fnord
+	  ;;
+	esac
+	set fnord "$@" "$arg"
+	shift # fnord
+	shift # "$arg"
+      done
+      ;;
+    esac
+    "$@" -E |
+    sed -n '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' |
+    sed '$ s: \\$::' > "$tmpdepfile"
+  ) &
+  proc=$!
+  "$@"
+  stat=$?
+  wait "$proc"
+  if test "$stat" != 0; then exit $stat; fi
+  rm -f "$depfile"
+  echo "$object : \\" > "$depfile"
+  cat < "$tmpdepfile" >> "$depfile"
+  sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile"
+  rm -f "$tmpdepfile"
+  ;;
+
+msvisualcpp)
+  # Important note: in order to support this mode, a compiler *must*
+  # always write the proprocessed file to stdout, regardless of -o,
+  # because we must use -o when running libtool.
+  ( IFS=" "
+    case " $* " in
+    *" --mode=compile "*)
+      for arg
+      do # cycle over the arguments
+        case $arg in
+	"--mode=compile")
+	  # insert --quiet before "--mode=compile"
+	  set fnord "$@" --quiet
+	  shift # fnord
+	  ;;
+	esac
+	set fnord "$@" "$arg"
+	shift # fnord
+	shift # "$arg"
+      done
+      ;;
+    esac
+    "$@" -E |
+    sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::echo "`cygpath -u \\"\1\\"`":p' | sort | uniq > "$tmpdepfile"
+  ) &
+  proc=$!
+  "$@"
+  stat=$?
+  wait "$proc"
+  if test "$stat" != 0; then exit $stat; fi
+  rm -f "$depfile"
+  echo "$object : \\" > "$depfile"
+  . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::	\1 \\:p' >> "$depfile"
+  echo "	" >> "$depfile"
+  . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::\1\::p' >> "$depfile"
+  rm -f "$tmpdepfile"
+  ;;
+
+none)
+  exec "$@"
+  ;;
+
+*)
+  echo "Unknown depmode $depmode" 1>&2
+  exit 1
+  ;;
+esac
+
+exit 0
diff --git a/element707.c b/element707.c
index 1f1de7d..7100448 100644
--- a/element707.c
+++ b/element707.c
@@ -1,3 +1,22 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 #include "util707.h"
 #include <string.h> /* strdup() */
 
diff --git a/gui.c b/gui.c
index d292411..94fa5fa 100644
--- a/gui.c
+++ b/gui.c
@@ -1,240 +1,259 @@
-char tcl_gui[] = ""
-"# =========================================================================\n"
-"#	File gui.tcl\n"
-"#	GUI for TK-707\n"
-"# =========================================================================\n"
-"eval destroy [winfo child .]\n"
-"wm title . \"TK-707\"\n"
-"set font {Helvetica 14}\n"
-"wm iconify .\n"
-"# -------------------------------------------------------------------------\n"
-"# menu bar\n"
-"# -------------------------------------------------------------------------\n"
-"frame .mbar -borderwidth 1p -relief raised\n"
-"pack .mbar -fill x\n"
-"\n"
-"menubutton .mbar.file -text \"File\" -menu .mbar.file.m\n"
-"menubutton .mbar.midi -text \"Midi\" -menu .mbar.midi.m\n"
-"menubutton .mbar.map  -text \"Map\"  -menu .mbar.map.m\n"
-"pack .mbar.file -side left\n"
-"pack .mbar.midi -side left\n"
-"pack .mbar.map  -side left\n"
-"\n"
-"menubutton .mbar.help -text \"Help\"  -menu .mbar.help.m \n"
-"pack .mbar.help  -side right\n"
-"\n"
-"# -----------------------------------------------------------------------------\n"
-"# file menu\n"
-"# -----------------------------------------------------------------------------\n"
-"menu .mbar.file.m -tearoff 0\n"
-".mbar.file.m add command -label \"Load Data\" -command {load_data_file \".\"}   	\\\n"
-"					    -underline 0 		    	\\\n"
-"        				    -accelerator \"Ctrl-O\"\n"
-".mbar.file.m add command -label \"Load Demo\" -command {load_data_file $PKGDATADIR} \\\n"
-"					    -underline 0\n"
-".mbar.file.m add command -label \"Save Data\" -command {save_data_file} 		\\\n"
-"					    -underline 0 			\\\n"
-"					    -accelerator \"Ctrl-S\"\n"
-".mbar.file.m add command -label \"Ports\"     -command {port_setup} 		\\\n"
-"					    -underline 0\n"
-".mbar.file.m add command -label \"Quit\"      -command \"exit\" 			\\\n"
-"					    -underline 0 			\\\n"
-"					    -accelerator \"Ctrl-Q\"\n"
-"\n"
-"bind . <Control-q> { exit;}\n"
-"bind . <Control-o> { load_data_file \".\";}\n"
-"bind . <Control-s> { save_data_file;}\n"
-"\n"
-"# -----------------------------------------------------------------------------\n"
-"# midi & map menus\n"
-"# -----------------------------------------------------------------------------\n"
-"menu .mbar.midi.m -tearoff 0\n"
-"menu .mbar.map.m  -tearoff 0\n"
-"\n"
-".mbar.midi.m add command -label \"Save Midi Track\"  -command {save_midi_file} -underline 0\n"
-".mbar.midi.m add command -label \"Set MIDI Channel\" -command {ac_midi} -underline 0\n"
-"\n"
-"\n"
-".mbar.map.m add command -label \"Load Standard Sound Map\" -command {load_sound_map $PKGDATADIR} -underline 0\n"
-".mbar.map.m add command -label \"Load Local Sound Map\" -command {load_sound_map \".\"} -underline 0\n"
-".mbar.map.m add command -label \"Save Sound Map\" -command {save_sound_map} -underline 0\n"
-".mbar.map.m add command -label \"Edit Sound Map\" -command {map_edit} -underline 0\n"
-".mbar.map.m add command -label \"Edit Fader Map\" -command {fader_edit} -underline 0\n"
-"\n"
-"# TODO: next will put names on patterns for automatic score generation...\n"
-"# menu .mbar.pattern -tearoff 0\n"
-"# .mbar add cascade -menu .mbar.pattern -label \"Pattern\" -underline 0\n"
-"# .mbar.pattern add command -label \"Edit Comment\" -command {edit_pattern_comment} -underline 0\n"
-"\n"
-"# -----------------------------------------------------------------------------\n"
-"# help menu\n"
-"# -----------------------------------------------------------------------------\n"
-"menu .mbar.help.m -tearoff 0\n"
-"\n"
-".mbar.help.m add command -label \"About\"         -command {about}      -underline 0\n"
-".mbar.help.m add command -label \"User's Manual\" -command {UserManual} -underline 0\n"
-"\n"
-"\n"
-". configure -menu .mbar\n"
-"\n"
-"# =========================================================================\n"
-"# Frame for Grid & Volume controls\n"
-"# =========================================================================\n"
-"set grid_vols .gv\n"
-"eval frame $grid_vols $debug_relief\n"
-"pack $grid_vols -anchor c\n"
-"# --------------------------------------------------------------------------\n"
-"# Grid Display\n"
-"# --------------------------------------------------------------------------\n"
-"set display $grid_vols.d\n"
-"frame $display -relief groove -borderwidth 2p\n"
-"pack $display -side left\n"
-"frame $display.g\n"
-"pack $display.g ;#-side left\n"
-"set gridlabel $display.g.l		;	# Instrument label\n"
-"canvas $gridlabel -width 3c -height 9.0c\n"
-"set grid $display.g.c			;	# Pattern Grid\n"
-"canvas $grid -width 8.5c -height 9.0c\n"
-"pack $gridlabel $grid -side left\n"
-"# --------------------------------------------------------------------------\n"
-"# Status area\n"
-"# --------------------------------------------------------------------------\n"
-"set infosection $display.i		;	# to contain Tempo, Track & Mode widgets\n"
-"frame $infosection\n"
-"pack $infosection -side bottom\n"
-"set tempoinfo $infosection.t\n"
-"set tminfo $infosection.tm\n"
-"frame $tminfo\n"
-"canvas $tempoinfo -width 4c -height 2c -relief groove -borderwidth 2\n"
-"canvas $tminfo.t -width 7.5c -height 0.75c -relief groove -borderwidth 2\n"
-"canvas $tminfo.m -width 7.5c -height 1.25c -relief groove -borderwidth 2\n"
-"pack $tminfo.t $tminfo.m\n"
-"pack $tempoinfo $tminfo -side left -expand true -fill y\n"
-"# --------------------------------------------------------------------------\n"
-"# Volume controls\n"
-"# --------------------------------------------------------------------------\n"
-"set vcunit $grid_vols.cu\n"
-"eval frame $vcunit $debug_relief\n"
-"pack $vcunit -side left\n"
-"#\n"
-"# Controls + Notes Staff\n"
-"#\n"
-"set ctrls_notes_staff .cns\n"
-"frame $ctrls_notes_staff\n"
-"pack $ctrls_notes_staff -expand true -fill x\n"
-"# ==========================================================================\n"
-"# Controls\n"
-"# ==========================================================================\n"
-"set ctrl_height  4.0;\n"
-"set ctrls $ctrls_notes_staff.c\n"
-"frame $ctrls\n"
-"pack $ctrls -side top -expand true -fill x\n"
-"# ---------------------------------------\n"
-"# Scale lamps + Score + Notes/Instruments\n"
-"# ---------------------------------------\n"
-"set notes_staff $ctrls_notes_staff.ns\n"
-"frame $notes_staff\n"
-"pack $notes_staff -anchor s\n"
-"# ---------------------------------------\n"
-"# Transport control (Start/Cont)\n"
-"# ---------------------------------------\n"
-"set    stop_box $ctrls.stop_box\n"
-"eval canvas $stop_box -width 2.3c -height ${ctrl_height}c $debug_relief;\n"
-"pack   $stop_box -side left -anchor n ;\n"
-"set button_stop  $stop_box.stop\n"
-"label $stop_box.lt  -text STOP/CONT -font *-${boldfont13}-*\n"
-"radiobutton $button_stop -bitmap nix -width 1.45c -height 2.6c    \\\n"
-"        -variable ss -value stop -indicatoron false     \\\n"
-"        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n"
-"        -selectcolor $tkxox(but_grey_active)    \\\n"
-"        -command \"ac_stopgo $tkxox(CONT)\"\n"
-"$stop_box  create window 1.25c 0.4c -window $stop_box.lt\n"
-"$stop_box  create window 1.25c 2.2c -window $button_stop\n"
-"bind all <space> {\n"
-"        if {$mode(stopgo) == $tkxox(START)} {\n"
-"                $button_stop invoke\n"
-"        } else {\n"
-"                ac_stopgo $tkxox(START)\n"
-"                $button_start invoke\n"
-"        }\n"
-"}\n"
-"#\n"
-"# Transport control (start)\n"
-"#\n"
-"set     start_box $notes_staff.start_box\n"
-"canvas $start_box -width 2.3c -height 4.5c ;#-relief groove -borderwidth 4\n"
-"pack   $start_box -side left -anchor n ;#-expand true -fill y\n"
-"set button_start $start_box.start\n"
-"label $start_box.lb -text START     -font *-${boldfont13}-*\n"
-"radiobutton $button_start -bitmap nix -width 1.45c -height 2.6c   \\\n"
-"        -variable ss -value start -indicatoron false    \\\n"
-"        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n"
-"        -selectcolor $tkxox(but_grey_active)\n"
-"$start_box create window 1.25c 0.4c -window $start_box.lb\n"
-"$start_box create window 1.25c 2.1c -window $button_start\n"
-"bind $button_start <1> {ac_stopgo $tkxox(START)}\n"
-"# ================================================================\n"
-"# button controls\n"
-"# ================================================================\n"
-"set space_width  2.8;\n"
-"set misc_width   5.0;\n"
-"set st_width     4.0;\n"
-"set trpa_width   3.0;\n"
-"set grp_width    5.0;\n"
-"set accent_width 2.6;\n"
-"#\n"
-"# Empty Space : adjust vectical alignment with score\n"
-"#\n"
-"set empty_case $ctrls.z\n"
-"eval canvas $empty_case -width ${space_width}c -height ${ctrl_height}c \\\n"
-"	$debug_relief;\n"
-"pack   $empty_case -side left -anchor nw ;\n"
-"#\n"
-"# Clear/Scale/Last Step/Instrument Guide\n"
-"#\n"
-"set misc $ctrls.misc\n"
-"eval canvas $misc -width ${misc_width}c -height ${ctrl_height}c $debug_relief;\n"
-"pack $misc -side left -anchor n\n"
-"#\n"
-"# Shuffle/Flam Tempo/Measure controls\n"
-"#\n"
-"set st $ctrls.st\n"
-"eval canvas $st -width ${st_width}c -height ${ctrl_height}c $debug_relief;\n"
-"pack $st -side left -anchor n\n"
-"#\n"
-"# Track/Pattern Read/Write Control\n"
-"#\n"
-"set trpa $ctrls.trpa\n"
-"eval canvas $trpa -width 3c -height ${ctrl_height}c $debug_relief;\n"
-"pack $trpa -side left -anchor n\n"
-"#\n"
-"# Pattern Group & Track Number selection\n"
-"#\n"
-"set grps $ctrls.grps\n"
-"eval canvas $grps  -width 5c -height ${ctrl_height}c $debug_relief;\n"
-"pack $grps -side left -anchor n\n"
-"#\n"
-"# Accent/Enter\n"
-"#\n"
-"set accenter $ctrls.accenter\n"
-"eval canvas $accenter -width 2.6c -height ${ctrl_height}c $debug_relief;\n"
-"pack $accenter -side left -anchor n\n"
-"#\n"
-"# Tempo Dial\n"
-"#\n"
-"set dial $ctrls.dial\n"
-"eval frame $dial $debug_relief\n"
-"pack $dial -side left -expand true;\n"
-"# ---------------------------\n"
-"# Score + Notes/Instruments\n"
-"# ---------------------------\n"
-"set note_score $notes_staff.sc\n"
-"eval frame $note_score $debug_relief;\n"
-"pack $note_score\n"
-"# ---------------------------\n"
-"# Notes/Instruments\n"
-"# ---------------------------\n"
-"set notes $notes_staff.n;\n"
-"eval frame $notes $debug_relief;\n"
-"pack $notes -anchor w -side left\n"
-"";
+char tcl_gui[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# =========================================================================\n\
+#	File gui.tcl\n\
+#	GUI for TK-707\n\
+# =========================================================================\n\
+eval destroy [winfo child .]\n\
+wm title . \"TK-707\"\n\
+set font {Helvetica 14}\n\
+wm iconify .\n\
+# -------------------------------------------------------------------------\n\
+# menu bar\n\
+# -------------------------------------------------------------------------\n\
+frame .mbar -borderwidth 1p -relief raised\n\
+pack .mbar -fill x\n\
+\n\
+menubutton .mbar.file -text \"File\" -menu .mbar.file.m\n\
+menubutton .mbar.midi -text \"Midi\" -menu .mbar.midi.m\n\
+menubutton .mbar.map  -text \"Map\"  -menu .mbar.map.m\n\
+pack .mbar.file -side left\n\
+pack .mbar.midi -side left\n\
+pack .mbar.map  -side left\n\
+\n\
+menubutton .mbar.help -text \"Help\"  -menu .mbar.help.m \n\
+pack .mbar.help  -side right\n\
+\n\
+# -----------------------------------------------------------------------------\n\
+# file menu\n\
+# -----------------------------------------------------------------------------\n\
+menu .mbar.file.m -tearoff 0\n\
+.mbar.file.m add command -label \"Load Data\" -command {load_data_file \".\"}   	\\\n\
+					    -underline 0 		    	\\\n\
+        				    -accelerator \"Ctrl-O\"\n\
+.mbar.file.m add command -label \"Load Demo\" -command {load_data_file $PKGDATADIR} \\\n\
+					    -underline 0\n\
+.mbar.file.m add command -label \"Save Data\" -command {save_data_file} 		\\\n\
+					    -underline 0 			\\\n\
+					    -accelerator \"Ctrl-S\"\n\
+.mbar.file.m add command -label \"Ports\"     -command {port_setup} 		\\\n\
+					    -underline 0\n\
+.mbar.file.m add command -label \"Quit\"      -command \"exit\" 			\\\n\
+					    -underline 0 			\\\n\
+					    -accelerator \"Ctrl-Q\"\n\
+\n\
+bind . <Control-q> { exit;}\n\
+bind . <Control-o> { load_data_file \".\";}\n\
+bind . <Control-s> { save_data_file;}\n\
+\n\
+# -----------------------------------------------------------------------------\n\
+# midi & map menus\n\
+# -----------------------------------------------------------------------------\n\
+menu .mbar.midi.m -tearoff 0\n\
+menu .mbar.map.m  -tearoff 0\n\
+\n\
+.mbar.midi.m add command -label \"Save Midi Track\"  -command {save_midi_file} -underline 0\n\
+.mbar.midi.m add command -label \"Set MIDI Channel\" -command {ac_midi} -underline 0\n\
+\n\
+\n\
+.mbar.map.m add command -label \"Load Standard Sound Map\" -command {load_sound_map $PKGDATADIR} -underline 0\n\
+.mbar.map.m add command -label \"Load Local Sound Map\" -command {load_sound_map \".\"} -underline 0\n\
+.mbar.map.m add command -label \"Save Sound Map\" -command {save_sound_map} -underline 0\n\
+.mbar.map.m add command -label \"Edit Sound Map\" -command {map_edit} -underline 0\n\
+.mbar.map.m add command -label \"Edit Fader Map\" -command {fader_edit} -underline 0\n\
+\n\
+# TODO: next will put names on patterns for automatic score generation...\n\
+# menu .mbar.pattern -tearoff 0\n\
+# .mbar add cascade -menu .mbar.pattern -label \"Pattern\" -underline 0\n\
+# .mbar.pattern add command -label \"Edit Comment\" -command {edit_pattern_comment} -underline 0\n\
+\n\
+# -----------------------------------------------------------------------------\n\
+# help menu\n\
+# -----------------------------------------------------------------------------\n\
+menu .mbar.help.m -tearoff 0\n\
+\n\
+.mbar.help.m add command -label \"About\"         -command {about}      -underline 0\n\
+.mbar.help.m add command -label \"User's Manual\" -command {UserManual} -underline 0\n\
+\n\
+\n\
+. configure -menu .mbar\n\
+\n\
+# =========================================================================\n\
+# Frame for Grid & Volume controls\n\
+# =========================================================================\n\
+set grid_vols .gv\n\
+eval frame $grid_vols $debug_relief\n\
+pack $grid_vols -anchor c\n\
+# --------------------------------------------------------------------------\n\
+# Grid Display\n\
+# --------------------------------------------------------------------------\n\
+set display $grid_vols.d\n\
+frame $display -relief groove -borderwidth 2p\n\
+pack $display -side left\n\
+frame $display.g\n\
+pack $display.g ;#-side left\n\
+set gridlabel $display.g.l		;	# Instrument label\n\
+canvas $gridlabel -width 3c -height 9.0c\n\
+set grid $display.g.c			;	# Pattern Grid\n\
+canvas $grid -width 8.5c -height 9.0c\n\
+pack $gridlabel $grid -side left\n\
+# --------------------------------------------------------------------------\n\
+# Status area\n\
+# --------------------------------------------------------------------------\n\
+set infosection $display.i		;	# to contain Tempo, Track & Mode widgets\n\
+frame $infosection\n\
+pack $infosection -side bottom\n\
+set tempoinfo $infosection.t\n\
+set tminfo $infosection.tm\n\
+frame $tminfo\n\
+canvas $tempoinfo -width 4c -height 2c -relief groove -borderwidth 2\n\
+canvas $tminfo.t -width 7.5c -height 0.75c -relief groove -borderwidth 2\n\
+canvas $tminfo.m -width 7.5c -height 1.25c -relief groove -borderwidth 2\n\
+pack $tminfo.t $tminfo.m\n\
+pack $tempoinfo $tminfo -side left -expand true -fill y\n\
+# --------------------------------------------------------------------------\n\
+# Volume controls\n\
+# --------------------------------------------------------------------------\n\
+set vcunit $grid_vols.cu\n\
+eval frame $vcunit $debug_relief\n\
+pack $vcunit -side left\n\
+#\n\
+# Controls + Notes Staff\n\
+#\n\
+set ctrls_notes_staff .cns\n\
+frame $ctrls_notes_staff\n\
+pack $ctrls_notes_staff -expand true -fill x\n\
+# ==========================================================================\n\
+# Controls\n\
+# ==========================================================================\n\
+set ctrl_height  4.0;\n\
+set ctrls $ctrls_notes_staff.c\n\
+frame $ctrls\n\
+pack $ctrls -side top -expand true -fill x\n\
+# ---------------------------------------\n\
+# Scale lamps + Score + Notes/Instruments\n\
+# ---------------------------------------\n\
+set notes_staff $ctrls_notes_staff.ns\n\
+frame $notes_staff\n\
+pack $notes_staff -anchor s\n\
+# ---------------------------------------\n\
+# Transport control (Start/Cont)\n\
+# ---------------------------------------\n\
+set    stop_box $ctrls.stop_box\n\
+eval canvas $stop_box -width 2.3c -height ${ctrl_height}c $debug_relief;\n\
+pack   $stop_box -side left -anchor n ;\n\
+set button_stop  $stop_box.stop\n\
+label $stop_box.lt  -text STOP/CONT -font *-${boldfont13}-*\n\
+radiobutton $button_stop -bitmap nix -width 1.45c -height 2.6c    \\\n\
+        -variable ss -value stop -indicatoron false     \\\n\
+        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n\
+        -selectcolor $tkxox(but_grey_active)    \\\n\
+        -command \"ac_stopgo $tkxox(CONT)\"\n\
+$stop_box  create window 1.25c 0.4c -window $stop_box.lt\n\
+$stop_box  create window 1.25c 2.2c -window $button_stop\n\
+bind all <space> {\n\
+        if {$mode(stopgo) == $tkxox(START)} {\n\
+                $button_stop invoke\n\
+        } else {\n\
+                ac_stopgo $tkxox(START)\n\
+                $button_start invoke\n\
+        }\n\
+}\n\
+#\n\
+# Transport control (start)\n\
+#\n\
+set     start_box $notes_staff.start_box\n\
+canvas $start_box -width 2.3c -height 4.5c ;#-relief groove -borderwidth 4\n\
+pack   $start_box -side left -anchor n ;#-expand true -fill y\n\
+set button_start $start_box.start\n\
+label $start_box.lb -text START     -font *-${boldfont13}-*\n\
+radiobutton $button_start -bitmap nix -width 1.45c -height 2.6c   \\\n\
+        -variable ss -value start -indicatoron false    \\\n\
+        -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)  \\\n\
+        -selectcolor $tkxox(but_grey_active)\n\
+$start_box create window 1.25c 0.4c -window $start_box.lb\n\
+$start_box create window 1.25c 2.1c -window $button_start\n\
+bind $button_start <1> {ac_stopgo $tkxox(START)}\n\
+# ================================================================\n\
+# button controls\n\
+# ================================================================\n\
+set space_width  2.8;\n\
+set misc_width   5.0;\n\
+set st_width     4.0;\n\
+set trpa_width   3.0;\n\
+set grp_width    5.0;\n\
+set accent_width 2.6;\n\
+#\n\
+# Empty Space : adjust vectical alignment with score\n\
+#\n\
+set empty_case $ctrls.z\n\
+eval canvas $empty_case -width ${space_width}c -height ${ctrl_height}c \\\n\
+	$debug_relief;\n\
+pack   $empty_case -side left -anchor nw ;\n\
+#\n\
+# Clear/Scale/Last Step/Instrument Guide\n\
+#\n\
+set misc $ctrls.misc\n\
+eval canvas $misc -width ${misc_width}c -height ${ctrl_height}c $debug_relief;\n\
+pack $misc -side left -anchor n\n\
+#\n\
+# Shuffle/Flam Tempo/Measure controls\n\
+#\n\
+set st $ctrls.st\n\
+eval canvas $st -width ${st_width}c -height ${ctrl_height}c $debug_relief;\n\
+pack $st -side left -anchor n\n\
+#\n\
+# Track/Pattern Read/Write Control\n\
+#\n\
+set trpa $ctrls.trpa\n\
+eval canvas $trpa -width 3c -height ${ctrl_height}c $debug_relief;\n\
+pack $trpa -side left -anchor n\n\
+#\n\
+# Pattern Group & Track Number selection\n\
+#\n\
+set grps $ctrls.grps\n\
+eval canvas $grps  -width 5c -height ${ctrl_height}c $debug_relief;\n\
+pack $grps -side left -anchor n\n\
+#\n\
+# Accent/Enter\n\
+#\n\
+set accenter $ctrls.accenter\n\
+eval canvas $accenter -width 2.6c -height ${ctrl_height}c $debug_relief;\n\
+pack $accenter -side left -anchor n\n\
+#\n\
+# Tempo Dial\n\
+#\n\
+set dial $ctrls.dial\n\
+eval frame $dial $debug_relief\n\
+pack $dial -side left -expand true;\n\
+# ---------------------------\n\
+# Score + Notes/Instruments\n\
+# ---------------------------\n\
+set note_score $notes_staff.sc\n\
+eval frame $note_score $debug_relief;\n\
+pack $note_score\n\
+# ---------------------------\n\
+# Notes/Instruments\n\
+# ---------------------------\n\
+set notes $notes_staff.n;\n\
+eval frame $notes $debug_relief;\n\
+pack $notes -anchor w -side left\n\
+";
diff --git a/gui.tcl b/gui.tcl
index 41f78fa..f3449a3 100644
--- a/gui.tcl
+++ b/gui.tcl
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 # =========================================================================
 #	File gui.tcl
 #	GUI for TK-707
diff --git a/help.c b/help.c
index 0d5b090..c692d10 100644
--- a/help.c
+++ b/help.c
@@ -1,384 +1,403 @@
-char tcl_help[] = ""
-"# =================================================================\n"
-"# The Help Module\n"
-"# =================================================================\n"
-"\n"
-"set HELP(UserGuide) $PKGDATADIR/tk707.help\n"
-"\n"
-"# ----------------------------------------------------------\n"
-"# formatText\n"
-"# ----------------------------------------------------------\n"
-"# This procedure tags the text in a text widget (if format is true),\n"
-"# based on the character in \"char\". \n"
-"# Text Marks \"first\" and \"last\" need to have been set prior to calling \n"
-"# the procedure. These mark the range of characters to be tagged.\n"
-"# The parameters are as follows:\n"
-"# w	: is the path of the text widget.\n"
-"# char  : is the character determining which tag is to be set.\n"
-"# 	  The current valid characters are:\n"
-"#		u  : underline\n"
-"#		i  : italic\n"
-"#		c  : command\n"
-"#		Cn : Content item, n is a positive integer. \n"
-"#		t  : title\n"
-"#		h  : highlight\n"
-"#		@  : keep the @ character.		\n"
-"# format : is a boolean value, which when true causes the text to be formatted.\n"
-"#  	   when false it removes all format information from the text\n"
-"#	   without tagging\n"
-"proc formatText { w char {format 1} } {\n"
-"   global HELP\n"
-"\n"
-"   # Format the text.\n"
-"   if {$format} {\n"
-"	switch $char {\n"
-"		u { 	$w delete last \"last + 1 chars\"\n"
-"			$w tag add underline \"last\" \"last wordend\"\n"
-"		  }\n"
-"		@ { 	$w insert first @ }\n"
-"		c { 	$w delete last \"last + 1 chars\"\n"
-"			$w tag add command \"last\" \"last wordend\"\n"
-"		  }\n"
-"		C {	\n"
-"			set tab \"\"\n"
-"			set tabs [$w get \"last + 1 chars\" \"last + 2 chars\"]\n"
-"			$w delete last \"last + 2 chars\"\n"
-"			while {$tabs} {\n"
-"			    set tab \"$tab      \" ;\n"
-"			    incr tabs -1\n"
-"			}\n"
-"			lappend HELP(Contents)\\\n"
-"			 [list \"$tab[$w get \"first\" \"first lineend\"]\" \\\n"
-"				[$w index first]]\n"
-"		  }\n"
-"		t { 	$w delete last \"last + 1 chars\"\n"
-"			$w tag add title \"last\" \"last lineend\"\n"
-"		  }\n"
-"		h {	$w delete last \"last + 1 chars\"\n"
-"			$w tag add highlight \"last\" \"last wordend\"\n"
-"		  }\n"
-"		i {	$w delete last \"last + 1 chars\"\n"
-"			$w tag add italic \"last\" \"last wordend\"\n"
-"		  }\n"
-"	default { }\n"
-"	}\n"
-"\n"
-"   # Remove all format data without formatting.\n"
-"   }  else {\n"
-"	set ok 0\n"
-"	foreach i {u c C t h i} {\n"
-"		if {$i==$char} { \n"
-"			$w delete last \"last + 1 chars\"\n"
-"			set ok 1 \n"
-"		}\n"
-"	}\n"
-"		if {!$ok} { $w insert last @ }\n"
-"  }\n"
-"}\n"
-"# ----------------------------------------------------------\n"
-"# Set Help globals.\n"
-"# ----------------------------------------------------------\n"
-"set HELP(BG) snow2\n"
-"set HELP(FG) black\n"
-"set HELP(AFG) grey\n"
-"set HELP(HIL) red\n"
-"set HELP(COM) DarkGreen\n"
-"set HELP(Log) \"0\"\n"
-"\n"
-"# ----------------------------------------------------------\n"
-"# about\n"
-"# ----------------------------------------------------------\n"
-"proc about {} {\n"
-"  global VERSION\n"
-"  if {[winfo exists .about]} {\n"
-"    wm deiconify .about\n"
-"  } else {\n"
-"    toplevel .about\n"
-"    wm title .about \"About tk707...\"\n"
-"    label    .about.label -text \"\n"
-"TK 707\\n\n"
-"version $VERSION\\n\n"
-"\n"
-"Copyright(C) 2000, 2001\\n\n"
-"Chris Willing <chris@vislab.usyd.edu.au>,\\n\n"
-"Pierre Saramito <pierre.saramito@imag.fr>.\\n\n"
-"\n"
-"Go to the Help menu for the complete documentation.\n"
-"This documentation is available in HTML and INFO formats.\n"
-"Type `man tk707` to access the on-line reference manual.\n"
-"\n"
-"The tk707 documentation is also available in html, pdf, postscript and\n"
-"dvi formats from\\n\n"
-"http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707\n"
-"http://www.vislab.usyd.edu.au/staff/chris/tk707\n"
-"\n"
-"Send comments and requests, bugs, suggestions and mods \n"
-"to the both authors.\"\n"
-"\n"
-"    frame    .about.sep -width 100p -height 2p -borderwidth 1p -relief sunken\n"
-"    button   .about.dismiss -text \"Dissmiss\" -command {wm iconify .about}\n"
-"    pack     .about.label\n"
-"    pack     .about.dismiss -side bottom -pady 4p\n"
-"    pack     .about.sep     -side bottom -fill x -pady 4p\n"
-"  }\n"
-"}\n"
-"# ----------------------------------------------------------\n"
-"# UserManual\n"
-"# ----------------------------------------------------------\n"
-"# This procedure is the callback to to the Help-User's Manual menu item.\n"
-"# It creates a pop-up window containing the user's manual, with a few \n"
-"# basic highlighting and goto features.\n"
-"proc UserManual {} {\n"
-"   global HELP FILE\n"
-"\n"
-"   # Only procede if the help window is non-existant.	\n"
-"   if {![winfo exists .help]} {\n"
-"	set HELP(Contents) \"\"\n"
-"\n"
-"	# Create the toplevel window.\n"
-"	toplevel .help -bg $HELP(BG)\n"
-"	# Set the geometry\n"
-"	wm geometry .help 80x25\n"
-"	wm title .help \"Tk-707 User's Guide\"\n"
-"	# Set the Icon information.\n"
-"	wm iconname .help Help\n"
-"\n"
-"	# Create the buttons panel (Contents, Back, Exit)\n"
-"	frame .help.buttons -bg $HELP(BG) -relief ridge -bd 4\n"
-"	# Create the Contents button.\n"
-"	button .help.buttons.contents\\\n"
-"			-text Contents\\\n"
-"			-bg $HELP(AFG)\\\n"
-"			-fg $HELP(FG)\\\n"
-"			-activeforeground $HELP(FG)\\\n"
-"			-activebackground $HELP(AFG)\\\n"
-"			-width 10\\\n"
-"			-command {.help.help.text yview 0}\n"
-"	# Create the Back button.\n"
-"	button .help.buttons.prev\\\n"
-"			-text Back\\\n"
-"			-bg $HELP(AFG)\\\n"
-"			-fg $HELP(FG)\\\n"
-"			-width 10\\\n"
-"			-activebackground $HELP(AFG)\\\n"
-"			-command {\n"
-" 				set end [expr [llength $HELP(Log)]-1]\n"
-"				set value [lindex $HELP(Log) [expr $end-1]]\n"
-"				.help.help.text yview $value\n"
-"				set HELP(Log) [lreplace $HELP(Log) $end $end]\n"
-"			        }\n"
-"	# Create the Exit button.\n"
-"	button .help.buttons.exit\\\n"
-"			-text Exit\\\n"
-"			-bg $HELP(AFG)\\\n"
-"			-fg $HELP(FG)\\\n"
-"			-activeforeground $HELP(FG)\\\n"
-"			-activebackground $HELP(AFG)\\\n"
-"			-width 10\\\n"
-"			-command {destroy .help}\n"
-"\n"
-"        # Procedure to call when HELP(Log) is written\n"
-"        proc setlog {nm1 nm2 op} {\n"
-"	  global HELP\n"
-"	  if {$HELP(Log)==0} {\n"
-"	    .help.buttons.prev config -state disabled \n"
-"	  } else {\n"
-"	    .help.buttons.prev config -state normal\n"
-"	  }\n"
-"	}\n"
-"\n"
-"	# Set a variable trace on the Help(Log) variable to ensure that\n"
-"	# the Back button is disabled when the log is empty.\n"
-"        trace variable HELP(Log) w setlog\n"
-"\n"
-"	# Set the current state of the Back button.\n"
-"	set HELP(Log) $HELP(Log)\n"
-"\n"
-"	# Pack the buttons.\n"
-"	pack 	.help.buttons.contents \\\n"
-"		.help.buttons.prev\\\n"
-"		.help.buttons.exit\\\n"
-"		-side left -anchor w\n"
-"\n"
-"	pack .help.buttons  -anchor w -fill x\n"
-"\n"
-"	# Create and pack the text widget (with scrollbar)\n"
-"	setupText .help.help\n"
-"\n"
-"	# Load the User's Guide into widget and generate contents list.\n"
-"	loadFile .help.help.text $HELP(UserGuide)\n"
-"\n"
-"	# Insert the contents list.\n"
-"	set i 1\n"
-"	foreach item $HELP(Contents) {\n"
-"		.help.help.text insert $i.0 [format \"[lindex $item 0]\\n\"]\n"
-"		.help.help.text tag add content $i.0 \"$i.0 lineend\"\n"
-"		incr i\n"
-"	}\n"
-"	incr i 2\n"
-"	# Insert the \"Contents\" title.\n"
-"	.help.help.text insert 1.0 [format \"Contents\\n\\n\"]\n"
-"	# Give it the format of a title.\n"
-"	.help.help.text tag add title 1.0 \"1.0 lineend\"\n"
-"	# Store the number of lines added after Contents line.\n"
-"	set xtraLinesBefore 2\n"
-"	\n"
-"	# Add 3 blank lines after contents.\n"
-"	# This has to be stored for later\n"
-"	set xtraLinesAfter 3\n"
-"	.help.help.text insert $i.0 [format \"\\n\\n\\n\"]\n"
-"	# Strip the Format code from the Contents list\n"
-"	forAllMatches .help.help.text @ {\n"
-"		.help.help.text delete first last\n"
-"		set char [.help.help.text get last \"last+ 1 chars\"]\n"
-"		formatText .help.help.text $char 0\n"
-"	}\n"
-"	# Configure and Bind content list.\n"
-"	# A different cursor when above the item\n"
-"	.help.help.text tag bind content <Any-Enter> \\\n"
-"		\".help.help.text configure -cursor arrow\"\n"
-"	.help.help.text tag bind content <Any-Leave> \\\n"
-"		\".help.help.text configure -cursor {}\"\n"
-"	# Skip to the relevant line.\n"
-"	.help.help.text tag bind content <Button-1>\\\n"
-"	  \"set index \\[ expr \\[lindex \\[split \\[%W index @%x,%y\\] .\\] 0\\]\\\n"
-"			-(1 +$xtraLinesBefore)\\]\n"
-"	   set goto \\[expr \\[lindex \\[lindex \\$HELP(Contents) \\$index\\] 1\\] +2\\\n"
-"	   		+$xtraLinesAfter +\\[llength \\$HELP(Contents)\\]\\]\n"
-"\n"
-" 	   # Store in the log.\n"
-"	   lappend HELP(Log) \\$goto\n"
-"\n"
-"	   # Adjust the view to the selected line.\n"
-"	   %W yview \\$goto\"\n"
-"   } else {\n"
-"	# Bring  the user manual to the front.\n"
-"	# I am not using raise since it doesn't generally work for olwm.\n"
-"	wm withdraw .help\n"
-"	wm deiconify .help\n"
-"   }\n"
-"}\n"
-"\n"
-"# ----------------------------------------------------------\n"
-"# setupText\n"
-"# ----------------------------------------------------------\n"
-"# This procedure creates a text widget and scroll bar.\n"
-"# The parameter \"w\" is a path for the combined widget.\n"
-"proc setupText {w} {\n"
-"   global HELP\n"
-"\n"
-"   #Create Widgets if the path name is valid.\n"
-"   if {![winfo exists $w]} {\n"
-"	# Create the general frame.\n"
-"	frame $w\n"
-"\n"
-"	# Create the text widget.\n"
-"	# The configuration option \"setgrid\" sets up gridded \n"
-"	# window management.\n"
-"	text $w.text 	-yscrollcommand \"$w.scroll set\"\\\n"
-"			-setgrid 1 \\\n"
-"			-wrap word\n"
-"	# Create the scrollbar.\n"
-"	scrollbar $w.scroll -command \"$w.text yview\"\n"
-"\n"
-"	# Pack the widget.\n"
-"	pack $w.text  -fill both -expand 1 -side left\n"
-"	pack $w.scroll -side left -fill y -expand 1\n"
-"	pack $w -fill both -expand 1\n"
-"   }\n"
-"\n"
-"   # Configure the Widgets.\n"
-"   $w config -bg $HELP(BG)\n"
-"   $w.text config\\\n"
-"		-background $HELP(BG)\\\n"
-"		-foreground $HELP(FG)\\\n"
-"		-cursor {}\\\n"
-"		-font -adobe-helvetica-medium-r-normal--12-120-*\\\n"
-"		-exportselection 0\n"
-"\n"
-"   $w.scroll config -background $HELP(BG)\n"
-"\n"
-"   # Remove the default bindings that make the text widget editable.\n"
-"   bind $w.text <Any-KeyPress> { }\n"
-"   bind $w.text <Any-Button> { }\n"
-"   bind $w.text <Any-B1-Motion> { }\n"
-"\n"
-"   # Set the configuration for text tags.\n"
-"   # Underline.\n"
-"   $w.text tag configure underline -underline 1\n"
-"   # Command\n"
-"   $w.text tag configure command \\\n"
-"		-foreground DarkGreen\\\n"
-"		-font -adobe-helvetica-medium-r-normal--14-140-*\n"
-"   $w.text tag bind command <Button-1> { \n"
-"		puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n"
-"   $w.text tag bind command <Any-Enter> \"$w.text configure -cursor arrow\"\n"
-"   $w.text tag bind command <Any-Leave> \"$w.text configure -cursor {}\"\n"
-"   # Content\n"
-"   $w.text tag configure content \\\n"
-"		-foreground DarkGreen \\\n"
-"		-font -adobe-helvetica-medium-r-normal--14-140-*\n"
-"   # Title.\n"
-"   $w.text tag configure title -font -adobe-helvetica-medium-r-normal--24-240-*\n"
-"   # Italic\n"
-"   $w.text tag configure italic -font -adobe-helvetica-medium-o-normal--12-120-*\n"
-"   # Highlight.\n"
-"   $w.text tag configure highlight -foreground red\n"
-"}\n"
-"\n"
-"\n"
-"# ----------------------------------------------------------\n"
-"# loadFile\n"
-"# ----------------------------------------------------------\n"
-"# This procedure load a text file given by \"file\" formatted with a \n"
-"# simple form of hyper-text into the text widget given by \"w\". And\n"
-"# format it.\n"
-"proc loadFile {w file} {\n"
-"   # Delete all previous text in the text widget.\n"
-"   $w delete 1.0 end\n"
-"\n"
-"   # Open the text file.\n"
-"   set f [open $file]\n"
-"\n"
-"   # Insert the text into the text widget.\n"
-"   while {![eof $f]} {\n"
-"	$w insert end [read $f 1000]\n"
-"   }\n"
-"	\n"
-"   # Close the text file.\n"
-"   close $f\n"
-"\n"
-"   # Format the text. This is done by looking for all the \"@\" in the\n"
-"   # text widget, deleting it and sending the following character to\n"
-"   # the procedure formaText, which tags the text appropriately.\n"
-"	forAllMatches $w @ {\n"
-"		$w delete first last\n"
-"		set char [$w get last \"last+ 1 chars\"]\n"
-"		formatText $w $char\n"
-"	}\n"
-"}\n"
-"\n"
-"# ----------------------------------------------------------\n"
-"# forAllMatches\n"
-"# ----------------------------------------------------------\n"
-"# This procedure takes three arguments: the name of a text widget, \n"
-"# a regular expression pattern and a script. \n"
-"# It finds all of the ranges of characters that match the pattern. \n"
-"# For each matching range forAllMatches sets the marks first and last \n"
-"# to the beginning and end of the of the range, then it invokes the \n"
-"# script.\n"
-"# This procedure has been taken from John K. Ousterhout's book,\n"
-"# Tcl and the Tk Toolkit (1994) p.219. \n"
-"proc forAllMatches {w pattern script} {\n"
-"	scan [$w index end] %d numLines\n"
-"	for {set i 1} {$i<=$numLines} {incr i } {\n"
-"	   $w mark set last $i.0\n"
-"	   while {[regexp -indices $pattern \\\n"
-"		  [$w get last \"last lineend\" ] indices ] } {\n"
-"		$w mark set first \"last + [lindex $indices 0] chars\"\n"
-"		$w mark set last \"last + 1 chars +[lindex $indices 1] chars\"\n"
-"		uplevel $script\n"
-"	   }\n"
-"	}\n"
-"}\n"
-"";
+char tcl_help[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# =================================================================\n\
+# The Help Module\n\
+# =================================================================\n\
+\n\
+set HELP(UserGuide) $PKGDATADIR/tk707.help\n\
+\n\
+# ----------------------------------------------------------\n\
+# formatText\n\
+# ----------------------------------------------------------\n\
+# This procedure tags the text in a text widget (if format is true),\n\
+# based on the character in \"char\". \n\
+# Text Marks \"first\" and \"last\" need to have been set prior to calling \n\
+# the procedure. These mark the range of characters to be tagged.\n\
+# The parameters are as follows:\n\
+# w	: is the path of the text widget.\n\
+# char  : is the character determining which tag is to be set.\n\
+# 	  The current valid characters are:\n\
+#		u  : underline\n\
+#		i  : italic\n\
+#		c  : command\n\
+#		Cn : Content item, n is a positive integer. \n\
+#		t  : title\n\
+#		h  : highlight\n\
+#		@  : keep the @ character.		\n\
+# format : is a boolean value, which when true causes the text to be formatted.\n\
+#  	   when false it removes all format information from the text\n\
+#	   without tagging\n\
+proc formatText { w char {format 1} } {\n\
+   global HELP\n\
+\n\
+   # Format the text.\n\
+   if {$format} {\n\
+	switch $char {\n\
+		u { 	$w delete last \"last + 1 chars\"\n\
+			$w tag add underline \"last\" \"last wordend\"\n\
+		  }\n\
+		@ { 	$w insert first @ }\n\
+		c { 	$w delete last \"last + 1 chars\"\n\
+			$w tag add command \"last\" \"last wordend\"\n\
+		  }\n\
+		C {	\n\
+			set tab \"\"\n\
+			set tabs [$w get \"last + 1 chars\" \"last + 2 chars\"]\n\
+			$w delete last \"last + 2 chars\"\n\
+			while {$tabs} {\n\
+			    set tab \"$tab      \" ;\n\
+			    incr tabs -1\n\
+			}\n\
+			lappend HELP(Contents)\\\n\
+			 [list \"$tab[$w get \"first\" \"first lineend\"]\" \\\n\
+				[$w index first]]\n\
+		  }\n\
+		t { 	$w delete last \"last + 1 chars\"\n\
+			$w tag add title \"last\" \"last lineend\"\n\
+		  }\n\
+		h {	$w delete last \"last + 1 chars\"\n\
+			$w tag add highlight \"last\" \"last wordend\"\n\
+		  }\n\
+		i {	$w delete last \"last + 1 chars\"\n\
+			$w tag add italic \"last\" \"last wordend\"\n\
+		  }\n\
+	default { }\n\
+	}\n\
+\n\
+   # Remove all format data without formatting.\n\
+   }  else {\n\
+	set ok 0\n\
+	foreach i {u c C t h i} {\n\
+		if {$i==$char} { \n\
+			$w delete last \"last + 1 chars\"\n\
+			set ok 1 \n\
+		}\n\
+	}\n\
+		if {!$ok} { $w insert last @ }\n\
+  }\n\
+}\n\
+# ----------------------------------------------------------\n\
+# Set Help globals.\n\
+# ----------------------------------------------------------\n\
+set HELP(BG) snow2\n\
+set HELP(FG) black\n\
+set HELP(AFG) grey\n\
+set HELP(HIL) red\n\
+set HELP(COM) DarkGreen\n\
+set HELP(Log) \"0\"\n\
+\n\
+# ----------------------------------------------------------\n\
+# about\n\
+# ----------------------------------------------------------\n\
+proc about {} {\n\
+  global VERSION\n\
+  if {[winfo exists .about]} {\n\
+    wm deiconify .about\n\
+  } else {\n\
+    toplevel .about\n\
+    wm title .about \"About tk707...\"\n\
+    label    .about.label -text \"\n\
+TK 707\\n\n\
+version $VERSION\\n\n\
+\n\
+Copyright(C) 2000, 2001\\n\n\
+Chris Willing <chris@vislab.usyd.edu.au>,\\n\n\
+Pierre Saramito <pierre.saramito@imag.fr>.\\n\n\
+\n\
+Go to the Help menu for the complete documentation.\n\
+This documentation is available in HTML and INFO formats.\n\
+Type `man tk707` to access the on-line reference manual.\n\
+\n\
+The tk707 documentation is also available in html, pdf, postscript and\n\
+dvi formats from\\n\n\
+http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707\n\
+http://www.vislab.usyd.edu.au/staff/chris/tk707\n\
+\n\
+Send comments and requests, bugs, suggestions and mods \n\
+to the both authors.\"\n\
+\n\
+    frame    .about.sep -width 100p -height 2p -borderwidth 1p -relief sunken\n\
+    button   .about.dismiss -text \"Dissmiss\" -command {wm iconify .about}\n\
+    pack     .about.label\n\
+    pack     .about.dismiss -side bottom -pady 4p\n\
+    pack     .about.sep     -side bottom -fill x -pady 4p\n\
+  }\n\
+}\n\
+# ----------------------------------------------------------\n\
+# UserManual\n\
+# ----------------------------------------------------------\n\
+# This procedure is the callback to to the Help-User's Manual menu item.\n\
+# It creates a pop-up window containing the user's manual, with a few \n\
+# basic highlighting and goto features.\n\
+proc UserManual {} {\n\
+   global HELP FILE\n\
+\n\
+   # Only procede if the help window is non-existant.	\n\
+   if {![winfo exists .help]} {\n\
+	set HELP(Contents) \"\"\n\
+\n\
+	# Create the toplevel window.\n\
+	toplevel .help -bg $HELP(BG)\n\
+	# Set the geometry\n\
+	wm geometry .help 80x25\n\
+	wm title .help \"Tk-707 User's Guide\"\n\
+	# Set the Icon information.\n\
+	wm iconname .help Help\n\
+\n\
+	# Create the buttons panel (Contents, Back, Exit)\n\
+	frame .help.buttons -bg $HELP(BG) -relief ridge -bd 4\n\
+	# Create the Contents button.\n\
+	button .help.buttons.contents\\\n\
+			-text Contents\\\n\
+			-bg $HELP(AFG)\\\n\
+			-fg $HELP(FG)\\\n\
+			-activeforeground $HELP(FG)\\\n\
+			-activebackground $HELP(AFG)\\\n\
+			-width 10\\\n\
+			-command {.help.help.text yview 0}\n\
+	# Create the Back button.\n\
+	button .help.buttons.prev\\\n\
+			-text Back\\\n\
+			-bg $HELP(AFG)\\\n\
+			-fg $HELP(FG)\\\n\
+			-width 10\\\n\
+			-activebackground $HELP(AFG)\\\n\
+			-command {\n\
+ 				set end [expr [llength $HELP(Log)]-1]\n\
+				set value [lindex $HELP(Log) [expr $end-1]]\n\
+				.help.help.text yview $value\n\
+				set HELP(Log) [lreplace $HELP(Log) $end $end]\n\
+			        }\n\
+	# Create the Exit button.\n\
+	button .help.buttons.exit\\\n\
+			-text Exit\\\n\
+			-bg $HELP(AFG)\\\n\
+			-fg $HELP(FG)\\\n\
+			-activeforeground $HELP(FG)\\\n\
+			-activebackground $HELP(AFG)\\\n\
+			-width 10\\\n\
+			-command {destroy .help}\n\
+\n\
+        # Procedure to call when HELP(Log) is written\n\
+        proc setlog {nm1 nm2 op} {\n\
+	  global HELP\n\
+	  if {$HELP(Log)==0} {\n\
+	    .help.buttons.prev config -state disabled \n\
+	  } else {\n\
+	    .help.buttons.prev config -state normal\n\
+	  }\n\
+	}\n\
+\n\
+	# Set a variable trace on the Help(Log) variable to ensure that\n\
+	# the Back button is disabled when the log is empty.\n\
+        trace variable HELP(Log) w setlog\n\
+\n\
+	# Set the current state of the Back button.\n\
+	set HELP(Log) $HELP(Log)\n\
+\n\
+	# Pack the buttons.\n\
+	pack 	.help.buttons.contents \\\n\
+		.help.buttons.prev\\\n\
+		.help.buttons.exit\\\n\
+		-side left -anchor w\n\
+\n\
+	pack .help.buttons  -anchor w -fill x\n\
+\n\
+	# Create and pack the text widget (with scrollbar)\n\
+	setupText .help.help\n\
+\n\
+	# Load the User's Guide into widget and generate contents list.\n\
+	loadFile .help.help.text $HELP(UserGuide)\n\
+\n\
+	# Insert the contents list.\n\
+	set i 1\n\
+	foreach item $HELP(Contents) {\n\
+		.help.help.text insert $i.0 [format \"[lindex $item 0]\\n\"]\n\
+		.help.help.text tag add content $i.0 \"$i.0 lineend\"\n\
+		incr i\n\
+	}\n\
+	incr i 2\n\
+	# Insert the \"Contents\" title.\n\
+	.help.help.text insert 1.0 [format \"Contents\\n\\n\"]\n\
+	# Give it the format of a title.\n\
+	.help.help.text tag add title 1.0 \"1.0 lineend\"\n\
+	# Store the number of lines added after Contents line.\n\
+	set xtraLinesBefore 2\n\
+	\n\
+	# Add 3 blank lines after contents.\n\
+	# This has to be stored for later\n\
+	set xtraLinesAfter 3\n\
+	.help.help.text insert $i.0 [format \"\\n\\n\\n\"]\n\
+	# Strip the Format code from the Contents list\n\
+	forAllMatches .help.help.text @ {\n\
+		.help.help.text delete first last\n\
+		set char [.help.help.text get last \"last+ 1 chars\"]\n\
+		formatText .help.help.text $char 0\n\
+	}\n\
+	# Configure and Bind content list.\n\
+	# A different cursor when above the item\n\
+	.help.help.text tag bind content <Any-Enter> \\\n\
+		\".help.help.text configure -cursor arrow\"\n\
+	.help.help.text tag bind content <Any-Leave> \\\n\
+		\".help.help.text configure -cursor {}\"\n\
+	# Skip to the relevant line.\n\
+	.help.help.text tag bind content <Button-1>\\\n\
+	  \"set index \\[ expr \\[lindex \\[split \\[%W index @%x,%y\\] .\\] 0\\]\\\n\
+			-(1 +$xtraLinesBefore)\\]\n\
+	   set goto \\[expr \\[lindex \\[lindex \\$HELP(Contents) \\$index\\] 1\\] +2\\\n\
+	   		+$xtraLinesAfter +\\[llength \\$HELP(Contents)\\]\\]\n\
+\n\
+ 	   # Store in the log.\n\
+	   lappend HELP(Log) \\$goto\n\
+\n\
+	   # Adjust the view to the selected line.\n\
+	   %W yview \\$goto\"\n\
+   } else {\n\
+	# Bring  the user manual to the front.\n\
+	# I am not using raise since it doesn't generally work for olwm.\n\
+	wm withdraw .help\n\
+	wm deiconify .help\n\
+   }\n\
+}\n\
+\n\
+# ----------------------------------------------------------\n\
+# setupText\n\
+# ----------------------------------------------------------\n\
+# This procedure creates a text widget and scroll bar.\n\
+# The parameter \"w\" is a path for the combined widget.\n\
+proc setupText {w} {\n\
+   global HELP\n\
+\n\
+   #Create Widgets if the path name is valid.\n\
+   if {![winfo exists $w]} {\n\
+	# Create the general frame.\n\
+	frame $w\n\
+\n\
+	# Create the text widget.\n\
+	# The configuration option \"setgrid\" sets up gridded \n\
+	# window management.\n\
+	text $w.text 	-yscrollcommand \"$w.scroll set\"\\\n\
+			-setgrid 1 \\\n\
+			-wrap word\n\
+	# Create the scrollbar.\n\
+	scrollbar $w.scroll -command \"$w.text yview\"\n\
+\n\
+	# Pack the widget.\n\
+	pack $w.text  -fill both -expand 1 -side left\n\
+	pack $w.scroll -side left -fill y -expand 1\n\
+	pack $w -fill both -expand 1\n\
+   }\n\
+\n\
+   # Configure the Widgets.\n\
+   $w config -bg $HELP(BG)\n\
+   $w.text config\\\n\
+		-background $HELP(BG)\\\n\
+		-foreground $HELP(FG)\\\n\
+		-cursor {}\\\n\
+		-font -adobe-helvetica-medium-r-normal--12-120-*\\\n\
+		-exportselection 0\n\
+\n\
+   $w.scroll config -background $HELP(BG)\n\
+\n\
+   # Remove the default bindings that make the text widget editable.\n\
+   bind $w.text <Any-KeyPress> { }\n\
+   bind $w.text <Any-Button> { }\n\
+   bind $w.text <Any-B1-Motion> { }\n\
+\n\
+   # Set the configuration for text tags.\n\
+   # Underline.\n\
+   $w.text tag configure underline -underline 1\n\
+   # Command\n\
+   $w.text tag configure command \\\n\
+		-foreground DarkGreen\\\n\
+		-font -adobe-helvetica-medium-r-normal--14-140-*\n\
+   $w.text tag bind command <Button-1> { \n\
+		puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n\
+   $w.text tag bind command <Any-Enter> \"$w.text configure -cursor arrow\"\n\
+   $w.text tag bind command <Any-Leave> \"$w.text configure -cursor {}\"\n\
+   # Content\n\
+   $w.text tag configure content \\\n\
+		-foreground DarkGreen \\\n\
+		-font -adobe-helvetica-medium-r-normal--14-140-*\n\
+   # Title.\n\
+   $w.text tag configure title -font -adobe-helvetica-medium-r-normal--24-240-*\n\
+   # Italic\n\
+   $w.text tag configure italic -font -adobe-helvetica-medium-o-normal--12-120-*\n\
+   # Highlight.\n\
+   $w.text tag configure highlight -foreground red\n\
+}\n\
+\n\
+\n\
+# ----------------------------------------------------------\n\
+# loadFile\n\
+# ----------------------------------------------------------\n\
+# This procedure load a text file given by \"file\" formatted with a \n\
+# simple form of hyper-text into the text widget given by \"w\". And\n\
+# format it.\n\
+proc loadFile {w file} {\n\
+   # Delete all previous text in the text widget.\n\
+   $w delete 1.0 end\n\
+\n\
+   # Open the text file.\n\
+   set f [open $file]\n\
+\n\
+   # Insert the text into the text widget.\n\
+   while {![eof $f]} {\n\
+	$w insert end [read $f 1000]\n\
+   }\n\
+	\n\
+   # Close the text file.\n\
+   close $f\n\
+\n\
+   # Format the text. This is done by looking for all the \"@\" in the\n\
+   # text widget, deleting it and sending the following character to\n\
+   # the procedure formaText, which tags the text appropriately.\n\
+	forAllMatches $w @ {\n\
+		$w delete first last\n\
+		set char [$w get last \"last+ 1 chars\"]\n\
+		formatText $w $char\n\
+	}\n\
+}\n\
+\n\
+# ----------------------------------------------------------\n\
+# forAllMatches\n\
+# ----------------------------------------------------------\n\
+# This procedure takes three arguments: the name of a text widget, \n\
+# a regular expression pattern and a script. \n\
+# It finds all of the ranges of characters that match the pattern. \n\
+# For each matching range forAllMatches sets the marks first and last \n\
+# to the beginning and end of the of the range, then it invokes the \n\
+# script.\n\
+# This procedure has been taken from John K. Ousterhout's book,\n\
+# Tcl and the Tk Toolkit (1994) p.219. \n\
+proc forAllMatches {w pattern script} {\n\
+	scan [$w index end] %d numLines\n\
+	for {set i 1} {$i<=$numLines} {incr i } {\n\
+	   $w mark set last $i.0\n\
+	   while {[regexp -indices $pattern \\\n\
+		  [$w get last \"last lineend\" ] indices ] } {\n\
+		$w mark set first \"last + [lindex $indices 0] chars\"\n\
+		$w mark set last \"last + 1 chars +[lindex $indices 1] chars\"\n\
+		uplevel $script\n\
+	   }\n\
+	}\n\
+}\n\
+";
diff --git a/help.tcl b/help.tcl
index d2210b1..114c837 100644
--- a/help.tcl
+++ b/help.tcl
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 # =================================================================
 # The Help Module
 # =================================================================
diff --git a/missing b/missing
index 7789652..0a7fb5a 100755
--- a/missing
+++ b/missing
@@ -1,7 +1,7 @@
 #! /bin/sh
 # Common stub for a few missing GNU programs while installing.
-# Copyright (C) 1996, 1997 Free Software Foundation, Inc.
-# Franc,ois Pinard <pinard@iro.umontreal.ca>, 1996.
+# Copyright 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
+# Originally by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -18,11 +18,37 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 # 02111-1307, USA.
 
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
 if test $# -eq 0; then
   echo 1>&2 "Try \`$0 --help' for more information"
   exit 1
 fi
 
+run=:
+
+# In the cases where this matters, `missing' is being run in the
+# srcdir already.
+if test -f configure.ac; then
+  configure_ac=configure.ac
+else
+  configure_ac=configure.in
+fi
+
+case "$1" in
+--run)
+  # Try to run requested program, and just exit if it succeeds.
+  run=
+  shift
+  "$@" && exit 0
+  ;;
+esac
+
+# If it does not exist, or fails to run (possibly an outdated version),
+# try to emulate it.
 case "$1" in
 
   -h|--h|--he|--hel|--help)
@@ -35,6 +61,7 @@ error status if there is no known handling for PROGRAM.
 Options:
   -h, --help      display this help and exit
   -v, --version   output version information and exit
+  --run           try to run the given command, and emulate it if it fails
 
 Supported PROGRAM values:
   aclocal      touch file \`aclocal.m4'
@@ -43,13 +70,15 @@ Supported PROGRAM values:
   automake     touch all \`Makefile.in' files
   bison        create \`y.tab.[ch]', if possible, from existing .[ch]
   flex         create \`lex.yy.c', if possible, from existing .c
+  help2man     touch the output file
   lex          create \`lex.yy.c', if possible, from existing .c
   makeinfo     touch the output file
+  tar          try tar, gnutar, gtar, then tar without non-portable flags
   yacc         create \`y.tab.[ch]', if possible, from existing .[ch]"
     ;;
 
   -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
-    echo "missing - GNU libit 0.0"
+    echo "missing 0.3 - GNU automake"
     ;;
 
   -*)
@@ -61,7 +90,7 @@ Supported PROGRAM values:
   aclocal)
     echo 1>&2 "\
 WARNING: \`$1' is missing on your system.  You should only need it if
-         you modified \`acinclude.m4' or \`configure.in'.  You might want
+         you modified \`acinclude.m4' or \`${configure_ac}'.  You might want
          to install the \`Automake' and \`Perl' packages.  Grab them from
          any GNU archive site."
     touch aclocal.m4
@@ -70,7 +99,7 @@ WARNING: \`$1' is missing on your system.  You should only need it if
   autoconf)
     echo 1>&2 "\
 WARNING: \`$1' is missing on your system.  You should only need it if
-         you modified \`configure.in'.  You might want to install the
+         you modified \`${configure_ac}'.  You might want to install the
          \`Autoconf' and \`GNU m4' packages.  Grab them from any GNU
          archive site."
     touch configure
@@ -79,10 +108,10 @@ WARNING: \`$1' is missing on your system.  You should only need it if
   autoheader)
     echo 1>&2 "\
 WARNING: \`$1' is missing on your system.  You should only need it if
-         you modified \`acconfig.h' or \`configure.in'.  You might want
+         you modified \`acconfig.h' or \`${configure_ac}'.  You might want
          to install the \`Autoconf' and \`GNU m4' packages.  Grab them
          from any GNU archive site."
-    files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' configure.in`
+    files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}`
     test -z "$files" && files="config.h"
     touch_files=
     for f in $files; do
@@ -98,7 +127,7 @@ WARNING: \`$1' is missing on your system.  You should only need it if
   automake)
     echo 1>&2 "\
 WARNING: \`$1' is missing on your system.  You should only need it if
-         you modified \`Makefile.am', \`acinclude.m4' or \`configure.in'.
+         you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'.
          You might want to install the \`Automake' and \`Perl' packages.
          Grab them from any GNU archive site."
     find . -type f -name Makefile.am -print |
@@ -159,7 +188,32 @@ WARNING: \`$1' is missing on your system.  You should only need it if
     fi
     ;;
 
+  help2man)
+    echo 1>&2 "\
+WARNING: \`$1' is missing on your system.  You should only need it if
+	 you modified a dependency of a manual page.  You may need the
+	 \`Help2man' package in order for those modifications to take
+	 effect.  You can get \`Help2man' from any GNU archive site."
+
+    file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'`
+    if test -z "$file"; then
+	file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'`
+    fi
+    if [ -f "$file" ]; then
+	touch $file
+    else
+	test -z "$file" || exec >$file
+	echo ".ab help2man is required to generate this page"
+	exit 1
+    fi
+    ;;
+
   makeinfo)
+    if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then
+       # We have makeinfo, but it failed.
+       exit 1
+    fi
+
     echo 1>&2 "\
 WARNING: \`$1' is missing on your system.  You should only need it if
          you modified a \`.texi' or \`.texinfo' file, or any other file
@@ -175,6 +229,45 @@ WARNING: \`$1' is missing on your system.  You should only need it if
     touch $file
     ;;
 
+  tar)
+    shift
+    if test -n "$run"; then
+      echo 1>&2 "ERROR: \`tar' requires --run"
+      exit 1
+    fi
+
+    # We have already tried tar in the generic part.
+    # Look for gnutar/gtar before invocation to avoid ugly error
+    # messages.
+    if (gnutar --version > /dev/null 2>&1); then
+       gnutar ${1+"$@"} && exit 0
+    fi
+    if (gtar --version > /dev/null 2>&1); then
+       gtar ${1+"$@"} && exit 0
+    fi
+    firstarg="$1"
+    if shift; then
+	case "$firstarg" in
+	*o*)
+	    firstarg=`echo "$firstarg" | sed s/o//`
+	    tar "$firstarg" ${1+"$@"} && exit 0
+	    ;;
+	esac
+	case "$firstarg" in
+	*h*)
+	    firstarg=`echo "$firstarg" | sed s/h//`
+	    tar "$firstarg" ${1+"$@"} && exit 0
+	    ;;
+	esac
+    fi
+
+    echo 1>&2 "\
+WARNING: I can't seem to be able to run \`tar' with the given arguments.
+         You may want to install GNU tar or Free paxutils, or check the
+         command line arguments."
+    exit 1
+    ;;
+
   *)
     echo 1>&2 "\
 WARNING: \`$1' is needed, and you do not seem to have it handy on your
diff --git a/mkinstalldirs b/mkinstalldirs
index a554e0e..1e50db0 100755
--- a/mkinstalldirs
+++ b/mkinstalldirs
@@ -4,7 +4,7 @@
 # Created: 1993-05-16
 # Public domain
 
-# $Id: mkinstalldirs,v 1.2 2000/09/05 12:38:36 saramito Exp $
+# $Id: mkinstalldirs,v 1.1 2004/11/03 11:20:38 saramito Exp $
 
 errstatus=0
 
diff --git a/play.c b/play.c
index 495416e..7ba8ac8 100644
--- a/play.c
+++ b/play.c
@@ -1,5 +1,25 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 #include <stdio.h>
 #include <unistd.h>
+#include <string.h>
 #include <tcl.h>
 #include <tk.h>
 #include "util707.h"
@@ -179,8 +199,8 @@ Init707(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv
 				break;
 			}
 			default:
+				fprintf(stderr, "unexpected short option `%c'\n", c);
 				usage();
-				Tcl_SetObjResult(interp, Tcl_NewIntObj(3));
 				return TCL_OK;
 				break;
 		}
@@ -567,60 +587,64 @@ set_tempo(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 	ctxp->ppq = newticks;
 	return TCL_OK;
 }
-#ifdef HAVE_SYS_ASOUNDLIB_H
+#ifdef HAVE_ALSA9
 int 
 timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-	snd_seq_queue_status_t status;
-	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(status.tick));
+	snd_seq_queue_status_t *status;
+
+	snd_seq_queue_status_alloca(&status);
+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
+
 	return TCL_OK;
 }
+#else /* !HAVE_ALSA9 */
 int 
-get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
 	snd_seq_queue_status_t status;
-	int result;
-
 	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-	result = 16 - ((ctxp->currticktime-status.tick)/old_tick_per_sixtennth);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(status.tick));
 	return TCL_OK;
 }
-#else /* !HAVE_SYS_ASOUNDLIB_H */
+#endif /* HAVE_ALSA9 */
+
+#ifdef HAVE_ALSA9
 int 
-timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
 	snd_seq_queue_status_t *status;
+	int result;
 
 	snd_seq_queue_status_alloca(&status);
 	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
-
-return TCL_OK;
+	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
+	return TCL_OK;
 }
+#else /* !HAVE_ALSA9 */
 int 
 get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-	snd_seq_queue_status_t *status;
+	snd_seq_queue_status_t status;
 	int result;
 
-	snd_seq_queue_status_alloca(&status);
-	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
+	result = 16 - ((ctxp->currticktime-status.tick)/old_tick_per_sixtennth);
 	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
-
-return TCL_OK;
+	return TCL_OK;
 }
-#endif /* HAVE_SYS_ASOUNDLIB_H */
+#endif /* HAVE_ALSA9 */
+
 static
 int
 ponderated_velocity (int volume_master, int volume_accent, double accent_factor,
@@ -665,21 +689,16 @@ c_start_note (TK707 *tk707, int keynum, int midi_note, int prop)
 
 	seq707_context_t *ctxp = tk707->ctxp_c;
 	static int have_start = 0;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_queue_status_t status;
-#else
         snd_seq_queue_status_t *status;
-#endif
-	int cur_tick;
 	int midich;
-
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-        cur_tick = status.tick;
-#else
+        int cur_tick;
+#ifdef HAVE_ALSA9
         snd_seq_queue_status_alloca(&status);
         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
         cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+        cur_tick = status->tick;
 #endif
         if ( cur_tick > ctxp->currticktime ) {
     	    ctxp->currticktime = cur_tick;
@@ -700,10 +719,10 @@ c_start_note (TK707 *tk707, int keynum, int midi_note, int prop)
 	    ctxp->currticktime += tick_per_flam;
 	    do_noteon (ctxp, midich, midi_note, velocity);
 	}
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	snd_seq_flush_output(ctxp->handle);
+#ifdef HAVE_ALSA9
+        snd_seq_drain_output(ctxp->handle);
 #else
-	snd_seq_drain_output(ctxp->handle);
+        snd_seq_flush_output(ctxp->handle);
 #endif
 }
 static
@@ -711,21 +730,17 @@ void
 c_stop_note (TK707 *tk707, int midi_note)
 {	
 	seq707_context_t *ctxp = tk707->ctxp_c;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_queue_status_t status;
-#else
         snd_seq_queue_status_t *status;
-#endif
-	int cur_tick;
 	int midich;
+        int cur_tick;
 
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-        cur_tick = status.tick;
-#else
+#ifdef HAVE_ALSA9
         snd_seq_queue_status_alloca(&status);
         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
         cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+        cur_tick = status->tick;
 #endif
         if ( cur_tick > ctxp->currticktime ) {
     	    ctxp->currticktime = cur_tick;
@@ -735,12 +750,11 @@ c_stop_note (TK707 *tk707, int midi_note)
 	do_noteon (ctxp, midich, midi_note, 0);
 	/* ctxp->currticktime += old_tick_per_quarter; */
 
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	snd_seq_flush_output(ctxp->handle);
+#ifdef HAVE_ALSA9
+        snd_seq_drain_output(ctxp->handle);
 #else
-	snd_seq_drain_output(ctxp->handle);
+        snd_seq_flush_output(ctxp->handle);
 #endif
-
         alsa_timer_stop(ctxp);
 }
 /*
@@ -802,11 +816,7 @@ pat_stop(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST obj
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-#ifdef HAVE_SYS_ASOUNDLIB_H
 	snd_seq_drain_output(ctxp->handle);
-#else
-	snd_seq_drop_output(ctxp->handle);
-#endif
 	return TCL_OK;
 }
 int 
@@ -814,11 +824,7 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 {
     TK707 *tk707 = (TK707*)clientData;
     seq707_context_t *ctxp = tk707->ctxp_p;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_queue_status_t status;
-#else
-    snd_seq_queue_status_t *status;
-#endif
+    snd_seq_queue_status_t *status = 0;
     int cur_tick;
     int group, pattern, step, stepcount, scale, midich, dur;
     PatternElement *current_pattern;
@@ -840,20 +846,19 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 	fprintf (stderr, "FATAL: invalid flam/delay configuration\n");
 	exit (1);
     }
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-    cur_tick = status.tick;
-#else
+#ifdef HAVE_ALSA9
     snd_seq_queue_status_alloca(&status);
     snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
     cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+    cur_tick = status->tick;
 #endif
-    if ( cur_tick > ctxp->currticktime ) {
-    	ctxp->currticktime = cur_tick;
+    if( cur_tick > ctxp->currticktime ) {
+        ctxp->currticktime = cur_tick;
     }
     midich = ctxp->midichannel;
     alsa_timer_cont (ctxp);
-
     for (step = 0; step < stepcount; step++) {
 	MidiElement *instrument_set = current_pattern->mel [step];
 	MidiElement *instrument;
@@ -900,10 +905,10 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 	}
 	ctxp->currticktime += old_tick_per_step_off_scale [scale];
     }
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_flush_output(ctxp->handle);
-#else
+#ifdef HAVE_ALSA9
     snd_seq_drain_output(ctxp->handle);
+#else
+    snd_seq_flush_output(ctxp->handle);
 #endif
     alsa_timer_stop(ctxp);
 
@@ -940,13 +945,11 @@ add_note(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST obj
 		Tcl_SetObjResult(interp, Tcl_NewBooleanObj(1));
 		return TCL_OK;
 	}
-
 /*
 printf("Added note %d at group %d, pattern %d, step %d, (cart %d)\n",
 			el_get_note(temp), group, pattern, step, tk707->mbank);
 pattern_display_els(tk707->ptree[tk707->mbank], group, pattern);
 */
-
 }
 /* get note properties in a midi element
  * if note does not exists, return 0
@@ -1095,55 +1098,63 @@ return TCL_OK;
 /*
 	Construct a list of ALSA midi ports on the system.
 */
-#ifdef HAVE_SYS_ASOUNDLIB_H
+#ifdef HAVE_ALSA9
+
 int 
 port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
-	Tcl_Obj *res, *items[17]={NULL};
+	Tcl_Obj *res, *items[16]={NULL};
 	int i, client, port, io;
-	snd_seq_client_info_t cinfo;
-	snd_seq_port_info_t pinfo;
-	snd_seq_system_info_t sysinfo;
+	snd_seq_client_info_t *cinfo;
+	snd_seq_port_info_t *pinfo;
 	snd_seq_t *handle;
-	tk707_get_int1_macro(interp,objc,objv, io);
 
-	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
+	if( objc != 2 )
 	{
+		Tcl_SetResult(interp, "Wrong #args", TCL_VOLATILE);
 		return TCL_ERROR;
 	}
-	if( snd_seq_system_info(handle, &sysinfo) < 0 )
+	if( Tcl_GetIntFromObj(interp, objv[1], &io) != TCL_OK )
+		return TCL_ERROR;
+
+	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
 	{
 		return TCL_ERROR;
 	}
 
 	res = Tcl_NewListObj(0, NULL);
 
+	snd_seq_client_info_alloca(&cinfo);
+	snd_seq_port_info_alloca(&pinfo);
+
 	i = 0;
-	for(client=0;client<sysinfo.clients;client++)
-	{
-		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
-			continue;
-		for(port=0;port<sysinfo.ports;port++)
-		{
+	snd_seq_client_info_set_client(cinfo, 0);
+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
+		client = snd_seq_client_info_get_client(cinfo);
+		snd_seq_port_info_set_client(pinfo, client);
+		snd_seq_port_info_set_port(pinfo, -1);
+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
 			unsigned int cap;
-			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
-				continue;
 			if( io > 0 )
 				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
 			else
 				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-			if( (pinfo.capability & cap) == cap )
+			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
 			{
+				const char *name;
+				port = snd_seq_port_info_get_port(pinfo);
 				items[i] = Tcl_NewListObj(0, NULL);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(pinfo.client));
+							Tcl_NewIntObj(client));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(pinfo.port));
+							Tcl_NewIntObj(port));
+				name = snd_seq_port_info_get_name(pinfo);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
+							Tcl_NewStringObj(name, strlen(name)));
+				name = snd_seq_client_info_get_name(cinfo);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
+							Tcl_NewStringObj(name, strlen(name)));
 
 				Tcl_ListObjAppendElement(interp, res, items[i]);
 				i++;
@@ -1155,55 +1166,57 @@ port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 
 return TCL_OK;
 }
-#else /* !HAVE_SYS_ASOUNDLIB_H */
+
+#else /* !HAVE_ALSA9 */
+
 int 
 port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	Tcl_Obj *res, *items[17]={NULL};
 	int i, client, port, io;
-	snd_seq_client_info_t *cinfo;
-	snd_seq_port_info_t *pinfo;
+	snd_seq_client_info_t cinfo;
+	snd_seq_port_info_t pinfo;
+	snd_seq_system_info_t sysinfo;
 	snd_seq_t *handle;
 	tk707_get_int1_macro(interp,objc,objv, io);
 
-	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
+	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
+	{
+		return TCL_ERROR;
+	}
+	if( snd_seq_system_info(handle, &sysinfo) < 0 )
 	{
 		return TCL_ERROR;
 	}
 
 	res = Tcl_NewListObj(0, NULL);
 
-	snd_seq_client_info_alloca(&cinfo);
-	snd_seq_port_info_alloca(&pinfo);
-
 	i = 0;
-	snd_seq_client_info_set_client(cinfo, 0);
-	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-		client = snd_seq_client_info_get_client(cinfo);
-		snd_seq_port_info_set_client(pinfo, client);
-		snd_seq_port_info_set_port(pinfo, -1);
-		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
+	for(client=0;client<sysinfo.clients;client++)
+	{
+		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
+			continue;
+		for(port=0;port<sysinfo.ports;port++)
+		{
 			unsigned int cap;
+			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
+				continue;
 			if( io > 0 )
 				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
 			else
 				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
+			if( (pinfo.capability & cap) == cap )
 			{
-				const char *name;
-				port = snd_seq_port_info_get_port(pinfo);
 				items[i] = Tcl_NewListObj(0, NULL);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(client));
+							Tcl_NewIntObj(pinfo.client));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(port));
-				name = snd_seq_port_info_get_name(pinfo);
+							Tcl_NewIntObj(pinfo.port));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(name, strlen(name)));
-				name = snd_seq_client_info_get_name(cinfo);
+							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(name, strlen(name)));
+							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
 
 				Tcl_ListObjAppendElement(interp, res, items[i]);
 				i++;
@@ -1215,7 +1228,8 @@ port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 
 return TCL_OK;
 }
-#endif /* HAVE_SYS_ASOUNDLIB_H */
+
+#endif /* HAVE_ALSA9 */
 
 /*
 	Return a given screen distance to pixels
diff --git a/playa.c b/playa.c
index 6c70cd3..7ba8ac8 100644
--- a/playa.c
+++ b/playa.c
@@ -1,10 +1,30 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 #include <stdio.h>
 #include <unistd.h>
+#include <string.h>
 #include <tcl.h>
 #include <tk.h>
 #include "util707.h"
 #include "nix_bit.h"
-#define not_compile_tcl
+
 TK707 *tk707;
 
 #define tk7_get_pattern(tk707,group,pattern) \
@@ -179,8 +199,8 @@ Init707(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv
 				break;
 			}
 			default:
+				fprintf(stderr, "unexpected short option `%c'\n", c);
 				usage();
-				Tcl_SetObjResult(interp, Tcl_NewIntObj(3));
 				return TCL_OK;
 				break;
 		}
@@ -567,60 +587,64 @@ set_tempo(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 	ctxp->ppq = newticks;
 	return TCL_OK;
 }
-#ifdef HAVE_SYS_ASOUNDLIB_H
+#ifdef HAVE_ALSA9
 int 
 timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-	snd_seq_queue_status_t status;
-	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(status.tick));
+	snd_seq_queue_status_t *status;
+
+	snd_seq_queue_status_alloca(&status);
+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
+
 	return TCL_OK;
 }
+#else /* !HAVE_ALSA9 */
 int 
-get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
 	snd_seq_queue_status_t status;
-	int result;
-
 	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-	result = 16 - ((ctxp->currticktime-status.tick)/old_tick_per_sixtennth);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(status.tick));
 	return TCL_OK;
 }
-#else /* !HAVE_SYS_ASOUNDLIB_H */
+#endif /* HAVE_ALSA9 */
+
+#ifdef HAVE_ALSA9
 int 
-timer_status(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
 	snd_seq_queue_status_t *status;
+	int result;
 
 	snd_seq_queue_status_alloca(&status);
 	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-	Tcl_SetObjResult(interp, Tcl_NewIntObj(snd_seq_queue_status_get_tick_time(status)));
-
-return TCL_OK;
+	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
+	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
+	return TCL_OK;
 }
+#else /* !HAVE_ALSA9 */
 int 
 get_pat_tick(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-	snd_seq_queue_status_t *status;
+	snd_seq_queue_status_t status;
 	int result;
 
-	snd_seq_queue_status_alloca(&status);
-	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
-	result = 16 - ((ctxp->currticktime - snd_seq_queue_status_get_tick_time(status))/old_tick_per_sixtennth);
+	snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
+	result = 16 - ((ctxp->currticktime-status.tick)/old_tick_per_sixtennth);
 	Tcl_SetObjResult(interp, Tcl_NewIntObj(result));
-
-return TCL_OK;
+	return TCL_OK;
 }
-#endif /* HAVE_SYS_ASOUNDLIB_H */
+#endif /* HAVE_ALSA9 */
+
 static
 int
 ponderated_velocity (int volume_master, int volume_accent, double accent_factor,
@@ -665,21 +689,16 @@ c_start_note (TK707 *tk707, int keynum, int midi_note, int prop)
 
 	seq707_context_t *ctxp = tk707->ctxp_c;
 	static int have_start = 0;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_queue_status_t status;
-#else
         snd_seq_queue_status_t *status;
-#endif
-	int cur_tick;
 	int midich;
-
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-        cur_tick = status.tick;
-#else
+        int cur_tick;
+#ifdef HAVE_ALSA9
         snd_seq_queue_status_alloca(&status);
         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
         cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+        cur_tick = status->tick;
 #endif
         if ( cur_tick > ctxp->currticktime ) {
     	    ctxp->currticktime = cur_tick;
@@ -700,10 +719,10 @@ c_start_note (TK707 *tk707, int keynum, int midi_note, int prop)
 	    ctxp->currticktime += tick_per_flam;
 	    do_noteon (ctxp, midich, midi_note, velocity);
 	}
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	snd_seq_flush_output(ctxp->handle);
+#ifdef HAVE_ALSA9
+        snd_seq_drain_output(ctxp->handle);
 #else
-	snd_seq_drain_output(ctxp->handle);
+        snd_seq_flush_output(ctxp->handle);
 #endif
 }
 static
@@ -711,21 +730,17 @@ void
 c_stop_note (TK707 *tk707, int midi_note)
 {	
 	seq707_context_t *ctxp = tk707->ctxp_c;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_queue_status_t status;
-#else
         snd_seq_queue_status_t *status;
-#endif
-	int cur_tick;
 	int midich;
+        int cur_tick;
 
-#ifdef HAVE_SYS_ASOUNDLIB_H
-        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-        cur_tick = status.tick;
-#else
+#ifdef HAVE_ALSA9
         snd_seq_queue_status_alloca(&status);
         snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
         cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+        snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+        cur_tick = status->tick;
 #endif
         if ( cur_tick > ctxp->currticktime ) {
     	    ctxp->currticktime = cur_tick;
@@ -735,12 +750,11 @@ c_stop_note (TK707 *tk707, int midi_note)
 	do_noteon (ctxp, midich, midi_note, 0);
 	/* ctxp->currticktime += old_tick_per_quarter; */
 
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	snd_seq_flush_output(ctxp->handle);
+#ifdef HAVE_ALSA9
+        snd_seq_drain_output(ctxp->handle);
 #else
-	snd_seq_drain_output(ctxp->handle);
+        snd_seq_flush_output(ctxp->handle);
 #endif
-
         alsa_timer_stop(ctxp);
 }
 /*
@@ -802,11 +816,7 @@ pat_stop(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST obj
 {
 	TK707 *tk707 = (TK707*)clientData;
 	seq707_context_t *ctxp = tk707->ctxp_p;
-#ifdef HAVE_SYS_ASOUNDLIB_H
 	snd_seq_drain_output(ctxp->handle);
-#else
-	snd_seq_drop_output(ctxp->handle);
-#endif
 	return TCL_OK;
 }
 int 
@@ -814,11 +824,7 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 {
     TK707 *tk707 = (TK707*)clientData;
     seq707_context_t *ctxp = tk707->ctxp_p;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_queue_status_t status;
-#else
-    snd_seq_queue_status_t *status;
-#endif
+    snd_seq_queue_status_t *status = 0;
     int cur_tick;
     int group, pattern, step, stepcount, scale, midich, dur;
     PatternElement *current_pattern;
@@ -840,20 +846,19 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 	fprintf (stderr, "FATAL: invalid flam/delay configuration\n");
 	exit (1);
     }
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, &status);
-    cur_tick = status.tick;
-#else
+#ifdef HAVE_ALSA9
     snd_seq_queue_status_alloca(&status);
     snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
     cur_tick = snd_seq_queue_status_get_tick_time(status);
+#else
+    snd_seq_get_queue_status(ctxp->handle, ctxp->dest_queue, status);
+    cur_tick = status->tick;
 #endif
-    if ( cur_tick > ctxp->currticktime ) {
-    	ctxp->currticktime = cur_tick;
+    if( cur_tick > ctxp->currticktime ) {
+        ctxp->currticktime = cur_tick;
     }
     midich = ctxp->midichannel;
     alsa_timer_cont (ctxp);
-
     for (step = 0; step < stepcount; step++) {
 	MidiElement *instrument_set = current_pattern->mel [step];
 	MidiElement *instrument;
@@ -900,10 +905,10 @@ pattern_play(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST
 	}
 	ctxp->currticktime += old_tick_per_step_off_scale [scale];
     }
-#ifdef HAVE_SYS_ASOUNDLIB_H
-    snd_seq_flush_output(ctxp->handle);
-#else
+#ifdef HAVE_ALSA9
     snd_seq_drain_output(ctxp->handle);
+#else
+    snd_seq_flush_output(ctxp->handle);
 #endif
     alsa_timer_stop(ctxp);
 
@@ -940,13 +945,11 @@ add_note(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST obj
 		Tcl_SetObjResult(interp, Tcl_NewBooleanObj(1));
 		return TCL_OK;
 	}
-
 /*
 printf("Added note %d at group %d, pattern %d, step %d, (cart %d)\n",
 			el_get_note(temp), group, pattern, step, tk707->mbank);
 pattern_display_els(tk707->ptree[tk707->mbank], group, pattern);
 */
-
 }
 /* get note properties in a midi element
  * if note does not exists, return 0
@@ -1095,55 +1098,63 @@ return TCL_OK;
 /*
 	Construct a list of ALSA midi ports on the system.
 */
-#ifdef HAVE_SYS_ASOUNDLIB_H
+#ifdef HAVE_ALSA9
+
 int 
 port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
-	Tcl_Obj *res, *items[17]={NULL};
+	Tcl_Obj *res, *items[16]={NULL};
 	int i, client, port, io;
-	snd_seq_client_info_t cinfo;
-	snd_seq_port_info_t pinfo;
-	snd_seq_system_info_t sysinfo;
+	snd_seq_client_info_t *cinfo;
+	snd_seq_port_info_t *pinfo;
 	snd_seq_t *handle;
-	tk707_get_int1_macro(interp,objc,objv, io);
 
-	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
+	if( objc != 2 )
 	{
+		Tcl_SetResult(interp, "Wrong #args", TCL_VOLATILE);
 		return TCL_ERROR;
 	}
-	if( snd_seq_system_info(handle, &sysinfo) < 0 )
+	if( Tcl_GetIntFromObj(interp, objv[1], &io) != TCL_OK )
+		return TCL_ERROR;
+
+	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
 	{
 		return TCL_ERROR;
 	}
 
 	res = Tcl_NewListObj(0, NULL);
 
+	snd_seq_client_info_alloca(&cinfo);
+	snd_seq_port_info_alloca(&pinfo);
+
 	i = 0;
-	for(client=0;client<sysinfo.clients;client++)
-	{
-		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
-			continue;
-		for(port=0;port<sysinfo.ports;port++)
-		{
+	snd_seq_client_info_set_client(cinfo, 0);
+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
+		client = snd_seq_client_info_get_client(cinfo);
+		snd_seq_port_info_set_client(pinfo, client);
+		snd_seq_port_info_set_port(pinfo, -1);
+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
 			unsigned int cap;
-			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
-				continue;
 			if( io > 0 )
 				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
 			else
 				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-			if( (pinfo.capability & cap) == cap )
+			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
 			{
+				const char *name;
+				port = snd_seq_port_info_get_port(pinfo);
 				items[i] = Tcl_NewListObj(0, NULL);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(pinfo.client));
+							Tcl_NewIntObj(client));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(pinfo.port));
+							Tcl_NewIntObj(port));
+				name = snd_seq_port_info_get_name(pinfo);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
+							Tcl_NewStringObj(name, strlen(name)));
+				name = snd_seq_client_info_get_name(cinfo);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
+							Tcl_NewStringObj(name, strlen(name)));
 
 				Tcl_ListObjAppendElement(interp, res, items[i]);
 				i++;
@@ -1155,55 +1166,57 @@ port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 
 return TCL_OK;
 }
-#else /* !HAVE_SYS_ASOUNDLIB_H */
+
+#else /* !HAVE_ALSA9 */
+
 int 
 port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	TK707 *tk707 = (TK707*)clientData;
 	Tcl_Obj *res, *items[17]={NULL};
 	int i, client, port, io;
-	snd_seq_client_info_t *cinfo;
-	snd_seq_port_info_t *pinfo;
+	snd_seq_client_info_t cinfo;
+	snd_seq_port_info_t pinfo;
+	snd_seq_system_info_t sysinfo;
 	snd_seq_t *handle;
 	tk707_get_int1_macro(interp,objc,objv, io);
 
-	if( snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0 )
+	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
+	{
+		return TCL_ERROR;
+	}
+	if( snd_seq_system_info(handle, &sysinfo) < 0 )
 	{
 		return TCL_ERROR;
 	}
 
 	res = Tcl_NewListObj(0, NULL);
 
-	snd_seq_client_info_alloca(&cinfo);
-	snd_seq_port_info_alloca(&pinfo);
-
 	i = 0;
-	snd_seq_client_info_set_client(cinfo, 0);
-	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-		client = snd_seq_client_info_get_client(cinfo);
-		snd_seq_port_info_set_client(pinfo, client);
-		snd_seq_port_info_set_port(pinfo, -1);
-		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
+	for(client=0;client<sysinfo.clients;client++)
+	{
+		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
+			continue;
+		for(port=0;port<sysinfo.ports;port++)
+		{
 			unsigned int cap;
+			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
+				continue;
 			if( io > 0 )
 				cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
 			else
 				cap = (SND_SEQ_PORT_CAP_SUBS_READ|SND_SEQ_PORT_CAP_READ);
-			if( (snd_seq_port_info_get_capability(pinfo) & cap) == cap )
+			if( (pinfo.capability & cap) == cap )
 			{
-				const char *name;
-				port = snd_seq_port_info_get_port(pinfo);
 				items[i] = Tcl_NewListObj(0, NULL);
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(client));
+							Tcl_NewIntObj(pinfo.client));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewIntObj(port));
-				name = snd_seq_port_info_get_name(pinfo);
+							Tcl_NewIntObj(pinfo.port));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(name, strlen(name)));
-				name = snd_seq_client_info_get_name(cinfo);
+							Tcl_NewStringObj(pinfo.name, strlen(pinfo.name)));
 				Tcl_ListObjAppendElement(interp, items[i],
-							Tcl_NewStringObj(name, strlen(name)));
+							Tcl_NewStringObj(cinfo.name, strlen(cinfo.name)));
 
 				Tcl_ListObjAppendElement(interp, res, items[i]);
 				i++;
@@ -1215,7 +1228,8 @@ port_list(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST ob
 
 return TCL_OK;
 }
-#endif /* HAVE_SYS_ASOUNDLIB_H */
+
+#endif /* HAVE_ALSA9 */
 
 /*
 	Return a given screen distance to pixels
diff --git a/ports.c b/ports.c
index 47d5d31..5ee4b2e 100644
--- a/ports.c
+++ b/ports.c
@@ -1,142 +1,163 @@
-char tcl_ports[] = ""
-"#	File ports.tcl\n"
-"#	GUI for selection of ALSA port.\n"
-"\n"
-"proc port_setup {} {\n"
-"	global tcl_rcFileName\n"
-"	global ports\n"
-"	global iolists\n"
-"	global font12\n"
-"\n"
-"	if {[catch {tk7_port_list 1} oportlist] ||\n"
-"	    [catch {tk7_port_list 0} iportlist]} {\n"
-"		puts \"NO PORTS FOUND\"\n"
-"		exit\n"
-"	}\n"
-"\n"
-"	set ports .setup\n"
-"	toplevel $ports\n"
-"	wm title $ports \"TK-707 ALSA port setup\"\n"
-"\n"
-"	set howto .setup.h\n"
-"	set howtotext $howto.text\n"
-"	set howtoscroll $howto.scroll\n"
-"	frame $howto ;#-relief groove -borderwidth 2\n"
-"	canvas $howtotext -yscrollcommand \"$howtoscroll set\" -width 13.5c -height 5c\n"
-"	scrollbar $howtoscroll -command \"$howtotext yview\" -width 0.4c\n"
-"	pack $howtoscroll -side right -fill y\n"
-"	pack $howtotext\n"
-"	pack $howto\n"
-"\n"
-"	$howtotext create text 0.2c 0.2c -anchor nw -font *-${font12}-* -text	\\\n"
-"\"Double click on one of Output Ports to make it the Selected Output.\\n\n"
-"The SAVE button will save the setting in ~/.tk707rc so that this\n"
-"selection dialogue won't appear next time TK-707 is started.\\n\n"
-"The OK button will close this dialogue and allow TK-707 to start\n"
-"using the selected port. If the current setting hasn't been SAVEd\n"
-"then this dialogue will appear again next time TK-707 is run.\n"
-"If no port has been selected, TK707 will not start.\\n\n"
-"Input Port selection is for future use and currently has no effect.\\n\n"
-"When this selection dialogue is raised from the File->Ports menu,\n"
-"a selection can be SAVEd but ports cannot be changed while\n"
-"TK-707 is running (yet).\"\n"
-"\n"
-"	set iolists $ports.l\n"
-"	canvas $iolists -width 14c -height 8c -relief groove -borderwidth 2\n"
-"	pack $iolists\n"
-"	set	olist $iolists.ol\n"
-"	set	ilist $iolists.il\n"
-"	set oselect $iolists.op\n"
-"	set iselect $iolists.ip\n"
-"	listbox $olist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n"
-"	listbox $ilist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1\n"
-"	label $oselect -width 28 -height 1 -relief sunken -borderwidth 2\n"
-"	label $iselect -width 28 -height 1 -relief sunken -borderwidth 2\n"
-"\n"
-"	$iolists create text 2c 0.5c -font *-${font12}-* -text \"Input Ports\" -anchor nw\n"
-"	$iolists create text 9c 0.5c -font *-${font12}-* -text \"Output Ports\" -anchor nw\n"
-"	$iolists create window 0.15c 1.5c -window $ilist -anchor nw\n"
-"	$iolists create window 7c 1.5c -window $olist -anchor nw\n"
-"	$iolists create window 0.2c 6c -window $iselect -anchor nw\n"
-"	$iolists create window 7.05c 6c -window $oselect -anchor nw\n"
-"	$iolists create text 2c 7c -font *-${font12}-* -text \"Selected Input\" -anchor nw\n"
-"	$iolists create text 9c 7c -font *-${font12}-* -text \"Selected Output\" -anchor nw\n"
-"\n"
-"	# Get list of output ports\n"
-"	foreach i $oportlist {\n"
-"		if {[regexp -nocase \"MIDI\" $i]} {\n"
-"			$olist insert end $i\n"
-"		}\n"
-"	}\n"
-"	# Get list of input ports\n"
-"	foreach i $iportlist {\n"
-"		if {[regexp -nocase \"midi\" $i]} {\n"
-"			$ilist insert end $i\n"
-"		}\n"
-"	}\n"
-"	bind .setup.l.il <Double-1> {\n"
-"		$iolists.ip configure -font *-${font12}-* -text [selection get]\n"
-"	}\n"
-"	bind $olist <Double-1> {\n"
-"		$iolists.op configure -font *-${font12}-* -text [selection get]\n"
-"	}\n"
-"	set portacts $ports.pa\n"
-"	canvas $portacts -width 14c -height 1.5c\n"
-"	pack $portacts\n"
-"\n"
-"	button $portacts.c -font *-${font12}-* -text CANCEL -width 6 -command {\n"
-"		if {! [tk7_port_setcheck]} {\n"
-"			puts \"NO PORTS SET\"\n"
-"			destroy .\n"
-"			exit\n"
-"		} else {\n"
-"			destroy $ports\n"
-"		}\n"
-"	}\n"
-"	button $portacts.s -font *-${font12}-* -text SAVE -width 6 -command {\n"
-"		set oplist [.setup.l.op configure -text]\n"
-"		# puts \"XX${oplist}XX\"\n"
-"		if {[llength $oplist] != 5} {\n"
-"			puts nothing\n"
-"		} else {\n"
-"			if {[llength [lindex $oplist 4]] > 0} {\n"
-"				set op [lindex [lindex $oplist 4] 0]\n"
-"				set oc [lindex [lindex $oplist 4] 1]\n"
-"				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n"
-"				# Save selection\n"
-"				set OPstr [format \"set tkxox(ALSA_OUTPORT) %d:%d\" $op $oc]\n"
-"				set f [open $tcl_rcFileName w]\n"
-"				seek $f  0 end\n"
-"				puts $f $OPstr\n"
-"				close $f\n"
-"				destroy $ports\n"
-"			}\n"
-"		}\n"
-"	}\n"
-"	button $portacts.b -font *-${font12}-* -text OK -width 6 -command {\n"
-"		set oplist [.setup.l.op configure -text]\n"
-"		if {[llength $oplist] != 5} {\n"
-"			puts nothing\n"
-"		} else {\n"
-"			if {[llength [lindex $oplist 4]] > 0} {\n"
-"				set op [lindex [lindex $oplist 4] 0]\n"
-"				set oc [lindex [lindex $oplist 4] 1]\n"
-"				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n"
-"			}\n"
-"		}\n"
-"		if {! [tk7_port_setcheck]} {\n"
-"			#puts \"NO PORTS SET\"\n"
-"			destroy .\n"
-"			exit\n"
-"		} else {\n"
-"			destroy $ports\n"
-"		}\n"
-"	}\n"
-"	$portacts create window 3c 0.75c -window  $portacts.c\n"
-"	$portacts create window 7c 0.75c -window  $portacts.s\n"
-"	$portacts create window 11c 0.75c -window  $portacts.b\n"
-"\n"
-"	grab set $ports\n"
-"	tkwait window $portacts\n"
-"}\n"
-"";
+char tcl_ports[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# -----------------------------------------------------------------------------\n\
+#	File ports.tcl\n\
+#	GUI for selection of ALSA port.\n\
+# -----------------------------------------------------------------------------\n\
+\n\
+proc port_setup {} {\n\
+	global tcl_rcFileName\n\
+	global ports\n\
+	global iolists\n\
+	global font12\n\
+	global normal_r_14\n\
+\n\
+	set ports .setup\n\
+	toplevel $ports\n\
+	wm title $ports \"TK-707 ALSA port setup\"\n\
+\n\
+	set howto .setup.h\n\
+	set howtotext $howto.text\n\
+	set howtoscroll $howto.scroll\n\
+	frame $howto ;#-relief groove -borderwidth 2\n\
+	canvas $howtotext -yscrollcommand \"$howtoscroll set\" -width 13.5c -height 5c\n\
+	scrollbar $howtoscroll -command \"$howtotext yview\" -width 0.4c\n\
+	pack $howtoscroll -side right -fill y\n\
+	pack $howtotext\n\
+	pack $howto\n\
+\n\
+	$howtotext create text 0.2c 0.2c -anchor nw -font *-${normal_r_14}-* -text	\\\n\
+\"Double click on one of Output Ports to make it the Selected Output.\\n\n\
+The SAVE button will save the setting in ~/.tk707rc so that this\n\
+selection dialogue won't appear next time TK-707 is started.\\n\n\
+The OK button will close this dialogue and allow TK-707 to start\n\
+using the selected port. If the current setting hasn't been SAVEd\n\
+then this dialogue will appear again next time TK-707 is run.\n\
+If no port has been selected, TK707 will not start.\\n\n\
+Input Port selection is for future use and currently has no effect.\\n\n\
+When this selection dialogue is raised from the File->Ports menu,\n\
+a selection can be SAVEd but ports cannot be changed while\n\
+TK-707 is running (yet).\"\n\
+\n\
+	set iolists $ports.l\n\
+	canvas $iolists -width 14c -height 8c -relief groove -borderwidth 2\n\
+	pack $iolists\n\
+	set	olist $iolists.ol\n\
+	set	ilist $iolists.il\n\
+	set oselect $iolists.op\n\
+	set iselect $iolists.ip\n\
+\n\
+        scrollbar $iolists.os -command \"$olist yview\"\n\
+        scrollbar $iolists.is -command \"$ilist yview\"\n\
+        listbox $olist -font *-${normal_r_14}-* -width 26 -height 10 -selectmode browse -exportselection 1 -yscroll \"$iolists.os set\"\n\
+	listbox $ilist -font *-${normal_r_14}-* -width 26 -height 10 -selectmode browse -exportselection 1 -yscroll \"$iolists.is set\"\n\
+\n\
+	label $oselect -width 28 -height 1 -relief sunken -borderwidth 2\n\
+	label $iselect -width 28 -height 1 -relief sunken -borderwidth 2\n\
+\n\
+\n\
+	$iolists create text 2c 0.5c -font *-${normal_r_14}-* -text \"Input Ports\" -anchor nw\n\
+	$iolists create text 9c 0.5c -font *-${normal_r_14}-* -text \"Output Ports\" -anchor nw\n\
+        $iolists create window 0c 1.5c -height 4c -window $iolists.is -anchor nw\n\
+        $iolists create window 0.5c 1.5c -height 4c -window $ilist -anchor nw\n\
+        $iolists create window 7c 1.5c -height 4c -window $iolists.os -anchor nw\n\
+        $iolists create window 7.5c 1.5c -height 4c -window $olist -anchor nw\n\
+	$iolists create window 0.2c 6c -window $iselect -anchor nw\n\
+	$iolists create window 7.05c 6c -window $oselect -anchor nw\n\
+	$iolists create text 2c 7c -font *-${normal_r_14}-* -text \"Selected Input\" -anchor nw\n\
+	$iolists create text 9c 7c -font *-${normal_r_14}-* -text \"Selected Output\" -anchor nw\n\
+\n\
+	# Get list of output ports\n\
+	set oportlist [tk7_port_list 1]\n\
+	foreach i $oportlist {\n\
+		$olist insert end $i\n\
+	}\n\
+	# Get list of input ports\n\
+	set iportlist [tk7_port_list 0]\n\
+	foreach i $iportlist {\n\
+		$ilist insert end $i\n\
+	}\n\
+	bind .setup.l.il <Double-1> {\n\
+		$iolists.ip configure -font *-${normal_r_14}-* -text [selection get]\n\
+	}\n\
+	bind $olist <Double-1> {\n\
+		$iolists.op configure -font *-${normal_r_14}-* -text [selection get]\n\
+	}\n\
+	set portacts $ports.pa\n\
+	canvas $portacts -width 14c -height 1.5c\n\
+	pack $portacts\n\
+\n\
+	button $portacts.c -font *-${normal_r_14}-* -text CANCEL -width 6 -command {\n\
+		if {! [tk7_port_setcheck]} {\n\
+			puts \"NO PORTS SET\"\n\
+			destroy .\n\
+			exit\n\
+		} else {\n\
+			destroy $ports\n\
+		}\n\
+	}\n\
+	button $portacts.s -font *-${normal_r_14}-* -text SAVE -width 6 -command {\n\
+		set oplist [.setup.l.op configure -text]\n\
+		# puts \"XX${oplist}XX\"\n\
+		if {[llength $oplist] != 5} {\n\
+			puts nothing\n\
+		} else {\n\
+			if {[llength [lindex $oplist 4]] > 0} {\n\
+				set op [lindex [lindex $oplist 4] 0]\n\
+				set oc [lindex [lindex $oplist 4] 1]\n\
+				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n\
+				# Save selection\n\
+				set OPstr [format \"set tkxox(ALSA_OUTPORT) %d:%d\" $op $oc]\n\
+				set f [open $tcl_rcFileName w]\n\
+				seek $f  0 end\n\
+				puts $f $OPstr\n\
+				close $f\n\
+				destroy $ports\n\
+			}\n\
+		}\n\
+	}\n\
+	button $portacts.b -font *-${normal_r_14}-* -text OK -width 6 -command {\n\
+		set oplist [.setup.l.op configure -text]\n\
+		if {[llength $oplist] != 5} {\n\
+			puts nothing\n\
+		} else {\n\
+			if {[llength [lindex $oplist 4]] > 0} {\n\
+				set op [lindex [lindex $oplist 4] 0]\n\
+				set oc [lindex [lindex $oplist 4] 1]\n\
+				set tkxox(ALSA_OUTPORT) \"${op}:${oc}\"\n\
+			}\n\
+		}\n\
+		if {! [tk7_port_setcheck]} {\n\
+			#puts \"NO PORTS SET\"\n\
+			destroy .\n\
+			exit\n\
+		} else {\n\
+			destroy $ports\n\
+		}\n\
+	}\n\
+	$portacts create window 3c 0.75c -window  $portacts.c\n\
+	$portacts create window 7c 0.75c -window  $portacts.s\n\
+	$portacts create window 11c 0.75c -window  $portacts.b\n\
+\n\
+	grab set $ports\n\
+	tkwait window $portacts\n\
+}\n\
+";
diff --git a/ports.tcl b/ports.tcl
index 6e704a5..11a8a82 100644
--- a/ports.tcl
+++ b/ports.tcl
@@ -1,17 +1,33 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# -----------------------------------------------------------------------------
 #	File ports.tcl
 #	GUI for selection of ALSA port.
+# -----------------------------------------------------------------------------
 
 proc port_setup {} {
 	global tcl_rcFileName
 	global ports
 	global iolists
 	global font12
-
-	if {[catch {tk7_port_list 1} oportlist] ||
-	    [catch {tk7_port_list 0} iportlist]} {
-		puts "NO PORTS FOUND"
-		exit
-	}
+	global normal_r_14
 
 	set ports .setup
 	toplevel $ports
@@ -27,7 +43,7 @@ proc port_setup {} {
 	pack $howtotext
 	pack $howto
 
-	$howtotext create text 0.2c 0.2c -anchor nw -font *-${font12}-* -text	\
+	$howtotext create text 0.2c 0.2c -anchor nw -font *-${normal_r_14}-* -text	\
 "Double click on one of Output Ports to make it the Selected Output.\n
 The SAVE button will save the setting in ~/.tk707rc so that this
 selection dialogue won't appear next time TK-707 is started.\n
@@ -47,43 +63,48 @@ TK-707 is running (yet)."
 	set	ilist $iolists.il
 	set oselect $iolists.op
 	set iselect $iolists.ip
-	listbox $olist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1
-	listbox $ilist -font *-${font12}-* -width 28 -height 6 -selectmode browse -exportselection 1
+
+        scrollbar $iolists.os -command "$olist yview"
+        scrollbar $iolists.is -command "$ilist yview"
+        listbox $olist -font *-${normal_r_14}-* -width 26 -height 10 -selectmode browse -exportselection 1 -yscroll "$iolists.os set"
+	listbox $ilist -font *-${normal_r_14}-* -width 26 -height 10 -selectmode browse -exportselection 1 -yscroll "$iolists.is set"
+
 	label $oselect -width 28 -height 1 -relief sunken -borderwidth 2
 	label $iselect -width 28 -height 1 -relief sunken -borderwidth 2
 
-	$iolists create text 2c 0.5c -font *-${font12}-* -text "Input Ports" -anchor nw
-	$iolists create text 9c 0.5c -font *-${font12}-* -text "Output Ports" -anchor nw
-	$iolists create window 0.15c 1.5c -window $ilist -anchor nw
-	$iolists create window 7c 1.5c -window $olist -anchor nw
+
+	$iolists create text 2c 0.5c -font *-${normal_r_14}-* -text "Input Ports" -anchor nw
+	$iolists create text 9c 0.5c -font *-${normal_r_14}-* -text "Output Ports" -anchor nw
+        $iolists create window 0c 1.5c -height 4c -window $iolists.is -anchor nw
+        $iolists create window 0.5c 1.5c -height 4c -window $ilist -anchor nw
+        $iolists create window 7c 1.5c -height 4c -window $iolists.os -anchor nw
+        $iolists create window 7.5c 1.5c -height 4c -window $olist -anchor nw
 	$iolists create window 0.2c 6c -window $iselect -anchor nw
 	$iolists create window 7.05c 6c -window $oselect -anchor nw
-	$iolists create text 2c 7c -font *-${font12}-* -text "Selected Input" -anchor nw
-	$iolists create text 9c 7c -font *-${font12}-* -text "Selected Output" -anchor nw
+	$iolists create text 2c 7c -font *-${normal_r_14}-* -text "Selected Input" -anchor nw
+	$iolists create text 9c 7c -font *-${normal_r_14}-* -text "Selected Output" -anchor nw
 
 	# Get list of output ports
+	set oportlist [tk7_port_list 1]
 	foreach i $oportlist {
-		if {[regexp -nocase "MIDI" $i]} {
-			$olist insert end $i
-		}
+		$olist insert end $i
 	}
 	# Get list of input ports
+	set iportlist [tk7_port_list 0]
 	foreach i $iportlist {
-		if {[regexp -nocase "midi" $i]} {
-			$ilist insert end $i
-		}
+		$ilist insert end $i
 	}
 	bind .setup.l.il <Double-1> {
-		$iolists.ip configure -font *-${font12}-* -text [selection get]
+		$iolists.ip configure -font *-${normal_r_14}-* -text [selection get]
 	}
 	bind $olist <Double-1> {
-		$iolists.op configure -font *-${font12}-* -text [selection get]
+		$iolists.op configure -font *-${normal_r_14}-* -text [selection get]
 	}
 	set portacts $ports.pa
 	canvas $portacts -width 14c -height 1.5c
 	pack $portacts
 
-	button $portacts.c -font *-${font12}-* -text CANCEL -width 6 -command {
+	button $portacts.c -font *-${normal_r_14}-* -text CANCEL -width 6 -command {
 		if {! [tk7_port_setcheck]} {
 			puts "NO PORTS SET"
 			destroy .
@@ -92,7 +113,7 @@ TK-707 is running (yet)."
 			destroy $ports
 		}
 	}
-	button $portacts.s -font *-${font12}-* -text SAVE -width 6 -command {
+	button $portacts.s -font *-${normal_r_14}-* -text SAVE -width 6 -command {
 		set oplist [.setup.l.op configure -text]
 		# puts "XX${oplist}XX"
 		if {[llength $oplist] != 5} {
@@ -112,7 +133,7 @@ TK-707 is running (yet)."
 			}
 		}
 	}
-	button $portacts.b -font *-${font12}-* -text OK -width 6 -command {
+	button $portacts.b -font *-${normal_r_14}-* -text OK -width 6 -command {
 		set oplist [.setup.l.op configure -text]
 		if {[llength $oplist] != 5} {
 			puts nothing
diff --git a/procs.c b/procs.c
index cf06fc5..823d1f2 100644
--- a/procs.c
+++ b/procs.c
@@ -1,2163 +1,2182 @@
-char tcl_procs[] = ""
-"#=====================================================\n"
-"#	File procs.tcl\n"
-"#	Procedures for the tcl side of the program\n"
-"#=====================================================\n"
-"\n"
-"proc play_pattern {grp pat} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 pattern_list pl\n"
-"\n"
-"	if {$mo(PATTERN_REPEAT)} {\n"
-"\n"
-"		#puts \"TIMER = [tk7_timer_status]\"\n"
-"		set steps [tk7_get_last_step $grp $pat]\n"
-"		set dur [tk7_pattern_play $grp $pat]\n"
-"\n"
-"		cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n"
-"\n"
-"		# Fudge factor (extra time to change track display) in track play mode\n"
-"		if {$mo(rdrw) == $xox(READ) || $mo(patr) == $xox(TRACK)} {\n"
-"			incr dur -160\n"
-"			if {$dur < 0} {\n"
-"				set dur 0\n"
-"			}\n"
-"			#set mo(REPEAT_INTERVAL) [expr $dur - 160]\n"
-"			set mo(REPEAT_INTERVAL) $dur\n"
-"		} else {\n"
-"			set mo(REPEAT_INTERVAL) $dur\n"
-"		}\n"
-"	}\n"
-"}\n"
-"proc stop_pattern {} {\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"#puts \"do stop_pattern\"\n"
-"	tk7_pattern_stop\n"
-"	set mo(REPEAT_INTERVAL) 10\n"
-"}\n"
-"\n"
-"proc ac_clear {tp} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"	upvar #0 pattern_list pl\n"
-"\n"
-"	switch $tp {\n"
-"		0	{\n"
-"		# CLEAR the current PATTERN\n"
-"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(PATTERN)} {\n"
-"				return\n"
-"			}\n"
-"			set result [tk_dialog .clr CONFIRM \"Clear Pattern [expr $mo(current_pattern) + 1] Group [expr $mo(patgroup) + 1]?\" \"\" 0 Cancel \"Delete Pattern\"]\n"
-"			if {$result == 0} {\n"
-"				return\n"
-"			}\n"
-"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-"			tk7_clear_pattern $mo(patgroup) $mo(current_pattern)\n"
-"			pattern_setid $mo(current_pattern)\n"
-"			scale_lamps_update\n"
-"		}\n"
-"\n"
-"		1	{\n"
-"		# CLEAR the current TRACK\n"
-"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-"				return\n"
-"			}\n"
-"			set result [tk_dialog .clr CONFIRM \"Clear Track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete Track\"]\n"
-"			if {$result == 0} {\n"
-"				return\n"
-"			}\n"
-"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-"			set tl($mo(current_track)) {}\n"
-"			set mo(measure) -1\n"
-"		}\n"
-"		2 	{\n"
-"		# CLEAR current track item from current track\n"
-"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-"				return\n"
-"			}\n"
-"			# Clearing track item has no meaning if we're already past end\n"
-"			set target $mo(measure)\n"
-"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-"				#puts \"Already past end\"\n"
-"				return\n"
-"			}\n"
-"			set result [tk_dialog .clr CONFIRM \"Clear measure [expr $target + 1] from track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete\"]\n"
-"			if {$result == 0} {\n"
-"				return\n"
-"			}\n"
-"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-"			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target]\n"
-"		}\n"
-"		3	{\n"
-"		# CLEAR the rest of current track including current track item\n"
-"			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n"
-"				return\n"
-"			}\n"
-"			# Clearing rest has no meaning if we're already past end of track\n"
-"			set target $mo(measure)\n"
-"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-"				# puts \"Already past end\"\n"
-"				return\n"
-"			}\n"
-"			set result [tk_dialog .clr CONFIRM \"    Clear rest of track [expr $mo(current_track) + 1]?\\n(includes current measure)\" \"\" 0 Cancel \"Delete\"]\n"
-"			if {$result == 0} {\n"
-"				return\n"
-"			}\n"
-"			set mo(file_status) $xox(FILE_MODIFIED)\n"
-"			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target end]\n"
-"		}\n"
-"	}\n"
-"}\n"
-"proc ac_scaleback {} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"	global scale_lamps\n"
-"\n"
-"	if {$mo(patr) == $xox(PATTERN)} {\n"
-"		set old_scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n"
-"		set new_scale [expr $old_scale + 1]\n"
-"		if {$new_scale == 4} {\n"
-"		    set new_scale 0\n"
-"		}\n"
-"		set old_button $scale_lamps.l$old_scale\n"
-"		set new_button $scale_lamps.l$new_scale\n"
-"		tk7_set_scale $mo(patgroup) $mo(current_pattern) $new_scale\n"
-"		$old_button configure -background $xox(lamp_off)\n"
-"		$new_button configure -background $xox(lamp_on)\n"
-"	} else {\n"
-"		set target [expr $mo(measure) - 1]\n"
-"		set mo(measure) [measure_constrain $target]\n"
-"		pattern_show\n"
-"	}\n"
-"	set mo(file_status) $xox(FILE_MODIFIED)\n"
-"}\n"
-"proc ac_lastfwd {} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	if {$mo(patr) == $xox(PATTERN)} {\n"
-"		if {$mo(rdrw) == $xox(READ)} {\n"
-"			return\n"
-"		}\n"
-"		select_laststep\n"
-"		set mo(file_status) $xox(FILE_MODIFIED)\n"
-"	} else {\n"
-"		set target  [expr $mo(measure) + 1]\n"
-"		set mo(measure) [measure_constrain $target]\n"
-"		pattern_show\n"
-"	}\n"
-"}\n"
-"proc measure_constrain {m} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	set tracklength [llength $tl($mo(current_track))]\n"
-"\n"
-"	if {$tracklength < 1} {\n"
-"		if {$mo(rdrw) == $xox(READ)} {\n"
-"			set minpos -1\n"
-"			set maxpos -1\n"
-"		} else {\n"
-"			set minpos 0\n"
-"			set maxpos 0\n"
-"		}\n"
-"	} else {\n"
-"		if {$mo(rdrw) == $xox(READ)} {\n"
-"			set maxpos [expr $tracklength - 1]\n"
-"		} else {\n"
-"			set maxpos $tracklength\n"
-"		}\n"
-"		set minpos 0\n"
-"	}\n"
-"\n"
-"	# Result\n"
-"	if {$m <= $minpos} {\n"
-"		return $minpos\n"
-"	} elseif {$m >= $maxpos} {\n"
-"		return $maxpos\n"
-"	} else {\n"
-"		return $m\n"
-"	}\n"
-"}\n"
-"# Decide which pattern from a track to display\n"
-"#\n"
-"proc pattern_show {} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	set raw [lindex $tl($mo(current_track)) $mo(measure)]\n"
-"	if {$raw != \"\"} {\n"
-"		set group [expr $raw / 16]\n"
-"		set pattern [expr $raw % 16]\n"
-"		ac_group $group\n"
-"		pattern_setid $pattern\n"
-"	}\n"
-"}\n"
-"\n"
-"# For track mode, ordinary click (on LAST MEAS button) shows last measure\n"
-"# of current track. Releasing button returns to orginal measure.\n"
-"# Shift click goes to last measure and stays there.\n"
-"#\n"
-"proc ac_lastmeas {m} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	if {$mo(patr) == $xox(PATTERN)} {\n"
-"	    	#puts \"Instrument Guide\"\n"
-"	} else {\n"
-"		switch $m {\n"
-"			0	{\n"
-"				#puts \"Show Last Measure\"\n"
-"				set mo(oldmeasure) $mo(measure)\n"
-"				set target [llength $tl($mo(current_track))]\n"
-"				set mo(measure) [measure_constrain $target]\n"
-"				pattern_show\n"
-"			}\n"
-"			1	{\n"
-"				#puts \"Restore measure $mo(oldmeasure)\"\n"
-"				set mo(measure) [measure_constrain $mo(oldmeasure)]\n"
-"				pattern_show\n"
-"			}\n"
-"			2	{\n"
-"				#puts \"Go to Last Measure\"\n"
-"				set target [llength $tl($mo(current_track))]\n"
-"				set mo(measure) [measure_constrain $target]\n"
-"				pattern_show\n"
-"			}\n"
-"			3	{\n"
-"				return\n"
-"			}\n"
-"		}\n"
-"	}\n"
-"\n"
-"}\n"
-"proc select_laststep {} {\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	if {[winfo exists .ls]} {\n"
-"		wm deiconify .ls\n"
-"	} else {\n"
-"		toplevel .ls\n"
-"		wm title .ls \"Set last pattern step\"\n"
-"		scale .ls.s -from 1 -to 16 -command laststep_set -orient horizontal	\\\n"
-"			-length 5c -relief groove -borderwidth 2\n"
-"		button .ls.ok -text OK -font *-${font12}-* -command {wm iconify .ls} -relief groove -borderwidth 2\n"
-"		pack .ls.s -side top -ipady 6\n"
-"		pack .ls.ok -side top -expand true -fill x\n"
-"	}\n"
-"	.ls.s set [tk7_get_last_step $mo(patgroup) $mo(current_pattern)]\n"
-"}\n"
-"proc laststep_set val {\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	if {$val < 1 || $val > 16} {\n"
-"		return\n"
-"	}\n"
-"	tk7_set_last_step $mo(patgroup) $mo(current_pattern) $val\n"
-"}\n"
-"proc flam_set val {\n"
-"	upvar #0 mode mo\n"
-"	if {$val < 0 || $val > 4} {\n"
-"		return\n"
-"	}\n"
-"	tk7_set_flam $mo(patgroup) $mo(current_pattern) $val\n"
-"}\n"
-"proc select_flam {} {\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-"\n"
-"	if {[winfo exists .flam]} {\n"
-"		wm deiconify .flam\n"
-"	} else {\n"
-"		toplevel .flam\n"
-"		wm title .flam \"Set pattern flam interval\"\n"
-"		scale .flam.s -from 0 -to 4 -command flam_set -orient horizontal	\\\n"
-"			-length 5c -relief groove -borderwidth 2\n"
-"		button .flam.ok -text OK -font *-${font12}-* -command {wm iconify .flam} -relief groove -borderwidth 2\n"
-"		pack .flam.s -side top -ipady 6\n"
-"		pack .flam.ok -side top -expand true -fill x\n"
-"	}\n"
-"	.flam.s set [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-"	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n"
-"}\n"
-"proc ac_flam {} {\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	if {$mo(patr) != $xox(PATTERN) || $mo(rdrw) != $xox(WRITE)} {\n"
-"	    return\n"
-"	}\n"
-"	select_flam\n"
-"}\n"
-"proc ac_midi {} {\n"
-"	global font12\n"
-"	upvar #0 mode mo\n"
-"	if {[winfo exists .ms]} {\n"
-"		wm deiconify .ms\n"
-"	} else {\n"
-"		toplevel .ms\n"
-"		wm title .ms \"MIDI Channel\"\n"
-"		scale .ms.s -from 1 -to 16 -command midichan_set -orient horizontal	\\\n"
-"			-length 5c -relief groove -borderwidth 2 -font *-${font12}-*\n"
-"		button .ms.ok -text OK -font *-${font12}-* -command {wm iconify .ms} \\\n"
-"			-relief groove -borderwidth 2\n"
-"		pack .ms.s -side top -ipady 6\n"
-"		pack .ms.ok -side top -expand true -fill x\n"
-"		.ms.s set [expr $mo(midi_channel)  + 1]\n"
-"	}\n"
-"}\n"
-"proc midichan_set val {\n"
-"	upvar #0 mode mo\n"
-"	global midi_channel\n"
-"\n"
-"	if {$val < 1 || $val >16} {\n"
-"		return\n"
-"	}\n"
-"	set mo(midi_channel) [expr $val - 1]\n"
-"	# This is needed for C code to trace midi channel,\n"
-"	# (I don't know how to make it trace an array variable).\n"
-"	set midi_channel $mo(midi_channel)\n"
-"}\n"
-"proc ac_note {widget prop} {\n"
-"    global tapwrite\n"
-"    global notes\n"
-"    upvar #0 tkxox xox\n"
-"    upvar #0 mode mo\n"
-"\n"
-"    # Extract button number from widget path\n"
-"    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-"    #                                      ^ +5 ^\n"
-"    set prefix_length [expr [string length $notes] + 5]\n"
-"    set b [string range [string trimright $widget .b] $prefix_length end]\n"
-"\n"
-"    if {$mo(patr) == $xox(TRACK)} {\n"
-"	# TRACK mode\n"
-"	if {$mo(rdrw) == $xox(READ)} {\n"
-"		tk7_start_note_play $b $prop\n"
-"	} else {\n"
-"		# Just changeing pattern numbers\n"
-"		pattern_setid $b\n"
-"	}\n"
-"	return\n"
-"    }\n"
-"    # PATTERN mode\n"
-"    if {$mo(rdrw) == $xox(READ)} {\n"
-"    	# PATTERN READ mode\n"
-"	pattern_setid $b\n"
-"	if {$mo(stopgo) == $xox(START)} {\n"
-"	    # If running, wait till current pattern finished before changeing ?\n"
-"	}\n"
-"	return\n"
-"    }\n"
-"    # PATTERN TAP or WRITE mode\n"
-"    if {$mo(stopgo) != $xox(START)} {\n"
-"	# Just changeing pattern numbers\n"
-"	pattern_setid $b\n"
-"	return\n"
-"    }\n"
-"    # PATTERN TAP or WRITE mode with START\n"
-"    if {![have_zero_velocity $prop]} {\n"
-"	switch $mo(current_accent) {\n"
-"	    2       {set prop [add_strong_accent    $prop] }\n"
-"	    1 	    {set prop [add_weak_accent      $prop] }\n"
-"	    default {set prop [add_default_velocity $prop] }\n"
-"	}\n"
-"    }\n"
-"    if {$tapwrite} {\n"
-"	set step [expr [tk7_get_pat_tick] % 16]\n"
-"	if {$step < 0} {\n"
-"	    set step 0\n"
-"	}\n"
-"	ac_newinstr $notes.note$b.b\n"
-"	step_insert $step $prop\n"
-"	tk7_start_note_play $b $prop\n"
-"    } else {\n"
-"	# Recording steps\n"
-"	step_insert $b $prop\n"
-"    }\n"
-"}\n"
-"proc ac_note_off {widget} {\n"
-"    global notes\n"
-"    global tapwrite\n"
-"    upvar #0 tkxox xox\n"
-"    upvar #0 mode mo\n"
-"\n"
-"    # Extract button number from widget path\n"
-"    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-"    #                                      ^ +5 ^\n"
-"    set prefix_length [expr [string length $notes] + 5]\n"
-"    set b [string range [string trimright $widget .b] $prefix_length end]\n"
-"\n"
-"    if {$mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n"
-"	tk7_stop_note_play $b\n"
-"	return\n"
-"    }\n"
-"    if {$mo(rdrw) == $xox(READ) || $mo(stopgo) != $xox(START)} {\n"
-"	return\n"
-"    }\n"
-"    if {$tapwrite} {\n"
-"	tk7_stop_note_play $b\n"
-"	return\n"
-"    }\n"
-"}\n"
-"#\n"
-"# Accept 0->15 to set new current pattern id.\n"
-"# Also need to light buttons lamp.\n"
-"#\n"
-"proc pattern_setid {id} {\n"
-"	global grid\n"
-"	global notes\n"
-"	upvar #0 pattern_list pl\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	lamp_onoff 0 $notes.note$mo(current_pattern).l\n"
-"	set mo(current_pattern) $id\n"
-"	lamp_onoff 1 $notes.note$id.l\n"
-"\n"
-"	# Clear the grid display & redraw for new pattern\n"
-"	$grid delete stepnode\n"
-"	set pg $mo(patgroup)\n"
-"	set cp $mo(current_pattern)\n"
-"	for {set k 0} {$k < 16} {incr k} {\n"
-"		set instruments [tk7_pattern_items $pg $cp $k]\n"
-"		set properties  [tk7_get_pattern_properties $pg $cp $k]\n"
-"		set idx 0\n"
-"		foreach instr $instruments {\n"
-"	                set prop  [lindex $properties $idx]\n"
-"			step_draw [expr $k + 1] $instr $prop\n"
-"			set idx [expr $idx + 1]\n"
-"		}\n"
-"	}\n"
-"	scale_lamps_update\n"
-"	refresh_comment\n"
-"}\n"
-"# Turn a \"lamp\" on or off (1 or 0 for parameter onoff).\n"
-"# Parameter lamp is a full widget path.\n"
-"#\n"
-"proc lamp_onoff {onoff lamp} {\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	switch $onoff {\n"
-"		0 {\n"
-"			$lamp configure -bg $xox(col_def_bg)\n"
-"		}\n"
-"		1 {\n"
-"			$lamp configure -bg $xox(col_on)\n"
-"		}\n"
-"	}\n"
-"}\n"
-"\n"
-"# Respond to change of Track/Pattern controls\n"
-"#\n"
-"proc ac_patternmode {rw} {\n"
-"	global trpa notes tempoinfo\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	# Check if running (can't change mode)\n"
-"	if {$mo(stopgo) == $xox(START)} {\n"
-"		return\n"
-"	}\n"
-"\n"
-"	if {$mo(patr) != $xox(PATTERN)} {\n"
-"		set mo(patr) $xox(PATTERN)\n"
-"		$tempoinfo itemconfigure tmtitle  -text TEMPO\n"
-"		$tempoinfo coords tmtitle 1c 0.5c\n"
-"		trace vdelete mo(current_track) w trackinfo_update\n"
-"		trace vdelete mo(measure) w measureinfo_update\n"
-"		$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-"		trace variable mo(tempo) w tempoinfo_update\n"
-"	}\n"
-"\n"
-"	if {$rw == $xox(WRITE)} {\n"
-"		set mo(rdrw) $xox(WRITE)\n"
-"		$trpa.lt configure -text PLAY\n"
-"		$trpa.lb configure -text \"-> WRITE <-\"\n"
-"		modeinfo_update 3\n"
-"	} else {\n"
-"		set mo(rdrw) [expr $xox(WRITE) - 1]\n"
-"		$trpa.lt configure -text \"-> PLAY <-\"\n"
-"		$trpa.lb configure -text \"WRITE\"\n"
-"		modeinfo_update 2\n"
-"	}\n"
-"\n"
-"	# Show current instrument\n"
-"	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n"
-"}\n"
-"proc ac_trackmode {rw} {\n"
-"	global trpa notes tempoinfo\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	# Check if running (can't change mode)\n"
-"	if {$mo(stopgo) == $xox(START)} {\n"
-"		return\n"
-"	}\n"
-"\n"
-"	if {$mo(patr) != $xox(TRACK)} {\n"
-"		set mo(patr) $xox(TRACK)\n"
-"		$tempoinfo itemconfigure tmtitle -text MEASURE\n"
-"		$tempoinfo coords tmtitle 2.7c 0.5c\n"
-"		# Go to 1st pattern of new track\n"
-"		# Trace current measure in track\n"
-"		trace vdelete mo(tempo) w tempoinfo_update\n"
-"		trace variable mo(measure) w measureinfo_update\n"
-"		trace variable mo(current_track) w trackinfo_update\n"
-"	}\n"
-"\n"
-"	if {$rw == $xox(WRITE)} {\n"
-"		set mo(rdrw) $xox(WRITE)\n"
-"		$trpa.lt configure -text PLAY\n"
-"		$trpa.lb configure -text \"-> WRITE <-\"\n"
-"		modeinfo_update 1\n"
-"	} else {\n"
-"		set mo(rdrw) $xox(READ)\n"
-"		$trpa.lt configure -text \"-> PLAY <-\"\n"
-"		$trpa.lb configure -text WRITE\n"
-"		modeinfo_update 0\n"
-"	}\n"
-"	set mo(measure) [measure_constrain -1]\n"
-"	pattern_show\n"
-"\n"
-"	# Hide current instrument\n"
-"	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n"
-"}\n"
-"# Toggle display to show tempo or measure\n"
-"#\n"
-"proc ac_tempomeasure {} {\n"
-"	global tempoinfo\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	if {$mo(patr) == $xox(PATTERN)} {\n"
-"		return\n"
-"	}\n"
-"\n"
-"	if {$mo(showtrack)} {\n"
-"		set mo(showtrack) false\n"
-"		$tempoinfo itemconfigure tmtitle  -text TEMPO\n"
-"		$tempoinfo coords tmtitle 1c 0.5c\n"
-"#		trace vdelete mo(measure) w trackinfo_update\n"
-"		trace vdelete mo(measure) w measureinfo_update\n"
-"		$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-"		trace variable mo(tempo) w tempoinfo_update\n"
-"set mo(tempo) $mo(tempo)\n"
-"	} else {\n"
-"		set mo(showtrack) true\n"
-"		$tempoinfo itemconfigure tmtitle -text MEASURE\n"
-"		$tempoinfo coords tmtitle 2.7c 0.5c\n"
-"		# Trace current measure in track\n"
-"		trace vdelete mo(tempo) w tempoinfo_update\n"
-"		trace variable mo(measure) w measureinfo_update\n"
-"		trace variable mo(current_track) w trackinfo_update\n"
-"set mo(measure) $mo(measure)\n"
-"set mo(current_track) $mo(current_track)\n"
-"	}\n"
-"\n"
-"}\n"
-"\n"
-"proc ac_stopgo {new} {\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	switch $new {\n"
-"		0 {\n"
-"			set mo(stopgo) $xox(STOP)\n"
-"			set mo(PATTERN_REPEAT) false\n"
-"			stop_pattern\n"
-"			set stepcount [tk7_get_last_step $grp $pat]\n"
-"			cycle_notes 1 0 0 0 $stepcount\n"
-"		}\n"
-"		1 {\n"
-"			if {$new == $mo(stopgo)} {\n"
-"				return\n"
-"			}\n"
-"			if {$mo(patr) == $xox(TRACK)} {\n"
-"				set mo(TRACK_START) true\n"
-"			}\n"
-"\n"
-"			set mo(stopgo) $xox(START)\n"
-"\n"
-"\n"
-"			# This starts the player!\n"
-"			set mo(PATTERN_REPEAT) true\n"
-"		}\n"
-"		2 {\n"
-"			if {$mo(patr) == $xox(PATTERN)} {\n"
-"				set mo(PATTERN_REPEAT) false\n"
-"				stop_pattern\n"
-"				set mo(stopgo) $xox(STOP)\n"
-"			} else {\n"
-"				if {$mo(stopgo) == $xox(CONT)} {\n"
-"					set mo(stopgo) $xox(START)\n"
-"				} else {\n"
-"					set mo(stopgo) $xox(CONT)\n"
-"					set mo(PATTERN_REPEAT) false\n"
-"					stop_pattern\n"
-"				}\n"
-"			}\n"
-"		}\n"
-"	}\n"
-"}\n"
-"\n"
-"# For patterns,\n"
-"# i = 0->3 Groups\n"
-"# j = 0->15 Patterns\n"
-"# k = 0->15 Step divisions, each is a list of note events\n"
-"#\n"
-"# For tracks,\n"
-"# i = 0->3 Tracks, each is a list patterns (16*Group + Pattern)\n"
-"#\n"
-"proc mem_init {} {\n"
-"	upvar #0 pattern_list pl\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	# Patterns\n"
-"#	for {set i 0} {$i <4} {incr i} {\n"
-"#		for {set j 0} {$j <16 } {incr j} {\n"
-"#			for {set k 0} {$k < 16} {incr k} {\n"
-"#				set pl($i,$j,$k) {}\n"
-"#			}\n"
-"#		}\n"
-"#	}\n"
-"\n"
-"	# Tracks\n"
-"	for {set i 0} {$i <4} {incr i} {\n"
-"		set tl($i) {}\n"
-"	}\n"
-"	\n"
-"}\n"
-"\n"
-"proc ac_group {b} {\n"
-"	global grps\n"
-"\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	global comment\n"
-"\n"
-"	if {$mo(rdrw) == $xox(WRITE) && $mo(stopgo) == $xox(START)} {\n"
-"		return\n"
-"	} else {\n"
-"		set but_old ${grps}.lt$mo(patgroup).lamp\n"
-"		set but_new ${grps}.lt${b}.lamp\n"
-"		$but_old configure -background $xox(lamp_off)\n"
-"		$but_new configure -background $xox(lamp_on)\n"
-"		set mo(patgroup) $b\n"
-"		if {$mo(patr) == $xox(TRACK)} {\n"
-"			return\n"
-"		}\n"
-"		pattern_setid $mo(current_pattern)\n"
-"	}\n"
-"}\n"
-"\n"
-"proc ac_track {b} {\n"
-"	global tminfo\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	if {$mo(patr) != $xox(TRACK) || $mo(stopgo) == $xox(START)} {\n"
-"		return\n"
-"	}\n"
-"	set mo(current_track) $b\n"
-"	set mo(measure) [measure_constrain -1]\n"
-"	pattern_show\n"
-"}\n"
-"\n"
-"proc ac_newinstr {widget} {\n"
-"	global gridlabel\n"
-"	global notes\n"
-"	global font12\n"
-"	global boldfont13\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	# Check first that we're in PATTERN:WRITE mode\n"
-"	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n"
-"		set w $notes.note[expr $mo(current_instr) - 1].instr\n"
-"		if {[winfo exists $w]} {\n"
-"			lamp_onoff 0 $w\n"
-"		}\n"
-"		return\n"
-"	}\n"
-"	# Extract button number from widget path\n"
-"	# Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n"
-"	#                                      ^ +5 ^\n"
-"	set prefix_length [expr [string length $notes] + 5]\n"
-"	set b [string range [string trimright $widget .b] $prefix_length end]\n"
-"	lamp_onoff 0 $notes.note[expr $mo(current_instr) - 1].instr\n"
-"	set mo(current_instr) [expr $b + 1]\n"
-"	lamp_onoff 1 $notes.note$b.instr\n"
-"\n"
-"	$gridlabel itemconfigure selectinstr -font *-${font12}-*\n"
-"	$gridlabel dtag selectinstr\n"
-"	$gridlabel itemconfigure ilabel[expr 15 - $b] -font *-${boldfont13}-*\n"
-"	$gridlabel addtag selectinstr withtag ilabel[expr 15 - $b]\n"
-"}\n"
-"\n"
-"# Change memory cartridge being used\n"
-"#\n"
-"proc ac_cartridge {} {\n"
-"	global accenter\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	if {$mo(patr) != $xox(TRACK)} {\n"
-"		return\n"
-"	}\n"
-"\n"
-"	set mo(cartridge) [tk7_cartridge_incr]\n"
-"	#puts \"Cartridge $mo(cartridge)\"\n"
-"	switch $mo(cartridge) {\n"
-"		2	{\n"
-"			$accenter.cart.lamp configure -bg #00ff00\n"
-"		}\n"
-"		1	{\n"
-"			$accenter.cart.lamp configure -bg $xox(lamp_on)\n"
-"		}\n"
-"		0	-\n"
-"		default	{\n"
-"			$accenter.cart.lamp configure -bg $xox(lamp_off)\n"
-"		}\n"
-"	}\n"
-"\n"
-"}\n"
-"\n"
-"# Process Enter button\n"
-"#\n"
-"proc ac_accenter {addmode} {\n"
-"	global accent_label\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	if {$mo(patr) == $xox(PATTERN) && $mo(rdrw) == $xox(WRITE)} {\n"
-"		set mo(current_accent) [expr ($mo(current_accent)+1) % 3]\n"
-"		switch $mo(current_accent) {\n"
-"		    2       {set color $xox(col_strong_accent) }\n"
-"		    1 	    {set color $xox(col_weak_accent) }\n"
-"		    default {set color $xox(col_def_bg) }\n"
-"		}\n"
-"		$accent_label configure -bg $color\n"
-"		return\n"
-"	}\n"
-"	if {$mo(patr) != $xox(TRACK) || $mo(rdrw) != $xox(WRITE)} {\n"
-"		return\n"
-"	}\n"
-"	# Track Write\n"
-"	switch $addmode {\n"
-"		0	{\n"
-"			# Add/replace current pattern in current track\n"
-"			#puts \"ADD pattern\"\n"
-"			set target $mo(measure)\n"
-"			#puts \"Target measure is $target\"\n"
-"			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n"
-"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-"				#puts \"Adding $pat to Track $mo(current_track)\"\n"
-"				lappend tl($mo(current_track)) $pat\n"
-"			} else {\n"
-"				set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target $pat]\n"
-"				#puts \"Inserting $pat to Track $mo(current_track)\"\n"
-"			}\n"
-"		}\n"
-"		1	{\n"
-"			# Insert pattern before current position in track\n"
-"			#puts \"INSERT pattern\"\n"
-"			set target $mo(measure)\n"
-"			#puts \"Target measure is $target\"\n"
-"			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n"
-"			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n"
-"			#puts \"Adding $pat to Track $mo(current_track)\"\n"
-"				lappend tl($mo(current_track)) $pat\n"
-"			} else {\n"
-"				set tl($mo(current_track)) [linsert $tl($mo(current_track)) $target $pat]\n"
-"				#puts \"Inserting $pat to Track $mo(current_track)\"\n"
-"			}\n"
-"		}\n"
-"	}\n"
-"	# Go to next step\n"
-"	ac_lastfwd\n"
-"}\n"
-"\n"
-"proc have_fla {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & $xox(flam)];\n"
-"}\n"
-"proc have_weak_accent {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & $xox(weak_accent)];\n"
-"}\n"
-"proc have_strong_accent {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & $xox(strong_accent)];\n"
-"}\n"
-"proc have_zero_velocity {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & $xox(zero_velocity)];\n"
-"}\n"
-"proc set_velocity_flag {prop flag} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & (~$xox(velocity_field)) | ($flag & $xox(velocity_field))]\n"
-"}\n"
-"proc add_weak_accent {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [set_velocity_flag $prop $xox(weak_accent)]\n"
-"}\n"
-"proc add_strong_accent {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [set_velocity_flag $prop $xox(strong_accent)]\n"
-"}\n"
-"proc add_zero_velocity {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [set_velocity_flag $prop $xox(zero_velocity)]\n"
-"}\n"
-"proc add_default_velocity {prop} {\n"
-"    upvar #0 tkxox xox\n"
-"    return [expr $prop & (~$xox(velocity_field))]\n"
-"}\n"
-"#\n"
-"# Draw a step node in the grid canvas.\n"
-"# Parameters step & inst are expected in 1->16 format (not 0->15).\n"
-"#\n"
-"proc step_draw {step inst prop} {\n"
-"	global grid\n"
-"    	upvar #0 tkxox xox\n"
-"\n"
-"	set x [expr $step / 2.0]\n"
-"	set y [expr 9.0 - [expr $inst / 2.0]]\n"
-"	if {[have_strong_accent $prop]} {\n"
-"	    set color $xox(col_strong_accent)\n"
-"	} elseif {[have_weak_accent $prop]} {\n"
-"	    set color $xox(col_weak_accent)\n"
-"	} elseif {[have_zero_velocity $prop]} {\n"
-"	    set color $xox(col_zero_velocity)\n"
-"	} else {\n"
-"	    set color $xox(col_default_velocity)\n"
-"	}\n"
-"	if {[have_fla $prop]} {\n"
-"	  # draw a star\n"
-"	  set new [$grid create polygon \\\n"
-"		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n"
-"		 [expr $x - (-0.0681818)]c  [expr $y - (0.0681818)]c \\\n"
-"		 [expr $x - (-0.1875)]c     [expr $y - (0.0681818)]c \\\n"
-"		 [expr $x - (-0.102273)]c   [expr $y - (-0.0426136)]c \\\n"
-"		 [expr $x - (-0.127841)]c   [expr $y - (-0.1875)]c \\\n"
-"		 [expr $x - (-0.00852273)]c [expr $y - (-0.127841)]c \\\n"
-"		 [expr $x - (0.119318)]c    [expr $y - (-0.1875)]c \\\n"
-"		 [expr $x - (0.102273)]c    [expr $y - (-0.0511364)]c \\\n"
-"		 [expr $x - (0.1875)]c      [expr $y - (0.0681818)]c \\\n"
-"		 [expr $x - (0.0681818)]c   [expr $y - (0.0681818)]c \\\n"
-"		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n"
-"		-outline $color \\\n"
-"		-fill    $color \\\n"
-"		-tags stepnode]\n"
-"	} else {\n"
-"	  # draw a circle\n"
-"	    set new [$grid create oval \\\n"
-"		[expr $x - 0.1875]c [expr $y - 0.1875]c	\\\n"
-"		[expr $x + 0.1875]c [expr $y + 0.1875]c \\\n"
-"		-outline black \\\n"
-"		-fill    $color \\\n"
-"		-tags stepnode]\n"
-"	}\n"
-"	$grid addtag ${step}_instr$inst withtag $new\n"
-"}\n"
-"#\n"
-"# Insert given step into current pattern with specified properties\n"
-"#\n"
-"proc step_insert {step prop} {\n"
-"	global grid\n"
-"	global tapwrite\n"
-"\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 pattern_list pl\n"
-"\n"
-"	#puts \"Inserting $mo(current_instr) at step $step into bank $mo(patgroup), pattern $mo(current_pattern)\"\n"
-"	# First check for duplicates (=> remove)\n"
-"	set pg   $mo(patgroup)\n"
-"	set cp   $mo(current_pattern)\n"
-"	set note $mo(current_instr)\n"
-"	if {[tk7_add_note $pg $cp $step $note]} {\n"
-"		tk7_set_properties $pg $cp $step $note $prop\n"
-"		step_draw [expr $step + 1] $mo(current_instr) $prop\n"
-"		#puts \"added note\"\n"
-"	} else {\n"
-"		$grid delete [expr $step + 1]_instr$mo(current_instr)\n"
-"		#puts \"deleted note\"\n"
-"	}\n"
-"}\n"
-"#\n"
-"# ClearGrid Display Area\n"
-"#\n"
-"proc grid_clear {} {\n"
-"	global grid\n"
-"\n"
-"	# Vertical lines\n"
-"	set xcoord 0.0\n"
-"	for {set i 0} {$i < 16} {incr i} {\n"
-"		set xcoord [expr $xcoord + 0.5]\n"
-"		$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n"
-"	}\n"
-"	# Horizontal lines\n"
-"	set ycoord 0.5\n"
-"	for {set i 0} {$i < 16} {incr i} {\n"
-"		set ycoord [expr $ycoord + 0.5]\n"
-"		$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n"
-"	}\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# Load sound map\n"
-"# -----------------------------------------------------------------------------\n"
-"set last_map_file_name \"\";\n"
-"\n"
-"proc load_sound_map {initialdir} {\n"
-"\n"
-"	# From TK-707 version 0.6, the format of .map files is changed\n"
-"	#	(they now include also abbreviation information, for volume labels).\n"
-"	# New format is recognized by number of saved data segments (4 rather than 3).\n"
-"\n"
-"	upvar #0 sound snd\n"
-"	upvar #0 last_map_file_name last_map_file_name\n"
-"\n"
-"	set ftypes	{\n"
-"		{{TK707 Sound Map} {.map}}\n"
-"		{{All types} {.*}}\n"
-"	}\n"
-"	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir ]\n"
-"\n"
-"	if {$fname == \"\"} {\n"
-"		return\n"
-"	}\n"
-"	set last_map_file_name [lindex [split $fname /] end];\n"
-"\n"
-"	set f [open $fname r]\n"
-"	set data \"\"\n"
-"	set i 1\n"
-"	while {[gets $f line] >= 0} {\n"
-"		if {[string index $line 0] == \"#\"} {\n"
-"			continue\n"
-"		}\n"
-"		set data [lindex $line 0]\n"
-"		set datasegs [llength $data]\n"
-"		set snd($i,name) [lindex $data 0]\n"
-"		set snd($i,shortname) [lindex $data 1]\n"
-"		if {$datasegs == 4} {\n"
-"		    set snd($i,abbrev) [lindex $data 2]\n"
-"		    set snd($i,note) [lindex $data 3]\n"
-"		} else {\n"
-"		    # we could set a better algo to abbrev\n"
-"		    set snd($i,abbrev) $snd($i,shortname)\n"
-"		    set snd($i,note) [lindex $data 2]\n"
-"		}\n"
-"		incr i\n"
-"	}\n"
-"	close $f\n"
-"\n"
-"	# Reset Name Displays\n"
-"	instrument_label_reset\n"
-"	tk7_set_sounds\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# Save sound map\n"
-"# -----------------------------------------------------------------------------\n"
-"proc save_sound_map {} {\n"
-"\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 sound snd\n"
-"	upvar #0 last_map_file_name last_map_file_name\n"
-"\n"
-"	set ftypes	{\n"
-"		{{TK707 Sound Map} {.map}}\n"
-"		{{All types} {.*}}\n"
-"	}\n"
-"	#puts \"last_map_file_name before: $last_map_file_name\"\n"
-"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_map_file_name]\n"
-"	if {$fname == \"\"} {\n"
-"		return\n"
-"	}\n"
-"	set last_map_file_name [lindex [split $fname /] end];\n"
-"\n"
-"	set f [open $fname w]\n"
-"	puts $f \"#################  TK707 Sound Map generated by $xox(VERSION)  #################\"\n"
-"	puts $f \"# Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }\"\n"
-"	puts $f \"############################################################################\"\n"
-"	for {set i 1} {$i < 17} {incr i} {\n"
-"		puts $f \"{ {$snd($i,name)} {$snd($i,shortname)} {$snd($i,abbrev)} {$snd($i,note)} }\"\n"
-"	}\n"
-"	close $f\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# Load data file\n"
-"# -----------------------------------------------------------------------------\n"
-"set last_data_file_name \"\";\n"
-"\n"
-"proc load_data_file {initialdir} {\n"
-"\n"
-"	# From TK-707 version 0.7, the format of .dat files is changed\n"
-"	#	(they now include also note properties information).\n"
-"	# New format is recognized by number of saved data segments (5 rather than 2, 3 or 4).\n"
-"	# They are:\n"
-"	#	segment 0: pattern note data\n"
-"	#	segment 1: pattern note properties\n"
-"	#	segment 2: pattern {length,scale,flam,shuffle} properties\n"
-"	#	segment 3: track data\n"
-"\n"
-"	# From TK-707 version 0.6, the format of .dat files is changed\n"
-"	#	(they now include also pattern scale information).\n"
-"	# New format is recognized by number of saved data segments (4 rather than 2 or 3).\n"
-"	# They are:\n"
-"	#	segment 0: pattern note data\n"
-"	#	segment 1: pattern length data\n"
-"	#	segment 2: pattern scale data\n"
-"	#	segment 3: track data\n"
-"\n"
-"	# From TK-707 version 0.5, the format of .dat files is changed\n"
-"	#	(they now include pattern length information).\n"
-"	# New format is recognized by number of saved data segments (3 rather than 2).\n"
-"	# They are:\n"
-"	#	segment 0: pattern note data\n"
-"	#	segment 1: pattern length data\n"
-"	#	segment 2: track data\n"
-"\n"
-"	upvar #0 track_list tl\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 last_data_file_name last_data_file_name\n"
-"\n"
-"	set ftypes	{\n"
-"		{{TK-707 Data} {.dat}}\n"
-"		{{All types} {.*}}\n"
-"	}\n"
-"	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir]\n"
-"	if {$fname == \"\"} {\n"
-"		return\n"
-"	}\n"
-"	set last_data_file_name [lindex [split $fname /] end];\n"
-"	#puts \"LOAD last_data_file_name $last_data_file_name\"\n"
-"\n"
-"	set f [open $fname r]\n"
-"	set data \"\"\n"
-"	while {[gets $f line] >= 0} {\n"
-"		if {[string index $line 0] == \"#\"} {\n"
-"			continue\n"
-"		}\n"
-"		set data \"$data [string trim $line]\"\n"
-"	}\n"
-"	close $f\n"
-"\n"
-"	# ----------------------------------\n"
-"	# find format version from structure\n"
-"	# ----------------------------------\n"
-"	set datasegs [llength [lindex $data 0]]\n"
-"	set data_version \"unknown\";\n"
-"	if {$datasegs == 2} {\n"
-"	    set data_version 2;\n"
-"	} elseif {$datasegs == 3} {\n"
-"	    set data_version 5;\n"
-"	} elseif {$datasegs == 4} {\n"
-"	    set segment2 [lindex [lindex $data 0] 2]\n"
-"	    set n_seg2_level2 [llength [lindex [lindex $segment2 0] 0]]\n"
-"	    if {$n_seg2_level2 == 1} {\n"
-"	        set data_version 6;\n"
-"	    } elseif {$n_seg2_level2 >= 4} {\n"
-"	        set data_version 7;\n"
-"	    }\n"
-"	}\n"
-"	#puts \"data_version $data_version\"\n"
-"	if {$data_version == \"unknown\"} {\n"
-"	    puts \"ERROR: ${fname}: unexpected data format\";\n"
-"	    return;\n"
-"	}\n"
-"	# ----------------------------------\n"
-"	# load segments\n"
-"	# ----------------------------------\n"
-"	set loadsegment 0\n"
-"	tk7_clear_tree\n"
-"	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Pattern data\n"
-"	set i 0\n"
-"	foreach bankdata $pdata {\n"
-"		set j 0\n"
-"		foreach patterndata $bankdata {\n"
-"			set k 0\n"
-"			foreach stepdata $patterndata {\n"
-"				if {[llength $stepdata] > 0} {\n"
-"					foreach n $stepdata {\n"
-"						tk7_add_note $i $j $k $n\n"
-"					}\n"
-"				}\n"
-"				incr k\n"
-"			}\n"
-"			incr j\n"
-"		}\n"
-"		incr i\n"
-"	}\n"
-"	incr loadsegment\n"
-"\n"
-"	if {$data_version >= 7} {\n"
-"	    # format version 0.7 includes note properties: flam, accents, etc...\n"
-"	    set p_prop [lindex [lindex $data 0] $loadsegment]	;	#Pattern note properties\n"
-"	    set p_data [lindex [lindex $data 0] 0]\n"
-"	    set i 0\n"
-"	    foreach bank_prop $p_prop {\n"
-"	        set bank_data [lindex $p_data $i]\n"
-"		set j 0\n"
-"		foreach pattern_prop $bank_prop {\n"
-"	            set pattern_data [lindex $bank_data $j]\n"
-"		    set k 0\n"
-"		    foreach step_prop $pattern_prop {\n"
-"	                set step_data [lindex $pattern_data $k]\n"
-"			if {[llength $step_prop] > 0} {\n"
-"			    set idx_n 0\n"
-"			    foreach p $step_prop {\n"
-"	                        set n [lindex $step_data $idx_n]\n"
-"			        tk7_set_properties $i $j $k $n $p\n"
-"		        	incr idx_n\n"
-"			    }\n"
-"			}\n"
-"		        incr k\n"
-"		    }\n"
-"		    incr j\n"
-"		}\n"
-"		incr i\n"
-"	    }\n"
-"	    incr loadsegment\n"
-"	}\n"
-"	pattern_setid $mo(current_pattern)\n"
-"\n"
-"	if {$data_version >= 5} {\n"
-"		# format version 0.5 and 0.6 includes length info.\n"
-"	    	# format version 0.7 includes {length,scale,flam,shuffle} infos.\n"
-"		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step length data\n"
-"		set grp 0\n"
-"		foreach grpdata $pdata {\n"
-"			set pat 0\n"
-"			foreach pldata $grpdata {\n"
-"				if {$data_version >= 7} {\n"
-"				    # from TK-707 version 0.7: {length,scale,flam,shuffle} infos.\n"
-"				    tk7_set_last_step $grp $pat [lindex $pldata 0]\n"
-"				    tk7_set_scale     $grp $pat [lindex $pldata 1]\n"
-"				    tk7_set_flam      $grp $pat [lindex $pldata 2]\n"
-"				    tk7_set_shuffle   $grp $pat [lindex $pldata 3]\n"
-"				    if {[llength $pldata] >= 5} {\n"
-"				      tk7_set_pattern_comment  $grp $pat [lindex $pldata 4]\n"
-"				    }\n"
-"				} else {\n"
-"				    # TK-707 version 0.5 and 0.6: step length info.\n"
-"				    tk7_set_last_step $grp $pat $pldata\n"
-"				}\n"
-"				incr pat\n"
-"			}\n"
-"			incr grp\n"
-"		}\n"
-"		incr loadsegment\n"
-"	}\n"
-"	if {$data_version == 6} {\n"
-"		# format version 0.6 includes step scale info.\n"
-"		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step scale data\n"
-"		set grp 0\n"
-"		foreach grpdata $pdata {\n"
-"			set pat 0\n"
-"			foreach pldata $grpdata {\n"
-"				set scaleresult  [tk7_set_scale $grp $pat $pldata]\n"
-"				incr pat\n"
-"			}\n"
-"			incr grp\n"
-"		}\n"
-"		incr loadsegment\n"
-"	}\n"
-"	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Track data\n"
-"	set i 0\n"
-"	foreach trackdata $pdata {\n"
-"		#puts $trackdata\n"
-"		set tl($i) [join $trackdata]\n"
-"		incr i\n"
-"	}\n"
-"	ac_track 0\n"
-"	pattern_show\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# Save data file\n"
-"# -----------------------------------------------------------------------------\n"
-"proc reverse {l1} {\n"
-"    set n  [llength $l1]\n"
-"    set l2 {}\n"
-"    for {set i [expr $n - 1]} {$i >= 0} {set i [expr $i - 1]} {\n"
-"        lappend l2 [lindex $l1 $i]\n"
-"    }\n"
-"    return $l2\n"
-"}\n"
-"proc save_data_file {} {\n"
-"\n"
-"	upvar #0 pattern_list pl\n"
-"	upvar #0 track_list tl\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 last_data_file_name last_data_file_name\n"
-"\n"
-"	set ftypes	{\n"
-"		{{TK-707 Data} {.dat}}\n"
-"		{{All types} {.*}}\n"
-"	}\n"
-"	#puts \"PREV last_data_file_name $last_data_file_name\"\n"
-"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_data_file_name]\n"
-"	if {$fname == \"\"} {\n"
-"		return\n"
-"	}\n"
-"	set last_data_file_name [lindex [split $fname /] end];\n"
-"	#puts \"NEW last_data_file_name $last_data_file_name\"\n"
-"\n"
-"	set f [open $fname w]\n"
-"	puts $f \"####################### MACHINE GENERATED - DO NOT EDIT #######################\"\n"
-"	puts $f \"####   TK707 Data file generated by $xox(VERSION)\"\n"
-"	puts $f \"###############################################################################\"\n"
-"	puts $f \"{\"							;	# Begin DATA\n"
-"\n"
-"	# PATTERN NOTES. Four groups of 16 patterns each with 16 steps.\n"
-"	puts $f \" {\"							;	# Begin PATTERNS\n"
-"	for {set i 0} {$i<4} {incr i} {\n"
-"	    puts $f \"  {\"						;	# Begin GROUP i\n"
-"	    for {set j 0} {$j<16} {incr j} {\n"
-"		puts $f \"   {\"						;	# Begin PATTERN j\n"
-"		for {set k 0} {$k<16} {incr k} {\n"
-"		    set instruments [tk7_pattern_items $i $j $k]\n"
-"		    set instruments [reverse $instruments]\n"
-"		    puts $f \"    { $instruments }\"\n"
-"		}\n"
-"		puts $f \"   }\"						;	# End PATTERN j\n"
-"	    }\n"
-"	    puts $f \"  }\"						;	# End GROUP i\n"
-"	}\n"
-"	puts $f \" }\"							;	# End PATTERNS\n"
-"\n"
-"	# PATTERN NOTES PROPERTIES. Four groups of 16 patterns each with 16 steps.\n"
-"	puts $f \" {\"							;	# Begin PATTERNS\n"
-"	for {set i 0} {$i<4} {incr i} {\n"
-"	    puts $f \"  {\"						;	# Begin GROUP i\n"
-"	    for {set j 0} {$j<16} {incr j} {\n"
-"		puts $f \"   {\"						;	# Begin PATTERN j\n"
-"		for {set k 0} {$k<16} {incr k} {\n"
-"		    set properties [tk7_get_pattern_properties $i $j $k]\n"
-"		    set properties [reverse $properties]\n"
-"		    puts $f \"    { $properties }\"\n"
-"		}\n"
-"		puts $f \"   }\"						;	# End PATTERN j\n"
-"	    }\n"
-"	    puts $f \"  }\"						;	# End GROUP i\n"
-"	}\n"
-"	puts $f \" }\"							;	# End PATTERNS\n"
-"\n"
-"	# PATTERN PROPERTIES. Four lots of sixteen 4-lists. New from TK-707 version 0.7\n"
-"	puts $f  \" {\"							;	# Begin PATTERN PROPERTIES\n"
-"	for {set i 0} {$i<4} {incr i} {\n"
-"		set pat_props [tk7_group_pattern_properties $i]		; 	# Group step lengths \n"
-"		puts $f \"  { $pat_props }\"				; 	# Group step lengths \n"
-"	}\n"
-"	puts $f  \" }\"							;	# End PATTERN PROPERTIES\n"
-"\n"
-"	# TRACK DATA. Four tracks of arbitrary length.\n"
-"	puts $f \" {\"							;	# Begin TRACKS\n"
-"	for {set i 0} {$i<4} {incr i} {\n"
-"		puts $f \"  { $tl($i) }\"					;	# TRACK i data\n"
-"	}\n"
-"	puts $f \" }\"							;	# End TRACKS\n"
-"	puts $f \"}\"							;	# End DATA\n"
-"	close $f\n"
-"}\n"
-"# --------------------\n"
-"# compute the velocity\n"
-"# --------------------\n"
-"# velocity range is 0..127 as integer\n"
-"# volume   range is 0..1   as float\n"
-"proc compute_velocity {prop volume_master volume_accent volume_instr} {\n"
-"\n"
-"    if {[have_zero_velocity $prop]} {\n"
-"	set velocity_factor 0\n"
-"    } else {\n"
-"    	set velocity_factor 1\n"
-"    }\n"
-"    if {[have_strong_accent $prop]} {\n"
-"	set accent_factor 1\n"
-"    } elseif {[have_weak_accent $prop]} {\n"
-"	set accent_factor 2/3.0\n"
-"    } else {\n"
-"	set accent_factor 1/3.0\n"
-"    }\n"
-"    set volume_note [expr  $volume_master \\\n"
-"	     	     	  *$velocity_factor*$volume_instr \\\n"
-"		      	  *$accent_factor*$volume_accent]\n"
-"    set velocity [expr int(127 * $volume_note + 0.5)]\n"
-"    return $velocity\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# Save midi file - current track\n"
-"# -----------------------------------------------------------------------------\n"
-"\n"
-"set last_midi_file_name \"\";\n"
-"set prev_data_file_name \"\";\n"
-"\n"
-"proc put_note {f tick_shift midinote velocity} {\n"
-"    if {$tick_shift > 127} {\n"
-"        varlen_short shortres $tick_shift\n"
-"	puts -nonewline $f [binary format c2 [list $shortres(high) $shortres(low)]]\n"
-"	set size 2\n"
-"    } else {\n"
-"        puts -nonewline $f [binary format c1 $tick_shift]\n"
-"	set size 1\n"
-"    }\n"
-"    puts -nonewline $f [binary format c2 [list $midinote $velocity]]\n"
-"    return [expr $size + 2]\n"
-"}\n"
-"proc put_note_off {f tick_shift midinote} {\n"
-"    return [put_note $f $tick_shift $midinote 0]\n"
-"}\n"
-"proc save_midi_file {} {\n"
-"	global cunit\n"
-"	global masterv\n"
-"\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 sound snd\n"
-"	upvar #0 track_list tl\n"
-"	upvar #0 has_delay has_delay\n"
-"	upvar #0 last_midi_file_name last_midi_file_name\n"
-"	upvar #0 last_data_file_name last_data_file_name\n"
-"	upvar #0 prev_data_file_name prev_data_file_name\n"
-"	upvar #0 instrument_to_volume instrument_to_volume\n"
-"\n"
-"	if {    ($last_data_file_name != \"\")\n"
-"	    && (($prev_data_file_name == \"\") ||\n"
-"	        ($prev_data_file_name != $last_data_file_name)) } {\n"
-"\n"
-"	    # build a predefined name:\n"
-"	    set x [lindex [split $last_data_file_name .] 0];\n"
-"	    set t $mo(current_track)\n"
-"	    set last_midi_file_name \"${x}-track${t}.mid\"\n"
-"	}\n"
-"	set ftypes	{\n"
-"		{{Midi File Format} {.mid}}\n"
-"		{{All types} {.*}}\n"
-"	}\n"
-"	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_midi_file_name]\n"
-"	if {$fname == \"\"} {\n"
-"	    return\n"
-"	}\n"
-"	set last_midi_file_name [lindex [split $fname /] end];\n"
-"	set prev_data_file_name $last_data_file_name\n"
-"\n"
-"	set thirty_second_note_on_ratio 5; 	# customize the ratio !\n"
-"						# ex1: ratio=3\n"
-"						# => 1/3 note-on\n"
-"						#    2/3 note-off, for a thirty-second \n"
-"						# ex2: ratio=16\n"
-"						# => 1/16 note-on, 15/16 note-off\n"
-"						# ex3: ratio=1\n"
-"						# => 100 % note-on; not for percussions...\n"
-"\n"
-"	set tick_per_note_on            3; 	# how long, in ticks, the note is on\n"
-"						# DO NOT change ! because we may divide \n"
-"						# it per 3 quarters and eigth later...\n"
-"\n"
-"	set tick_per_thirty_second      [expr  $thirty_second_note_on_ratio*$tick_per_note_on];\n"
-"	set tick_per_quarter            [expr  8*$tick_per_thirty_second];\n"
-"\n"
-"	# steps are in two parts:\n"
-"	#	a note-on part, which have a duration independant of the scale (a hit)\n"
-"	#	a note-off part, which depend on the scale:\n"
-"\n"
-"	# scale(0): 1 step = quarter/4\n"
-"        set tick_per_step_off_scale(0) [expr $tick_per_quarter/4 - $tick_per_note_on];\n"
-"\n"
-"	# scale(1): 1 step = quarter/8\n"
-"        set tick_per_step_off_scale(1) [expr $tick_per_quarter/8 - $tick_per_note_on];\n"
-"\n"
-"	# scale(2): 1 step = quarter/3\n"
-"        set tick_per_step_off_scale(2) [expr $tick_per_quarter/3 - $tick_per_note_on];\n"
-"\n"
-"	# scale(3): 1 step = quarter/6\n"
-"        set tick_per_step_off_scale(3) [expr $tick_per_quarter/6 - $tick_per_note_on];\n"
-"\n"
-"	# ex1: ratio=3\n"
-"	#     => tick_per_step_off_scale = {15   6  21   9}\n"
-"	# ex1: ratio=16\n"
-"	#     => tick_per_step_off_scale = {93   45  125   61}\n"
-"	#        the grid is finer and the result is better\n"
-"	# ex3: ratio=1\n"
-"	#     => tick_per_step_off_scale = {3, 0, 5, 1}, as expected.\n"
-"	#	 as expected, the thirty-second has no note-off part...\n"
-"\n"
-"	#\n"
-"	# get volumes:\n"
-"	#\n"
-"	set volume_master [expr [$masterv.sf.s get] / 100.0]\n"
-"	#puts \"volume_master $volume_master\"\n"
-"	set volume_accent [expr [$cunit.0.sf.s get] / 100.0]\n"
-"	#puts \"volume_accent $volume_accent\"\n"
-"	set volume_set {}\n"
-"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-"	    set i_vol $instrument_to_volume($instrument)\n"
-"	    set volume($instrument) [expr [$cunit.${i_vol}.sf.s get] / 100.0]\n"
-"	    #puts \"volume($instrument) $volume($instrument)\"\n"
-"	}\n"
-"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-"	    set in_note($instrument) 0;\n"
-"	}\n"
-"	set f [open $fname w]\n"
-"	puts -nonewline $f MThd\n"
-"	puts -nonewline $f [binary format I 6]\n"
-"	puts -nonewline $f [binary format S 0]\n"
-"	puts -nonewline $f [binary format S 1]\n"
-"	puts -nonewline $f [binary format S $tick_per_quarter]\n"
-"	puts -nonewline $f MTrk\n"
-"	set loc_tracksize 18\n"
-"	puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n"
-"\n"
-"	# Meta Event to set track tempo\n"
-"	set micro_tempo [expr 60000000 / $mo(tempo)]\n"
-"	puts -nonewline $f [binary format c7 [list 0 255 81 3 [expr $micro_tempo >> 16] [expr $micro_tempo >> 8] $micro_tempo]]\n"
-"	set tracksize 7\n"
-"\n"
-"	# Establish running status with a zero volume note\n"
-"	puts -nonewline $f [binary format c4 [list 0 [expr 144 + $mo(midi_channel)] 17 0]]\n"
-"	incr tracksize 4\n"
-"\n"
-"	set track $tl($mo(current_track))\n"
-"	set tick_shift 0\n"
-"	foreach patid $track {\n"
-"	    set group     [expr $patid / 16]\n"
-"	    set pattern   [expr $patid % 16]\n"
-"	    set last_step [tk7_get_last_step $group $pattern]\n"
-"	    set scale     [tk7_get_scale $group $pattern]\n"
-"	    set step 0\n"
-"	    while {$step < $last_step} {\n"
-"		set instrument_set [tk7_pattern_items          $group $pattern $step]\n"
-"		set property_set   [tk7_get_pattern_properties $group $pattern $step]\n"
-"		set idx 0\n"
-"		foreach instrument $instrument_set {\n"
-"		    if {$instrument == \"\"} {\n"
-"			#puts \"EMPTY instrument ?? idx = $idx\"\n"
-"		        incr idx\n"
-"			continue;\n"
-"		    }\n"
-"		    # ------------\n"
-"		    # start a note\n"
-"		    # ------------\n"
-"		    set midinote $snd($instrument,note)\n"
-"    		    set prop [lindex $property_set $idx]\n"
-"		    set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n"
-"		    incr tracksize [put_note $f $tick_shift $midinote $velocity]\n"
-"		    set tick_shift 0\n"
-"		    if {! $has_delay($instrument) && ! [have_zero_velocity $prop]} {\n"
-"			# start a note without delay\n"
-"		        set in_note($instrument) 1\n"
-"		    }\n"
-"		    incr idx\n"
-"		}\n"
-"		set flam_interval [tk7_get_flam $group $pattern]\n"
-"		set tick_per_flam [expr $xox(tick_flam_duration) * $flam_interval]\n"
-"		incr tick_shift $tick_per_flam\n"
-"		if {$flam_interval != 0} {\n"
-"		    set idx 0\n"
-"		    foreach instrument $instrument_set {\n"
-"		        if {$instrument == \"\"} {\n"
-"			    continue;\n"
-"		        }\n"
-"	  	        set prop [lindex $property_set $idx]\n"
-"		        if {! [have_fla $prop]} {\n"
-"			    continue;\n"
-"		        }\n"
-"		        # ----------------------\n"
-"		        # write a fla note\n"
-"		        # ----------------------\n"
-"		        set midinote $snd($instrument,note)\n"
-"    		        set prop [lindex $property_set $idx]\n"
-"		        set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n"
-"		        incr tracksize [put_note $f $tick_shift $midinote $velocity]\n"
-"		        set tick_shift 0\n"
-"		        incr idx\n"
-"		    }\n"
-"		}\n"
-"		incr tick_shift [expr $tick_per_note_on - $tick_per_flam]\n"
-"		foreach instrument $instrument_set {\n"
-"		    if {$instrument == \"\"} {\n"
-"			continue;\n"
-"		    }\n"
-"		    if {! $has_delay($instrument)} {\n"
-"			continue;\n"
-"		    }\n"
-"		    # ----------------------\n"
-"		    # stop a note with delay\n"
-"		    # ----------------------\n"
-"		    set midinote $snd($instrument,note)\n"
-"		    incr tracksize [put_note_off $f $tick_shift $midinote]\n"
-"		    set tick_shift 0\n"
-"		}\n"
-"		incr tick_shift $tick_per_step_off_scale($scale)\n"
-"\n"
-"		incr step\n"
-"	    }\n"
-"	}\n"
-"	# stop current long notes on (whistle, etc...)\n"
-"	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n"
-"\n"
-"		if {$in_note($instrument)} {\n"
-"\n"
-"		 #puts \"stop instrument $instrument\";\n"
-"\n"
-"		 set midinote $snd($instrument,note)\n"
-"		 incr tracksize [put_note_off $f $tick_shift $midinote]\n"
-"		 set tick_shift 0\n"
-"	    }\n"
-"	}\n"
-"	# End of track\n"
-"	puts -nonewline $f [binary format c 0]\n"
-"	puts -nonewline $f [binary format c3 {255 47 0}]\n"
-"	incr tracksize 4\n"
-"\n"
-"	# Go back and insert tracksize\n"
-"	flush $f\n"
-"	seek $f $loc_tracksize\n"
-"	puts -nonewline $f [binary format I $tracksize]\n"
-"	close $f\n"
-"}\n"
-"# -----------------------------------------------------------------------------\n"
-"# fileMidi - TEST area\n"
-"# -----------------------------------------------------------------------------\n"
-"proc fileAction {a} {\n"
-"	upvar #0 pattern_list pl\n"
-"	upvar #0 track_list tl\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	if {$a == 99} {\n"
-"		set ftypes	{\n"
-"			{{Midi File Format} {.mid}}\n"
-"			{{All types} {.*}}\n"
-"		}\n"
-"		set fname [tk_getSaveFile -filetypes $ftypes]\n"
-"		if {$fname == \"\"} {\n"
-"			return\n"
-"		}\n"
-"		set f [open $fname w]\n"
-"\n"
-"		puts -nonewline $f MThd\n"
-"		puts -nonewline $f [binary format I 6]\n"
-"		puts -nonewline $f [binary format S 0]\n"
-"		puts -nonewline $f [binary format S 1]\n"
-"		puts -nonewline $f [binary format S 7]\n"
-"		puts -nonewline $f MTrk\n"
-"		set loc_tracksize 18\n"
-"		puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n"
-"\n"
-"		puts -nonewline $f [binary format c2 [list 0 [expr 144 + $mo(midi_channel)]]]\n"
-"\n"
-"		# Once running status is established, format is\n"
-"		# {note onlevel pause note offlevel pause}\n"
-"		puts -nonewline $f [binary format c12 {35 127 0 51 127 2 35 0 0 51 0 4}]\n"
-"		puts -nonewline $f [binary format c6 {48 127 2 48 0 4}]\n"
-"		puts -nonewline $f [binary format c6 {38 127 2 38 0 4}]\n"
-"		puts -nonewline $f [binary format c6 {51 127 2 51 0 4}]\n"
-"\n"
-"		# End of track\n"
-"		puts -nonewline $f [binary format c3 {255 47 0}]\n"
-"\n"
-"		set tracksize 35\n"
-"		# Go back and insert tracksize\n"
-"		flush $f\n"
-"		seek $f $loc_tracksize\n"
-"		puts -nonewline $f [binary format I $tracksize]\n"
-"		close $f\n"
-"	} else {\n"
-"		puts \"INTERNAL ERROR: Unexected file action: $a\"\n"
-"	}\n"
-"}\n"
-"proc varlen_short {result value} {\n"
-"	upvar $result res\n"
-"\n"
-"	if {$value < 128} {\n"
-"		set res(high) 0\n"
-"		set res(low) $value\n"
-"	} else {\n"
-"		set res(high) [expr 128 + [expr $value / 128]]\n"
-"#		set res(high) [expr 65536 + [expr $value / 128]]\n"
-"		set res(low) [expr $value % 128]\n"
-"	}\n"
-"}\n"
-"\n"
-"#=============================================================\n"
-"# These procs to edit mapping of note keys to midi note values\n"
-"#\n"
-"proc map_edit {} {\n"
-"	global font12\n"
-"	global boldfont12\n"
-"	upvar #0 sound snd\n"
-"	upvar #0 soundbuf sbuf\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	if {[winfo exists .edit]} {\n"
-"		wm deiconify .edit\n"
-"	} else {\n"
-"		toplevel .edit\n"
-"		wm title .edit \"Edit Sound Map\"\n"
-"\n"
-"		set m_titles .edit.t\n"
-"		canvas $m_titles -height 0.75c -width 13.5c -relief raised -borderwidth 2\n"
-"		pack $m_titles\n"
-"		set m_maps .edit.m\n"
-"		frame $m_maps\n"
-"		pack $m_maps\n"
-"		set m_opts	.edit.o\n"
-"		canvas $m_opts -height 1.5c -width 13.5c\n"
-"		pack $m_opts\n"
-"\n"
-"		label $m_titles.key    -text \"Key\"        -font *-${boldfont12}-*\n"
-"		label $m_titles.long   -text \"Long Name\"  -font *-${boldfont12}-*\n"
-"		label $m_titles.short  -text \"Short Name\" -font *-${boldfont12}-*\n"
-"		label $m_titles.abbrev -text \"Abbrev\"     -font *-${boldfont12}-*\n"
-"		label $m_titles.note   -text \"Note\"       -font *-${boldfont12}-*\n"
-"		label $m_titles.test   -text \"Test\"       -font *-${boldfont12}-*\n"
-"		$m_titles create window  0c   0.45c -window $m_titles.key    -anchor w -width 1c\n"
-"		$m_titles create window  1c   0.45c -window $m_titles.long   -anchor w -width 4c\n"
-"		$m_titles create window  5.3c 0.45c -window $m_titles.short  -anchor w -width 2c\n"
-"		$m_titles create window  7.5c 0.45c -window $m_titles.abbrev -anchor w -width 2c\n"
-"		$m_titles create window 10.0c 0.45c -window $m_titles.note   -anchor w -width 1c\n"
-"		$m_titles create window 11.7c 0.45c -window $m_titles.test   -anchor w -width 1c\n"
-"\n"
-"		# Name, Shortname, Midi note entries\n"
-"		#\n"
-"		for {set i 0} {$i < 16} {incr i} {\n"
-"			canvas $m_maps.$i -height 1c -width 13.5c\n"
-"			label $m_maps.$i.l -text [expr $i + 1] -font *-${font12}-*\n"
-"			entry $m_maps.$i.long  -font *-${font12}-*\n"
-"			entry $m_maps.$i.short  -font *-${font12}-*\n"
-"			entry $m_maps.$i.abbrev  -font *-${font12}-*\n"
-"			entry $m_maps.$i.note  -font *-${font12}-*\n"
-"			button $m_maps.$i.test \\\n"
-"				-bitmap nix \\\n"
-"				-bg $xox(but_grey) \\\n"
-"				-activebackground $xox(but_grey_active) \\\n"
-"				-width 1.0c -height 0.7c\n"
-"\n"
-"			$m_maps.$i create window 0c   0.5c -window $m_maps.$i.l 	 -anchor w -width 1c\n"
-"			$m_maps.$i create window 1c   0.5c -window $m_maps.$i.long -anchor w -width 4c\n"
-"			$m_maps.$i create window 5c   0.5c -window $m_maps.$i.short -anchor w -width 2.5c\n"
-"			$m_maps.$i create window 7.5c 0.5c -window $m_maps.$i.abbrev -anchor w -width 2.5c\n"
-"			$m_maps.$i create window 10c  0.5c -window $m_maps.$i.note -anchor w -width 1c\n"
-"			$m_maps.$i create window 11.2c 0.5c -window $m_maps.$i.test -anchor w -width 2.1c\n"
-"\n"
-"			set j [expr $i + 1]\n"
-"			$m_maps.$i.long insert 0 $snd($j,name)\n"
-"			set sbuf($j,name) $snd($j,name)\n"
-"			$m_maps.$i.short insert 0 $snd($j,shortname)\n"
-"			set sbuf($j,shortname) $snd($j,shortname)\n"
-"			$m_maps.$i.abbrev insert 0 $snd($j,abbrev)\n"
-"			set sbuf($j,abbrev) $snd($j,abbrev)\n"
-"			$m_maps.$i.note insert 0 $snd($j,note)\n"
-"			set sbuf($j,note) $snd($j,note)\n"
-"			pack $m_maps.$i\n"
-"\n"
-"			bind $m_maps.$i.test <ButtonPress-1>    {map_start_test_note %W}\n"
-"			bind $m_maps.$i.test <ButtonRelease-1>  {map_stop_test_note %W}\n"
-"\n"
-"			bind $m_maps.$i.note <Shift-ButtonPress-1>   {map_start_set_note %W 1}\n"
-"			bind $m_maps.$i.note <Shift-ButtonRelease-1> {map_stop_set_note %W}\n"
-"\n"
-"			bind $m_maps.$i.note <Control-ButtonPress-1>   {map_start_set_note %W -1}\n"
-"			bind $m_maps.$i.note <Control-ButtonRelease-1> {map_stop_set_note %W}\n"
-"\n"
-"			bind $m_maps.$i.note <Button-2>  {\n"
-"				set noteY %y\n"
-"			}\n"
-"			bind $m_maps.$i.note <B2-Motion> {\n"
-"				set direction [expr %y - $noteY]\n"
-"				if {$direction >= 0} {\n"
-"				    set diff 1\n"
-"				} else {\n"
-"				    set diff -1\n"
-"				}\n"
-"				map_start_set_note %W $diff\n"
-"				after 500;\n"
-"				map_stop_set_note  %W\n"
-"			}\n"
-"		}\n"
-"\n"
-"		# Cancel, Apply, OK buttons\n"
-"		#\n"
-"		button $m_opts.cancel -text Cancel -font *-${font12}-* -command {\n"
-"			upvar #0 soundbuf buf\n"
-"			for {set i 0} {$i < 16} {incr i} {\n"
-"				set j [expr $i + 1]\n"
-"				.edit.m.$i.long delete 0 100\n"
-"				.edit.m.$i.long insert 0 $buf($j,name)\n"
-"				set snd($j,name) $buf($j,name)\n"
-"\n"
-"				.edit.m.$i.short delete 0 100\n"
-"				.edit.m.$i.short insert 0 $buf($j,shortname)\n"
-"				set snd($j,shortname) $buf($j,shortname)\n"
-"\n"
-"				.edit.m.$i.abbrev delete 0 100\n"
-"				.edit.m.$i.abbrev insert 0 $buf($j,abbrev)\n"
-"				set snd($j,abbrev) $buf($j,abbrev)\n"
-"\n"
-"				.edit.m.$i.note delete 0 end\n"
-"				.edit.m.$i.note insert 0 $buf($j,note)\n"
-"				set snd($j,note) $buf($j,note)\n"
-"			}\n"
-"			instrument_label_reset\n"
-"			tk7_set_sounds\n"
-"			destroy .edit\n"
-"		}\n"
-"		button $m_opts.apply -text Apply -font *-${font12}-* -command {\n"
-"			map_set_new_sounds\n"
-"		}\n"
-"		button $m_opts.ok -text OK -font *-${font12}-* -command {\n"
-"			map_set_new_sounds\n"
-"			destroy .edit\n"
-"		}\n"
-"		$m_opts create window 1c 0.75c -window $m_opts.cancel -anchor w -width 2.5c\n"
-"		$m_opts create window 4c 0.75c -window $m_opts.apply -anchor w -width 2.5c\n"
-"		$m_opts create window 7c 0.75c -window $m_opts.ok -anchor w -width 2.5c\n"
-"	}\n"
-"}\n"
-"\n"
-"proc map_set_new_sounds {} {\n"
-"	global .edit\n"
-"	upvar #0 sound snd\n"
-"	upvar #0 soundbuf sbuf\n"
-"\n"
-"	for {set i 0} {$i < 16} {incr i} {\n"
-"		set j [expr $i + 1]\n"
-"		set snd($j,name) [.edit.m.$i.long get]\n"
-"		set snd($j,shortname) [.edit.m.$i.short get]\n"
-"		set snd($j,abbrev) [.edit.m.$i.abbrev get]\n"
-"		set snd($j,note) [.edit.m.$i.note get]\n"
-"	}\n"
-"	instrument_label_reset\n"
-"	tk7_set_sounds\n"
-"}\n"
-"\n"
-"proc map_start_test_note widget {\n"
-"	global .edit\n"
-"	set k [string range [string trimright $widget .test] 8 end]\n"
-"	set n [.edit.m.$k.note get]\n"
-"	tk7_start_note_test $k $n\n"
-"}\n"
-"proc map_stop_test_note widget {\n"
-"	global .edit\n"
-"	set k [string range [string trimright $widget .test] 8 end]\n"
-"	set n [.edit.m.$k.note get]\n"
-"	tk7_stop_note_test $k $n\n"
-"}\n"
-"proc map_start_set_note {widget diff} {\n"
-"	set newval [expr [$widget get] + $diff]\n"
-"	set newval [expr $newval % 128]\n"
-"	$widget delete 0 end\n"
-"	$widget insert 0 $newval\n"
-"	set k [string range [string trimright $widget .note] 8 end]\n"
-"	tk7_start_note_test $k $newval\n"
-"}\n"
-"proc map_stop_set_note {widget} {\n"
-"	set keynum    [string range [string trimright $widget .note] 8 end]\n"
-"	set midi_note [$widget get]\n"
-"	tk7_stop_note_test $keynum $midi_note\n"
-"}\n"
-"#=============================================================\n"
-"\n"
-"#=====================================================\n"
-"# These procs to edit mapping of instruments to faders\n"
-"#\n"
-"proc fader_edit {} {\n"
-"	if {[winfo exists .fadermap]} {\n"
-"		wm deiconify .fadermap\n"
-"	} else {\n"
-"		toplevel .fadermap\n"
-"		wm title .fadermap \"Edit Fader Map\"\n"
-"\n"
-"		text .fadermap.intro -width 64 -height 16\n"
-"		.fadermap.intro insert end	\\\n"
-"\"Editing of the Instrument to Fader map is not implemented yet.\n"
-"The default mapping being used is:\n"
-"\n"
-"Vol 0 (the first fader ) - unused\n"
-"Vol 1	- Bass drums 1 & 2\n"
-"Vol 2	- Snare drums 1 & 2\n"
-"Vol 3	- Low Tom\n"
-"Vol 4	- Mid Tom\n"
-"Vol 5	- High Tom\n"
-"Vol 6	- Rimshot & Cowbell\n"
-"Vol 7	- Handclap & Tambourine\n"
-"Vol 8	- Highhats (all)\n"
-"Vol 9	- Crash cymbal\n"
-"Vol 10	- Ride cymbal\n"
-"VOLUME	- Master volume over all instruments\n"
-"\"\n"
-"\n"
-"		button .fadermap.ok -text OK -command {destroy .fadermap}\n"
-"\n"
-"		pack .fadermap.intro\n"
-"		pack .fadermap.ok -expand true -fill x\n"
-"	}\n"
-"\n"
-"}\n"
-"#=====================================================\n"
-"#\n"
-"# Flash the lamps for each of the 16 steps in 1 pattern\n"
-"# (fix later for patterns with fewer steps)\n"
-"#\n"
-"#ex: cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n"
-"proc cycle_notes {on dur w saved steps} {\n"
-"	global notes\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 flash fl\n"
-"\n"
-"	if {$on == 1} {\n"
-"		switch $mo(stopgo) {\n"
-"		0	{\n"
-"			#puts \"stopgo = STOP\"\n"
-"			set fl(count) -1\n"
-"			}\n"
-"		1	{\n"
-"			incr fl(count)\n"
-"			if {$fl(count) > [expr $steps - 1]} {\n"
-"				set fl(count) -1\n"
-"				return\n"
-"			}\n"
-"			set savecolour [lindex [$notes.note$fl(count).l configure -bg] 4]\n"
-"			set savedwin $notes.note$fl(count).l\n"
-"			#puts \"cycle $fl(count) ON \"\n"
-"			$savedwin configure -bg $xox(col_on)\n"
-"			after $dur [list cycle_notes 0 $dur $savedwin $savecolour $steps]\n"
-"			}\n"
-"		2	{\n"
-"			#puts \"stopgo = CONT\"\n"
-"			}\n"
-"		}\n"
-"	} else {\n"
-"#		#puts \"cycle $fl(count) OFF\"\n"
-"		$w configure -bg $saved\n"
-"		if {$mo(stopgo) != $xox(START)} {\n"
-"			set fl(count) 15\n"
-"			return\n"
-"		}\n"
-"\n"
-"		if {$fl(count) < $steps} {\n"
-"			after $dur [list cycle_notes 1 $dur 0 0 $steps]\n"
-"		} else {\n"
-"			set fl(count) -1\n"
-"			return\n"
-"		}\n"
-"	}\n"
-"\n"
-"}\n"
-"proc gridlabels_reset {} {\n"
-"	global gridlabel\n"
-"	global font12\n"
-"	upvar #0 sound so\n"
-"	for {set i 0} {$i < 16} {incr i} {\n"
-"		$gridlabel itemconfigure ilabel$i -text $so([expr 16 - $i],name)	\\\n"
-"			-font *-${font12}-* -anchor e\n"
-"	}\n"
-"}\n"
-"proc key_labels_reset {} {\n"
-"	global notes\n"
-"	upvar #0 sound so\n"
-"\n"
-"	for {set i 0} {$i < 16} {incr i} {\n"
-"		$notes.note$i.instr configure -text $so([expr $i + 1],shortname)\n"
-"	}\n"
-"}\n"
-"proc volume_labels_reset {} {\n"
-"	global cunit\n"
-"	upvar #0 sound so\n"
-"	upvar #0 volume_label vo\n"
-"\n"
-"	if {$so(2,abbrev) != \"\"} {\n"
-"	    set vo(1)  \"$so(1,abbrev)/$so(2,abbrev)\"\n"
-"	} else {\n"
-"	    set vo(1)  \"$so(1,abbrev)\"\n"
-"	}\n"
-"	if {$so(4,abbrev) != \"\"} {\n"
-"	    set vo(2)  \"$so(3,abbrev)/$so(4,abbrev)\"\n"
-"	} else {\n"
-"	    set vo(2)  \"$so(3,abbrev)\"\n"
-"	}\n"
-"	set vo(3)  \"$so(5,abbrev)\"\n"
-"	set vo(4)  \"$so(6,abbrev)\"\n"
-"	set vo(5)  \"$so(7,abbrev)\"\n"
-"	if {$so(9,abbrev) != \"\"} {\n"
-"	    set vo(6)  \"$so(8,abbrev)/$so(9,abbrev)\"\n"
-"	} else {\n"
-"	    set vo(6)  \"$so(8,abbrev)\"\n"
-"	}\n"
-"	if {$so(11,abbrev) != \"\"} {\n"
-"	    set vo(7)  \"$so(10,abbrev)/$so(11,abbrev)\"\n"
-"	} else {\n"
-"	    set vo(7)  \"$so(10,abbrev)\"\n"
-"	}\n"
-"	if {($so(13,abbrev) != \"\") && ($so(14,abbrev) != \"\")} {\n"
-"	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)/$so(14,abbrev)\"\n"
-"	} elseif {$so(13,abbrev) != \"\"} {\n"
-"	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)\"\n"
-"	} elseif {$so(14,abbrev) != \"\"} {\n"
-"	    set vo(8)  \"$so(12,abbrev)/$so(14,abbrev)\"\n"
-"	} else {\n"
-"	    set vo(8)  \"$so(12,abbrev)\"\n"
-"	}\n"
-"	set vo(9)  \"$so(15,abbrev)\"\n"
-"	set vo(10) \"$so(16,abbrev)\"\n"
-"\n"
-"	for {set i 1} {$i < 11} {incr i} {\n"
-"		$cunit.$i.l configure -text $vo($i)\n"
-"	}\n"
-"}\n"
-"proc instrument_label_reset {} {\n"
-"	gridlabels_reset\n"
-"	key_labels_reset\n"
-"	volume_labels_reset\n"
-"}\n"
-"proc tempoinfo_update {a b c} {\n"
-"	global tempoinfo\n"
-"	upvar $a mo\n"
-"	$tempoinfo itemconfigure tempo -text $mo(tempo)\n"
-"}\n"
-"proc measureinfo_update {a b c} {\n"
-"	global tempoinfo\n"
-"	upvar $a mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 track_list tl\n"
-"\n"
-"	if {$mo(measure) == -1} {\n"
-"		$tempoinfo itemconfigure tempo -text \"\"\n"
-"	} else {\n"
-"		$tempoinfo itemconfigure tempo -text [expr $mo(measure) + 1]\n"
-"	}\n"
-"}\n"
-"proc trackinfo_update {a b c} {\n"
-"	global tminfo\n"
-"	upvar $a mo\n"
-"\n"
-"	switch $mo(current_track) {\n"
-"		0	{\n"
-"			$tminfo.t coords trackid 3c 0.45c\n"
-"			$tminfo.t itemconfigure trackid -text I\n"
-"		}\n"
-"		1	{\n"
-"			$tminfo.t coords trackid 4c 0.45c\n"
-"			$tminfo.t itemconfigure trackid -text II\n"
-"		}\n"
-"		2	{\n"
-"			$tminfo.t coords trackid 5c 0.45c\n"
-"			$tminfo.t itemconfigure trackid -text III\n"
-"		}\n"
-"		3	{\n"
-"			$tminfo.t coords trackid 6c 0.45c\n"
-"			$tminfo.t itemconfigure trackid -text IV\n"
-"		}\n"
-"	}\n"
-"}\n"
-"proc modeinfo_update {m} {\n"
-"	global tminfo\n"
-"	global tapwrite\n"
-"	global font12\n"
-"\n"
-"	$tminfo.m delete modetext\n"
-"	switch $m {\n"
-"		0	{\n"
-"			set tapwrite 1\n"
-"			$tminfo.m create text 1.2c 0.8c -text \"TRACK PLAY\"	\\\n"
-"				-tags modetext -anchor w -font *-${font12}-*\n"
-"		}\n"
-"		1	{\n"
-"			set tapwrite 1\n"
-"			$tminfo.m create text 1.2c 1.1c -text \"TRACK WRITE\"	\\\n"
-"				-tags modetext -anchor w -font *-${font12}-*\n"
-"		}\n"
-"		2	{\n"
-"			set tapwrite 1\n"
-"			$tminfo.m create text 4.2c 0.4c -text \"PATTERN PLAY\"	\\\n"
-"				-tags modetext -anchor w -font *-${font12}-*\n"
-"		}\n"
-"		3	{\n"
-"			if {$tapwrite} {\n"
-"				incr tapwrite -1\n"
-"				$tminfo.m create text 4.2c 0.8c -text \"PATTERN WRITE\"	\\\n"
-"					-tags modetext -anchor w -font *-${font12}-*\n"
-"			} else {\n"
-"				incr tapwrite\n"
-"				$tminfo.m create text 4.2c 1.2c -text \"TAP WRITE\"	\\\n"
-"					-tags modetext -anchor w -font *-${font12}-*\n"
-"			}\n"
-"		}\n"
-"	}\n"
-"}\n"
-"proc scale_lamps_update {} {\n"
-"	global scale_lamps\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"\n"
-"	set scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n"
-"	for {set i 0} {$i < 4} {incr i} {\n"
-"	    set button ${scale_lamps}.l${i}\n"
-"	    if {$i == $scale} {\n"
-"		$button configure -background $xox(lamp_on)\n"
-"	    } else {\n"
-"		$button configure -background $xox(lamp_off)\n"
-"	    }\n"
-"	}\n"
-"}\n"
-"proc locate_gridpos {x y result} {\n"
-"	global gridXs gridYs gridSvals gridIvals\n"
-"	upvar $result res\n"
-"\n"
-"	#puts \"locate_gridpos $x,$y\"\n"
-"	set halo 7\n"
-"\n"
-"	set resX -1\n"
-"	foreach i $gridXs {\n"
-"		if {($i > [expr $x - $halo]) && ($i < [expr $x + $halo])} {\n"
-"			set resX $i\n"
-"			break\n"
-"		}\n"
-"	}\n"
-"	if {$resX < 0} {\n"
-"		return $resX\n"
-"	}\n"
-"	#puts \"resX = $resX\"\n"
-"\n"
-"	set resY -1\n"
-"	foreach i $gridYs {\n"
-"		if {($i > [expr $y - $halo]) && ($i < [expr $y + $halo])} {\n"
-"			set resY $i\n"
-"			break\n"
-"		}\n"
-"	}\n"
-"	if {$resY < 0} {\n"
-"		return $resY\n"
-"	}\n"
-"#puts \"resY = $resY\"\n"
-"\n"
-"	set res(step) $gridSvals($resX)\n"
-"	set res(inst) $gridIvals($resY)\n"
-"\n"
-"	return 0\n"
-"}\n"
-"\n"
-"proc play_loop {} {\n"
-"	upvar #0 mode mo\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 track_list tl\n"
-"	global button_stop	;# to invoke stop button\n"
-"	if {$mo(stopgo) == $xox(START) && $mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n"
-"	\n"
-"		# Playing a track\n"
-"		if {$mo(TRACK_START)} {\n"
-"			set xox(play_list) $tl($mo(current_track))\n"
-"\n"
-"			# Prepare to display pattern contents\n"
-"			set mo(measure) -1\n"
-"\n"
-"			set mo(TRACK_START) 0\n"
-"		}\n"
-"\n"
-"		if {[llength $xox(play_list)] > 0} {\n"
-"			set target  [lindex $xox(play_list) 0]\n"
-"			set group [expr $target / 16]\n"
-"			set pat [expr $target % 16]\n"
-"			set xox(play_list) [lreplace $xox(play_list) 0 0]\n"
-"\n"
-"			# Prepare to display pattern contents\n"
-"			set target  [expr $mo(measure) + 1]\n"
-"			set mo(measure) [measure_constrain $target]\n"
-"		} else {\n"
-"			$button_stop invoke\n"
-"		}\n"
-"\n"
-"		if {$mo(PATTERN_REPEAT)} {\n"
-"			play_pattern $group $pat\n"
-"		}\n"
-"\n"
-"		# Update pattern display\n"
-"		pattern_show\n"
-"\n"
-"	} else { # Not playing a track\n"
-"\n"
-"		if {$mo(PATTERN_REPEAT)} {\n"
-"			play_pattern $mo(patgroup) $mo(current_pattern)\n"
-"		}\n"
-"	}\n"
-"	after $mo(REPEAT_INTERVAL) play_loop\n"
-"}\n"
-"# ----------------------------------------------------------------------------\n"
-"# Edit Pattern Comment\n"
-"# ----------------------------------------------------------------------------\n"
-"\n"
-"proc get_current_pattern_name {} {\n"
-"    upvar #0 mode mo\n"
-"    switch $mo(patgroup) {\n"
-"	0 { set g \"A\"; }\n"
-"	1 { set g \"B\"; }\n"
-"	2 { set g \"C\"; }\n"
-"	3 { set g \"D\"; }\n"
-"    }\n"
-"    set name \"$g[expr $mo(current_pattern)+1]\";\n"
-"    return $name;\n"
-"}\n"
-"set comment .pattern_comment;\n"
-"\n"
-"proc  refresh_comment {} {\n"
-"    upvar #0 mode mo\n"
-"    global comment;\n"
-"    if {[winfo exists $comment]} {\n"
-"    	set name [get_current_pattern_name];\n"
-"    	wm title $comment \"$name pattern comment\"\n"
-"        set old_comment [$comment.string get]\n"
-"        $comment.string delete 0 [expr [string length $old_comment] ]\n"
-"        set current_comment [tk7_get_pattern_comment $mo(patgroup) $mo(current_pattern)]\n"
-"        $comment.string insert 0 \"$current_comment\"\n"
-"    }\n"
-"}\n"
-"proc edit_pattern_comment {} {\n"
-"    upvar #0 mode mo\n"
-"    upvar #0 tkxox xox\n"
-"    global comment\n"
-"\n"
-"    if {[winfo exists $comment]} {\n"
-"	wm deiconify $comment\n"
-"    } else {\n"
-"	toplevel $comment\n"
-"\n"
-"	button $comment.quit -text quit -command {wm iconify $comment}\n"
-"	button $comment.ok -text ok -command comment_ok\n"
-"	pack $comment.quit $comment.ok -side right\n"
-"\n"
-"	# label $comment.label -text Comment: -padx 0\n"
-"	entry $comment.string -width 20 -relief sunken\n"
-"	# pack $comment.label -side left\n"
-"	pack $comment.string -side left -fill x -expand true\n"
-"\n"
-"	bind $comment.string <Return> comment_ok\n"
-"	bind $comment.string <Control-c> {wm iconify $comment}\n"
-"	focus $comment.string \n"
-"    }\n"
-"    refresh_comment;\n"
-"}\n"
-"proc comment_ok {} {\n"
-"    upvar #0 mode mo;\n"
-"    global comment;\n"
-"    set stringval [$comment.string get];\n"
-"    set name [get_current_pattern_name];\n"
-"    puts \"set $name comment to \\\"$stringval\\\"\";\n"
-"    tk7_set_pattern_comment $mo(patgroup) $mo(current_pattern) $stringval;\n"
-"    # wm iconify $comment;\n"
-"}\n"
-"";
+char tcl_procs[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+#=====================================================\n\
+#	File procs.tcl\n\
+#	Procedures for the tcl side of the program\n\
+#=====================================================\n\
+\n\
+proc play_pattern {grp pat} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 pattern_list pl\n\
+\n\
+	if {$mo(PATTERN_REPEAT)} {\n\
+\n\
+		#puts \"TIMER = [tk7_timer_status]\"\n\
+		set steps [tk7_get_last_step $grp $pat]\n\
+		set dur [tk7_pattern_play $grp $pat]\n\
+\n\
+		cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n\
+\n\
+		# Fudge factor (extra time to change track display) in track play mode\n\
+		if {$mo(rdrw) == $xox(READ) || $mo(patr) == $xox(TRACK)} {\n\
+			incr dur -160\n\
+			if {$dur < 0} {\n\
+				set dur 0\n\
+			}\n\
+			#set mo(REPEAT_INTERVAL) [expr $dur - 160]\n\
+			set mo(REPEAT_INTERVAL) $dur\n\
+		} else {\n\
+			set mo(REPEAT_INTERVAL) $dur\n\
+		}\n\
+	}\n\
+}\n\
+proc stop_pattern {} {\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+#puts \"do stop_pattern\"\n\
+	tk7_pattern_stop\n\
+	set mo(REPEAT_INTERVAL) 10\n\
+}\n\
+\n\
+proc ac_clear {tp} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+	upvar #0 pattern_list pl\n\
+\n\
+	switch $tp {\n\
+		0	{\n\
+		# CLEAR the current PATTERN\n\
+			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(PATTERN)} {\n\
+				return\n\
+			}\n\
+			set result [tk_dialog .clr CONFIRM \"Clear Pattern [expr $mo(current_pattern) + 1] Group [expr $mo(patgroup) + 1]?\" \"\" 0 Cancel \"Delete Pattern\"]\n\
+			if {$result == 0} {\n\
+				return\n\
+			}\n\
+			set mo(file_status) $xox(FILE_MODIFIED)\n\
+			tk7_clear_pattern $mo(patgroup) $mo(current_pattern)\n\
+			pattern_setid $mo(current_pattern)\n\
+			scale_lamps_update\n\
+		}\n\
+\n\
+		1	{\n\
+		# CLEAR the current TRACK\n\
+			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
+				return\n\
+			}\n\
+			set result [tk_dialog .clr CONFIRM \"Clear Track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete Track\"]\n\
+			if {$result == 0} {\n\
+				return\n\
+			}\n\
+			set mo(file_status) $xox(FILE_MODIFIED)\n\
+			set tl($mo(current_track)) {}\n\
+			set mo(measure) -1\n\
+		}\n\
+		2 	{\n\
+		# CLEAR current track item from current track\n\
+			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
+				return\n\
+			}\n\
+			# Clearing track item has no meaning if we're already past end\n\
+			set target $mo(measure)\n\
+			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
+				#puts \"Already past end\"\n\
+				return\n\
+			}\n\
+			set result [tk_dialog .clr CONFIRM \"Clear measure [expr $target + 1] from track [expr $mo(current_track) + 1]?\" \"\" 0 Cancel \"Delete\"]\n\
+			if {$result == 0} {\n\
+				return\n\
+			}\n\
+			set mo(file_status) $xox(FILE_MODIFIED)\n\
+			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target]\n\
+		}\n\
+		3	{\n\
+		# CLEAR the rest of current track including current track item\n\
+			if {$mo(rdrw) != $xox(WRITE) || $mo(patr) != $xox(TRACK)} {\n\
+				return\n\
+			}\n\
+			# Clearing rest has no meaning if we're already past end of track\n\
+			set target $mo(measure)\n\
+			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
+				# puts \"Already past end\"\n\
+				return\n\
+			}\n\
+			set result [tk_dialog .clr CONFIRM \"    Clear rest of track [expr $mo(current_track) + 1]?\\n(includes current measure)\" \"\" 0 Cancel \"Delete\"]\n\
+			if {$result == 0} {\n\
+				return\n\
+			}\n\
+			set mo(file_status) $xox(FILE_MODIFIED)\n\
+			set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target end]\n\
+		}\n\
+	}\n\
+}\n\
+proc ac_scaleback {} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+	global scale_lamps\n\
+\n\
+	if {$mo(patr) == $xox(PATTERN)} {\n\
+		set old_scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n\
+		set new_scale [expr $old_scale + 1]\n\
+		if {$new_scale == 4} {\n\
+		    set new_scale 0\n\
+		}\n\
+		set old_button $scale_lamps.l$old_scale\n\
+		set new_button $scale_lamps.l$new_scale\n\
+		tk7_set_scale $mo(patgroup) $mo(current_pattern) $new_scale\n\
+		$old_button configure -background $xox(lamp_off)\n\
+		$new_button configure -background $xox(lamp_on)\n\
+	} else {\n\
+		set target [expr $mo(measure) - 1]\n\
+		set mo(measure) [measure_constrain $target]\n\
+		pattern_show\n\
+	}\n\
+	set mo(file_status) $xox(FILE_MODIFIED)\n\
+}\n\
+proc ac_lastfwd {} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+\n\
+	if {$mo(patr) == $xox(PATTERN)} {\n\
+		if {$mo(rdrw) == $xox(READ)} {\n\
+			return\n\
+		}\n\
+		select_laststep\n\
+		set mo(file_status) $xox(FILE_MODIFIED)\n\
+	} else {\n\
+		set target  [expr $mo(measure) + 1]\n\
+		set mo(measure) [measure_constrain $target]\n\
+		pattern_show\n\
+	}\n\
+}\n\
+proc measure_constrain {m} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+\n\
+	set tracklength [llength $tl($mo(current_track))]\n\
+\n\
+	if {$tracklength < 1} {\n\
+		if {$mo(rdrw) == $xox(READ)} {\n\
+			set minpos -1\n\
+			set maxpos -1\n\
+		} else {\n\
+			set minpos 0\n\
+			set maxpos 0\n\
+		}\n\
+	} else {\n\
+		if {$mo(rdrw) == $xox(READ)} {\n\
+			set maxpos [expr $tracklength - 1]\n\
+		} else {\n\
+			set maxpos $tracklength\n\
+		}\n\
+		set minpos 0\n\
+	}\n\
+\n\
+	# Result\n\
+	if {$m <= $minpos} {\n\
+		return $minpos\n\
+	} elseif {$m >= $maxpos} {\n\
+		return $maxpos\n\
+	} else {\n\
+		return $m\n\
+	}\n\
+}\n\
+# Decide which pattern from a track to display\n\
+#\n\
+proc pattern_show {} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+\n\
+	set raw [lindex $tl($mo(current_track)) $mo(measure)]\n\
+	if {$raw != \"\"} {\n\
+		set group [expr $raw / 16]\n\
+		set pattern [expr $raw % 16]\n\
+		ac_group $group\n\
+		pattern_setid $pattern\n\
+	}\n\
+}\n\
+\n\
+# For track mode, ordinary click (on LAST MEAS button) shows last measure\n\
+# of current track. Releasing button returns to orginal measure.\n\
+# Shift click goes to last measure and stays there.\n\
+#\n\
+proc ac_lastmeas {m} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+\n\
+	if {$mo(patr) == $xox(PATTERN)} {\n\
+	    	#puts \"Instrument Guide\"\n\
+	} else {\n\
+		switch $m {\n\
+			0	{\n\
+				#puts \"Show Last Measure\"\n\
+				set mo(oldmeasure) $mo(measure)\n\
+				set target [llength $tl($mo(current_track))]\n\
+				set mo(measure) [measure_constrain $target]\n\
+				pattern_show\n\
+			}\n\
+			1	{\n\
+				#puts \"Restore measure $mo(oldmeasure)\"\n\
+				set mo(measure) [measure_constrain $mo(oldmeasure)]\n\
+				pattern_show\n\
+			}\n\
+			2	{\n\
+				#puts \"Go to Last Measure\"\n\
+				set target [llength $tl($mo(current_track))]\n\
+				set mo(measure) [measure_constrain $target]\n\
+				pattern_show\n\
+			}\n\
+			3	{\n\
+				return\n\
+			}\n\
+		}\n\
+	}\n\
+\n\
+}\n\
+proc select_laststep {} {\n\
+	upvar #0 mode mo\n\
+\n\
+	if {[winfo exists .ls]} {\n\
+		wm deiconify .ls\n\
+	} else {\n\
+		toplevel .ls\n\
+		wm title .ls \"Set last pattern step\"\n\
+		scale .ls.s -from 1 -to 16 -command laststep_set -orient horizontal	\\\n\
+			-length 5c -relief groove -borderwidth 2\n\
+		button .ls.ok -text OK -font *-${font12}-* -command {wm iconify .ls} -relief groove -borderwidth 2\n\
+		pack .ls.s -side top -ipady 6\n\
+		pack .ls.ok -side top -expand true -fill x\n\
+	}\n\
+	.ls.s set [tk7_get_last_step $mo(patgroup) $mo(current_pattern)]\n\
+}\n\
+proc laststep_set val {\n\
+	upvar #0 mode mo\n\
+\n\
+	if {$val < 1 || $val > 16} {\n\
+		return\n\
+	}\n\
+	tk7_set_last_step $mo(patgroup) $mo(current_pattern) $val\n\
+}\n\
+proc flam_set val {\n\
+	upvar #0 mode mo\n\
+	if {$val < 0 || $val > 4} {\n\
+		return\n\
+	}\n\
+	tk7_set_flam $mo(patgroup) $mo(current_pattern) $val\n\
+}\n\
+proc select_flam {} {\n\
+	upvar #0 mode mo\n\
+\n\
+	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
+\n\
+	if {[winfo exists .flam]} {\n\
+		wm deiconify .flam\n\
+	} else {\n\
+		toplevel .flam\n\
+		wm title .flam \"Set pattern flam interval\"\n\
+		scale .flam.s -from 0 -to 4 -command flam_set -orient horizontal	\\\n\
+			-length 5c -relief groove -borderwidth 2\n\
+		button .flam.ok -text OK -font *-${font12}-* -command {wm iconify .flam} -relief groove -borderwidth 2\n\
+		pack .flam.s -side top -ipady 6\n\
+		pack .flam.ok -side top -expand true -fill x\n\
+	}\n\
+	.flam.s set [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
+	set curr [tk7_get_flam $mo(patgroup) $mo(current_pattern)]\n\
+}\n\
+proc ac_flam {} {\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	if {$mo(patr) != $xox(PATTERN) || $mo(rdrw) != $xox(WRITE)} {\n\
+	    return\n\
+	}\n\
+	select_flam\n\
+}\n\
+proc ac_midi {} {\n\
+	global font12\n\
+	upvar #0 mode mo\n\
+	if {[winfo exists .ms]} {\n\
+		wm deiconify .ms\n\
+	} else {\n\
+		toplevel .ms\n\
+		wm title .ms \"MIDI Channel\"\n\
+		scale .ms.s -from 1 -to 16 -command midichan_set -orient horizontal	\\\n\
+			-length 5c -relief groove -borderwidth 2 -font *-${font12}-*\n\
+		button .ms.ok -text OK -font *-${font12}-* -command {wm iconify .ms} \\\n\
+			-relief groove -borderwidth 2\n\
+		pack .ms.s -side top -ipady 6\n\
+		pack .ms.ok -side top -expand true -fill x\n\
+		.ms.s set [expr $mo(midi_channel)  + 1]\n\
+	}\n\
+}\n\
+proc midichan_set val {\n\
+	upvar #0 mode mo\n\
+	global midi_channel\n\
+\n\
+	if {$val < 1 || $val >16} {\n\
+		return\n\
+	}\n\
+	set mo(midi_channel) [expr $val - 1]\n\
+	# This is needed for C code to trace midi channel,\n\
+	# (I don't know how to make it trace an array variable).\n\
+	set midi_channel $mo(midi_channel)\n\
+}\n\
+proc ac_note {widget prop} {\n\
+    global tapwrite\n\
+    global notes\n\
+    upvar #0 tkxox xox\n\
+    upvar #0 mode mo\n\
+\n\
+    # Extract button number from widget path\n\
+    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
+    #                                      ^ +5 ^\n\
+    set prefix_length [expr [string length $notes] + 5]\n\
+    set b [string range [string trimright $widget .b] $prefix_length end]\n\
+\n\
+    if {$mo(patr) == $xox(TRACK)} {\n\
+	# TRACK mode\n\
+	if {$mo(rdrw) == $xox(READ)} {\n\
+		tk7_start_note_play $b $prop\n\
+	} else {\n\
+		# Just changeing pattern numbers\n\
+		pattern_setid $b\n\
+	}\n\
+	return\n\
+    }\n\
+    # PATTERN mode\n\
+    if {$mo(rdrw) == $xox(READ)} {\n\
+    	# PATTERN READ mode\n\
+	pattern_setid $b\n\
+	if {$mo(stopgo) == $xox(START)} {\n\
+	    # If running, wait till current pattern finished before changeing ?\n\
+	}\n\
+	return\n\
+    }\n\
+    # PATTERN TAP or WRITE mode\n\
+    if {$mo(stopgo) != $xox(START)} {\n\
+	# Just changeing pattern numbers\n\
+	pattern_setid $b\n\
+	return\n\
+    }\n\
+    # PATTERN TAP or WRITE mode with START\n\
+    if {![have_zero_velocity $prop]} {\n\
+	switch $mo(current_accent) {\n\
+	    2       {set prop [add_strong_accent    $prop] }\n\
+	    1 	    {set prop [add_weak_accent      $prop] }\n\
+	    default {set prop [add_default_velocity $prop] }\n\
+	}\n\
+    }\n\
+    if {$tapwrite} {\n\
+	set step [expr [tk7_get_pat_tick] % 16]\n\
+	if {$step < 0} {\n\
+	    set step 0\n\
+	}\n\
+	ac_newinstr $notes.note$b.b\n\
+	step_insert $step $prop\n\
+	tk7_start_note_play $b $prop\n\
+    } else {\n\
+	# Recording steps\n\
+	step_insert $b $prop\n\
+    }\n\
+}\n\
+proc ac_note_off {widget} {\n\
+    global notes\n\
+    global tapwrite\n\
+    upvar #0 tkxox xox\n\
+    upvar #0 mode mo\n\
+\n\
+    # Extract button number from widget path\n\
+    # Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
+    #                                      ^ +5 ^\n\
+    set prefix_length [expr [string length $notes] + 5]\n\
+    set b [string range [string trimright $widget .b] $prefix_length end]\n\
+\n\
+    if {$mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n\
+	tk7_stop_note_play $b\n\
+	return\n\
+    }\n\
+    if {$mo(rdrw) == $xox(READ) || $mo(stopgo) != $xox(START)} {\n\
+	return\n\
+    }\n\
+    if {$tapwrite} {\n\
+	tk7_stop_note_play $b\n\
+	return\n\
+    }\n\
+}\n\
+#\n\
+# Accept 0->15 to set new current pattern id.\n\
+# Also need to light buttons lamp.\n\
+#\n\
+proc pattern_setid {id} {\n\
+	global grid\n\
+	global notes\n\
+	upvar #0 pattern_list pl\n\
+	upvar #0 mode mo\n\
+\n\
+	lamp_onoff 0 $notes.note$mo(current_pattern).l\n\
+	set mo(current_pattern) $id\n\
+	lamp_onoff 1 $notes.note$id.l\n\
+\n\
+	# Clear the grid display & redraw for new pattern\n\
+	$grid delete stepnode\n\
+	set pg $mo(patgroup)\n\
+	set cp $mo(current_pattern)\n\
+	for {set k 0} {$k < 16} {incr k} {\n\
+		set instruments [tk7_pattern_items $pg $cp $k]\n\
+		set properties  [tk7_get_pattern_properties $pg $cp $k]\n\
+		set idx 0\n\
+		foreach instr $instruments {\n\
+	                set prop  [lindex $properties $idx]\n\
+			step_draw [expr $k + 1] $instr $prop\n\
+			set idx [expr $idx + 1]\n\
+		}\n\
+	}\n\
+	scale_lamps_update\n\
+	refresh_comment\n\
+}\n\
+# Turn a \"lamp\" on or off (1 or 0 for parameter onoff).\n\
+# Parameter lamp is a full widget path.\n\
+#\n\
+proc lamp_onoff {onoff lamp} {\n\
+	upvar #0 tkxox xox\n\
+\n\
+	switch $onoff {\n\
+		0 {\n\
+			$lamp configure -bg $xox(col_def_bg)\n\
+		}\n\
+		1 {\n\
+			$lamp configure -bg $xox(col_on)\n\
+		}\n\
+	}\n\
+}\n\
+\n\
+# Respond to change of Track/Pattern controls\n\
+#\n\
+proc ac_patternmode {rw} {\n\
+	global trpa notes tempoinfo\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+	# Check if running (can't change mode)\n\
+	if {$mo(stopgo) == $xox(START)} {\n\
+		return\n\
+	}\n\
+\n\
+	if {$mo(patr) != $xox(PATTERN)} {\n\
+		set mo(patr) $xox(PATTERN)\n\
+		$tempoinfo itemconfigure tmtitle  -text TEMPO\n\
+		$tempoinfo coords tmtitle 1c 0.5c\n\
+		trace vdelete mo(current_track) w trackinfo_update\n\
+		trace vdelete mo(measure) w measureinfo_update\n\
+		$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
+		trace variable mo(tempo) w tempoinfo_update\n\
+	}\n\
+\n\
+	if {$rw == $xox(WRITE)} {\n\
+		set mo(rdrw) $xox(WRITE)\n\
+		$trpa.lt configure -text PLAY\n\
+		$trpa.lb configure -text \"-> WRITE <-\"\n\
+		modeinfo_update 3\n\
+	} else {\n\
+		set mo(rdrw) [expr $xox(WRITE) - 1]\n\
+		$trpa.lt configure -text \"-> PLAY <-\"\n\
+		$trpa.lb configure -text \"WRITE\"\n\
+		modeinfo_update 2\n\
+	}\n\
+\n\
+	# Show current instrument\n\
+	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n\
+}\n\
+proc ac_trackmode {rw} {\n\
+	global trpa notes tempoinfo\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 track_list tl\n\
+\n\
+	# Check if running (can't change mode)\n\
+	if {$mo(stopgo) == $xox(START)} {\n\
+		return\n\
+	}\n\
+\n\
+	if {$mo(patr) != $xox(TRACK)} {\n\
+		set mo(patr) $xox(TRACK)\n\
+		$tempoinfo itemconfigure tmtitle -text MEASURE\n\
+		$tempoinfo coords tmtitle 2.7c 0.5c\n\
+		# Go to 1st pattern of new track\n\
+		# Trace current measure in track\n\
+		trace vdelete mo(tempo) w tempoinfo_update\n\
+		trace variable mo(measure) w measureinfo_update\n\
+		trace variable mo(current_track) w trackinfo_update\n\
+	}\n\
+\n\
+	if {$rw == $xox(WRITE)} {\n\
+		set mo(rdrw) $xox(WRITE)\n\
+		$trpa.lt configure -text PLAY\n\
+		$trpa.lb configure -text \"-> WRITE <-\"\n\
+		modeinfo_update 1\n\
+	} else {\n\
+		set mo(rdrw) $xox(READ)\n\
+		$trpa.lt configure -text \"-> PLAY <-\"\n\
+		$trpa.lb configure -text WRITE\n\
+		modeinfo_update 0\n\
+	}\n\
+	set mo(measure) [measure_constrain -1]\n\
+	pattern_show\n\
+\n\
+	# Hide current instrument\n\
+	ac_newinstr $notes.note[expr $mo(current_instr) - 1].b\n\
+}\n\
+# Toggle display to show tempo or measure\n\
+#\n\
+proc ac_tempomeasure {} {\n\
+	global tempoinfo\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+	if {$mo(patr) == $xox(PATTERN)} {\n\
+		return\n\
+	}\n\
+\n\
+	if {$mo(showtrack)} {\n\
+		set mo(showtrack) false\n\
+		$tempoinfo itemconfigure tmtitle  -text TEMPO\n\
+		$tempoinfo coords tmtitle 1c 0.5c\n\
+#		trace vdelete mo(measure) w trackinfo_update\n\
+		trace vdelete mo(measure) w measureinfo_update\n\
+		$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
+		trace variable mo(tempo) w tempoinfo_update\n\
+set mo(tempo) $mo(tempo)\n\
+	} else {\n\
+		set mo(showtrack) true\n\
+		$tempoinfo itemconfigure tmtitle -text MEASURE\n\
+		$tempoinfo coords tmtitle 2.7c 0.5c\n\
+		# Trace current measure in track\n\
+		trace vdelete mo(tempo) w tempoinfo_update\n\
+		trace variable mo(measure) w measureinfo_update\n\
+		trace variable mo(current_track) w trackinfo_update\n\
+set mo(measure) $mo(measure)\n\
+set mo(current_track) $mo(current_track)\n\
+	}\n\
+\n\
+}\n\
+\n\
+proc ac_stopgo {new} {\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 track_list tl\n\
+\n\
+	switch $new {\n\
+		0 {\n\
+			set mo(stopgo) $xox(STOP)\n\
+			set mo(PATTERN_REPEAT) false\n\
+			stop_pattern\n\
+			set stepcount [tk7_get_last_step $grp $pat]\n\
+			cycle_notes 1 0 0 0 $stepcount\n\
+		}\n\
+		1 {\n\
+			if {$new == $mo(stopgo)} {\n\
+				return\n\
+			}\n\
+			if {$mo(patr) == $xox(TRACK)} {\n\
+				set mo(TRACK_START) true\n\
+			}\n\
+\n\
+			set mo(stopgo) $xox(START)\n\
+\n\
+\n\
+			# This starts the player!\n\
+			set mo(PATTERN_REPEAT) true\n\
+		}\n\
+		2 {\n\
+			if {$mo(patr) == $xox(PATTERN)} {\n\
+				set mo(PATTERN_REPEAT) false\n\
+				stop_pattern\n\
+				set mo(stopgo) $xox(STOP)\n\
+			} else {\n\
+				if {$mo(stopgo) == $xox(CONT)} {\n\
+					set mo(stopgo) $xox(START)\n\
+				} else {\n\
+					set mo(stopgo) $xox(CONT)\n\
+					set mo(PATTERN_REPEAT) false\n\
+					stop_pattern\n\
+				}\n\
+			}\n\
+		}\n\
+	}\n\
+}\n\
+\n\
+# For patterns,\n\
+# i = 0->3 Groups\n\
+# j = 0->15 Patterns\n\
+# k = 0->15 Step divisions, each is a list of note events\n\
+#\n\
+# For tracks,\n\
+# i = 0->3 Tracks, each is a list patterns (16*Group + Pattern)\n\
+#\n\
+proc mem_init {} {\n\
+	upvar #0 pattern_list pl\n\
+	upvar #0 track_list tl\n\
+\n\
+	# Patterns\n\
+#	for {set i 0} {$i <4} {incr i} {\n\
+#		for {set j 0} {$j <16 } {incr j} {\n\
+#			for {set k 0} {$k < 16} {incr k} {\n\
+#				set pl($i,$j,$k) {}\n\
+#			}\n\
+#		}\n\
+#	}\n\
+\n\
+	# Tracks\n\
+	for {set i 0} {$i <4} {incr i} {\n\
+		set tl($i) {}\n\
+	}\n\
+	\n\
+}\n\
+\n\
+proc ac_group {b} {\n\
+	global grps\n\
+\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	global comment\n\
+\n\
+	if {$mo(rdrw) == $xox(WRITE) && $mo(stopgo) == $xox(START)} {\n\
+		return\n\
+	} else {\n\
+		set but_old ${grps}.lt$mo(patgroup).lamp\n\
+		set but_new ${grps}.lt${b}.lamp\n\
+		$but_old configure -background $xox(lamp_off)\n\
+		$but_new configure -background $xox(lamp_on)\n\
+		set mo(patgroup) $b\n\
+		if {$mo(patr) == $xox(TRACK)} {\n\
+			return\n\
+		}\n\
+		pattern_setid $mo(current_pattern)\n\
+	}\n\
+}\n\
+\n\
+proc ac_track {b} {\n\
+	global tminfo\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+	if {$mo(patr) != $xox(TRACK) || $mo(stopgo) == $xox(START)} {\n\
+		return\n\
+	}\n\
+	set mo(current_track) $b\n\
+	set mo(measure) [measure_constrain -1]\n\
+	pattern_show\n\
+}\n\
+\n\
+proc ac_newinstr {widget} {\n\
+	global gridlabel\n\
+	global notes\n\
+	global font12\n\
+	global boldfont13\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+\n\
+	# Check first that we're in PATTERN:WRITE mode\n\
+	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n\
+		set w $notes.note[expr $mo(current_instr) - 1].instr\n\
+		if {[winfo exists $w]} {\n\
+			lamp_onoff 0 $w\n\
+		}\n\
+		return\n\
+	}\n\
+	# Extract button number from widget path\n\
+	# Dependent on prefix path name: $notes.note.b0, $notes.note.b1, ..\n\
+	#                                      ^ +5 ^\n\
+	set prefix_length [expr [string length $notes] + 5]\n\
+	set b [string range [string trimright $widget .b] $prefix_length end]\n\
+	lamp_onoff 0 $notes.note[expr $mo(current_instr) - 1].instr\n\
+	set mo(current_instr) [expr $b + 1]\n\
+	lamp_onoff 1 $notes.note$b.instr\n\
+\n\
+	$gridlabel itemconfigure selectinstr -font *-${font12}-*\n\
+	$gridlabel dtag selectinstr\n\
+	$gridlabel itemconfigure ilabel[expr 15 - $b] -font *-${boldfont13}-*\n\
+	$gridlabel addtag selectinstr withtag ilabel[expr 15 - $b]\n\
+}\n\
+\n\
+# Change memory cartridge being used\n\
+#\n\
+proc ac_cartridge {} {\n\
+	global accenter\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+	if {$mo(patr) != $xox(TRACK)} {\n\
+		return\n\
+	}\n\
+\n\
+	set mo(cartridge) [tk7_cartridge_incr]\n\
+	#puts \"Cartridge $mo(cartridge)\"\n\
+	switch $mo(cartridge) {\n\
+		2	{\n\
+			$accenter.cart.lamp configure -bg #00ff00\n\
+		}\n\
+		1	{\n\
+			$accenter.cart.lamp configure -bg $xox(lamp_on)\n\
+		}\n\
+		0	-\n\
+		default	{\n\
+			$accenter.cart.lamp configure -bg $xox(lamp_off)\n\
+		}\n\
+	}\n\
+\n\
+}\n\
+\n\
+# Process Enter button\n\
+#\n\
+proc ac_accenter {addmode} {\n\
+	global accent_label\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 track_list tl\n\
+\n\
+	if {$mo(patr) == $xox(PATTERN) && $mo(rdrw) == $xox(WRITE)} {\n\
+		set mo(current_accent) [expr ($mo(current_accent)+1) % 3]\n\
+		switch $mo(current_accent) {\n\
+		    2       {set color $xox(col_strong_accent) }\n\
+		    1 	    {set color $xox(col_weak_accent) }\n\
+		    default {set color $xox(col_def_bg) }\n\
+		}\n\
+		$accent_label configure -bg $color\n\
+		return\n\
+	}\n\
+	if {$mo(patr) != $xox(TRACK) || $mo(rdrw) != $xox(WRITE)} {\n\
+		return\n\
+	}\n\
+	# Track Write\n\
+	switch $addmode {\n\
+		0	{\n\
+			# Add/replace current pattern in current track\n\
+			#puts \"ADD pattern\"\n\
+			set target $mo(measure)\n\
+			#puts \"Target measure is $target\"\n\
+			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n\
+			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
+				#puts \"Adding $pat to Track $mo(current_track)\"\n\
+				lappend tl($mo(current_track)) $pat\n\
+			} else {\n\
+				set tl($mo(current_track)) [lreplace $tl($mo(current_track)) $target $target $pat]\n\
+				#puts \"Inserting $pat to Track $mo(current_track)\"\n\
+			}\n\
+		}\n\
+		1	{\n\
+			# Insert pattern before current position in track\n\
+			#puts \"INSERT pattern\"\n\
+			set target $mo(measure)\n\
+			#puts \"Target measure is $target\"\n\
+			set pat [expr [expr 16 * $mo(patgroup)] + $mo(current_pattern)]\n\
+			if {[lindex $tl($mo(current_track)) $target] == \"\"} {\n\
+			#puts \"Adding $pat to Track $mo(current_track)\"\n\
+				lappend tl($mo(current_track)) $pat\n\
+			} else {\n\
+				set tl($mo(current_track)) [linsert $tl($mo(current_track)) $target $pat]\n\
+				#puts \"Inserting $pat to Track $mo(current_track)\"\n\
+			}\n\
+		}\n\
+	}\n\
+	# Go to next step\n\
+	ac_lastfwd\n\
+}\n\
+\n\
+proc have_fla {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & $xox(flam)];\n\
+}\n\
+proc have_weak_accent {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & $xox(weak_accent)];\n\
+}\n\
+proc have_strong_accent {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & $xox(strong_accent)];\n\
+}\n\
+proc have_zero_velocity {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & $xox(zero_velocity)];\n\
+}\n\
+proc set_velocity_flag {prop flag} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & (~$xox(velocity_field)) | ($flag & $xox(velocity_field))]\n\
+}\n\
+proc add_weak_accent {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [set_velocity_flag $prop $xox(weak_accent)]\n\
+}\n\
+proc add_strong_accent {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [set_velocity_flag $prop $xox(strong_accent)]\n\
+}\n\
+proc add_zero_velocity {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [set_velocity_flag $prop $xox(zero_velocity)]\n\
+}\n\
+proc add_default_velocity {prop} {\n\
+    upvar #0 tkxox xox\n\
+    return [expr $prop & (~$xox(velocity_field))]\n\
+}\n\
+#\n\
+# Draw a step node in the grid canvas.\n\
+# Parameters step & inst are expected in 1->16 format (not 0->15).\n\
+#\n\
+proc step_draw {step inst prop} {\n\
+	global grid\n\
+    	upvar #0 tkxox xox\n\
+\n\
+	set x [expr $step / 2.0]\n\
+	set y [expr 9.0 - [expr $inst / 2.0]]\n\
+	if {[have_strong_accent $prop]} {\n\
+	    set color $xox(col_strong_accent)\n\
+	} elseif {[have_weak_accent $prop]} {\n\
+	    set color $xox(col_weak_accent)\n\
+	} elseif {[have_zero_velocity $prop]} {\n\
+	    set color $xox(col_zero_velocity)\n\
+	} else {\n\
+	    set color $xox(col_default_velocity)\n\
+	}\n\
+	if {[have_fla $prop]} {\n\
+	  # draw a star\n\
+	  set new [$grid create polygon \\\n\
+		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n\
+		 [expr $x - (-0.0681818)]c  [expr $y - (0.0681818)]c \\\n\
+		 [expr $x - (-0.1875)]c     [expr $y - (0.0681818)]c \\\n\
+		 [expr $x - (-0.102273)]c   [expr $y - (-0.0426136)]c \\\n\
+		 [expr $x - (-0.127841)]c   [expr $y - (-0.1875)]c \\\n\
+		 [expr $x - (-0.00852273)]c [expr $y - (-0.127841)]c \\\n\
+		 [expr $x - (0.119318)]c    [expr $y - (-0.1875)]c \\\n\
+		 [expr $x - (0.102273)]c    [expr $y - (-0.0511364)]c \\\n\
+		 [expr $x - (0.1875)]c      [expr $y - (0.0681818)]c \\\n\
+		 [expr $x - (0.0681818)]c   [expr $y - (0.0681818)]c \\\n\
+		 [expr $x - (0)]c           [expr $y - (0.1875)]c \\\n\
+		-outline $color \\\n\
+		-fill    $color \\\n\
+		-tags stepnode]\n\
+	} else {\n\
+	  # draw a circle\n\
+	    set new [$grid create oval \\\n\
+		[expr $x - 0.1875]c [expr $y - 0.1875]c	\\\n\
+		[expr $x + 0.1875]c [expr $y + 0.1875]c \\\n\
+		-outline black \\\n\
+		-fill    $color \\\n\
+		-tags stepnode]\n\
+	}\n\
+	$grid addtag ${step}_instr$inst withtag $new\n\
+}\n\
+#\n\
+# Insert given step into current pattern with specified properties\n\
+#\n\
+proc step_insert {step prop} {\n\
+	global grid\n\
+	global tapwrite\n\
+\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 pattern_list pl\n\
+\n\
+	#puts \"Inserting $mo(current_instr) at step $step into bank $mo(patgroup), pattern $mo(current_pattern)\"\n\
+	# First check for duplicates (=> remove)\n\
+	set pg   $mo(patgroup)\n\
+	set cp   $mo(current_pattern)\n\
+	set note $mo(current_instr)\n\
+	if {[tk7_add_note $pg $cp $step $note]} {\n\
+		tk7_set_properties $pg $cp $step $note $prop\n\
+		step_draw [expr $step + 1] $mo(current_instr) $prop\n\
+		#puts \"added note\"\n\
+	} else {\n\
+		$grid delete [expr $step + 1]_instr$mo(current_instr)\n\
+		#puts \"deleted note\"\n\
+	}\n\
+}\n\
+#\n\
+# ClearGrid Display Area\n\
+#\n\
+proc grid_clear {} {\n\
+	global grid\n\
+\n\
+	# Vertical lines\n\
+	set xcoord 0.0\n\
+	for {set i 0} {$i < 16} {incr i} {\n\
+		set xcoord [expr $xcoord + 0.5]\n\
+		$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n\
+	}\n\
+	# Horizontal lines\n\
+	set ycoord 0.5\n\
+	for {set i 0} {$i < 16} {incr i} {\n\
+		set ycoord [expr $ycoord + 0.5]\n\
+		$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n\
+	}\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# Load sound map\n\
+# -----------------------------------------------------------------------------\n\
+set last_map_file_name \"\";\n\
+\n\
+proc load_sound_map {initialdir} {\n\
+\n\
+	# From TK-707 version 0.6, the format of .map files is changed\n\
+	#	(they now include also abbreviation information, for volume labels).\n\
+	# New format is recognized by number of saved data segments (4 rather than 3).\n\
+\n\
+	upvar #0 sound snd\n\
+	upvar #0 last_map_file_name last_map_file_name\n\
+\n\
+	set ftypes	{\n\
+		{{TK707 Sound Map} {.map}}\n\
+		{{All types} {.*}}\n\
+	}\n\
+	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir ]\n\
+\n\
+	if {$fname == \"\"} {\n\
+		return\n\
+	}\n\
+	set last_map_file_name [lindex [split $fname /] end];\n\
+\n\
+	set f [open $fname r]\n\
+	set data \"\"\n\
+	set i 1\n\
+	while {[gets $f line] >= 0} {\n\
+		if {[string index $line 0] == \"#\"} {\n\
+			continue\n\
+		}\n\
+		set data [lindex $line 0]\n\
+		set datasegs [llength $data]\n\
+		set snd($i,name) [lindex $data 0]\n\
+		set snd($i,shortname) [lindex $data 1]\n\
+		if {$datasegs == 4} {\n\
+		    set snd($i,abbrev) [lindex $data 2]\n\
+		    set snd($i,note) [lindex $data 3]\n\
+		} else {\n\
+		    # we could set a better algo to abbrev\n\
+		    set snd($i,abbrev) $snd($i,shortname)\n\
+		    set snd($i,note) [lindex $data 2]\n\
+		}\n\
+		incr i\n\
+	}\n\
+	close $f\n\
+\n\
+	# Reset Name Displays\n\
+	instrument_label_reset\n\
+	tk7_set_sounds\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# Save sound map\n\
+# -----------------------------------------------------------------------------\n\
+proc save_sound_map {} {\n\
+\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 sound snd\n\
+	upvar #0 last_map_file_name last_map_file_name\n\
+\n\
+	set ftypes	{\n\
+		{{TK707 Sound Map} {.map}}\n\
+		{{All types} {.*}}\n\
+	}\n\
+	#puts \"last_map_file_name before: $last_map_file_name\"\n\
+	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_map_file_name]\n\
+	if {$fname == \"\"} {\n\
+		return\n\
+	}\n\
+	set last_map_file_name [lindex [split $fname /] end];\n\
+\n\
+	set f [open $fname w]\n\
+	puts $f \"#################  TK707 Sound Map generated by $xox(VERSION)  #################\"\n\
+	puts $f \"# Format is 16 entries of { {Long name} {Short name} {Abbrev} {Midi key value} }\"\n\
+	puts $f \"############################################################################\"\n\
+	for {set i 1} {$i < 17} {incr i} {\n\
+		puts $f \"{ {$snd($i,name)} {$snd($i,shortname)} {$snd($i,abbrev)} {$snd($i,note)} }\"\n\
+	}\n\
+	close $f\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# Load data file\n\
+# -----------------------------------------------------------------------------\n\
+set last_data_file_name \"\";\n\
+\n\
+proc load_data_file {initialdir} {\n\
+\n\
+	# From TK-707 version 0.7, the format of .dat files is changed\n\
+	#	(they now include also note properties information).\n\
+	# New format is recognized by number of saved data segments (5 rather than 2, 3 or 4).\n\
+	# They are:\n\
+	#	segment 0: pattern note data\n\
+	#	segment 1: pattern note properties\n\
+	#	segment 2: pattern {length,scale,flam,shuffle} properties\n\
+	#	segment 3: track data\n\
+\n\
+	# From TK-707 version 0.6, the format of .dat files is changed\n\
+	#	(they now include also pattern scale information).\n\
+	# New format is recognized by number of saved data segments (4 rather than 2 or 3).\n\
+	# They are:\n\
+	#	segment 0: pattern note data\n\
+	#	segment 1: pattern length data\n\
+	#	segment 2: pattern scale data\n\
+	#	segment 3: track data\n\
+\n\
+	# From TK-707 version 0.5, the format of .dat files is changed\n\
+	#	(they now include pattern length information).\n\
+	# New format is recognized by number of saved data segments (3 rather than 2).\n\
+	# They are:\n\
+	#	segment 0: pattern note data\n\
+	#	segment 1: pattern length data\n\
+	#	segment 2: track data\n\
+\n\
+	upvar #0 track_list tl\n\
+	upvar #0 mode mo\n\
+	upvar #0 last_data_file_name last_data_file_name\n\
+\n\
+	set ftypes	{\n\
+		{{TK-707 Data} {.dat}}\n\
+		{{All types} {.*}}\n\
+	}\n\
+	set fname [tk_getOpenFile -filetypes $ftypes -initialdir $initialdir]\n\
+	if {$fname == \"\"} {\n\
+		return\n\
+	}\n\
+	set last_data_file_name [lindex [split $fname /] end];\n\
+	#puts \"LOAD last_data_file_name $last_data_file_name\"\n\
+\n\
+	set f [open $fname r]\n\
+	set data \"\"\n\
+	while {[gets $f line] >= 0} {\n\
+		if {[string index $line 0] == \"#\"} {\n\
+			continue\n\
+		}\n\
+		set data \"$data [string trim $line]\"\n\
+	}\n\
+	close $f\n\
+\n\
+	# ----------------------------------\n\
+	# find format version from structure\n\
+	# ----------------------------------\n\
+	set datasegs [llength [lindex $data 0]]\n\
+	set data_version \"unknown\";\n\
+	if {$datasegs == 2} {\n\
+	    set data_version 2;\n\
+	} elseif {$datasegs == 3} {\n\
+	    set data_version 5;\n\
+	} elseif {$datasegs == 4} {\n\
+	    set segment2 [lindex [lindex $data 0] 2]\n\
+	    set n_seg2_level2 [llength [lindex [lindex $segment2 0] 0]]\n\
+	    if {$n_seg2_level2 == 1} {\n\
+	        set data_version 6;\n\
+	    } elseif {$n_seg2_level2 >= 4} {\n\
+	        set data_version 7;\n\
+	    }\n\
+	}\n\
+	#puts \"data_version $data_version\"\n\
+	if {$data_version == \"unknown\"} {\n\
+	    puts \"ERROR: ${fname}: unexpected data format\";\n\
+	    return;\n\
+	}\n\
+	# ----------------------------------\n\
+	# load segments\n\
+	# ----------------------------------\n\
+	set loadsegment 0\n\
+	tk7_clear_tree\n\
+	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Pattern data\n\
+	set i 0\n\
+	foreach bankdata $pdata {\n\
+		set j 0\n\
+		foreach patterndata $bankdata {\n\
+			set k 0\n\
+			foreach stepdata $patterndata {\n\
+				if {[llength $stepdata] > 0} {\n\
+					foreach n $stepdata {\n\
+						tk7_add_note $i $j $k $n\n\
+					}\n\
+				}\n\
+				incr k\n\
+			}\n\
+			incr j\n\
+		}\n\
+		incr i\n\
+	}\n\
+	incr loadsegment\n\
+\n\
+	if {$data_version >= 7} {\n\
+	    # format version 0.7 includes note properties: flam, accents, etc...\n\
+	    set p_prop [lindex [lindex $data 0] $loadsegment]	;	#Pattern note properties\n\
+	    set p_data [lindex [lindex $data 0] 0]\n\
+	    set i 0\n\
+	    foreach bank_prop $p_prop {\n\
+	        set bank_data [lindex $p_data $i]\n\
+		set j 0\n\
+		foreach pattern_prop $bank_prop {\n\
+	            set pattern_data [lindex $bank_data $j]\n\
+		    set k 0\n\
+		    foreach step_prop $pattern_prop {\n\
+	                set step_data [lindex $pattern_data $k]\n\
+			if {[llength $step_prop] > 0} {\n\
+			    set idx_n 0\n\
+			    foreach p $step_prop {\n\
+	                        set n [lindex $step_data $idx_n]\n\
+			        tk7_set_properties $i $j $k $n $p\n\
+		        	incr idx_n\n\
+			    }\n\
+			}\n\
+		        incr k\n\
+		    }\n\
+		    incr j\n\
+		}\n\
+		incr i\n\
+	    }\n\
+	    incr loadsegment\n\
+	}\n\
+	pattern_setid $mo(current_pattern)\n\
+\n\
+	if {$data_version >= 5} {\n\
+		# format version 0.5 and 0.6 includes length info.\n\
+	    	# format version 0.7 includes {length,scale,flam,shuffle} infos.\n\
+		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step length data\n\
+		set grp 0\n\
+		foreach grpdata $pdata {\n\
+			set pat 0\n\
+			foreach pldata $grpdata {\n\
+				if {$data_version >= 7} {\n\
+				    # from TK-707 version 0.7: {length,scale,flam,shuffle} infos.\n\
+				    tk7_set_last_step $grp $pat [lindex $pldata 0]\n\
+				    tk7_set_scale     $grp $pat [lindex $pldata 1]\n\
+				    tk7_set_flam      $grp $pat [lindex $pldata 2]\n\
+				    tk7_set_shuffle   $grp $pat [lindex $pldata 3]\n\
+				    if {[llength $pldata] >= 5} {\n\
+				      tk7_set_pattern_comment  $grp $pat [lindex $pldata 4]\n\
+				    }\n\
+				} else {\n\
+				    # TK-707 version 0.5 and 0.6: step length info.\n\
+				    tk7_set_last_step $grp $pat $pldata\n\
+				}\n\
+				incr pat\n\
+			}\n\
+			incr grp\n\
+		}\n\
+		incr loadsegment\n\
+	}\n\
+	if {$data_version == 6} {\n\
+		# format version 0.6 includes step scale info.\n\
+		set pdata [lindex [lindex $data 0] $loadsegment] ; #Step scale data\n\
+		set grp 0\n\
+		foreach grpdata $pdata {\n\
+			set pat 0\n\
+			foreach pldata $grpdata {\n\
+				set scaleresult  [tk7_set_scale $grp $pat $pldata]\n\
+				incr pat\n\
+			}\n\
+			incr grp\n\
+		}\n\
+		incr loadsegment\n\
+	}\n\
+	set pdata [lindex [lindex $data 0] $loadsegment]	;	#Track data\n\
+	set i 0\n\
+	foreach trackdata $pdata {\n\
+		#puts $trackdata\n\
+		set tl($i) [join $trackdata]\n\
+		incr i\n\
+	}\n\
+	ac_track 0\n\
+	pattern_show\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# Save data file\n\
+# -----------------------------------------------------------------------------\n\
+proc reverse {l1} {\n\
+    set n  [llength $l1]\n\
+    set l2 {}\n\
+    for {set i [expr $n - 1]} {$i >= 0} {set i [expr $i - 1]} {\n\
+        lappend l2 [lindex $l1 $i]\n\
+    }\n\
+    return $l2\n\
+}\n\
+proc save_data_file {} {\n\
+\n\
+	upvar #0 pattern_list pl\n\
+	upvar #0 track_list tl\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 last_data_file_name last_data_file_name\n\
+\n\
+	set ftypes	{\n\
+		{{TK-707 Data} {.dat}}\n\
+		{{All types} {.*}}\n\
+	}\n\
+	#puts \"PREV last_data_file_name $last_data_file_name\"\n\
+	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_data_file_name]\n\
+	if {$fname == \"\"} {\n\
+		return\n\
+	}\n\
+	set last_data_file_name [lindex [split $fname /] end];\n\
+	#puts \"NEW last_data_file_name $last_data_file_name\"\n\
+\n\
+	set f [open $fname w]\n\
+	puts $f \"####################### MACHINE GENERATED - DO NOT EDIT #######################\"\n\
+	puts $f \"####   TK707 Data file generated by $xox(VERSION)\"\n\
+	puts $f \"###############################################################################\"\n\
+	puts $f \"{\"							;	# Begin DATA\n\
+\n\
+	# PATTERN NOTES. Four groups of 16 patterns each with 16 steps.\n\
+	puts $f \" {\"							;	# Begin PATTERNS\n\
+	for {set i 0} {$i<4} {incr i} {\n\
+	    puts $f \"  {\"						;	# Begin GROUP i\n\
+	    for {set j 0} {$j<16} {incr j} {\n\
+		puts $f \"   {\"						;	# Begin PATTERN j\n\
+		for {set k 0} {$k<16} {incr k} {\n\
+		    set instruments [tk7_pattern_items $i $j $k]\n\
+		    set instruments [reverse $instruments]\n\
+		    puts $f \"    { $instruments }\"\n\
+		}\n\
+		puts $f \"   }\"						;	# End PATTERN j\n\
+	    }\n\
+	    puts $f \"  }\"						;	# End GROUP i\n\
+	}\n\
+	puts $f \" }\"							;	# End PATTERNS\n\
+\n\
+	# PATTERN NOTES PROPERTIES. Four groups of 16 patterns each with 16 steps.\n\
+	puts $f \" {\"							;	# Begin PATTERNS\n\
+	for {set i 0} {$i<4} {incr i} {\n\
+	    puts $f \"  {\"						;	# Begin GROUP i\n\
+	    for {set j 0} {$j<16} {incr j} {\n\
+		puts $f \"   {\"						;	# Begin PATTERN j\n\
+		for {set k 0} {$k<16} {incr k} {\n\
+		    set properties [tk7_get_pattern_properties $i $j $k]\n\
+		    set properties [reverse $properties]\n\
+		    puts $f \"    { $properties }\"\n\
+		}\n\
+		puts $f \"   }\"						;	# End PATTERN j\n\
+	    }\n\
+	    puts $f \"  }\"						;	# End GROUP i\n\
+	}\n\
+	puts $f \" }\"							;	# End PATTERNS\n\
+\n\
+	# PATTERN PROPERTIES. Four lots of sixteen 4-lists. New from TK-707 version 0.7\n\
+	puts $f  \" {\"							;	# Begin PATTERN PROPERTIES\n\
+	for {set i 0} {$i<4} {incr i} {\n\
+		set pat_props [tk7_group_pattern_properties $i]		; 	# Group step lengths \n\
+		puts $f \"  { $pat_props }\"				; 	# Group step lengths \n\
+	}\n\
+	puts $f  \" }\"							;	# End PATTERN PROPERTIES\n\
+\n\
+	# TRACK DATA. Four tracks of arbitrary length.\n\
+	puts $f \" {\"							;	# Begin TRACKS\n\
+	for {set i 0} {$i<4} {incr i} {\n\
+		puts $f \"  { $tl($i) }\"					;	# TRACK i data\n\
+	}\n\
+	puts $f \" }\"							;	# End TRACKS\n\
+	puts $f \"}\"							;	# End DATA\n\
+	close $f\n\
+}\n\
+# --------------------\n\
+# compute the velocity\n\
+# --------------------\n\
+# velocity range is 0..127 as integer\n\
+# volume   range is 0..1   as float\n\
+proc compute_velocity {prop volume_master volume_accent volume_instr} {\n\
+\n\
+    if {[have_zero_velocity $prop]} {\n\
+	set velocity_factor 0\n\
+    } else {\n\
+    	set velocity_factor 1\n\
+    }\n\
+    if {[have_strong_accent $prop]} {\n\
+	set accent_factor 1\n\
+    } elseif {[have_weak_accent $prop]} {\n\
+	set accent_factor 2/3.0\n\
+    } else {\n\
+	set accent_factor 1/3.0\n\
+    }\n\
+    set volume_note [expr  $volume_master \\\n\
+	     	     	  *$velocity_factor*$volume_instr \\\n\
+		      	  *$accent_factor*$volume_accent]\n\
+    set velocity [expr int(127 * $volume_note + 0.5)]\n\
+    return $velocity\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# Save midi file - current track\n\
+# -----------------------------------------------------------------------------\n\
+\n\
+set last_midi_file_name \"\";\n\
+set prev_data_file_name \"\";\n\
+\n\
+proc put_note {f tick_shift midinote velocity} {\n\
+    if {$tick_shift > 127} {\n\
+        varlen_short shortres $tick_shift\n\
+	puts -nonewline $f [binary format c2 [list $shortres(high) $shortres(low)]]\n\
+	set size 2\n\
+    } else {\n\
+        puts -nonewline $f [binary format c1 $tick_shift]\n\
+	set size 1\n\
+    }\n\
+    puts -nonewline $f [binary format c2 [list $midinote $velocity]]\n\
+    return [expr $size + 2]\n\
+}\n\
+proc put_note_off {f tick_shift midinote} {\n\
+    return [put_note $f $tick_shift $midinote 0]\n\
+}\n\
+proc save_midi_file {} {\n\
+	global cunit\n\
+	global masterv\n\
+\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 sound snd\n\
+	upvar #0 track_list tl\n\
+	upvar #0 has_delay has_delay\n\
+	upvar #0 last_midi_file_name last_midi_file_name\n\
+	upvar #0 last_data_file_name last_data_file_name\n\
+	upvar #0 prev_data_file_name prev_data_file_name\n\
+	upvar #0 instrument_to_volume instrument_to_volume\n\
+\n\
+	if {    ($last_data_file_name != \"\")\n\
+	    && (($prev_data_file_name == \"\") ||\n\
+	        ($prev_data_file_name != $last_data_file_name)) } {\n\
+\n\
+	    # build a predefined name:\n\
+	    set x [lindex [split $last_data_file_name .] 0];\n\
+	    set t $mo(current_track)\n\
+	    set last_midi_file_name \"${x}-track${t}.mid\"\n\
+	}\n\
+	set ftypes	{\n\
+		{{Midi File Format} {.mid}}\n\
+		{{All types} {.*}}\n\
+	}\n\
+	set fname [tk_getSaveFile -filetypes $ftypes -initialfile $last_midi_file_name]\n\
+	if {$fname == \"\"} {\n\
+	    return\n\
+	}\n\
+	set last_midi_file_name [lindex [split $fname /] end];\n\
+	set prev_data_file_name $last_data_file_name\n\
+\n\
+	set thirty_second_note_on_ratio 5; 	# customize the ratio !\n\
+						# ex1: ratio=3\n\
+						# => 1/3 note-on\n\
+						#    2/3 note-off, for a thirty-second \n\
+						# ex2: ratio=16\n\
+						# => 1/16 note-on, 15/16 note-off\n\
+						# ex3: ratio=1\n\
+						# => 100 % note-on; not for percussions...\n\
+\n\
+	set tick_per_note_on            3; 	# how long, in ticks, the note is on\n\
+						# DO NOT change ! because we may divide \n\
+						# it per 3 quarters and eigth later...\n\
+\n\
+	set tick_per_thirty_second      [expr  $thirty_second_note_on_ratio*$tick_per_note_on];\n\
+	set tick_per_quarter            [expr  8*$tick_per_thirty_second];\n\
+\n\
+	# steps are in two parts:\n\
+	#	a note-on part, which have a duration independant of the scale (a hit)\n\
+	#	a note-off part, which depend on the scale:\n\
+\n\
+	# scale(0): 1 step = quarter/4\n\
+        set tick_per_step_off_scale(0) [expr $tick_per_quarter/4 - $tick_per_note_on];\n\
+\n\
+	# scale(1): 1 step = quarter/8\n\
+        set tick_per_step_off_scale(1) [expr $tick_per_quarter/8 - $tick_per_note_on];\n\
+\n\
+	# scale(2): 1 step = quarter/3\n\
+        set tick_per_step_off_scale(2) [expr $tick_per_quarter/3 - $tick_per_note_on];\n\
+\n\
+	# scale(3): 1 step = quarter/6\n\
+        set tick_per_step_off_scale(3) [expr $tick_per_quarter/6 - $tick_per_note_on];\n\
+\n\
+	# ex1: ratio=3\n\
+	#     => tick_per_step_off_scale = {15   6  21   9}\n\
+	# ex1: ratio=16\n\
+	#     => tick_per_step_off_scale = {93   45  125   61}\n\
+	#        the grid is finer and the result is better\n\
+	# ex3: ratio=1\n\
+	#     => tick_per_step_off_scale = {3, 0, 5, 1}, as expected.\n\
+	#	 as expected, the thirty-second has no note-off part...\n\
+\n\
+	#\n\
+	# get volumes:\n\
+	#\n\
+	set volume_master [expr [$masterv.sf.s get] / 100.0]\n\
+	#puts \"volume_master $volume_master\"\n\
+	set volume_accent [expr [$cunit.0.sf.s get] / 100.0]\n\
+	#puts \"volume_accent $volume_accent\"\n\
+	set volume_set {}\n\
+	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
+	    set i_vol $instrument_to_volume($instrument)\n\
+	    set volume($instrument) [expr [$cunit.${i_vol}.sf.s get] / 100.0]\n\
+	    #puts \"volume($instrument) $volume($instrument)\"\n\
+	}\n\
+	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
+	    set in_note($instrument) 0;\n\
+	}\n\
+	set f [open $fname w]\n\
+	puts -nonewline $f MThd\n\
+	puts -nonewline $f [binary format I 6]\n\
+	puts -nonewline $f [binary format S 0]\n\
+	puts -nonewline $f [binary format S 1]\n\
+	puts -nonewline $f [binary format S $tick_per_quarter]\n\
+	puts -nonewline $f MTrk\n\
+	set loc_tracksize 18\n\
+	puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n\
+\n\
+	# Meta Event to set track tempo\n\
+	set micro_tempo [expr 60000000 / $mo(tempo)]\n\
+	puts -nonewline $f [binary format c7 [list 0 255 81 3 [expr $micro_tempo >> 16] [expr $micro_tempo >> 8] $micro_tempo]]\n\
+	set tracksize 7\n\
+\n\
+	# Establish running status with a zero volume note\n\
+	puts -nonewline $f [binary format c4 [list 0 [expr 144 + $mo(midi_channel)] 17 0]]\n\
+	incr tracksize 4\n\
+\n\
+	set track $tl($mo(current_track))\n\
+	set tick_shift 0\n\
+	foreach patid $track {\n\
+	    set group     [expr $patid / 16]\n\
+	    set pattern   [expr $patid % 16]\n\
+	    set last_step [tk7_get_last_step $group $pattern]\n\
+	    set scale     [tk7_get_scale $group $pattern]\n\
+	    set step 0\n\
+	    while {$step < $last_step} {\n\
+		set instrument_set [tk7_pattern_items          $group $pattern $step]\n\
+		set property_set   [tk7_get_pattern_properties $group $pattern $step]\n\
+		set idx 0\n\
+		foreach instrument $instrument_set {\n\
+		    if {$instrument == \"\"} {\n\
+			#puts \"EMPTY instrument ?? idx = $idx\"\n\
+		        incr idx\n\
+			continue;\n\
+		    }\n\
+		    # ------------\n\
+		    # start a note\n\
+		    # ------------\n\
+		    set midinote $snd($instrument,note)\n\
+    		    set prop [lindex $property_set $idx]\n\
+		    set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n\
+		    incr tracksize [put_note $f $tick_shift $midinote $velocity]\n\
+		    set tick_shift 0\n\
+		    if {! $has_delay($instrument) && ! [have_zero_velocity $prop]} {\n\
+			# start a note without delay\n\
+		        set in_note($instrument) 1\n\
+		    }\n\
+		    incr idx\n\
+		}\n\
+		set flam_interval [tk7_get_flam $group $pattern]\n\
+		set tick_per_flam [expr $xox(tick_flam_duration) * $flam_interval]\n\
+		incr tick_shift $tick_per_flam\n\
+		if {$flam_interval != 0} {\n\
+		    set idx 0\n\
+		    foreach instrument $instrument_set {\n\
+		        if {$instrument == \"\"} {\n\
+			    continue;\n\
+		        }\n\
+	  	        set prop [lindex $property_set $idx]\n\
+		        if {! [have_fla $prop]} {\n\
+			    continue;\n\
+		        }\n\
+		        # ----------------------\n\
+		        # write a fla note\n\
+		        # ----------------------\n\
+		        set midinote $snd($instrument,note)\n\
+    		        set prop [lindex $property_set $idx]\n\
+		        set velocity [compute_velocity $prop $volume_master $volume_accent $volume($instrument)]\n\
+		        incr tracksize [put_note $f $tick_shift $midinote $velocity]\n\
+		        set tick_shift 0\n\
+		        incr idx\n\
+		    }\n\
+		}\n\
+		incr tick_shift [expr $tick_per_note_on - $tick_per_flam]\n\
+		foreach instrument $instrument_set {\n\
+		    if {$instrument == \"\"} {\n\
+			continue;\n\
+		    }\n\
+		    if {! $has_delay($instrument)} {\n\
+			continue;\n\
+		    }\n\
+		    # ----------------------\n\
+		    # stop a note with delay\n\
+		    # ----------------------\n\
+		    set midinote $snd($instrument,note)\n\
+		    incr tracksize [put_note_off $f $tick_shift $midinote]\n\
+		    set tick_shift 0\n\
+		}\n\
+		incr tick_shift $tick_per_step_off_scale($scale)\n\
+\n\
+		incr step\n\
+	    }\n\
+	}\n\
+	# stop current long notes on (whistle, etc...)\n\
+	for {set instrument 1} {$instrument <= 16} {incr instrument} {\n\
+\n\
+		if {$in_note($instrument)} {\n\
+\n\
+		 #puts \"stop instrument $instrument\";\n\
+\n\
+		 set midinote $snd($instrument,note)\n\
+		 incr tracksize [put_note_off $f $tick_shift $midinote]\n\
+		 set tick_shift 0\n\
+	    }\n\
+	}\n\
+	# End of track\n\
+	puts -nonewline $f [binary format c 0]\n\
+	puts -nonewline $f [binary format c3 {255 47 0}]\n\
+	incr tracksize 4\n\
+\n\
+	# Go back and insert tracksize\n\
+	flush $f\n\
+	seek $f $loc_tracksize\n\
+	puts -nonewline $f [binary format I $tracksize]\n\
+	close $f\n\
+}\n\
+# -----------------------------------------------------------------------------\n\
+# fileMidi - TEST area\n\
+# -----------------------------------------------------------------------------\n\
+proc fileAction {a} {\n\
+	upvar #0 pattern_list pl\n\
+	upvar #0 track_list tl\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+\n\
+	if {$a == 99} {\n\
+		set ftypes	{\n\
+			{{Midi File Format} {.mid}}\n\
+			{{All types} {.*}}\n\
+		}\n\
+		set fname [tk_getSaveFile -filetypes $ftypes]\n\
+		if {$fname == \"\"} {\n\
+			return\n\
+		}\n\
+		set f [open $fname w]\n\
+\n\
+		puts -nonewline $f MThd\n\
+		puts -nonewline $f [binary format I 6]\n\
+		puts -nonewline $f [binary format S 0]\n\
+		puts -nonewline $f [binary format S 1]\n\
+		puts -nonewline $f [binary format S 7]\n\
+		puts -nonewline $f MTrk\n\
+		set loc_tracksize 18\n\
+		puts -nonewline $f [binary format I 0]	; # Dummy tracksize\n\
+\n\
+		puts -nonewline $f [binary format c2 [list 0 [expr 144 + $mo(midi_channel)]]]\n\
+\n\
+		# Once running status is established, format is\n\
+		# {note onlevel pause note offlevel pause}\n\
+		puts -nonewline $f [binary format c12 {35 127 0 51 127 2 35 0 0 51 0 4}]\n\
+		puts -nonewline $f [binary format c6 {48 127 2 48 0 4}]\n\
+		puts -nonewline $f [binary format c6 {38 127 2 38 0 4}]\n\
+		puts -nonewline $f [binary format c6 {51 127 2 51 0 4}]\n\
+\n\
+		# End of track\n\
+		puts -nonewline $f [binary format c3 {255 47 0}]\n\
+\n\
+		set tracksize 35\n\
+		# Go back and insert tracksize\n\
+		flush $f\n\
+		seek $f $loc_tracksize\n\
+		puts -nonewline $f [binary format I $tracksize]\n\
+		close $f\n\
+	} else {\n\
+		puts \"INTERNAL ERROR: Unexected file action: $a\"\n\
+	}\n\
+}\n\
+proc varlen_short {result value} {\n\
+	upvar $result res\n\
+\n\
+	if {$value < 128} {\n\
+		set res(high) 0\n\
+		set res(low) $value\n\
+	} else {\n\
+		set res(high) [expr 128 + [expr $value / 128]]\n\
+#		set res(high) [expr 65536 + [expr $value / 128]]\n\
+		set res(low) [expr $value % 128]\n\
+	}\n\
+}\n\
+\n\
+#=============================================================\n\
+# These procs to edit mapping of note keys to midi note values\n\
+#\n\
+proc map_edit {} {\n\
+	global font12\n\
+	global boldfont12\n\
+	upvar #0 sound snd\n\
+	upvar #0 soundbuf sbuf\n\
+	upvar #0 tkxox xox\n\
+\n\
+	if {[winfo exists .edit]} {\n\
+		wm deiconify .edit\n\
+	} else {\n\
+		toplevel .edit\n\
+		wm title .edit \"Edit Sound Map\"\n\
+\n\
+		set m_titles .edit.t\n\
+		canvas $m_titles -height 0.75c -width 13.5c -relief raised -borderwidth 2\n\
+		pack $m_titles\n\
+		set m_maps .edit.m\n\
+		frame $m_maps\n\
+		pack $m_maps\n\
+		set m_opts	.edit.o\n\
+		canvas $m_opts -height 1.5c -width 13.5c\n\
+		pack $m_opts\n\
+\n\
+		label $m_titles.key    -text \"Key\"        -font *-${boldfont12}-*\n\
+		label $m_titles.long   -text \"Long Name\"  -font *-${boldfont12}-*\n\
+		label $m_titles.short  -text \"Short Name\" -font *-${boldfont12}-*\n\
+		label $m_titles.abbrev -text \"Abbrev\"     -font *-${boldfont12}-*\n\
+		label $m_titles.note   -text \"Note\"       -font *-${boldfont12}-*\n\
+		label $m_titles.test   -text \"Test\"       -font *-${boldfont12}-*\n\
+		$m_titles create window  0c   0.45c -window $m_titles.key    -anchor w -width 1c\n\
+		$m_titles create window  1c   0.45c -window $m_titles.long   -anchor w -width 4c\n\
+		$m_titles create window  5.3c 0.45c -window $m_titles.short  -anchor w -width 2c\n\
+		$m_titles create window  7.5c 0.45c -window $m_titles.abbrev -anchor w -width 2c\n\
+		$m_titles create window 10.0c 0.45c -window $m_titles.note   -anchor w -width 1c\n\
+		$m_titles create window 11.7c 0.45c -window $m_titles.test   -anchor w -width 1c\n\
+\n\
+		# Name, Shortname, Midi note entries\n\
+		#\n\
+		for {set i 0} {$i < 16} {incr i} {\n\
+			canvas $m_maps.$i -height 1c -width 13.5c\n\
+			label $m_maps.$i.l -text [expr $i + 1] -font *-${font12}-*\n\
+			entry $m_maps.$i.long  -font *-${font12}-*\n\
+			entry $m_maps.$i.short  -font *-${font12}-*\n\
+			entry $m_maps.$i.abbrev  -font *-${font12}-*\n\
+			entry $m_maps.$i.note  -font *-${font12}-*\n\
+			button $m_maps.$i.test \\\n\
+				-bitmap nix \\\n\
+				-bg $xox(but_grey) \\\n\
+				-activebackground $xox(but_grey_active) \\\n\
+				-width 1.0c -height 0.7c\n\
+\n\
+			$m_maps.$i create window 0c   0.5c -window $m_maps.$i.l 	 -anchor w -width 1c\n\
+			$m_maps.$i create window 1c   0.5c -window $m_maps.$i.long -anchor w -width 4c\n\
+			$m_maps.$i create window 5c   0.5c -window $m_maps.$i.short -anchor w -width 2.5c\n\
+			$m_maps.$i create window 7.5c 0.5c -window $m_maps.$i.abbrev -anchor w -width 2.5c\n\
+			$m_maps.$i create window 10c  0.5c -window $m_maps.$i.note -anchor w -width 1c\n\
+			$m_maps.$i create window 11.2c 0.5c -window $m_maps.$i.test -anchor w -width 2.1c\n\
+\n\
+			set j [expr $i + 1]\n\
+			$m_maps.$i.long insert 0 $snd($j,name)\n\
+			set sbuf($j,name) $snd($j,name)\n\
+			$m_maps.$i.short insert 0 $snd($j,shortname)\n\
+			set sbuf($j,shortname) $snd($j,shortname)\n\
+			$m_maps.$i.abbrev insert 0 $snd($j,abbrev)\n\
+			set sbuf($j,abbrev) $snd($j,abbrev)\n\
+			$m_maps.$i.note insert 0 $snd($j,note)\n\
+			set sbuf($j,note) $snd($j,note)\n\
+			pack $m_maps.$i\n\
+\n\
+			bind $m_maps.$i.test <ButtonPress-1>    {map_start_test_note %W}\n\
+			bind $m_maps.$i.test <ButtonRelease-1>  {map_stop_test_note %W}\n\
+\n\
+			bind $m_maps.$i.note <Shift-ButtonPress-1>   {map_start_set_note %W 1}\n\
+			bind $m_maps.$i.note <Shift-ButtonRelease-1> {map_stop_set_note %W}\n\
+\n\
+			bind $m_maps.$i.note <Control-ButtonPress-1>   {map_start_set_note %W -1}\n\
+			bind $m_maps.$i.note <Control-ButtonRelease-1> {map_stop_set_note %W}\n\
+\n\
+			bind $m_maps.$i.note <Button-2>  {\n\
+				set noteY %y\n\
+			}\n\
+			bind $m_maps.$i.note <B2-Motion> {\n\
+				set direction [expr %y - $noteY]\n\
+				if {$direction >= 0} {\n\
+				    set diff 1\n\
+				} else {\n\
+				    set diff -1\n\
+				}\n\
+				map_start_set_note %W $diff\n\
+				after 500;\n\
+				map_stop_set_note  %W\n\
+			}\n\
+		}\n\
+\n\
+		# Cancel, Apply, OK buttons\n\
+		#\n\
+		button $m_opts.cancel -text Cancel -font *-${font12}-* -command {\n\
+			upvar #0 soundbuf buf\n\
+			for {set i 0} {$i < 16} {incr i} {\n\
+				set j [expr $i + 1]\n\
+				.edit.m.$i.long delete 0 100\n\
+				.edit.m.$i.long insert 0 $buf($j,name)\n\
+				set snd($j,name) $buf($j,name)\n\
+\n\
+				.edit.m.$i.short delete 0 100\n\
+				.edit.m.$i.short insert 0 $buf($j,shortname)\n\
+				set snd($j,shortname) $buf($j,shortname)\n\
+\n\
+				.edit.m.$i.abbrev delete 0 100\n\
+				.edit.m.$i.abbrev insert 0 $buf($j,abbrev)\n\
+				set snd($j,abbrev) $buf($j,abbrev)\n\
+\n\
+				.edit.m.$i.note delete 0 end\n\
+				.edit.m.$i.note insert 0 $buf($j,note)\n\
+				set snd($j,note) $buf($j,note)\n\
+			}\n\
+			instrument_label_reset\n\
+			tk7_set_sounds\n\
+			destroy .edit\n\
+		}\n\
+		button $m_opts.apply -text Apply -font *-${font12}-* -command {\n\
+			map_set_new_sounds\n\
+		}\n\
+		button $m_opts.ok -text OK -font *-${font12}-* -command {\n\
+			map_set_new_sounds\n\
+			destroy .edit\n\
+		}\n\
+		$m_opts create window 1c 0.75c -window $m_opts.cancel -anchor w -width 2.5c\n\
+		$m_opts create window 4c 0.75c -window $m_opts.apply -anchor w -width 2.5c\n\
+		$m_opts create window 7c 0.75c -window $m_opts.ok -anchor w -width 2.5c\n\
+	}\n\
+}\n\
+\n\
+proc map_set_new_sounds {} {\n\
+	global .edit\n\
+	upvar #0 sound snd\n\
+	upvar #0 soundbuf sbuf\n\
+\n\
+	for {set i 0} {$i < 16} {incr i} {\n\
+		set j [expr $i + 1]\n\
+		set snd($j,name) [.edit.m.$i.long get]\n\
+		set snd($j,shortname) [.edit.m.$i.short get]\n\
+		set snd($j,abbrev) [.edit.m.$i.abbrev get]\n\
+		set snd($j,note) [.edit.m.$i.note get]\n\
+	}\n\
+	instrument_label_reset\n\
+	tk7_set_sounds\n\
+}\n\
+\n\
+proc map_start_test_note widget {\n\
+	global .edit\n\
+	set k [string range [string trimright $widget .test] 8 end]\n\
+	set n [.edit.m.$k.note get]\n\
+	tk7_start_note_test $k $n\n\
+}\n\
+proc map_stop_test_note widget {\n\
+	global .edit\n\
+	set k [string range [string trimright $widget .test] 8 end]\n\
+	set n [.edit.m.$k.note get]\n\
+	tk7_stop_note_test $k $n\n\
+}\n\
+proc map_start_set_note {widget diff} {\n\
+	set newval [expr [$widget get] + $diff]\n\
+	set newval [expr $newval % 128]\n\
+	$widget delete 0 end\n\
+	$widget insert 0 $newval\n\
+	set k [string range [string trimright $widget .note] 8 end]\n\
+	tk7_start_note_test $k $newval\n\
+}\n\
+proc map_stop_set_note {widget} {\n\
+	set keynum    [string range [string trimright $widget .note] 8 end]\n\
+	set midi_note [$widget get]\n\
+	tk7_stop_note_test $keynum $midi_note\n\
+}\n\
+#=============================================================\n\
+\n\
+#=====================================================\n\
+# These procs to edit mapping of instruments to faders\n\
+#\n\
+proc fader_edit {} {\n\
+	if {[winfo exists .fadermap]} {\n\
+		wm deiconify .fadermap\n\
+	} else {\n\
+		toplevel .fadermap\n\
+		wm title .fadermap \"Edit Fader Map\"\n\
+\n\
+		text .fadermap.intro -width 64 -height 16\n\
+		.fadermap.intro insert end	\\\n\
+\"Editing of the Instrument to Fader map is not implemented yet.\n\
+The default mapping being used is:\n\
+\n\
+Vol 0 (the first fader ) - unused\n\
+Vol 1	- Bass drums 1 & 2\n\
+Vol 2	- Snare drums 1 & 2\n\
+Vol 3	- Low Tom\n\
+Vol 4	- Mid Tom\n\
+Vol 5	- High Tom\n\
+Vol 6	- Rimshot & Cowbell\n\
+Vol 7	- Handclap & Tambourine\n\
+Vol 8	- Highhats (all)\n\
+Vol 9	- Crash cymbal\n\
+Vol 10	- Ride cymbal\n\
+VOLUME	- Master volume over all instruments\n\
+\"\n\
+\n\
+		button .fadermap.ok -text OK -command {destroy .fadermap}\n\
+\n\
+		pack .fadermap.intro\n\
+		pack .fadermap.ok -expand true -fill x\n\
+	}\n\
+\n\
+}\n\
+#=====================================================\n\
+#\n\
+# Flash the lamps for each of the 16 steps in 1 pattern\n\
+# (fix later for patterns with fewer steps)\n\
+#\n\
+#ex: cycle_notes 1 [expr 55 * 120 / $mo(tempo)] 0 0 $steps\n\
+proc cycle_notes {on dur w saved steps} {\n\
+	global notes\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	upvar #0 flash fl\n\
+\n\
+	if {$on == 1} {\n\
+		switch $mo(stopgo) {\n\
+		0	{\n\
+			#puts \"stopgo = STOP\"\n\
+			set fl(count) -1\n\
+			}\n\
+		1	{\n\
+			incr fl(count)\n\
+			if {$fl(count) > [expr $steps - 1]} {\n\
+				set fl(count) -1\n\
+				return\n\
+			}\n\
+			set savecolour [lindex [$notes.note$fl(count).l configure -bg] 4]\n\
+			set savedwin $notes.note$fl(count).l\n\
+			#puts \"cycle $fl(count) ON \"\n\
+			$savedwin configure -bg $xox(col_on)\n\
+			after $dur [list cycle_notes 0 $dur $savedwin $savecolour $steps]\n\
+			}\n\
+		2	{\n\
+			#puts \"stopgo = CONT\"\n\
+			}\n\
+		}\n\
+	} else {\n\
+#		#puts \"cycle $fl(count) OFF\"\n\
+		$w configure -bg $saved\n\
+		if {$mo(stopgo) != $xox(START)} {\n\
+			set fl(count) 15\n\
+			return\n\
+		}\n\
+\n\
+		if {$fl(count) < $steps} {\n\
+			after $dur [list cycle_notes 1 $dur 0 0 $steps]\n\
+		} else {\n\
+			set fl(count) -1\n\
+			return\n\
+		}\n\
+	}\n\
+\n\
+}\n\
+proc gridlabels_reset {} {\n\
+	global gridlabel\n\
+	global font12\n\
+	upvar #0 sound so\n\
+	for {set i 0} {$i < 16} {incr i} {\n\
+		$gridlabel itemconfigure ilabel$i -text $so([expr 16 - $i],name)	\\\n\
+			-font *-${font12}-* -anchor e\n\
+	}\n\
+}\n\
+proc key_labels_reset {} {\n\
+	global notes\n\
+	upvar #0 sound so\n\
+\n\
+	for {set i 0} {$i < 16} {incr i} {\n\
+		$notes.note$i.instr configure -text $so([expr $i + 1],shortname)\n\
+	}\n\
+}\n\
+proc volume_labels_reset {} {\n\
+	global cunit\n\
+	upvar #0 sound so\n\
+	upvar #0 volume_label vo\n\
+\n\
+	if {$so(2,abbrev) != \"\"} {\n\
+	    set vo(1)  \"$so(1,abbrev)/$so(2,abbrev)\"\n\
+	} else {\n\
+	    set vo(1)  \"$so(1,abbrev)\"\n\
+	}\n\
+	if {$so(4,abbrev) != \"\"} {\n\
+	    set vo(2)  \"$so(3,abbrev)/$so(4,abbrev)\"\n\
+	} else {\n\
+	    set vo(2)  \"$so(3,abbrev)\"\n\
+	}\n\
+	set vo(3)  \"$so(5,abbrev)\"\n\
+	set vo(4)  \"$so(6,abbrev)\"\n\
+	set vo(5)  \"$so(7,abbrev)\"\n\
+	if {$so(9,abbrev) != \"\"} {\n\
+	    set vo(6)  \"$so(8,abbrev)/$so(9,abbrev)\"\n\
+	} else {\n\
+	    set vo(6)  \"$so(8,abbrev)\"\n\
+	}\n\
+	if {$so(11,abbrev) != \"\"} {\n\
+	    set vo(7)  \"$so(10,abbrev)/$so(11,abbrev)\"\n\
+	} else {\n\
+	    set vo(7)  \"$so(10,abbrev)\"\n\
+	}\n\
+	if {($so(13,abbrev) != \"\") && ($so(14,abbrev) != \"\")} {\n\
+	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)/$so(14,abbrev)\"\n\
+	} elseif {$so(13,abbrev) != \"\"} {\n\
+	    set vo(8)  \"$so(12,abbrev)/$so(13,abbrev)\"\n\
+	} elseif {$so(14,abbrev) != \"\"} {\n\
+	    set vo(8)  \"$so(12,abbrev)/$so(14,abbrev)\"\n\
+	} else {\n\
+	    set vo(8)  \"$so(12,abbrev)\"\n\
+	}\n\
+	set vo(9)  \"$so(15,abbrev)\"\n\
+	set vo(10) \"$so(16,abbrev)\"\n\
+\n\
+	for {set i 1} {$i < 11} {incr i} {\n\
+		$cunit.$i.l configure -text $vo($i)\n\
+	}\n\
+}\n\
+proc instrument_label_reset {} {\n\
+	gridlabels_reset\n\
+	key_labels_reset\n\
+	volume_labels_reset\n\
+}\n\
+proc tempoinfo_update {a b c} {\n\
+	global tempoinfo\n\
+	upvar $a mo\n\
+	$tempoinfo itemconfigure tempo -text $mo(tempo)\n\
+}\n\
+proc measureinfo_update {a b c} {\n\
+	global tempoinfo\n\
+	upvar $a mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 track_list tl\n\
+\n\
+	if {$mo(measure) == -1} {\n\
+		$tempoinfo itemconfigure tempo -text \"\"\n\
+	} else {\n\
+		$tempoinfo itemconfigure tempo -text [expr $mo(measure) + 1]\n\
+	}\n\
+}\n\
+proc trackinfo_update {a b c} {\n\
+	global tminfo\n\
+	upvar $a mo\n\
+\n\
+	switch $mo(current_track) {\n\
+		0	{\n\
+			$tminfo.t coords trackid 3c 0.45c\n\
+			$tminfo.t itemconfigure trackid -text I\n\
+		}\n\
+		1	{\n\
+			$tminfo.t coords trackid 4c 0.45c\n\
+			$tminfo.t itemconfigure trackid -text II\n\
+		}\n\
+		2	{\n\
+			$tminfo.t coords trackid 5c 0.45c\n\
+			$tminfo.t itemconfigure trackid -text III\n\
+		}\n\
+		3	{\n\
+			$tminfo.t coords trackid 6c 0.45c\n\
+			$tminfo.t itemconfigure trackid -text IV\n\
+		}\n\
+	}\n\
+}\n\
+proc modeinfo_update {m} {\n\
+	global tminfo\n\
+	global tapwrite\n\
+	global font12\n\
+\n\
+	$tminfo.m delete modetext\n\
+	switch $m {\n\
+		0	{\n\
+			set tapwrite 1\n\
+			$tminfo.m create text 1.2c 0.8c -text \"TRACK PLAY\"	\\\n\
+				-tags modetext -anchor w -font *-${font12}-*\n\
+		}\n\
+		1	{\n\
+			set tapwrite 1\n\
+			$tminfo.m create text 1.2c 1.1c -text \"TRACK WRITE\"	\\\n\
+				-tags modetext -anchor w -font *-${font12}-*\n\
+		}\n\
+		2	{\n\
+			set tapwrite 1\n\
+			$tminfo.m create text 4.2c 0.4c -text \"PATTERN PLAY\"	\\\n\
+				-tags modetext -anchor w -font *-${font12}-*\n\
+		}\n\
+		3	{\n\
+			if {$tapwrite} {\n\
+				incr tapwrite -1\n\
+				$tminfo.m create text 4.2c 0.8c -text \"PATTERN WRITE\"	\\\n\
+					-tags modetext -anchor w -font *-${font12}-*\n\
+			} else {\n\
+				incr tapwrite\n\
+				$tminfo.m create text 4.2c 1.2c -text \"TAP WRITE\"	\\\n\
+					-tags modetext -anchor w -font *-${font12}-*\n\
+			}\n\
+		}\n\
+	}\n\
+}\n\
+proc scale_lamps_update {} {\n\
+	global scale_lamps\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+\n\
+	set scale [tk7_get_scale $mo(patgroup) $mo(current_pattern)]\n\
+	for {set i 0} {$i < 4} {incr i} {\n\
+	    set button ${scale_lamps}.l${i}\n\
+	    if {$i == $scale} {\n\
+		$button configure -background $xox(lamp_on)\n\
+	    } else {\n\
+		$button configure -background $xox(lamp_off)\n\
+	    }\n\
+	}\n\
+}\n\
+proc locate_gridpos {x y result} {\n\
+	global gridXs gridYs gridSvals gridIvals\n\
+	upvar $result res\n\
+\n\
+	#puts \"locate_gridpos $x,$y\"\n\
+	set halo 7\n\
+\n\
+	set resX -1\n\
+	foreach i $gridXs {\n\
+		if {($i > [expr $x - $halo]) && ($i < [expr $x + $halo])} {\n\
+			set resX $i\n\
+			break\n\
+		}\n\
+	}\n\
+	if {$resX < 0} {\n\
+		return $resX\n\
+	}\n\
+	#puts \"resX = $resX\"\n\
+\n\
+	set resY -1\n\
+	foreach i $gridYs {\n\
+		if {($i > [expr $y - $halo]) && ($i < [expr $y + $halo])} {\n\
+			set resY $i\n\
+			break\n\
+		}\n\
+	}\n\
+	if {$resY < 0} {\n\
+		return $resY\n\
+	}\n\
+#puts \"resY = $resY\"\n\
+\n\
+	set res(step) $gridSvals($resX)\n\
+	set res(inst) $gridIvals($resY)\n\
+\n\
+	return 0\n\
+}\n\
+\n\
+proc play_loop {} {\n\
+	upvar #0 mode mo\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 track_list tl\n\
+	global button_stop	;# to invoke stop button\n\
+	if {$mo(stopgo) == $xox(START) && $mo(patr) == $xox(TRACK) && $mo(rdrw) == $xox(READ)} {\n\
+	\n\
+		# Playing a track\n\
+		if {$mo(TRACK_START)} {\n\
+			set xox(play_list) $tl($mo(current_track))\n\
+\n\
+			# Prepare to display pattern contents\n\
+			set mo(measure) -1\n\
+\n\
+			set mo(TRACK_START) 0\n\
+		}\n\
+\n\
+		if {[llength $xox(play_list)] > 0} {\n\
+			set target  [lindex $xox(play_list) 0]\n\
+			set group [expr $target / 16]\n\
+			set pat [expr $target % 16]\n\
+			set xox(play_list) [lreplace $xox(play_list) 0 0]\n\
+\n\
+			# Prepare to display pattern contents\n\
+			set target  [expr $mo(measure) + 1]\n\
+			set mo(measure) [measure_constrain $target]\n\
+		} else {\n\
+			$button_stop invoke\n\
+		}\n\
+\n\
+		if {$mo(PATTERN_REPEAT)} {\n\
+			play_pattern $group $pat\n\
+		}\n\
+\n\
+		# Update pattern display\n\
+		pattern_show\n\
+\n\
+	} else { # Not playing a track\n\
+\n\
+		if {$mo(PATTERN_REPEAT)} {\n\
+			play_pattern $mo(patgroup) $mo(current_pattern)\n\
+		}\n\
+	}\n\
+	after $mo(REPEAT_INTERVAL) play_loop\n\
+}\n\
+# ----------------------------------------------------------------------------\n\
+# Edit Pattern Comment\n\
+# ----------------------------------------------------------------------------\n\
+\n\
+proc get_current_pattern_name {} {\n\
+    upvar #0 mode mo\n\
+    switch $mo(patgroup) {\n\
+	0 { set g \"A\"; }\n\
+	1 { set g \"B\"; }\n\
+	2 { set g \"C\"; }\n\
+	3 { set g \"D\"; }\n\
+    }\n\
+    set name \"$g[expr $mo(current_pattern)+1]\";\n\
+    return $name;\n\
+}\n\
+set comment .pattern_comment;\n\
+\n\
+proc  refresh_comment {} {\n\
+    upvar #0 mode mo\n\
+    global comment;\n\
+    if {[winfo exists $comment]} {\n\
+    	set name [get_current_pattern_name];\n\
+    	wm title $comment \"$name pattern comment\"\n\
+        set old_comment [$comment.string get]\n\
+        $comment.string delete 0 [expr [string length $old_comment] ]\n\
+        set current_comment [tk7_get_pattern_comment $mo(patgroup) $mo(current_pattern)]\n\
+        $comment.string insert 0 \"$current_comment\"\n\
+    }\n\
+}\n\
+proc edit_pattern_comment {} {\n\
+    upvar #0 mode mo\n\
+    upvar #0 tkxox xox\n\
+    global comment\n\
+\n\
+    if {[winfo exists $comment]} {\n\
+	wm deiconify $comment\n\
+    } else {\n\
+	toplevel $comment\n\
+\n\
+	button $comment.quit -text quit -command {wm iconify $comment}\n\
+	button $comment.ok -text ok -command comment_ok\n\
+	pack $comment.quit $comment.ok -side right\n\
+\n\
+	# label $comment.label -text Comment: -padx 0\n\
+	entry $comment.string -width 20 -relief sunken\n\
+	# pack $comment.label -side left\n\
+	pack $comment.string -side left -fill x -expand true\n\
+\n\
+	bind $comment.string <Return> comment_ok\n\
+	bind $comment.string <Control-c> {wm iconify $comment}\n\
+	focus $comment.string \n\
+    }\n\
+    refresh_comment;\n\
+}\n\
+proc comment_ok {} {\n\
+    upvar #0 mode mo;\n\
+    global comment;\n\
+    set stringval [$comment.string get];\n\
+    set name [get_current_pattern_name];\n\
+    puts \"set $name comment to \\\"$stringval\\\"\";\n\
+    tk7_set_pattern_comment $mo(patgroup) $mo(current_pattern) $stringval;\n\
+    # wm iconify $comment;\n\
+}\n\
+";
diff --git a/procs.tcl b/procs.tcl
index 6c0b66c..89ba16c 100644
--- a/procs.tcl
+++ b/procs.tcl
@@ -1,3 +1,22 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
 #=====================================================
 #	File procs.tcl
 #	Procedures for the tcl side of the program
diff --git a/prout.m4 b/prout.m4
deleted file mode 100644
index ef7d258..0000000
--- a/prout.m4
+++ /dev/null
@@ -1,158 +0,0 @@
-dnl MY_DEFINE(VARIABLE)
-AC_DEFUN([MY_DEFINE],
-[cat >> confdefs.h <<EOF
-[#define] $1 1
-EOF
-])
-
-dnl CONFIG_INTERFACE(package,macro_name,interface_id,help
-dnl                  $1      $2         $3           $4
-dnl                  action-if-yes-or-dynamic,
-dnl		     $5
-dnl		     action-if-yes,action-if-dynamic,action-if-no)
-dnl		     $6            $7                $8
-AC_DEFUN([CONFIG_INTERFACE],
-[AC_ARG_ENABLE($1,[$4],
-[case "x$enable_$1" in xyes|xdynamic) $5 ;; esac])
-case "x$enable_$1" in
-xyes)
-  MY_DEFINE(IA_$2)
-  AM_CONDITIONAL(ENABLE_$2, true)
-  $6
-  ;;
-xdynamic)
-  dynamic_targets="$dynamic_targets interface_$3.\$(so)"
-  $7
-  ;;
-*)
-  $8
-  ;;
-esac
-AC_SUBST($3_so_libs)
-])
-
-
-
-dnl Configure Paths for Alsa
-dnl Christopher Lansdown (lansdoct@cs.alfred.edu)
-dnl 29/10/1998
-dnl AM_PATH_ALSA(MINIMUM-VERSION)
-dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate.
-dnl enables arguments --with-alsa-prefix= --with-alsa-enc-prefix= --disable-alsatest
-dnl
-AC_DEFUN(AM_PATH_ALSA,
-[dnl
-dnl Get the clfags and libraries for alsa
-dnl
-AC_ARG_WITH(alsa-prefix,[ --with-alsa-prefix=PFX  Prefix where Alsa library is installed(optional)],
-	[alsa_prefix="$withval"], [alsa_prefix=""])
-AC_ARG_WITH(alsa-inc-prefix, [ --with-alsa-inc-prefix=PFX  Prefix where include libraries are (optional)],
-	[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""])
-AC_ARG_ENABLE(alsatest, [ --disable-alsatest       Do not try to compile and run a test Alsa program], [enable_alsatest=no], [enable_alsatest=yes])
-
-dnl Add any special include directories
-AC_MSG_CHECKING(for ALSA CFLAGS)
-if test "$alsa_inc_prefix" != "" ; then
-	ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix"
-	CFLAGS="$CFLAGS -I$alsa_inc_prefix"
-fi
-AC_MSG_RESULT($ALSA_CFLAGS)
-
-dnl add any special lib dirs
-AC_MSG_CHECKING(for ALSA LDFLAGS)
-if test "$alsa_prefix" != "" ; then
-	ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix"
-	LIBS="$LIBS -L$alsa_prefix"
-fi
-
-dnl add the alsa library
-ALSA_LIBS="$ALSA_LIBS -lasound"
-LDFLAGS="$LDFLAGS $ALSA_LIBS"
-AC_MSG_RESULT($ALSA_LIBS)
-
-dnl Check for the presence of the library
-dnl if test $enable_alsatest = yes; then
-dnl   AC_MSG_CHECKING(for working libasound)
-dnl   AC_TRY_RUN([
-dnl #include <sys/asoundlib.h>
-dnl void main(void)
-dnl {
-dnl   snd_cards();
-dnl   exit(0);
-dnl }
-dnl ],
-dnl    [AC_MSG_RESULT("present")],
-dnl    [AC_MSG_RESULT("not found. ")
-dnl    AC_MSG_WARN(Fatal error: Install alsa-lib package or use --with-alsa-prefix option...)],
-dnl    [AC_MSG_RESULT(unsopported)
-dnl     AC_MSG_WARN(Cross-compiling isn't supported...)]
-dnl  )
-dnl fi
-
-dnl Check for a working version of libasound that is of the right version.
-min_alsa_version=ifelse([$1], ,0.1.1,$1)
-AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version)
-no_alsa=""
-    alsa_min_major_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
-    alsa_min_minor_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
-    alsa_min_micro_version=`echo $min_alsa_version | \
-           sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
-
-AC_LANG_SAVE
-AC_LANG_C
-AC_TRY_COMPILE([
-#include <sys/asoundlib.h>
-], [
-void main(void)
-{
-/* ensure backward compatibility */
-#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR)
-#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR
-#endif
-#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR)
-#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR
-#endif
-#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR)
-#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR
-#endif
-
-#  if(SND_LIB_MAJOR > $alsa_min_major_version)
-  exit(0);
-#  else
-#    if(SND_LIB_MAJOR < $alsa_min_major_version)
-#       error not present
-#    endif
-
-#   if(SND_LIB_MINOR > $alsa_min_minor_version)
-  exit(0);
-#   else
-#     if(SND_LIB_MINOR < $alsa_min_minor_version)
-#          error not present
-#      endif
-
-#      if(SND_LIB_SUBMINOR < $alsa_min_micro_version)
-#        error not present
-#      endif
-#    endif
-#  endif
-exit(0);
-}
-],
-  [AC_MSG_RESULT(found.)],
-  [AC_MSG_RESULT(not present.)
-   AC_MSG_WARN(Sufficiently new version of libasound not found.)]
-)
-AC_LANG_RESTORE
-
-dnl Now that we know that we have the right version, let's see if we have the library and not just the headers.
-AC_CHECK_LIB([asound], [snd_cards],,
-	[AC_MSG_WARN(No linkable libasound was found.)]
-)
-
-dnl That should be it.  Now just export out symbols:
-AC_SUBST(ALSA_CFLAGS)
-AC_SUBST(ALSA_LIBS)
-])
-
diff --git a/score.c b/score.c
index 81c4fc3..f9fd3c4 100644
--- a/score.c
+++ b/score.c
@@ -1,2891 +1,2517 @@
-char tcl_score[] = ""
-"# do not edit.\n"
-"# file automatically generated by:\n"
-"#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n"
-"\n"
-"set score $note_score.score\n"
-"\n"
-"canvas ${score} -width ${score_width_in_inch}i -height ${score_height_in_inch}i \\\n"
-"	-bg                 $tkxox(col_def_bg) \\\n"
-"	-highlightthickness 0\n"
-"\n"
-"${score} config -xscrollincrement 1p -yscrollincrement 1p\n"
-"${score} xview scroll ${score_scroll_x_in_point} u\n"
-"${score} yview scroll ${score_scroll_y_in_point} u\n"
-"\n"
-"pack ${score} -side left\n"
-"\n"
-"# The xfig objects begin here\n"
-"${score} create line 0.720109i 0.040761i 11.321558i 0.040761i 11.321558i \\\n"
-"  0.326087i 0.720109i 0.326087i 0.720109i 0.040761i -fill $tkxox(score_passive_note)\n"
-"${score} create polygon 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n"
-"  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -outline {} -fill $tkxox(col_def_bg) \\\n"
-"  -width 0\n"
-"${score} create line 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \\\n"
-"  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -fill $tkxox(col_def_bg)\n"
-"${score} create polygon 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n"
-"  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \\\n"
-"  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n"
-"  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \\\n"
-"  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n"
-"  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \\\n"
-"  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n"
-"  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \\\n"
-"  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n"
-"  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \\\n"
-"  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n"
-"  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \\\n"
-"  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n"
-"  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \\\n"
-"  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n"
-"  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \\\n"
-"  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n"
-"  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \\\n"
-"  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n"
-"  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \\\n"
-"  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n"
-"  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -outline {} -fill \\\n"
-"  $tkxox(color_score_bg) -width 0\n"
-"${score} create line 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \\\n"
-"  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n"
-"  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \\\n"
-"  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n"
-"  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \\\n"
-"  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n"
-"  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \\\n"
-"  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create polygon 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n"
-"  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -outline {} -fill $tkxox(color_score_bg) \\\n"
-"  -width 0\n"
-"${score} create line 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \\\n"
-"  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -fill $tkxox(color_score_bg)\n"
-"${score} create line 7.042572i 0.423007i 7.042572i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n"
-"  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n"
-"  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n"
-"  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n"
-"  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n"
-"  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n"
-"  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n"
-"  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n"
-"  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n"
-"  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n"
-"  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n"
-"  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n"
-"  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n"
-"  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n"
-"  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n"
-"  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n"
-"  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n"
-"  0.640399i 7.000000i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \\\n"
-"  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \\\n"
-"  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \\\n"
-"  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \\\n"
-"  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \\\n"
-"  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \\\n"
-"  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \\\n"
-"  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \\\n"
-"  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \\\n"
-"  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \\\n"
-"  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \\\n"
-"  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \\\n"
-"  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \\\n"
-"  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \\\n"
-"  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \\\n"
-"  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \\\n"
-"  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \\\n"
-"  0.640399i 7.000000i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n"
-"  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n"
-"  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n"
-"  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n"
-"  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n"
-"  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n"
-"  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n"
-"  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n"
-"  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n"
-"  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n"
-"  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n"
-"  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n"
-"  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n"
-"  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n"
-"  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n"
-"  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n"
-"  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n"
-"  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n"
-"  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n"
-"  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n"
-"  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n"
-"  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n"
-"  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n"
-"  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n"
-"  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n"
-"  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n"
-"  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n"
-"  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n"
-"  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n"
-"  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n"
-"  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \\\n"
-"  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \\\n"
-"  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \\\n"
-"  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \\\n"
-"  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \\\n"
-"  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \\\n"
-"  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \\\n"
-"  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \\\n"
-"  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \\\n"
-"  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \\\n"
-"  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \\\n"
-"  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \\\n"
-"  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \\\n"
-"  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \\\n"
-"  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \\\n"
-"  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \\\n"
-"  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \\\n"
-"  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \\\n"
-"  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \\\n"
-"  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \\\n"
-"  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \\\n"
-"  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \\\n"
-"  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \\\n"
-"  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \\\n"
-"  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \\\n"
-"  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \\\n"
-"  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \\\n"
-"  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \\\n"
-"  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \\\n"
-"  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \\\n"
-"  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 6.322464i 0.423007i 6.322464i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n"
-"  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n"
-"  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n"
-"  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n"
-"  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n"
-"  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n"
-"  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n"
-"  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n"
-"  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n"
-"  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n"
-"  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n"
-"  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n"
-"  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n"
-"  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n"
-"  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n"
-"  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n"
-"  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n"
-"  0.640399i 6.280797i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \\\n"
-"  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \\\n"
-"  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \\\n"
-"  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \\\n"
-"  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \\\n"
-"  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \\\n"
-"  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \\\n"
-"  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \\\n"
-"  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \\\n"
-"  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \\\n"
-"  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \\\n"
-"  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \\\n"
-"  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \\\n"
-"  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \\\n"
-"  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \\\n"
-"  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \\\n"
-"  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \\\n"
-"  0.640399i 6.280797i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n"
-"  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n"
-"  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n"
-"  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n"
-"  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n"
-"  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n"
-"  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n"
-"  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n"
-"  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n"
-"  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n"
-"  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n"
-"  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n"
-"  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n"
-"  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n"
-"  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n"
-"  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n"
-"  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n"
-"  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n"
-"  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n"
-"  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n"
-"  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n"
-"  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n"
-"  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n"
-"  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n"
-"  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n"
-"  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n"
-"  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n"
-"  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n"
-"  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n"
-"  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n"
-"  6.326993i 0.435688i 6.327899i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-"  0\n"
-"${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \\\n"
-"  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \\\n"
-"  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \\\n"
-"  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \\\n"
-"  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \\\n"
-"  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \\\n"
-"  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \\\n"
-"  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \\\n"
-"  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \\\n"
-"  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \\\n"
-"  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \\\n"
-"  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \\\n"
-"  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \\\n"
-"  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \\\n"
-"  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \\\n"
-"  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \\\n"
-"  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \\\n"
-"  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \\\n"
-"  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \\\n"
-"  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \\\n"
-"  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \\\n"
-"  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \\\n"
-"  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \\\n"
-"  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \\\n"
-"  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \\\n"
-"  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \\\n"
-"  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \\\n"
-"  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \\\n"
-"  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \\\n"
-"  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \\\n"
-"  6.326993i 0.435688i 6.327899i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 6.322464i 0.086051i 6.322464i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n"
-"  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n"
-"  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n"
-"  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n"
-"  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n"
-"  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n"
-"  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n"
-"  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n"
-"  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n"
-"  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n"
-"  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n"
-"  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n"
-"  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n"
-"  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n"
-"  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n"
-"  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n"
-"  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n"
-"  0.301630i 6.280797i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \\\n"
-"  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \\\n"
-"  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \\\n"
-"  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \\\n"
-"  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \\\n"
-"  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \\\n"
-"  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \\\n"
-"  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \\\n"
-"  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \\\n"
-"  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \\\n"
-"  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \\\n"
-"  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \\\n"
-"  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \\\n"
-"  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \\\n"
-"  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \\\n"
-"  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \\\n"
-"  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \\\n"
-"  0.301630i 6.280797i 0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n"
-"  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n"
-"  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n"
-"  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n"
-"  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n"
-"  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n"
-"  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n"
-"  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n"
-"  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n"
-"  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n"
-"  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n"
-"  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n"
-"  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n"
-"  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n"
-"  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n"
-"  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n"
-"  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n"
-"  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n"
-"  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n"
-"  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n"
-"  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n"
-"  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n"
-"  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n"
-"  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n"
-"  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n"
-"  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n"
-"  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n"
-"  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n"
-"  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n"
-"  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n"
-"  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n"
-"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \\\n"
-"  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \\\n"
-"  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \\\n"
-"  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \\\n"
-"  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \\\n"
-"  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \\\n"
-"  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \\\n"
-"  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \\\n"
-"  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \\\n"
-"  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \\\n"
-"  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \\\n"
-"  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \\\n"
-"  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \\\n"
-"  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \\\n"
-"  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \\\n"
-"  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \\\n"
-"  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \\\n"
-"  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \\\n"
-"  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \\\n"
-"  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \\\n"
-"  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \\\n"
-"  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \\\n"
-"  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \\\n"
-"  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \\\n"
-"  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \\\n"
-"  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \\\n"
-"  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \\\n"
-"  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \\\n"
-"  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \\\n"
-"  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \\\n"
-"  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \\\n"
-"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 6.325181i 0.721920i 6.325181i 0.927536i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n"
-"  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n"
-"  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n"
-"  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n"
-"  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n"
-"  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n"
-"  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n"
-"  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n"
-"  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n"
-"  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n"
-"  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n"
-"  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n"
-"  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n"
-"  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n"
-"  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n"
-"  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n"
-"  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n"
-"  0.968297i 6.282609i 0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \\\n"
-"  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \\\n"
-"  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \\\n"
-"  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \\\n"
-"  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \\\n"
-"  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \\\n"
-"  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \\\n"
-"  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \\\n"
-"  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \\\n"
-"  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \\\n"
-"  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \\\n"
-"  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \\\n"
-"  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \\\n"
-"  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \\\n"
-"  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \\\n"
-"  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \\\n"
-"  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \\\n"
-"  0.968297i 6.282609i 0.968297i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 6.325181i 1.060688i 6.325181i 1.264493i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n"
-"  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n"
-"  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n"
-"  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n"
-"  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n"
-"  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n"
-"  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n"
-"  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n"
-"  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n"
-"  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n"
-"  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n"
-"  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n"
-"  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n"
-"  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n"
-"  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n"
-"  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n"
-"  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n"
-"  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \\\n"
-"  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \\\n"
-"  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \\\n"
-"  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \\\n"
-"  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \\\n"
-"  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \\\n"
-"  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \\\n"
-"  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \\\n"
-"  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \\\n"
-"  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \\\n"
-"  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \\\n"
-"  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \\\n"
-"  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \\\n"
-"  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \\\n"
-"  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \\\n"
-"  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \\\n"
-"  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \\\n"
-"  1.307065i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 7.647645i 0.423007i 7.647645i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n"
-"  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n"
-"  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n"
-"  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n"
-"  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n"
-"  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n"
-"  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n"
-"  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n"
-"  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n"
-"  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n"
-"  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n"
-"  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n"
-"  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n"
-"  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n"
-"  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n"
-"  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n"
-"  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \\\n"
-"  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \\\n"
-"  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \\\n"
-"  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \\\n"
-"  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \\\n"
-"  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \\\n"
-"  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \\\n"
-"  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \\\n"
-"  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \\\n"
-"  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \\\n"
-"  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \\\n"
-"  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \\\n"
-"  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \\\n"
-"  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \\\n"
-"  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \\\n"
-"  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \\\n"
-"  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \\\n"
-"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n"
-"  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n"
-"  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n"
-"  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n"
-"  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n"
-"  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n"
-"  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n"
-"  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n"
-"  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n"
-"  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n"
-"  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n"
-"  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n"
-"  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n"
-"  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n"
-"  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n"
-"  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n"
-"  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n"
-"  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n"
-"  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n"
-"  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n"
-"  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n"
-"  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n"
-"  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n"
-"  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n"
-"  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n"
-"  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n"
-"  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n"
-"  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n"
-"  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n"
-"  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n"
-"  7.651268i 0.435688i 7.652174i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-"  0\n"
-"${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \\\n"
-"  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \\\n"
-"  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \\\n"
-"  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \\\n"
-"  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \\\n"
-"  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \\\n"
-"  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \\\n"
-"  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \\\n"
-"  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \\\n"
-"  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \\\n"
-"  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \\\n"
-"  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \\\n"
-"  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \\\n"
-"  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \\\n"
-"  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \\\n"
-"  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \\\n"
-"  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \\\n"
-"  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \\\n"
-"  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \\\n"
-"  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \\\n"
-"  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \\\n"
-"  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \\\n"
-"  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \\\n"
-"  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \\\n"
-"  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \\\n"
-"  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \\\n"
-"  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \\\n"
-"  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \\\n"
-"  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \\\n"
-"  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \\\n"
-"  7.651268i 0.435688i 7.652174i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 7.647645i 0.086051i 7.647645i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n"
-"  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n"
-"  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n"
-"  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n"
-"  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n"
-"  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n"
-"  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n"
-"  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n"
-"  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n"
-"  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n"
-"  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n"
-"  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n"
-"  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n"
-"  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n"
-"  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n"
-"  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n"
-"  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n"
-"  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \\\n"
-"  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \\\n"
-"  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \\\n"
-"  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \\\n"
-"  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \\\n"
-"  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \\\n"
-"  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \\\n"
-"  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \\\n"
-"  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \\\n"
-"  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \\\n"
-"  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \\\n"
-"  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \\\n"
-"  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \\\n"
-"  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \\\n"
-"  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \\\n"
-"  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \\\n"
-"  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \\\n"
-"  0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n"
-"  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n"
-"  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n"
-"  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n"
-"  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n"
-"  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n"
-"  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n"
-"  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n"
-"  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n"
-"  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n"
-"  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n"
-"  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n"
-"  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n"
-"  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n"
-"  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n"
-"  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n"
-"  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n"
-"  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n"
-"  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n"
-"  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n"
-"  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n"
-"  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n"
-"  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n"
-"  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n"
-"  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n"
-"  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n"
-"  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n"
-"  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n"
-"  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n"
-"  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n"
-"  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n"
-"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \\\n"
-"  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \\\n"
-"  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \\\n"
-"  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \\\n"
-"  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \\\n"
-"  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \\\n"
-"  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \\\n"
-"  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \\\n"
-"  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \\\n"
-"  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \\\n"
-"  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \\\n"
-"  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \\\n"
-"  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \\\n"
-"  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \\\n"
-"  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \\\n"
-"  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \\\n"
-"  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \\\n"
-"  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \\\n"
-"  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \\\n"
-"  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \\\n"
-"  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \\\n"
-"  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \\\n"
-"  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \\\n"
-"  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \\\n"
-"  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \\\n"
-"  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \\\n"
-"  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \\\n"
-"  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \\\n"
-"  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \\\n"
-"  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \\\n"
-"  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \\\n"
-"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 8.288949i 0.423007i 8.288949i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n"
-"  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n"
-"  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n"
-"  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n"
-"  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n"
-"  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n"
-"  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n"
-"  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n"
-"  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n"
-"  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n"
-"  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n"
-"  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n"
-"  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n"
-"  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n"
-"  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n"
-"  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n"
-"  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n"
-"  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n"
-"  -width 0\n"
-"${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \\\n"
-"  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \\\n"
-"  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \\\n"
-"  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \\\n"
-"  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \\\n"
-"  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \\\n"
-"  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \\\n"
-"  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \\\n"
-"  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \\\n"
-"  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \\\n"
-"  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \\\n"
-"  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \\\n"
-"  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \\\n"
-"  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \\\n"
-"  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \\\n"
-"  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \\\n"
-"  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \\\n"
-"  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline $tkxox(score_active_note) -fill \\\n"
-"  {}\n"
-"${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n"
-"  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n"
-"  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n"
-"  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n"
-"  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n"
-"  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n"
-"  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n"
-"  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n"
-"  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n"
-"  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n"
-"  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n"
-"  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n"
-"  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n"
-"  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n"
-"  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n"
-"  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n"
-"  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n"
-"  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n"
-"  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n"
-"  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n"
-"  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n"
-"  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n"
-"  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n"
-"  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n"
-"  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n"
-"  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n"
-"  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n"
-"  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n"
-"  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n"
-"  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n"
-"  -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \\\n"
-"  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \\\n"
-"  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \\\n"
-"  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \\\n"
-"  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \\\n"
-"  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \\\n"
-"  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \\\n"
-"  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \\\n"
-"  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \\\n"
-"  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \\\n"
-"  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \\\n"
-"  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \\\n"
-"  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \\\n"
-"  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \\\n"
-"  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \\\n"
-"  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \\\n"
-"  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \\\n"
-"  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \\\n"
-"  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \\\n"
-"  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \\\n"
-"  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \\\n"
-"  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \\\n"
-"  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \\\n"
-"  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \\\n"
-"  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \\\n"
-"  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \\\n"
-"  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \\\n"
-"  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \\\n"
-"  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \\\n"
-"  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \\\n"
-"  -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 9.048007i 0.423007i 9.048007i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n"
-"  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n"
-"  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n"
-"  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n"
-"  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n"
-"  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n"
-"  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n"
-"  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n"
-"  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n"
-"  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n"
-"  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n"
-"  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n"
-"  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n"
-"  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n"
-"  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n"
-"  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n"
-"  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \\\n"
-"  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \\\n"
-"  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \\\n"
-"  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \\\n"
-"  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \\\n"
-"  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \\\n"
-"  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \\\n"
-"  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \\\n"
-"  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \\\n"
-"  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \\\n"
-"  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \\\n"
-"  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \\\n"
-"  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \\\n"
-"  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \\\n"
-"  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \\\n"
-"  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \\\n"
-"  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \\\n"
-"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n"
-"  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n"
-"  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n"
-"  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n"
-"  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n"
-"  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n"
-"  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n"
-"  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n"
-"  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n"
-"  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n"
-"  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n"
-"  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n"
-"  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n"
-"  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n"
-"  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n"
-"  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n"
-"  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n"
-"  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n"
-"  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n"
-"  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n"
-"  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n"
-"  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n"
-"  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n"
-"  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n"
-"  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n"
-"  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n"
-"  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n"
-"  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n"
-"  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n"
-"  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n"
-"  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n"
-"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \\\n"
-"  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \\\n"
-"  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \\\n"
-"  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \\\n"
-"  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \\\n"
-"  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \\\n"
-"  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \\\n"
-"  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \\\n"
-"  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \\\n"
-"  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \\\n"
-"  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \\\n"
-"  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \\\n"
-"  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \\\n"
-"  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \\\n"
-"  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \\\n"
-"  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \\\n"
-"  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \\\n"
-"  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \\\n"
-"  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \\\n"
-"  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \\\n"
-"  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \\\n"
-"  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \\\n"
-"  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \\\n"
-"  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \\\n"
-"  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \\\n"
-"  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \\\n"
-"  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \\\n"
-"  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \\\n"
-"  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \\\n"
-"  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \\\n"
-"  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \\\n"
-"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 9.050725i 1.060688i 9.050725i 1.264493i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n"
-"  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n"
-"  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n"
-"  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n"
-"  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n"
-"  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n"
-"  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n"
-"  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n"
-"  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n"
-"  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n"
-"  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n"
-"  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n"
-"  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n"
-"  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n"
-"  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n"
-"  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n"
-"  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \\\n"
-"  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \\\n"
-"  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \\\n"
-"  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \\\n"
-"  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \\\n"
-"  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \\\n"
-"  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \\\n"
-"  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \\\n"
-"  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \\\n"
-"  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \\\n"
-"  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \\\n"
-"  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \\\n"
-"  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \\\n"
-"  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \\\n"
-"  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \\\n"
-"  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \\\n"
-"  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 9.654891i 0.423007i 9.654891i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n"
-"  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n"
-"  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n"
-"  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n"
-"  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n"
-"  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n"
-"  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n"
-"  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n"
-"  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n"
-"  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n"
-"  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n"
-"  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n"
-"  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n"
-"  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n"
-"  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n"
-"  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n"
-"  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n"
-"  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline {} -fill $tkxox(score_active_note) \\\n"
-"  -width 0\n"
-"${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \\\n"
-"  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \\\n"
-"  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \\\n"
-"  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \\\n"
-"  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \\\n"
-"  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \\\n"
-"  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \\\n"
-"  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \\\n"
-"  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \\\n"
-"  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \\\n"
-"  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \\\n"
-"  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \\\n"
-"  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \\\n"
-"  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \\\n"
-"  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \\\n"
-"  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \\\n"
-"  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \\\n"
-"  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline $tkxox(score_active_note) -fill \\\n"
-"  {}\n"
-"${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n"
-"  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n"
-"  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n"
-"  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n"
-"  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n"
-"  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n"
-"  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n"
-"  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n"
-"  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n"
-"  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n"
-"  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n"
-"  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n"
-"  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n"
-"  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n"
-"  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n"
-"  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n"
-"  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n"
-"  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n"
-"  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n"
-"  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n"
-"  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n"
-"  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n"
-"  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n"
-"  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n"
-"  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n"
-"  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n"
-"  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n"
-"  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n"
-"  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n"
-"  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n"
-"  -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \\\n"
-"  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \\\n"
-"  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \\\n"
-"  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \\\n"
-"  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \\\n"
-"  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \\\n"
-"  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \\\n"
-"  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \\\n"
-"  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \\\n"
-"  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \\\n"
-"  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \\\n"
-"  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \\\n"
-"  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \\\n"
-"  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \\\n"
-"  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \\\n"
-"  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \\\n"
-"  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \\\n"
-"  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \\\n"
-"  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \\\n"
-"  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \\\n"
-"  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \\\n"
-"  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \\\n"
-"  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \\\n"
-"  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \\\n"
-"  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \\\n"
-"  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \\\n"
-"  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \\\n"
-"  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \\\n"
-"  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \\\n"
-"  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \\\n"
-"  -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 5.034420i 0.086051i 5.034420i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n"
-"  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n"
-"  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n"
-"  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n"
-"  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n"
-"  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n"
-"  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n"
-"  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n"
-"  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n"
-"  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n"
-"  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n"
-"  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n"
-"  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n"
-"  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n"
-"  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n"
-"  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n"
-"  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n"
-"  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \\\n"
-"  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \\\n"
-"  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \\\n"
-"  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \\\n"
-"  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \\\n"
-"  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \\\n"
-"  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \\\n"
-"  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \\\n"
-"  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \\\n"
-"  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \\\n"
-"  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \\\n"
-"  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \\\n"
-"  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \\\n"
-"  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \\\n"
-"  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \\\n"
-"  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \\\n"
-"  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \\\n"
-"  0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n"
-"  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n"
-"  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n"
-"  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n"
-"  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n"
-"  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n"
-"  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n"
-"  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n"
-"  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n"
-"  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n"
-"  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n"
-"  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n"
-"  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n"
-"  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n"
-"  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n"
-"  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n"
-"  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n"
-"  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n"
-"  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n"
-"  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n"
-"  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n"
-"  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n"
-"  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n"
-"  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n"
-"  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n"
-"  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n"
-"  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n"
-"  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n"
-"  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n"
-"  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n"
-"  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n"
-"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \\\n"
-"  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \\\n"
-"  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \\\n"
-"  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \\\n"
-"  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \\\n"
-"  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \\\n"
-"  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \\\n"
-"  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \\\n"
-"  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \\\n"
-"  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \\\n"
-"  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \\\n"
-"  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \\\n"
-"  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \\\n"
-"  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \\\n"
-"  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \\\n"
-"  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \\\n"
-"  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \\\n"
-"  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \\\n"
-"  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \\\n"
-"  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \\\n"
-"  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \\\n"
-"  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \\\n"
-"  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \\\n"
-"  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \\\n"
-"  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \\\n"
-"  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \\\n"
-"  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \\\n"
-"  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \\\n"
-"  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \\\n"
-"  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \\\n"
-"  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \\\n"
-"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 5.034420i 0.423007i 5.034420i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n"
-"  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n"
-"  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n"
-"  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n"
-"  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n"
-"  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n"
-"  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n"
-"  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n"
-"  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n"
-"  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n"
-"  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n"
-"  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n"
-"  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n"
-"  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n"
-"  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n"
-"  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n"
-"  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \\\n"
-"  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \\\n"
-"  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \\\n"
-"  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \\\n"
-"  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \\\n"
-"  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \\\n"
-"  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \\\n"
-"  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \\\n"
-"  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \\\n"
-"  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \\\n"
-"  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \\\n"
-"  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \\\n"
-"  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \\\n"
-"  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \\\n"
-"  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \\\n"
-"  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \\\n"
-"  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \\\n"
-"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n"
-"  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n"
-"  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n"
-"  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n"
-"  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n"
-"  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n"
-"  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n"
-"  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n"
-"  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n"
-"  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n"
-"  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n"
-"  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n"
-"  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n"
-"  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n"
-"  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n"
-"  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n"
-"  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n"
-"  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n"
-"  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n"
-"  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n"
-"  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n"
-"  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n"
-"  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n"
-"  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n"
-"  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n"
-"  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n"
-"  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n"
-"  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n"
-"  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n"
-"  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n"
-"  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \\\n"
-"  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \\\n"
-"  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \\\n"
-"  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \\\n"
-"  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \\\n"
-"  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \\\n"
-"  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \\\n"
-"  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \\\n"
-"  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \\\n"
-"  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \\\n"
-"  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \\\n"
-"  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \\\n"
-"  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \\\n"
-"  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \\\n"
-"  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \\\n"
-"  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \\\n"
-"  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \\\n"
-"  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \\\n"
-"  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \\\n"
-"  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \\\n"
-"  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \\\n"
-"  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \\\n"
-"  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \\\n"
-"  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \\\n"
-"  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \\\n"
-"  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \\\n"
-"  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \\\n"
-"  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \\\n"
-"  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \\\n"
-"  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \\\n"
-"  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 5.678442i 0.423007i 5.678442i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n"
-"  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n"
-"  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n"
-"  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n"
-"  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n"
-"  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n"
-"  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n"
-"  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n"
-"  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n"
-"  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n"
-"  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n"
-"  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n"
-"  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n"
-"  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n"
-"  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n"
-"  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n"
-"  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \\\n"
-"  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \\\n"
-"  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \\\n"
-"  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \\\n"
-"  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \\\n"
-"  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \\\n"
-"  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \\\n"
-"  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \\\n"
-"  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \\\n"
-"  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \\\n"
-"  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \\\n"
-"  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \\\n"
-"  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \\\n"
-"  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \\\n"
-"  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \\\n"
-"  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \\\n"
-"  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \\\n"
-"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n"
-"  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n"
-"  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n"
-"  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n"
-"  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n"
-"  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n"
-"  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n"
-"  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n"
-"  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n"
-"  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n"
-"  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n"
-"  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n"
-"  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n"
-"  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n"
-"  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n"
-"  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n"
-"  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n"
-"  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n"
-"  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n"
-"  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n"
-"  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n"
-"  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n"
-"  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n"
-"  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n"
-"  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n"
-"  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n"
-"  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n"
-"  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n"
-"  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n"
-"  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n"
-"  5.682971i 0.435688i 5.683877i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-"  0\n"
-"${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \\\n"
-"  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \\\n"
-"  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \\\n"
-"  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \\\n"
-"  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \\\n"
-"  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \\\n"
-"  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \\\n"
-"  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \\\n"
-"  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \\\n"
-"  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \\\n"
-"  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \\\n"
-"  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \\\n"
-"  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \\\n"
-"  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \\\n"
-"  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \\\n"
-"  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \\\n"
-"  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \\\n"
-"  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \\\n"
-"  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \\\n"
-"  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \\\n"
-"  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \\\n"
-"  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \\\n"
-"  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \\\n"
-"  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \\\n"
-"  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \\\n"
-"  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \\\n"
-"  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \\\n"
-"  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \\\n"
-"  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \\\n"
-"  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \\\n"
-"  5.682971i 0.435688i 5.683877i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 4.315217i 0.423007i 4.315217i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n"
-"  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n"
-"  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n"
-"  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n"
-"  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n"
-"  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n"
-"  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n"
-"  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n"
-"  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n"
-"  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n"
-"  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n"
-"  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n"
-"  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n"
-"  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n"
-"  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n"
-"  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n"
-"  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n"
-"  0.640399i 4.272645i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \\\n"
-"  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \\\n"
-"  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \\\n"
-"  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \\\n"
-"  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \\\n"
-"  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \\\n"
-"  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \\\n"
-"  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \\\n"
-"  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \\\n"
-"  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \\\n"
-"  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \\\n"
-"  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \\\n"
-"  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \\\n"
-"  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \\\n"
-"  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \\\n"
-"  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \\\n"
-"  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \\\n"
-"  0.640399i 4.272645i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n"
-"  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n"
-"  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n"
-"  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n"
-"  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n"
-"  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n"
-"  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n"
-"  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n"
-"  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n"
-"  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n"
-"  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n"
-"  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n"
-"  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n"
-"  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n"
-"  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n"
-"  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n"
-"  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n"
-"  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n"
-"  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n"
-"  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n"
-"  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n"
-"  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n"
-"  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n"
-"  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n"
-"  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n"
-"  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n"
-"  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n"
-"  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n"
-"  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n"
-"  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n"
-"  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n"
-"  0.435688i 4.320652i 0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \\\n"
-"  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \\\n"
-"  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \\\n"
-"  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \\\n"
-"  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \\\n"
-"  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \\\n"
-"  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \\\n"
-"  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \\\n"
-"  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \\\n"
-"  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \\\n"
-"  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \\\n"
-"  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \\\n"
-"  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \\\n"
-"  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \\\n"
-"  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \\\n"
-"  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \\\n"
-"  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \\\n"
-"  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \\\n"
-"  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \\\n"
-"  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \\\n"
-"  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \\\n"
-"  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \\\n"
-"  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \\\n"
-"  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \\\n"
-"  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \\\n"
-"  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \\\n"
-"  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \\\n"
-"  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \\\n"
-"  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \\\n"
-"  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \\\n"
-"  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \\\n"
-"  0.435688i 4.320652i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 3.671196i 0.086051i 3.671196i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n"
-"  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n"
-"  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n"
-"  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n"
-"  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n"
-"  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n"
-"  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n"
-"  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n"
-"  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n"
-"  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n"
-"  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n"
-"  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n"
-"  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n"
-"  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n"
-"  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n"
-"  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n"
-"  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n"
-"  0.301630i 3.628623i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \\\n"
-"  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \\\n"
-"  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \\\n"
-"  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \\\n"
-"  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \\\n"
-"  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \\\n"
-"  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \\\n"
-"  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \\\n"
-"  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \\\n"
-"  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \\\n"
-"  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \\\n"
-"  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \\\n"
-"  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \\\n"
-"  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \\\n"
-"  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \\\n"
-"  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \\\n"
-"  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \\\n"
-"  0.301630i 3.628623i 0.301630i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n"
-"  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n"
-"  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n"
-"  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n"
-"  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n"
-"  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n"
-"  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n"
-"  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n"
-"  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n"
-"  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n"
-"  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n"
-"  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n"
-"  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n"
-"  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n"
-"  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n"
-"  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n"
-"  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n"
-"  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n"
-"  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n"
-"  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n"
-"  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n"
-"  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n"
-"  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n"
-"  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n"
-"  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n"
-"  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n"
-"  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n"
-"  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n"
-"  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n"
-"  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n"
-"  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n"
-"  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline {} -fill $tkxox(score_active_note) \\\n"
-"  -width 0\n"
-"${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \\\n"
-"  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \\\n"
-"  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \\\n"
-"  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \\\n"
-"  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \\\n"
-"  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \\\n"
-"  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \\\n"
-"  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \\\n"
-"  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \\\n"
-"  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \\\n"
-"  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \\\n"
-"  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \\\n"
-"  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \\\n"
-"  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \\\n"
-"  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \\\n"
-"  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \\\n"
-"  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \\\n"
-"  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \\\n"
-"  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \\\n"
-"  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \\\n"
-"  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \\\n"
-"  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \\\n"
-"  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \\\n"
-"  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \\\n"
-"  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \\\n"
-"  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \\\n"
-"  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \\\n"
-"  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \\\n"
-"  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \\\n"
-"  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \\\n"
-"  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \\\n"
-"  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline $tkxox(score_active_note) -fill \\\n"
-"  {}\n"
-"${score} create line 3.671196i 0.423007i 3.671196i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n"
-"  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n"
-"  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n"
-"  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n"
-"  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n"
-"  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n"
-"  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n"
-"  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n"
-"  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n"
-"  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n"
-"  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n"
-"  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n"
-"  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n"
-"  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n"
-"  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n"
-"  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n"
-"  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n"
-"  0.640399i 3.628623i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \\\n"
-"  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \\\n"
-"  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \\\n"
-"  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \\\n"
-"  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \\\n"
-"  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \\\n"
-"  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \\\n"
-"  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \\\n"
-"  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \\\n"
-"  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \\\n"
-"  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \\\n"
-"  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \\\n"
-"  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \\\n"
-"  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \\\n"
-"  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \\\n"
-"  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \\\n"
-"  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \\\n"
-"  0.640399i 3.628623i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n"
-"  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n"
-"  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n"
-"  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n"
-"  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n"
-"  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n"
-"  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n"
-"  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n"
-"  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n"
-"  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n"
-"  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n"
-"  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n"
-"  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n"
-"  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n"
-"  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n"
-"  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n"
-"  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n"
-"  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n"
-"  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n"
-"  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n"
-"  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n"
-"  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n"
-"  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n"
-"  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n"
-"  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n"
-"  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n"
-"  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n"
-"  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n"
-"  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n"
-"  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n"
-"  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \\\n"
-"  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \\\n"
-"  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \\\n"
-"  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \\\n"
-"  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \\\n"
-"  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \\\n"
-"  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \\\n"
-"  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \\\n"
-"  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \\\n"
-"  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \\\n"
-"  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \\\n"
-"  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \\\n"
-"  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \\\n"
-"  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \\\n"
-"  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \\\n"
-"  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \\\n"
-"  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \\\n"
-"  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \\\n"
-"  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \\\n"
-"  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \\\n"
-"  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \\\n"
-"  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \\\n"
-"  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \\\n"
-"  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \\\n"
-"  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \\\n"
-"  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \\\n"
-"  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \\\n"
-"  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \\\n"
-"  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \\\n"
-"  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \\\n"
-"  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 3.712862i 1.060688i 3.712862i 1.264493i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n"
-"  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n"
-"  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n"
-"  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n"
-"  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n"
-"  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n"
-"  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n"
-"  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n"
-"  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n"
-"  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n"
-"  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n"
-"  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n"
-"  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n"
-"  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n"
-"  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n"
-"  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n"
-"  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \\\n"
-"  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \\\n"
-"  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \\\n"
-"  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \\\n"
-"  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \\\n"
-"  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \\\n"
-"  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \\\n"
-"  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \\\n"
-"  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \\\n"
-"  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \\\n"
-"  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \\\n"
-"  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \\\n"
-"  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \\\n"
-"  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \\\n"
-"  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \\\n"
-"  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \\\n"
-"  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 3.066123i 0.423007i 3.066123i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n"
-"  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n"
-"  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n"
-"  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n"
-"  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n"
-"  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n"
-"  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n"
-"  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n"
-"  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n"
-"  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n"
-"  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n"
-"  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n"
-"  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n"
-"  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n"
-"  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n"
-"  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n"
-"  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \\\n"
-"  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \\\n"
-"  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \\\n"
-"  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \\\n"
-"  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \\\n"
-"  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \\\n"
-"  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \\\n"
-"  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \\\n"
-"  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \\\n"
-"  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \\\n"
-"  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \\\n"
-"  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \\\n"
-"  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \\\n"
-"  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \\\n"
-"  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \\\n"
-"  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \\\n"
-"  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \\\n"
-"  0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n"
-"  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n"
-"  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n"
-"  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n"
-"  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n"
-"  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n"
-"  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n"
-"  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n"
-"  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n"
-"  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n"
-"  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n"
-"  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n"
-"  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n"
-"  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n"
-"  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n"
-"  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n"
-"  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n"
-"  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n"
-"  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n"
-"  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n"
-"  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n"
-"  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n"
-"  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n"
-"  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n"
-"  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n"
-"  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n"
-"  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n"
-"  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n"
-"  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n"
-"  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n"
-"  3.070652i 0.435688i 3.071558i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-"  0\n"
-"${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \\\n"
-"  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \\\n"
-"  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \\\n"
-"  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \\\n"
-"  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \\\n"
-"  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \\\n"
-"  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \\\n"
-"  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \\\n"
-"  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \\\n"
-"  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \\\n"
-"  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \\\n"
-"  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \\\n"
-"  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \\\n"
-"  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \\\n"
-"  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \\\n"
-"  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \\\n"
-"  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \\\n"
-"  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \\\n"
-"  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \\\n"
-"  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \\\n"
-"  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \\\n"
-"  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \\\n"
-"  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \\\n"
-"  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \\\n"
-"  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \\\n"
-"  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \\\n"
-"  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \\\n"
-"  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \\\n"
-"  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \\\n"
-"  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \\\n"
-"  3.070652i 0.435688i 3.071558i 0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 2.309783i 0.423007i 2.309783i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n"
-"  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n"
-"  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n"
-"  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n"
-"  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n"
-"  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n"
-"  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n"
-"  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n"
-"  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n"
-"  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n"
-"  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n"
-"  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n"
-"  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n"
-"  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n"
-"  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n"
-"  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n"
-"  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \\\n"
-"  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \\\n"
-"  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \\\n"
-"  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \\\n"
-"  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \\\n"
-"  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \\\n"
-"  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \\\n"
-"  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \\\n"
-"  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \\\n"
-"  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \\\n"
-"  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \\\n"
-"  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \\\n"
-"  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \\\n"
-"  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \\\n"
-"  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \\\n"
-"  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \\\n"
-"  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n"
-"  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n"
-"  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n"
-"  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n"
-"  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n"
-"  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n"
-"  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n"
-"  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n"
-"  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n"
-"  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n"
-"  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n"
-"  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n"
-"  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n"
-"  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n"
-"  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n"
-"  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n"
-"  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n"
-"  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n"
-"  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n"
-"  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n"
-"  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n"
-"  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n"
-"  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n"
-"  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n"
-"  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n"
-"  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n"
-"  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n"
-"  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n"
-"  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n"
-"  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n"
-"  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \\\n"
-"  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \\\n"
-"  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \\\n"
-"  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \\\n"
-"  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \\\n"
-"  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \\\n"
-"  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \\\n"
-"  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \\\n"
-"  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \\\n"
-"  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \\\n"
-"  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \\\n"
-"  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \\\n"
-"  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \\\n"
-"  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \\\n"
-"  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \\\n"
-"  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \\\n"
-"  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \\\n"
-"  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \\\n"
-"  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \\\n"
-"  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \\\n"
-"  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \\\n"
-"  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \\\n"
-"  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \\\n"
-"  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \\\n"
-"  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \\\n"
-"  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \\\n"
-"  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \\\n"
-"  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \\\n"
-"  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \\\n"
-"  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \\\n"
-"  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create line 2.309783i 0.086051i 2.309783i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n"
-"  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n"
-"  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n"
-"  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n"
-"  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n"
-"  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n"
-"  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n"
-"  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n"
-"  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n"
-"  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n"
-"  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n"
-"  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n"
-"  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n"
-"  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n"
-"  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n"
-"  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n"
-"  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \\\n"
-"  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \\\n"
-"  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \\\n"
-"  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \\\n"
-"  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \\\n"
-"  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \\\n"
-"  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \\\n"
-"  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \\\n"
-"  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \\\n"
-"  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \\\n"
-"  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \\\n"
-"  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \\\n"
-"  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \\\n"
-"  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \\\n"
-"  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \\\n"
-"  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \\\n"
-"  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n"
-"  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n"
-"  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n"
-"  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n"
-"  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n"
-"  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n"
-"  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n"
-"  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n"
-"  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n"
-"  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n"
-"  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n"
-"  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n"
-"  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n"
-"  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n"
-"  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n"
-"  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n"
-"  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n"
-"  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n"
-"  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n"
-"  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n"
-"  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n"
-"  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n"
-"  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n"
-"  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n"
-"  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n"
-"  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n"
-"  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n"
-"  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n"
-"  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n"
-"  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n"
-"  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n"
-"  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \\\n"
-"  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \\\n"
-"  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \\\n"
-"  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \\\n"
-"  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \\\n"
-"  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \\\n"
-"  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \\\n"
-"  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \\\n"
-"  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \\\n"
-"  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \\\n"
-"  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \\\n"
-"  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \\\n"
-"  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \\\n"
-"  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \\\n"
-"  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \\\n"
-"  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \\\n"
-"  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \\\n"
-"  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \\\n"
-"  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \\\n"
-"  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \\\n"
-"  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \\\n"
-"  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \\\n"
-"  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \\\n"
-"  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \\\n"
-"  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \\\n"
-"  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \\\n"
-"  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \\\n"
-"  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \\\n"
-"  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \\\n"
-"  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \\\n"
-"  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \\\n"
-"  0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 1.702899i 0.423007i 1.702899i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n"
-"  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n"
-"  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n"
-"  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n"
-"  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n"
-"  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n"
-"  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n"
-"  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n"
-"  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n"
-"  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n"
-"  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n"
-"  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n"
-"  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n"
-"  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n"
-"  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n"
-"  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n"
-"  1.660326i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \\\n"
-"  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \\\n"
-"  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \\\n"
-"  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \\\n"
-"  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \\\n"
-"  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \\\n"
-"  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \\\n"
-"  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \\\n"
-"  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \\\n"
-"  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \\\n"
-"  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \\\n"
-"  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \\\n"
-"  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \\\n"
-"  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \\\n"
-"  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \\\n"
-"  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \\\n"
-"  1.660326i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n"
-"  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n"
-"  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n"
-"  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n"
-"  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n"
-"  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n"
-"  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n"
-"  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n"
-"  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n"
-"  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n"
-"  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n"
-"  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n"
-"  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n"
-"  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n"
-"  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n"
-"  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n"
-"  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n"
-"  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n"
-"  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n"
-"  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n"
-"  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n"
-"  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n"
-"  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n"
-"  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n"
-"  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n"
-"  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n"
-"  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n"
-"  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n"
-"  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n"
-"  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n"
-"  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n"
-"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \\\n"
-"  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \\\n"
-"  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \\\n"
-"  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \\\n"
-"  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \\\n"
-"  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \\\n"
-"  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \\\n"
-"  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \\\n"
-"  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \\\n"
-"  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \\\n"
-"  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \\\n"
-"  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \\\n"
-"  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \\\n"
-"  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \\\n"
-"  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \\\n"
-"  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \\\n"
-"  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \\\n"
-"  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \\\n"
-"  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \\\n"
-"  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \\\n"
-"  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \\\n"
-"  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \\\n"
-"  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \\\n"
-"  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \\\n"
-"  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \\\n"
-"  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \\\n"
-"  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \\\n"
-"  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \\\n"
-"  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \\\n"
-"  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \\\n"
-"  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \\\n"
-"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 1.098732i 0.086051i 1.098732i 0.266304i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n"
-"  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n"
-"  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n"
-"  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n"
-"  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n"
-"  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n"
-"  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n"
-"  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n"
-"  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n"
-"  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n"
-"  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n"
-"  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n"
-"  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n"
-"  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n"
-"  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n"
-"  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n"
-"  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \\\n"
-"  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \\\n"
-"  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \\\n"
-"  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \\\n"
-"  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \\\n"
-"  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \\\n"
-"  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \\\n"
-"  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \\\n"
-"  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \\\n"
-"  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \\\n"
-"  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \\\n"
-"  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \\\n"
-"  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \\\n"
-"  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \\\n"
-"  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \\\n"
-"  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \\\n"
-"  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n"
-"  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n"
-"  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n"
-"  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n"
-"  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n"
-"  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n"
-"  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n"
-"  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n"
-"  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n"
-"  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n"
-"  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n"
-"  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n"
-"  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n"
-"  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n"
-"  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n"
-"  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n"
-"  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n"
-"  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n"
-"  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n"
-"  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n"
-"  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n"
-"  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n"
-"  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n"
-"  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n"
-"  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n"
-"  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n"
-"  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n"
-"  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n"
-"  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n"
-"  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n"
-"  1.103261i 0.097826i 1.104167i 0.104167i -outline {} -fill $tkxox(score_active_note) -width \\\n"
-"  0\n"
-"${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \\\n"
-"  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \\\n"
-"  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \\\n"
-"  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \\\n"
-"  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \\\n"
-"  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \\\n"
-"  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \\\n"
-"  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \\\n"
-"  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \\\n"
-"  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \\\n"
-"  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \\\n"
-"  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \\\n"
-"  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \\\n"
-"  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \\\n"
-"  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \\\n"
-"  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \\\n"
-"  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \\\n"
-"  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \\\n"
-"  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \\\n"
-"  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \\\n"
-"  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \\\n"
-"  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \\\n"
-"  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \\\n"
-"  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \\\n"
-"  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \\\n"
-"  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \\\n"
-"  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \\\n"
-"  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \\\n"
-"  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \\\n"
-"  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \\\n"
-"  1.103261i 0.097826i 1.104167i 0.104167i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 1.098732i 0.423007i 1.098732i 0.602355i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n"
-"  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n"
-"  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n"
-"  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n"
-"  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n"
-"  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n"
-"  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n"
-"  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n"
-"  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n"
-"  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n"
-"  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n"
-"  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n"
-"  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n"
-"  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n"
-"  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n"
-"  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n"
-"  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline {} \\\n"
-"  -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \\\n"
-"  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \\\n"
-"  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \\\n"
-"  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \\\n"
-"  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \\\n"
-"  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \\\n"
-"  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \\\n"
-"  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \\\n"
-"  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \\\n"
-"  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \\\n"
-"  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \\\n"
-"  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \\\n"
-"  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \\\n"
-"  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \\\n"
-"  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \\\n"
-"  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \\\n"
-"  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline $tkxox(score_active_note) \\\n"
-"  -fill {}\n"
-"${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n"
-"  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n"
-"  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n"
-"  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n"
-"  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n"
-"  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n"
-"  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n"
-"  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n"
-"  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n"
-"  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n"
-"  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n"
-"  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n"
-"  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n"
-"  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n"
-"  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n"
-"  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n"
-"  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n"
-"  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n"
-"  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n"
-"  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n"
-"  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n"
-"  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n"
-"  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n"
-"  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n"
-"  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n"
-"  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n"
-"  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n"
-"  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n"
-"  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n"
-"  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline {} -fill $tkxox(score_active_note) \\\n"
-"  -width 0\n"
-"${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \\\n"
-"  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \\\n"
-"  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \\\n"
-"  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \\\n"
-"  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \\\n"
-"  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \\\n"
-"  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \\\n"
-"  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \\\n"
-"  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \\\n"
-"  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \\\n"
-"  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \\\n"
-"  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \\\n"
-"  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \\\n"
-"  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \\\n"
-"  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \\\n"
-"  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \\\n"
-"  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \\\n"
-"  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \\\n"
-"  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \\\n"
-"  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \\\n"
-"  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \\\n"
-"  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \\\n"
-"  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \\\n"
-"  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \\\n"
-"  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \\\n"
-"  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \\\n"
-"  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \\\n"
-"  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \\\n"
-"  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \\\n"
-"  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline $tkxox(score_active_note) -fill \\\n"
-"  {}\n"
-"${score} create line 1.101449i 0.721920i 1.101449i 0.927536i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n"
-"  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n"
-"  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n"
-"  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n"
-"  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n"
-"  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n"
-"  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n"
-"  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n"
-"  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n"
-"  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n"
-"  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n"
-"  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n"
-"  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n"
-"  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n"
-"  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n"
-"  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n"
-"  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n"
-"  0.968297i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \\\n"
-"  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \\\n"
-"  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \\\n"
-"  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \\\n"
-"  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \\\n"
-"  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \\\n"
-"  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \\\n"
-"  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \\\n"
-"  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \\\n"
-"  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \\\n"
-"  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \\\n"
-"  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \\\n"
-"  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \\\n"
-"  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \\\n"
-"  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \\\n"
-"  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \\\n"
-"  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \\\n"
-"  0.968297i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 1.101449i 1.060688i 1.101449i 1.264493i -fill $tkxox(score_active_note)\n"
-"${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n"
-"  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n"
-"  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n"
-"  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n"
-"  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n"
-"  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n"
-"  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n"
-"  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n"
-"  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n"
-"  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n"
-"  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n"
-"  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n"
-"  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n"
-"  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n"
-"  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n"
-"  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n"
-"  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n"
-"  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \\\n"
-"  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \\\n"
-"  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \\\n"
-"  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \\\n"
-"  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \\\n"
-"  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \\\n"
-"  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \\\n"
-"  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \\\n"
-"  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \\\n"
-"  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \\\n"
-"  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \\\n"
-"  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \\\n"
-"  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \\\n"
-"  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \\\n"
-"  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \\\n"
-"  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \\\n"
-"  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \\\n"
-"  1.307065i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 11.018116i 0.423007i 11.018116i 0.602355i -fill \\\n"
-"  $tkxox(score_passive_note)\n"
-"${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n"
-"  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n"
-"  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n"
-"  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n"
-"  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n"
-"  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n"
-"  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n"
-"  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n"
-"  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n"
-"  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n"
-"  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n"
-"  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n"
-"  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n"
-"  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n"
-"  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n"
-"  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n"
-"  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n"
-"  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n"
-"  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n"
-"  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n"
-"  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n"
-"  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n"
-"  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n"
-"  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n"
-"  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n"
-"  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n"
-"  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n"
-"  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n"
-"  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n"
-"  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n"
-"  11.022645i 0.435688i 11.023551i 0.442029i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-"  0\n"
-"${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \\\n"
-"  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \\\n"
-"  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \\\n"
-"  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \\\n"
-"  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \\\n"
-"  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \\\n"
-"  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \\\n"
-"  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \\\n"
-"  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \\\n"
-"  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \\\n"
-"  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \\\n"
-"  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \\\n"
-"  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \\\n"
-"  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \\\n"
-"  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \\\n"
-"  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \\\n"
-"  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \\\n"
-"  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \\\n"
-"  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \\\n"
-"  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \\\n"
-"  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \\\n"
-"  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \\\n"
-"  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \\\n"
-"  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \\\n"
-"  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \\\n"
-"  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \\\n"
-"  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \\\n"
-"  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \\\n"
-"  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \\\n"
-"  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \\\n"
-"  11.022645i 0.435688i 11.023551i 0.442029i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n"
-"  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n"
-"  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n"
-"  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n"
-"  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n"
-"  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n"
-"  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n"
-"  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n"
-"  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n"
-"  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n"
-"  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n"
-"  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n"
-"  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n"
-"  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n"
-"  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n"
-"  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n"
-"  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n"
-"  0.640399i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-"${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \\\n"
-"  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \\\n"
-"  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \\\n"
-"  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \\\n"
-"  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \\\n"
-"  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \\\n"
-"  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \\\n"
-"  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \\\n"
-"  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \\\n"
-"  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \\\n"
-"  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \\\n"
-"  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \\\n"
-"  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \\\n"
-"  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \\\n"
-"  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \\\n"
-"  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \\\n"
-"  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \\\n"
-"  0.640399i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create line 10.333333i 0.423007i 10.333333i 0.602355i -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n"
-"  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n"
-"  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n"
-"  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n"
-"  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n"
-"  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n"
-"  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n"
-"  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n"
-"  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n"
-"  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n"
-"  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n"
-"  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n"
-"  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n"
-"  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n"
-"  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n"
-"  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n"
-"  10.288949i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \\\n"
-"  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \\\n"
-"  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \\\n"
-"  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \\\n"
-"  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \\\n"
-"  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \\\n"
-"  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \\\n"
-"  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \\\n"
-"  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \\\n"
-"  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \\\n"
-"  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \\\n"
-"  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \\\n"
-"  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \\\n"
-"  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \\\n"
-"  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \\\n"
-"  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \\\n"
-"  10.288949i 0.640399i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n"
-"  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n"
-"  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n"
-"  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n"
-"  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n"
-"  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n"
-"  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n"
-"  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n"
-"  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n"
-"  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n"
-"  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n"
-"  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n"
-"  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n"
-"  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n"
-"  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n"
-"  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n"
-"  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n"
-"  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n"
-"  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n"
-"  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n"
-"  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n"
-"  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n"
-"  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n"
-"  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n"
-"  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n"
-"  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n"
-"  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n"
-"  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n"
-"  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n"
-"  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n"
-"  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n"
-"  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0\n"
-"${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \\\n"
-"  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \\\n"
-"  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \\\n"
-"  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \\\n"
-"  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \\\n"
-"  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \\\n"
-"  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \\\n"
-"  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \\\n"
-"  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \\\n"
-"  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \\\n"
-"  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \\\n"
-"  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \\\n"
-"  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \\\n"
-"  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \\\n"
-"  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \\\n"
-"  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \\\n"
-"  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \\\n"
-"  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \\\n"
-"  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \\\n"
-"  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \\\n"
-"  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \\\n"
-"  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \\\n"
-"  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \\\n"
-"  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \\\n"
-"  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \\\n"
-"  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \\\n"
-"  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \\\n"
-"  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \\\n"
-"  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \\\n"
-"  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \\\n"
-"  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \\\n"
-"  0.442029i -outline $tkxox(score_active_note) -fill {}\n"
-"${score} create line 10.336051i 0.086051i 10.336051i 0.266304i -fill \\\n"
-"  $tkxox(score_passive_note)\n"
-"${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n"
-"  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n"
-"  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n"
-"  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n"
-"  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n"
-"  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n"
-"  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n"
-"  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n"
-"  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n"
-"  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n"
-"  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n"
-"  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n"
-"  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n"
-"  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n"
-"  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n"
-"  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n"
-"  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n"
-"  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n"
-"  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n"
-"  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n"
-"  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n"
-"  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n"
-"  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n"
-"  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n"
-"  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n"
-"  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n"
-"  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n"
-"  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n"
-"  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n"
-"  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n"
-"  10.340580i 0.097826i 10.341486i 0.104167i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-"  0\n"
-"${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \\\n"
-"  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \\\n"
-"  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \\\n"
-"  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \\\n"
-"  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \\\n"
-"  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \\\n"
-"  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \\\n"
-"  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \\\n"
-"  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \\\n"
-"  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \\\n"
-"  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \\\n"
-"  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \\\n"
-"  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \\\n"
-"  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \\\n"
-"  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \\\n"
-"  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \\\n"
-"  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \\\n"
-"  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \\\n"
-"  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \\\n"
-"  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \\\n"
-"  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \\\n"
-"  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \\\n"
-"  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \\\n"
-"  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \\\n"
-"  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \\\n"
-"  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \\\n"
-"  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \\\n"
-"  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \\\n"
-"  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \\\n"
-"  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \\\n"
-"  10.340580i 0.097826i 10.341486i 0.104167i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n"
-"  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n"
-"  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n"
-"  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n"
-"  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n"
-"  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n"
-"  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n"
-"  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n"
-"  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n"
-"  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n"
-"  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n"
-"  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n"
-"  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n"
-"  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n"
-"  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n"
-"  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n"
-"  10.284420i 0.301630i 10.291667i 0.301630i -outline {} -fill $tkxox(score_passive_note) -width \\\n"
-"  0\n"
-"${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \\\n"
-"  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \\\n"
-"  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \\\n"
-"  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \\\n"
-"  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \\\n"
-"  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \\\n"
-"  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \\\n"
-"  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \\\n"
-"  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \\\n"
-"  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \\\n"
-"  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \\\n"
-"  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \\\n"
-"  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \\\n"
-"  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \\\n"
-"  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \\\n"
-"  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \\\n"
-"  10.284420i 0.301630i 10.291667i 0.301630i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create line 9.048007i 0.086051i 9.048007i 0.266304i -fill $tkxox(score_passive_note)\n"
-"${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n"
-"  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n"
-"  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n"
-"  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n"
-"  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n"
-"  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n"
-"  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n"
-"  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n"
-"  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n"
-"  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n"
-"  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n"
-"  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n"
-"  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n"
-"  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n"
-"  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n"
-"  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n"
-"  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n"
-"  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n"
-"  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n"
-"  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n"
-"  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n"
-"  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n"
-"  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n"
-"  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n"
-"  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n"
-"  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n"
-"  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n"
-"  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n"
-"  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n"
-"  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n"
-"  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n"
-"  0.104167i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-"${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \\\n"
-"  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \\\n"
-"  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \\\n"
-"  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \\\n"
-"  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \\\n"
-"  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \\\n"
-"  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \\\n"
-"  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \\\n"
-"  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \\\n"
-"  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \\\n"
-"  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \\\n"
-"  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \\\n"
-"  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \\\n"
-"  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \\\n"
-"  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \\\n"
-"  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \\\n"
-"  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \\\n"
-"  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \\\n"
-"  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \\\n"
-"  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \\\n"
-"  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \\\n"
-"  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \\\n"
-"  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \\\n"
-"  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \\\n"
-"  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \\\n"
-"  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \\\n"
-"  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \\\n"
-"  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \\\n"
-"  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \\\n"
-"  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \\\n"
-"  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \\\n"
-"  0.104167i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n"
-"  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n"
-"  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n"
-"  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n"
-"  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n"
-"  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n"
-"  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n"
-"  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n"
-"  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n"
-"  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n"
-"  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n"
-"  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n"
-"  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n"
-"  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n"
-"  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n"
-"  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n"
-"  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n"
-"  0.301630i -outline {} -fill $tkxox(score_passive_note) -width 0\n"
-"${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \\\n"
-"  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \\\n"
-"  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \\\n"
-"  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \\\n"
-"  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \\\n"
-"  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \\\n"
-"  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \\\n"
-"  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \\\n"
-"  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \\\n"
-"  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \\\n"
-"  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \\\n"
-"  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \\\n"
-"  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \\\n"
-"  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \\\n"
-"  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \\\n"
-"  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \\\n"
-"  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \\\n"
-"  0.301630i -outline $tkxox(score_passive_note) -fill {}\n"
-"${score} create line 2.314312i 0.403080i 1.096014i 0.403080i -fill $tkxox(score_active_note)\n"
-"${score} create line 2.317029i 0.063406i 1.099638i 0.063406i -fill $tkxox(score_active_note)\n"
-"${score} create line 3.681159i 0.063406i 2.312500i 0.063406i -fill $tkxox(score_active_note)\n"
-"${score} create line 4.343297i 0.403080i 3.070652i 0.403080i -fill $tkxox(score_active_note)\n"
-"${score} create line 6.311594i 0.403080i 5.038043i 0.403080i -fill $tkxox(score_active_note)\n"
-"${score} create line 7.660326i 0.065217i 5.040761i 0.065217i -fill $tkxox(score_active_note)\n"
-"${score} create line 8.295290i 0.406703i 7.022645i 0.406703i -fill $tkxox(score_active_note)\n"
-"${score} create line 10.346920i 0.404891i 9.047101i 0.404891i -fill $tkxox(score_active_note)\n"
-"${score} create line 11.795290i 0.407609i 11.023551i 0.403080i -fill \\\n"
-"  $tkxox(score_passive_note)\n"
-"${score} create line 11.788949i 0.061594i 9.048007i 0.061594i -fill $tkxox(score_passive_note)\n"
-"${score} create line 1.097826i 0.063406i 1.096920i 0.063406i 1.094203i \\\n"
-"  0.063406i 1.088768i 0.063406i 1.081522i 0.063406i 1.073370i 0.064312i \\\n"
-"  1.063406i 0.066123i 1.053442i 0.067935i 1.049819i 0.068841i 1.048913i \\\n"
-"  0.069746i 1.045290i 0.070652i 1.034420i 0.075181i 1.024457i 0.079710i \\\n"
-"  1.019022i 0.080616i 1.018116i 0.080616i 1.016304i 0.080616i 1.009964i \\\n"
-"  0.084239i 0.995471i 0.093297i 0.981884i 0.103261i 0.970109i 0.112319i \\\n"
-"  0.959239i 0.121377i 0.949275i 0.130435i 0.940217i 0.138587i 0.933877i \\\n"
-"  0.144022i 0.931159i 0.146739i 0.930254i 0.147645i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 1.098732i 0.400362i 1.097826i 0.400362i 1.095109i \\\n"
-"  0.400362i 1.089674i 0.400362i 1.082428i 0.400362i 1.074275i 0.401268i \\\n"
-"  1.064312i 0.403080i 1.054348i 0.404891i 1.050725i 0.405797i 1.049819i \\\n"
-"  0.406703i 1.046196i 0.407609i 1.035326i 0.412138i 1.025362i 0.416667i \\\n"
-"  1.019928i 0.418478i 1.019022i 0.418478i 1.017210i 0.418478i 1.010870i \\\n"
-"  0.422101i 0.996377i 0.432065i 0.982790i 0.442029i 0.971014i 0.451993i \\\n"
-"  0.960145i 0.461051i 0.950181i 0.469203i 0.941123i 0.477355i 0.934783i \\\n"
-"  0.482790i 0.932065i 0.485507i 0.931159i 0.486413i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 2.311594i 0.400362i 2.312500i 0.400362i 2.315217i \\\n"
-"  0.400362i 2.319746i 0.400362i 2.326993i 0.400362i 2.334239i 0.401268i \\\n"
-"  2.344203i 0.403080i 2.354167i 0.404891i 2.357790i 0.405797i 2.358696i \\\n"
-"  0.406703i 2.362319i 0.407609i 2.373188i 0.412138i 2.383152i 0.416667i \\\n"
-"  2.387681i 0.418478i 2.389493i 0.418478i 2.390399i 0.418478i 2.396739i \\\n"
-"  0.422101i 2.411232i 0.432065i 2.423913i 0.442029i 2.436594i 0.451993i \\\n"
-"  2.447464i 0.461051i 2.457428i 0.469203i 2.466486i 0.477355i 2.472826i \\\n"
-"  0.482790i 2.475543i 0.485507i 2.476449i 0.486413i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 3.670290i 0.065217i 3.671196i 0.065217i 3.673913i \\\n"
-"  0.065217i 3.679348i 0.065217i 3.686594i 0.066123i 3.695652i 0.067029i \\\n"
-"  3.705616i 0.068841i 3.715580i 0.071558i 3.719203i 0.072464i 3.720109i \\\n"
-"  0.072464i 3.723732i 0.074275i 3.734601i 0.077899i 3.744565i 0.081522i \\\n"
-"  3.749094i 0.083333i 3.750906i 0.082428i 3.751812i 0.082428i 3.758152i \\\n"
-"  0.086051i 3.772645i 0.095109i 3.785326i 0.104167i 3.798007i 0.114130i \\\n"
-"  3.808877i 0.123188i 3.818841i 0.132246i 3.827899i 0.139493i 3.834239i \\\n"
-"  0.144928i 3.836957i 0.147645i 3.837862i 0.148551i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 4.337862i 0.403080i 4.338768i 0.403080i 4.342391i \\\n"
-"  0.403080i 4.349638i 0.403986i 4.357790i 0.404891i 4.369565i 0.406703i \\\n"
-"  4.378623i 0.408514i 4.383152i 0.409420i 4.384964i 0.409420i 4.386775i \\\n"
-"  0.409420i 4.391304i 0.411232i 4.401268i 0.414855i 4.411232i 0.419384i \\\n"
-"  4.416667i 0.421196i 4.417572i 0.421196i 4.418478i 0.422101i 4.424819i \\\n"
-"  0.425725i 4.439312i 0.435688i 4.451993i 0.445652i 4.464674i 0.455616i \\\n"
-"  4.475543i 0.464674i 4.485507i 0.473732i 4.494565i 0.480978i 4.500906i \\\n"
-"  0.486413i 4.503623i 0.489130i 4.504529i 0.490036i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 3.073370i 0.400362i 3.072464i 0.400362i 3.069746i \\\n"
-"  0.400362i 3.065217i 0.400362i 3.057971i 0.400362i 3.050725i 0.401268i \\\n"
-"  3.040761i 0.403080i 3.030797i 0.404891i 3.027174i 0.405797i 3.026268i \\\n"
-"  0.406703i 3.022645i 0.407609i 3.011775i 0.412138i 3.001812i 0.416667i \\\n"
-"  2.997283i 0.418478i 2.995471i 0.418478i 2.994565i 0.418478i 2.988225i \\\n"
-"  0.422101i 2.973732i 0.432065i 2.960145i 0.442029i 2.948370i 0.451993i \\\n"
-"  2.936594i 0.461051i 2.926630i 0.469203i 2.916667i 0.477355i 2.910326i \\\n"
-"  0.482790i 2.907609i 0.485507i 2.906703i 0.486413i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 5.038043i 0.399457i 5.037138i 0.399457i 5.034420i \\\n"
-"  0.399457i 5.029891i 0.400362i 5.022645i 0.400362i 5.015399i 0.401268i \\\n"
-"  5.005435i 0.403080i 4.995471i 0.404891i 4.991848i 0.405797i 4.990942i \\\n"
-"  0.405797i 4.987319i 0.406703i 4.976449i 0.411232i 4.966486i 0.415761i \\\n"
-"  4.961957i 0.417572i 4.960145i 0.417572i 4.959239i 0.418478i 4.952899i \\\n"
-"  0.422101i 4.938406i 0.432065i 4.925725i 0.442029i 4.913043i 0.451087i \\\n"
-"  4.902174i 0.460145i 4.892210i 0.469203i 4.883152i 0.476449i 4.876812i \\\n"
-"  0.481884i 4.874094i 0.484601i 4.873188i 0.485507i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 5.039855i 0.064312i 5.038949i 0.064312i 5.036232i \\\n"
-"  0.064312i 5.031703i 0.064312i 5.024457i 0.064312i 5.017210i 0.065217i \\\n"
-"  5.007246i 0.067029i 4.997283i 0.068841i 4.993659i 0.069746i 4.992754i \\\n"
-"  0.070652i 4.989130i 0.071558i 4.978261i 0.076087i 4.968297i 0.080616i \\\n"
-"  4.963768i 0.081522i 4.961957i 0.081522i 4.961051i 0.081522i 4.954710i \\\n"
-"  0.085145i 4.940217i 0.094203i 4.927536i 0.103261i 4.914855i 0.113225i \\\n"
-"  4.903986i 0.122283i 4.894022i 0.131341i 4.884964i 0.138587i 4.878623i \\\n"
-"  0.144022i 4.875906i 0.146739i 4.875000i 0.147645i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 6.313406i 0.403080i 6.314312i 0.403080i 6.317029i \\\n"
-"  0.403080i 6.322464i 0.403080i 6.328804i 0.403986i 6.336957i 0.403986i \\\n"
-"  6.346920i 0.405797i 6.356884i 0.407609i 6.360507i 0.408514i 6.364130i \\\n"
-"  0.409420i 6.375000i 0.413949i 6.384964i 0.418478i 6.390399i 0.420290i \\\n"
-"  6.391304i 0.420290i 6.393116i 0.421196i 6.399457i 0.424819i 6.413949i \\\n"
-"  0.434783i 6.427536i 0.444746i 6.439312i 0.454710i 6.450181i 0.463768i \\\n"
-"  6.460145i 0.472826i 6.469203i 0.480072i 6.475543i 0.485507i 6.478261i \\\n"
-"  0.488225i 6.479167i 0.489130i -joinstyle bevel -fill $tkxox(score_active_note)\n"
-"${score} create line 7.658514i 0.067029i 7.659420i 0.067029i 7.663043i \\\n"
-"  0.067029i 7.670290i 0.067029i 7.678442i 0.067935i 7.690217i 0.069746i \\\n"
-"  7.699275i 0.071558i 7.703804i 0.073370i 7.705616i 0.073370i 7.707428i \\\n"
-"  0.074275i 7.711957i 0.076087i 7.721920i 0.079710i 7.731884i 0.084239i \\\n"
-"  7.737319i 0.085145i 7.738225i 0.085145i 7.739130i 0.085145i 7.745471i \\\n"
-"  0.088768i 7.759964i 0.097826i 7.772645i 0.106884i 7.785326i 0.116848i \\\n"
-"  7.796196i 0.125906i 7.806159i 0.134964i 7.815217i 0.142210i 7.821558i \\\n"
-"  0.147645i 7.824275i 0.150362i 7.825181i 0.151268i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 7.049819i 0.403080i 7.048913i 0.403080i 7.046196i \\\n"
-"  0.403080i 7.041667i 0.403080i 7.034420i 0.403986i 7.027174i 0.403986i \\\n"
-"  7.017210i 0.405797i 7.007246i 0.407609i 7.003623i 0.408514i 7.002717i \\\n"
-"  0.408514i 6.999094i 0.409420i 6.988225i 0.413949i 6.978261i 0.418478i \\\n"
-"  6.972826i 0.420290i 6.971014i 0.420290i 6.969203i 0.421196i 6.962862i \\\n"
-"  0.424819i 6.948370i 0.434783i 6.934783i 0.444746i 6.923007i 0.454710i \\\n"
-"  6.912138i 0.463768i 6.902174i 0.472826i 6.893116i 0.480072i 6.886775i \\\n"
-"  0.485507i 6.884058i 0.488225i 6.883152i 0.489130i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 8.290761i 0.405797i 8.291667i 0.405797i 8.295290i \\\n"
-"  0.405797i 8.302536i 0.405797i 8.310688i 0.406703i 8.322464i 0.408514i \\\n"
-"  8.332428i 0.410326i 8.336051i 0.411232i 8.336957i 0.412138i 8.341486i \\\n"
-"  0.413043i 8.352355i 0.417572i 8.362319i 0.422101i 8.366848i 0.423913i \\\n"
-"  8.368659i 0.423913i 8.369565i 0.423913i 8.375906i 0.427536i 8.390399i \\\n"
-"  0.437500i 8.403986i 0.447464i 8.415761i 0.457428i 8.427536i 0.466486i \\\n"
-"  8.438406i 0.474638i 8.447464i 0.482790i 8.453804i 0.488225i 8.456522i \\\n"
-"  0.490942i 8.457428i 0.491848i -joinstyle bevel -fill $tkxox(score_active_note)\n"
-"${score} create line 10.342391i 0.403080i 10.343297i 0.403080i 10.346014i \\\n"
-"  0.403080i 10.351449i 0.403986i 10.357790i 0.403986i 10.365942i 0.404891i \\\n"
-"  10.375906i 0.406703i 10.385870i 0.408514i 10.389493i 0.409420i 10.390399i \\\n"
-"  0.409420i 10.394022i 0.410326i 10.404891i 0.414855i 10.414855i 0.419384i \\\n"
-"  10.419384i 0.421196i 10.421196i 0.421196i 10.422101i 0.422101i 10.428442i \\\n"
-"  0.425725i 10.442935i 0.435688i 10.455616i 0.445652i 10.468297i 0.455616i \\\n"
-"  10.479167i 0.464674i 10.489130i 0.473732i 10.498188i 0.480978i 10.504529i \\\n"
-"  0.486413i 10.507246i 0.489130i 10.508152i 0.490036i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"${score} create line 11.024457i 0.402174i 11.023551i 0.402174i 11.020833i \\\n"
-"  0.402174i 11.015399i 0.402174i 11.008152i 0.403080i 10.999094i 0.403080i \\\n"
-"  10.989130i 0.404891i 10.979167i 0.406703i 10.975543i 0.407609i 10.974638i \\\n"
-"  0.407609i 10.971014i 0.408514i 10.960145i 0.413043i 10.950181i 0.417572i \\\n"
-"  10.944746i 0.419384i 10.943841i 0.419384i 10.942029i 0.420290i 10.935688i \\\n"
-"  0.423913i 10.921196i 0.433877i 10.908514i 0.443841i 10.895833i 0.452899i \\\n"
-"  10.884964i 0.461957i 10.875000i 0.471014i 10.866848i 0.478261i 10.860507i \\\n"
-"  0.483696i 10.857790i 0.486413i 10.856884i 0.487319i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_passive_note)\n"
-"${score} create line 9.053442i 0.065217i 9.052536i 0.065217i 9.049819i \\\n"
-"  0.065217i 9.045290i 0.065217i 9.038949i 0.066123i 9.030797i 0.067029i \\\n"
-"  9.020833i 0.068841i 9.010870i 0.071558i 9.007246i 0.072464i 9.005435i \\\n"
-"  0.072464i 9.001812i 0.074275i 8.990942i 0.077899i 8.980978i 0.081522i \\\n"
-"  8.975543i 0.083333i 8.974638i 0.082428i 8.973732i 0.082428i 8.967391i \\\n"
-"  0.086051i 8.952899i 0.095109i 8.940217i 0.104167i 8.927536i 0.114130i \\\n"
-"  8.916667i 0.123188i 8.906703i 0.132246i 8.897645i 0.139493i 8.891304i \\\n"
-"  0.144928i 8.888587i 0.147645i 8.887681i 0.148551i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_passive_note)\n"
-"${score} create line 9.051630i 0.403080i 9.050725i 0.403080i 9.048007i \\\n"
-"  0.403080i 9.043478i 0.403080i 9.037138i 0.403986i 9.028986i 0.403986i \\\n"
-"  9.019022i 0.405797i 9.009058i 0.407609i 9.005435i 0.408514i 9.003623i \\\n"
-"  0.408514i 9.000000i 0.409420i 8.989130i 0.413949i 8.979167i 0.418478i \\\n"
-"  8.973732i 0.420290i 8.972826i 0.420290i 8.971920i 0.421196i 8.965580i \\\n"
-"  0.424819i 8.951087i 0.434783i 8.938406i 0.444746i 8.925725i 0.454710i \\\n"
-"  8.914855i 0.463768i 8.904891i 0.472826i 8.895833i 0.480072i 8.889493i \\\n"
-"  0.485507i 8.886775i 0.488225i 8.885870i 0.489130i -joinstyle bevel -fill \\\n"
-"  $tkxox(score_active_note)\n"
-"";
+char tcl_score[] = "\
+# do not edit.\n\
+# file automatically generated by:\n\
+#		./score_fig2tcl.sh ./score.fig\n\
+\n\
+set score $note_score.score\n\
+\n\
+canvas ${score} -width ${score_width_in_inch}i -height ${score_height_in_inch}i \\\n\
+	-bg                 $tkxox(col_def_bg) \\\n\
+	-highlightthickness 0\n\
+\n\
+${score} config -xscrollincrement 1p -yscrollincrement 1p\n\
+${score} xview scroll ${score_scroll_x_in_point} u\n\
+${score} yview scroll ${score_scroll_y_in_point} u\n\
+\n\
+pack ${score} -side left\n\
+\n\
+# The xfig objects begin here\n\
+${score} create line 0.719882i 0.040748i 11.317992i 0.040748i 11.317992i 0.325984i \\\n\
+  0.719882i 0.325984i 0.719882i 0.040748i -fill $tkxox(score_passive_note)\n\
+${score} create polygon 0.000000i 0.000000i 11.857677i 0.000000i 11.857677i 1.385433i \\\n\
+  0.000000i 1.385433i -outline {} -fill $tkxox(col_def_bg) -width 0\n\
+${score} create line 0.000000i 0.000000i 11.857677i 0.000000i 11.857677i 1.385433i \\\n\
+  0.000000i 1.385433i 0.000000i 0.000000i -fill $tkxox(col_def_bg)\n\
+${score} create polygon 4.731299i 0.035315i 8.668465i 0.035315i 8.668465i 0.325079i \\\n\
+  4.731299i 0.325079i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 4.731299i 0.035315i 8.668465i 0.035315i 8.668465i 0.325079i \\\n\
+  4.731299i 0.325079i 4.731299i 0.035315i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 8.706496i 0.035315i 11.781614i 0.035315i 11.781614i 0.329606i \\\n\
+  8.706496i 0.329606i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 8.706496i 0.035315i 11.781614i 0.035315i 11.781614i 0.329606i \\\n\
+  8.706496i 0.329606i 8.706496i 0.035315i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 0.054331i 0.707205i 5.980000i 0.707205i 5.980000i 1.018701i \\\n\
+  0.054331i 1.018701i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 0.054331i 0.707205i 5.980000i 0.707205i 5.980000i 1.018701i \\\n\
+  0.054331i 1.018701i 0.054331i 0.707205i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 0.054331i 1.047677i 3.232677i 1.047677i 3.232677i 1.344685i \\\n\
+  0.054331i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 0.054331i 1.047677i 3.232677i 1.047677i 3.232677i 1.344685i \\\n\
+  0.054331i 1.344685i 0.054331i 1.047677i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 3.273425i 1.047677i 5.980000i 1.047677i 5.980000i 1.344685i \\\n\
+  3.273425i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 3.273425i 1.047677i 5.980000i 1.047677i 5.980000i 1.344685i \\\n\
+  3.273425i 1.344685i 3.273425i 1.047677i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 2.721063i 0.363110i 4.694173i 0.363110i 4.694173i 0.678228i \\\n\
+  2.721063i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 2.721063i 0.363110i 4.694173i 0.363110i 4.694173i 0.678228i \\\n\
+  2.721063i 0.678228i 2.721063i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 6.014409i 0.707205i 11.789764i 0.707205i 11.789764i 1.018701i \\\n\
+  6.014409i 1.018701i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 6.014409i 0.707205i 11.789764i 0.707205i 11.789764i 1.018701i \\\n\
+  6.014409i 1.018701i 6.014409i 0.707205i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 6.012598i 1.047677i 8.668465i 1.047677i 8.668465i 1.344685i \\\n\
+  6.012598i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 6.012598i 1.047677i 8.668465i 1.047677i 8.668465i 1.344685i \\\n\
+  6.012598i 1.344685i 6.012598i 1.047677i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 8.708307i 0.363110i 10.636142i 0.363110i 10.636142i 0.678228i \\\n\
+  8.708307i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 8.708307i 0.363110i 10.636142i 0.363110i 10.636142i 0.678228i \\\n\
+  8.708307i 0.678228i 8.708307i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 8.710118i 1.047677i 11.789764i 1.047677i 11.789764i 1.344685i \\\n\
+  8.710118i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 8.710118i 1.047677i 11.789764i 1.047677i 11.789764i 1.344685i \\\n\
+  8.710118i 1.344685i 8.710118i 1.047677i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 10.672362i 0.363110i 11.788858i 0.363110i 11.788858i 0.678228i \\\n\
+  10.672362i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 10.672362i 0.363110i 11.788858i 0.363110i 11.788858i 0.678228i \\\n\
+  10.672362i 0.678228i 10.672362i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 0.054331i 0.040748i 4.694173i 0.040748i 4.694173i 0.325984i \\\n\
+  0.054331i 0.325984i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 0.054331i 0.040748i 4.694173i 0.040748i 4.694173i 0.325984i \\\n\
+  0.054331i 0.325984i 0.054331i 0.040748i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 4.735827i 0.363110i 6.660945i 0.363110i 6.660945i 0.678228i \\\n\
+  4.735827i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 4.735827i 0.363110i 6.660945i 0.363110i 6.660945i 0.678228i \\\n\
+  4.735827i 0.678228i 4.735827i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 6.696260i 0.363110i 8.668465i 0.363110i 8.668465i 0.678228i \\\n\
+  6.696260i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 6.696260i 0.363110i 8.668465i 0.363110i 8.668465i 0.678228i \\\n\
+  6.696260i 0.678228i 6.696260i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create polygon 0.054331i 0.363110i 2.687559i 0.363110i 2.687559i 0.678228i \\\n\
+  0.054331i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0\n\
+${score} create line 0.054331i 0.363110i 2.687559i 0.363110i 2.687559i 0.678228i \\\n\
+  0.054331i 0.678228i 0.054331i 0.363110i -fill $tkxox(color_score_bg)\n\
+${score} create line 7.040354i 0.422874i 7.040354i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 6.997795i 0.640197i 7.005039i 0.639291i 7.007756i 0.638386i \\\n\
+  7.009567i 0.638386i 7.012283i 0.637480i 7.019528i 0.634764i 7.026772i 0.632047i \\\n\
+  7.029488i 0.630236i 7.031299i 0.629331i 7.034016i 0.628425i 7.039449i 0.623898i \\\n\
+  7.043976i 0.619370i 7.045787i 0.617559i 7.046693i 0.616654i 7.048504i 0.613937i \\\n\
+  7.049409i 0.609409i 7.049409i 0.606693i 7.049409i 0.603976i 7.048504i 0.603071i \\\n\
+  7.048504i 0.602165i 7.047598i 0.601260i 7.046693i 0.600354i 7.044882i 0.598543i \\\n\
+  7.042165i 0.596732i 7.036732i 0.594016i 7.033110i 0.594016i 7.031299i 0.593110i \\\n\
+  7.027677i 0.593110i 7.020433i 0.593110i 7.013189i 0.594016i 7.009567i 0.594016i \\\n\
+  7.007756i 0.594016i 7.005039i 0.594921i 6.997795i 0.597638i 6.991457i 0.600354i \\\n\
+  6.988740i 0.602165i 6.987835i 0.603071i 6.986024i 0.604882i 6.981496i 0.608504i \\\n\
+  6.977874i 0.611220i 6.976969i 0.612126i 6.976063i 0.613937i 6.974252i 0.616654i \\\n\
+  6.972441i 0.620276i 6.971535i 0.622087i 6.970630i 0.622992i 6.970630i 0.624803i \\\n\
+  6.970630i 0.628425i 6.971535i 0.631142i 6.971535i 0.632047i 6.971535i 0.632953i \\\n\
+  6.971535i 0.633858i 6.972441i 0.634764i 6.974252i 0.635669i 6.976969i 0.637480i \\\n\
+  6.982402i 0.639291i 6.985118i 0.640197i 6.986929i 0.640197i 6.990551i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.997795i 0.640197i 7.005039i 0.639291i 7.007756i 0.638386i \\\n\
+  7.009567i 0.638386i 7.012283i 0.637480i 7.019528i 0.634764i 7.026772i 0.632047i \\\n\
+  7.029488i 0.630236i 7.031299i 0.629331i 7.034016i 0.628425i 7.039449i 0.623898i \\\n\
+  7.043976i 0.619370i 7.045787i 0.617559i 7.046693i 0.616654i 7.048504i 0.613937i \\\n\
+  7.049409i 0.609409i 7.049409i 0.606693i 7.049409i 0.603976i 7.048504i 0.603071i \\\n\
+  7.048504i 0.602165i 7.047598i 0.601260i 7.046693i 0.600354i 7.044882i 0.598543i \\\n\
+  7.042165i 0.596732i 7.036732i 0.594016i 7.033110i 0.594016i 7.031299i 0.593110i \\\n\
+  7.027677i 0.593110i 7.020433i 0.593110i 7.013189i 0.594016i 7.009567i 0.594016i \\\n\
+  7.007756i 0.594016i 7.005039i 0.594921i 6.997795i 0.597638i 6.991457i 0.600354i \\\n\
+  6.988740i 0.602165i 6.987835i 0.603071i 6.986024i 0.604882i 6.981496i 0.608504i \\\n\
+  6.977874i 0.611220i 6.976969i 0.612126i 6.976063i 0.613937i 6.974252i 0.616654i \\\n\
+  6.972441i 0.620276i 6.971535i 0.622087i 6.970630i 0.622992i 6.970630i 0.624803i \\\n\
+  6.970630i 0.628425i 6.971535i 0.631142i 6.971535i 0.632047i 6.971535i 0.632953i \\\n\
+  6.971535i 0.633858i 6.972441i 0.634764i 6.974252i 0.635669i 6.976969i 0.637480i \\\n\
+  6.982402i 0.639291i 6.985118i 0.640197i 6.986929i 0.640197i 6.990551i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 7.044882i 0.441890i 7.045787i 0.447323i 7.046693i 0.449134i \\\n\
+  7.046693i 0.450039i 7.047598i 0.451850i 7.049409i 0.456378i 7.051220i 0.460000i \\\n\
+  7.052126i 0.460906i 7.056654i 0.464528i 7.062992i 0.469961i 7.066614i 0.472677i \\\n\
+  7.068425i 0.474488i 7.072953i 0.477205i 7.081102i 0.484449i 7.089252i 0.490787i \\\n\
+  7.092874i 0.493504i 7.094685i 0.494409i 7.097402i 0.498031i 7.103740i 0.504370i \\\n\
+  7.108268i 0.511614i 7.110079i 0.514331i 7.110079i 0.515236i 7.110984i 0.517953i \\\n\
+  7.112795i 0.525197i 7.113701i 0.532441i 7.113701i 0.535157i 7.112795i 0.538780i \\\n\
+  7.110984i 0.547835i 7.108268i 0.557795i 7.105551i 0.564134i 7.103740i 0.568661i \\\n\
+  7.101929i 0.572283i 7.099213i 0.577717i 7.096496i 0.584961i 7.096496i 0.585866i \\\n\
+  7.095591i 0.586772i 7.095591i 0.587677i 7.094685i 0.587677i 7.094685i 0.588583i \\\n\
+  7.094685i 0.589488i 7.093780i 0.589488i 7.093780i 0.590394i 7.092874i 0.590394i \\\n\
+  7.092874i 0.589488i 7.093780i 0.589488i 7.093780i 0.588583i 7.093780i 0.587677i \\\n\
+  7.093780i 0.586772i 7.094685i 0.585866i 7.094685i 0.584961i 7.096496i 0.578622i \\\n\
+  7.099213i 0.574094i 7.101024i 0.570472i 7.101929i 0.566850i 7.104646i 0.561417i \\\n\
+  7.107362i 0.553268i 7.109173i 0.545118i 7.110984i 0.542402i 7.110984i 0.539685i \\\n\
+  7.110079i 0.532441i 7.107362i 0.524291i 7.106457i 0.520669i 7.105551i 0.519764i \\\n\
+  7.103740i 0.516142i 7.097402i 0.507992i 7.091063i 0.501654i 7.087441i 0.498031i \\\n\
+  7.085630i 0.496220i 7.083819i 0.495315i 7.080197i 0.492598i 7.072047i 0.487165i \\\n\
+  7.062992i 0.481732i 7.058465i 0.479921i 7.054843i 0.479016i 7.051220i 0.477205i \\\n\
+  7.044882i 0.474488i 7.043976i 0.474488i 7.043071i 0.473583i 7.042165i 0.473583i \\\n\
+  7.041260i 0.473583i 7.040354i 0.473583i 7.040354i 0.474488i 7.040354i 0.475394i \\\n\
+  7.040354i 0.476299i 7.041260i 0.476299i 7.041260i 0.477205i 7.041260i 0.478110i \\\n\
+  7.041260i 0.479016i 7.042165i 0.479921i 7.042165i 0.480827i 7.042165i 0.479921i \\\n\
+  7.042165i 0.479016i 7.042165i 0.478110i 7.042165i 0.477205i 7.042165i 0.475394i \\\n\
+  7.042165i 0.474488i 7.042165i 0.464528i 7.042165i 0.455472i 7.043071i 0.447323i \\\n\
+  7.043071i 0.440079i 7.043071i 0.431929i 7.043976i 0.423780i 7.043976i 0.421969i \\\n\
+  7.043976i 0.424685i 7.043976i 0.430118i 7.043976i 0.435551i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 7.044882i 0.441890i 7.045787i 0.447323i 7.046693i 0.449134i \\\n\
+  7.046693i 0.450039i 7.047598i 0.451850i 7.049409i 0.456378i 7.051220i 0.460000i \\\n\
+  7.052126i 0.460906i 7.056654i 0.464528i 7.062992i 0.469961i 7.066614i 0.472677i \\\n\
+  7.068425i 0.474488i 7.072953i 0.477205i 7.081102i 0.484449i 7.089252i 0.490787i \\\n\
+  7.092874i 0.493504i 7.094685i 0.494409i 7.097402i 0.498031i 7.103740i 0.504370i \\\n\
+  7.108268i 0.511614i 7.110079i 0.514331i 7.110079i 0.515236i 7.110984i 0.517953i \\\n\
+  7.112795i 0.525197i 7.113701i 0.532441i 7.113701i 0.535157i 7.112795i 0.538780i \\\n\
+  7.110984i 0.547835i 7.108268i 0.557795i 7.105551i 0.564134i 7.103740i 0.568661i \\\n\
+  7.101929i 0.572283i 7.099213i 0.577717i 7.096496i 0.584961i 7.096496i 0.585866i \\\n\
+  7.095591i 0.586772i 7.095591i 0.587677i 7.094685i 0.587677i 7.094685i 0.588583i \\\n\
+  7.094685i 0.589488i 7.093780i 0.589488i 7.093780i 0.590394i 7.092874i 0.590394i \\\n\
+  7.092874i 0.589488i 7.093780i 0.589488i 7.093780i 0.588583i 7.093780i 0.587677i \\\n\
+  7.093780i 0.586772i 7.094685i 0.585866i 7.094685i 0.584961i 7.096496i 0.578622i \\\n\
+  7.099213i 0.574094i 7.101024i 0.570472i 7.101929i 0.566850i 7.104646i 0.561417i \\\n\
+  7.107362i 0.553268i 7.109173i 0.545118i 7.110984i 0.542402i 7.110984i 0.539685i \\\n\
+  7.110079i 0.532441i 7.107362i 0.524291i 7.106457i 0.520669i 7.105551i 0.519764i \\\n\
+  7.103740i 0.516142i 7.097402i 0.507992i 7.091063i 0.501654i 7.087441i 0.498031i \\\n\
+  7.085630i 0.496220i 7.083819i 0.495315i 7.080197i 0.492598i 7.072047i 0.487165i \\\n\
+  7.062992i 0.481732i 7.058465i 0.479921i 7.054843i 0.479016i 7.051220i 0.477205i \\\n\
+  7.044882i 0.474488i 7.043976i 0.474488i 7.043071i 0.473583i 7.042165i 0.473583i \\\n\
+  7.041260i 0.473583i 7.040354i 0.473583i 7.040354i 0.474488i 7.040354i 0.475394i \\\n\
+  7.040354i 0.476299i 7.041260i 0.476299i 7.041260i 0.477205i 7.041260i 0.478110i \\\n\
+  7.041260i 0.479016i 7.042165i 0.479921i 7.042165i 0.480827i 7.042165i 0.479921i \\\n\
+  7.042165i 0.479016i 7.042165i 0.478110i 7.042165i 0.477205i 7.042165i 0.475394i \\\n\
+  7.042165i 0.474488i 7.042165i 0.464528i 7.042165i 0.455472i 7.043071i 0.447323i \\\n\
+  7.043071i 0.440079i 7.043071i 0.431929i 7.043976i 0.423780i 7.043976i 0.421969i \\\n\
+  7.043976i 0.424685i 7.043976i 0.430118i 7.043976i 0.435551i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 6.320472i 0.422874i 6.320472i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 6.278819i 0.640197i 6.286063i 0.639291i 6.289685i 0.638386i \\\n\
+  6.290591i 0.638386i 6.294213i 0.637480i 6.301457i 0.634764i 6.308701i 0.632047i \\\n\
+  6.311417i 0.630236i 6.312323i 0.629331i 6.315039i 0.628425i 6.320472i 0.623898i \\\n\
+  6.325000i 0.619370i 6.326811i 0.617559i 6.327717i 0.616654i 6.329528i 0.613937i \\\n\
+  6.330433i 0.609409i 6.330433i 0.606693i 6.330433i 0.603976i 6.329528i 0.603071i \\\n\
+  6.329528i 0.602165i 6.328622i 0.601260i 6.327717i 0.600354i 6.325906i 0.598543i \\\n\
+  6.323189i 0.596732i 6.317756i 0.594016i 6.315039i 0.594016i 6.313228i 0.593110i \\\n\
+  6.309606i 0.593110i 6.302362i 0.593110i 6.295118i 0.594016i 6.291496i 0.594016i \\\n\
+  6.289685i 0.594016i 6.286063i 0.594921i 6.278819i 0.597638i 6.272480i 0.600354i \\\n\
+  6.269764i 0.602165i 6.268858i 0.603071i 6.267047i 0.604882i 6.262520i 0.608504i \\\n\
+  6.258898i 0.611220i 6.257087i 0.612126i 6.256181i 0.613937i 6.254370i 0.616654i \\\n\
+  6.252559i 0.620276i 6.251654i 0.622087i 6.251654i 0.622992i 6.251654i 0.624803i \\\n\
+  6.251654i 0.628425i 6.252559i 0.631142i 6.252559i 0.632047i 6.252559i 0.632953i \\\n\
+  6.252559i 0.633858i 6.253465i 0.634764i 6.255276i 0.635669i 6.257992i 0.637480i \\\n\
+  6.263425i 0.639291i 6.266142i 0.640197i 6.267953i 0.640197i 6.271575i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.278819i 0.640197i 6.286063i 0.639291i 6.289685i 0.638386i \\\n\
+  6.290591i 0.638386i 6.294213i 0.637480i 6.301457i 0.634764i 6.308701i 0.632047i \\\n\
+  6.311417i 0.630236i 6.312323i 0.629331i 6.315039i 0.628425i 6.320472i 0.623898i \\\n\
+  6.325000i 0.619370i 6.326811i 0.617559i 6.327717i 0.616654i 6.329528i 0.613937i \\\n\
+  6.330433i 0.609409i 6.330433i 0.606693i 6.330433i 0.603976i 6.329528i 0.603071i \\\n\
+  6.329528i 0.602165i 6.328622i 0.601260i 6.327717i 0.600354i 6.325906i 0.598543i \\\n\
+  6.323189i 0.596732i 6.317756i 0.594016i 6.315039i 0.594016i 6.313228i 0.593110i \\\n\
+  6.309606i 0.593110i 6.302362i 0.593110i 6.295118i 0.594016i 6.291496i 0.594016i \\\n\
+  6.289685i 0.594016i 6.286063i 0.594921i 6.278819i 0.597638i 6.272480i 0.600354i \\\n\
+  6.269764i 0.602165i 6.268858i 0.603071i 6.267047i 0.604882i 6.262520i 0.608504i \\\n\
+  6.258898i 0.611220i 6.257087i 0.612126i 6.256181i 0.613937i 6.254370i 0.616654i \\\n\
+  6.252559i 0.620276i 6.251654i 0.622087i 6.251654i 0.622992i 6.251654i 0.624803i \\\n\
+  6.251654i 0.628425i 6.252559i 0.631142i 6.252559i 0.632047i 6.252559i 0.632953i \\\n\
+  6.252559i 0.633858i 6.253465i 0.634764i 6.255276i 0.635669i 6.257992i 0.637480i \\\n\
+  6.263425i 0.639291i 6.266142i 0.640197i 6.267953i 0.640197i 6.271575i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 6.325906i 0.441890i 6.326811i 0.447323i 6.327717i 0.449134i \\\n\
+  6.327717i 0.450039i 6.328622i 0.451850i 6.330433i 0.456378i 6.332244i 0.460000i \\\n\
+  6.333150i 0.460906i 6.337677i 0.464528i 6.344016i 0.469961i 6.347638i 0.472677i \\\n\
+  6.350354i 0.474488i 6.354882i 0.477205i 6.363031i 0.484449i 6.371181i 0.490787i \\\n\
+  6.374803i 0.493504i 6.375709i 0.494409i 6.379331i 0.498031i 6.384764i 0.504370i \\\n\
+  6.389291i 0.511614i 6.391102i 0.514331i 6.391102i 0.515236i 6.392008i 0.517953i \\\n\
+  6.393819i 0.525197i 6.394724i 0.532441i 6.394724i 0.535157i 6.393819i 0.538780i \\\n\
+  6.392008i 0.547835i 6.389291i 0.557795i 6.386575i 0.564134i 6.384764i 0.568661i \\\n\
+  6.382953i 0.572283i 6.380236i 0.577717i 6.377520i 0.584961i 6.377520i 0.585866i \\\n\
+  6.376614i 0.586772i 6.376614i 0.587677i 6.375709i 0.587677i 6.375709i 0.588583i \\\n\
+  6.375709i 0.589488i 6.374803i 0.589488i 6.374803i 0.590394i 6.374803i 0.589488i \\\n\
+  6.374803i 0.588583i 6.374803i 0.587677i 6.374803i 0.586772i 6.375709i 0.586772i \\\n\
+  6.375709i 0.585866i 6.375709i 0.584961i 6.377520i 0.578622i 6.379331i 0.574094i \\\n\
+  6.381142i 0.570472i 6.382953i 0.566850i 6.384764i 0.561417i 6.387480i 0.553268i \\\n\
+  6.390197i 0.545118i 6.391102i 0.542402i 6.392008i 0.542402i 6.392008i 0.539685i \\\n\
+  6.391102i 0.532441i 6.389291i 0.524291i 6.387480i 0.520669i 6.386575i 0.519764i \\\n\
+  6.384764i 0.516142i 6.378425i 0.507992i 6.372087i 0.501654i 6.368465i 0.498031i \\\n\
+  6.366654i 0.496220i 6.364843i 0.495315i 6.361220i 0.492598i 6.353071i 0.487165i \\\n\
+  6.344016i 0.481732i 6.339488i 0.479921i 6.336772i 0.479016i 6.332244i 0.477205i \\\n\
+  6.325906i 0.474488i 6.325000i 0.474488i 6.324094i 0.473583i 6.323189i 0.473583i \\\n\
+  6.322283i 0.473583i 6.321378i 0.473583i 6.321378i 0.474488i 6.321378i 0.475394i \\\n\
+  6.321378i 0.476299i 6.321378i 0.477205i 6.321378i 0.478110i 6.322283i 0.479016i \\\n\
+  6.322283i 0.479921i 6.322283i 0.480827i 6.322283i 0.479921i 6.322283i 0.479016i \\\n\
+  6.322283i 0.478110i 6.322283i 0.477205i 6.322283i 0.475394i 6.322283i 0.474488i \\\n\
+  6.322283i 0.464528i 6.323189i 0.455472i 6.323189i 0.447323i 6.324094i 0.440079i \\\n\
+  6.324094i 0.431929i 6.325000i 0.423780i 6.325906i 0.421969i 6.325000i 0.424685i \\\n\
+  6.325000i 0.430118i 6.325000i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.325906i 0.441890i 6.326811i 0.447323i 6.327717i 0.449134i \\\n\
+  6.327717i 0.450039i 6.328622i 0.451850i 6.330433i 0.456378i 6.332244i 0.460000i \\\n\
+  6.333150i 0.460906i 6.337677i 0.464528i 6.344016i 0.469961i 6.347638i 0.472677i \\\n\
+  6.350354i 0.474488i 6.354882i 0.477205i 6.363031i 0.484449i 6.371181i 0.490787i \\\n\
+  6.374803i 0.493504i 6.375709i 0.494409i 6.379331i 0.498031i 6.384764i 0.504370i \\\n\
+  6.389291i 0.511614i 6.391102i 0.514331i 6.391102i 0.515236i 6.392008i 0.517953i \\\n\
+  6.393819i 0.525197i 6.394724i 0.532441i 6.394724i 0.535157i 6.393819i 0.538780i \\\n\
+  6.392008i 0.547835i 6.389291i 0.557795i 6.386575i 0.564134i 6.384764i 0.568661i \\\n\
+  6.382953i 0.572283i 6.380236i 0.577717i 6.377520i 0.584961i 6.377520i 0.585866i \\\n\
+  6.376614i 0.586772i 6.376614i 0.587677i 6.375709i 0.587677i 6.375709i 0.588583i \\\n\
+  6.375709i 0.589488i 6.374803i 0.589488i 6.374803i 0.590394i 6.374803i 0.589488i \\\n\
+  6.374803i 0.588583i 6.374803i 0.587677i 6.374803i 0.586772i 6.375709i 0.586772i \\\n\
+  6.375709i 0.585866i 6.375709i 0.584961i 6.377520i 0.578622i 6.379331i 0.574094i \\\n\
+  6.381142i 0.570472i 6.382953i 0.566850i 6.384764i 0.561417i 6.387480i 0.553268i \\\n\
+  6.390197i 0.545118i 6.391102i 0.542402i 6.392008i 0.542402i 6.392008i 0.539685i \\\n\
+  6.391102i 0.532441i 6.389291i 0.524291i 6.387480i 0.520669i 6.386575i 0.519764i \\\n\
+  6.384764i 0.516142i 6.378425i 0.507992i 6.372087i 0.501654i 6.368465i 0.498031i \\\n\
+  6.366654i 0.496220i 6.364843i 0.495315i 6.361220i 0.492598i 6.353071i 0.487165i \\\n\
+  6.344016i 0.481732i 6.339488i 0.479921i 6.336772i 0.479016i 6.332244i 0.477205i \\\n\
+  6.325906i 0.474488i 6.325000i 0.474488i 6.324094i 0.473583i 6.323189i 0.473583i \\\n\
+  6.322283i 0.473583i 6.321378i 0.473583i 6.321378i 0.474488i 6.321378i 0.475394i \\\n\
+  6.321378i 0.476299i 6.321378i 0.477205i 6.321378i 0.478110i 6.322283i 0.479016i \\\n\
+  6.322283i 0.479921i 6.322283i 0.480827i 6.322283i 0.479921i 6.322283i 0.479016i \\\n\
+  6.322283i 0.478110i 6.322283i 0.477205i 6.322283i 0.475394i 6.322283i 0.474488i \\\n\
+  6.322283i 0.464528i 6.323189i 0.455472i 6.323189i 0.447323i 6.324094i 0.440079i \\\n\
+  6.324094i 0.431929i 6.325000i 0.423780i 6.325906i 0.421969i 6.325000i 0.424685i \\\n\
+  6.325000i 0.430118i 6.325000i 0.435551i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 6.320472i 0.086024i 6.320472i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 6.278819i 0.301535i 6.286063i 0.300630i 6.289685i 0.300630i \\\n\
+  6.290591i 0.300630i 6.294213i 0.299724i 6.301457i 0.297913i 6.308701i 0.295197i \\\n\
+  6.311417i 0.293386i 6.312323i 0.293386i 6.315039i 0.291575i 6.320472i 0.287047i \\\n\
+  6.325000i 0.282520i 6.326811i 0.280709i 6.327717i 0.279803i 6.329528i 0.277087i \\\n\
+  6.330433i 0.272559i 6.330433i 0.269843i 6.330433i 0.267126i 6.329528i 0.266220i \\\n\
+  6.329528i 0.265315i 6.328622i 0.264409i 6.327717i 0.263504i 6.325906i 0.261693i \\\n\
+  6.323189i 0.259882i 6.317756i 0.257165i 6.315039i 0.256260i 6.313228i 0.256260i \\\n\
+  6.309606i 0.255354i 6.302362i 0.255354i 6.295118i 0.256260i 6.291496i 0.256260i \\\n\
+  6.289685i 0.257165i 6.286063i 0.258071i 6.278819i 0.260787i 6.272480i 0.263504i \\\n\
+  6.269764i 0.265315i 6.268858i 0.266220i 6.267047i 0.268031i 6.262520i 0.271654i \\\n\
+  6.258898i 0.274370i 6.257087i 0.275276i 6.256181i 0.276181i 6.254370i 0.278898i \\\n\
+  6.252559i 0.282520i 6.251654i 0.284331i 6.251654i 0.285236i 6.251654i 0.287047i \\\n\
+  6.251654i 0.290669i 6.252559i 0.293386i 6.252559i 0.295197i 6.252559i 0.296102i \\\n\
+  6.252559i 0.297008i 6.253465i 0.297913i 6.255276i 0.298819i 6.257992i 0.300630i \\\n\
+  6.263425i 0.302441i 6.266142i 0.302441i 6.267953i 0.302441i 6.271575i 0.301535i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.278819i 0.301535i 6.286063i 0.300630i 6.289685i 0.300630i \\\n\
+  6.290591i 0.300630i 6.294213i 0.299724i 6.301457i 0.297913i 6.308701i 0.295197i \\\n\
+  6.311417i 0.293386i 6.312323i 0.293386i 6.315039i 0.291575i 6.320472i 0.287047i \\\n\
+  6.325000i 0.282520i 6.326811i 0.280709i 6.327717i 0.279803i 6.329528i 0.277087i \\\n\
+  6.330433i 0.272559i 6.330433i 0.269843i 6.330433i 0.267126i 6.329528i 0.266220i \\\n\
+  6.329528i 0.265315i 6.328622i 0.264409i 6.327717i 0.263504i 6.325906i 0.261693i \\\n\
+  6.323189i 0.259882i 6.317756i 0.257165i 6.315039i 0.256260i 6.313228i 0.256260i \\\n\
+  6.309606i 0.255354i 6.302362i 0.255354i 6.295118i 0.256260i 6.291496i 0.256260i \\\n\
+  6.289685i 0.257165i 6.286063i 0.258071i 6.278819i 0.260787i 6.272480i 0.263504i \\\n\
+  6.269764i 0.265315i 6.268858i 0.266220i 6.267047i 0.268031i 6.262520i 0.271654i \\\n\
+  6.258898i 0.274370i 6.257087i 0.275276i 6.256181i 0.276181i 6.254370i 0.278898i \\\n\
+  6.252559i 0.282520i 6.251654i 0.284331i 6.251654i 0.285236i 6.251654i 0.287047i \\\n\
+  6.251654i 0.290669i 6.252559i 0.293386i 6.252559i 0.295197i 6.252559i 0.296102i \\\n\
+  6.252559i 0.297008i 6.253465i 0.297913i 6.255276i 0.298819i 6.257992i 0.300630i \\\n\
+  6.263425i 0.302441i 6.266142i 0.302441i 6.267953i 0.302441i 6.271575i 0.301535i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 6.325906i 0.104134i 6.326811i 0.109567i 6.327717i 0.111378i \\\n\
+  6.327717i 0.112283i 6.328622i 0.114094i 6.330433i 0.118622i 6.332244i 0.122244i \\\n\
+  6.332244i 0.123150i 6.332244i 0.122244i 6.333150i 0.123150i 6.337677i 0.127677i \\\n\
+  6.344016i 0.133110i 6.347638i 0.135827i 6.350354i 0.137638i 6.354882i 0.140354i \\\n\
+  6.363031i 0.147598i 6.371181i 0.153937i 6.374803i 0.157559i 6.375709i 0.158465i \\\n\
+  6.379331i 0.161181i 6.384764i 0.167520i 6.389291i 0.173858i 6.391102i 0.175669i \\\n\
+  6.391102i 0.176575i 6.392008i 0.179291i 6.393819i 0.185630i 6.394724i 0.192874i \\\n\
+  6.394724i 0.195591i 6.394724i 0.196496i 6.393819i 0.200118i 6.392008i 0.210079i \\\n\
+  6.389291i 0.220039i 6.386575i 0.226378i 6.384764i 0.230906i 6.382953i 0.234528i \\\n\
+  6.380236i 0.239961i 6.377520i 0.247205i 6.377520i 0.248110i 6.376614i 0.249016i \\\n\
+  6.376614i 0.249921i 6.375709i 0.249921i 6.375709i 0.250827i 6.375709i 0.251732i \\\n\
+  6.374803i 0.251732i 6.374803i 0.252638i 6.374803i 0.251732i 6.374803i 0.250827i \\\n\
+  6.374803i 0.249921i 6.374803i 0.249016i 6.375709i 0.249016i 6.375709i 0.248110i \\\n\
+  6.375709i 0.247205i 6.377520i 0.241772i 6.379331i 0.237244i 6.381142i 0.233622i \\\n\
+  6.382953i 0.230000i 6.384764i 0.224567i 6.387480i 0.216417i 6.390197i 0.208268i \\\n\
+  6.391102i 0.204646i 6.392008i 0.203740i 6.392008i 0.201024i 6.391102i 0.193780i \\\n\
+  6.389291i 0.186535i 6.387480i 0.182913i 6.386575i 0.182008i 6.384764i 0.178386i \\\n\
+  6.378425i 0.171142i 6.372087i 0.164803i 6.368465i 0.161181i 6.366654i 0.160276i \\\n\
+  6.364843i 0.158465i 6.361220i 0.155748i 6.353071i 0.150315i 6.344016i 0.144882i \\\n\
+  6.339488i 0.142165i 6.336772i 0.141260i 6.332244i 0.139449i 6.325906i 0.136732i \\\n\
+  6.325000i 0.136732i 6.324094i 0.135827i 6.323189i 0.135827i 6.322283i 0.135827i \\\n\
+  6.321378i 0.135827i 6.321378i 0.136732i 6.321378i 0.137638i 6.321378i 0.138543i \\\n\
+  6.321378i 0.139449i 6.321378i 0.140354i 6.322283i 0.140354i 6.322283i 0.141260i \\\n\
+  6.322283i 0.142165i 6.322283i 0.141260i 6.322283i 0.140354i 6.322283i 0.139449i \\\n\
+  6.322283i 0.137638i 6.322283i 0.136732i 6.322283i 0.126772i 6.323189i 0.117717i \\\n\
+  6.323189i 0.110472i 6.324094i 0.103228i 6.324094i 0.094173i 6.325000i 0.086929i \\\n\
+  6.325906i 0.085118i 6.325000i 0.087835i 6.325000i 0.092362i 6.325000i 0.097795i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.325906i 0.104134i 6.326811i 0.109567i 6.327717i 0.111378i \\\n\
+  6.327717i 0.112283i 6.328622i 0.114094i 6.330433i 0.118622i 6.332244i 0.122244i \\\n\
+  6.332244i 0.123150i 6.332244i 0.122244i 6.333150i 0.123150i 6.337677i 0.127677i \\\n\
+  6.344016i 0.133110i 6.347638i 0.135827i 6.350354i 0.137638i 6.354882i 0.140354i \\\n\
+  6.363031i 0.147598i 6.371181i 0.153937i 6.374803i 0.157559i 6.375709i 0.158465i \\\n\
+  6.379331i 0.161181i 6.384764i 0.167520i 6.389291i 0.173858i 6.391102i 0.175669i \\\n\
+  6.391102i 0.176575i 6.392008i 0.179291i 6.393819i 0.185630i 6.394724i 0.192874i \\\n\
+  6.394724i 0.195591i 6.394724i 0.196496i 6.393819i 0.200118i 6.392008i 0.210079i \\\n\
+  6.389291i 0.220039i 6.386575i 0.226378i 6.384764i 0.230906i 6.382953i 0.234528i \\\n\
+  6.380236i 0.239961i 6.377520i 0.247205i 6.377520i 0.248110i 6.376614i 0.249016i \\\n\
+  6.376614i 0.249921i 6.375709i 0.249921i 6.375709i 0.250827i 6.375709i 0.251732i \\\n\
+  6.374803i 0.251732i 6.374803i 0.252638i 6.374803i 0.251732i 6.374803i 0.250827i \\\n\
+  6.374803i 0.249921i 6.374803i 0.249016i 6.375709i 0.249016i 6.375709i 0.248110i \\\n\
+  6.375709i 0.247205i 6.377520i 0.241772i 6.379331i 0.237244i 6.381142i 0.233622i \\\n\
+  6.382953i 0.230000i 6.384764i 0.224567i 6.387480i 0.216417i 6.390197i 0.208268i \\\n\
+  6.391102i 0.204646i 6.392008i 0.203740i 6.392008i 0.201024i 6.391102i 0.193780i \\\n\
+  6.389291i 0.186535i 6.387480i 0.182913i 6.386575i 0.182008i 6.384764i 0.178386i \\\n\
+  6.378425i 0.171142i 6.372087i 0.164803i 6.368465i 0.161181i 6.366654i 0.160276i \\\n\
+  6.364843i 0.158465i 6.361220i 0.155748i 6.353071i 0.150315i 6.344016i 0.144882i \\\n\
+  6.339488i 0.142165i 6.336772i 0.141260i 6.332244i 0.139449i 6.325906i 0.136732i \\\n\
+  6.325000i 0.136732i 6.324094i 0.135827i 6.323189i 0.135827i 6.322283i 0.135827i \\\n\
+  6.321378i 0.135827i 6.321378i 0.136732i 6.321378i 0.137638i 6.321378i 0.138543i \\\n\
+  6.321378i 0.139449i 6.321378i 0.140354i 6.322283i 0.140354i 6.322283i 0.141260i \\\n\
+  6.322283i 0.142165i 6.322283i 0.141260i 6.322283i 0.140354i 6.322283i 0.139449i \\\n\
+  6.322283i 0.137638i 6.322283i 0.136732i 6.322283i 0.126772i 6.323189i 0.117717i \\\n\
+  6.323189i 0.110472i 6.324094i 0.103228i 6.324094i 0.094173i 6.325000i 0.086929i \\\n\
+  6.325906i 0.085118i 6.325000i 0.087835i 6.325000i 0.092362i 6.325000i 0.097795i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 6.323189i 0.721693i 6.323189i 0.927244i -fill $tkxox(score_active_note)\n\
+${score} create polygon 6.280630i 0.967992i 6.287874i 0.967087i 6.291496i 0.967087i \\\n\
+  6.293307i 0.967087i 6.296024i 0.966181i 6.303268i 0.963465i 6.309606i 0.959843i \\\n\
+  6.312323i 0.958937i 6.314134i 0.958031i 6.315945i 0.955315i 6.321378i 0.950787i \\\n\
+  6.325906i 0.945354i 6.328622i 0.943543i 6.330433i 0.942638i 6.331339i 0.939921i \\\n\
+  6.333150i 0.934488i 6.333150i 0.930866i 6.333150i 0.928150i 6.332244i 0.927244i \\\n\
+  6.332244i 0.926339i 6.332244i 0.925433i 6.330433i 0.924528i 6.328622i 0.922717i \\\n\
+  6.325906i 0.920000i 6.320472i 0.917283i 6.316850i 0.916378i 6.315039i 0.916378i \\\n\
+  6.311417i 0.916378i 6.304173i 0.916378i 6.296024i 0.917283i 6.293307i 0.918189i \\\n\
+  6.291496i 0.918189i 6.287874i 0.919094i 6.280630i 0.921811i 6.273386i 0.924528i \\\n\
+  6.270669i 0.925433i 6.269764i 0.926339i 6.267047i 0.927244i 6.262520i 0.930866i \\\n\
+  6.258898i 0.934488i 6.257087i 0.935394i 6.257087i 0.936299i 6.256181i 0.937205i \\\n\
+  6.254370i 0.941732i 6.252559i 0.946260i 6.251654i 0.948071i 6.251654i 0.949882i \\\n\
+  6.251654i 0.951693i 6.251654i 0.956220i 6.252559i 0.959843i 6.252559i 0.961654i \\\n\
+  6.252559i 0.962559i 6.252559i 0.963465i 6.254370i 0.965276i 6.257992i 0.967087i \\\n\
+  6.263425i 0.968898i 6.267047i 0.968898i 6.268858i 0.968898i 6.272480i 0.967992i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 6.280630i 0.967992i 6.287874i 0.967087i 6.291496i 0.967087i \\\n\
+  6.293307i 0.967087i 6.296024i 0.966181i 6.303268i 0.963465i 6.309606i 0.959843i \\\n\
+  6.312323i 0.958937i 6.314134i 0.958031i 6.315945i 0.955315i 6.321378i 0.950787i \\\n\
+  6.325906i 0.945354i 6.328622i 0.943543i 6.330433i 0.942638i 6.331339i 0.939921i \\\n\
+  6.333150i 0.934488i 6.333150i 0.930866i 6.333150i 0.928150i 6.332244i 0.927244i \\\n\
+  6.332244i 0.926339i 6.332244i 0.925433i 6.330433i 0.924528i 6.328622i 0.922717i \\\n\
+  6.325906i 0.920000i 6.320472i 0.917283i 6.316850i 0.916378i 6.315039i 0.916378i \\\n\
+  6.311417i 0.916378i 6.304173i 0.916378i 6.296024i 0.917283i 6.293307i 0.918189i \\\n\
+  6.291496i 0.918189i 6.287874i 0.919094i 6.280630i 0.921811i 6.273386i 0.924528i \\\n\
+  6.270669i 0.925433i 6.269764i 0.926339i 6.267047i 0.927244i 6.262520i 0.930866i \\\n\
+  6.258898i 0.934488i 6.257087i 0.935394i 6.257087i 0.936299i 6.256181i 0.937205i \\\n\
+  6.254370i 0.941732i 6.252559i 0.946260i 6.251654i 0.948071i 6.251654i 0.949882i \\\n\
+  6.251654i 0.951693i 6.251654i 0.956220i 6.252559i 0.959843i 6.252559i 0.961654i \\\n\
+  6.252559i 0.962559i 6.252559i 0.963465i 6.254370i 0.965276i 6.257992i 0.967087i \\\n\
+  6.263425i 0.968898i 6.267047i 0.968898i 6.268858i 0.968898i 6.272480i 0.967992i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 6.323189i 1.060354i 6.323189i 1.264094i -fill $tkxox(score_active_note)\n\
+${score} create polygon 6.280630i 1.306654i 6.287874i 1.305748i 6.291496i 1.305748i \\\n\
+  6.293307i 1.304843i 6.296024i 1.303937i 6.303268i 1.301220i 6.309606i 1.297598i \\\n\
+  6.312323i 1.295787i 6.314134i 1.295787i 6.315945i 1.293071i 6.321378i 1.288543i \\\n\
+  6.325906i 1.283110i 6.328622i 1.281299i 6.330433i 1.280394i 6.331339i 1.277677i \\\n\
+  6.333150i 1.272244i 6.333150i 1.268622i 6.333150i 1.265906i 6.332244i 1.265000i \\\n\
+  6.332244i 1.264094i 6.332244i 1.263189i 6.330433i 1.262283i 6.328622i 1.260472i \\\n\
+  6.325906i 1.257756i 6.320472i 1.255039i 6.316850i 1.253228i 6.315039i 1.253228i \\\n\
+  6.311417i 1.252323i 6.304173i 1.252323i 6.296024i 1.253228i 6.293307i 1.254134i \\\n\
+  6.291496i 1.255039i 6.287874i 1.256850i 6.280630i 1.259567i 6.273386i 1.262283i \\\n\
+  6.270669i 1.263189i 6.269764i 1.264094i 6.267047i 1.265906i 6.262520i 1.268622i \\\n\
+  6.258898i 1.272244i 6.257087i 1.273150i 6.256181i 1.274961i 6.254370i 1.278583i \\\n\
+  6.252559i 1.283110i 6.251654i 1.284921i 6.251654i 1.286732i 6.251654i 1.288543i \\\n\
+  6.251654i 1.293071i 6.252559i 1.296693i 6.252559i 1.298504i 6.252559i 1.299409i \\\n\
+  6.252559i 1.300315i 6.254370i 1.301220i 6.257992i 1.303937i 6.263425i 1.305748i \\\n\
+  6.267047i 1.306654i 6.268858i 1.306654i 6.272480i 1.306654i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 6.280630i 1.306654i 6.287874i 1.305748i 6.291496i 1.305748i \\\n\
+  6.293307i 1.304843i 6.296024i 1.303937i 6.303268i 1.301220i 6.309606i 1.297598i \\\n\
+  6.312323i 1.295787i 6.314134i 1.295787i 6.315945i 1.293071i 6.321378i 1.288543i \\\n\
+  6.325906i 1.283110i 6.328622i 1.281299i 6.330433i 1.280394i 6.331339i 1.277677i \\\n\
+  6.333150i 1.272244i 6.333150i 1.268622i 6.333150i 1.265906i 6.332244i 1.265000i \\\n\
+  6.332244i 1.264094i 6.332244i 1.263189i 6.330433i 1.262283i 6.328622i 1.260472i \\\n\
+  6.325906i 1.257756i 6.320472i 1.255039i 6.316850i 1.253228i 6.315039i 1.253228i \\\n\
+  6.311417i 1.252323i 6.304173i 1.252323i 6.296024i 1.253228i 6.293307i 1.254134i \\\n\
+  6.291496i 1.255039i 6.287874i 1.256850i 6.280630i 1.259567i 6.273386i 1.262283i \\\n\
+  6.270669i 1.263189i 6.269764i 1.264094i 6.267047i 1.265906i 6.262520i 1.268622i \\\n\
+  6.258898i 1.272244i 6.257087i 1.273150i 6.256181i 1.274961i 6.254370i 1.278583i \\\n\
+  6.252559i 1.283110i 6.251654i 1.284921i 6.251654i 1.286732i 6.251654i 1.288543i \\\n\
+  6.251654i 1.293071i 6.252559i 1.296693i 6.252559i 1.298504i 6.252559i 1.299409i \\\n\
+  6.252559i 1.300315i 6.254370i 1.301220i 6.257992i 1.303937i 6.263425i 1.305748i \\\n\
+  6.267047i 1.306654i 6.268858i 1.306654i 6.272480i 1.306654i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 7.645236i 0.422874i 7.645236i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 7.602677i 0.640197i 7.609921i 0.639291i 7.612638i 0.638386i \\\n\
+  7.614449i 0.638386i 7.617165i 0.637480i 7.624409i 0.634764i 7.631654i 0.632047i \\\n\
+  7.634370i 0.630236i 7.636181i 0.629331i 7.638898i 0.628425i 7.644331i 0.623898i \\\n\
+  7.648858i 0.619370i 7.650669i 0.617559i 7.651575i 0.616654i 7.653386i 0.613937i \\\n\
+  7.654291i 0.609409i 7.654291i 0.606693i 7.654291i 0.603976i 7.653386i 0.603071i \\\n\
+  7.653386i 0.602165i 7.652480i 0.601260i 7.651575i 0.600354i 7.649764i 0.598543i \\\n\
+  7.647047i 0.596732i 7.641614i 0.594016i 7.637992i 0.594016i 7.636181i 0.593110i \\\n\
+  7.632559i 0.593110i 7.625315i 0.593110i 7.618071i 0.594016i 7.614449i 0.594016i \\\n\
+  7.612638i 0.594016i 7.609016i 0.594921i 7.602677i 0.597638i 7.597244i 0.600354i \\\n\
+  7.594528i 0.602165i 7.593622i 0.603071i 7.591811i 0.604882i 7.588189i 0.608504i \\\n\
+  7.584567i 0.611220i 7.583661i 0.612126i 7.582756i 0.612126i 7.581850i 0.613937i \\\n\
+  7.580039i 0.616654i 7.578228i 0.620276i 7.577323i 0.622087i 7.577323i 0.622992i \\\n\
+  7.577323i 0.624803i 7.577323i 0.628425i 7.578228i 0.632047i 7.578228i 0.632953i \\\n\
+  7.579134i 0.633858i 7.580039i 0.634764i 7.583661i 0.637480i 7.588189i 0.639291i \\\n\
+  7.590906i 0.640197i 7.592717i 0.640197i 7.595433i 0.640197i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 7.602677i 0.640197i 7.609921i 0.639291i 7.612638i 0.638386i \\\n\
+  7.614449i 0.638386i 7.617165i 0.637480i 7.624409i 0.634764i 7.631654i 0.632047i \\\n\
+  7.634370i 0.630236i 7.636181i 0.629331i 7.638898i 0.628425i 7.644331i 0.623898i \\\n\
+  7.648858i 0.619370i 7.650669i 0.617559i 7.651575i 0.616654i 7.653386i 0.613937i \\\n\
+  7.654291i 0.609409i 7.654291i 0.606693i 7.654291i 0.603976i 7.653386i 0.603071i \\\n\
+  7.653386i 0.602165i 7.652480i 0.601260i 7.651575i 0.600354i 7.649764i 0.598543i \\\n\
+  7.647047i 0.596732i 7.641614i 0.594016i 7.637992i 0.594016i 7.636181i 0.593110i \\\n\
+  7.632559i 0.593110i 7.625315i 0.593110i 7.618071i 0.594016i 7.614449i 0.594016i \\\n\
+  7.612638i 0.594016i 7.609016i 0.594921i 7.602677i 0.597638i 7.597244i 0.600354i \\\n\
+  7.594528i 0.602165i 7.593622i 0.603071i 7.591811i 0.604882i 7.588189i 0.608504i \\\n\
+  7.584567i 0.611220i 7.583661i 0.612126i 7.582756i 0.612126i 7.581850i 0.613937i \\\n\
+  7.580039i 0.616654i 7.578228i 0.620276i 7.577323i 0.622087i 7.577323i 0.622992i \\\n\
+  7.577323i 0.624803i 7.577323i 0.628425i 7.578228i 0.632047i 7.578228i 0.632953i \\\n\
+  7.579134i 0.633858i 7.580039i 0.634764i 7.583661i 0.637480i 7.588189i 0.639291i \\\n\
+  7.590906i 0.640197i 7.592717i 0.640197i 7.595433i 0.640197i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 7.649764i 0.441890i 7.650669i 0.447323i 7.651575i 0.449134i \\\n\
+  7.651575i 0.450039i 7.652480i 0.451850i 7.654291i 0.456378i 7.656102i 0.460000i \\\n\
+  7.657008i 0.460906i 7.661535i 0.464528i 7.667874i 0.469961i 7.671496i 0.472677i \\\n\
+  7.673307i 0.474488i 7.677835i 0.477205i 7.685984i 0.484449i 7.694134i 0.490787i \\\n\
+  7.698661i 0.493504i 7.700472i 0.494409i 7.704094i 0.498031i 7.710433i 0.504370i \\\n\
+  7.714961i 0.511614i 7.716772i 0.514331i 7.716772i 0.515236i 7.717677i 0.517953i \\\n\
+  7.719488i 0.525197i 7.720394i 0.532441i 7.720394i 0.535157i 7.719488i 0.538780i \\\n\
+  7.717677i 0.547835i 7.714961i 0.557795i 7.712244i 0.564134i 7.710433i 0.568661i \\\n\
+  7.708622i 0.572283i 7.705906i 0.577717i 7.703189i 0.584961i 7.703189i 0.585866i \\\n\
+  7.702283i 0.586772i 7.702283i 0.587677i 7.701378i 0.587677i 7.701378i 0.588583i \\\n\
+  7.701378i 0.589488i 7.700472i 0.589488i 7.700472i 0.590394i 7.700472i 0.589488i \\\n\
+  7.700472i 0.588583i 7.700472i 0.587677i 7.700472i 0.586772i 7.701378i 0.586772i \\\n\
+  7.701378i 0.585866i 7.701378i 0.584961i 7.703189i 0.578622i 7.705000i 0.574094i \\\n\
+  7.706811i 0.570472i 7.708622i 0.566850i 7.710433i 0.561417i 7.713150i 0.553268i \\\n\
+  7.715866i 0.545118i 7.716772i 0.542402i 7.717677i 0.542402i 7.717677i 0.539685i \\\n\
+  7.716772i 0.532441i 7.714961i 0.524291i 7.713150i 0.520669i 7.712244i 0.519764i \\\n\
+  7.710433i 0.516142i 7.704094i 0.507992i 7.697756i 0.501654i 7.693228i 0.498031i \\\n\
+  7.691417i 0.496220i 7.688701i 0.495315i 7.684173i 0.492598i 7.676024i 0.487165i \\\n\
+  7.666969i 0.481732i 7.662441i 0.479921i 7.659724i 0.479016i 7.656102i 0.477205i \\\n\
+  7.649764i 0.474488i 7.648858i 0.474488i 7.647953i 0.473583i 7.647047i 0.473583i \\\n\
+  7.646142i 0.473583i 7.645236i 0.473583i 7.645236i 0.474488i 7.645236i 0.475394i \\\n\
+  7.645236i 0.476299i 7.645236i 0.477205i 7.645236i 0.478110i 7.646142i 0.479016i \\\n\
+  7.646142i 0.479921i 7.646142i 0.480827i 7.646142i 0.479921i 7.646142i 0.479016i \\\n\
+  7.646142i 0.478110i 7.646142i 0.477205i 7.646142i 0.475394i 7.646142i 0.474488i \\\n\
+  7.646142i 0.464528i 7.647047i 0.455472i 7.647047i 0.447323i 7.647953i 0.440079i \\\n\
+  7.647953i 0.431929i 7.648858i 0.423780i 7.649764i 0.421969i 7.648858i 0.424685i \\\n\
+  7.648858i 0.430118i 7.648858i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 7.649764i 0.441890i 7.650669i 0.447323i 7.651575i 0.449134i \\\n\
+  7.651575i 0.450039i 7.652480i 0.451850i 7.654291i 0.456378i 7.656102i 0.460000i \\\n\
+  7.657008i 0.460906i 7.661535i 0.464528i 7.667874i 0.469961i 7.671496i 0.472677i \\\n\
+  7.673307i 0.474488i 7.677835i 0.477205i 7.685984i 0.484449i 7.694134i 0.490787i \\\n\
+  7.698661i 0.493504i 7.700472i 0.494409i 7.704094i 0.498031i 7.710433i 0.504370i \\\n\
+  7.714961i 0.511614i 7.716772i 0.514331i 7.716772i 0.515236i 7.717677i 0.517953i \\\n\
+  7.719488i 0.525197i 7.720394i 0.532441i 7.720394i 0.535157i 7.719488i 0.538780i \\\n\
+  7.717677i 0.547835i 7.714961i 0.557795i 7.712244i 0.564134i 7.710433i 0.568661i \\\n\
+  7.708622i 0.572283i 7.705906i 0.577717i 7.703189i 0.584961i 7.703189i 0.585866i \\\n\
+  7.702283i 0.586772i 7.702283i 0.587677i 7.701378i 0.587677i 7.701378i 0.588583i \\\n\
+  7.701378i 0.589488i 7.700472i 0.589488i 7.700472i 0.590394i 7.700472i 0.589488i \\\n\
+  7.700472i 0.588583i 7.700472i 0.587677i 7.700472i 0.586772i 7.701378i 0.586772i \\\n\
+  7.701378i 0.585866i 7.701378i 0.584961i 7.703189i 0.578622i 7.705000i 0.574094i \\\n\
+  7.706811i 0.570472i 7.708622i 0.566850i 7.710433i 0.561417i 7.713150i 0.553268i \\\n\
+  7.715866i 0.545118i 7.716772i 0.542402i 7.717677i 0.542402i 7.717677i 0.539685i \\\n\
+  7.716772i 0.532441i 7.714961i 0.524291i 7.713150i 0.520669i 7.712244i 0.519764i \\\n\
+  7.710433i 0.516142i 7.704094i 0.507992i 7.697756i 0.501654i 7.693228i 0.498031i \\\n\
+  7.691417i 0.496220i 7.688701i 0.495315i 7.684173i 0.492598i 7.676024i 0.487165i \\\n\
+  7.666969i 0.481732i 7.662441i 0.479921i 7.659724i 0.479016i 7.656102i 0.477205i \\\n\
+  7.649764i 0.474488i 7.648858i 0.474488i 7.647953i 0.473583i 7.647047i 0.473583i \\\n\
+  7.646142i 0.473583i 7.645236i 0.473583i 7.645236i 0.474488i 7.645236i 0.475394i \\\n\
+  7.645236i 0.476299i 7.645236i 0.477205i 7.645236i 0.478110i 7.646142i 0.479016i \\\n\
+  7.646142i 0.479921i 7.646142i 0.480827i 7.646142i 0.479921i 7.646142i 0.479016i \\\n\
+  7.646142i 0.478110i 7.646142i 0.477205i 7.646142i 0.475394i 7.646142i 0.474488i \\\n\
+  7.646142i 0.464528i 7.647047i 0.455472i 7.647047i 0.447323i 7.647953i 0.440079i \\\n\
+  7.647953i 0.431929i 7.648858i 0.423780i 7.649764i 0.421969i 7.648858i 0.424685i \\\n\
+  7.648858i 0.430118i 7.648858i 0.435551i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 7.645236i 0.086024i 7.645236i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 7.602677i 0.301535i 7.609921i 0.300630i 7.612638i 0.300630i \\\n\
+  7.614449i 0.300630i 7.617165i 0.299724i 7.624409i 0.297913i 7.631654i 0.295197i \\\n\
+  7.634370i 0.293386i 7.636181i 0.293386i 7.638898i 0.291575i 7.644331i 0.287047i \\\n\
+  7.648858i 0.282520i 7.650669i 0.280709i 7.651575i 0.279803i 7.653386i 0.277087i \\\n\
+  7.654291i 0.272559i 7.654291i 0.269843i 7.654291i 0.267126i 7.653386i 0.266220i \\\n\
+  7.653386i 0.265315i 7.652480i 0.264409i 7.651575i 0.263504i 7.649764i 0.261693i \\\n\
+  7.647047i 0.259882i 7.641614i 0.257165i 7.637992i 0.256260i 7.636181i 0.256260i \\\n\
+  7.632559i 0.255354i 7.625315i 0.255354i 7.618071i 0.256260i 7.614449i 0.256260i \\\n\
+  7.612638i 0.257165i 7.609016i 0.258071i 7.602677i 0.260787i 7.597244i 0.263504i \\\n\
+  7.594528i 0.265315i 7.593622i 0.266220i 7.591811i 0.268031i 7.588189i 0.271654i \\\n\
+  7.584567i 0.274370i 7.583661i 0.275276i 7.582756i 0.275276i 7.581850i 0.276181i \\\n\
+  7.580039i 0.278898i 7.578228i 0.282520i 7.577323i 0.284331i 7.577323i 0.285236i \\\n\
+  7.577323i 0.287047i 7.577323i 0.290669i 7.578228i 0.294291i 7.578228i 0.296102i \\\n\
+  7.579134i 0.297008i 7.580039i 0.298819i 7.583661i 0.300630i 7.588189i 0.302441i \\\n\
+  7.590906i 0.302441i 7.592717i 0.302441i 7.595433i 0.301535i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 7.602677i 0.301535i 7.609921i 0.300630i 7.612638i 0.300630i \\\n\
+  7.614449i 0.300630i 7.617165i 0.299724i 7.624409i 0.297913i 7.631654i 0.295197i \\\n\
+  7.634370i 0.293386i 7.636181i 0.293386i 7.638898i 0.291575i 7.644331i 0.287047i \\\n\
+  7.648858i 0.282520i 7.650669i 0.280709i 7.651575i 0.279803i 7.653386i 0.277087i \\\n\
+  7.654291i 0.272559i 7.654291i 0.269843i 7.654291i 0.267126i 7.653386i 0.266220i \\\n\
+  7.653386i 0.265315i 7.652480i 0.264409i 7.651575i 0.263504i 7.649764i 0.261693i \\\n\
+  7.647047i 0.259882i 7.641614i 0.257165i 7.637992i 0.256260i 7.636181i 0.256260i \\\n\
+  7.632559i 0.255354i 7.625315i 0.255354i 7.618071i 0.256260i 7.614449i 0.256260i \\\n\
+  7.612638i 0.257165i 7.609016i 0.258071i 7.602677i 0.260787i 7.597244i 0.263504i \\\n\
+  7.594528i 0.265315i 7.593622i 0.266220i 7.591811i 0.268031i 7.588189i 0.271654i \\\n\
+  7.584567i 0.274370i 7.583661i 0.275276i 7.582756i 0.275276i 7.581850i 0.276181i \\\n\
+  7.580039i 0.278898i 7.578228i 0.282520i 7.577323i 0.284331i 7.577323i 0.285236i \\\n\
+  7.577323i 0.287047i 7.577323i 0.290669i 7.578228i 0.294291i 7.578228i 0.296102i \\\n\
+  7.579134i 0.297008i 7.580039i 0.298819i 7.583661i 0.300630i 7.588189i 0.302441i \\\n\
+  7.590906i 0.302441i 7.592717i 0.302441i 7.595433i 0.301535i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 7.649764i 0.104134i 7.650669i 0.109567i 7.651575i 0.111378i \\\n\
+  7.651575i 0.112283i 7.652480i 0.114094i 7.654291i 0.118622i 7.656102i 0.122244i \\\n\
+  7.656102i 0.123150i 7.656102i 0.122244i 7.657008i 0.123150i 7.661535i 0.127677i \\\n\
+  7.667874i 0.133110i 7.671496i 0.135827i 7.673307i 0.137638i 7.677835i 0.140354i \\\n\
+  7.685984i 0.147598i 7.694134i 0.153937i 7.698661i 0.157559i 7.700472i 0.158465i \\\n\
+  7.704094i 0.161181i 7.710433i 0.167520i 7.714961i 0.173858i 7.716772i 0.175669i \\\n\
+  7.716772i 0.176575i 7.717677i 0.179291i 7.719488i 0.185630i 7.720394i 0.192874i \\\n\
+  7.720394i 0.195591i 7.720394i 0.196496i 7.719488i 0.200118i 7.717677i 0.210079i \\\n\
+  7.714961i 0.220039i 7.712244i 0.226378i 7.710433i 0.230906i 7.708622i 0.234528i \\\n\
+  7.705906i 0.239961i 7.703189i 0.247205i 7.703189i 0.248110i 7.702283i 0.249016i \\\n\
+  7.702283i 0.249921i 7.701378i 0.249921i 7.701378i 0.250827i 7.701378i 0.251732i \\\n\
+  7.700472i 0.251732i 7.700472i 0.252638i 7.700472i 0.251732i 7.700472i 0.250827i \\\n\
+  7.700472i 0.249921i 7.700472i 0.249016i 7.701378i 0.249016i 7.701378i 0.248110i \\\n\
+  7.701378i 0.247205i 7.703189i 0.241772i 7.705000i 0.237244i 7.706811i 0.233622i \\\n\
+  7.708622i 0.230000i 7.710433i 0.224567i 7.713150i 0.216417i 7.715866i 0.208268i \\\n\
+  7.716772i 0.204646i 7.717677i 0.203740i 7.717677i 0.201024i 7.716772i 0.193780i \\\n\
+  7.714961i 0.186535i 7.713150i 0.182913i 7.712244i 0.182008i 7.710433i 0.178386i \\\n\
+  7.704094i 0.171142i 7.697756i 0.164803i 7.693228i 0.161181i 7.691417i 0.160276i \\\n\
+  7.688701i 0.158465i 7.684173i 0.155748i 7.676024i 0.150315i 7.666969i 0.144882i \\\n\
+  7.662441i 0.142165i 7.659724i 0.141260i 7.656102i 0.139449i 7.649764i 0.136732i \\\n\
+  7.648858i 0.136732i 7.647953i 0.135827i 7.647047i 0.135827i 7.646142i 0.135827i \\\n\
+  7.645236i 0.135827i 7.645236i 0.136732i 7.645236i 0.137638i 7.645236i 0.138543i \\\n\
+  7.645236i 0.139449i 7.645236i 0.140354i 7.646142i 0.140354i 7.646142i 0.141260i \\\n\
+  7.646142i 0.142165i 7.646142i 0.141260i 7.646142i 0.140354i 7.646142i 0.139449i \\\n\
+  7.646142i 0.137638i 7.646142i 0.136732i 7.646142i 0.126772i 7.647047i 0.117717i \\\n\
+  7.647047i 0.110472i 7.647953i 0.103228i 7.647953i 0.094173i 7.648858i 0.086929i \\\n\
+  7.649764i 0.085118i 7.648858i 0.087835i 7.648858i 0.092362i 7.648858i 0.097795i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 7.649764i 0.104134i 7.650669i 0.109567i 7.651575i 0.111378i \\\n\
+  7.651575i 0.112283i 7.652480i 0.114094i 7.654291i 0.118622i 7.656102i 0.122244i \\\n\
+  7.656102i 0.123150i 7.656102i 0.122244i 7.657008i 0.123150i 7.661535i 0.127677i \\\n\
+  7.667874i 0.133110i 7.671496i 0.135827i 7.673307i 0.137638i 7.677835i 0.140354i \\\n\
+  7.685984i 0.147598i 7.694134i 0.153937i 7.698661i 0.157559i 7.700472i 0.158465i \\\n\
+  7.704094i 0.161181i 7.710433i 0.167520i 7.714961i 0.173858i 7.716772i 0.175669i \\\n\
+  7.716772i 0.176575i 7.717677i 0.179291i 7.719488i 0.185630i 7.720394i 0.192874i \\\n\
+  7.720394i 0.195591i 7.720394i 0.196496i 7.719488i 0.200118i 7.717677i 0.210079i \\\n\
+  7.714961i 0.220039i 7.712244i 0.226378i 7.710433i 0.230906i 7.708622i 0.234528i \\\n\
+  7.705906i 0.239961i 7.703189i 0.247205i 7.703189i 0.248110i 7.702283i 0.249016i \\\n\
+  7.702283i 0.249921i 7.701378i 0.249921i 7.701378i 0.250827i 7.701378i 0.251732i \\\n\
+  7.700472i 0.251732i 7.700472i 0.252638i 7.700472i 0.251732i 7.700472i 0.250827i \\\n\
+  7.700472i 0.249921i 7.700472i 0.249016i 7.701378i 0.249016i 7.701378i 0.248110i \\\n\
+  7.701378i 0.247205i 7.703189i 0.241772i 7.705000i 0.237244i 7.706811i 0.233622i \\\n\
+  7.708622i 0.230000i 7.710433i 0.224567i 7.713150i 0.216417i 7.715866i 0.208268i \\\n\
+  7.716772i 0.204646i 7.717677i 0.203740i 7.717677i 0.201024i 7.716772i 0.193780i \\\n\
+  7.714961i 0.186535i 7.713150i 0.182913i 7.712244i 0.182008i 7.710433i 0.178386i \\\n\
+  7.704094i 0.171142i 7.697756i 0.164803i 7.693228i 0.161181i 7.691417i 0.160276i \\\n\
+  7.688701i 0.158465i 7.684173i 0.155748i 7.676024i 0.150315i 7.666969i 0.144882i \\\n\
+  7.662441i 0.142165i 7.659724i 0.141260i 7.656102i 0.139449i 7.649764i 0.136732i \\\n\
+  7.648858i 0.136732i 7.647953i 0.135827i 7.647047i 0.135827i 7.646142i 0.135827i \\\n\
+  7.645236i 0.135827i 7.645236i 0.136732i 7.645236i 0.137638i 7.645236i 0.138543i \\\n\
+  7.645236i 0.139449i 7.645236i 0.140354i 7.646142i 0.140354i 7.646142i 0.141260i \\\n\
+  7.646142i 0.142165i 7.646142i 0.141260i 7.646142i 0.140354i 7.646142i 0.139449i \\\n\
+  7.646142i 0.137638i 7.646142i 0.136732i 7.646142i 0.126772i 7.647047i 0.117717i \\\n\
+  7.647047i 0.110472i 7.647953i 0.103228i 7.647953i 0.094173i 7.648858i 0.086929i \\\n\
+  7.649764i 0.085118i 7.648858i 0.087835i 7.648858i 0.092362i 7.648858i 0.097795i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 8.286339i 0.422874i 8.286339i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 8.243780i 0.640197i 8.251024i 0.639291i 8.253740i 0.638386i \\\n\
+  8.255551i 0.638386i 8.258268i 0.637480i 8.265512i 0.634764i 8.272756i 0.632047i \\\n\
+  8.275472i 0.630236i 8.277283i 0.629331i 8.280000i 0.628425i 8.285433i 0.623898i \\\n\
+  8.289961i 0.619370i 8.291772i 0.617559i 8.292677i 0.616654i 8.294488i 0.613937i \\\n\
+  8.295394i 0.609409i 8.295394i 0.606693i 8.295394i 0.603976i 8.295394i 0.603071i \\\n\
+  8.295394i 0.602165i 8.294488i 0.601260i 8.293583i 0.600354i 8.291772i 0.598543i \\\n\
+  8.289055i 0.596732i 8.283622i 0.594016i 8.280000i 0.594016i 8.278189i 0.593110i \\\n\
+  8.274567i 0.593110i 8.266417i 0.593110i 8.259173i 0.594016i 8.255551i 0.594016i \\\n\
+  8.253740i 0.594016i 8.250118i 0.594921i 8.243780i 0.597638i 8.237441i 0.600354i \\\n\
+  8.235630i 0.602165i 8.234724i 0.603071i 8.232913i 0.604882i 8.229291i 0.608504i \\\n\
+  8.225669i 0.611220i 8.224764i 0.612126i 8.223858i 0.613937i 8.222047i 0.616654i \\\n\
+  8.220236i 0.620276i 8.219331i 0.622087i 8.218425i 0.622992i 8.218425i 0.624803i \\\n\
+  8.218425i 0.628425i 8.219331i 0.631142i 8.219331i 0.632047i 8.219331i 0.632953i \\\n\
+  8.219331i 0.633858i 8.220236i 0.633858i 8.220236i 0.634764i 8.222047i 0.635669i \\\n\
+  8.224764i 0.637480i 8.229291i 0.639291i 8.232008i 0.640197i 8.233819i 0.640197i \\\n\
+  8.236535i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 8.243780i 0.640197i 8.251024i 0.639291i 8.253740i 0.638386i \\\n\
+  8.255551i 0.638386i 8.258268i 0.637480i 8.265512i 0.634764i 8.272756i 0.632047i \\\n\
+  8.275472i 0.630236i 8.277283i 0.629331i 8.280000i 0.628425i 8.285433i 0.623898i \\\n\
+  8.289961i 0.619370i 8.291772i 0.617559i 8.292677i 0.616654i 8.294488i 0.613937i \\\n\
+  8.295394i 0.609409i 8.295394i 0.606693i 8.295394i 0.603976i 8.295394i 0.603071i \\\n\
+  8.295394i 0.602165i 8.294488i 0.601260i 8.293583i 0.600354i 8.291772i 0.598543i \\\n\
+  8.289055i 0.596732i 8.283622i 0.594016i 8.280000i 0.594016i 8.278189i 0.593110i \\\n\
+  8.274567i 0.593110i 8.266417i 0.593110i 8.259173i 0.594016i 8.255551i 0.594016i \\\n\
+  8.253740i 0.594016i 8.250118i 0.594921i 8.243780i 0.597638i 8.237441i 0.600354i \\\n\
+  8.235630i 0.602165i 8.234724i 0.603071i 8.232913i 0.604882i 8.229291i 0.608504i \\\n\
+  8.225669i 0.611220i 8.224764i 0.612126i 8.223858i 0.613937i 8.222047i 0.616654i \\\n\
+  8.220236i 0.620276i 8.219331i 0.622087i 8.218425i 0.622992i 8.218425i 0.624803i \\\n\
+  8.218425i 0.628425i 8.219331i 0.631142i 8.219331i 0.632047i 8.219331i 0.632953i \\\n\
+  8.219331i 0.633858i 8.220236i 0.633858i 8.220236i 0.634764i 8.222047i 0.635669i \\\n\
+  8.224764i 0.637480i 8.229291i 0.639291i 8.232008i 0.640197i 8.233819i 0.640197i \\\n\
+  8.236535i 0.640197i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 8.290866i 0.441890i 8.291772i 0.447323i 8.292677i 0.449134i \\\n\
+  8.292677i 0.450039i 8.293583i 0.451850i 8.295394i 0.456378i 8.297205i 0.460000i \\\n\
+  8.298110i 0.460906i 8.302638i 0.464528i 8.308976i 0.469961i 8.312598i 0.472677i \\\n\
+  8.315315i 0.474488i 8.319843i 0.477205i 8.327992i 0.484449i 8.336142i 0.490787i \\\n\
+  8.339764i 0.493504i 8.340669i 0.494409i 8.344291i 0.498031i 8.349724i 0.504370i \\\n\
+  8.354252i 0.511614i 8.356063i 0.514331i 8.356063i 0.515236i 8.356969i 0.517953i \\\n\
+  8.358780i 0.525197i 8.359685i 0.532441i 8.359685i 0.535157i 8.358780i 0.538780i \\\n\
+  8.356969i 0.547835i 8.354252i 0.557795i 8.351535i 0.564134i 8.349724i 0.568661i \\\n\
+  8.347913i 0.572283i 8.345197i 0.577717i 8.342480i 0.584961i 8.342480i 0.585866i \\\n\
+  8.341575i 0.586772i 8.341575i 0.587677i 8.340669i 0.588583i 8.340669i 0.589488i \\\n\
+  8.340669i 0.590394i 8.339764i 0.590394i 8.339764i 0.589488i 8.340669i 0.588583i \\\n\
+  8.340669i 0.587677i 8.340669i 0.586772i 8.341575i 0.585866i 8.341575i 0.584961i \\\n\
+  8.343386i 0.578622i 8.345197i 0.574094i 8.347008i 0.570472i 8.348819i 0.566850i \\\n\
+  8.350630i 0.561417i 8.353346i 0.553268i 8.355157i 0.545118i 8.356063i 0.542402i \\\n\
+  8.356969i 0.542402i 8.356969i 0.539685i 8.356063i 0.532441i 8.353346i 0.524291i \\\n\
+  8.352441i 0.520669i 8.351535i 0.519764i 8.349724i 0.516142i 8.343386i 0.507992i \\\n\
+  8.337047i 0.501654i 8.333425i 0.498031i 8.331614i 0.496220i 8.328898i 0.495315i \\\n\
+  8.325276i 0.492598i 8.317126i 0.487165i 8.308071i 0.481732i 8.303543i 0.479921i \\\n\
+  8.300827i 0.479016i 8.297205i 0.477205i 8.290866i 0.474488i 8.289961i 0.474488i \\\n\
+  8.289055i 0.473583i 8.288150i 0.473583i 8.287244i 0.473583i 8.286339i 0.474488i \\\n\
+  8.286339i 0.475394i 8.287244i 0.476299i 8.287244i 0.477205i 8.287244i 0.478110i \\\n\
+  8.287244i 0.479016i 8.288150i 0.479016i 8.288150i 0.479921i 8.288150i 0.480827i \\\n\
+  8.288150i 0.479921i 8.288150i 0.479016i 8.288150i 0.478110i 8.288150i 0.477205i \\\n\
+  8.288150i 0.475394i 8.288150i 0.474488i 8.288150i 0.464528i 8.288150i 0.455472i \\\n\
+  8.289055i 0.447323i 8.289055i 0.440079i 8.289055i 0.431929i 8.289961i 0.423780i \\\n\
+  8.289961i 0.421969i 8.289961i 0.424685i 8.289961i 0.430118i 8.289961i 0.435551i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 8.290866i 0.441890i 8.291772i 0.447323i 8.292677i 0.449134i \\\n\
+  8.292677i 0.450039i 8.293583i 0.451850i 8.295394i 0.456378i 8.297205i 0.460000i \\\n\
+  8.298110i 0.460906i 8.302638i 0.464528i 8.308976i 0.469961i 8.312598i 0.472677i \\\n\
+  8.315315i 0.474488i 8.319843i 0.477205i 8.327992i 0.484449i 8.336142i 0.490787i \\\n\
+  8.339764i 0.493504i 8.340669i 0.494409i 8.344291i 0.498031i 8.349724i 0.504370i \\\n\
+  8.354252i 0.511614i 8.356063i 0.514331i 8.356063i 0.515236i 8.356969i 0.517953i \\\n\
+  8.358780i 0.525197i 8.359685i 0.532441i 8.359685i 0.535157i 8.358780i 0.538780i \\\n\
+  8.356969i 0.547835i 8.354252i 0.557795i 8.351535i 0.564134i 8.349724i 0.568661i \\\n\
+  8.347913i 0.572283i 8.345197i 0.577717i 8.342480i 0.584961i 8.342480i 0.585866i \\\n\
+  8.341575i 0.586772i 8.341575i 0.587677i 8.340669i 0.588583i 8.340669i 0.589488i \\\n\
+  8.340669i 0.590394i 8.339764i 0.590394i 8.339764i 0.589488i 8.340669i 0.588583i \\\n\
+  8.340669i 0.587677i 8.340669i 0.586772i 8.341575i 0.585866i 8.341575i 0.584961i \\\n\
+  8.343386i 0.578622i 8.345197i 0.574094i 8.347008i 0.570472i 8.348819i 0.566850i \\\n\
+  8.350630i 0.561417i 8.353346i 0.553268i 8.355157i 0.545118i 8.356063i 0.542402i \\\n\
+  8.356969i 0.542402i 8.356969i 0.539685i 8.356063i 0.532441i 8.353346i 0.524291i \\\n\
+  8.352441i 0.520669i 8.351535i 0.519764i 8.349724i 0.516142i 8.343386i 0.507992i \\\n\
+  8.337047i 0.501654i 8.333425i 0.498031i 8.331614i 0.496220i 8.328898i 0.495315i \\\n\
+  8.325276i 0.492598i 8.317126i 0.487165i 8.308071i 0.481732i 8.303543i 0.479921i \\\n\
+  8.300827i 0.479016i 8.297205i 0.477205i 8.290866i 0.474488i 8.289961i 0.474488i \\\n\
+  8.289055i 0.473583i 8.288150i 0.473583i 8.287244i 0.473583i 8.286339i 0.474488i \\\n\
+  8.286339i 0.475394i 8.287244i 0.476299i 8.287244i 0.477205i 8.287244i 0.478110i \\\n\
+  8.287244i 0.479016i 8.288150i 0.479016i 8.288150i 0.479921i 8.288150i 0.480827i \\\n\
+  8.288150i 0.479921i 8.288150i 0.479016i 8.288150i 0.478110i 8.288150i 0.477205i \\\n\
+  8.288150i 0.475394i 8.288150i 0.474488i 8.288150i 0.464528i 8.288150i 0.455472i \\\n\
+  8.289055i 0.447323i 8.289055i 0.440079i 8.289055i 0.431929i 8.289961i 0.423780i \\\n\
+  8.289961i 0.421969i 8.289961i 0.424685i 8.289961i 0.430118i 8.289961i 0.435551i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 9.045157i 0.422874i 9.045157i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 9.002598i 0.640197i 9.009843i 0.639291i 9.012559i 0.638386i \\\n\
+  9.014370i 0.638386i 9.017087i 0.637480i 9.024331i 0.634764i 9.031575i 0.632047i \\\n\
+  9.034291i 0.630236i 9.036102i 0.629331i 9.038819i 0.628425i 9.044252i 0.623898i \\\n\
+  9.048780i 0.619370i 9.050591i 0.617559i 9.051496i 0.616654i 9.053307i 0.613937i \\\n\
+  9.054213i 0.609409i 9.054213i 0.606693i 9.054213i 0.603976i 9.054213i 0.603071i \\\n\
+  9.054213i 0.602165i 9.053307i 0.601260i 9.052402i 0.600354i 9.050591i 0.598543i \\\n\
+  9.047874i 0.596732i 9.042441i 0.594016i 9.038819i 0.594016i 9.037008i 0.593110i \\\n\
+  9.033386i 0.593110i 9.025236i 0.593110i 9.017992i 0.594016i 9.014370i 0.594016i \\\n\
+  9.012559i 0.594016i 9.008937i 0.594921i 9.002598i 0.597638i 8.996260i 0.600354i \\\n\
+  8.994449i 0.602165i 8.993543i 0.603071i 8.991732i 0.604882i 8.988110i 0.608504i \\\n\
+  8.984488i 0.611220i 8.983583i 0.612126i 8.982677i 0.613937i 8.980866i 0.616654i \\\n\
+  8.979055i 0.620276i 8.978150i 0.622087i 8.977244i 0.622992i 8.977244i 0.624803i \\\n\
+  8.977244i 0.628425i 8.978150i 0.631142i 8.979055i 0.632953i 8.979055i 0.633858i \\\n\
+  8.979961i 0.633858i 8.980866i 0.635669i 8.984488i 0.637480i 8.989016i 0.639291i \\\n\
+  8.991732i 0.640197i 8.992638i 0.640197i 8.996260i 0.640197i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 9.002598i 0.640197i 9.009843i 0.639291i 9.012559i 0.638386i \\\n\
+  9.014370i 0.638386i 9.017087i 0.637480i 9.024331i 0.634764i 9.031575i 0.632047i \\\n\
+  9.034291i 0.630236i 9.036102i 0.629331i 9.038819i 0.628425i 9.044252i 0.623898i \\\n\
+  9.048780i 0.619370i 9.050591i 0.617559i 9.051496i 0.616654i 9.053307i 0.613937i \\\n\
+  9.054213i 0.609409i 9.054213i 0.606693i 9.054213i 0.603976i 9.054213i 0.603071i \\\n\
+  9.054213i 0.602165i 9.053307i 0.601260i 9.052402i 0.600354i 9.050591i 0.598543i \\\n\
+  9.047874i 0.596732i 9.042441i 0.594016i 9.038819i 0.594016i 9.037008i 0.593110i \\\n\
+  9.033386i 0.593110i 9.025236i 0.593110i 9.017992i 0.594016i 9.014370i 0.594016i \\\n\
+  9.012559i 0.594016i 9.008937i 0.594921i 9.002598i 0.597638i 8.996260i 0.600354i \\\n\
+  8.994449i 0.602165i 8.993543i 0.603071i 8.991732i 0.604882i 8.988110i 0.608504i \\\n\
+  8.984488i 0.611220i 8.983583i 0.612126i 8.982677i 0.613937i 8.980866i 0.616654i \\\n\
+  8.979055i 0.620276i 8.978150i 0.622087i 8.977244i 0.622992i 8.977244i 0.624803i \\\n\
+  8.977244i 0.628425i 8.978150i 0.631142i 8.979055i 0.632953i 8.979055i 0.633858i \\\n\
+  8.979961i 0.633858i 8.980866i 0.635669i 8.984488i 0.637480i 8.989016i 0.639291i \\\n\
+  8.991732i 0.640197i 8.992638i 0.640197i 8.996260i 0.640197i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 9.050591i 0.441890i 9.051496i 0.447323i 9.051496i 0.449134i \\\n\
+  9.051496i 0.450039i 9.052402i 0.451850i 9.054213i 0.456378i 9.056024i 0.460000i \\\n\
+  9.056929i 0.460000i 9.057835i 0.460906i 9.062362i 0.464528i 9.068701i 0.469961i \\\n\
+  9.072323i 0.472677i 9.075039i 0.474488i 9.078661i 0.477205i 9.086811i 0.484449i \\\n\
+  9.094961i 0.490787i 9.097677i 0.493504i 9.099488i 0.494409i 9.102205i 0.498031i \\\n\
+  9.108543i 0.504370i 9.113976i 0.511614i 9.115787i 0.514331i 9.115787i 0.515236i \\\n\
+  9.117598i 0.517953i 9.119409i 0.525197i 9.120315i 0.532441i 9.120315i 0.535157i \\\n\
+  9.120315i 0.538780i 9.117598i 0.547835i 9.114882i 0.557795i 9.112165i 0.564134i \\\n\
+  9.109449i 0.568661i 9.107638i 0.572283i 9.104921i 0.577717i 9.102205i 0.584961i \\\n\
+  9.102205i 0.585866i 9.101299i 0.586772i 9.101299i 0.587677i 9.100394i 0.587677i \\\n\
+  9.100394i 0.588583i 9.100394i 0.589488i 9.099488i 0.589488i 9.099488i 0.590394i \\\n\
+  9.098583i 0.590394i 9.098583i 0.589488i 9.099488i 0.588583i 9.099488i 0.587677i \\\n\
+  9.099488i 0.586772i 9.100394i 0.585866i 9.100394i 0.584961i 9.103110i 0.578622i \\\n\
+  9.104921i 0.574094i 9.106732i 0.570472i 9.108543i 0.566850i 9.111260i 0.561417i \\\n\
+  9.113976i 0.553268i 9.116693i 0.546024i 9.117598i 0.542402i 9.118504i 0.542402i \\\n\
+  9.118504i 0.541496i 9.118504i 0.538780i 9.117598i 0.532441i 9.114882i 0.524291i \\\n\
+  9.113071i 0.520669i 9.111260i 0.519764i 9.108543i 0.516142i 9.102205i 0.507992i \\\n\
+  9.095866i 0.501654i 9.092244i 0.498031i 9.090433i 0.496220i 9.088622i 0.495315i \\\n\
+  9.084094i 0.492598i 9.076850i 0.487165i 9.067795i 0.481732i 9.063268i 0.479921i \\\n\
+  9.060551i 0.479016i 9.056929i 0.477205i 9.050591i 0.474488i 9.049685i 0.474488i \\\n\
+  9.048780i 0.473583i 9.047874i 0.473583i 9.046969i 0.473583i 9.046063i 0.473583i \\\n\
+  9.046063i 0.474488i 9.046063i 0.475394i 9.046063i 0.476299i 9.046063i 0.477205i \\\n\
+  9.046063i 0.478110i 9.046969i 0.479016i 9.046969i 0.479921i 9.046969i 0.480827i \\\n\
+  9.046969i 0.479921i 9.046969i 0.479016i 9.046969i 0.478110i 9.046969i 0.477205i \\\n\
+  9.046969i 0.475394i 9.046969i 0.474488i 9.046969i 0.464528i 9.047874i 0.455472i \\\n\
+  9.047874i 0.447323i 9.048780i 0.440079i 9.048780i 0.431929i 9.049685i 0.423780i \\\n\
+  9.050591i 0.421969i 9.050591i 0.424685i 9.049685i 0.430118i 9.049685i 0.435551i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 9.050591i 0.441890i 9.051496i 0.447323i 9.051496i 0.449134i \\\n\
+  9.051496i 0.450039i 9.052402i 0.451850i 9.054213i 0.456378i 9.056024i 0.460000i \\\n\
+  9.056929i 0.460000i 9.057835i 0.460906i 9.062362i 0.464528i 9.068701i 0.469961i \\\n\
+  9.072323i 0.472677i 9.075039i 0.474488i 9.078661i 0.477205i 9.086811i 0.484449i \\\n\
+  9.094961i 0.490787i 9.097677i 0.493504i 9.099488i 0.494409i 9.102205i 0.498031i \\\n\
+  9.108543i 0.504370i 9.113976i 0.511614i 9.115787i 0.514331i 9.115787i 0.515236i \\\n\
+  9.117598i 0.517953i 9.119409i 0.525197i 9.120315i 0.532441i 9.120315i 0.535157i \\\n\
+  9.120315i 0.538780i 9.117598i 0.547835i 9.114882i 0.557795i 9.112165i 0.564134i \\\n\
+  9.109449i 0.568661i 9.107638i 0.572283i 9.104921i 0.577717i 9.102205i 0.584961i \\\n\
+  9.102205i 0.585866i 9.101299i 0.586772i 9.101299i 0.587677i 9.100394i 0.587677i \\\n\
+  9.100394i 0.588583i 9.100394i 0.589488i 9.099488i 0.589488i 9.099488i 0.590394i \\\n\
+  9.098583i 0.590394i 9.098583i 0.589488i 9.099488i 0.588583i 9.099488i 0.587677i \\\n\
+  9.099488i 0.586772i 9.100394i 0.585866i 9.100394i 0.584961i 9.103110i 0.578622i \\\n\
+  9.104921i 0.574094i 9.106732i 0.570472i 9.108543i 0.566850i 9.111260i 0.561417i \\\n\
+  9.113976i 0.553268i 9.116693i 0.546024i 9.117598i 0.542402i 9.118504i 0.542402i \\\n\
+  9.118504i 0.541496i 9.118504i 0.538780i 9.117598i 0.532441i 9.114882i 0.524291i \\\n\
+  9.113071i 0.520669i 9.111260i 0.519764i 9.108543i 0.516142i 9.102205i 0.507992i \\\n\
+  9.095866i 0.501654i 9.092244i 0.498031i 9.090433i 0.496220i 9.088622i 0.495315i \\\n\
+  9.084094i 0.492598i 9.076850i 0.487165i 9.067795i 0.481732i 9.063268i 0.479921i \\\n\
+  9.060551i 0.479016i 9.056929i 0.477205i 9.050591i 0.474488i 9.049685i 0.474488i \\\n\
+  9.048780i 0.473583i 9.047874i 0.473583i 9.046969i 0.473583i 9.046063i 0.473583i \\\n\
+  9.046063i 0.474488i 9.046063i 0.475394i 9.046063i 0.476299i 9.046063i 0.477205i \\\n\
+  9.046063i 0.478110i 9.046969i 0.479016i 9.046969i 0.479921i 9.046969i 0.480827i \\\n\
+  9.046969i 0.479921i 9.046969i 0.479016i 9.046969i 0.478110i 9.046969i 0.477205i \\\n\
+  9.046969i 0.475394i 9.046969i 0.474488i 9.046969i 0.464528i 9.047874i 0.455472i \\\n\
+  9.047874i 0.447323i 9.048780i 0.440079i 9.048780i 0.431929i 9.049685i 0.423780i \\\n\
+  9.050591i 0.421969i 9.050591i 0.424685i 9.049685i 0.430118i 9.049685i 0.435551i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 9.047874i 1.060354i 9.047874i 1.264094i -fill $tkxox(score_active_note)\n\
+${score} create polygon 9.004409i 1.306654i 9.011654i 1.305748i 9.014370i 1.305748i \\\n\
+  9.016181i 1.304843i 9.018898i 1.303937i 9.026142i 1.301220i 9.033386i 1.297598i \\\n\
+  9.036102i 1.295787i 9.037913i 1.295787i 9.040630i 1.293071i 9.046063i 1.288543i \\\n\
+  9.051496i 1.283110i 9.053307i 1.281299i 9.055118i 1.280394i 9.056024i 1.277677i \\\n\
+  9.057835i 1.272244i 9.057835i 1.268622i 9.057835i 1.265906i 9.056929i 1.265000i \\\n\
+  9.056929i 1.264094i 9.056929i 1.263189i 9.056024i 1.262283i 9.053307i 1.260472i \\\n\
+  9.050591i 1.257756i 9.045157i 1.255039i 9.041535i 1.253228i 9.039724i 1.253228i \\\n\
+  9.036102i 1.252323i 9.027953i 1.252323i 9.019803i 1.253228i 9.016181i 1.254134i \\\n\
+  9.015276i 1.255039i 9.011654i 1.256850i 9.004409i 1.259567i 8.998071i 1.262283i \\\n\
+  8.995354i 1.263189i 8.994449i 1.264094i 8.992638i 1.265906i 8.988110i 1.268622i \\\n\
+  8.984488i 1.272244i 8.983583i 1.273150i 8.982677i 1.274961i 8.980866i 1.278583i \\\n\
+  8.979055i 1.283110i 8.978150i 1.284921i 8.977244i 1.286732i 8.977244i 1.288543i \\\n\
+  8.977244i 1.293071i 8.978150i 1.297598i 8.979055i 1.299409i 8.979055i 1.300315i \\\n\
+  8.980866i 1.301220i 8.984488i 1.303937i 8.989921i 1.305748i 8.992638i 1.306654i \\\n\
+  8.994449i 1.306654i 8.997165i 1.306654i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 9.004409i 1.306654i 9.011654i 1.305748i 9.014370i 1.305748i \\\n\
+  9.016181i 1.304843i 9.018898i 1.303937i 9.026142i 1.301220i 9.033386i 1.297598i \\\n\
+  9.036102i 1.295787i 9.037913i 1.295787i 9.040630i 1.293071i 9.046063i 1.288543i \\\n\
+  9.051496i 1.283110i 9.053307i 1.281299i 9.055118i 1.280394i 9.056024i 1.277677i \\\n\
+  9.057835i 1.272244i 9.057835i 1.268622i 9.057835i 1.265906i 9.056929i 1.265000i \\\n\
+  9.056929i 1.264094i 9.056929i 1.263189i 9.056024i 1.262283i 9.053307i 1.260472i \\\n\
+  9.050591i 1.257756i 9.045157i 1.255039i 9.041535i 1.253228i 9.039724i 1.253228i \\\n\
+  9.036102i 1.252323i 9.027953i 1.252323i 9.019803i 1.253228i 9.016181i 1.254134i \\\n\
+  9.015276i 1.255039i 9.011654i 1.256850i 9.004409i 1.259567i 8.998071i 1.262283i \\\n\
+  8.995354i 1.263189i 8.994449i 1.264094i 8.992638i 1.265906i 8.988110i 1.268622i \\\n\
+  8.984488i 1.272244i 8.983583i 1.273150i 8.982677i 1.274961i 8.980866i 1.278583i \\\n\
+  8.979055i 1.283110i 8.978150i 1.284921i 8.977244i 1.286732i 8.977244i 1.288543i \\\n\
+  8.977244i 1.293071i 8.978150i 1.297598i 8.979055i 1.299409i 8.979055i 1.300315i \\\n\
+  8.980866i 1.301220i 8.984488i 1.303937i 8.989921i 1.305748i 8.992638i 1.306654i \\\n\
+  8.994449i 1.306654i 8.997165i 1.306654i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 9.651850i 0.422874i 9.651850i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 9.609291i 0.640197i 9.616535i 0.639291i 9.619252i 0.638386i \\\n\
+  9.621063i 0.638386i 9.623780i 0.637480i 9.631024i 0.634764i 9.638268i 0.632047i \\\n\
+  9.640984i 0.630236i 9.642795i 0.629331i 9.645512i 0.628425i 9.650945i 0.623898i \\\n\
+  9.655472i 0.619370i 9.657283i 0.617559i 9.658189i 0.616654i 9.660000i 0.613937i \\\n\
+  9.660906i 0.609409i 9.660906i 0.606693i 9.660906i 0.603976i 9.660906i 0.603071i \\\n\
+  9.660906i 0.602165i 9.660000i 0.601260i 9.659094i 0.600354i 9.657283i 0.598543i \\\n\
+  9.654567i 0.596732i 9.649134i 0.594016i 9.645512i 0.594016i 9.643701i 0.593110i \\\n\
+  9.640079i 0.593110i 9.631929i 0.593110i 9.624685i 0.594016i 9.621063i 0.594016i \\\n\
+  9.619252i 0.594016i 9.615630i 0.594921i 9.609291i 0.597638i 9.602953i 0.600354i \\\n\
+  9.601142i 0.602165i 9.600236i 0.603071i 9.598425i 0.604882i 9.594803i 0.608504i \\\n\
+  9.591181i 0.611220i 9.590276i 0.612126i 9.589370i 0.613937i 9.587559i 0.616654i \\\n\
+  9.585748i 0.620276i 9.584843i 0.622087i 9.583937i 0.622992i 9.583937i 0.624803i \\\n\
+  9.583937i 0.628425i 9.584843i 0.631142i 9.584843i 0.632047i 9.584843i 0.632953i \\\n\
+  9.584843i 0.633858i 9.585748i 0.633858i 9.585748i 0.634764i 9.587559i 0.635669i \\\n\
+  9.590276i 0.637480i 9.594803i 0.639291i 9.597520i 0.640197i 9.599331i 0.640197i \\\n\
+  9.602047i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 9.609291i 0.640197i 9.616535i 0.639291i 9.619252i 0.638386i \\\n\
+  9.621063i 0.638386i 9.623780i 0.637480i 9.631024i 0.634764i 9.638268i 0.632047i \\\n\
+  9.640984i 0.630236i 9.642795i 0.629331i 9.645512i 0.628425i 9.650945i 0.623898i \\\n\
+  9.655472i 0.619370i 9.657283i 0.617559i 9.658189i 0.616654i 9.660000i 0.613937i \\\n\
+  9.660906i 0.609409i 9.660906i 0.606693i 9.660906i 0.603976i 9.660906i 0.603071i \\\n\
+  9.660906i 0.602165i 9.660000i 0.601260i 9.659094i 0.600354i 9.657283i 0.598543i \\\n\
+  9.654567i 0.596732i 9.649134i 0.594016i 9.645512i 0.594016i 9.643701i 0.593110i \\\n\
+  9.640079i 0.593110i 9.631929i 0.593110i 9.624685i 0.594016i 9.621063i 0.594016i \\\n\
+  9.619252i 0.594016i 9.615630i 0.594921i 9.609291i 0.597638i 9.602953i 0.600354i \\\n\
+  9.601142i 0.602165i 9.600236i 0.603071i 9.598425i 0.604882i 9.594803i 0.608504i \\\n\
+  9.591181i 0.611220i 9.590276i 0.612126i 9.589370i 0.613937i 9.587559i 0.616654i \\\n\
+  9.585748i 0.620276i 9.584843i 0.622087i 9.583937i 0.622992i 9.583937i 0.624803i \\\n\
+  9.583937i 0.628425i 9.584843i 0.631142i 9.584843i 0.632047i 9.584843i 0.632953i \\\n\
+  9.584843i 0.633858i 9.585748i 0.633858i 9.585748i 0.634764i 9.587559i 0.635669i \\\n\
+  9.590276i 0.637480i 9.594803i 0.639291i 9.597520i 0.640197i 9.599331i 0.640197i \\\n\
+  9.602047i 0.640197i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 9.656378i 0.441890i 9.657283i 0.447323i 9.658189i 0.449134i \\\n\
+  9.658189i 0.450039i 9.659094i 0.451850i 9.660906i 0.456378i 9.662717i 0.460000i \\\n\
+  9.663622i 0.460906i 9.668150i 0.464528i 9.674488i 0.469961i 9.678110i 0.472677i \\\n\
+  9.680827i 0.474488i 9.685354i 0.477205i 9.693504i 0.484449i 9.701654i 0.490787i \\\n\
+  9.705276i 0.493504i 9.706181i 0.494409i 9.709803i 0.498031i 9.715236i 0.504370i \\\n\
+  9.719764i 0.511614i 9.721575i 0.514331i 9.721575i 0.515236i 9.722480i 0.517953i \\\n\
+  9.724291i 0.525197i 9.725197i 0.532441i 9.725197i 0.535157i 9.724291i 0.538780i \\\n\
+  9.722480i 0.547835i 9.719764i 0.557795i 9.717047i 0.564134i 9.715236i 0.568661i \\\n\
+  9.713425i 0.572283i 9.710709i 0.577717i 9.707992i 0.584961i 9.707992i 0.585866i \\\n\
+  9.707087i 0.586772i 9.707087i 0.587677i 9.706181i 0.588583i 9.706181i 0.589488i \\\n\
+  9.706181i 0.590394i 9.705276i 0.590394i 9.705276i 0.589488i 9.706181i 0.588583i \\\n\
+  9.706181i 0.587677i 9.706181i 0.586772i 9.707087i 0.585866i 9.707087i 0.584961i \\\n\
+  9.708898i 0.578622i 9.710709i 0.574094i 9.712520i 0.570472i 9.714331i 0.566850i \\\n\
+  9.716142i 0.561417i 9.718858i 0.553268i 9.720669i 0.545118i 9.721575i 0.542402i \\\n\
+  9.722480i 0.542402i 9.722480i 0.539685i 9.721575i 0.532441i 9.718858i 0.524291i \\\n\
+  9.717953i 0.520669i 9.717047i 0.519764i 9.715236i 0.516142i 9.708898i 0.507992i \\\n\
+  9.702559i 0.501654i 9.698937i 0.498031i 9.697126i 0.496220i 9.694409i 0.495315i \\\n\
+  9.690787i 0.492598i 9.682638i 0.487165i 9.673583i 0.481732i 9.669055i 0.479921i \\\n\
+  9.666339i 0.479016i 9.662717i 0.477205i 9.656378i 0.474488i 9.655472i 0.474488i \\\n\
+  9.654567i 0.473583i 9.653661i 0.473583i 9.652756i 0.473583i 9.651850i 0.474488i \\\n\
+  9.651850i 0.475394i 9.652756i 0.476299i 9.652756i 0.477205i 9.652756i 0.478110i \\\n\
+  9.652756i 0.479016i 9.653661i 0.479016i 9.653661i 0.479921i 9.653661i 0.480827i \\\n\
+  9.653661i 0.479921i 9.653661i 0.479016i 9.653661i 0.478110i 9.653661i 0.477205i \\\n\
+  9.653661i 0.475394i 9.653661i 0.474488i 9.653661i 0.464528i 9.653661i 0.455472i \\\n\
+  9.654567i 0.447323i 9.654567i 0.440079i 9.654567i 0.431929i 9.655472i 0.423780i \\\n\
+  9.655472i 0.421969i 9.655472i 0.424685i 9.655472i 0.430118i 9.655472i 0.435551i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 9.656378i 0.441890i 9.657283i 0.447323i 9.658189i 0.449134i \\\n\
+  9.658189i 0.450039i 9.659094i 0.451850i 9.660906i 0.456378i 9.662717i 0.460000i \\\n\
+  9.663622i 0.460906i 9.668150i 0.464528i 9.674488i 0.469961i 9.678110i 0.472677i \\\n\
+  9.680827i 0.474488i 9.685354i 0.477205i 9.693504i 0.484449i 9.701654i 0.490787i \\\n\
+  9.705276i 0.493504i 9.706181i 0.494409i 9.709803i 0.498031i 9.715236i 0.504370i \\\n\
+  9.719764i 0.511614i 9.721575i 0.514331i 9.721575i 0.515236i 9.722480i 0.517953i \\\n\
+  9.724291i 0.525197i 9.725197i 0.532441i 9.725197i 0.535157i 9.724291i 0.538780i \\\n\
+  9.722480i 0.547835i 9.719764i 0.557795i 9.717047i 0.564134i 9.715236i 0.568661i \\\n\
+  9.713425i 0.572283i 9.710709i 0.577717i 9.707992i 0.584961i 9.707992i 0.585866i \\\n\
+  9.707087i 0.586772i 9.707087i 0.587677i 9.706181i 0.588583i 9.706181i 0.589488i \\\n\
+  9.706181i 0.590394i 9.705276i 0.590394i 9.705276i 0.589488i 9.706181i 0.588583i \\\n\
+  9.706181i 0.587677i 9.706181i 0.586772i 9.707087i 0.585866i 9.707087i 0.584961i \\\n\
+  9.708898i 0.578622i 9.710709i 0.574094i 9.712520i 0.570472i 9.714331i 0.566850i \\\n\
+  9.716142i 0.561417i 9.718858i 0.553268i 9.720669i 0.545118i 9.721575i 0.542402i \\\n\
+  9.722480i 0.542402i 9.722480i 0.539685i 9.721575i 0.532441i 9.718858i 0.524291i \\\n\
+  9.717953i 0.520669i 9.717047i 0.519764i 9.715236i 0.516142i 9.708898i 0.507992i \\\n\
+  9.702559i 0.501654i 9.698937i 0.498031i 9.697126i 0.496220i 9.694409i 0.495315i \\\n\
+  9.690787i 0.492598i 9.682638i 0.487165i 9.673583i 0.481732i 9.669055i 0.479921i \\\n\
+  9.666339i 0.479016i 9.662717i 0.477205i 9.656378i 0.474488i 9.655472i 0.474488i \\\n\
+  9.654567i 0.473583i 9.653661i 0.473583i 9.652756i 0.473583i 9.651850i 0.474488i \\\n\
+  9.651850i 0.475394i 9.652756i 0.476299i 9.652756i 0.477205i 9.652756i 0.478110i \\\n\
+  9.652756i 0.479016i 9.653661i 0.479016i 9.653661i 0.479921i 9.653661i 0.480827i \\\n\
+  9.653661i 0.479921i 9.653661i 0.479016i 9.653661i 0.478110i 9.653661i 0.477205i \\\n\
+  9.653661i 0.475394i 9.653661i 0.474488i 9.653661i 0.464528i 9.653661i 0.455472i \\\n\
+  9.654567i 0.447323i 9.654567i 0.440079i 9.654567i 0.431929i 9.655472i 0.423780i \\\n\
+  9.655472i 0.421969i 9.655472i 0.424685i 9.655472i 0.430118i 9.655472i 0.435551i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 5.032835i 0.086024i 5.032835i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 4.991181i 0.301535i 4.998425i 0.300630i 5.001142i 0.300630i \\\n\
+  5.002953i 0.300630i 5.005669i 0.299724i 5.012913i 0.297913i 5.020157i 0.295197i \\\n\
+  5.022874i 0.293386i 5.024685i 0.293386i 5.027402i 0.291575i 5.032835i 0.287047i \\\n\
+  5.037362i 0.282520i 5.039173i 0.280709i 5.040079i 0.279803i 5.041890i 0.277087i \\\n\
+  5.042795i 0.272559i 5.042795i 0.269843i 5.042795i 0.267126i 5.041890i 0.266220i \\\n\
+  5.041890i 0.265315i 5.040984i 0.264409i 5.040079i 0.263504i 5.038268i 0.261693i \\\n\
+  5.035551i 0.259882i 5.030118i 0.257165i 5.026496i 0.256260i 5.024685i 0.256260i \\\n\
+  5.021063i 0.255354i 5.013819i 0.255354i 5.006575i 0.256260i 5.002953i 0.256260i \\\n\
+  5.001142i 0.257165i 4.997520i 0.258071i 4.991181i 0.260787i 4.985748i 0.263504i \\\n\
+  4.983031i 0.265315i 4.982126i 0.266220i 4.980315i 0.268031i 4.976693i 0.271654i \\\n\
+  4.973071i 0.274370i 4.972165i 0.275276i 4.971260i 0.275276i 4.970354i 0.276181i \\\n\
+  4.968543i 0.278898i 4.966732i 0.282520i 4.965827i 0.284331i 4.965827i 0.285236i \\\n\
+  4.965827i 0.287047i 4.965827i 0.290669i 4.966732i 0.294291i 4.966732i 0.296102i \\\n\
+  4.967638i 0.297008i 4.968543i 0.298819i 4.972165i 0.300630i 4.976693i 0.302441i \\\n\
+  4.979409i 0.302441i 4.981220i 0.302441i 4.983937i 0.301535i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 4.991181i 0.301535i 4.998425i 0.300630i 5.001142i 0.300630i \\\n\
+  5.002953i 0.300630i 5.005669i 0.299724i 5.012913i 0.297913i 5.020157i 0.295197i \\\n\
+  5.022874i 0.293386i 5.024685i 0.293386i 5.027402i 0.291575i 5.032835i 0.287047i \\\n\
+  5.037362i 0.282520i 5.039173i 0.280709i 5.040079i 0.279803i 5.041890i 0.277087i \\\n\
+  5.042795i 0.272559i 5.042795i 0.269843i 5.042795i 0.267126i 5.041890i 0.266220i \\\n\
+  5.041890i 0.265315i 5.040984i 0.264409i 5.040079i 0.263504i 5.038268i 0.261693i \\\n\
+  5.035551i 0.259882i 5.030118i 0.257165i 5.026496i 0.256260i 5.024685i 0.256260i \\\n\
+  5.021063i 0.255354i 5.013819i 0.255354i 5.006575i 0.256260i 5.002953i 0.256260i \\\n\
+  5.001142i 0.257165i 4.997520i 0.258071i 4.991181i 0.260787i 4.985748i 0.263504i \\\n\
+  4.983031i 0.265315i 4.982126i 0.266220i 4.980315i 0.268031i 4.976693i 0.271654i \\\n\
+  4.973071i 0.274370i 4.972165i 0.275276i 4.971260i 0.275276i 4.970354i 0.276181i \\\n\
+  4.968543i 0.278898i 4.966732i 0.282520i 4.965827i 0.284331i 4.965827i 0.285236i \\\n\
+  4.965827i 0.287047i 4.965827i 0.290669i 4.966732i 0.294291i 4.966732i 0.296102i \\\n\
+  4.967638i 0.297008i 4.968543i 0.298819i 4.972165i 0.300630i 4.976693i 0.302441i \\\n\
+  4.979409i 0.302441i 4.981220i 0.302441i 4.983937i 0.301535i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 5.038268i 0.104134i 5.039173i 0.109567i 5.040079i 0.111378i \\\n\
+  5.040079i 0.112283i 5.040984i 0.114094i 5.042795i 0.118622i 5.044606i 0.122244i \\\n\
+  5.044606i 0.123150i 5.044606i 0.122244i 5.045512i 0.123150i 5.050039i 0.127677i \\\n\
+  5.056378i 0.133110i 5.060000i 0.135827i 5.061811i 0.137638i 5.066339i 0.140354i \\\n\
+  5.074488i 0.147598i 5.082638i 0.153937i 5.087165i 0.157559i 5.088976i 0.158465i \\\n\
+  5.092598i 0.161181i 5.098937i 0.167520i 5.103465i 0.173858i 5.105276i 0.175669i \\\n\
+  5.105276i 0.176575i 5.106181i 0.179291i 5.107992i 0.185630i 5.108898i 0.192874i \\\n\
+  5.108898i 0.195591i 5.108898i 0.196496i 5.108898i 0.200118i 5.106181i 0.210079i \\\n\
+  5.102559i 0.220039i 5.099843i 0.226378i 5.098031i 0.230906i 5.096220i 0.234528i \\\n\
+  5.093504i 0.239961i 5.089882i 0.247205i 5.088976i 0.248110i 5.088976i 0.249016i \\\n\
+  5.088976i 0.249921i 5.088071i 0.249921i 5.088071i 0.250827i 5.088071i 0.251732i \\\n\
+  5.087165i 0.251732i 5.087165i 0.252638i 5.086260i 0.252638i 5.086260i 0.251732i \\\n\
+  5.087165i 0.250827i 5.087165i 0.249921i 5.087165i 0.249016i 5.088071i 0.248110i \\\n\
+  5.088071i 0.247205i 5.090787i 0.241772i 5.092598i 0.237244i 5.094409i 0.233622i \\\n\
+  5.096220i 0.230000i 5.098937i 0.224567i 5.101654i 0.216417i 5.104370i 0.208268i \\\n\
+  5.105276i 0.204646i 5.106181i 0.203740i 5.106181i 0.201024i 5.105276i 0.193780i \\\n\
+  5.102559i 0.186535i 5.100748i 0.182913i 5.099843i 0.182008i 5.097126i 0.178386i \\\n\
+  5.090787i 0.171142i 5.084449i 0.164803i 5.080827i 0.161181i 5.079016i 0.160276i \\\n\
+  5.076299i 0.158465i 5.072677i 0.155748i 5.064528i 0.150315i 5.055472i 0.144882i \\\n\
+  5.050945i 0.142165i 5.048228i 0.141260i 5.044606i 0.139449i 5.038268i 0.136732i \\\n\
+  5.037362i 0.136732i 5.036457i 0.135827i 5.035551i 0.135827i 5.034646i 0.135827i \\\n\
+  5.033740i 0.135827i 5.033740i 0.136732i 5.033740i 0.137638i 5.033740i 0.138543i \\\n\
+  5.033740i 0.139449i 5.033740i 0.140354i 5.034646i 0.140354i 5.034646i 0.141260i \\\n\
+  5.034646i 0.142165i 5.034646i 0.141260i 5.034646i 0.140354i 5.034646i 0.139449i \\\n\
+  5.034646i 0.137638i 5.034646i 0.136732i 5.034646i 0.126772i 5.035551i 0.117717i \\\n\
+  5.035551i 0.110472i 5.036457i 0.103228i 5.036457i 0.094173i 5.037362i 0.086929i \\\n\
+  5.038268i 0.085118i 5.037362i 0.087835i 5.037362i 0.092362i 5.037362i 0.097795i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 5.038268i 0.104134i 5.039173i 0.109567i 5.040079i 0.111378i \\\n\
+  5.040079i 0.112283i 5.040984i 0.114094i 5.042795i 0.118622i 5.044606i 0.122244i \\\n\
+  5.044606i 0.123150i 5.044606i 0.122244i 5.045512i 0.123150i 5.050039i 0.127677i \\\n\
+  5.056378i 0.133110i 5.060000i 0.135827i 5.061811i 0.137638i 5.066339i 0.140354i \\\n\
+  5.074488i 0.147598i 5.082638i 0.153937i 5.087165i 0.157559i 5.088976i 0.158465i \\\n\
+  5.092598i 0.161181i 5.098937i 0.167520i 5.103465i 0.173858i 5.105276i 0.175669i \\\n\
+  5.105276i 0.176575i 5.106181i 0.179291i 5.107992i 0.185630i 5.108898i 0.192874i \\\n\
+  5.108898i 0.195591i 5.108898i 0.196496i 5.108898i 0.200118i 5.106181i 0.210079i \\\n\
+  5.102559i 0.220039i 5.099843i 0.226378i 5.098031i 0.230906i 5.096220i 0.234528i \\\n\
+  5.093504i 0.239961i 5.089882i 0.247205i 5.088976i 0.248110i 5.088976i 0.249016i \\\n\
+  5.088976i 0.249921i 5.088071i 0.249921i 5.088071i 0.250827i 5.088071i 0.251732i \\\n\
+  5.087165i 0.251732i 5.087165i 0.252638i 5.086260i 0.252638i 5.086260i 0.251732i \\\n\
+  5.087165i 0.250827i 5.087165i 0.249921i 5.087165i 0.249016i 5.088071i 0.248110i \\\n\
+  5.088071i 0.247205i 5.090787i 0.241772i 5.092598i 0.237244i 5.094409i 0.233622i \\\n\
+  5.096220i 0.230000i 5.098937i 0.224567i 5.101654i 0.216417i 5.104370i 0.208268i \\\n\
+  5.105276i 0.204646i 5.106181i 0.203740i 5.106181i 0.201024i 5.105276i 0.193780i \\\n\
+  5.102559i 0.186535i 5.100748i 0.182913i 5.099843i 0.182008i 5.097126i 0.178386i \\\n\
+  5.090787i 0.171142i 5.084449i 0.164803i 5.080827i 0.161181i 5.079016i 0.160276i \\\n\
+  5.076299i 0.158465i 5.072677i 0.155748i 5.064528i 0.150315i 5.055472i 0.144882i \\\n\
+  5.050945i 0.142165i 5.048228i 0.141260i 5.044606i 0.139449i 5.038268i 0.136732i \\\n\
+  5.037362i 0.136732i 5.036457i 0.135827i 5.035551i 0.135827i 5.034646i 0.135827i \\\n\
+  5.033740i 0.135827i 5.033740i 0.136732i 5.033740i 0.137638i 5.033740i 0.138543i \\\n\
+  5.033740i 0.139449i 5.033740i 0.140354i 5.034646i 0.140354i 5.034646i 0.141260i \\\n\
+  5.034646i 0.142165i 5.034646i 0.141260i 5.034646i 0.140354i 5.034646i 0.139449i \\\n\
+  5.034646i 0.137638i 5.034646i 0.136732i 5.034646i 0.126772i 5.035551i 0.117717i \\\n\
+  5.035551i 0.110472i 5.036457i 0.103228i 5.036457i 0.094173i 5.037362i 0.086929i \\\n\
+  5.038268i 0.085118i 5.037362i 0.087835i 5.037362i 0.092362i 5.037362i 0.097795i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 5.032835i 0.422874i 5.032835i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 4.991181i 0.640197i 4.998425i 0.639291i 5.001142i 0.638386i \\\n\
+  5.002953i 0.638386i 5.005669i 0.637480i 5.012913i 0.634764i 5.020157i 0.632047i \\\n\
+  5.022874i 0.630236i 5.024685i 0.629331i 5.027402i 0.628425i 5.032835i 0.623898i \\\n\
+  5.037362i 0.619370i 5.039173i 0.617559i 5.040079i 0.616654i 5.041890i 0.613937i \\\n\
+  5.042795i 0.609409i 5.042795i 0.606693i 5.042795i 0.603976i 5.041890i 0.603071i \\\n\
+  5.041890i 0.602165i 5.040984i 0.601260i 5.040079i 0.600354i 5.038268i 0.598543i \\\n\
+  5.035551i 0.596732i 5.030118i 0.594016i 5.026496i 0.594016i 5.024685i 0.593110i \\\n\
+  5.021063i 0.593110i 5.013819i 0.593110i 5.006575i 0.594016i 5.002953i 0.594016i \\\n\
+  5.001142i 0.594016i 4.997520i 0.594921i 4.991181i 0.597638i 4.985748i 0.600354i \\\n\
+  4.983031i 0.602165i 4.982126i 0.603071i 4.980315i 0.604882i 4.976693i 0.608504i \\\n\
+  4.973071i 0.611220i 4.972165i 0.612126i 4.971260i 0.612126i 4.970354i 0.613937i \\\n\
+  4.968543i 0.616654i 4.966732i 0.620276i 4.965827i 0.622087i 4.965827i 0.622992i \\\n\
+  4.965827i 0.624803i 4.965827i 0.628425i 4.966732i 0.632047i 4.966732i 0.632953i \\\n\
+  4.967638i 0.633858i 4.968543i 0.634764i 4.972165i 0.637480i 4.976693i 0.639291i \\\n\
+  4.979409i 0.640197i 4.981220i 0.640197i 4.983937i 0.640197i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 4.991181i 0.640197i 4.998425i 0.639291i 5.001142i 0.638386i \\\n\
+  5.002953i 0.638386i 5.005669i 0.637480i 5.012913i 0.634764i 5.020157i 0.632047i \\\n\
+  5.022874i 0.630236i 5.024685i 0.629331i 5.027402i 0.628425i 5.032835i 0.623898i \\\n\
+  5.037362i 0.619370i 5.039173i 0.617559i 5.040079i 0.616654i 5.041890i 0.613937i \\\n\
+  5.042795i 0.609409i 5.042795i 0.606693i 5.042795i 0.603976i 5.041890i 0.603071i \\\n\
+  5.041890i 0.602165i 5.040984i 0.601260i 5.040079i 0.600354i 5.038268i 0.598543i \\\n\
+  5.035551i 0.596732i 5.030118i 0.594016i 5.026496i 0.594016i 5.024685i 0.593110i \\\n\
+  5.021063i 0.593110i 5.013819i 0.593110i 5.006575i 0.594016i 5.002953i 0.594016i \\\n\
+  5.001142i 0.594016i 4.997520i 0.594921i 4.991181i 0.597638i 4.985748i 0.600354i \\\n\
+  4.983031i 0.602165i 4.982126i 0.603071i 4.980315i 0.604882i 4.976693i 0.608504i \\\n\
+  4.973071i 0.611220i 4.972165i 0.612126i 4.971260i 0.612126i 4.970354i 0.613937i \\\n\
+  4.968543i 0.616654i 4.966732i 0.620276i 4.965827i 0.622087i 4.965827i 0.622992i \\\n\
+  4.965827i 0.624803i 4.965827i 0.628425i 4.966732i 0.632047i 4.966732i 0.632953i \\\n\
+  4.967638i 0.633858i 4.968543i 0.634764i 4.972165i 0.637480i 4.976693i 0.639291i \\\n\
+  4.979409i 0.640197i 4.981220i 0.640197i 4.983937i 0.640197i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 5.038268i 0.441890i 5.039173i 0.447323i 5.040079i 0.449134i \\\n\
+  5.040079i 0.450039i 5.040984i 0.451850i 5.042795i 0.456378i 5.044606i 0.460000i \\\n\
+  5.045512i 0.460906i 5.050039i 0.464528i 5.056378i 0.469961i 5.060000i 0.472677i \\\n\
+  5.061811i 0.474488i 5.066339i 0.477205i 5.074488i 0.484449i 5.082638i 0.490787i \\\n\
+  5.087165i 0.493504i 5.088976i 0.494409i 5.092598i 0.498031i 5.098937i 0.504370i \\\n\
+  5.103465i 0.511614i 5.105276i 0.514331i 5.105276i 0.515236i 5.106181i 0.517953i \\\n\
+  5.107992i 0.525197i 5.108898i 0.532441i 5.108898i 0.535157i 5.108898i 0.538780i \\\n\
+  5.106181i 0.547835i 5.102559i 0.557795i 5.099843i 0.564134i 5.098031i 0.568661i \\\n\
+  5.096220i 0.572283i 5.093504i 0.577717i 5.089882i 0.584961i 5.088976i 0.585866i \\\n\
+  5.088976i 0.586772i 5.088976i 0.587677i 5.088071i 0.587677i 5.088071i 0.588583i \\\n\
+  5.088071i 0.589488i 5.087165i 0.589488i 5.087165i 0.590394i 5.086260i 0.590394i \\\n\
+  5.086260i 0.589488i 5.087165i 0.588583i 5.087165i 0.587677i 5.087165i 0.586772i \\\n\
+  5.088071i 0.585866i 5.088071i 0.584961i 5.090787i 0.578622i 5.092598i 0.574094i \\\n\
+  5.094409i 0.570472i 5.096220i 0.566850i 5.098937i 0.561417i 5.101654i 0.553268i \\\n\
+  5.103465i 0.546024i 5.105276i 0.542402i 5.106181i 0.542402i 5.106181i 0.541496i \\\n\
+  5.106181i 0.538780i 5.105276i 0.532441i 5.102559i 0.524291i 5.100748i 0.520669i \\\n\
+  5.099843i 0.519764i 5.097126i 0.516142i 5.090787i 0.507992i 5.084449i 0.501654i \\\n\
+  5.080827i 0.498031i 5.079016i 0.496220i 5.076299i 0.495315i 5.072677i 0.492598i \\\n\
+  5.064528i 0.487165i 5.055472i 0.481732i 5.050945i 0.479921i 5.048228i 0.479016i \\\n\
+  5.044606i 0.477205i 5.038268i 0.474488i 5.037362i 0.474488i 5.036457i 0.473583i \\\n\
+  5.035551i 0.473583i 5.034646i 0.473583i 5.033740i 0.473583i 5.033740i 0.474488i \\\n\
+  5.033740i 0.475394i 5.033740i 0.476299i 5.033740i 0.477205i 5.033740i 0.478110i \\\n\
+  5.034646i 0.479016i 5.034646i 0.479921i 5.034646i 0.480827i 5.034646i 0.479921i \\\n\
+  5.034646i 0.479016i 5.034646i 0.478110i 5.034646i 0.477205i 5.034646i 0.475394i \\\n\
+  5.034646i 0.474488i 5.034646i 0.464528i 5.035551i 0.455472i 5.035551i 0.447323i \\\n\
+  5.036457i 0.440079i 5.036457i 0.431929i 5.037362i 0.423780i 5.038268i 0.421969i \\\n\
+  5.037362i 0.424685i 5.037362i 0.430118i 5.037362i 0.435551i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 5.038268i 0.441890i 5.039173i 0.447323i 5.040079i 0.449134i \\\n\
+  5.040079i 0.450039i 5.040984i 0.451850i 5.042795i 0.456378i 5.044606i 0.460000i \\\n\
+  5.045512i 0.460906i 5.050039i 0.464528i 5.056378i 0.469961i 5.060000i 0.472677i \\\n\
+  5.061811i 0.474488i 5.066339i 0.477205i 5.074488i 0.484449i 5.082638i 0.490787i \\\n\
+  5.087165i 0.493504i 5.088976i 0.494409i 5.092598i 0.498031i 5.098937i 0.504370i \\\n\
+  5.103465i 0.511614i 5.105276i 0.514331i 5.105276i 0.515236i 5.106181i 0.517953i \\\n\
+  5.107992i 0.525197i 5.108898i 0.532441i 5.108898i 0.535157i 5.108898i 0.538780i \\\n\
+  5.106181i 0.547835i 5.102559i 0.557795i 5.099843i 0.564134i 5.098031i 0.568661i \\\n\
+  5.096220i 0.572283i 5.093504i 0.577717i 5.089882i 0.584961i 5.088976i 0.585866i \\\n\
+  5.088976i 0.586772i 5.088976i 0.587677i 5.088071i 0.587677i 5.088071i 0.588583i \\\n\
+  5.088071i 0.589488i 5.087165i 0.589488i 5.087165i 0.590394i 5.086260i 0.590394i \\\n\
+  5.086260i 0.589488i 5.087165i 0.588583i 5.087165i 0.587677i 5.087165i 0.586772i \\\n\
+  5.088071i 0.585866i 5.088071i 0.584961i 5.090787i 0.578622i 5.092598i 0.574094i \\\n\
+  5.094409i 0.570472i 5.096220i 0.566850i 5.098937i 0.561417i 5.101654i 0.553268i \\\n\
+  5.103465i 0.546024i 5.105276i 0.542402i 5.106181i 0.542402i 5.106181i 0.541496i \\\n\
+  5.106181i 0.538780i 5.105276i 0.532441i 5.102559i 0.524291i 5.100748i 0.520669i \\\n\
+  5.099843i 0.519764i 5.097126i 0.516142i 5.090787i 0.507992i 5.084449i 0.501654i \\\n\
+  5.080827i 0.498031i 5.079016i 0.496220i 5.076299i 0.495315i 5.072677i 0.492598i \\\n\
+  5.064528i 0.487165i 5.055472i 0.481732i 5.050945i 0.479921i 5.048228i 0.479016i \\\n\
+  5.044606i 0.477205i 5.038268i 0.474488i 5.037362i 0.474488i 5.036457i 0.473583i \\\n\
+  5.035551i 0.473583i 5.034646i 0.473583i 5.033740i 0.473583i 5.033740i 0.474488i \\\n\
+  5.033740i 0.475394i 5.033740i 0.476299i 5.033740i 0.477205i 5.033740i 0.478110i \\\n\
+  5.034646i 0.479016i 5.034646i 0.479921i 5.034646i 0.480827i 5.034646i 0.479921i \\\n\
+  5.034646i 0.479016i 5.034646i 0.478110i 5.034646i 0.477205i 5.034646i 0.475394i \\\n\
+  5.034646i 0.474488i 5.034646i 0.464528i 5.035551i 0.455472i 5.035551i 0.447323i \\\n\
+  5.036457i 0.440079i 5.036457i 0.431929i 5.037362i 0.423780i 5.038268i 0.421969i \\\n\
+  5.037362i 0.424685i 5.037362i 0.430118i 5.037362i 0.435551i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 5.676654i 0.422874i 5.676654i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 5.635000i 0.640197i 5.642244i 0.639291i 5.644961i 0.638386i \\\n\
+  5.646772i 0.638386i 5.649488i 0.637480i 5.656732i 0.634764i 5.663976i 0.632047i \\\n\
+  5.666693i 0.630236i 5.668504i 0.629331i 5.671220i 0.628425i 5.676654i 0.623898i \\\n\
+  5.681181i 0.619370i 5.682992i 0.617559i 5.683898i 0.616654i 5.685709i 0.613937i \\\n\
+  5.686614i 0.609409i 5.686614i 0.606693i 5.686614i 0.603976i 5.685709i 0.603071i \\\n\
+  5.685709i 0.602165i 5.684803i 0.601260i 5.683898i 0.600354i 5.682087i 0.598543i \\\n\
+  5.679370i 0.596732i 5.673937i 0.594016i 5.670315i 0.594016i 5.668504i 0.593110i \\\n\
+  5.664882i 0.593110i 5.657638i 0.593110i 5.650394i 0.594016i 5.646772i 0.594016i \\\n\
+  5.644961i 0.594016i 5.641339i 0.594921i 5.635000i 0.597638i 5.629567i 0.600354i \\\n\
+  5.626850i 0.602165i 5.625945i 0.603071i 5.624134i 0.604882i 5.620512i 0.608504i \\\n\
+  5.616890i 0.611220i 5.615984i 0.612126i 5.615079i 0.612126i 5.614173i 0.613937i \\\n\
+  5.612362i 0.616654i 5.610551i 0.620276i 5.609646i 0.622087i 5.609646i 0.622992i \\\n\
+  5.609646i 0.624803i 5.609646i 0.628425i 5.610551i 0.632047i 5.610551i 0.632953i \\\n\
+  5.611457i 0.633858i 5.612362i 0.634764i 5.615984i 0.637480i 5.620512i 0.639291i \\\n\
+  5.623228i 0.640197i 5.625039i 0.640197i 5.627756i 0.640197i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 5.635000i 0.640197i 5.642244i 0.639291i 5.644961i 0.638386i \\\n\
+  5.646772i 0.638386i 5.649488i 0.637480i 5.656732i 0.634764i 5.663976i 0.632047i \\\n\
+  5.666693i 0.630236i 5.668504i 0.629331i 5.671220i 0.628425i 5.676654i 0.623898i \\\n\
+  5.681181i 0.619370i 5.682992i 0.617559i 5.683898i 0.616654i 5.685709i 0.613937i \\\n\
+  5.686614i 0.609409i 5.686614i 0.606693i 5.686614i 0.603976i 5.685709i 0.603071i \\\n\
+  5.685709i 0.602165i 5.684803i 0.601260i 5.683898i 0.600354i 5.682087i 0.598543i \\\n\
+  5.679370i 0.596732i 5.673937i 0.594016i 5.670315i 0.594016i 5.668504i 0.593110i \\\n\
+  5.664882i 0.593110i 5.657638i 0.593110i 5.650394i 0.594016i 5.646772i 0.594016i \\\n\
+  5.644961i 0.594016i 5.641339i 0.594921i 5.635000i 0.597638i 5.629567i 0.600354i \\\n\
+  5.626850i 0.602165i 5.625945i 0.603071i 5.624134i 0.604882i 5.620512i 0.608504i \\\n\
+  5.616890i 0.611220i 5.615984i 0.612126i 5.615079i 0.612126i 5.614173i 0.613937i \\\n\
+  5.612362i 0.616654i 5.610551i 0.620276i 5.609646i 0.622087i 5.609646i 0.622992i \\\n\
+  5.609646i 0.624803i 5.609646i 0.628425i 5.610551i 0.632047i 5.610551i 0.632953i \\\n\
+  5.611457i 0.633858i 5.612362i 0.634764i 5.615984i 0.637480i 5.620512i 0.639291i \\\n\
+  5.623228i 0.640197i 5.625039i 0.640197i 5.627756i 0.640197i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 5.682087i 0.441890i 5.682992i 0.447323i 5.683898i 0.449134i \\\n\
+  5.683898i 0.450039i 5.684803i 0.451850i 5.686614i 0.456378i 5.688425i 0.460000i \\\n\
+  5.689331i 0.460906i 5.693858i 0.464528i 5.700197i 0.469961i 5.703819i 0.472677i \\\n\
+  5.705630i 0.474488i 5.710157i 0.477205i 5.718307i 0.484449i 5.726457i 0.490787i \\\n\
+  5.730079i 0.493504i 5.731890i 0.494409i 5.734606i 0.498031i 5.740945i 0.504370i \\\n\
+  5.745472i 0.511614i 5.747283i 0.514331i 5.747283i 0.515236i 5.748189i 0.517953i \\\n\
+  5.750000i 0.525197i 5.750906i 0.532441i 5.750906i 0.535157i 5.750000i 0.538780i \\\n\
+  5.748189i 0.547835i 5.745472i 0.557795i 5.742756i 0.564134i 5.740945i 0.568661i \\\n\
+  5.739134i 0.572283i 5.736417i 0.577717i 5.733701i 0.584961i 5.733701i 0.585866i \\\n\
+  5.732795i 0.586772i 5.732795i 0.587677i 5.731890i 0.587677i 5.731890i 0.588583i \\\n\
+  5.731890i 0.589488i 5.730984i 0.589488i 5.730984i 0.590394i 5.730984i 0.589488i \\\n\
+  5.730984i 0.588583i 5.730984i 0.587677i 5.730984i 0.586772i 5.731890i 0.586772i \\\n\
+  5.731890i 0.585866i 5.731890i 0.584961i 5.733701i 0.578622i 5.735512i 0.574094i \\\n\
+  5.737323i 0.570472i 5.739134i 0.566850i 5.740945i 0.561417i 5.743661i 0.553268i \\\n\
+  5.746378i 0.545118i 5.747283i 0.542402i 5.748189i 0.542402i 5.748189i 0.539685i \\\n\
+  5.747283i 0.532441i 5.745472i 0.524291i 5.743661i 0.520669i 5.742756i 0.519764i \\\n\
+  5.740945i 0.516142i 5.734606i 0.507992i 5.728268i 0.501654i 5.724646i 0.498031i \\\n\
+  5.722835i 0.496220i 5.721024i 0.495315i 5.717402i 0.492598i 5.709252i 0.487165i \\\n\
+  5.700197i 0.481732i 5.695669i 0.479921i 5.692953i 0.479016i 5.688425i 0.477205i \\\n\
+  5.682087i 0.474488i 5.681181i 0.474488i 5.680276i 0.473583i 5.679370i 0.473583i \\\n\
+  5.678465i 0.473583i 5.677559i 0.473583i 5.677559i 0.474488i 5.677559i 0.475394i \\\n\
+  5.677559i 0.476299i 5.677559i 0.477205i 5.677559i 0.478110i 5.678465i 0.479016i \\\n\
+  5.678465i 0.479921i 5.678465i 0.480827i 5.678465i 0.479921i 5.678465i 0.479016i \\\n\
+  5.678465i 0.478110i 5.678465i 0.477205i 5.678465i 0.475394i 5.678465i 0.474488i \\\n\
+  5.678465i 0.464528i 5.679370i 0.455472i 5.679370i 0.447323i 5.680276i 0.440079i \\\n\
+  5.680276i 0.431929i 5.681181i 0.423780i 5.682087i 0.421969i 5.681181i 0.424685i \\\n\
+  5.681181i 0.430118i 5.681181i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 5.682087i 0.441890i 5.682992i 0.447323i 5.683898i 0.449134i \\\n\
+  5.683898i 0.450039i 5.684803i 0.451850i 5.686614i 0.456378i 5.688425i 0.460000i \\\n\
+  5.689331i 0.460906i 5.693858i 0.464528i 5.700197i 0.469961i 5.703819i 0.472677i \\\n\
+  5.705630i 0.474488i 5.710157i 0.477205i 5.718307i 0.484449i 5.726457i 0.490787i \\\n\
+  5.730079i 0.493504i 5.731890i 0.494409i 5.734606i 0.498031i 5.740945i 0.504370i \\\n\
+  5.745472i 0.511614i 5.747283i 0.514331i 5.747283i 0.515236i 5.748189i 0.517953i \\\n\
+  5.750000i 0.525197i 5.750906i 0.532441i 5.750906i 0.535157i 5.750000i 0.538780i \\\n\
+  5.748189i 0.547835i 5.745472i 0.557795i 5.742756i 0.564134i 5.740945i 0.568661i \\\n\
+  5.739134i 0.572283i 5.736417i 0.577717i 5.733701i 0.584961i 5.733701i 0.585866i \\\n\
+  5.732795i 0.586772i 5.732795i 0.587677i 5.731890i 0.587677i 5.731890i 0.588583i \\\n\
+  5.731890i 0.589488i 5.730984i 0.589488i 5.730984i 0.590394i 5.730984i 0.589488i \\\n\
+  5.730984i 0.588583i 5.730984i 0.587677i 5.730984i 0.586772i 5.731890i 0.586772i \\\n\
+  5.731890i 0.585866i 5.731890i 0.584961i 5.733701i 0.578622i 5.735512i 0.574094i \\\n\
+  5.737323i 0.570472i 5.739134i 0.566850i 5.740945i 0.561417i 5.743661i 0.553268i \\\n\
+  5.746378i 0.545118i 5.747283i 0.542402i 5.748189i 0.542402i 5.748189i 0.539685i \\\n\
+  5.747283i 0.532441i 5.745472i 0.524291i 5.743661i 0.520669i 5.742756i 0.519764i \\\n\
+  5.740945i 0.516142i 5.734606i 0.507992i 5.728268i 0.501654i 5.724646i 0.498031i \\\n\
+  5.722835i 0.496220i 5.721024i 0.495315i 5.717402i 0.492598i 5.709252i 0.487165i \\\n\
+  5.700197i 0.481732i 5.695669i 0.479921i 5.692953i 0.479016i 5.688425i 0.477205i \\\n\
+  5.682087i 0.474488i 5.681181i 0.474488i 5.680276i 0.473583i 5.679370i 0.473583i \\\n\
+  5.678465i 0.473583i 5.677559i 0.473583i 5.677559i 0.474488i 5.677559i 0.475394i \\\n\
+  5.677559i 0.476299i 5.677559i 0.477205i 5.677559i 0.478110i 5.678465i 0.479016i \\\n\
+  5.678465i 0.479921i 5.678465i 0.480827i 5.678465i 0.479921i 5.678465i 0.479016i \\\n\
+  5.678465i 0.478110i 5.678465i 0.477205i 5.678465i 0.475394i 5.678465i 0.474488i \\\n\
+  5.678465i 0.464528i 5.679370i 0.455472i 5.679370i 0.447323i 5.680276i 0.440079i \\\n\
+  5.680276i 0.431929i 5.681181i 0.423780i 5.682087i 0.421969i 5.681181i 0.424685i \\\n\
+  5.681181i 0.430118i 5.681181i 0.435551i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 4.313858i 0.422874i 4.313858i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 4.271299i 0.640197i 4.278543i 0.639291i 4.282165i 0.638386i \\\n\
+  4.283976i 0.638386i 4.287598i 0.637480i 4.294843i 0.634764i 4.301181i 0.632047i \\\n\
+  4.304803i 0.630236i 4.305709i 0.629331i 4.307520i 0.628425i 4.312953i 0.623898i \\\n\
+  4.317480i 0.619370i 4.320197i 0.617559i 4.321102i 0.616654i 4.322008i 0.613937i \\\n\
+  4.323819i 0.609409i 4.323819i 0.606693i 4.323819i 0.603976i 4.322913i 0.603071i \\\n\
+  4.322913i 0.602165i 4.322008i 0.601260i 4.321102i 0.600354i 4.319291i 0.598543i \\\n\
+  4.316575i 0.596732i 4.311142i 0.594016i 4.307520i 0.594016i 4.305709i 0.593110i \\\n\
+  4.302087i 0.593110i 4.294843i 0.593110i 4.286693i 0.594016i 4.283071i 0.594016i \\\n\
+  4.281260i 0.594016i 4.277638i 0.594921i 4.271299i 0.597638i 4.265866i 0.600354i \\\n\
+  4.263150i 0.602165i 4.263150i 0.603071i 4.261339i 0.604882i 4.257717i 0.608504i \\\n\
+  4.254094i 0.611220i 4.253189i 0.612126i 4.252283i 0.612126i 4.251378i 0.613937i \\\n\
+  4.249567i 0.616654i 4.247756i 0.620276i 4.246850i 0.622087i 4.245945i 0.622992i \\\n\
+  4.245945i 0.624803i 4.245945i 0.628425i 4.246850i 0.631142i 4.247756i 0.632953i \\\n\
+  4.247756i 0.633858i 4.248661i 0.633858i 4.249567i 0.635669i 4.253189i 0.637480i \\\n\
+  4.257717i 0.639291i 4.260433i 0.640197i 4.261339i 0.640197i 4.264055i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 4.271299i 0.640197i 4.278543i 0.639291i 4.282165i 0.638386i \\\n\
+  4.283976i 0.638386i 4.287598i 0.637480i 4.294843i 0.634764i 4.301181i 0.632047i \\\n\
+  4.304803i 0.630236i 4.305709i 0.629331i 4.307520i 0.628425i 4.312953i 0.623898i \\\n\
+  4.317480i 0.619370i 4.320197i 0.617559i 4.321102i 0.616654i 4.322008i 0.613937i \\\n\
+  4.323819i 0.609409i 4.323819i 0.606693i 4.323819i 0.603976i 4.322913i 0.603071i \\\n\
+  4.322913i 0.602165i 4.322008i 0.601260i 4.321102i 0.600354i 4.319291i 0.598543i \\\n\
+  4.316575i 0.596732i 4.311142i 0.594016i 4.307520i 0.594016i 4.305709i 0.593110i \\\n\
+  4.302087i 0.593110i 4.294843i 0.593110i 4.286693i 0.594016i 4.283071i 0.594016i \\\n\
+  4.281260i 0.594016i 4.277638i 0.594921i 4.271299i 0.597638i 4.265866i 0.600354i \\\n\
+  4.263150i 0.602165i 4.263150i 0.603071i 4.261339i 0.604882i 4.257717i 0.608504i \\\n\
+  4.254094i 0.611220i 4.253189i 0.612126i 4.252283i 0.612126i 4.251378i 0.613937i \\\n\
+  4.249567i 0.616654i 4.247756i 0.620276i 4.246850i 0.622087i 4.245945i 0.622992i \\\n\
+  4.245945i 0.624803i 4.245945i 0.628425i 4.246850i 0.631142i 4.247756i 0.632953i \\\n\
+  4.247756i 0.633858i 4.248661i 0.633858i 4.249567i 0.635669i 4.253189i 0.637480i \\\n\
+  4.257717i 0.639291i 4.260433i 0.640197i 4.261339i 0.640197i 4.264055i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 4.319291i 0.441890i 4.320197i 0.447323i 4.321102i 0.449134i \\\n\
+  4.321102i 0.450039i 4.322008i 0.451850i 4.323819i 0.456378i 4.325630i 0.460000i \\\n\
+  4.326535i 0.460906i 4.331063i 0.464528i 4.337402i 0.469961i 4.341024i 0.472677i \\\n\
+  4.342835i 0.474488i 4.347362i 0.477205i 4.355512i 0.484449i 4.363661i 0.490787i \\\n\
+  4.366378i 0.493504i 4.368189i 0.494409i 4.370906i 0.498031i 4.377244i 0.504370i \\\n\
+  4.382677i 0.511614i 4.384488i 0.514331i 4.385394i 0.515236i 4.387205i 0.517953i \\\n\
+  4.389016i 0.525197i 4.389921i 0.531535i 4.390827i 0.534252i 4.390827i 0.535157i \\\n\
+  4.389921i 0.536063i 4.389016i 0.539685i 4.387205i 0.547835i 4.383583i 0.557795i \\\n\
+  4.380866i 0.564134i 4.379055i 0.568661i 4.377244i 0.572283i 4.374528i 0.577717i \\\n\
+  4.370906i 0.584961i 4.370000i 0.585866i 4.370000i 0.586772i 4.370000i 0.587677i \\\n\
+  4.369094i 0.587677i 4.369094i 0.588583i 4.369094i 0.589488i 4.368189i 0.589488i \\\n\
+  4.368189i 0.590394i 4.367283i 0.590394i 4.368189i 0.590394i 4.368189i 0.589488i \\\n\
+  4.368189i 0.588583i 4.368189i 0.587677i 4.368189i 0.586772i 4.369094i 0.585866i \\\n\
+  4.369094i 0.584961i 4.370906i 0.578622i 4.372717i 0.574094i 4.374528i 0.570472i \\\n\
+  4.375433i 0.566850i 4.378150i 0.561417i 4.380866i 0.553268i 4.383583i 0.545118i \\\n\
+  4.385394i 0.542402i 4.386299i 0.542402i 4.387205i 0.539685i 4.386299i 0.532441i \\\n\
+  4.383583i 0.524291i 4.381772i 0.520669i 4.380866i 0.519764i 4.378150i 0.516142i \\\n\
+  4.371811i 0.507992i 4.365472i 0.501654i 4.361850i 0.498031i 4.360039i 0.496220i \\\n\
+  4.358228i 0.495315i 4.354606i 0.492598i 4.346457i 0.487165i 4.337402i 0.481732i \\\n\
+  4.332874i 0.479921i 4.330157i 0.479016i 4.325630i 0.477205i 4.319291i 0.474488i \\\n\
+  4.318386i 0.474488i 4.317480i 0.473583i 4.316575i 0.473583i 4.315669i 0.473583i \\\n\
+  4.314764i 0.473583i 4.314764i 0.474488i 4.314764i 0.475394i 4.314764i 0.476299i \\\n\
+  4.314764i 0.477205i 4.314764i 0.478110i 4.315669i 0.479016i 4.315669i 0.479921i \\\n\
+  4.315669i 0.480827i 4.315669i 0.479921i 4.315669i 0.479016i 4.315669i 0.478110i \\\n\
+  4.315669i 0.477205i 4.315669i 0.475394i 4.315669i 0.474488i 4.315669i 0.464528i \\\n\
+  4.316575i 0.455472i 4.316575i 0.447323i 4.317480i 0.440079i 4.317480i 0.431929i \\\n\
+  4.318386i 0.423780i 4.319291i 0.421969i 4.318386i 0.424685i 4.318386i 0.430118i \\\n\
+  4.318386i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 4.319291i 0.441890i 4.320197i 0.447323i 4.321102i 0.449134i \\\n\
+  4.321102i 0.450039i 4.322008i 0.451850i 4.323819i 0.456378i 4.325630i 0.460000i \\\n\
+  4.326535i 0.460906i 4.331063i 0.464528i 4.337402i 0.469961i 4.341024i 0.472677i \\\n\
+  4.342835i 0.474488i 4.347362i 0.477205i 4.355512i 0.484449i 4.363661i 0.490787i \\\n\
+  4.366378i 0.493504i 4.368189i 0.494409i 4.370906i 0.498031i 4.377244i 0.504370i \\\n\
+  4.382677i 0.511614i 4.384488i 0.514331i 4.385394i 0.515236i 4.387205i 0.517953i \\\n\
+  4.389016i 0.525197i 4.389921i 0.531535i 4.390827i 0.534252i 4.390827i 0.535157i \\\n\
+  4.389921i 0.536063i 4.389016i 0.539685i 4.387205i 0.547835i 4.383583i 0.557795i \\\n\
+  4.380866i 0.564134i 4.379055i 0.568661i 4.377244i 0.572283i 4.374528i 0.577717i \\\n\
+  4.370906i 0.584961i 4.370000i 0.585866i 4.370000i 0.586772i 4.370000i 0.587677i \\\n\
+  4.369094i 0.587677i 4.369094i 0.588583i 4.369094i 0.589488i 4.368189i 0.589488i \\\n\
+  4.368189i 0.590394i 4.367283i 0.590394i 4.368189i 0.590394i 4.368189i 0.589488i \\\n\
+  4.368189i 0.588583i 4.368189i 0.587677i 4.368189i 0.586772i 4.369094i 0.585866i \\\n\
+  4.369094i 0.584961i 4.370906i 0.578622i 4.372717i 0.574094i 4.374528i 0.570472i \\\n\
+  4.375433i 0.566850i 4.378150i 0.561417i 4.380866i 0.553268i 4.383583i 0.545118i \\\n\
+  4.385394i 0.542402i 4.386299i 0.542402i 4.387205i 0.539685i 4.386299i 0.532441i \\\n\
+  4.383583i 0.524291i 4.381772i 0.520669i 4.380866i 0.519764i 4.378150i 0.516142i \\\n\
+  4.371811i 0.507992i 4.365472i 0.501654i 4.361850i 0.498031i 4.360039i 0.496220i \\\n\
+  4.358228i 0.495315i 4.354606i 0.492598i 4.346457i 0.487165i 4.337402i 0.481732i \\\n\
+  4.332874i 0.479921i 4.330157i 0.479016i 4.325630i 0.477205i 4.319291i 0.474488i \\\n\
+  4.318386i 0.474488i 4.317480i 0.473583i 4.316575i 0.473583i 4.315669i 0.473583i \\\n\
+  4.314764i 0.473583i 4.314764i 0.474488i 4.314764i 0.475394i 4.314764i 0.476299i \\\n\
+  4.314764i 0.477205i 4.314764i 0.478110i 4.315669i 0.479016i 4.315669i 0.479921i \\\n\
+  4.315669i 0.480827i 4.315669i 0.479921i 4.315669i 0.479016i 4.315669i 0.478110i \\\n\
+  4.315669i 0.477205i 4.315669i 0.475394i 4.315669i 0.474488i 4.315669i 0.464528i \\\n\
+  4.316575i 0.455472i 4.316575i 0.447323i 4.317480i 0.440079i 4.317480i 0.431929i \\\n\
+  4.318386i 0.423780i 4.319291i 0.421969i 4.318386i 0.424685i 4.318386i 0.430118i \\\n\
+  4.318386i 0.435551i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 3.670039i 0.086024i 3.670039i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 3.627480i 0.301535i 3.634724i 0.300630i 3.638346i 0.300630i \\\n\
+  3.639252i 0.300630i 3.642874i 0.299724i 3.650118i 0.297913i 3.657362i 0.295197i \\\n\
+  3.660079i 0.293386i 3.660984i 0.293386i 3.663701i 0.291575i 3.669134i 0.287047i \\\n\
+  3.674567i 0.282520i 3.677283i 0.280709i 3.678189i 0.279803i 3.680000i 0.277087i \\\n\
+  3.681811i 0.272559i 3.681811i 0.269843i 3.680906i 0.267126i 3.680906i 0.266220i \\\n\
+  3.680000i 0.265315i 3.679094i 0.264409i 3.678189i 0.263504i 3.676378i 0.261693i \\\n\
+  3.672756i 0.259882i 3.667323i 0.257165i 3.663701i 0.256260i 3.661890i 0.256260i \\\n\
+  3.658268i 0.255354i 3.651024i 0.255354i 3.642874i 0.256260i 3.639252i 0.256260i \\\n\
+  3.637441i 0.257165i 3.633819i 0.258071i 3.627480i 0.260787i 3.622047i 0.263504i \\\n\
+  3.619331i 0.265315i 3.619331i 0.266220i 3.617520i 0.268031i 3.613898i 0.271654i \\\n\
+  3.610276i 0.274370i 3.609370i 0.275276i 3.608465i 0.275276i 3.607559i 0.276181i \\\n\
+  3.605748i 0.278898i 3.603937i 0.282520i 3.603031i 0.284331i 3.602126i 0.285236i \\\n\
+  3.602126i 0.287047i 3.602126i 0.290669i 3.603031i 0.294291i 3.603937i 0.296102i \\\n\
+  3.603937i 0.297008i 3.604843i 0.297008i 3.605748i 0.298819i 3.609370i 0.300630i \\\n\
+  3.613898i 0.302441i 3.616614i 0.302441i 3.617520i 0.302441i 3.621142i 0.301535i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 3.627480i 0.301535i 3.634724i 0.300630i 3.638346i 0.300630i \\\n\
+  3.639252i 0.300630i 3.642874i 0.299724i 3.650118i 0.297913i 3.657362i 0.295197i \\\n\
+  3.660079i 0.293386i 3.660984i 0.293386i 3.663701i 0.291575i 3.669134i 0.287047i \\\n\
+  3.674567i 0.282520i 3.677283i 0.280709i 3.678189i 0.279803i 3.680000i 0.277087i \\\n\
+  3.681811i 0.272559i 3.681811i 0.269843i 3.680906i 0.267126i 3.680906i 0.266220i \\\n\
+  3.680000i 0.265315i 3.679094i 0.264409i 3.678189i 0.263504i 3.676378i 0.261693i \\\n\
+  3.672756i 0.259882i 3.667323i 0.257165i 3.663701i 0.256260i 3.661890i 0.256260i \\\n\
+  3.658268i 0.255354i 3.651024i 0.255354i 3.642874i 0.256260i 3.639252i 0.256260i \\\n\
+  3.637441i 0.257165i 3.633819i 0.258071i 3.627480i 0.260787i 3.622047i 0.263504i \\\n\
+  3.619331i 0.265315i 3.619331i 0.266220i 3.617520i 0.268031i 3.613898i 0.271654i \\\n\
+  3.610276i 0.274370i 3.609370i 0.275276i 3.608465i 0.275276i 3.607559i 0.276181i \\\n\
+  3.605748i 0.278898i 3.603937i 0.282520i 3.603031i 0.284331i 3.602126i 0.285236i \\\n\
+  3.602126i 0.287047i 3.602126i 0.290669i 3.603031i 0.294291i 3.603937i 0.296102i \\\n\
+  3.603937i 0.297008i 3.604843i 0.297008i 3.605748i 0.298819i 3.609370i 0.300630i \\\n\
+  3.613898i 0.302441i 3.616614i 0.302441i 3.617520i 0.302441i 3.621142i 0.301535i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 3.677283i 0.104134i 3.678189i 0.109567i 3.679094i 0.111378i \\\n\
+  3.679094i 0.112283i 3.680000i 0.114094i 3.681811i 0.118622i 3.683622i 0.122244i \\\n\
+  3.683622i 0.123150i 3.683622i 0.122244i 3.684528i 0.123150i 3.689055i 0.127677i \\\n\
+  3.695394i 0.133110i 3.699016i 0.135827i 3.700827i 0.137638i 3.705354i 0.140354i \\\n\
+  3.713504i 0.147598i 3.721654i 0.153937i 3.724370i 0.157559i 3.726181i 0.158465i \\\n\
+  3.729803i 0.161181i 3.735236i 0.167520i 3.739764i 0.173858i 3.741575i 0.175669i \\\n\
+  3.742480i 0.176575i 3.743386i 0.179291i 3.745197i 0.185630i 3.746102i 0.192874i \\\n\
+  3.746102i 0.195591i 3.746102i 0.196496i 3.745197i 0.200118i 3.743386i 0.210079i \\\n\
+  3.740669i 0.220039i 3.737953i 0.226378i 3.736142i 0.230906i 3.734331i 0.234528i \\\n\
+  3.731614i 0.239961i 3.728898i 0.247205i 3.728898i 0.248110i 3.727992i 0.249016i \\\n\
+  3.727992i 0.249921i 3.727087i 0.249921i 3.727087i 0.250827i 3.727087i 0.251732i \\\n\
+  3.726181i 0.251732i 3.726181i 0.252638i 3.726181i 0.251732i 3.726181i 0.250827i \\\n\
+  3.726181i 0.249921i 3.726181i 0.249016i 3.727087i 0.249016i 3.727087i 0.248110i \\\n\
+  3.727087i 0.247205i 3.728898i 0.241772i 3.730709i 0.237244i 3.732520i 0.233622i \\\n\
+  3.734331i 0.230000i 3.736142i 0.224567i 3.738858i 0.216417i 3.741575i 0.208268i \\\n\
+  3.742480i 0.204646i 3.743386i 0.203740i 3.743386i 0.201024i 3.742480i 0.193780i \\\n\
+  3.740669i 0.186535i 3.738858i 0.182913i 3.737953i 0.182008i 3.736142i 0.178386i \\\n\
+  3.729803i 0.171142i 3.723465i 0.164803i 3.719843i 0.161181i 3.718031i 0.160276i \\\n\
+  3.716220i 0.158465i 3.712598i 0.155748i 3.704449i 0.150315i 3.695394i 0.144882i \\\n\
+  3.690866i 0.142165i 3.688150i 0.141260i 3.683622i 0.139449i 3.677283i 0.136732i \\\n\
+  3.676378i 0.136732i 3.675472i 0.135827i 3.674567i 0.135827i 3.673661i 0.135827i \\\n\
+  3.672756i 0.135827i 3.671850i 0.135827i 3.671850i 0.136732i 3.671850i 0.137638i \\\n\
+  3.671850i 0.138543i 3.671850i 0.139449i 3.671850i 0.140354i 3.671850i 0.141260i \\\n\
+  3.671850i 0.142165i 3.672756i 0.142165i 3.671850i 0.142165i 3.671850i 0.141260i \\\n\
+  3.671850i 0.140354i 3.671850i 0.139449i 3.671850i 0.138543i 3.671850i 0.136732i \\\n\
+  3.671850i 0.126772i 3.672756i 0.117717i 3.673661i 0.110472i 3.674567i 0.103228i \\\n\
+  3.675472i 0.094173i 3.676378i 0.086929i 3.677283i 0.085118i 3.677283i 0.087835i \\\n\
+  3.676378i 0.092362i 3.676378i 0.097795i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 3.677283i 0.104134i 3.678189i 0.109567i 3.679094i 0.111378i \\\n\
+  3.679094i 0.112283i 3.680000i 0.114094i 3.681811i 0.118622i 3.683622i 0.122244i \\\n\
+  3.683622i 0.123150i 3.683622i 0.122244i 3.684528i 0.123150i 3.689055i 0.127677i \\\n\
+  3.695394i 0.133110i 3.699016i 0.135827i 3.700827i 0.137638i 3.705354i 0.140354i \\\n\
+  3.713504i 0.147598i 3.721654i 0.153937i 3.724370i 0.157559i 3.726181i 0.158465i \\\n\
+  3.729803i 0.161181i 3.735236i 0.167520i 3.739764i 0.173858i 3.741575i 0.175669i \\\n\
+  3.742480i 0.176575i 3.743386i 0.179291i 3.745197i 0.185630i 3.746102i 0.192874i \\\n\
+  3.746102i 0.195591i 3.746102i 0.196496i 3.745197i 0.200118i 3.743386i 0.210079i \\\n\
+  3.740669i 0.220039i 3.737953i 0.226378i 3.736142i 0.230906i 3.734331i 0.234528i \\\n\
+  3.731614i 0.239961i 3.728898i 0.247205i 3.728898i 0.248110i 3.727992i 0.249016i \\\n\
+  3.727992i 0.249921i 3.727087i 0.249921i 3.727087i 0.250827i 3.727087i 0.251732i \\\n\
+  3.726181i 0.251732i 3.726181i 0.252638i 3.726181i 0.251732i 3.726181i 0.250827i \\\n\
+  3.726181i 0.249921i 3.726181i 0.249016i 3.727087i 0.249016i 3.727087i 0.248110i \\\n\
+  3.727087i 0.247205i 3.728898i 0.241772i 3.730709i 0.237244i 3.732520i 0.233622i \\\n\
+  3.734331i 0.230000i 3.736142i 0.224567i 3.738858i 0.216417i 3.741575i 0.208268i \\\n\
+  3.742480i 0.204646i 3.743386i 0.203740i 3.743386i 0.201024i 3.742480i 0.193780i \\\n\
+  3.740669i 0.186535i 3.738858i 0.182913i 3.737953i 0.182008i 3.736142i 0.178386i \\\n\
+  3.729803i 0.171142i 3.723465i 0.164803i 3.719843i 0.161181i 3.718031i 0.160276i \\\n\
+  3.716220i 0.158465i 3.712598i 0.155748i 3.704449i 0.150315i 3.695394i 0.144882i \\\n\
+  3.690866i 0.142165i 3.688150i 0.141260i 3.683622i 0.139449i 3.677283i 0.136732i \\\n\
+  3.676378i 0.136732i 3.675472i 0.135827i 3.674567i 0.135827i 3.673661i 0.135827i \\\n\
+  3.672756i 0.135827i 3.671850i 0.135827i 3.671850i 0.136732i 3.671850i 0.137638i \\\n\
+  3.671850i 0.138543i 3.671850i 0.139449i 3.671850i 0.140354i 3.671850i 0.141260i \\\n\
+  3.671850i 0.142165i 3.672756i 0.142165i 3.671850i 0.142165i 3.671850i 0.141260i \\\n\
+  3.671850i 0.140354i 3.671850i 0.139449i 3.671850i 0.138543i 3.671850i 0.136732i \\\n\
+  3.671850i 0.126772i 3.672756i 0.117717i 3.673661i 0.110472i 3.674567i 0.103228i \\\n\
+  3.675472i 0.094173i 3.676378i 0.086929i 3.677283i 0.085118i 3.677283i 0.087835i \\\n\
+  3.676378i 0.092362i 3.676378i 0.097795i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 3.670039i 0.422874i 3.670039i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 3.627480i 0.640197i 3.634724i 0.639291i 3.638346i 0.638386i \\\n\
+  3.639252i 0.638386i 3.642874i 0.637480i 3.650118i 0.634764i 3.657362i 0.632047i \\\n\
+  3.660079i 0.630236i 3.660984i 0.629331i 3.663701i 0.628425i 3.669134i 0.623898i \\\n\
+  3.674567i 0.619370i 3.677283i 0.617559i 3.678189i 0.616654i 3.680000i 0.613937i \\\n\
+  3.681811i 0.609409i 3.681811i 0.606693i 3.680906i 0.603976i 3.680906i 0.603071i \\\n\
+  3.680000i 0.602165i 3.679094i 0.601260i 3.678189i 0.600354i 3.676378i 0.598543i \\\n\
+  3.672756i 0.596732i 3.667323i 0.594016i 3.663701i 0.594016i 3.661890i 0.593110i \\\n\
+  3.658268i 0.593110i 3.651024i 0.593110i 3.642874i 0.594016i 3.639252i 0.594016i \\\n\
+  3.637441i 0.594016i 3.633819i 0.594921i 3.627480i 0.597638i 3.622047i 0.600354i \\\n\
+  3.619331i 0.602165i 3.619331i 0.603071i 3.617520i 0.604882i 3.613898i 0.608504i \\\n\
+  3.610276i 0.611220i 3.609370i 0.612126i 3.608465i 0.612126i 3.607559i 0.613937i \\\n\
+  3.605748i 0.616654i 3.603937i 0.620276i 3.603031i 0.622087i 3.602126i 0.622992i \\\n\
+  3.602126i 0.624803i 3.602126i 0.628425i 3.603031i 0.631142i 3.603937i 0.632953i \\\n\
+  3.603937i 0.633858i 3.604843i 0.633858i 3.605748i 0.635669i 3.609370i 0.637480i \\\n\
+  3.613898i 0.639291i 3.616614i 0.640197i 3.617520i 0.640197i 3.621142i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 3.627480i 0.640197i 3.634724i 0.639291i 3.638346i 0.638386i \\\n\
+  3.639252i 0.638386i 3.642874i 0.637480i 3.650118i 0.634764i 3.657362i 0.632047i \\\n\
+  3.660079i 0.630236i 3.660984i 0.629331i 3.663701i 0.628425i 3.669134i 0.623898i \\\n\
+  3.674567i 0.619370i 3.677283i 0.617559i 3.678189i 0.616654i 3.680000i 0.613937i \\\n\
+  3.681811i 0.609409i 3.681811i 0.606693i 3.680906i 0.603976i 3.680906i 0.603071i \\\n\
+  3.680000i 0.602165i 3.679094i 0.601260i 3.678189i 0.600354i 3.676378i 0.598543i \\\n\
+  3.672756i 0.596732i 3.667323i 0.594016i 3.663701i 0.594016i 3.661890i 0.593110i \\\n\
+  3.658268i 0.593110i 3.651024i 0.593110i 3.642874i 0.594016i 3.639252i 0.594016i \\\n\
+  3.637441i 0.594016i 3.633819i 0.594921i 3.627480i 0.597638i 3.622047i 0.600354i \\\n\
+  3.619331i 0.602165i 3.619331i 0.603071i 3.617520i 0.604882i 3.613898i 0.608504i \\\n\
+  3.610276i 0.611220i 3.609370i 0.612126i 3.608465i 0.612126i 3.607559i 0.613937i \\\n\
+  3.605748i 0.616654i 3.603937i 0.620276i 3.603031i 0.622087i 3.602126i 0.622992i \\\n\
+  3.602126i 0.624803i 3.602126i 0.628425i 3.603031i 0.631142i 3.603937i 0.632953i \\\n\
+  3.603937i 0.633858i 3.604843i 0.633858i 3.605748i 0.635669i 3.609370i 0.637480i \\\n\
+  3.613898i 0.639291i 3.616614i 0.640197i 3.617520i 0.640197i 3.621142i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 3.677283i 0.441890i 3.678189i 0.447323i 3.679094i 0.449134i \\\n\
+  3.679094i 0.450039i 3.680000i 0.451850i 3.681811i 0.456378i 3.683622i 0.460000i \\\n\
+  3.684528i 0.460906i 3.689055i 0.464528i 3.695394i 0.469961i 3.699016i 0.472677i \\\n\
+  3.700827i 0.474488i 3.705354i 0.477205i 3.713504i 0.484449i 3.721654i 0.490787i \\\n\
+  3.724370i 0.493504i 3.726181i 0.494409i 3.729803i 0.498031i 3.735236i 0.504370i \\\n\
+  3.739764i 0.511614i 3.741575i 0.514331i 3.742480i 0.515236i 3.743386i 0.517953i \\\n\
+  3.745197i 0.525197i 3.746102i 0.532441i 3.746102i 0.535157i 3.745197i 0.538780i \\\n\
+  3.743386i 0.547835i 3.740669i 0.557795i 3.737953i 0.564134i 3.736142i 0.568661i \\\n\
+  3.734331i 0.572283i 3.731614i 0.577717i 3.728898i 0.584961i 3.728898i 0.585866i \\\n\
+  3.727992i 0.586772i 3.727992i 0.587677i 3.727087i 0.587677i 3.727087i 0.588583i \\\n\
+  3.727087i 0.589488i 3.726181i 0.589488i 3.726181i 0.590394i 3.726181i 0.589488i \\\n\
+  3.726181i 0.588583i 3.726181i 0.587677i 3.726181i 0.586772i 3.727087i 0.586772i \\\n\
+  3.727087i 0.585866i 3.727087i 0.584961i 3.728898i 0.578622i 3.730709i 0.574094i \\\n\
+  3.732520i 0.570472i 3.734331i 0.566850i 3.736142i 0.561417i 3.738858i 0.553268i \\\n\
+  3.741575i 0.545118i 3.742480i 0.542402i 3.743386i 0.542402i 3.743386i 0.539685i \\\n\
+  3.742480i 0.532441i 3.740669i 0.524291i 3.738858i 0.520669i 3.737953i 0.519764i \\\n\
+  3.736142i 0.516142i 3.729803i 0.507992i 3.723465i 0.501654i 3.719843i 0.498031i \\\n\
+  3.718031i 0.496220i 3.716220i 0.495315i 3.712598i 0.492598i 3.704449i 0.487165i \\\n\
+  3.695394i 0.481732i 3.690866i 0.479921i 3.688150i 0.479016i 3.683622i 0.477205i \\\n\
+  3.677283i 0.474488i 3.676378i 0.474488i 3.675472i 0.473583i 3.674567i 0.473583i \\\n\
+  3.673661i 0.473583i 3.672756i 0.473583i 3.671850i 0.474488i 3.671850i 0.475394i \\\n\
+  3.671850i 0.476299i 3.671850i 0.477205i 3.671850i 0.478110i 3.671850i 0.479016i \\\n\
+  3.671850i 0.479921i 3.672756i 0.480827i 3.671850i 0.480827i 3.671850i 0.479921i \\\n\
+  3.671850i 0.479016i 3.671850i 0.478110i 3.671850i 0.477205i 3.671850i 0.476299i \\\n\
+  3.671850i 0.474488i 3.671850i 0.464528i 3.672756i 0.455472i 3.673661i 0.447323i \\\n\
+  3.674567i 0.440079i 3.675472i 0.431929i 3.676378i 0.423780i 3.677283i 0.421969i \\\n\
+  3.677283i 0.424685i 3.676378i 0.430118i 3.676378i 0.435551i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 3.677283i 0.441890i 3.678189i 0.447323i 3.679094i 0.449134i \\\n\
+  3.679094i 0.450039i 3.680000i 0.451850i 3.681811i 0.456378i 3.683622i 0.460000i \\\n\
+  3.684528i 0.460906i 3.689055i 0.464528i 3.695394i 0.469961i 3.699016i 0.472677i \\\n\
+  3.700827i 0.474488i 3.705354i 0.477205i 3.713504i 0.484449i 3.721654i 0.490787i \\\n\
+  3.724370i 0.493504i 3.726181i 0.494409i 3.729803i 0.498031i 3.735236i 0.504370i \\\n\
+  3.739764i 0.511614i 3.741575i 0.514331i 3.742480i 0.515236i 3.743386i 0.517953i \\\n\
+  3.745197i 0.525197i 3.746102i 0.532441i 3.746102i 0.535157i 3.745197i 0.538780i \\\n\
+  3.743386i 0.547835i 3.740669i 0.557795i 3.737953i 0.564134i 3.736142i 0.568661i \\\n\
+  3.734331i 0.572283i 3.731614i 0.577717i 3.728898i 0.584961i 3.728898i 0.585866i \\\n\
+  3.727992i 0.586772i 3.727992i 0.587677i 3.727087i 0.587677i 3.727087i 0.588583i \\\n\
+  3.727087i 0.589488i 3.726181i 0.589488i 3.726181i 0.590394i 3.726181i 0.589488i \\\n\
+  3.726181i 0.588583i 3.726181i 0.587677i 3.726181i 0.586772i 3.727087i 0.586772i \\\n\
+  3.727087i 0.585866i 3.727087i 0.584961i 3.728898i 0.578622i 3.730709i 0.574094i \\\n\
+  3.732520i 0.570472i 3.734331i 0.566850i 3.736142i 0.561417i 3.738858i 0.553268i \\\n\
+  3.741575i 0.545118i 3.742480i 0.542402i 3.743386i 0.542402i 3.743386i 0.539685i \\\n\
+  3.742480i 0.532441i 3.740669i 0.524291i 3.738858i 0.520669i 3.737953i 0.519764i \\\n\
+  3.736142i 0.516142i 3.729803i 0.507992i 3.723465i 0.501654i 3.719843i 0.498031i \\\n\
+  3.718031i 0.496220i 3.716220i 0.495315i 3.712598i 0.492598i 3.704449i 0.487165i \\\n\
+  3.695394i 0.481732i 3.690866i 0.479921i 3.688150i 0.479016i 3.683622i 0.477205i \\\n\
+  3.677283i 0.474488i 3.676378i 0.474488i 3.675472i 0.473583i 3.674567i 0.473583i \\\n\
+  3.673661i 0.473583i 3.672756i 0.473583i 3.671850i 0.474488i 3.671850i 0.475394i \\\n\
+  3.671850i 0.476299i 3.671850i 0.477205i 3.671850i 0.478110i 3.671850i 0.479016i \\\n\
+  3.671850i 0.479921i 3.672756i 0.480827i 3.671850i 0.480827i 3.671850i 0.479921i \\\n\
+  3.671850i 0.479016i 3.671850i 0.478110i 3.671850i 0.477205i 3.671850i 0.476299i \\\n\
+  3.671850i 0.474488i 3.671850i 0.464528i 3.672756i 0.455472i 3.673661i 0.447323i \\\n\
+  3.674567i 0.440079i 3.675472i 0.431929i 3.676378i 0.423780i 3.677283i 0.421969i \\\n\
+  3.677283i 0.424685i 3.676378i 0.430118i 3.676378i 0.435551i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 3.711693i 1.060354i 3.711693i 1.264094i -fill $tkxox(score_active_note)\n\
+${score} create polygon 3.666417i 1.306654i 3.674567i 1.305748i 3.678189i 1.305748i \\\n\
+  3.680000i 1.304843i 3.683622i 1.303937i 3.691772i 1.301220i 3.699016i 1.297598i \\\n\
+  3.701732i 1.295787i 3.702638i 1.295787i 3.704449i 1.293071i 3.709882i 1.288543i \\\n\
+  3.714409i 1.283110i 3.717126i 1.281299i 3.718937i 1.280394i 3.719843i 1.277677i \\\n\
+  3.721654i 1.272244i 3.721654i 1.268622i 3.721654i 1.265906i 3.720748i 1.265000i \\\n\
+  3.720748i 1.264094i 3.719843i 1.263189i 3.718937i 1.262283i 3.717126i 1.260472i \\\n\
+  3.714409i 1.257756i 3.708976i 1.255039i 3.706260i 1.253228i 3.704449i 1.253228i \\\n\
+  3.701732i 1.252323i 3.693583i 1.252323i 3.685433i 1.253228i 3.680906i 1.254134i \\\n\
+  3.678189i 1.255039i 3.674567i 1.256850i 3.666417i 1.259567i 3.660079i 1.262283i \\\n\
+  3.657362i 1.263189i 3.656457i 1.264094i 3.655551i 1.265906i 3.651024i 1.268622i \\\n\
+  3.647402i 1.272244i 3.646496i 1.273150i 3.645591i 1.274961i 3.643780i 1.278583i \\\n\
+  3.641969i 1.283110i 3.641969i 1.284921i 3.641063i 1.286732i 3.641063i 1.288543i \\\n\
+  3.641063i 1.293071i 3.641969i 1.297598i 3.641969i 1.299409i 3.641969i 1.300315i \\\n\
+  3.642874i 1.301220i 3.646496i 1.303937i 3.651024i 1.305748i 3.653740i 1.306654i \\\n\
+  3.655551i 1.306654i 3.659173i 1.306654i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 3.666417i 1.306654i 3.674567i 1.305748i 3.678189i 1.305748i \\\n\
+  3.680000i 1.304843i 3.683622i 1.303937i 3.691772i 1.301220i 3.699016i 1.297598i \\\n\
+  3.701732i 1.295787i 3.702638i 1.295787i 3.704449i 1.293071i 3.709882i 1.288543i \\\n\
+  3.714409i 1.283110i 3.717126i 1.281299i 3.718937i 1.280394i 3.719843i 1.277677i \\\n\
+  3.721654i 1.272244i 3.721654i 1.268622i 3.721654i 1.265906i 3.720748i 1.265000i \\\n\
+  3.720748i 1.264094i 3.719843i 1.263189i 3.718937i 1.262283i 3.717126i 1.260472i \\\n\
+  3.714409i 1.257756i 3.708976i 1.255039i 3.706260i 1.253228i 3.704449i 1.253228i \\\n\
+  3.701732i 1.252323i 3.693583i 1.252323i 3.685433i 1.253228i 3.680906i 1.254134i \\\n\
+  3.678189i 1.255039i 3.674567i 1.256850i 3.666417i 1.259567i 3.660079i 1.262283i \\\n\
+  3.657362i 1.263189i 3.656457i 1.264094i 3.655551i 1.265906i 3.651024i 1.268622i \\\n\
+  3.647402i 1.272244i 3.646496i 1.273150i 3.645591i 1.274961i 3.643780i 1.278583i \\\n\
+  3.641969i 1.283110i 3.641969i 1.284921i 3.641063i 1.286732i 3.641063i 1.288543i \\\n\
+  3.641063i 1.293071i 3.641969i 1.297598i 3.641969i 1.299409i 3.641969i 1.300315i \\\n\
+  3.642874i 1.301220i 3.646496i 1.303937i 3.651024i 1.305748i 3.653740i 1.306654i \\\n\
+  3.655551i 1.306654i 3.659173i 1.306654i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 3.065157i 0.422874i 3.065157i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 3.023504i 0.640197i 3.030748i 0.639291i 3.034370i 0.638386i \\\n\
+  3.035276i 0.638386i 3.038898i 0.637480i 3.046142i 0.634764i 3.052480i 0.632047i \\\n\
+  3.055197i 0.630236i 3.057008i 0.629331i 3.058819i 0.628425i 3.064252i 0.623898i \\\n\
+  3.068780i 0.619370i 3.071496i 0.617559i 3.072402i 0.616654i 3.073307i 0.613937i \\\n\
+  3.075118i 0.609409i 3.075118i 0.606693i 3.075118i 0.603976i 3.074213i 0.603071i \\\n\
+  3.074213i 0.602165i 3.073307i 0.601260i 3.072402i 0.600354i 3.070591i 0.598543i \\\n\
+  3.067874i 0.596732i 3.062441i 0.594016i 3.059724i 0.594016i 3.057913i 0.593110i \\\n\
+  3.054291i 0.593110i 3.047047i 0.593110i 3.039803i 0.594016i 3.035276i 0.594016i \\\n\
+  3.033465i 0.594016i 3.030748i 0.594921i 3.023504i 0.597638i 3.017165i 0.600354i \\\n\
+  3.015354i 0.602165i 3.014449i 0.603071i 3.012638i 0.604882i 3.009016i 0.608504i \\\n\
+  3.005394i 0.611220i 3.004488i 0.612126i 3.003583i 0.612126i 3.002677i 0.613937i \\\n\
+  3.000866i 0.616654i 2.999055i 0.620276i 2.998150i 0.622087i 2.998150i 0.622992i \\\n\
+  2.998150i 0.624803i 2.998150i 0.628425i 2.999055i 0.632047i 2.999055i 0.632953i \\\n\
+  2.999961i 0.633858i 3.000866i 0.634764i 3.004488i 0.637480i 3.009016i 0.639291i \\\n\
+  3.011732i 0.640197i 3.013543i 0.640197i 3.016260i 0.640197i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 3.023504i 0.640197i 3.030748i 0.639291i 3.034370i 0.638386i \\\n\
+  3.035276i 0.638386i 3.038898i 0.637480i 3.046142i 0.634764i 3.052480i 0.632047i \\\n\
+  3.055197i 0.630236i 3.057008i 0.629331i 3.058819i 0.628425i 3.064252i 0.623898i \\\n\
+  3.068780i 0.619370i 3.071496i 0.617559i 3.072402i 0.616654i 3.073307i 0.613937i \\\n\
+  3.075118i 0.609409i 3.075118i 0.606693i 3.075118i 0.603976i 3.074213i 0.603071i \\\n\
+  3.074213i 0.602165i 3.073307i 0.601260i 3.072402i 0.600354i 3.070591i 0.598543i \\\n\
+  3.067874i 0.596732i 3.062441i 0.594016i 3.059724i 0.594016i 3.057913i 0.593110i \\\n\
+  3.054291i 0.593110i 3.047047i 0.593110i 3.039803i 0.594016i 3.035276i 0.594016i \\\n\
+  3.033465i 0.594016i 3.030748i 0.594921i 3.023504i 0.597638i 3.017165i 0.600354i \\\n\
+  3.015354i 0.602165i 3.014449i 0.603071i 3.012638i 0.604882i 3.009016i 0.608504i \\\n\
+  3.005394i 0.611220i 3.004488i 0.612126i 3.003583i 0.612126i 3.002677i 0.613937i \\\n\
+  3.000866i 0.616654i 2.999055i 0.620276i 2.998150i 0.622087i 2.998150i 0.622992i \\\n\
+  2.998150i 0.624803i 2.998150i 0.628425i 2.999055i 0.632047i 2.999055i 0.632953i \\\n\
+  2.999961i 0.633858i 3.000866i 0.634764i 3.004488i 0.637480i 3.009016i 0.639291i \\\n\
+  3.011732i 0.640197i 3.013543i 0.640197i 3.016260i 0.640197i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create polygon 3.070591i 0.441890i 3.071496i 0.447323i 3.072402i 0.449134i \\\n\
+  3.072402i 0.450039i 3.073307i 0.451850i 3.075118i 0.456378i 3.076929i 0.460000i \\\n\
+  3.077835i 0.460906i 3.082362i 0.464528i 3.088701i 0.469961i 3.092323i 0.472677i \\\n\
+  3.095039i 0.474488i 3.099567i 0.477205i 3.107717i 0.484449i 3.114961i 0.490787i \\\n\
+  3.118583i 0.493504i 3.120394i 0.494409i 3.123110i 0.498031i 3.128543i 0.504370i \\\n\
+  3.133071i 0.511614i 3.134882i 0.514331i 3.135787i 0.515236i 3.136693i 0.517953i \\\n\
+  3.138504i 0.525197i 3.139409i 0.532441i 3.139409i 0.535157i 3.138504i 0.538780i \\\n\
+  3.136693i 0.547835i 3.133976i 0.557795i 3.131260i 0.564134i 3.129449i 0.568661i \\\n\
+  3.127638i 0.572283i 3.124921i 0.577717i 3.122205i 0.584961i 3.122205i 0.585866i \\\n\
+  3.121299i 0.586772i 3.121299i 0.587677i 3.120394i 0.587677i 3.120394i 0.588583i \\\n\
+  3.120394i 0.589488i 3.119488i 0.589488i 3.119488i 0.590394i 3.119488i 0.589488i \\\n\
+  3.119488i 0.588583i 3.119488i 0.587677i 3.119488i 0.586772i 3.120394i 0.586772i \\\n\
+  3.120394i 0.585866i 3.120394i 0.584961i 3.122205i 0.578622i 3.124016i 0.574094i \\\n\
+  3.125827i 0.570472i 3.127638i 0.566850i 3.129449i 0.561417i 3.132165i 0.553268i \\\n\
+  3.134882i 0.545118i 3.135787i 0.542402i 3.136693i 0.542402i 3.136693i 0.539685i \\\n\
+  3.135787i 0.532441i 3.133976i 0.524291i 3.132165i 0.520669i 3.131260i 0.519764i \\\n\
+  3.129449i 0.516142i 3.123110i 0.507992i 3.116772i 0.501654i 3.113150i 0.498031i \\\n\
+  3.111339i 0.496220i 3.109528i 0.495315i 3.105906i 0.492598i 3.097756i 0.487165i \\\n\
+  3.088701i 0.481732i 3.084173i 0.479921i 3.081457i 0.479016i 3.076929i 0.477205i \\\n\
+  3.070591i 0.474488i 3.069685i 0.474488i 3.068780i 0.473583i 3.067874i 0.473583i \\\n\
+  3.066969i 0.473583i 3.066063i 0.473583i 3.066063i 0.474488i 3.066063i 0.475394i \\\n\
+  3.066063i 0.476299i 3.066063i 0.477205i 3.066063i 0.478110i 3.066969i 0.479016i \\\n\
+  3.066969i 0.479921i 3.066969i 0.480827i 3.066969i 0.479921i 3.066969i 0.479016i \\\n\
+  3.066969i 0.478110i 3.066969i 0.477205i 3.066969i 0.475394i 3.066969i 0.474488i \\\n\
+  3.066969i 0.464528i 3.067874i 0.455472i 3.067874i 0.447323i 3.068780i 0.440079i \\\n\
+  3.068780i 0.431929i 3.069685i 0.423780i 3.070591i 0.421969i 3.069685i 0.424685i \\\n\
+  3.069685i 0.430118i 3.069685i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 3.070591i 0.441890i 3.071496i 0.447323i 3.072402i 0.449134i \\\n\
+  3.072402i 0.450039i 3.073307i 0.451850i 3.075118i 0.456378i 3.076929i 0.460000i \\\n\
+  3.077835i 0.460906i 3.082362i 0.464528i 3.088701i 0.469961i 3.092323i 0.472677i \\\n\
+  3.095039i 0.474488i 3.099567i 0.477205i 3.107717i 0.484449i 3.114961i 0.490787i \\\n\
+  3.118583i 0.493504i 3.120394i 0.494409i 3.123110i 0.498031i 3.128543i 0.504370i \\\n\
+  3.133071i 0.511614i 3.134882i 0.514331i 3.135787i 0.515236i 3.136693i 0.517953i \\\n\
+  3.138504i 0.525197i 3.139409i 0.532441i 3.139409i 0.535157i 3.138504i 0.538780i \\\n\
+  3.136693i 0.547835i 3.133976i 0.557795i 3.131260i 0.564134i 3.129449i 0.568661i \\\n\
+  3.127638i 0.572283i 3.124921i 0.577717i 3.122205i 0.584961i 3.122205i 0.585866i \\\n\
+  3.121299i 0.586772i 3.121299i 0.587677i 3.120394i 0.587677i 3.120394i 0.588583i \\\n\
+  3.120394i 0.589488i 3.119488i 0.589488i 3.119488i 0.590394i 3.119488i 0.589488i \\\n\
+  3.119488i 0.588583i 3.119488i 0.587677i 3.119488i 0.586772i 3.120394i 0.586772i \\\n\
+  3.120394i 0.585866i 3.120394i 0.584961i 3.122205i 0.578622i 3.124016i 0.574094i \\\n\
+  3.125827i 0.570472i 3.127638i 0.566850i 3.129449i 0.561417i 3.132165i 0.553268i \\\n\
+  3.134882i 0.545118i 3.135787i 0.542402i 3.136693i 0.542402i 3.136693i 0.539685i \\\n\
+  3.135787i 0.532441i 3.133976i 0.524291i 3.132165i 0.520669i 3.131260i 0.519764i \\\n\
+  3.129449i 0.516142i 3.123110i 0.507992i 3.116772i 0.501654i 3.113150i 0.498031i \\\n\
+  3.111339i 0.496220i 3.109528i 0.495315i 3.105906i 0.492598i 3.097756i 0.487165i \\\n\
+  3.088701i 0.481732i 3.084173i 0.479921i 3.081457i 0.479016i 3.076929i 0.477205i \\\n\
+  3.070591i 0.474488i 3.069685i 0.474488i 3.068780i 0.473583i 3.067874i 0.473583i \\\n\
+  3.066969i 0.473583i 3.066063i 0.473583i 3.066063i 0.474488i 3.066063i 0.475394i \\\n\
+  3.066063i 0.476299i 3.066063i 0.477205i 3.066063i 0.478110i 3.066969i 0.479016i \\\n\
+  3.066969i 0.479921i 3.066969i 0.480827i 3.066969i 0.479921i 3.066969i 0.479016i \\\n\
+  3.066969i 0.478110i 3.066969i 0.477205i 3.066969i 0.475394i 3.066969i 0.474488i \\\n\
+  3.066969i 0.464528i 3.067874i 0.455472i 3.067874i 0.447323i 3.068780i 0.440079i \\\n\
+  3.068780i 0.431929i 3.069685i 0.423780i 3.070591i 0.421969i 3.069685i 0.424685i \\\n\
+  3.069685i 0.430118i 3.069685i 0.435551i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 2.309055i 0.422874i 2.309055i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 2.266496i 0.640197i 2.273740i 0.639291i 2.277362i 0.638386i \\\n\
+  2.278268i 0.638386i 2.281890i 0.637480i 2.289134i 0.634764i 2.296378i 0.632047i \\\n\
+  2.299094i 0.630236i 2.300000i 0.629331i 2.302717i 0.628425i 2.308150i 0.623898i \\\n\
+  2.312677i 0.619370i 2.314488i 0.617559i 2.315394i 0.616654i 2.317205i 0.613937i \\\n\
+  2.318110i 0.609409i 2.318110i 0.606693i 2.318110i 0.603976i 2.318110i 0.603071i \\\n\
+  2.318110i 0.602165i 2.317205i 0.601260i 2.316299i 0.600354i 2.314488i 0.598543i \\\n\
+  2.311772i 0.596732i 2.306339i 0.594016i 2.302717i 0.594016i 2.300906i 0.593110i \\\n\
+  2.297283i 0.593110i 2.289134i 0.593110i 2.281890i 0.594016i 2.278268i 0.594016i \\\n\
+  2.276457i 0.594016i 2.273740i 0.594921i 2.266496i 0.597638i 2.260157i 0.600354i \\\n\
+  2.257441i 0.602165i 2.256535i 0.603071i 2.254724i 0.604882i 2.250197i 0.608504i \\\n\
+  2.246575i 0.611220i 2.245669i 0.612126i 2.244764i 0.613937i 2.242953i 0.616654i \\\n\
+  2.241142i 0.620276i 2.240236i 0.622087i 2.239331i 0.622992i 2.239331i 0.624803i \\\n\
+  2.239331i 0.628425i 2.240236i 0.631142i 2.241142i 0.632953i 2.241142i 0.633858i \\\n\
+  2.242953i 0.635669i 2.246575i 0.637480i 2.252008i 0.639291i 2.254724i 0.640197i \\\n\
+  2.255630i 0.640197i 2.259252i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 2.266496i 0.640197i 2.273740i 0.639291i 2.277362i 0.638386i \\\n\
+  2.278268i 0.638386i 2.281890i 0.637480i 2.289134i 0.634764i 2.296378i 0.632047i \\\n\
+  2.299094i 0.630236i 2.300000i 0.629331i 2.302717i 0.628425i 2.308150i 0.623898i \\\n\
+  2.312677i 0.619370i 2.314488i 0.617559i 2.315394i 0.616654i 2.317205i 0.613937i \\\n\
+  2.318110i 0.609409i 2.318110i 0.606693i 2.318110i 0.603976i 2.318110i 0.603071i \\\n\
+  2.318110i 0.602165i 2.317205i 0.601260i 2.316299i 0.600354i 2.314488i 0.598543i \\\n\
+  2.311772i 0.596732i 2.306339i 0.594016i 2.302717i 0.594016i 2.300906i 0.593110i \\\n\
+  2.297283i 0.593110i 2.289134i 0.593110i 2.281890i 0.594016i 2.278268i 0.594016i \\\n\
+  2.276457i 0.594016i 2.273740i 0.594921i 2.266496i 0.597638i 2.260157i 0.600354i \\\n\
+  2.257441i 0.602165i 2.256535i 0.603071i 2.254724i 0.604882i 2.250197i 0.608504i \\\n\
+  2.246575i 0.611220i 2.245669i 0.612126i 2.244764i 0.613937i 2.242953i 0.616654i \\\n\
+  2.241142i 0.620276i 2.240236i 0.622087i 2.239331i 0.622992i 2.239331i 0.624803i \\\n\
+  2.239331i 0.628425i 2.240236i 0.631142i 2.241142i 0.632953i 2.241142i 0.633858i \\\n\
+  2.242953i 0.635669i 2.246575i 0.637480i 2.252008i 0.639291i 2.254724i 0.640197i \\\n\
+  2.255630i 0.640197i 2.259252i 0.640197i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 2.314488i 0.441890i 2.315394i 0.447323i 2.315394i 0.449134i \\\n\
+  2.315394i 0.450039i 2.316299i 0.451850i 2.318110i 0.456378i 2.319921i 0.460000i \\\n\
+  2.320827i 0.460000i 2.321732i 0.460906i 2.326260i 0.464528i 2.332598i 0.469961i \\\n\
+  2.336220i 0.472677i 2.338937i 0.474488i 2.342559i 0.477205i 2.350709i 0.484449i \\\n\
+  2.358858i 0.490787i 2.361575i 0.493504i 2.363386i 0.494409i 2.367008i 0.498031i \\\n\
+  2.372441i 0.504370i 2.376969i 0.511614i 2.378780i 0.514331i 2.378780i 0.515236i \\\n\
+  2.379685i 0.517953i 2.381496i 0.525197i 2.382402i 0.532441i 2.383307i 0.535157i \\\n\
+  2.382402i 0.538780i 2.380591i 0.547835i 2.377874i 0.557795i 2.375157i 0.564134i \\\n\
+  2.373346i 0.568661i 2.371535i 0.572283i 2.368819i 0.577717i 2.366102i 0.584961i \\\n\
+  2.366102i 0.585866i 2.365197i 0.586772i 2.365197i 0.587677i 2.364291i 0.587677i \\\n\
+  2.364291i 0.588583i 2.364291i 0.589488i 2.363386i 0.589488i 2.363386i 0.590394i \\\n\
+  2.363386i 0.589488i 2.363386i 0.588583i 2.363386i 0.587677i 2.363386i 0.586772i \\\n\
+  2.364291i 0.586772i 2.364291i 0.585866i 2.364291i 0.584961i 2.366102i 0.578622i \\\n\
+  2.367913i 0.574094i 2.369724i 0.570472i 2.371535i 0.566850i 2.373346i 0.561417i \\\n\
+  2.376063i 0.553268i 2.378780i 0.545118i 2.379685i 0.542402i 2.380591i 0.542402i \\\n\
+  2.380591i 0.539685i 2.379685i 0.532441i 2.377874i 0.524291i 2.376063i 0.520669i \\\n\
+  2.375157i 0.519764i 2.373346i 0.516142i 2.367008i 0.507992i 2.360669i 0.501654i \\\n\
+  2.357047i 0.498031i 2.355236i 0.496220i 2.353425i 0.495315i 2.349803i 0.492598i \\\n\
+  2.341654i 0.487165i 2.332598i 0.481732i 2.328071i 0.479921i 2.325354i 0.479016i \\\n\
+  2.320827i 0.477205i 2.314488i 0.474488i 2.313583i 0.474488i 2.312677i 0.473583i \\\n\
+  2.311772i 0.473583i 2.310866i 0.473583i 2.309961i 0.473583i 2.309961i 0.474488i \\\n\
+  2.309961i 0.475394i 2.309961i 0.476299i 2.309961i 0.477205i 2.309961i 0.478110i \\\n\
+  2.310866i 0.479016i 2.310866i 0.479921i 2.310866i 0.480827i 2.310866i 0.479921i \\\n\
+  2.310866i 0.479016i 2.310866i 0.478110i 2.310866i 0.477205i 2.310866i 0.475394i \\\n\
+  2.310866i 0.474488i 2.310866i 0.464528i 2.311772i 0.455472i 2.311772i 0.447323i \\\n\
+  2.312677i 0.440079i 2.312677i 0.431929i 2.313583i 0.423780i 2.314488i 0.421969i \\\n\
+  2.314488i 0.424685i 2.313583i 0.430118i 2.313583i 0.435551i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 2.314488i 0.441890i 2.315394i 0.447323i 2.315394i 0.449134i \\\n\
+  2.315394i 0.450039i 2.316299i 0.451850i 2.318110i 0.456378i 2.319921i 0.460000i \\\n\
+  2.320827i 0.460000i 2.321732i 0.460906i 2.326260i 0.464528i 2.332598i 0.469961i \\\n\
+  2.336220i 0.472677i 2.338937i 0.474488i 2.342559i 0.477205i 2.350709i 0.484449i \\\n\
+  2.358858i 0.490787i 2.361575i 0.493504i 2.363386i 0.494409i 2.367008i 0.498031i \\\n\
+  2.372441i 0.504370i 2.376969i 0.511614i 2.378780i 0.514331i 2.378780i 0.515236i \\\n\
+  2.379685i 0.517953i 2.381496i 0.525197i 2.382402i 0.532441i 2.383307i 0.535157i \\\n\
+  2.382402i 0.538780i 2.380591i 0.547835i 2.377874i 0.557795i 2.375157i 0.564134i \\\n\
+  2.373346i 0.568661i 2.371535i 0.572283i 2.368819i 0.577717i 2.366102i 0.584961i \\\n\
+  2.366102i 0.585866i 2.365197i 0.586772i 2.365197i 0.587677i 2.364291i 0.587677i \\\n\
+  2.364291i 0.588583i 2.364291i 0.589488i 2.363386i 0.589488i 2.363386i 0.590394i \\\n\
+  2.363386i 0.589488i 2.363386i 0.588583i 2.363386i 0.587677i 2.363386i 0.586772i \\\n\
+  2.364291i 0.586772i 2.364291i 0.585866i 2.364291i 0.584961i 2.366102i 0.578622i \\\n\
+  2.367913i 0.574094i 2.369724i 0.570472i 2.371535i 0.566850i 2.373346i 0.561417i \\\n\
+  2.376063i 0.553268i 2.378780i 0.545118i 2.379685i 0.542402i 2.380591i 0.542402i \\\n\
+  2.380591i 0.539685i 2.379685i 0.532441i 2.377874i 0.524291i 2.376063i 0.520669i \\\n\
+  2.375157i 0.519764i 2.373346i 0.516142i 2.367008i 0.507992i 2.360669i 0.501654i \\\n\
+  2.357047i 0.498031i 2.355236i 0.496220i 2.353425i 0.495315i 2.349803i 0.492598i \\\n\
+  2.341654i 0.487165i 2.332598i 0.481732i 2.328071i 0.479921i 2.325354i 0.479016i \\\n\
+  2.320827i 0.477205i 2.314488i 0.474488i 2.313583i 0.474488i 2.312677i 0.473583i \\\n\
+  2.311772i 0.473583i 2.310866i 0.473583i 2.309961i 0.473583i 2.309961i 0.474488i \\\n\
+  2.309961i 0.475394i 2.309961i 0.476299i 2.309961i 0.477205i 2.309961i 0.478110i \\\n\
+  2.310866i 0.479016i 2.310866i 0.479921i 2.310866i 0.480827i 2.310866i 0.479921i \\\n\
+  2.310866i 0.479016i 2.310866i 0.478110i 2.310866i 0.477205i 2.310866i 0.475394i \\\n\
+  2.310866i 0.474488i 2.310866i 0.464528i 2.311772i 0.455472i 2.311772i 0.447323i \\\n\
+  2.312677i 0.440079i 2.312677i 0.431929i 2.313583i 0.423780i 2.314488i 0.421969i \\\n\
+  2.314488i 0.424685i 2.313583i 0.430118i 2.313583i 0.435551i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 2.309055i 0.086024i 2.309055i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 2.266496i 0.301535i 2.273740i 0.300630i 2.277362i 0.300630i \\\n\
+  2.278268i 0.300630i 2.281890i 0.299724i 2.289134i 0.297913i 2.296378i 0.295197i \\\n\
+  2.299094i 0.293386i 2.300000i 0.293386i 2.302717i 0.291575i 2.308150i 0.287047i \\\n\
+  2.312677i 0.282520i 2.314488i 0.280709i 2.315394i 0.279803i 2.317205i 0.277087i \\\n\
+  2.318110i 0.272559i 2.318110i 0.269843i 2.318110i 0.267126i 2.318110i 0.266220i \\\n\
+  2.318110i 0.265315i 2.317205i 0.264409i 2.316299i 0.263504i 2.314488i 0.261693i \\\n\
+  2.311772i 0.259882i 2.306339i 0.257165i 2.302717i 0.256260i 2.300906i 0.256260i \\\n\
+  2.297283i 0.255354i 2.289134i 0.255354i 2.281890i 0.256260i 2.278268i 0.256260i \\\n\
+  2.276457i 0.257165i 2.273740i 0.258071i 2.266496i 0.260787i 2.260157i 0.263504i \\\n\
+  2.257441i 0.265315i 2.256535i 0.266220i 2.254724i 0.268031i 2.250197i 0.271654i \\\n\
+  2.246575i 0.274370i 2.245669i 0.275276i 2.244764i 0.276181i 2.242953i 0.278898i \\\n\
+  2.241142i 0.282520i 2.240236i 0.284331i 2.239331i 0.285236i 2.239331i 0.287047i \\\n\
+  2.239331i 0.290669i 2.240236i 0.294291i 2.241142i 0.296102i 2.241142i 0.297008i \\\n\
+  2.242953i 0.298819i 2.246575i 0.300630i 2.252008i 0.302441i 2.254724i 0.302441i \\\n\
+  2.255630i 0.302441i 2.259252i 0.301535i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 2.266496i 0.301535i 2.273740i 0.300630i 2.277362i 0.300630i \\\n\
+  2.278268i 0.300630i 2.281890i 0.299724i 2.289134i 0.297913i 2.296378i 0.295197i \\\n\
+  2.299094i 0.293386i 2.300000i 0.293386i 2.302717i 0.291575i 2.308150i 0.287047i \\\n\
+  2.312677i 0.282520i 2.314488i 0.280709i 2.315394i 0.279803i 2.317205i 0.277087i \\\n\
+  2.318110i 0.272559i 2.318110i 0.269843i 2.318110i 0.267126i 2.318110i 0.266220i \\\n\
+  2.318110i 0.265315i 2.317205i 0.264409i 2.316299i 0.263504i 2.314488i 0.261693i \\\n\
+  2.311772i 0.259882i 2.306339i 0.257165i 2.302717i 0.256260i 2.300906i 0.256260i \\\n\
+  2.297283i 0.255354i 2.289134i 0.255354i 2.281890i 0.256260i 2.278268i 0.256260i \\\n\
+  2.276457i 0.257165i 2.273740i 0.258071i 2.266496i 0.260787i 2.260157i 0.263504i \\\n\
+  2.257441i 0.265315i 2.256535i 0.266220i 2.254724i 0.268031i 2.250197i 0.271654i \\\n\
+  2.246575i 0.274370i 2.245669i 0.275276i 2.244764i 0.276181i 2.242953i 0.278898i \\\n\
+  2.241142i 0.282520i 2.240236i 0.284331i 2.239331i 0.285236i 2.239331i 0.287047i \\\n\
+  2.239331i 0.290669i 2.240236i 0.294291i 2.241142i 0.296102i 2.241142i 0.297008i \\\n\
+  2.242953i 0.298819i 2.246575i 0.300630i 2.252008i 0.302441i 2.254724i 0.302441i \\\n\
+  2.255630i 0.302441i 2.259252i 0.301535i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 2.314488i 0.104134i 2.315394i 0.109567i 2.315394i 0.111378i \\\n\
+  2.315394i 0.112283i 2.316299i 0.114094i 2.318110i 0.118622i 2.319921i 0.122244i \\\n\
+  2.320827i 0.123150i 2.320827i 0.122244i 2.321732i 0.123150i 2.326260i 0.127677i \\\n\
+  2.332598i 0.133110i 2.336220i 0.135827i 2.338937i 0.137638i 2.342559i 0.140354i \\\n\
+  2.350709i 0.147598i 2.358858i 0.153937i 2.361575i 0.157559i 2.363386i 0.158465i \\\n\
+  2.367008i 0.161181i 2.372441i 0.167520i 2.376969i 0.173858i 2.378780i 0.175669i \\\n\
+  2.378780i 0.176575i 2.379685i 0.179291i 2.381496i 0.185630i 2.382402i 0.192874i \\\n\
+  2.383307i 0.195591i 2.383307i 0.196496i 2.382402i 0.200118i 2.380591i 0.210079i \\\n\
+  2.377874i 0.220039i 2.375157i 0.226378i 2.373346i 0.230906i 2.371535i 0.234528i \\\n\
+  2.368819i 0.239961i 2.366102i 0.247205i 2.366102i 0.248110i 2.365197i 0.249016i \\\n\
+  2.365197i 0.249921i 2.364291i 0.249921i 2.364291i 0.250827i 2.364291i 0.251732i \\\n\
+  2.363386i 0.251732i 2.363386i 0.252638i 2.363386i 0.251732i 2.363386i 0.250827i \\\n\
+  2.363386i 0.249921i 2.363386i 0.249016i 2.364291i 0.249016i 2.364291i 0.248110i \\\n\
+  2.364291i 0.247205i 2.366102i 0.241772i 2.367913i 0.237244i 2.369724i 0.233622i \\\n\
+  2.371535i 0.230000i 2.373346i 0.224567i 2.376063i 0.216417i 2.378780i 0.208268i \\\n\
+  2.379685i 0.204646i 2.380591i 0.203740i 2.380591i 0.201024i 2.379685i 0.193780i \\\n\
+  2.377874i 0.186535i 2.376063i 0.182913i 2.375157i 0.182008i 2.373346i 0.178386i \\\n\
+  2.367008i 0.171142i 2.360669i 0.164803i 2.357047i 0.161181i 2.355236i 0.160276i \\\n\
+  2.353425i 0.158465i 2.349803i 0.155748i 2.341654i 0.150315i 2.332598i 0.144882i \\\n\
+  2.328071i 0.142165i 2.325354i 0.141260i 2.320827i 0.139449i 2.314488i 0.136732i \\\n\
+  2.313583i 0.136732i 2.312677i 0.135827i 2.311772i 0.135827i 2.310866i 0.135827i \\\n\
+  2.309961i 0.135827i 2.309961i 0.136732i 2.309961i 0.137638i 2.309961i 0.138543i \\\n\
+  2.309961i 0.139449i 2.309961i 0.140354i 2.310866i 0.140354i 2.310866i 0.141260i \\\n\
+  2.310866i 0.142165i 2.310866i 0.141260i 2.310866i 0.140354i 2.310866i 0.139449i \\\n\
+  2.310866i 0.137638i 2.310866i 0.136732i 2.310866i 0.126772i 2.311772i 0.117717i \\\n\
+  2.311772i 0.110472i 2.312677i 0.103228i 2.312677i 0.094173i 2.313583i 0.086929i \\\n\
+  2.314488i 0.085118i 2.314488i 0.087835i 2.313583i 0.092362i 2.313583i 0.097795i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 2.314488i 0.104134i 2.315394i 0.109567i 2.315394i 0.111378i \\\n\
+  2.315394i 0.112283i 2.316299i 0.114094i 2.318110i 0.118622i 2.319921i 0.122244i \\\n\
+  2.320827i 0.123150i 2.320827i 0.122244i 2.321732i 0.123150i 2.326260i 0.127677i \\\n\
+  2.332598i 0.133110i 2.336220i 0.135827i 2.338937i 0.137638i 2.342559i 0.140354i \\\n\
+  2.350709i 0.147598i 2.358858i 0.153937i 2.361575i 0.157559i 2.363386i 0.158465i \\\n\
+  2.367008i 0.161181i 2.372441i 0.167520i 2.376969i 0.173858i 2.378780i 0.175669i \\\n\
+  2.378780i 0.176575i 2.379685i 0.179291i 2.381496i 0.185630i 2.382402i 0.192874i \\\n\
+  2.383307i 0.195591i 2.383307i 0.196496i 2.382402i 0.200118i 2.380591i 0.210079i \\\n\
+  2.377874i 0.220039i 2.375157i 0.226378i 2.373346i 0.230906i 2.371535i 0.234528i \\\n\
+  2.368819i 0.239961i 2.366102i 0.247205i 2.366102i 0.248110i 2.365197i 0.249016i \\\n\
+  2.365197i 0.249921i 2.364291i 0.249921i 2.364291i 0.250827i 2.364291i 0.251732i \\\n\
+  2.363386i 0.251732i 2.363386i 0.252638i 2.363386i 0.251732i 2.363386i 0.250827i \\\n\
+  2.363386i 0.249921i 2.363386i 0.249016i 2.364291i 0.249016i 2.364291i 0.248110i \\\n\
+  2.364291i 0.247205i 2.366102i 0.241772i 2.367913i 0.237244i 2.369724i 0.233622i \\\n\
+  2.371535i 0.230000i 2.373346i 0.224567i 2.376063i 0.216417i 2.378780i 0.208268i \\\n\
+  2.379685i 0.204646i 2.380591i 0.203740i 2.380591i 0.201024i 2.379685i 0.193780i \\\n\
+  2.377874i 0.186535i 2.376063i 0.182913i 2.375157i 0.182008i 2.373346i 0.178386i \\\n\
+  2.367008i 0.171142i 2.360669i 0.164803i 2.357047i 0.161181i 2.355236i 0.160276i \\\n\
+  2.353425i 0.158465i 2.349803i 0.155748i 2.341654i 0.150315i 2.332598i 0.144882i \\\n\
+  2.328071i 0.142165i 2.325354i 0.141260i 2.320827i 0.139449i 2.314488i 0.136732i \\\n\
+  2.313583i 0.136732i 2.312677i 0.135827i 2.311772i 0.135827i 2.310866i 0.135827i \\\n\
+  2.309961i 0.135827i 2.309961i 0.136732i 2.309961i 0.137638i 2.309961i 0.138543i \\\n\
+  2.309961i 0.139449i 2.309961i 0.140354i 2.310866i 0.140354i 2.310866i 0.141260i \\\n\
+  2.310866i 0.142165i 2.310866i 0.141260i 2.310866i 0.140354i 2.310866i 0.139449i \\\n\
+  2.310866i 0.137638i 2.310866i 0.136732i 2.310866i 0.126772i 2.311772i 0.117717i \\\n\
+  2.311772i 0.110472i 2.312677i 0.103228i 2.312677i 0.094173i 2.313583i 0.086929i \\\n\
+  2.314488i 0.085118i 2.314488i 0.087835i 2.313583i 0.092362i 2.313583i 0.097795i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 1.702362i 0.422874i 1.702362i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 1.659803i 0.640197i 1.667047i 0.639291i 1.670669i 0.638386i \\\n\
+  1.672480i 0.638386i 1.676102i 0.637480i 1.683346i 0.634764i 1.690591i 0.632047i \\\n\
+  1.693307i 0.630236i 1.694213i 0.629331i 1.696024i 0.628425i 1.701457i 0.623898i \\\n\
+  1.705984i 0.619370i 1.707795i 0.617559i 1.708701i 0.616654i 1.710512i 0.613937i \\\n\
+  1.711417i 0.609409i 1.711417i 0.605787i 1.711417i 0.603071i 1.710512i 0.602165i \\\n\
+  1.710512i 0.601260i 1.708701i 0.599449i 1.705079i 0.596732i 1.699646i 0.594016i \\\n\
+  1.696929i 0.594016i 1.695118i 0.593110i 1.691496i 0.593110i 1.684252i 0.593110i \\\n\
+  1.676102i 0.594016i 1.672480i 0.594016i 1.670669i 0.594016i 1.667047i 0.594921i \\\n\
+  1.659803i 0.597638i 1.653465i 0.600354i 1.651654i 0.602165i 1.650748i 0.603071i \\\n\
+  1.648937i 0.604882i 1.645315i 0.608504i 1.641693i 0.611220i 1.640787i 0.612126i \\\n\
+  1.639882i 0.613937i 1.638071i 0.616654i 1.636260i 0.620276i 1.635354i 0.622087i \\\n\
+  1.635354i 0.622992i 1.635354i 0.624803i 1.635354i 0.628425i 1.636260i 0.632047i \\\n\
+  1.637165i 0.632953i 1.637165i 0.633858i 1.638071i 0.634764i 1.641693i 0.637480i \\\n\
+  1.646220i 0.639291i 1.648937i 0.640197i 1.649843i 0.640197i 1.652559i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 1.659803i 0.640197i 1.667047i 0.639291i 1.670669i 0.638386i \\\n\
+  1.672480i 0.638386i 1.676102i 0.637480i 1.683346i 0.634764i 1.690591i 0.632047i \\\n\
+  1.693307i 0.630236i 1.694213i 0.629331i 1.696024i 0.628425i 1.701457i 0.623898i \\\n\
+  1.705984i 0.619370i 1.707795i 0.617559i 1.708701i 0.616654i 1.710512i 0.613937i \\\n\
+  1.711417i 0.609409i 1.711417i 0.605787i 1.711417i 0.603071i 1.710512i 0.602165i \\\n\
+  1.710512i 0.601260i 1.708701i 0.599449i 1.705079i 0.596732i 1.699646i 0.594016i \\\n\
+  1.696929i 0.594016i 1.695118i 0.593110i 1.691496i 0.593110i 1.684252i 0.593110i \\\n\
+  1.676102i 0.594016i 1.672480i 0.594016i 1.670669i 0.594016i 1.667047i 0.594921i \\\n\
+  1.659803i 0.597638i 1.653465i 0.600354i 1.651654i 0.602165i 1.650748i 0.603071i \\\n\
+  1.648937i 0.604882i 1.645315i 0.608504i 1.641693i 0.611220i 1.640787i 0.612126i \\\n\
+  1.639882i 0.613937i 1.638071i 0.616654i 1.636260i 0.620276i 1.635354i 0.622087i \\\n\
+  1.635354i 0.622992i 1.635354i 0.624803i 1.635354i 0.628425i 1.636260i 0.632047i \\\n\
+  1.637165i 0.632953i 1.637165i 0.633858i 1.638071i 0.634764i 1.641693i 0.637480i \\\n\
+  1.646220i 0.639291i 1.648937i 0.640197i 1.649843i 0.640197i 1.652559i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 1.707795i 0.441890i 1.708701i 0.447323i 1.708701i 0.449134i \\\n\
+  1.708701i 0.450039i 1.709606i 0.451850i 1.711417i 0.456378i 1.713228i 0.460000i \\\n\
+  1.714134i 0.460000i 1.713228i 0.460000i 1.715039i 0.460906i 1.719567i 0.464528i \\\n\
+  1.725906i 0.469961i 1.729528i 0.472677i 1.732244i 0.474488i 1.736772i 0.477205i \\\n\
+  1.744921i 0.484449i 1.752165i 0.490787i 1.755787i 0.493504i 1.757598i 0.494409i \\\n\
+  1.760315i 0.498031i 1.765748i 0.504370i 1.770276i 0.511614i 1.772087i 0.514331i \\\n\
+  1.772992i 0.515236i 1.773898i 0.517953i 1.775709i 0.525197i 1.776614i 0.532441i \\\n\
+  1.776614i 0.535157i 1.775709i 0.538780i 1.773898i 0.547835i 1.771181i 0.557795i \\\n\
+  1.768465i 0.564134i 1.766654i 0.568661i 1.764843i 0.572283i 1.762126i 0.577717i \\\n\
+  1.759409i 0.584961i 1.759409i 0.585866i 1.758504i 0.586772i 1.758504i 0.587677i \\\n\
+  1.757598i 0.587677i 1.757598i 0.588583i 1.757598i 0.589488i 1.756693i 0.589488i \\\n\
+  1.756693i 0.590394i 1.756693i 0.589488i 1.756693i 0.588583i 1.756693i 0.587677i \\\n\
+  1.756693i 0.586772i 1.757598i 0.586772i 1.757598i 0.585866i 1.757598i 0.584961i \\\n\
+  1.759409i 0.578622i 1.761220i 0.574094i 1.763031i 0.570472i 1.764843i 0.566850i \\\n\
+  1.766654i 0.561417i 1.769370i 0.553268i 1.772087i 0.545118i 1.772992i 0.542402i \\\n\
+  1.773898i 0.542402i 1.773898i 0.539685i 1.772992i 0.532441i 1.771181i 0.524291i \\\n\
+  1.769370i 0.520669i 1.768465i 0.519764i 1.766654i 0.516142i 1.760315i 0.507992i \\\n\
+  1.753976i 0.501654i 1.750354i 0.498031i 1.748543i 0.496220i 1.746732i 0.495315i \\\n\
+  1.743110i 0.492598i 1.734961i 0.487165i 1.725906i 0.481732i 1.721378i 0.479921i \\\n\
+  1.718661i 0.479016i 1.714134i 0.477205i 1.707795i 0.474488i 1.706890i 0.474488i \\\n\
+  1.705984i 0.473583i 1.705079i 0.473583i 1.704173i 0.473583i 1.703268i 0.473583i \\\n\
+  1.703268i 0.474488i 1.703268i 0.475394i 1.703268i 0.476299i 1.703268i 0.477205i \\\n\
+  1.703268i 0.478110i 1.704173i 0.479016i 1.704173i 0.479921i 1.704173i 0.480827i \\\n\
+  1.704173i 0.479921i 1.704173i 0.479016i 1.704173i 0.478110i 1.704173i 0.477205i \\\n\
+  1.704173i 0.475394i 1.704173i 0.474488i 1.704173i 0.464528i 1.705079i 0.455472i \\\n\
+  1.705079i 0.447323i 1.705984i 0.440079i 1.705984i 0.431929i 1.706890i 0.423780i \\\n\
+  1.707795i 0.421969i 1.707795i 0.424685i 1.706890i 0.430118i 1.706890i 0.435551i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 1.707795i 0.441890i 1.708701i 0.447323i 1.708701i 0.449134i \\\n\
+  1.708701i 0.450039i 1.709606i 0.451850i 1.711417i 0.456378i 1.713228i 0.460000i \\\n\
+  1.714134i 0.460000i 1.713228i 0.460000i 1.715039i 0.460906i 1.719567i 0.464528i \\\n\
+  1.725906i 0.469961i 1.729528i 0.472677i 1.732244i 0.474488i 1.736772i 0.477205i \\\n\
+  1.744921i 0.484449i 1.752165i 0.490787i 1.755787i 0.493504i 1.757598i 0.494409i \\\n\
+  1.760315i 0.498031i 1.765748i 0.504370i 1.770276i 0.511614i 1.772087i 0.514331i \\\n\
+  1.772992i 0.515236i 1.773898i 0.517953i 1.775709i 0.525197i 1.776614i 0.532441i \\\n\
+  1.776614i 0.535157i 1.775709i 0.538780i 1.773898i 0.547835i 1.771181i 0.557795i \\\n\
+  1.768465i 0.564134i 1.766654i 0.568661i 1.764843i 0.572283i 1.762126i 0.577717i \\\n\
+  1.759409i 0.584961i 1.759409i 0.585866i 1.758504i 0.586772i 1.758504i 0.587677i \\\n\
+  1.757598i 0.587677i 1.757598i 0.588583i 1.757598i 0.589488i 1.756693i 0.589488i \\\n\
+  1.756693i 0.590394i 1.756693i 0.589488i 1.756693i 0.588583i 1.756693i 0.587677i \\\n\
+  1.756693i 0.586772i 1.757598i 0.586772i 1.757598i 0.585866i 1.757598i 0.584961i \\\n\
+  1.759409i 0.578622i 1.761220i 0.574094i 1.763031i 0.570472i 1.764843i 0.566850i \\\n\
+  1.766654i 0.561417i 1.769370i 0.553268i 1.772087i 0.545118i 1.772992i 0.542402i \\\n\
+  1.773898i 0.542402i 1.773898i 0.539685i 1.772992i 0.532441i 1.771181i 0.524291i \\\n\
+  1.769370i 0.520669i 1.768465i 0.519764i 1.766654i 0.516142i 1.760315i 0.507992i \\\n\
+  1.753976i 0.501654i 1.750354i 0.498031i 1.748543i 0.496220i 1.746732i 0.495315i \\\n\
+  1.743110i 0.492598i 1.734961i 0.487165i 1.725906i 0.481732i 1.721378i 0.479921i \\\n\
+  1.718661i 0.479016i 1.714134i 0.477205i 1.707795i 0.474488i 1.706890i 0.474488i \\\n\
+  1.705984i 0.473583i 1.705079i 0.473583i 1.704173i 0.473583i 1.703268i 0.473583i \\\n\
+  1.703268i 0.474488i 1.703268i 0.475394i 1.703268i 0.476299i 1.703268i 0.477205i \\\n\
+  1.703268i 0.478110i 1.704173i 0.479016i 1.704173i 0.479921i 1.704173i 0.480827i \\\n\
+  1.704173i 0.479921i 1.704173i 0.479016i 1.704173i 0.478110i 1.704173i 0.477205i \\\n\
+  1.704173i 0.475394i 1.704173i 0.474488i 1.704173i 0.464528i 1.705079i 0.455472i \\\n\
+  1.705079i 0.447323i 1.705984i 0.440079i 1.705984i 0.431929i 1.706890i 0.423780i \\\n\
+  1.707795i 0.421969i 1.707795i 0.424685i 1.706890i 0.430118i 1.706890i 0.435551i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 1.098386i 0.086024i 1.098386i 0.266220i -fill $tkxox(score_active_note)\n\
+${score} create polygon 1.054016i 0.301535i 1.061260i 0.300630i 1.064882i 0.300630i \\\n\
+  1.066693i 0.300630i 1.071220i 0.299724i 1.078465i 0.297913i 1.085709i 0.295197i \\\n\
+  1.088425i 0.293386i 1.089331i 0.293386i 1.092047i 0.291575i 1.097480i 0.287047i \\\n\
+  1.102008i 0.282520i 1.103819i 0.280709i 1.104724i 0.279803i 1.106535i 0.277087i \\\n\
+  1.107441i 0.272559i 1.107441i 0.268937i 1.107441i 0.266220i 1.106535i 0.265315i \\\n\
+  1.106535i 0.264409i 1.104724i 0.262598i 1.101102i 0.259882i 1.095669i 0.257165i \\\n\
+  1.092953i 0.256260i 1.091142i 0.256260i 1.087520i 0.255354i 1.079370i 0.255354i \\\n\
+  1.071220i 0.256260i 1.066693i 0.256260i 1.064882i 0.257165i 1.061260i 0.258071i \\\n\
+  1.054016i 0.260787i 1.047677i 0.263504i 1.045866i 0.265315i 1.045866i 0.266220i \\\n\
+  1.044055i 0.268031i 1.040433i 0.271654i 1.036811i 0.274370i 1.035906i 0.275276i \\\n\
+  1.035000i 0.275276i 1.034094i 0.276181i 1.032283i 0.278898i 1.030472i 0.282520i \\\n\
+  1.029567i 0.284331i 1.028661i 0.285236i 1.028661i 0.287047i 1.028661i 0.290669i \\\n\
+  1.029567i 0.294291i 1.030472i 0.296102i 1.030472i 0.297008i 1.031378i 0.297008i \\\n\
+  1.032283i 0.298819i 1.035906i 0.300630i 1.040433i 0.302441i 1.043150i 0.302441i \\\n\
+  1.044055i 0.302441i 1.046772i 0.301535i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 1.054016i 0.301535i 1.061260i 0.300630i 1.064882i 0.300630i \\\n\
+  1.066693i 0.300630i 1.071220i 0.299724i 1.078465i 0.297913i 1.085709i 0.295197i \\\n\
+  1.088425i 0.293386i 1.089331i 0.293386i 1.092047i 0.291575i 1.097480i 0.287047i \\\n\
+  1.102008i 0.282520i 1.103819i 0.280709i 1.104724i 0.279803i 1.106535i 0.277087i \\\n\
+  1.107441i 0.272559i 1.107441i 0.268937i 1.107441i 0.266220i 1.106535i 0.265315i \\\n\
+  1.106535i 0.264409i 1.104724i 0.262598i 1.101102i 0.259882i 1.095669i 0.257165i \\\n\
+  1.092953i 0.256260i 1.091142i 0.256260i 1.087520i 0.255354i 1.079370i 0.255354i \\\n\
+  1.071220i 0.256260i 1.066693i 0.256260i 1.064882i 0.257165i 1.061260i 0.258071i \\\n\
+  1.054016i 0.260787i 1.047677i 0.263504i 1.045866i 0.265315i 1.045866i 0.266220i \\\n\
+  1.044055i 0.268031i 1.040433i 0.271654i 1.036811i 0.274370i 1.035906i 0.275276i \\\n\
+  1.035000i 0.275276i 1.034094i 0.276181i 1.032283i 0.278898i 1.030472i 0.282520i \\\n\
+  1.029567i 0.284331i 1.028661i 0.285236i 1.028661i 0.287047i 1.028661i 0.290669i \\\n\
+  1.029567i 0.294291i 1.030472i 0.296102i 1.030472i 0.297008i 1.031378i 0.297008i \\\n\
+  1.032283i 0.298819i 1.035906i 0.300630i 1.040433i 0.302441i 1.043150i 0.302441i \\\n\
+  1.044055i 0.302441i 1.046772i 0.301535i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 1.103819i 0.104134i 1.104724i 0.109567i 1.104724i 0.111378i \\\n\
+  1.105630i 0.112283i 1.105630i 0.114094i 1.107441i 0.118622i 1.109252i 0.122244i \\\n\
+  1.109252i 0.123150i 1.109252i 0.122244i 1.110157i 0.123150i 1.114685i 0.127677i \\\n\
+  1.121024i 0.133110i 1.124646i 0.135827i 1.127362i 0.137638i 1.131890i 0.140354i \\\n\
+  1.140039i 0.147598i 1.148189i 0.153937i 1.151811i 0.157559i 1.152717i 0.158465i \\\n\
+  1.156339i 0.161181i 1.161772i 0.167520i 1.166299i 0.173858i 1.168110i 0.175669i \\\n\
+  1.168110i 0.176575i 1.169016i 0.179291i 1.170827i 0.185630i 1.171732i 0.192874i \\\n\
+  1.171732i 0.195591i 1.171732i 0.196496i 1.170827i 0.200118i 1.169016i 0.210079i \\\n\
+  1.166299i 0.220039i 1.163583i 0.226378i 1.161772i 0.230906i 1.160866i 0.234528i \\\n\
+  1.158150i 0.239961i 1.155433i 0.247205i 1.155433i 0.248110i 1.154528i 0.249016i \\\n\
+  1.154528i 0.249921i 1.153622i 0.250827i 1.153622i 0.251732i 1.152717i 0.252638i \\\n\
+  1.152717i 0.251732i 1.152717i 0.250827i 1.152717i 0.249921i 1.152717i 0.249016i \\\n\
+  1.153622i 0.249016i 1.153622i 0.248110i 1.153622i 0.247205i 1.155433i 0.241772i \\\n\
+  1.157244i 0.237244i 1.159055i 0.233622i 1.159961i 0.230000i 1.161772i 0.224567i \\\n\
+  1.164488i 0.216417i 1.166299i 0.208268i 1.168110i 0.204646i 1.168110i 0.203740i \\\n\
+  1.169016i 0.201024i 1.168110i 0.193780i 1.166299i 0.186535i 1.165394i 0.182913i \\\n\
+  1.164488i 0.182008i 1.161772i 0.178386i 1.156339i 0.171142i 1.150000i 0.164803i \\\n\
+  1.146378i 0.161181i 1.144567i 0.160276i 1.142756i 0.158465i 1.138228i 0.155748i \\\n\
+  1.130079i 0.150315i 1.121024i 0.144882i 1.116496i 0.142165i 1.113780i 0.141260i \\\n\
+  1.110157i 0.139449i 1.103819i 0.136732i 1.102913i 0.136732i 1.102008i 0.135827i \\\n\
+  1.101102i 0.135827i 1.100197i 0.135827i 1.099291i 0.135827i 1.099291i 0.136732i \\\n\
+  1.099291i 0.137638i 1.099291i 0.138543i 1.099291i 0.139449i 1.099291i 0.140354i \\\n\
+  1.100197i 0.140354i 1.100197i 0.141260i 1.100197i 0.142165i 1.100197i 0.141260i \\\n\
+  1.100197i 0.140354i 1.100197i 0.139449i 1.100197i 0.137638i 1.100197i 0.136732i \\\n\
+  1.100197i 0.126772i 1.101102i 0.117717i 1.101102i 0.110472i 1.102008i 0.103228i \\\n\
+  1.102008i 0.094173i 1.102913i 0.086929i 1.103819i 0.085118i 1.103819i 0.087835i \\\n\
+  1.102913i 0.092362i 1.102913i 0.097795i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 1.103819i 0.104134i 1.104724i 0.109567i 1.104724i 0.111378i \\\n\
+  1.105630i 0.112283i 1.105630i 0.114094i 1.107441i 0.118622i 1.109252i 0.122244i \\\n\
+  1.109252i 0.123150i 1.109252i 0.122244i 1.110157i 0.123150i 1.114685i 0.127677i \\\n\
+  1.121024i 0.133110i 1.124646i 0.135827i 1.127362i 0.137638i 1.131890i 0.140354i \\\n\
+  1.140039i 0.147598i 1.148189i 0.153937i 1.151811i 0.157559i 1.152717i 0.158465i \\\n\
+  1.156339i 0.161181i 1.161772i 0.167520i 1.166299i 0.173858i 1.168110i 0.175669i \\\n\
+  1.168110i 0.176575i 1.169016i 0.179291i 1.170827i 0.185630i 1.171732i 0.192874i \\\n\
+  1.171732i 0.195591i 1.171732i 0.196496i 1.170827i 0.200118i 1.169016i 0.210079i \\\n\
+  1.166299i 0.220039i 1.163583i 0.226378i 1.161772i 0.230906i 1.160866i 0.234528i \\\n\
+  1.158150i 0.239961i 1.155433i 0.247205i 1.155433i 0.248110i 1.154528i 0.249016i \\\n\
+  1.154528i 0.249921i 1.153622i 0.250827i 1.153622i 0.251732i 1.152717i 0.252638i \\\n\
+  1.152717i 0.251732i 1.152717i 0.250827i 1.152717i 0.249921i 1.152717i 0.249016i \\\n\
+  1.153622i 0.249016i 1.153622i 0.248110i 1.153622i 0.247205i 1.155433i 0.241772i \\\n\
+  1.157244i 0.237244i 1.159055i 0.233622i 1.159961i 0.230000i 1.161772i 0.224567i \\\n\
+  1.164488i 0.216417i 1.166299i 0.208268i 1.168110i 0.204646i 1.168110i 0.203740i \\\n\
+  1.169016i 0.201024i 1.168110i 0.193780i 1.166299i 0.186535i 1.165394i 0.182913i \\\n\
+  1.164488i 0.182008i 1.161772i 0.178386i 1.156339i 0.171142i 1.150000i 0.164803i \\\n\
+  1.146378i 0.161181i 1.144567i 0.160276i 1.142756i 0.158465i 1.138228i 0.155748i \\\n\
+  1.130079i 0.150315i 1.121024i 0.144882i 1.116496i 0.142165i 1.113780i 0.141260i \\\n\
+  1.110157i 0.139449i 1.103819i 0.136732i 1.102913i 0.136732i 1.102008i 0.135827i \\\n\
+  1.101102i 0.135827i 1.100197i 0.135827i 1.099291i 0.135827i 1.099291i 0.136732i \\\n\
+  1.099291i 0.137638i 1.099291i 0.138543i 1.099291i 0.139449i 1.099291i 0.140354i \\\n\
+  1.100197i 0.140354i 1.100197i 0.141260i 1.100197i 0.142165i 1.100197i 0.141260i \\\n\
+  1.100197i 0.140354i 1.100197i 0.139449i 1.100197i 0.137638i 1.100197i 0.136732i \\\n\
+  1.100197i 0.126772i 1.101102i 0.117717i 1.101102i 0.110472i 1.102008i 0.103228i \\\n\
+  1.102008i 0.094173i 1.102913i 0.086929i 1.103819i 0.085118i 1.103819i 0.087835i \\\n\
+  1.102913i 0.092362i 1.102913i 0.097795i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 1.098386i 0.422874i 1.098386i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 1.054016i 0.640197i 1.061260i 0.639291i 1.064882i 0.638386i \\\n\
+  1.066693i 0.638386i 1.071220i 0.637480i 1.078465i 0.634764i 1.085709i 0.632047i \\\n\
+  1.088425i 0.630236i 1.089331i 0.629331i 1.092047i 0.628425i 1.097480i 0.623898i \\\n\
+  1.102008i 0.619370i 1.103819i 0.617559i 1.104724i 0.616654i 1.106535i 0.613937i \\\n\
+  1.107441i 0.609409i 1.107441i 0.605787i 1.107441i 0.603071i 1.106535i 0.602165i \\\n\
+  1.106535i 0.601260i 1.104724i 0.599449i 1.101102i 0.596732i 1.095669i 0.594016i \\\n\
+  1.092953i 0.594016i 1.091142i 0.593110i 1.087520i 0.593110i 1.079370i 0.593110i \\\n\
+  1.071220i 0.594016i 1.066693i 0.594016i 1.064882i 0.594016i 1.061260i 0.594921i \\\n\
+  1.054016i 0.597638i 1.047677i 0.600354i 1.045866i 0.602165i 1.045866i 0.603071i \\\n\
+  1.044055i 0.604882i 1.040433i 0.608504i 1.036811i 0.611220i 1.035906i 0.612126i \\\n\
+  1.035000i 0.612126i 1.034094i 0.613937i 1.032283i 0.616654i 1.030472i 0.620276i \\\n\
+  1.029567i 0.622087i 1.028661i 0.622992i 1.028661i 0.624803i 1.028661i 0.628425i \\\n\
+  1.029567i 0.631142i 1.030472i 0.632953i 1.030472i 0.633858i 1.031378i 0.633858i \\\n\
+  1.032283i 0.635669i 1.035906i 0.637480i 1.040433i 0.639291i 1.043150i 0.640197i \\\n\
+  1.044055i 0.640197i 1.046772i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 1.054016i 0.640197i 1.061260i 0.639291i 1.064882i 0.638386i \\\n\
+  1.066693i 0.638386i 1.071220i 0.637480i 1.078465i 0.634764i 1.085709i 0.632047i \\\n\
+  1.088425i 0.630236i 1.089331i 0.629331i 1.092047i 0.628425i 1.097480i 0.623898i \\\n\
+  1.102008i 0.619370i 1.103819i 0.617559i 1.104724i 0.616654i 1.106535i 0.613937i \\\n\
+  1.107441i 0.609409i 1.107441i 0.605787i 1.107441i 0.603071i 1.106535i 0.602165i \\\n\
+  1.106535i 0.601260i 1.104724i 0.599449i 1.101102i 0.596732i 1.095669i 0.594016i \\\n\
+  1.092953i 0.594016i 1.091142i 0.593110i 1.087520i 0.593110i 1.079370i 0.593110i \\\n\
+  1.071220i 0.594016i 1.066693i 0.594016i 1.064882i 0.594016i 1.061260i 0.594921i \\\n\
+  1.054016i 0.597638i 1.047677i 0.600354i 1.045866i 0.602165i 1.045866i 0.603071i \\\n\
+  1.044055i 0.604882i 1.040433i 0.608504i 1.036811i 0.611220i 1.035906i 0.612126i \\\n\
+  1.035000i 0.612126i 1.034094i 0.613937i 1.032283i 0.616654i 1.030472i 0.620276i \\\n\
+  1.029567i 0.622087i 1.028661i 0.622992i 1.028661i 0.624803i 1.028661i 0.628425i \\\n\
+  1.029567i 0.631142i 1.030472i 0.632953i 1.030472i 0.633858i 1.031378i 0.633858i \\\n\
+  1.032283i 0.635669i 1.035906i 0.637480i 1.040433i 0.639291i 1.043150i 0.640197i \\\n\
+  1.044055i 0.640197i 1.046772i 0.640197i -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 1.103819i 0.441890i 1.104724i 0.447323i 1.104724i 0.449134i \\\n\
+  1.105630i 0.450039i 1.105630i 0.451850i 1.107441i 0.456378i 1.109252i 0.460000i \\\n\
+  1.110157i 0.460906i 1.114685i 0.464528i 1.121024i 0.469961i 1.124646i 0.472677i \\\n\
+  1.127362i 0.474488i 1.131890i 0.477205i 1.140039i 0.484449i 1.148189i 0.490787i \\\n\
+  1.151811i 0.493504i 1.152717i 0.494409i 1.156339i 0.498031i 1.161772i 0.504370i \\\n\
+  1.166299i 0.511614i 1.168110i 0.514331i 1.168110i 0.515236i 1.169016i 0.517953i \\\n\
+  1.170827i 0.525197i 1.171732i 0.532441i 1.171732i 0.535157i 1.170827i 0.538780i \\\n\
+  1.169016i 0.547835i 1.166299i 0.557795i 1.163583i 0.564134i 1.161772i 0.568661i \\\n\
+  1.160866i 0.572283i 1.158150i 0.577717i 1.155433i 0.584961i 1.155433i 0.585866i \\\n\
+  1.154528i 0.586772i 1.154528i 0.587677i 1.153622i 0.588583i 1.153622i 0.589488i \\\n\
+  1.152717i 0.590394i 1.152717i 0.589488i 1.152717i 0.588583i 1.152717i 0.587677i \\\n\
+  1.152717i 0.586772i 1.153622i 0.586772i 1.153622i 0.585866i 1.153622i 0.584961i \\\n\
+  1.155433i 0.578622i 1.157244i 0.574094i 1.159055i 0.570472i 1.159961i 0.566850i \\\n\
+  1.161772i 0.561417i 1.164488i 0.553268i 1.166299i 0.545118i 1.168110i 0.542402i \\\n\
+  1.169016i 0.539685i 1.168110i 0.532441i 1.166299i 0.524291i 1.165394i 0.520669i \\\n\
+  1.164488i 0.519764i 1.161772i 0.516142i 1.156339i 0.507992i 1.150000i 0.501654i \\\n\
+  1.146378i 0.498031i 1.144567i 0.496220i 1.142756i 0.495315i 1.138228i 0.492598i \\\n\
+  1.130079i 0.487165i 1.121024i 0.481732i 1.116496i 0.479921i 1.113780i 0.479016i \\\n\
+  1.110157i 0.477205i 1.103819i 0.474488i 1.102913i 0.474488i 1.102008i 0.473583i \\\n\
+  1.101102i 0.473583i 1.100197i 0.473583i 1.099291i 0.473583i 1.099291i 0.474488i \\\n\
+  1.099291i 0.475394i 1.099291i 0.476299i 1.099291i 0.477205i 1.099291i 0.478110i \\\n\
+  1.100197i 0.479016i 1.100197i 0.479921i 1.100197i 0.480827i 1.100197i 0.479921i \\\n\
+  1.100197i 0.479016i 1.100197i 0.478110i 1.100197i 0.477205i 1.100197i 0.475394i \\\n\
+  1.100197i 0.474488i 1.100197i 0.464528i 1.101102i 0.455472i 1.101102i 0.447323i \\\n\
+  1.102008i 0.440079i 1.102008i 0.431929i 1.102913i 0.423780i 1.103819i 0.421969i \\\n\
+  1.103819i 0.424685i 1.102913i 0.430118i 1.102913i 0.435551i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 1.103819i 0.441890i 1.104724i 0.447323i 1.104724i 0.449134i \\\n\
+  1.105630i 0.450039i 1.105630i 0.451850i 1.107441i 0.456378i 1.109252i 0.460000i \\\n\
+  1.110157i 0.460906i 1.114685i 0.464528i 1.121024i 0.469961i 1.124646i 0.472677i \\\n\
+  1.127362i 0.474488i 1.131890i 0.477205i 1.140039i 0.484449i 1.148189i 0.490787i \\\n\
+  1.151811i 0.493504i 1.152717i 0.494409i 1.156339i 0.498031i 1.161772i 0.504370i \\\n\
+  1.166299i 0.511614i 1.168110i 0.514331i 1.168110i 0.515236i 1.169016i 0.517953i \\\n\
+  1.170827i 0.525197i 1.171732i 0.532441i 1.171732i 0.535157i 1.170827i 0.538780i \\\n\
+  1.169016i 0.547835i 1.166299i 0.557795i 1.163583i 0.564134i 1.161772i 0.568661i \\\n\
+  1.160866i 0.572283i 1.158150i 0.577717i 1.155433i 0.584961i 1.155433i 0.585866i \\\n\
+  1.154528i 0.586772i 1.154528i 0.587677i 1.153622i 0.588583i 1.153622i 0.589488i \\\n\
+  1.152717i 0.590394i 1.152717i 0.589488i 1.152717i 0.588583i 1.152717i 0.587677i \\\n\
+  1.152717i 0.586772i 1.153622i 0.586772i 1.153622i 0.585866i 1.153622i 0.584961i \\\n\
+  1.155433i 0.578622i 1.157244i 0.574094i 1.159055i 0.570472i 1.159961i 0.566850i \\\n\
+  1.161772i 0.561417i 1.164488i 0.553268i 1.166299i 0.545118i 1.168110i 0.542402i \\\n\
+  1.169016i 0.539685i 1.168110i 0.532441i 1.166299i 0.524291i 1.165394i 0.520669i \\\n\
+  1.164488i 0.519764i 1.161772i 0.516142i 1.156339i 0.507992i 1.150000i 0.501654i \\\n\
+  1.146378i 0.498031i 1.144567i 0.496220i 1.142756i 0.495315i 1.138228i 0.492598i \\\n\
+  1.130079i 0.487165i 1.121024i 0.481732i 1.116496i 0.479921i 1.113780i 0.479016i \\\n\
+  1.110157i 0.477205i 1.103819i 0.474488i 1.102913i 0.474488i 1.102008i 0.473583i \\\n\
+  1.101102i 0.473583i 1.100197i 0.473583i 1.099291i 0.473583i 1.099291i 0.474488i \\\n\
+  1.099291i 0.475394i 1.099291i 0.476299i 1.099291i 0.477205i 1.099291i 0.478110i \\\n\
+  1.100197i 0.479016i 1.100197i 0.479921i 1.100197i 0.480827i 1.100197i 0.479921i \\\n\
+  1.100197i 0.479016i 1.100197i 0.478110i 1.100197i 0.477205i 1.100197i 0.475394i \\\n\
+  1.100197i 0.474488i 1.100197i 0.464528i 1.101102i 0.455472i 1.101102i 0.447323i \\\n\
+  1.102008i 0.440079i 1.102008i 0.431929i 1.102913i 0.423780i 1.103819i 0.421969i \\\n\
+  1.103819i 0.424685i 1.102913i 0.430118i 1.102913i 0.435551i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 1.101102i 0.721693i 1.101102i 0.927244i -fill $tkxox(score_active_note)\n\
+${score} create polygon 1.054921i 0.967992i 1.063071i 0.967087i 1.066693i 0.967087i \\\n\
+  1.068504i 0.967087i 1.072126i 0.966181i 1.080276i 0.963465i 1.087520i 0.959843i \\\n\
+  1.090236i 0.958937i 1.091142i 0.958031i 1.093858i 0.955315i 1.099291i 0.950787i \\\n\
+  1.103819i 0.945354i 1.106535i 0.943543i 1.107441i 0.942638i 1.108346i 0.939921i \\\n\
+  1.110157i 0.934488i 1.110157i 0.930866i 1.110157i 0.928150i 1.110157i 0.927244i \\\n\
+  1.110157i 0.926339i 1.109252i 0.925433i 1.108346i 0.924528i 1.106535i 0.922717i \\\n\
+  1.103819i 0.920000i 1.098386i 0.917283i 1.095669i 0.916378i 1.093858i 0.916378i \\\n\
+  1.090236i 0.916378i 1.082087i 0.916378i 1.073031i 0.917283i 1.069409i 0.918189i \\\n\
+  1.066693i 0.918189i 1.062165i 0.919094i 1.054921i 0.921811i 1.048583i 0.924528i \\\n\
+  1.046772i 0.925433i 1.045866i 0.926339i 1.044055i 0.927244i 1.040433i 0.930866i \\\n\
+  1.036811i 0.934488i 1.035906i 0.935394i 1.035000i 0.936299i 1.034094i 0.937205i \\\n\
+  1.032283i 0.941732i 1.030472i 0.946260i 1.029567i 0.948071i 1.028661i 0.949882i \\\n\
+  1.028661i 0.951693i 1.028661i 0.956220i 1.029567i 0.960748i 1.030472i 0.962559i \\\n\
+  1.030472i 0.963465i 1.032283i 0.964370i 1.035906i 0.967087i 1.040433i 0.968898i \\\n\
+  1.043150i 0.968898i 1.044961i 0.968898i 1.047677i 0.967992i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 1.054921i 0.967992i 1.063071i 0.967087i 1.066693i 0.967087i \\\n\
+  1.068504i 0.967087i 1.072126i 0.966181i 1.080276i 0.963465i 1.087520i 0.959843i \\\n\
+  1.090236i 0.958937i 1.091142i 0.958031i 1.093858i 0.955315i 1.099291i 0.950787i \\\n\
+  1.103819i 0.945354i 1.106535i 0.943543i 1.107441i 0.942638i 1.108346i 0.939921i \\\n\
+  1.110157i 0.934488i 1.110157i 0.930866i 1.110157i 0.928150i 1.110157i 0.927244i \\\n\
+  1.110157i 0.926339i 1.109252i 0.925433i 1.108346i 0.924528i 1.106535i 0.922717i \\\n\
+  1.103819i 0.920000i 1.098386i 0.917283i 1.095669i 0.916378i 1.093858i 0.916378i \\\n\
+  1.090236i 0.916378i 1.082087i 0.916378i 1.073031i 0.917283i 1.069409i 0.918189i \\\n\
+  1.066693i 0.918189i 1.062165i 0.919094i 1.054921i 0.921811i 1.048583i 0.924528i \\\n\
+  1.046772i 0.925433i 1.045866i 0.926339i 1.044055i 0.927244i 1.040433i 0.930866i \\\n\
+  1.036811i 0.934488i 1.035906i 0.935394i 1.035000i 0.936299i 1.034094i 0.937205i \\\n\
+  1.032283i 0.941732i 1.030472i 0.946260i 1.029567i 0.948071i 1.028661i 0.949882i \\\n\
+  1.028661i 0.951693i 1.028661i 0.956220i 1.029567i 0.960748i 1.030472i 0.962559i \\\n\
+  1.030472i 0.963465i 1.032283i 0.964370i 1.035906i 0.967087i 1.040433i 0.968898i \\\n\
+  1.043150i 0.968898i 1.044961i 0.968898i 1.047677i 0.967992i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 1.101102i 1.060354i 1.101102i 1.264094i -fill $tkxox(score_active_note)\n\
+${score} create polygon 1.054921i 1.306654i 1.063071i 1.305748i 1.066693i 1.305748i \\\n\
+  1.068504i 1.304843i 1.072126i 1.303937i 1.080276i 1.301220i 1.087520i 1.297598i \\\n\
+  1.090236i 1.295787i 1.091142i 1.295787i 1.093858i 1.293071i 1.099291i 1.288543i \\\n\
+  1.103819i 1.283110i 1.106535i 1.281299i 1.107441i 1.280394i 1.108346i 1.277677i \\\n\
+  1.110157i 1.272244i 1.110157i 1.268622i 1.110157i 1.265906i 1.110157i 1.265000i \\\n\
+  1.110157i 1.264094i 1.109252i 1.263189i 1.108346i 1.262283i 1.106535i 1.260472i \\\n\
+  1.103819i 1.257756i 1.098386i 1.255039i 1.095669i 1.253228i 1.093858i 1.253228i \\\n\
+  1.090236i 1.252323i 1.082087i 1.252323i 1.073031i 1.253228i 1.069409i 1.254134i \\\n\
+  1.066693i 1.255039i 1.062165i 1.256850i 1.054921i 1.259567i 1.048583i 1.262283i \\\n\
+  1.046772i 1.263189i 1.045866i 1.264094i 1.044055i 1.265906i 1.040433i 1.268622i \\\n\
+  1.036811i 1.272244i 1.035906i 1.273150i 1.035000i 1.273150i 1.034094i 1.274961i \\\n\
+  1.032283i 1.278583i 1.030472i 1.283110i 1.029567i 1.284921i 1.028661i 1.286732i \\\n\
+  1.028661i 1.288543i 1.028661i 1.293071i 1.029567i 1.297598i 1.030472i 1.299409i \\\n\
+  1.030472i 1.300315i 1.032283i 1.301220i 1.035906i 1.303937i 1.040433i 1.305748i \\\n\
+  1.043150i 1.306654i 1.044961i 1.306654i 1.047677i 1.306654i -outline {} -fill $tkxox(score_active_note) \\\n\
+  -width 0\n\
+${score} create polygon 1.054921i 1.306654i 1.063071i 1.305748i 1.066693i 1.305748i \\\n\
+  1.068504i 1.304843i 1.072126i 1.303937i 1.080276i 1.301220i 1.087520i 1.297598i \\\n\
+  1.090236i 1.295787i 1.091142i 1.295787i 1.093858i 1.293071i 1.099291i 1.288543i \\\n\
+  1.103819i 1.283110i 1.106535i 1.281299i 1.107441i 1.280394i 1.108346i 1.277677i \\\n\
+  1.110157i 1.272244i 1.110157i 1.268622i 1.110157i 1.265906i 1.110157i 1.265000i \\\n\
+  1.110157i 1.264094i 1.109252i 1.263189i 1.108346i 1.262283i 1.106535i 1.260472i \\\n\
+  1.103819i 1.257756i 1.098386i 1.255039i 1.095669i 1.253228i 1.093858i 1.253228i \\\n\
+  1.090236i 1.252323i 1.082087i 1.252323i 1.073031i 1.253228i 1.069409i 1.254134i \\\n\
+  1.066693i 1.255039i 1.062165i 1.256850i 1.054921i 1.259567i 1.048583i 1.262283i \\\n\
+  1.046772i 1.263189i 1.045866i 1.264094i 1.044055i 1.265906i 1.040433i 1.268622i \\\n\
+  1.036811i 1.272244i 1.035906i 1.273150i 1.035000i 1.273150i 1.034094i 1.274961i \\\n\
+  1.032283i 1.278583i 1.030472i 1.283110i 1.029567i 1.284921i 1.028661i 1.286732i \\\n\
+  1.028661i 1.288543i 1.028661i 1.293071i 1.029567i 1.297598i 1.030472i 1.299409i \\\n\
+  1.030472i 1.300315i 1.032283i 1.301220i 1.035906i 1.303937i 1.040433i 1.305748i \\\n\
+  1.043150i 1.306654i 1.044961i 1.306654i 1.047677i 1.306654i -outline $tkxox(score_active_note) -fill \\\n\
+  {}\n\
+${score} create line 11.014646i 0.422874i 11.014646i 0.602165i -fill $tkxox(score_passive_note)\n\
+${score} create polygon 11.020079i 0.441890i 11.020984i 0.447323i 11.020984i 0.449134i \\\n\
+  11.021890i 0.450039i 11.021890i 0.451850i 11.023701i 0.456378i 11.025512i 0.460000i \\\n\
+  11.026417i 0.460906i 11.030945i 0.464528i 11.037283i 0.469961i 11.040906i 0.472677i \\\n\
+  11.043622i 0.474488i 11.048150i 0.477205i 11.056299i 0.484449i 11.064449i 0.490787i \\\n\
+  11.068071i 0.493504i 11.068976i 0.494409i 11.072598i 0.498031i 11.078031i 0.504370i \\\n\
+  11.082559i 0.511614i 11.084370i 0.514331i 11.084370i 0.515236i 11.085276i 0.517953i \\\n\
+  11.087087i 0.525197i 11.087992i 0.532441i 11.088898i 0.535157i 11.087992i 0.538780i \\\n\
+  11.086181i 0.547835i 11.083465i 0.557795i 11.080748i 0.564134i 11.078937i 0.568661i \\\n\
+  11.077126i 0.572283i 11.074409i 0.577717i 11.071693i 0.584961i 11.071693i 0.585866i \\\n\
+  11.070787i 0.586772i 11.070787i 0.587677i 11.069882i 0.587677i 11.069882i 0.588583i \\\n\
+  11.069882i 0.589488i 11.068976i 0.589488i 11.068976i 0.590394i 11.068976i 0.589488i \\\n\
+  11.068976i 0.588583i 11.068976i 0.587677i 11.068976i 0.586772i 11.069882i 0.586772i \\\n\
+  11.069882i 0.585866i 11.069882i 0.584961i 11.071693i 0.578622i 11.073504i 0.574094i \\\n\
+  11.075315i 0.570472i 11.077126i 0.566850i 11.078937i 0.561417i 11.081654i 0.553268i \\\n\
+  11.084370i 0.545118i 11.085276i 0.542402i 11.086181i 0.542402i 11.086181i 0.539685i \\\n\
+  11.085276i 0.532441i 11.083465i 0.524291i 11.081654i 0.520669i 11.080748i 0.519764i \\\n\
+  11.078937i 0.516142i 11.072598i 0.507992i 11.066260i 0.501654i 11.062638i 0.498031i \\\n\
+  11.060827i 0.496220i 11.058110i 0.495315i 11.054488i 0.492598i 11.046339i 0.487165i \\\n\
+  11.037283i 0.481732i 11.032756i 0.479921i 11.030039i 0.479016i 11.026417i 0.477205i \\\n\
+  11.020079i 0.474488i 11.019173i 0.474488i 11.018268i 0.473583i 11.017362i 0.473583i \\\n\
+  11.016457i 0.473583i 11.015551i 0.473583i 11.015551i 0.474488i 11.015551i 0.475394i \\\n\
+  11.015551i 0.476299i 11.015551i 0.477205i 11.015551i 0.478110i 11.016457i 0.479016i \\\n\
+  11.016457i 0.479921i 11.016457i 0.480827i 11.016457i 0.479921i 11.016457i 0.479016i \\\n\
+  11.016457i 0.478110i 11.016457i 0.477205i 11.016457i 0.475394i 11.016457i 0.474488i \\\n\
+  11.016457i 0.464528i 11.017362i 0.455472i 11.017362i 0.447323i 11.018268i 0.440079i \\\n\
+  11.018268i 0.431929i 11.019173i 0.423780i 11.020079i 0.421969i 11.020079i 0.424685i \\\n\
+  11.019173i 0.430118i 11.019173i 0.435551i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
+${score} create polygon 11.020079i 0.441890i 11.020984i 0.447323i 11.020984i 0.449134i \\\n\
+  11.021890i 0.450039i 11.021890i 0.451850i 11.023701i 0.456378i 11.025512i 0.460000i \\\n\
+  11.026417i 0.460906i 11.030945i 0.464528i 11.037283i 0.469961i 11.040906i 0.472677i \\\n\
+  11.043622i 0.474488i 11.048150i 0.477205i 11.056299i 0.484449i 11.064449i 0.490787i \\\n\
+  11.068071i 0.493504i 11.068976i 0.494409i 11.072598i 0.498031i 11.078031i 0.504370i \\\n\
+  11.082559i 0.511614i 11.084370i 0.514331i 11.084370i 0.515236i 11.085276i 0.517953i \\\n\
+  11.087087i 0.525197i 11.087992i 0.532441i 11.088898i 0.535157i 11.087992i 0.538780i \\\n\
+  11.086181i 0.547835i 11.083465i 0.557795i 11.080748i 0.564134i 11.078937i 0.568661i \\\n\
+  11.077126i 0.572283i 11.074409i 0.577717i 11.071693i 0.584961i 11.071693i 0.585866i \\\n\
+  11.070787i 0.586772i 11.070787i 0.587677i 11.069882i 0.587677i 11.069882i 0.588583i \\\n\
+  11.069882i 0.589488i 11.068976i 0.589488i 11.068976i 0.590394i 11.068976i 0.589488i \\\n\
+  11.068976i 0.588583i 11.068976i 0.587677i 11.068976i 0.586772i 11.069882i 0.586772i \\\n\
+  11.069882i 0.585866i 11.069882i 0.584961i 11.071693i 0.578622i 11.073504i 0.574094i \\\n\
+  11.075315i 0.570472i 11.077126i 0.566850i 11.078937i 0.561417i 11.081654i 0.553268i \\\n\
+  11.084370i 0.545118i 11.085276i 0.542402i 11.086181i 0.542402i 11.086181i 0.539685i \\\n\
+  11.085276i 0.532441i 11.083465i 0.524291i 11.081654i 0.520669i 11.080748i 0.519764i \\\n\
+  11.078937i 0.516142i 11.072598i 0.507992i 11.066260i 0.501654i 11.062638i 0.498031i \\\n\
+  11.060827i 0.496220i 11.058110i 0.495315i 11.054488i 0.492598i 11.046339i 0.487165i \\\n\
+  11.037283i 0.481732i 11.032756i 0.479921i 11.030039i 0.479016i 11.026417i 0.477205i \\\n\
+  11.020079i 0.474488i 11.019173i 0.474488i 11.018268i 0.473583i 11.017362i 0.473583i \\\n\
+  11.016457i 0.473583i 11.015551i 0.473583i 11.015551i 0.474488i 11.015551i 0.475394i \\\n\
+  11.015551i 0.476299i 11.015551i 0.477205i 11.015551i 0.478110i 11.016457i 0.479016i \\\n\
+  11.016457i 0.479921i 11.016457i 0.480827i 11.016457i 0.479921i 11.016457i 0.479016i \\\n\
+  11.016457i 0.478110i 11.016457i 0.477205i 11.016457i 0.475394i 11.016457i 0.474488i \\\n\
+  11.016457i 0.464528i 11.017362i 0.455472i 11.017362i 0.447323i 11.018268i 0.440079i \\\n\
+  11.018268i 0.431929i 11.019173i 0.423780i 11.020079i 0.421969i 11.020079i 0.424685i \\\n\
+  11.019173i 0.430118i 11.019173i 0.435551i -outline $tkxox(score_passive_note) -fill {}\n\
+${score} create polygon 10.970276i 0.640197i 10.977520i 0.639291i 10.980236i 0.638386i \\\n\
+  10.982047i 0.638386i 10.985669i 0.637480i 10.992913i 0.634764i 11.000157i 0.632047i \\\n\
+  11.003780i 0.630236i 11.005591i 0.629331i 11.008307i 0.628425i 11.013740i 0.623898i \\\n\
+  11.018268i 0.619370i 11.020984i 0.617559i 11.020984i 0.616654i 11.022795i 0.613937i \\\n\
+  11.023701i 0.609409i 11.023701i 0.606693i 11.023701i 0.603976i 11.023701i 0.603071i \\\n\
+  11.023701i 0.602165i 11.022795i 0.601260i 11.022795i 0.600354i 11.020984i 0.598543i \\\n\
+  11.017362i 0.596732i 11.011024i 0.594016i 11.007402i 0.594016i 11.005591i 0.593110i \\\n\
+  11.001063i 0.593110i 10.992913i 0.593110i 10.984764i 0.594016i 10.981142i 0.594016i \\\n\
+  10.980236i 0.594016i 10.976614i 0.594921i 10.970276i 0.597638i 10.963937i 0.600354i \\\n\
+  10.962126i 0.602165i 10.961220i 0.603071i 10.959409i 0.604882i 10.955787i 0.608504i \\\n\
+  10.952165i 0.611220i 10.951260i 0.612126i 10.950354i 0.613937i 10.948543i 0.616654i \\\n\
+  10.946732i 0.620276i 10.945827i 0.622087i 10.944921i 0.622992i 10.944921i 0.624803i \\\n\
+  10.944921i 0.628425i 10.945827i 0.631142i 10.946732i 0.632953i 10.946732i 0.633858i \\\n\
+  10.947638i 0.633858i 10.948543i 0.635669i 10.952165i 0.637480i 10.956693i 0.639291i \\\n\
+  10.959409i 0.640197i 10.960315i 0.640197i 10.963937i 0.640197i -outline {} -fill \\\n\
+  $tkxox(score_passive_note) -width 0\n\
+${score} create polygon 10.970276i 0.640197i 10.977520i 0.639291i 10.980236i 0.638386i \\\n\
+  10.982047i 0.638386i 10.985669i 0.637480i 10.992913i 0.634764i 11.000157i 0.632047i \\\n\
+  11.003780i 0.630236i 11.005591i 0.629331i 11.008307i 0.628425i 11.013740i 0.623898i \\\n\
+  11.018268i 0.619370i 11.020984i 0.617559i 11.020984i 0.616654i 11.022795i 0.613937i \\\n\
+  11.023701i 0.609409i 11.023701i 0.606693i 11.023701i 0.603976i 11.023701i 0.603071i \\\n\
+  11.023701i 0.602165i 11.022795i 0.601260i 11.022795i 0.600354i 11.020984i 0.598543i \\\n\
+  11.017362i 0.596732i 11.011024i 0.594016i 11.007402i 0.594016i 11.005591i 0.593110i \\\n\
+  11.001063i 0.593110i 10.992913i 0.593110i 10.984764i 0.594016i 10.981142i 0.594016i \\\n\
+  10.980236i 0.594016i 10.976614i 0.594921i 10.970276i 0.597638i 10.963937i 0.600354i \\\n\
+  10.962126i 0.602165i 10.961220i 0.603071i 10.959409i 0.604882i 10.955787i 0.608504i \\\n\
+  10.952165i 0.611220i 10.951260i 0.612126i 10.950354i 0.613937i 10.948543i 0.616654i \\\n\
+  10.946732i 0.620276i 10.945827i 0.622087i 10.944921i 0.622992i 10.944921i 0.624803i \\\n\
+  10.944921i 0.628425i 10.945827i 0.631142i 10.946732i 0.632953i 10.946732i 0.633858i \\\n\
+  10.947638i 0.633858i 10.948543i 0.635669i 10.952165i 0.637480i 10.956693i 0.639291i \\\n\
+  10.959409i 0.640197i 10.960315i 0.640197i 10.963937i 0.640197i -outline $tkxox(score_passive_note) \\\n\
+  -fill {}\n\
+${score} create line 10.330079i 0.422874i 10.330079i 0.602165i -fill $tkxox(score_active_note)\n\
+${score} create polygon 10.285709i 0.640197i 10.293858i 0.639291i 10.297480i 0.638386i \\\n\
+  10.299291i 0.638386i 10.302913i 0.637480i 10.311063i 0.634764i 10.318307i 0.632047i \\\n\
+  10.321024i 0.630236i 10.321929i 0.629331i 10.323740i 0.628425i 10.329173i 0.623898i \\\n\
+  10.333701i 0.619370i 10.335512i 0.617559i 10.336417i 0.616654i 10.338228i 0.613937i \\\n\
+  10.339134i 0.609409i 10.339134i 0.605787i 10.339134i 0.603071i 10.338228i 0.602165i \\\n\
+  10.338228i 0.601260i 10.336417i 0.599449i 10.332795i 0.596732i 10.327362i 0.594016i \\\n\
+  10.324646i 0.594016i 10.322835i 0.593110i 10.320118i 0.593110i 10.311969i 0.593110i \\\n\
+  10.303819i 0.594016i 10.299291i 0.594016i 10.297480i 0.594016i 10.292953i 0.594921i \\\n\
+  10.285709i 0.597638i 10.279370i 0.600354i 10.277559i 0.602165i 10.276654i 0.603071i \\\n\
+  10.274843i 0.604882i 10.271220i 0.608504i 10.267598i 0.611220i 10.266693i 0.612126i \\\n\
+  10.265787i 0.613937i 10.263976i 0.616654i 10.262165i 0.620276i 10.261260i 0.622087i \\\n\
+  10.261260i 0.622992i 10.261260i 0.624803i 10.261260i 0.628425i 10.262165i 0.632047i \\\n\
+  10.263071i 0.632953i 10.263071i 0.633858i 10.263976i 0.634764i 10.267598i 0.637480i \\\n\
+  10.272126i 0.639291i 10.274843i 0.640197i 10.275748i 0.640197i 10.278465i 0.640197i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 10.285709i 0.640197i 10.293858i 0.639291i 10.297480i 0.638386i \\\n\
+  10.299291i 0.638386i 10.302913i 0.637480i 10.311063i 0.634764i 10.318307i 0.632047i \\\n\
+  10.321024i 0.630236i 10.321929i 0.629331i 10.323740i 0.628425i 10.329173i 0.623898i \\\n\
+  10.333701i 0.619370i 10.335512i 0.617559i 10.336417i 0.616654i 10.338228i 0.613937i \\\n\
+  10.339134i 0.609409i 10.339134i 0.605787i 10.339134i 0.603071i 10.338228i 0.602165i \\\n\
+  10.338228i 0.601260i 10.336417i 0.599449i 10.332795i 0.596732i 10.327362i 0.594016i \\\n\
+  10.324646i 0.594016i 10.322835i 0.593110i 10.320118i 0.593110i 10.311969i 0.593110i \\\n\
+  10.303819i 0.594016i 10.299291i 0.594016i 10.297480i 0.594016i 10.292953i 0.594921i \\\n\
+  10.285709i 0.597638i 10.279370i 0.600354i 10.277559i 0.602165i 10.276654i 0.603071i \\\n\
+  10.274843i 0.604882i 10.271220i 0.608504i 10.267598i 0.611220i 10.266693i 0.612126i \\\n\
+  10.265787i 0.613937i 10.263976i 0.616654i 10.262165i 0.620276i 10.261260i 0.622087i \\\n\
+  10.261260i 0.622992i 10.261260i 0.624803i 10.261260i 0.628425i 10.262165i 0.632047i \\\n\
+  10.263071i 0.632953i 10.263071i 0.633858i 10.263976i 0.634764i 10.267598i 0.637480i \\\n\
+  10.272126i 0.639291i 10.274843i 0.640197i 10.275748i 0.640197i 10.278465i 0.640197i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create polygon 10.335512i 0.441890i 10.336417i 0.447323i 10.336417i 0.449134i \\\n\
+  10.336417i 0.450039i 10.337323i 0.451850i 10.339134i 0.456378i 10.340945i 0.460000i \\\n\
+  10.341850i 0.460000i 10.340945i 0.460000i 10.342756i 0.460906i 10.347283i 0.464528i \\\n\
+  10.353622i 0.469961i 10.357244i 0.472677i 10.359961i 0.474488i 10.364488i 0.477205i \\\n\
+  10.372638i 0.484449i 10.379882i 0.490787i 10.383504i 0.493504i 10.385315i 0.494409i \\\n\
+  10.388031i 0.498031i 10.393465i 0.504370i 10.397992i 0.511614i 10.399803i 0.514331i \\\n\
+  10.400709i 0.515236i 10.401614i 0.517953i 10.403425i 0.525197i 10.404331i 0.532441i \\\n\
+  10.404331i 0.535157i 10.403425i 0.538780i 10.401614i 0.547835i 10.398898i 0.557795i \\\n\
+  10.396181i 0.564134i 10.394370i 0.568661i 10.392559i 0.572283i 10.389843i 0.577717i \\\n\
+  10.387126i 0.584961i 10.387126i 0.585866i 10.386220i 0.586772i 10.386220i 0.587677i \\\n\
+  10.385315i 0.587677i 10.385315i 0.588583i 10.385315i 0.589488i 10.384409i 0.589488i \\\n\
+  10.384409i 0.590394i 10.384409i 0.589488i 10.384409i 0.588583i 10.384409i 0.587677i \\\n\
+  10.384409i 0.586772i 10.385315i 0.586772i 10.385315i 0.585866i 10.385315i 0.584961i \\\n\
+  10.387126i 0.578622i 10.388937i 0.574094i 10.390748i 0.570472i 10.392559i 0.566850i \\\n\
+  10.394370i 0.561417i 10.397087i 0.553268i 10.399803i 0.545118i 10.400709i 0.542402i \\\n\
+  10.401614i 0.542402i 10.401614i 0.539685i 10.400709i 0.532441i 10.398898i 0.524291i \\\n\
+  10.397087i 0.520669i 10.396181i 0.519764i 10.394370i 0.516142i 10.388031i 0.507992i \\\n\
+  10.381693i 0.501654i 10.378071i 0.498031i 10.376260i 0.496220i 10.374449i 0.495315i \\\n\
+  10.370827i 0.492598i 10.362677i 0.487165i 10.353622i 0.481732i 10.349094i 0.479921i \\\n\
+  10.346378i 0.479016i 10.341850i 0.477205i 10.335512i 0.474488i 10.334606i 0.474488i \\\n\
+  10.333701i 0.473583i 10.332795i 0.473583i 10.331890i 0.473583i 10.330984i 0.473583i \\\n\
+  10.330984i 0.474488i 10.330984i 0.475394i 10.330984i 0.476299i 10.330984i 0.477205i \\\n\
+  10.330984i 0.478110i 10.331890i 0.479016i 10.331890i 0.479921i 10.331890i 0.480827i \\\n\
+  10.331890i 0.479921i 10.331890i 0.479016i 10.331890i 0.478110i 10.331890i 0.477205i \\\n\
+  10.331890i 0.475394i 10.331890i 0.474488i 10.331890i 0.464528i 10.332795i 0.455472i \\\n\
+  10.332795i 0.447323i 10.333701i 0.440079i 10.333701i 0.431929i 10.334606i 0.423780i \\\n\
+  10.335512i 0.421969i 10.335512i 0.424685i 10.334606i 0.430118i 10.334606i 0.435551i \\\n\
+  -outline {} -fill $tkxox(score_active_note) -width 0\n\
+${score} create polygon 10.335512i 0.441890i 10.336417i 0.447323i 10.336417i 0.449134i \\\n\
+  10.336417i 0.450039i 10.337323i 0.451850i 10.339134i 0.456378i 10.340945i 0.460000i \\\n\
+  10.341850i 0.460000i 10.340945i 0.460000i 10.342756i 0.460906i 10.347283i 0.464528i \\\n\
+  10.353622i 0.469961i 10.357244i 0.472677i 10.359961i 0.474488i 10.364488i 0.477205i \\\n\
+  10.372638i 0.484449i 10.379882i 0.490787i 10.383504i 0.493504i 10.385315i 0.494409i \\\n\
+  10.388031i 0.498031i 10.393465i 0.504370i 10.397992i 0.511614i 10.399803i 0.514331i \\\n\
+  10.400709i 0.515236i 10.401614i 0.517953i 10.403425i 0.525197i 10.404331i 0.532441i \\\n\
+  10.404331i 0.535157i 10.403425i 0.538780i 10.401614i 0.547835i 10.398898i 0.557795i \\\n\
+  10.396181i 0.564134i 10.394370i 0.568661i 10.392559i 0.572283i 10.389843i 0.577717i \\\n\
+  10.387126i 0.584961i 10.387126i 0.585866i 10.386220i 0.586772i 10.386220i 0.587677i \\\n\
+  10.385315i 0.587677i 10.385315i 0.588583i 10.385315i 0.589488i 10.384409i 0.589488i \\\n\
+  10.384409i 0.590394i 10.384409i 0.589488i 10.384409i 0.588583i 10.384409i 0.587677i \\\n\
+  10.384409i 0.586772i 10.385315i 0.586772i 10.385315i 0.585866i 10.385315i 0.584961i \\\n\
+  10.387126i 0.578622i 10.388937i 0.574094i 10.390748i 0.570472i 10.392559i 0.566850i \\\n\
+  10.394370i 0.561417i 10.397087i 0.553268i 10.399803i 0.545118i 10.400709i 0.542402i \\\n\
+  10.401614i 0.542402i 10.401614i 0.539685i 10.400709i 0.532441i 10.398898i 0.524291i \\\n\
+  10.397087i 0.520669i 10.396181i 0.519764i 10.394370i 0.516142i 10.388031i 0.507992i \\\n\
+  10.381693i 0.501654i 10.378071i 0.498031i 10.376260i 0.496220i 10.374449i 0.495315i \\\n\
+  10.370827i 0.492598i 10.362677i 0.487165i 10.353622i 0.481732i 10.349094i 0.479921i \\\n\
+  10.346378i 0.479016i 10.341850i 0.477205i 10.335512i 0.474488i 10.334606i 0.474488i \\\n\
+  10.333701i 0.473583i 10.332795i 0.473583i 10.331890i 0.473583i 10.330984i 0.473583i \\\n\
+  10.330984i 0.474488i 10.330984i 0.475394i 10.330984i 0.476299i 10.330984i 0.477205i \\\n\
+  10.330984i 0.478110i 10.331890i 0.479016i 10.331890i 0.479921i 10.331890i 0.480827i \\\n\
+  10.331890i 0.479921i 10.331890i 0.479016i 10.331890i 0.478110i 10.331890i 0.477205i \\\n\
+  10.331890i 0.475394i 10.331890i 0.474488i 10.331890i 0.464528i 10.332795i 0.455472i \\\n\
+  10.332795i 0.447323i 10.333701i 0.440079i 10.333701i 0.431929i 10.334606i 0.423780i \\\n\
+  10.335512i 0.421969i 10.335512i 0.424685i 10.334606i 0.430118i 10.334606i 0.435551i \\\n\
+  -outline $tkxox(score_active_note) -fill {}\n\
+${score} create line 10.332795i 0.086024i 10.332795i 0.266220i -fill $tkxox(score_passive_note)\n\
+${score} create polygon 10.338228i 0.104134i 10.339134i 0.109567i 10.339134i 0.111378i \\\n\
+  10.339134i 0.112283i 10.340039i 0.114094i 10.341850i 0.118622i 10.343661i 0.122244i \\\n\
+  10.344567i 0.123150i 10.343661i 0.122244i 10.345472i 0.123150i 10.350000i 0.127677i \\\n\
+  10.356339i 0.133110i 10.359961i 0.135827i 10.362677i 0.137638i 10.367205i 0.140354i \\\n\
+  10.375354i 0.147598i 10.382598i 0.153937i 10.386220i 0.157559i 10.388031i 0.158465i \\\n\
+  10.390748i 0.161181i 10.396181i 0.167520i 10.400709i 0.173858i 10.402520i 0.175669i \\\n\
+  10.402520i 0.176575i 10.403425i 0.179291i 10.405236i 0.185630i 10.406142i 0.192874i \\\n\
+  10.406142i 0.195591i 10.406142i 0.196496i 10.405236i 0.200118i 10.403425i 0.210079i \\\n\
+  10.400709i 0.220039i 10.397992i 0.226378i 10.396181i 0.230906i 10.395276i 0.234528i \\\n\
+  10.392559i 0.239961i 10.389843i 0.247205i 10.389843i 0.248110i 10.388937i 0.249016i \\\n\
+  10.388937i 0.249921i 10.388031i 0.250827i 10.388031i 0.251732i 10.387126i 0.252638i \\\n\
+  10.387126i 0.251732i 10.387126i 0.250827i 10.387126i 0.249921i 10.387126i 0.249016i \\\n\
+  10.388031i 0.249016i 10.388031i 0.248110i 10.388031i 0.247205i 10.389843i 0.241772i \\\n\
+  10.391654i 0.237244i 10.393465i 0.233622i 10.395276i 0.230000i 10.397087i 0.224567i \\\n\
+  10.399803i 0.216417i 10.402520i 0.208268i 10.403425i 0.204646i 10.404331i 0.203740i \\\n\
+  10.404331i 0.201024i 10.403425i 0.193780i 10.400709i 0.186535i 10.399803i 0.182913i \\\n\
+  10.398898i 0.182008i 10.396181i 0.178386i 10.389843i 0.171142i 10.383504i 0.164803i \\\n\
+  10.379882i 0.161181i 10.378071i 0.160276i 10.376260i 0.158465i 10.371732i 0.155748i \\\n\
+  10.364488i 0.150315i 10.355433i 0.144882i 10.350906i 0.142165i 10.348189i 0.141260i \\\n\
+  10.344567i 0.139449i 10.338228i 0.136732i 10.337323i 0.136732i 10.336417i 0.135827i \\\n\
+  10.335512i 0.135827i 10.334606i 0.135827i 10.333701i 0.135827i 10.333701i 0.136732i \\\n\
+  10.333701i 0.137638i 10.333701i 0.138543i 10.333701i 0.139449i 10.333701i 0.140354i \\\n\
+  10.334606i 0.140354i 10.334606i 0.141260i 10.334606i 0.142165i 10.334606i 0.141260i \\\n\
+  10.334606i 0.140354i 10.334606i 0.139449i 10.334606i 0.137638i 10.334606i 0.136732i \\\n\
+  10.334606i 0.126772i 10.335512i 0.117717i 10.335512i 0.110472i 10.336417i 0.103228i \\\n\
+  10.336417i 0.094173i 10.337323i 0.086929i 10.338228i 0.085118i 10.338228i 0.087835i \\\n\
+  10.337323i 0.092362i 10.337323i 0.097795i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
+${score} create polygon 10.338228i 0.104134i 10.339134i 0.109567i 10.339134i 0.111378i \\\n\
+  10.339134i 0.112283i 10.340039i 0.114094i 10.341850i 0.118622i 10.343661i 0.122244i \\\n\
+  10.344567i 0.123150i 10.343661i 0.122244i 10.345472i 0.123150i 10.350000i 0.127677i \\\n\
+  10.356339i 0.133110i 10.359961i 0.135827i 10.362677i 0.137638i 10.367205i 0.140354i \\\n\
+  10.375354i 0.147598i 10.382598i 0.153937i 10.386220i 0.157559i 10.388031i 0.158465i \\\n\
+  10.390748i 0.161181i 10.396181i 0.167520i 10.400709i 0.173858i 10.402520i 0.175669i \\\n\
+  10.402520i 0.176575i 10.403425i 0.179291i 10.405236i 0.185630i 10.406142i 0.192874i \\\n\
+  10.406142i 0.195591i 10.406142i 0.196496i 10.405236i 0.200118i 10.403425i 0.210079i \\\n\
+  10.400709i 0.220039i 10.397992i 0.226378i 10.396181i 0.230906i 10.395276i 0.234528i \\\n\
+  10.392559i 0.239961i 10.389843i 0.247205i 10.389843i 0.248110i 10.388937i 0.249016i \\\n\
+  10.388937i 0.249921i 10.388031i 0.250827i 10.388031i 0.251732i 10.387126i 0.252638i \\\n\
+  10.387126i 0.251732i 10.387126i 0.250827i 10.387126i 0.249921i 10.387126i 0.249016i \\\n\
+  10.388031i 0.249016i 10.388031i 0.248110i 10.388031i 0.247205i 10.389843i 0.241772i \\\n\
+  10.391654i 0.237244i 10.393465i 0.233622i 10.395276i 0.230000i 10.397087i 0.224567i \\\n\
+  10.399803i 0.216417i 10.402520i 0.208268i 10.403425i 0.204646i 10.404331i 0.203740i \\\n\
+  10.404331i 0.201024i 10.403425i 0.193780i 10.400709i 0.186535i 10.399803i 0.182913i \\\n\
+  10.398898i 0.182008i 10.396181i 0.178386i 10.389843i 0.171142i 10.383504i 0.164803i \\\n\
+  10.379882i 0.161181i 10.378071i 0.160276i 10.376260i 0.158465i 10.371732i 0.155748i \\\n\
+  10.364488i 0.150315i 10.355433i 0.144882i 10.350906i 0.142165i 10.348189i 0.141260i \\\n\
+  10.344567i 0.139449i 10.338228i 0.136732i 10.337323i 0.136732i 10.336417i 0.135827i \\\n\
+  10.335512i 0.135827i 10.334606i 0.135827i 10.333701i 0.135827i 10.333701i 0.136732i \\\n\
+  10.333701i 0.137638i 10.333701i 0.138543i 10.333701i 0.139449i 10.333701i 0.140354i \\\n\
+  10.334606i 0.140354i 10.334606i 0.141260i 10.334606i 0.142165i 10.334606i 0.141260i \\\n\
+  10.334606i 0.140354i 10.334606i 0.139449i 10.334606i 0.137638i 10.334606i 0.136732i \\\n\
+  10.334606i 0.126772i 10.335512i 0.117717i 10.335512i 0.110472i 10.336417i 0.103228i \\\n\
+  10.336417i 0.094173i 10.337323i 0.086929i 10.338228i 0.085118i 10.338228i 0.087835i \\\n\
+  10.337323i 0.092362i 10.337323i 0.097795i -outline $tkxox(score_passive_note) -fill {}\n\
+${score} create polygon 10.288425i 0.301535i 10.295669i 0.300630i 10.299291i 0.300630i \\\n\
+  10.301102i 0.300630i 10.305630i 0.299724i 10.312874i 0.297913i 10.320118i 0.295197i \\\n\
+  10.322835i 0.293386i 10.323740i 0.293386i 10.326457i 0.291575i 10.331890i 0.287047i \\\n\
+  10.336417i 0.282520i 10.338228i 0.280709i 10.339134i 0.279803i 10.340945i 0.277087i \\\n\
+  10.341850i 0.272559i 10.341850i 0.268937i 10.341850i 0.266220i 10.340945i 0.265315i \\\n\
+  10.340945i 0.264409i 10.339134i 0.262598i 10.335512i 0.259882i 10.330079i 0.257165i \\\n\
+  10.327362i 0.256260i 10.325551i 0.256260i 10.321929i 0.255354i 10.313780i 0.255354i \\\n\
+  10.305630i 0.256260i 10.301102i 0.256260i 10.299291i 0.257165i 10.295669i 0.258071i \\\n\
+  10.288425i 0.260787i 10.282087i 0.263504i 10.280276i 0.265315i 10.279370i 0.266220i \\\n\
+  10.277559i 0.268031i 10.273937i 0.271654i 10.270315i 0.274370i 10.269409i 0.275276i \\\n\
+  10.268504i 0.276181i 10.266693i 0.278898i 10.264882i 0.282520i 10.263976i 0.284331i \\\n\
+  10.263071i 0.285236i 10.263071i 0.287047i 10.263071i 0.290669i 10.263976i 0.294291i \\\n\
+  10.264882i 0.296102i 10.264882i 0.297008i 10.265787i 0.297008i 10.266693i 0.298819i \\\n\
+  10.270315i 0.300630i 10.274843i 0.302441i 10.277559i 0.302441i 10.278465i 0.302441i \\\n\
+  10.281181i 0.301535i -outline {} -fill $tkxox(score_passive_note) -width 0\n\
+${score} create polygon 10.288425i 0.301535i 10.295669i 0.300630i 10.299291i 0.300630i \\\n\
+  10.301102i 0.300630i 10.305630i 0.299724i 10.312874i 0.297913i 10.320118i 0.295197i \\\n\
+  10.322835i 0.293386i 10.323740i 0.293386i 10.326457i 0.291575i 10.331890i 0.287047i \\\n\
+  10.336417i 0.282520i 10.338228i 0.280709i 10.339134i 0.279803i 10.340945i 0.277087i \\\n\
+  10.341850i 0.272559i 10.341850i 0.268937i 10.341850i 0.266220i 10.340945i 0.265315i \\\n\
+  10.340945i 0.264409i 10.339134i 0.262598i 10.335512i 0.259882i 10.330079i 0.257165i \\\n\
+  10.327362i 0.256260i 10.325551i 0.256260i 10.321929i 0.255354i 10.313780i 0.255354i \\\n\
+  10.305630i 0.256260i 10.301102i 0.256260i 10.299291i 0.257165i 10.295669i 0.258071i \\\n\
+  10.288425i 0.260787i 10.282087i 0.263504i 10.280276i 0.265315i 10.279370i 0.266220i \\\n\
+  10.277559i 0.268031i 10.273937i 0.271654i 10.270315i 0.274370i 10.269409i 0.275276i \\\n\
+  10.268504i 0.276181i 10.266693i 0.278898i 10.264882i 0.282520i 10.263976i 0.284331i \\\n\
+  10.263071i 0.285236i 10.263071i 0.287047i 10.263071i 0.290669i 10.263976i 0.294291i \\\n\
+  10.264882i 0.296102i 10.264882i 0.297008i 10.265787i 0.297008i 10.266693i 0.298819i \\\n\
+  10.270315i 0.300630i 10.274843i 0.302441i 10.277559i 0.302441i 10.278465i 0.302441i \\\n\
+  10.281181i 0.301535i -outline $tkxox(score_passive_note) -fill {}\n\
+${score} create line 9.045157i 0.086024i 9.045157i 0.266220i -fill $tkxox(score_passive_note)\n\
+${score} create polygon 9.050591i 0.104134i 9.051496i 0.109567i 9.051496i 0.111378i \\\n\
+  9.051496i 0.112283i 9.052402i 0.114094i 9.054213i 0.118622i 9.056024i 0.122244i \\\n\
+  9.056929i 0.123150i 9.056929i 0.122244i 9.057835i 0.123150i 9.062362i 0.127677i \\\n\
+  9.068701i 0.133110i 9.072323i 0.135827i 9.075039i 0.137638i 9.078661i 0.140354i \\\n\
+  9.086811i 0.147598i 9.094961i 0.153937i 9.097677i 0.157559i 9.099488i 0.158465i \\\n\
+  9.102205i 0.161181i 9.108543i 0.167520i 9.113976i 0.173858i 9.115787i 0.175669i \\\n\
+  9.115787i 0.176575i 9.117598i 0.179291i 9.119409i 0.185630i 9.120315i 0.192874i \\\n\
+  9.120315i 0.195591i 9.120315i 0.196496i 9.120315i 0.200118i 9.117598i 0.210079i \\\n\
+  9.114882i 0.220039i 9.112165i 0.226378i 9.109449i 0.230906i 9.107638i 0.234528i \\\n\
+  9.104921i 0.239961i 9.102205i 0.247205i 9.102205i 0.248110i 9.101299i 0.249016i \\\n\
+  9.101299i 0.249921i 9.100394i 0.249921i 9.100394i 0.250827i 9.100394i 0.251732i \\\n\
+  9.099488i 0.251732i 9.099488i 0.252638i 9.098583i 0.252638i 9.098583i 0.251732i \\\n\
+  9.099488i 0.250827i 9.099488i 0.249921i 9.099488i 0.249016i 9.100394i 0.248110i \\\n\
+  9.100394i 0.247205i 9.103110i 0.241772i 9.104921i 0.237244i 9.106732i 0.233622i \\\n\
+  9.108543i 0.230000i 9.111260i 0.224567i 9.113976i 0.216417i 9.116693i 0.208268i \\\n\
+  9.117598i 0.204646i 9.118504i 0.203740i 9.118504i 0.201024i 9.117598i 0.193780i \\\n\
+  9.114882i 0.186535i 9.113071i 0.182913i 9.111260i 0.182008i 9.108543i 0.178386i \\\n\
+  9.102205i 0.171142i 9.095866i 0.164803i 9.092244i 0.161181i 9.090433i 0.160276i \\\n\
+  9.088622i 0.158465i 9.084094i 0.155748i 9.076850i 0.150315i 9.067795i 0.144882i \\\n\
+  9.063268i 0.142165i 9.060551i 0.141260i 9.056929i 0.139449i 9.050591i 0.136732i \\\n\
+  9.049685i 0.136732i 9.048780i 0.135827i 9.047874i 0.135827i 9.046969i 0.135827i \\\n\
+  9.046063i 0.135827i 9.046063i 0.136732i 9.046063i 0.137638i 9.046063i 0.138543i \\\n\
+  9.046063i 0.139449i 9.046063i 0.140354i 9.046969i 0.140354i 9.046969i 0.141260i \\\n\
+  9.046969i 0.142165i 9.046969i 0.141260i 9.046969i 0.140354i 9.046969i 0.139449i \\\n\
+  9.046969i 0.137638i 9.046969i 0.136732i 9.046969i 0.126772i 9.047874i 0.117717i \\\n\
+  9.047874i 0.110472i 9.048780i 0.103228i 9.048780i 0.094173i 9.049685i 0.086929i \\\n\
+  9.050591i 0.085118i 9.050591i 0.087835i 9.049685i 0.092362i 9.049685i 0.097795i \\\n\
+  -outline {} -fill $tkxox(score_passive_note) -width 0\n\
+${score} create polygon 9.050591i 0.104134i 9.051496i 0.109567i 9.051496i 0.111378i \\\n\
+  9.051496i 0.112283i 9.052402i 0.114094i 9.054213i 0.118622i 9.056024i 0.122244i \\\n\
+  9.056929i 0.123150i 9.056929i 0.122244i 9.057835i 0.123150i 9.062362i 0.127677i \\\n\
+  9.068701i 0.133110i 9.072323i 0.135827i 9.075039i 0.137638i 9.078661i 0.140354i \\\n\
+  9.086811i 0.147598i 9.094961i 0.153937i 9.097677i 0.157559i 9.099488i 0.158465i \\\n\
+  9.102205i 0.161181i 9.108543i 0.167520i 9.113976i 0.173858i 9.115787i 0.175669i \\\n\
+  9.115787i 0.176575i 9.117598i 0.179291i 9.119409i 0.185630i 9.120315i 0.192874i \\\n\
+  9.120315i 0.195591i 9.120315i 0.196496i 9.120315i 0.200118i 9.117598i 0.210079i \\\n\
+  9.114882i 0.220039i 9.112165i 0.226378i 9.109449i 0.230906i 9.107638i 0.234528i \\\n\
+  9.104921i 0.239961i 9.102205i 0.247205i 9.102205i 0.248110i 9.101299i 0.249016i \\\n\
+  9.101299i 0.249921i 9.100394i 0.249921i 9.100394i 0.250827i 9.100394i 0.251732i \\\n\
+  9.099488i 0.251732i 9.099488i 0.252638i 9.098583i 0.252638i 9.098583i 0.251732i \\\n\
+  9.099488i 0.250827i 9.099488i 0.249921i 9.099488i 0.249016i 9.100394i 0.248110i \\\n\
+  9.100394i 0.247205i 9.103110i 0.241772i 9.104921i 0.237244i 9.106732i 0.233622i \\\n\
+  9.108543i 0.230000i 9.111260i 0.224567i 9.113976i 0.216417i 9.116693i 0.208268i \\\n\
+  9.117598i 0.204646i 9.118504i 0.203740i 9.118504i 0.201024i 9.117598i 0.193780i \\\n\
+  9.114882i 0.186535i 9.113071i 0.182913i 9.111260i 0.182008i 9.108543i 0.178386i \\\n\
+  9.102205i 0.171142i 9.095866i 0.164803i 9.092244i 0.161181i 9.090433i 0.160276i \\\n\
+  9.088622i 0.158465i 9.084094i 0.155748i 9.076850i 0.150315i 9.067795i 0.144882i \\\n\
+  9.063268i 0.142165i 9.060551i 0.141260i 9.056929i 0.139449i 9.050591i 0.136732i \\\n\
+  9.049685i 0.136732i 9.048780i 0.135827i 9.047874i 0.135827i 9.046969i 0.135827i \\\n\
+  9.046063i 0.135827i 9.046063i 0.136732i 9.046063i 0.137638i 9.046063i 0.138543i \\\n\
+  9.046063i 0.139449i 9.046063i 0.140354i 9.046969i 0.140354i 9.046969i 0.141260i \\\n\
+  9.046969i 0.142165i 9.046969i 0.141260i 9.046969i 0.140354i 9.046969i 0.139449i \\\n\
+  9.046969i 0.137638i 9.046969i 0.136732i 9.046969i 0.126772i 9.047874i 0.117717i \\\n\
+  9.047874i 0.110472i 9.048780i 0.103228i 9.048780i 0.094173i 9.049685i 0.086929i \\\n\
+  9.050591i 0.085118i 9.050591i 0.087835i 9.049685i 0.092362i 9.049685i 0.097795i \\\n\
+  -outline $tkxox(score_passive_note) -fill {}\n\
+${score} create polygon 9.002598i 0.301535i 9.009843i 0.300630i 9.012559i 0.300630i \\\n\
+  9.014370i 0.300630i 9.017087i 0.299724i 9.024331i 0.297913i 9.031575i 0.295197i \\\n\
+  9.034291i 0.293386i 9.036102i 0.293386i 9.038819i 0.291575i 9.044252i 0.287047i \\\n\
+  9.048780i 0.282520i 9.050591i 0.280709i 9.051496i 0.279803i 9.053307i 0.277087i \\\n\
+  9.054213i 0.272559i 9.054213i 0.269843i 9.054213i 0.267126i 9.054213i 0.266220i \\\n\
+  9.054213i 0.265315i 9.053307i 0.264409i 9.052402i 0.263504i 9.050591i 0.261693i \\\n\
+  9.047874i 0.259882i 9.042441i 0.257165i 9.038819i 0.256260i 9.037008i 0.256260i \\\n\
+  9.033386i 0.255354i 9.025236i 0.255354i 9.017992i 0.256260i 9.014370i 0.256260i \\\n\
+  9.012559i 0.257165i 9.008937i 0.258071i 9.002598i 0.260787i 8.996260i 0.263504i \\\n\
+  8.994449i 0.265315i 8.993543i 0.266220i 8.991732i 0.268031i 8.988110i 0.271654i \\\n\
+  8.984488i 0.274370i 8.983583i 0.275276i 8.982677i 0.276181i 8.980866i 0.278898i \\\n\
+  8.979055i 0.282520i 8.978150i 0.284331i 8.977244i 0.285236i 8.977244i 0.287047i \\\n\
+  8.977244i 0.290669i 8.978150i 0.294291i 8.979055i 0.296102i 8.979055i 0.297008i \\\n\
+  8.979961i 0.297008i 8.980866i 0.298819i 8.984488i 0.300630i 8.989016i 0.302441i \\\n\
+  8.991732i 0.302441i 8.992638i 0.302441i 8.996260i 0.301535i -outline {} -fill $tkxox(score_passive_note) \\\n\
+  -width 0\n\
+${score} create polygon 9.002598i 0.301535i 9.009843i 0.300630i 9.012559i 0.300630i \\\n\
+  9.014370i 0.300630i 9.017087i 0.299724i 9.024331i 0.297913i 9.031575i 0.295197i \\\n\
+  9.034291i 0.293386i 9.036102i 0.293386i 9.038819i 0.291575i 9.044252i 0.287047i \\\n\
+  9.048780i 0.282520i 9.050591i 0.280709i 9.051496i 0.279803i 9.053307i 0.277087i \\\n\
+  9.054213i 0.272559i 9.054213i 0.269843i 9.054213i 0.267126i 9.054213i 0.266220i \\\n\
+  9.054213i 0.265315i 9.053307i 0.264409i 9.052402i 0.263504i 9.050591i 0.261693i \\\n\
+  9.047874i 0.259882i 9.042441i 0.257165i 9.038819i 0.256260i 9.037008i 0.256260i \\\n\
+  9.033386i 0.255354i 9.025236i 0.255354i 9.017992i 0.256260i 9.014370i 0.256260i \\\n\
+  9.012559i 0.257165i 9.008937i 0.258071i 9.002598i 0.260787i 8.996260i 0.263504i \\\n\
+  8.994449i 0.265315i 8.993543i 0.266220i 8.991732i 0.268031i 8.988110i 0.271654i \\\n\
+  8.984488i 0.274370i 8.983583i 0.275276i 8.982677i 0.276181i 8.980866i 0.278898i \\\n\
+  8.979055i 0.282520i 8.978150i 0.284331i 8.977244i 0.285236i 8.977244i 0.287047i \\\n\
+  8.977244i 0.290669i 8.978150i 0.294291i 8.979055i 0.296102i 8.979055i 0.297008i \\\n\
+  8.979961i 0.297008i 8.980866i 0.298819i 8.984488i 0.300630i 8.989016i 0.302441i \\\n\
+  8.991732i 0.302441i 8.992638i 0.302441i 8.996260i 0.301535i -outline $tkxox(score_passive_note) -fill \\\n\
+  {}\n\
+${score} create line 2.313583i 0.402953i 1.095669i 0.402953i -fill $tkxox(score_active_note)\n\
+${score} create line 2.316299i 0.063386i 1.099291i 0.063386i -fill $tkxox(score_active_note)\n\
+${score} create line 3.680000i 0.063386i 2.311772i 0.063386i -fill $tkxox(score_active_note)\n\
+${score} create line 4.341929i 0.402953i 3.069685i 0.402953i -fill $tkxox(score_active_note)\n\
+${score} create line 6.309606i 0.402953i 5.036457i 0.402953i -fill $tkxox(score_active_note)\n\
+${score} create line 7.657913i 0.065197i 5.039173i 0.065197i -fill $tkxox(score_active_note)\n\
+${score} create line 8.292677i 0.406575i 7.020433i 0.406575i -fill $tkxox(score_active_note)\n\
+${score} create line 10.343661i 0.404764i 9.044252i 0.404764i -fill $tkxox(score_active_note)\n\
+${score} create line 11.791575i 0.407480i 11.020079i 0.402953i -fill $tkxox(score_passive_note)\n\
+${score} create line 11.785236i 0.061575i 9.045157i 0.061575i -fill $tkxox(score_passive_note)\n\
+${score} create line 1.097480i 0.063386i 1.096575i 0.063386i 1.093858i 0.063386i \\\n\
+  1.088425i 0.063386i 1.081181i 0.063386i 1.073031i 0.064291i 1.063071i 0.066102i \\\n\
+  1.053110i 0.067913i 1.049488i 0.068819i 1.048583i 0.069724i 1.044961i 0.070630i \\\n\
+  1.034094i 0.075157i 1.024134i 0.079685i 1.018701i 0.080591i 1.017795i 0.080591i \\\n\
+  1.015984i 0.080591i 1.009646i 0.084213i 0.995157i 0.093268i 0.981575i 0.103228i \\\n\
+  0.969803i 0.112283i 0.958937i 0.121339i 0.948976i 0.130394i 0.939921i 0.138543i \\\n\
+  0.933583i 0.143976i 0.930866i 0.146693i 0.929961i 0.147598i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 1.098386i 0.400236i 1.097480i 0.400236i 1.094764i 0.400236i \\\n\
+  1.089331i 0.400236i 1.082087i 0.400236i 1.073937i 0.401142i 1.063976i 0.402953i \\\n\
+  1.054016i 0.404764i 1.050394i 0.405669i 1.049488i 0.406575i 1.045866i 0.407480i \\\n\
+  1.035000i 0.412008i 1.025039i 0.416535i 1.019606i 0.418346i 1.018701i 0.418346i \\\n\
+  1.016890i 0.418346i 1.010551i 0.421969i 0.996063i 0.431929i 0.982480i 0.441890i \\\n\
+  0.970709i 0.451850i 0.959843i 0.460906i 0.949882i 0.469055i 0.940827i 0.477205i \\\n\
+  0.934488i 0.482638i 0.931772i 0.485354i 0.930866i 0.486260i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 2.310866i 0.400236i 2.311772i 0.400236i 2.314488i 0.400236i \\\n\
+  2.319016i 0.400236i 2.326260i 0.400236i 2.333504i 0.401142i 2.343465i 0.402953i \\\n\
+  2.353425i 0.404764i 2.357047i 0.405669i 2.357953i 0.406575i 2.361575i 0.407480i \\\n\
+  2.372441i 0.412008i 2.382402i 0.416535i 2.386929i 0.418346i 2.388740i 0.418346i \\\n\
+  2.389646i 0.418346i 2.395984i 0.421969i 2.410472i 0.431929i 2.423150i 0.441890i \\\n\
+  2.435827i 0.451850i 2.446693i 0.460906i 2.456654i 0.469055i 2.465709i 0.477205i \\\n\
+  2.472047i 0.482638i 2.474764i 0.485354i 2.475669i 0.486260i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 3.669134i 0.065197i 3.670039i 0.065197i 3.672756i 0.065197i \\\n\
+  3.678189i 0.065197i 3.685433i 0.066102i 3.694488i 0.067008i 3.704449i 0.068819i \\\n\
+  3.714409i 0.071535i 3.718031i 0.072441i 3.718937i 0.072441i 3.722559i 0.074252i \\\n\
+  3.733425i 0.077874i 3.743386i 0.081496i 3.747913i 0.083307i 3.749724i 0.082402i \\\n\
+  3.750630i 0.082402i 3.756969i 0.086024i 3.771457i 0.095079i 3.784134i 0.104134i \\\n\
+  3.796811i 0.114094i 3.807677i 0.123150i 3.817638i 0.132205i 3.826693i 0.139449i \\\n\
+  3.833031i 0.144882i 3.835748i 0.147598i 3.836654i 0.148504i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 4.336496i 0.402953i 4.337402i 0.402953i 4.341024i 0.402953i \\\n\
+  4.348268i 0.403858i 4.356417i 0.404764i 4.368189i 0.406575i 4.377244i 0.408386i \\\n\
+  4.381772i 0.409291i 4.383583i 0.409291i 4.385394i 0.409291i 4.389921i 0.411102i \\\n\
+  4.399882i 0.414724i 4.409843i 0.419252i 4.415276i 0.421063i 4.416181i 0.421063i \\\n\
+  4.417087i 0.421969i 4.423425i 0.425591i 4.437913i 0.435551i 4.450591i 0.445512i \\\n\
+  4.463268i 0.455472i 4.474134i 0.464528i 4.484094i 0.473583i 4.493150i 0.480827i \\\n\
+  4.499488i 0.486260i 4.502205i 0.488976i 4.503110i 0.489882i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 3.072402i 0.400236i 3.071496i 0.400236i 3.068780i 0.400236i \\\n\
+  3.064252i 0.400236i 3.057008i 0.400236i 3.049764i 0.401142i 3.039803i 0.402953i \\\n\
+  3.029843i 0.404764i 3.026220i 0.405669i 3.025315i 0.406575i 3.021693i 0.407480i \\\n\
+  3.010827i 0.412008i 3.000866i 0.416535i 2.996339i 0.418346i 2.994528i 0.418346i \\\n\
+  2.993622i 0.418346i 2.987283i 0.421969i 2.972795i 0.431929i 2.959213i 0.441890i \\\n\
+  2.947441i 0.451850i 2.935669i 0.460906i 2.925709i 0.469055i 2.915748i 0.477205i \\\n\
+  2.909409i 0.482638i 2.906693i 0.485354i 2.905787i 0.486260i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 5.036457i 0.399331i 5.035551i 0.399331i 5.032835i 0.399331i \\\n\
+  5.028307i 0.400236i 5.021063i 0.400236i 5.013819i 0.401142i 5.003858i 0.402953i \\\n\
+  4.993898i 0.404764i 4.990276i 0.405669i 4.989370i 0.405669i 4.985748i 0.406575i \\\n\
+  4.974882i 0.411102i 4.964921i 0.415630i 4.960394i 0.417441i 4.958583i 0.417441i \\\n\
+  4.957677i 0.418346i 4.951339i 0.421969i 4.936850i 0.431929i 4.924173i 0.441890i \\\n\
+  4.911496i 0.450945i 4.900630i 0.460000i 4.890669i 0.469055i 4.881614i 0.476299i \\\n\
+  4.875276i 0.481732i 4.872559i 0.484449i 4.871654i 0.485354i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 5.038268i 0.064291i 5.037362i 0.064291i 5.034646i 0.064291i \\\n\
+  5.030118i 0.064291i 5.022874i 0.064291i 5.015630i 0.065197i 5.005669i 0.067008i \\\n\
+  4.995709i 0.068819i 4.992087i 0.069724i 4.991181i 0.070630i 4.987559i 0.071535i \\\n\
+  4.976693i 0.076063i 4.966732i 0.080591i 4.962205i 0.081496i 4.960394i 0.081496i \\\n\
+  4.959488i 0.081496i 4.953150i 0.085118i 4.938661i 0.094173i 4.925984i 0.103228i \\\n\
+  4.913307i 0.113189i 4.902441i 0.122244i 4.892480i 0.131299i 4.883425i 0.138543i \\\n\
+  4.877087i 0.143976i 4.874370i 0.146693i 4.873465i 0.147598i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 6.311417i 0.402953i 6.312323i 0.402953i 6.315039i 0.402953i \\\n\
+  6.320472i 0.402953i 6.326811i 0.403858i 6.334961i 0.403858i 6.344921i 0.405669i \\\n\
+  6.354882i 0.407480i 6.358504i 0.408386i 6.362126i 0.409291i 6.372992i 0.413819i \\\n\
+  6.382953i 0.418346i 6.388386i 0.420157i 6.389291i 0.420157i 6.391102i 0.421063i \\\n\
+  6.397441i 0.424685i 6.411929i 0.434646i 6.425512i 0.444606i 6.437283i 0.454567i \\\n\
+  6.448150i 0.463622i 6.458110i 0.472677i 6.467165i 0.479921i 6.473504i 0.485354i \\\n\
+  6.476220i 0.488071i 6.477126i 0.488976i -joinstyle bevel -fill $tkxox(score_active_note)\n\
+${score} create line 7.656102i 0.067008i 7.657008i 0.067008i 7.660630i 0.067008i \\\n\
+  7.667874i 0.067008i 7.676024i 0.067913i 7.687795i 0.069724i 7.696850i 0.071535i \\\n\
+  7.701378i 0.073346i 7.703189i 0.073346i 7.705000i 0.074252i 7.709528i 0.076063i \\\n\
+  7.719488i 0.079685i 7.729449i 0.084213i 7.734882i 0.085118i 7.735787i 0.085118i \\\n\
+  7.736693i 0.085118i 7.743031i 0.088740i 7.757520i 0.097795i 7.770197i 0.106850i \\\n\
+  7.782874i 0.116811i 7.793740i 0.125866i 7.803701i 0.134921i 7.812756i 0.142165i \\\n\
+  7.819094i 0.147598i 7.821811i 0.150315i 7.822717i 0.151220i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 7.047598i 0.402953i 7.046693i 0.402953i 7.043976i 0.402953i \\\n\
+  7.039449i 0.402953i 7.032205i 0.403858i 7.024961i 0.403858i 7.015000i 0.405669i \\\n\
+  7.005039i 0.407480i 7.001417i 0.408386i 7.000512i 0.408386i 6.996890i 0.409291i \\\n\
+  6.986024i 0.413819i 6.976063i 0.418346i 6.970630i 0.420157i 6.968819i 0.420157i \\\n\
+  6.967008i 0.421063i 6.960669i 0.424685i 6.946181i 0.434646i 6.932598i 0.444606i \\\n\
+  6.920827i 0.454567i 6.909961i 0.463622i 6.900000i 0.472677i 6.890945i 0.479921i \\\n\
+  6.884606i 0.485354i 6.881890i 0.488071i 6.880984i 0.488976i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+${score} create line 8.288150i 0.405669i 8.289055i 0.405669i 8.292677i 0.405669i \\\n\
+  8.299921i 0.405669i 8.308071i 0.406575i 8.319843i 0.408386i 8.329803i 0.410197i \\\n\
+  8.333425i 0.411102i 8.334331i 0.412008i 8.338858i 0.412913i 8.349724i 0.417441i \\\n\
+  8.359685i 0.421969i 8.364213i 0.423780i 8.366024i 0.423780i 8.366929i 0.423780i \\\n\
+  8.373268i 0.427402i 8.387756i 0.437362i 8.401339i 0.447323i 8.413110i 0.457283i \\\n\
+  8.424882i 0.466339i 8.435748i 0.474488i 8.444803i 0.482638i 8.451142i 0.488071i \\\n\
+  8.453858i 0.490787i 8.454764i 0.491693i -joinstyle bevel -fill $tkxox(score_active_note)\n\
+${score} create line 10.339134i 0.402953i 10.340039i 0.402953i 10.342756i 0.402953i \\\n\
+  10.348189i 0.403858i 10.354528i 0.403858i 10.362677i 0.404764i 10.372638i 0.406575i \\\n\
+  10.382598i 0.408386i 10.386220i 0.409291i 10.387126i 0.409291i 10.390748i 0.410197i \\\n\
+  10.401614i 0.414724i 10.411575i 0.419252i 10.416102i 0.421063i 10.417913i 0.421063i \\\n\
+  10.418819i 0.421969i 10.425157i 0.425591i 10.439646i 0.435551i 10.452323i 0.445512i \\\n\
+  10.465000i 0.455472i 10.475866i 0.464528i 10.485827i 0.473583i 10.494882i 0.480827i \\\n\
+  10.501220i 0.486260i 10.503937i 0.488976i 10.504843i 0.489882i -joinstyle bevel \\\n\
+  -fill $tkxox(score_active_note)\n\
+${score} create line 11.020984i 0.402047i 11.020079i 0.402047i 11.017362i 0.402047i \\\n\
+  11.011929i 0.402047i 11.004685i 0.402953i 10.995630i 0.402953i 10.985669i 0.404764i \\\n\
+  10.975709i 0.406575i 10.972087i 0.407480i 10.971181i 0.407480i 10.967559i 0.408386i \\\n\
+  10.956693i 0.412913i 10.946732i 0.417441i 10.941299i 0.419252i 10.940394i 0.419252i \\\n\
+  10.938583i 0.420157i 10.932244i 0.423780i 10.917756i 0.433740i 10.905079i 0.443701i \\\n\
+  10.892402i 0.452756i 10.881535i 0.461811i 10.871575i 0.470866i 10.863425i 0.478110i \\\n\
+  10.857087i 0.483543i 10.854370i 0.486260i 10.853465i 0.487165i -joinstyle bevel \\\n\
+  -fill $tkxox(score_passive_note)\n\
+${score} create line 9.050591i 0.065197i 9.049685i 0.065197i 9.046969i 0.065197i \\\n\
+  9.042441i 0.065197i 9.036102i 0.066102i 9.027953i 0.067008i 9.017992i 0.068819i \\\n\
+  9.008031i 0.071535i 9.004409i 0.072441i 9.002598i 0.072441i 8.998976i 0.074252i \\\n\
+  8.988110i 0.077874i 8.978150i 0.081496i 8.972717i 0.083307i 8.971811i 0.082402i \\\n\
+  8.970906i 0.082402i 8.964567i 0.086024i 8.950079i 0.095079i 8.937402i 0.104134i \\\n\
+  8.924724i 0.114094i 8.913858i 0.123150i 8.903898i 0.132205i 8.894843i 0.139449i \\\n\
+  8.888504i 0.144882i 8.885787i 0.147598i 8.884882i 0.148504i -joinstyle bevel -fill \\\n\
+  $tkxox(score_passive_note)\n\
+${score} create line 9.048780i 0.402953i 9.047874i 0.402953i 9.045157i 0.402953i \\\n\
+  9.040630i 0.402953i 9.034291i 0.403858i 9.026142i 0.403858i 9.016181i 0.405669i \\\n\
+  9.006220i 0.407480i 9.002598i 0.408386i 9.000787i 0.408386i 8.997165i 0.409291i \\\n\
+  8.986299i 0.413819i 8.976339i 0.418346i 8.970906i 0.420157i 8.970000i 0.420157i \\\n\
+  8.969094i 0.421063i 8.962756i 0.424685i 8.948268i 0.434646i 8.935591i 0.444606i \\\n\
+  8.922913i 0.454567i 8.912047i 0.463622i 8.902087i 0.472677i 8.893031i 0.479921i \\\n\
+  8.886693i 0.485354i 8.883976i 0.488071i 8.883071i 0.488976i -joinstyle bevel -fill \\\n\
+  $tkxox(score_active_note)\n\
+";
diff --git a/score.tcl b/score.tcl
index be65916..a4ea508 100644
--- a/score.tcl
+++ b/score.tcl
@@ -1,6 +1,6 @@
 # do not edit.
 # file automatically generated by:
-#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig
+#		./score_fig2tcl.sh ./score.fig
 
 set score $note_score.score
 
@@ -15,2875 +15,2501 @@ ${score} yview scroll ${score_scroll_y_in_point} u
 pack ${score} -side left
 
 # The xfig objects begin here
-${score} create line 0.720109i 0.040761i 11.321558i 0.040761i 11.321558i \
-  0.326087i 0.720109i 0.326087i 0.720109i 0.040761i -fill $tkxox(score_passive_note)
-${score} create polygon 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \
-  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -outline {} -fill $tkxox(col_def_bg) \
-  -width 0
-${score} create line 0.000000i 0.000000i 11.861413i 0.000000i 11.861413i \
-  1.385870i 0.000000i 1.385870i 0.000000i 0.000000i -fill $tkxox(col_def_bg)
-${score} create polygon 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \
-  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -outline {} -fill $tkxox(color_score_bg) \
-  -width 0
-${score} create line 4.732790i 0.035326i 8.671196i 0.035326i 8.671196i \
-  0.325181i 4.732790i 0.325181i 4.732790i 0.035326i -fill $tkxox(color_score_bg)
-${score} create polygon 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \
-  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -outline {} -fill $tkxox(color_score_bg) \
-  -width 0
-${score} create line 8.709239i 0.035326i 11.785326i 0.035326i 11.785326i \
-  0.329710i 8.709239i 0.329710i 8.709239i 0.035326i -fill $tkxox(color_score_bg)
-${score} create polygon 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \
-  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -outline {} -fill $tkxox(color_score_bg) \
-  -width 0
-${score} create line 0.054348i 0.707428i 5.981884i 0.707428i 5.981884i \
-  1.019022i 0.054348i 1.019022i 0.054348i 0.707428i -fill $tkxox(color_score_bg)
-${score} create polygon 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \
-  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -outline {} -fill $tkxox(color_score_bg) \
+${score} create line 0.719882i 0.040748i 11.317992i 0.040748i 11.317992i 0.325984i \
+  0.719882i 0.325984i 0.719882i 0.040748i -fill $tkxox(score_passive_note)
+${score} create polygon 0.000000i 0.000000i 11.857677i 0.000000i 11.857677i 1.385433i \
+  0.000000i 1.385433i -outline {} -fill $tkxox(col_def_bg) -width 0
+${score} create line 0.000000i 0.000000i 11.857677i 0.000000i 11.857677i 1.385433i \
+  0.000000i 1.385433i 0.000000i 0.000000i -fill $tkxox(col_def_bg)
+${score} create polygon 4.731299i 0.035315i 8.668465i 0.035315i 8.668465i 0.325079i \
+  4.731299i 0.325079i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 4.731299i 0.035315i 8.668465i 0.035315i 8.668465i 0.325079i \
+  4.731299i 0.325079i 4.731299i 0.035315i -fill $tkxox(color_score_bg)
+${score} create polygon 8.706496i 0.035315i 11.781614i 0.035315i 11.781614i 0.329606i \
+  8.706496i 0.329606i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 8.706496i 0.035315i 11.781614i 0.035315i 11.781614i 0.329606i \
+  8.706496i 0.329606i 8.706496i 0.035315i -fill $tkxox(color_score_bg)
+${score} create polygon 0.054331i 0.707205i 5.980000i 0.707205i 5.980000i 1.018701i \
+  0.054331i 1.018701i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 0.054331i 0.707205i 5.980000i 0.707205i 5.980000i 1.018701i \
+  0.054331i 1.018701i 0.054331i 0.707205i -fill $tkxox(color_score_bg)
+${score} create polygon 0.054331i 1.047677i 3.232677i 1.047677i 3.232677i 1.344685i \
+  0.054331i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 0.054331i 1.047677i 3.232677i 1.047677i 3.232677i 1.344685i \
+  0.054331i 1.344685i 0.054331i 1.047677i -fill $tkxox(color_score_bg)
+${score} create polygon 3.273425i 1.047677i 5.980000i 1.047677i 5.980000i 1.344685i \
+  3.273425i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 3.273425i 1.047677i 5.980000i 1.047677i 5.980000i 1.344685i \
+  3.273425i 1.344685i 3.273425i 1.047677i -fill $tkxox(color_score_bg)
+${score} create polygon 2.721063i 0.363110i 4.694173i 0.363110i 4.694173i 0.678228i \
+  2.721063i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 2.721063i 0.363110i 4.694173i 0.363110i 4.694173i 0.678228i \
+  2.721063i 0.678228i 2.721063i 0.363110i -fill $tkxox(color_score_bg)
+${score} create polygon 6.014409i 0.707205i 11.789764i 0.707205i 11.789764i 1.018701i \
+  6.014409i 1.018701i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 6.014409i 0.707205i 11.789764i 0.707205i 11.789764i 1.018701i \
+  6.014409i 1.018701i 6.014409i 0.707205i -fill $tkxox(color_score_bg)
+${score} create polygon 6.012598i 1.047677i 8.668465i 1.047677i 8.668465i 1.344685i \
+  6.012598i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 6.012598i 1.047677i 8.668465i 1.047677i 8.668465i 1.344685i \
+  6.012598i 1.344685i 6.012598i 1.047677i -fill $tkxox(color_score_bg)
+${score} create polygon 8.708307i 0.363110i 10.636142i 0.363110i 10.636142i 0.678228i \
+  8.708307i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 8.708307i 0.363110i 10.636142i 0.363110i 10.636142i 0.678228i \
+  8.708307i 0.678228i 8.708307i 0.363110i -fill $tkxox(color_score_bg)
+${score} create polygon 8.710118i 1.047677i 11.789764i 1.047677i 11.789764i 1.344685i \
+  8.710118i 1.344685i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 8.710118i 1.047677i 11.789764i 1.047677i 11.789764i 1.344685i \
+  8.710118i 1.344685i 8.710118i 1.047677i -fill $tkxox(color_score_bg)
+${score} create polygon 10.672362i 0.363110i 11.788858i 0.363110i 11.788858i 0.678228i \
+  10.672362i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 10.672362i 0.363110i 11.788858i 0.363110i 11.788858i 0.678228i \
+  10.672362i 0.678228i 10.672362i 0.363110i -fill $tkxox(color_score_bg)
+${score} create polygon 0.054331i 0.040748i 4.694173i 0.040748i 4.694173i 0.325984i \
+  0.054331i 0.325984i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 0.054331i 0.040748i 4.694173i 0.040748i 4.694173i 0.325984i \
+  0.054331i 0.325984i 0.054331i 0.040748i -fill $tkxox(color_score_bg)
+${score} create polygon 4.735827i 0.363110i 6.660945i 0.363110i 6.660945i 0.678228i \
+  4.735827i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 4.735827i 0.363110i 6.660945i 0.363110i 6.660945i 0.678228i \
+  4.735827i 0.678228i 4.735827i 0.363110i -fill $tkxox(color_score_bg)
+${score} create polygon 6.696260i 0.363110i 8.668465i 0.363110i 8.668465i 0.678228i \
+  6.696260i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 6.696260i 0.363110i 8.668465i 0.363110i 8.668465i 0.678228i \
+  6.696260i 0.678228i 6.696260i 0.363110i -fill $tkxox(color_score_bg)
+${score} create polygon 0.054331i 0.363110i 2.687559i 0.363110i 2.687559i 0.678228i \
+  0.054331i 0.678228i -outline {} -fill $tkxox(color_score_bg) -width 0
+${score} create line 0.054331i 0.363110i 2.687559i 0.363110i 2.687559i 0.678228i \
+  0.054331i 0.678228i 0.054331i 0.363110i -fill $tkxox(color_score_bg)
+${score} create line 7.040354i 0.422874i 7.040354i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 6.997795i 0.640197i 7.005039i 0.639291i 7.007756i 0.638386i \
+  7.009567i 0.638386i 7.012283i 0.637480i 7.019528i 0.634764i 7.026772i 0.632047i \
+  7.029488i 0.630236i 7.031299i 0.629331i 7.034016i 0.628425i 7.039449i 0.623898i \
+  7.043976i 0.619370i 7.045787i 0.617559i 7.046693i 0.616654i 7.048504i 0.613937i \
+  7.049409i 0.609409i 7.049409i 0.606693i 7.049409i 0.603976i 7.048504i 0.603071i \
+  7.048504i 0.602165i 7.047598i 0.601260i 7.046693i 0.600354i 7.044882i 0.598543i \
+  7.042165i 0.596732i 7.036732i 0.594016i 7.033110i 0.594016i 7.031299i 0.593110i \
+  7.027677i 0.593110i 7.020433i 0.593110i 7.013189i 0.594016i 7.009567i 0.594016i \
+  7.007756i 0.594016i 7.005039i 0.594921i 6.997795i 0.597638i 6.991457i 0.600354i \
+  6.988740i 0.602165i 6.987835i 0.603071i 6.986024i 0.604882i 6.981496i 0.608504i \
+  6.977874i 0.611220i 6.976969i 0.612126i 6.976063i 0.613937i 6.974252i 0.616654i \
+  6.972441i 0.620276i 6.971535i 0.622087i 6.970630i 0.622992i 6.970630i 0.624803i \
+  6.970630i 0.628425i 6.971535i 0.631142i 6.971535i 0.632047i 6.971535i 0.632953i \
+  6.971535i 0.633858i 6.972441i 0.634764i 6.974252i 0.635669i 6.976969i 0.637480i \
+  6.982402i 0.639291i 6.985118i 0.640197i 6.986929i 0.640197i 6.990551i 0.640197i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.997795i 0.640197i 7.005039i 0.639291i 7.007756i 0.638386i \
+  7.009567i 0.638386i 7.012283i 0.637480i 7.019528i 0.634764i 7.026772i 0.632047i \
+  7.029488i 0.630236i 7.031299i 0.629331i 7.034016i 0.628425i 7.039449i 0.623898i \
+  7.043976i 0.619370i 7.045787i 0.617559i 7.046693i 0.616654i 7.048504i 0.613937i \
+  7.049409i 0.609409i 7.049409i 0.606693i 7.049409i 0.603976i 7.048504i 0.603071i \
+  7.048504i 0.602165i 7.047598i 0.601260i 7.046693i 0.600354i 7.044882i 0.598543i \
+  7.042165i 0.596732i 7.036732i 0.594016i 7.033110i 0.594016i 7.031299i 0.593110i \
+  7.027677i 0.593110i 7.020433i 0.593110i 7.013189i 0.594016i 7.009567i 0.594016i \
+  7.007756i 0.594016i 7.005039i 0.594921i 6.997795i 0.597638i 6.991457i 0.600354i \
+  6.988740i 0.602165i 6.987835i 0.603071i 6.986024i 0.604882i 6.981496i 0.608504i \
+  6.977874i 0.611220i 6.976969i 0.612126i 6.976063i 0.613937i 6.974252i 0.616654i \
+  6.972441i 0.620276i 6.971535i 0.622087i 6.970630i 0.622992i 6.970630i 0.624803i \
+  6.970630i 0.628425i 6.971535i 0.631142i 6.971535i 0.632047i 6.971535i 0.632953i \
+  6.971535i 0.633858i 6.972441i 0.634764i 6.974252i 0.635669i 6.976969i 0.637480i \
+  6.982402i 0.639291i 6.985118i 0.640197i 6.986929i 0.640197i 6.990551i 0.640197i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 7.044882i 0.441890i 7.045787i 0.447323i 7.046693i 0.449134i \
+  7.046693i 0.450039i 7.047598i 0.451850i 7.049409i 0.456378i 7.051220i 0.460000i \
+  7.052126i 0.460906i 7.056654i 0.464528i 7.062992i 0.469961i 7.066614i 0.472677i \
+  7.068425i 0.474488i 7.072953i 0.477205i 7.081102i 0.484449i 7.089252i 0.490787i \
+  7.092874i 0.493504i 7.094685i 0.494409i 7.097402i 0.498031i 7.103740i 0.504370i \
+  7.108268i 0.511614i 7.110079i 0.514331i 7.110079i 0.515236i 7.110984i 0.517953i \
+  7.112795i 0.525197i 7.113701i 0.532441i 7.113701i 0.535157i 7.112795i 0.538780i \
+  7.110984i 0.547835i 7.108268i 0.557795i 7.105551i 0.564134i 7.103740i 0.568661i \
+  7.101929i 0.572283i 7.099213i 0.577717i 7.096496i 0.584961i 7.096496i 0.585866i \
+  7.095591i 0.586772i 7.095591i 0.587677i 7.094685i 0.587677i 7.094685i 0.588583i \
+  7.094685i 0.589488i 7.093780i 0.589488i 7.093780i 0.590394i 7.092874i 0.590394i \
+  7.092874i 0.589488i 7.093780i 0.589488i 7.093780i 0.588583i 7.093780i 0.587677i \
+  7.093780i 0.586772i 7.094685i 0.585866i 7.094685i 0.584961i 7.096496i 0.578622i \
+  7.099213i 0.574094i 7.101024i 0.570472i 7.101929i 0.566850i 7.104646i 0.561417i \
+  7.107362i 0.553268i 7.109173i 0.545118i 7.110984i 0.542402i 7.110984i 0.539685i \
+  7.110079i 0.532441i 7.107362i 0.524291i 7.106457i 0.520669i 7.105551i 0.519764i \
+  7.103740i 0.516142i 7.097402i 0.507992i 7.091063i 0.501654i 7.087441i 0.498031i \
+  7.085630i 0.496220i 7.083819i 0.495315i 7.080197i 0.492598i 7.072047i 0.487165i \
+  7.062992i 0.481732i 7.058465i 0.479921i 7.054843i 0.479016i 7.051220i 0.477205i \
+  7.044882i 0.474488i 7.043976i 0.474488i 7.043071i 0.473583i 7.042165i 0.473583i \
+  7.041260i 0.473583i 7.040354i 0.473583i 7.040354i 0.474488i 7.040354i 0.475394i \
+  7.040354i 0.476299i 7.041260i 0.476299i 7.041260i 0.477205i 7.041260i 0.478110i \
+  7.041260i 0.479016i 7.042165i 0.479921i 7.042165i 0.480827i 7.042165i 0.479921i \
+  7.042165i 0.479016i 7.042165i 0.478110i 7.042165i 0.477205i 7.042165i 0.475394i \
+  7.042165i 0.474488i 7.042165i 0.464528i 7.042165i 0.455472i 7.043071i 0.447323i \
+  7.043071i 0.440079i 7.043071i 0.431929i 7.043976i 0.423780i 7.043976i 0.421969i \
+  7.043976i 0.424685i 7.043976i 0.430118i 7.043976i 0.435551i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 0.054348i 1.048007i 3.233696i 1.048007i 3.233696i \
-  1.345109i 0.054348i 1.345109i 0.054348i 1.048007i -fill $tkxox(color_score_bg)
-${score} create polygon 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \
-  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 7.044882i 0.441890i 7.045787i 0.447323i 7.046693i 0.449134i \
+  7.046693i 0.450039i 7.047598i 0.451850i 7.049409i 0.456378i 7.051220i 0.460000i \
+  7.052126i 0.460906i 7.056654i 0.464528i 7.062992i 0.469961i 7.066614i 0.472677i \
+  7.068425i 0.474488i 7.072953i 0.477205i 7.081102i 0.484449i 7.089252i 0.490787i \
+  7.092874i 0.493504i 7.094685i 0.494409i 7.097402i 0.498031i 7.103740i 0.504370i \
+  7.108268i 0.511614i 7.110079i 0.514331i 7.110079i 0.515236i 7.110984i 0.517953i \
+  7.112795i 0.525197i 7.113701i 0.532441i 7.113701i 0.535157i 7.112795i 0.538780i \
+  7.110984i 0.547835i 7.108268i 0.557795i 7.105551i 0.564134i 7.103740i 0.568661i \
+  7.101929i 0.572283i 7.099213i 0.577717i 7.096496i 0.584961i 7.096496i 0.585866i \
+  7.095591i 0.586772i 7.095591i 0.587677i 7.094685i 0.587677i 7.094685i 0.588583i \
+  7.094685i 0.589488i 7.093780i 0.589488i 7.093780i 0.590394i 7.092874i 0.590394i \
+  7.092874i 0.589488i 7.093780i 0.589488i 7.093780i 0.588583i 7.093780i 0.587677i \
+  7.093780i 0.586772i 7.094685i 0.585866i 7.094685i 0.584961i 7.096496i 0.578622i \
+  7.099213i 0.574094i 7.101024i 0.570472i 7.101929i 0.566850i 7.104646i 0.561417i \
+  7.107362i 0.553268i 7.109173i 0.545118i 7.110984i 0.542402i 7.110984i 0.539685i \
+  7.110079i 0.532441i 7.107362i 0.524291i 7.106457i 0.520669i 7.105551i 0.519764i \
+  7.103740i 0.516142i 7.097402i 0.507992i 7.091063i 0.501654i 7.087441i 0.498031i \
+  7.085630i 0.496220i 7.083819i 0.495315i 7.080197i 0.492598i 7.072047i 0.487165i \
+  7.062992i 0.481732i 7.058465i 0.479921i 7.054843i 0.479016i 7.051220i 0.477205i \
+  7.044882i 0.474488i 7.043976i 0.474488i 7.043071i 0.473583i 7.042165i 0.473583i \
+  7.041260i 0.473583i 7.040354i 0.473583i 7.040354i 0.474488i 7.040354i 0.475394i \
+  7.040354i 0.476299i 7.041260i 0.476299i 7.041260i 0.477205i 7.041260i 0.478110i \
+  7.041260i 0.479016i 7.042165i 0.479921i 7.042165i 0.480827i 7.042165i 0.479921i \
+  7.042165i 0.479016i 7.042165i 0.478110i 7.042165i 0.477205i 7.042165i 0.475394i \
+  7.042165i 0.474488i 7.042165i 0.464528i 7.042165i 0.455472i 7.043071i 0.447323i \
+  7.043071i 0.440079i 7.043071i 0.431929i 7.043976i 0.423780i 7.043976i 0.421969i \
+  7.043976i 0.424685i 7.043976i 0.430118i 7.043976i 0.435551i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 6.320472i 0.422874i 6.320472i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 6.278819i 0.640197i 6.286063i 0.639291i 6.289685i 0.638386i \
+  6.290591i 0.638386i 6.294213i 0.637480i 6.301457i 0.634764i 6.308701i 0.632047i \
+  6.311417i 0.630236i 6.312323i 0.629331i 6.315039i 0.628425i 6.320472i 0.623898i \
+  6.325000i 0.619370i 6.326811i 0.617559i 6.327717i 0.616654i 6.329528i 0.613937i \
+  6.330433i 0.609409i 6.330433i 0.606693i 6.330433i 0.603976i 6.329528i 0.603071i \
+  6.329528i 0.602165i 6.328622i 0.601260i 6.327717i 0.600354i 6.325906i 0.598543i \
+  6.323189i 0.596732i 6.317756i 0.594016i 6.315039i 0.594016i 6.313228i 0.593110i \
+  6.309606i 0.593110i 6.302362i 0.593110i 6.295118i 0.594016i 6.291496i 0.594016i \
+  6.289685i 0.594016i 6.286063i 0.594921i 6.278819i 0.597638i 6.272480i 0.600354i \
+  6.269764i 0.602165i 6.268858i 0.603071i 6.267047i 0.604882i 6.262520i 0.608504i \
+  6.258898i 0.611220i 6.257087i 0.612126i 6.256181i 0.613937i 6.254370i 0.616654i \
+  6.252559i 0.620276i 6.251654i 0.622087i 6.251654i 0.622992i 6.251654i 0.624803i \
+  6.251654i 0.628425i 6.252559i 0.631142i 6.252559i 0.632047i 6.252559i 0.632953i \
+  6.252559i 0.633858i 6.253465i 0.634764i 6.255276i 0.635669i 6.257992i 0.637480i \
+  6.263425i 0.639291i 6.266142i 0.640197i 6.267953i 0.640197i 6.271575i 0.640197i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.278819i 0.640197i 6.286063i 0.639291i 6.289685i 0.638386i \
+  6.290591i 0.638386i 6.294213i 0.637480i 6.301457i 0.634764i 6.308701i 0.632047i \
+  6.311417i 0.630236i 6.312323i 0.629331i 6.315039i 0.628425i 6.320472i 0.623898i \
+  6.325000i 0.619370i 6.326811i 0.617559i 6.327717i 0.616654i 6.329528i 0.613937i \
+  6.330433i 0.609409i 6.330433i 0.606693i 6.330433i 0.603976i 6.329528i 0.603071i \
+  6.329528i 0.602165i 6.328622i 0.601260i 6.327717i 0.600354i 6.325906i 0.598543i \
+  6.323189i 0.596732i 6.317756i 0.594016i 6.315039i 0.594016i 6.313228i 0.593110i \
+  6.309606i 0.593110i 6.302362i 0.593110i 6.295118i 0.594016i 6.291496i 0.594016i \
+  6.289685i 0.594016i 6.286063i 0.594921i 6.278819i 0.597638i 6.272480i 0.600354i \
+  6.269764i 0.602165i 6.268858i 0.603071i 6.267047i 0.604882i 6.262520i 0.608504i \
+  6.258898i 0.611220i 6.257087i 0.612126i 6.256181i 0.613937i 6.254370i 0.616654i \
+  6.252559i 0.620276i 6.251654i 0.622087i 6.251654i 0.622992i 6.251654i 0.624803i \
+  6.251654i 0.628425i 6.252559i 0.631142i 6.252559i 0.632047i 6.252559i 0.632953i \
+  6.252559i 0.633858i 6.253465i 0.634764i 6.255276i 0.635669i 6.257992i 0.637480i \
+  6.263425i 0.639291i 6.266142i 0.640197i 6.267953i 0.640197i 6.271575i 0.640197i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 6.325906i 0.441890i 6.326811i 0.447323i 6.327717i 0.449134i \
+  6.327717i 0.450039i 6.328622i 0.451850i 6.330433i 0.456378i 6.332244i 0.460000i \
+  6.333150i 0.460906i 6.337677i 0.464528i 6.344016i 0.469961i 6.347638i 0.472677i \
+  6.350354i 0.474488i 6.354882i 0.477205i 6.363031i 0.484449i 6.371181i 0.490787i \
+  6.374803i 0.493504i 6.375709i 0.494409i 6.379331i 0.498031i 6.384764i 0.504370i \
+  6.389291i 0.511614i 6.391102i 0.514331i 6.391102i 0.515236i 6.392008i 0.517953i \
+  6.393819i 0.525197i 6.394724i 0.532441i 6.394724i 0.535157i 6.393819i 0.538780i \
+  6.392008i 0.547835i 6.389291i 0.557795i 6.386575i 0.564134i 6.384764i 0.568661i \
+  6.382953i 0.572283i 6.380236i 0.577717i 6.377520i 0.584961i 6.377520i 0.585866i \
+  6.376614i 0.586772i 6.376614i 0.587677i 6.375709i 0.587677i 6.375709i 0.588583i \
+  6.375709i 0.589488i 6.374803i 0.589488i 6.374803i 0.590394i 6.374803i 0.589488i \
+  6.374803i 0.588583i 6.374803i 0.587677i 6.374803i 0.586772i 6.375709i 0.586772i \
+  6.375709i 0.585866i 6.375709i 0.584961i 6.377520i 0.578622i 6.379331i 0.574094i \
+  6.381142i 0.570472i 6.382953i 0.566850i 6.384764i 0.561417i 6.387480i 0.553268i \
+  6.390197i 0.545118i 6.391102i 0.542402i 6.392008i 0.542402i 6.392008i 0.539685i \
+  6.391102i 0.532441i 6.389291i 0.524291i 6.387480i 0.520669i 6.386575i 0.519764i \
+  6.384764i 0.516142i 6.378425i 0.507992i 6.372087i 0.501654i 6.368465i 0.498031i \
+  6.366654i 0.496220i 6.364843i 0.495315i 6.361220i 0.492598i 6.353071i 0.487165i \
+  6.344016i 0.481732i 6.339488i 0.479921i 6.336772i 0.479016i 6.332244i 0.477205i \
+  6.325906i 0.474488i 6.325000i 0.474488i 6.324094i 0.473583i 6.323189i 0.473583i \
+  6.322283i 0.473583i 6.321378i 0.473583i 6.321378i 0.474488i 6.321378i 0.475394i \
+  6.321378i 0.476299i 6.321378i 0.477205i 6.321378i 0.478110i 6.322283i 0.479016i \
+  6.322283i 0.479921i 6.322283i 0.480827i 6.322283i 0.479921i 6.322283i 0.479016i \
+  6.322283i 0.478110i 6.322283i 0.477205i 6.322283i 0.475394i 6.322283i 0.474488i \
+  6.322283i 0.464528i 6.323189i 0.455472i 6.323189i 0.447323i 6.324094i 0.440079i \
+  6.324094i 0.431929i 6.325000i 0.423780i 6.325906i 0.421969i 6.325000i 0.424685i \
+  6.325000i 0.430118i 6.325000i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.325906i 0.441890i 6.326811i 0.447323i 6.327717i 0.449134i \
+  6.327717i 0.450039i 6.328622i 0.451850i 6.330433i 0.456378i 6.332244i 0.460000i \
+  6.333150i 0.460906i 6.337677i 0.464528i 6.344016i 0.469961i 6.347638i 0.472677i \
+  6.350354i 0.474488i 6.354882i 0.477205i 6.363031i 0.484449i 6.371181i 0.490787i \
+  6.374803i 0.493504i 6.375709i 0.494409i 6.379331i 0.498031i 6.384764i 0.504370i \
+  6.389291i 0.511614i 6.391102i 0.514331i 6.391102i 0.515236i 6.392008i 0.517953i \
+  6.393819i 0.525197i 6.394724i 0.532441i 6.394724i 0.535157i 6.393819i 0.538780i \
+  6.392008i 0.547835i 6.389291i 0.557795i 6.386575i 0.564134i 6.384764i 0.568661i \
+  6.382953i 0.572283i 6.380236i 0.577717i 6.377520i 0.584961i 6.377520i 0.585866i \
+  6.376614i 0.586772i 6.376614i 0.587677i 6.375709i 0.587677i 6.375709i 0.588583i \
+  6.375709i 0.589488i 6.374803i 0.589488i 6.374803i 0.590394i 6.374803i 0.589488i \
+  6.374803i 0.588583i 6.374803i 0.587677i 6.374803i 0.586772i 6.375709i 0.586772i \
+  6.375709i 0.585866i 6.375709i 0.584961i 6.377520i 0.578622i 6.379331i 0.574094i \
+  6.381142i 0.570472i 6.382953i 0.566850i 6.384764i 0.561417i 6.387480i 0.553268i \
+  6.390197i 0.545118i 6.391102i 0.542402i 6.392008i 0.542402i 6.392008i 0.539685i \
+  6.391102i 0.532441i 6.389291i 0.524291i 6.387480i 0.520669i 6.386575i 0.519764i \
+  6.384764i 0.516142i 6.378425i 0.507992i 6.372087i 0.501654i 6.368465i 0.498031i \
+  6.366654i 0.496220i 6.364843i 0.495315i 6.361220i 0.492598i 6.353071i 0.487165i \
+  6.344016i 0.481732i 6.339488i 0.479921i 6.336772i 0.479016i 6.332244i 0.477205i \
+  6.325906i 0.474488i 6.325000i 0.474488i 6.324094i 0.473583i 6.323189i 0.473583i \
+  6.322283i 0.473583i 6.321378i 0.473583i 6.321378i 0.474488i 6.321378i 0.475394i \
+  6.321378i 0.476299i 6.321378i 0.477205i 6.321378i 0.478110i 6.322283i 0.479016i \
+  6.322283i 0.479921i 6.322283i 0.480827i 6.322283i 0.479921i 6.322283i 0.479016i \
+  6.322283i 0.478110i 6.322283i 0.477205i 6.322283i 0.475394i 6.322283i 0.474488i \
+  6.322283i 0.464528i 6.323189i 0.455472i 6.323189i 0.447323i 6.324094i 0.440079i \
+  6.324094i 0.431929i 6.325000i 0.423780i 6.325906i 0.421969i 6.325000i 0.424685i \
+  6.325000i 0.430118i 6.325000i 0.435551i -outline $tkxox(score_active_note) -fill {}
+${score} create line 6.320472i 0.086024i 6.320472i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 6.278819i 0.301535i 6.286063i 0.300630i 6.289685i 0.300630i \
+  6.290591i 0.300630i 6.294213i 0.299724i 6.301457i 0.297913i 6.308701i 0.295197i \
+  6.311417i 0.293386i 6.312323i 0.293386i 6.315039i 0.291575i 6.320472i 0.287047i \
+  6.325000i 0.282520i 6.326811i 0.280709i 6.327717i 0.279803i 6.329528i 0.277087i \
+  6.330433i 0.272559i 6.330433i 0.269843i 6.330433i 0.267126i 6.329528i 0.266220i \
+  6.329528i 0.265315i 6.328622i 0.264409i 6.327717i 0.263504i 6.325906i 0.261693i \
+  6.323189i 0.259882i 6.317756i 0.257165i 6.315039i 0.256260i 6.313228i 0.256260i \
+  6.309606i 0.255354i 6.302362i 0.255354i 6.295118i 0.256260i 6.291496i 0.256260i \
+  6.289685i 0.257165i 6.286063i 0.258071i 6.278819i 0.260787i 6.272480i 0.263504i \
+  6.269764i 0.265315i 6.268858i 0.266220i 6.267047i 0.268031i 6.262520i 0.271654i \
+  6.258898i 0.274370i 6.257087i 0.275276i 6.256181i 0.276181i 6.254370i 0.278898i \
+  6.252559i 0.282520i 6.251654i 0.284331i 6.251654i 0.285236i 6.251654i 0.287047i \
+  6.251654i 0.290669i 6.252559i 0.293386i 6.252559i 0.295197i 6.252559i 0.296102i \
+  6.252559i 0.297008i 6.253465i 0.297913i 6.255276i 0.298819i 6.257992i 0.300630i \
+  6.263425i 0.302441i 6.266142i 0.302441i 6.267953i 0.302441i 6.271575i 0.301535i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.278819i 0.301535i 6.286063i 0.300630i 6.289685i 0.300630i \
+  6.290591i 0.300630i 6.294213i 0.299724i 6.301457i 0.297913i 6.308701i 0.295197i \
+  6.311417i 0.293386i 6.312323i 0.293386i 6.315039i 0.291575i 6.320472i 0.287047i \
+  6.325000i 0.282520i 6.326811i 0.280709i 6.327717i 0.279803i 6.329528i 0.277087i \
+  6.330433i 0.272559i 6.330433i 0.269843i 6.330433i 0.267126i 6.329528i 0.266220i \
+  6.329528i 0.265315i 6.328622i 0.264409i 6.327717i 0.263504i 6.325906i 0.261693i \
+  6.323189i 0.259882i 6.317756i 0.257165i 6.315039i 0.256260i 6.313228i 0.256260i \
+  6.309606i 0.255354i 6.302362i 0.255354i 6.295118i 0.256260i 6.291496i 0.256260i \
+  6.289685i 0.257165i 6.286063i 0.258071i 6.278819i 0.260787i 6.272480i 0.263504i \
+  6.269764i 0.265315i 6.268858i 0.266220i 6.267047i 0.268031i 6.262520i 0.271654i \
+  6.258898i 0.274370i 6.257087i 0.275276i 6.256181i 0.276181i 6.254370i 0.278898i \
+  6.252559i 0.282520i 6.251654i 0.284331i 6.251654i 0.285236i 6.251654i 0.287047i \
+  6.251654i 0.290669i 6.252559i 0.293386i 6.252559i 0.295197i 6.252559i 0.296102i \
+  6.252559i 0.297008i 6.253465i 0.297913i 6.255276i 0.298819i 6.257992i 0.300630i \
+  6.263425i 0.302441i 6.266142i 0.302441i 6.267953i 0.302441i 6.271575i 0.301535i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 6.325906i 0.104134i 6.326811i 0.109567i 6.327717i 0.111378i \
+  6.327717i 0.112283i 6.328622i 0.114094i 6.330433i 0.118622i 6.332244i 0.122244i \
+  6.332244i 0.123150i 6.332244i 0.122244i 6.333150i 0.123150i 6.337677i 0.127677i \
+  6.344016i 0.133110i 6.347638i 0.135827i 6.350354i 0.137638i 6.354882i 0.140354i \
+  6.363031i 0.147598i 6.371181i 0.153937i 6.374803i 0.157559i 6.375709i 0.158465i \
+  6.379331i 0.161181i 6.384764i 0.167520i 6.389291i 0.173858i 6.391102i 0.175669i \
+  6.391102i 0.176575i 6.392008i 0.179291i 6.393819i 0.185630i 6.394724i 0.192874i \
+  6.394724i 0.195591i 6.394724i 0.196496i 6.393819i 0.200118i 6.392008i 0.210079i \
+  6.389291i 0.220039i 6.386575i 0.226378i 6.384764i 0.230906i 6.382953i 0.234528i \
+  6.380236i 0.239961i 6.377520i 0.247205i 6.377520i 0.248110i 6.376614i 0.249016i \
+  6.376614i 0.249921i 6.375709i 0.249921i 6.375709i 0.250827i 6.375709i 0.251732i \
+  6.374803i 0.251732i 6.374803i 0.252638i 6.374803i 0.251732i 6.374803i 0.250827i \
+  6.374803i 0.249921i 6.374803i 0.249016i 6.375709i 0.249016i 6.375709i 0.248110i \
+  6.375709i 0.247205i 6.377520i 0.241772i 6.379331i 0.237244i 6.381142i 0.233622i \
+  6.382953i 0.230000i 6.384764i 0.224567i 6.387480i 0.216417i 6.390197i 0.208268i \
+  6.391102i 0.204646i 6.392008i 0.203740i 6.392008i 0.201024i 6.391102i 0.193780i \
+  6.389291i 0.186535i 6.387480i 0.182913i 6.386575i 0.182008i 6.384764i 0.178386i \
+  6.378425i 0.171142i 6.372087i 0.164803i 6.368465i 0.161181i 6.366654i 0.160276i \
+  6.364843i 0.158465i 6.361220i 0.155748i 6.353071i 0.150315i 6.344016i 0.144882i \
+  6.339488i 0.142165i 6.336772i 0.141260i 6.332244i 0.139449i 6.325906i 0.136732i \
+  6.325000i 0.136732i 6.324094i 0.135827i 6.323189i 0.135827i 6.322283i 0.135827i \
+  6.321378i 0.135827i 6.321378i 0.136732i 6.321378i 0.137638i 6.321378i 0.138543i \
+  6.321378i 0.139449i 6.321378i 0.140354i 6.322283i 0.140354i 6.322283i 0.141260i \
+  6.322283i 0.142165i 6.322283i 0.141260i 6.322283i 0.140354i 6.322283i 0.139449i \
+  6.322283i 0.137638i 6.322283i 0.136732i 6.322283i 0.126772i 6.323189i 0.117717i \
+  6.323189i 0.110472i 6.324094i 0.103228i 6.324094i 0.094173i 6.325000i 0.086929i \
+  6.325906i 0.085118i 6.325000i 0.087835i 6.325000i 0.092362i 6.325000i 0.097795i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.325906i 0.104134i 6.326811i 0.109567i 6.327717i 0.111378i \
+  6.327717i 0.112283i 6.328622i 0.114094i 6.330433i 0.118622i 6.332244i 0.122244i \
+  6.332244i 0.123150i 6.332244i 0.122244i 6.333150i 0.123150i 6.337677i 0.127677i \
+  6.344016i 0.133110i 6.347638i 0.135827i 6.350354i 0.137638i 6.354882i 0.140354i \
+  6.363031i 0.147598i 6.371181i 0.153937i 6.374803i 0.157559i 6.375709i 0.158465i \
+  6.379331i 0.161181i 6.384764i 0.167520i 6.389291i 0.173858i 6.391102i 0.175669i \
+  6.391102i 0.176575i 6.392008i 0.179291i 6.393819i 0.185630i 6.394724i 0.192874i \
+  6.394724i 0.195591i 6.394724i 0.196496i 6.393819i 0.200118i 6.392008i 0.210079i \
+  6.389291i 0.220039i 6.386575i 0.226378i 6.384764i 0.230906i 6.382953i 0.234528i \
+  6.380236i 0.239961i 6.377520i 0.247205i 6.377520i 0.248110i 6.376614i 0.249016i \
+  6.376614i 0.249921i 6.375709i 0.249921i 6.375709i 0.250827i 6.375709i 0.251732i \
+  6.374803i 0.251732i 6.374803i 0.252638i 6.374803i 0.251732i 6.374803i 0.250827i \
+  6.374803i 0.249921i 6.374803i 0.249016i 6.375709i 0.249016i 6.375709i 0.248110i \
+  6.375709i 0.247205i 6.377520i 0.241772i 6.379331i 0.237244i 6.381142i 0.233622i \
+  6.382953i 0.230000i 6.384764i 0.224567i 6.387480i 0.216417i 6.390197i 0.208268i \
+  6.391102i 0.204646i 6.392008i 0.203740i 6.392008i 0.201024i 6.391102i 0.193780i \
+  6.389291i 0.186535i 6.387480i 0.182913i 6.386575i 0.182008i 6.384764i 0.178386i \
+  6.378425i 0.171142i 6.372087i 0.164803i 6.368465i 0.161181i 6.366654i 0.160276i \
+  6.364843i 0.158465i 6.361220i 0.155748i 6.353071i 0.150315i 6.344016i 0.144882i \
+  6.339488i 0.142165i 6.336772i 0.141260i 6.332244i 0.139449i 6.325906i 0.136732i \
+  6.325000i 0.136732i 6.324094i 0.135827i 6.323189i 0.135827i 6.322283i 0.135827i \
+  6.321378i 0.135827i 6.321378i 0.136732i 6.321378i 0.137638i 6.321378i 0.138543i \
+  6.321378i 0.139449i 6.321378i 0.140354i 6.322283i 0.140354i 6.322283i 0.141260i \
+  6.322283i 0.142165i 6.322283i 0.141260i 6.322283i 0.140354i 6.322283i 0.139449i \
+  6.322283i 0.137638i 6.322283i 0.136732i 6.322283i 0.126772i 6.323189i 0.117717i \
+  6.323189i 0.110472i 6.324094i 0.103228i 6.324094i 0.094173i 6.325000i 0.086929i \
+  6.325906i 0.085118i 6.325000i 0.087835i 6.325000i 0.092362i 6.325000i 0.097795i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 6.323189i 0.721693i 6.323189i 0.927244i -fill $tkxox(score_active_note)
+${score} create polygon 6.280630i 0.967992i 6.287874i 0.967087i 6.291496i 0.967087i \
+  6.293307i 0.967087i 6.296024i 0.966181i 6.303268i 0.963465i 6.309606i 0.959843i \
+  6.312323i 0.958937i 6.314134i 0.958031i 6.315945i 0.955315i 6.321378i 0.950787i \
+  6.325906i 0.945354i 6.328622i 0.943543i 6.330433i 0.942638i 6.331339i 0.939921i \
+  6.333150i 0.934488i 6.333150i 0.930866i 6.333150i 0.928150i 6.332244i 0.927244i \
+  6.332244i 0.926339i 6.332244i 0.925433i 6.330433i 0.924528i 6.328622i 0.922717i \
+  6.325906i 0.920000i 6.320472i 0.917283i 6.316850i 0.916378i 6.315039i 0.916378i \
+  6.311417i 0.916378i 6.304173i 0.916378i 6.296024i 0.917283i 6.293307i 0.918189i \
+  6.291496i 0.918189i 6.287874i 0.919094i 6.280630i 0.921811i 6.273386i 0.924528i \
+  6.270669i 0.925433i 6.269764i 0.926339i 6.267047i 0.927244i 6.262520i 0.930866i \
+  6.258898i 0.934488i 6.257087i 0.935394i 6.257087i 0.936299i 6.256181i 0.937205i \
+  6.254370i 0.941732i 6.252559i 0.946260i 6.251654i 0.948071i 6.251654i 0.949882i \
+  6.251654i 0.951693i 6.251654i 0.956220i 6.252559i 0.959843i 6.252559i 0.961654i \
+  6.252559i 0.962559i 6.252559i 0.963465i 6.254370i 0.965276i 6.257992i 0.967087i \
+  6.263425i 0.968898i 6.267047i 0.968898i 6.268858i 0.968898i 6.272480i 0.967992i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 6.280630i 0.967992i 6.287874i 0.967087i 6.291496i 0.967087i \
+  6.293307i 0.967087i 6.296024i 0.966181i 6.303268i 0.963465i 6.309606i 0.959843i \
+  6.312323i 0.958937i 6.314134i 0.958031i 6.315945i 0.955315i 6.321378i 0.950787i \
+  6.325906i 0.945354i 6.328622i 0.943543i 6.330433i 0.942638i 6.331339i 0.939921i \
+  6.333150i 0.934488i 6.333150i 0.930866i 6.333150i 0.928150i 6.332244i 0.927244i \
+  6.332244i 0.926339i 6.332244i 0.925433i 6.330433i 0.924528i 6.328622i 0.922717i \
+  6.325906i 0.920000i 6.320472i 0.917283i 6.316850i 0.916378i 6.315039i 0.916378i \
+  6.311417i 0.916378i 6.304173i 0.916378i 6.296024i 0.917283i 6.293307i 0.918189i \
+  6.291496i 0.918189i 6.287874i 0.919094i 6.280630i 0.921811i 6.273386i 0.924528i \
+  6.270669i 0.925433i 6.269764i 0.926339i 6.267047i 0.927244i 6.262520i 0.930866i \
+  6.258898i 0.934488i 6.257087i 0.935394i 6.257087i 0.936299i 6.256181i 0.937205i \
+  6.254370i 0.941732i 6.252559i 0.946260i 6.251654i 0.948071i 6.251654i 0.949882i \
+  6.251654i 0.951693i 6.251654i 0.956220i 6.252559i 0.959843i 6.252559i 0.961654i \
+  6.252559i 0.962559i 6.252559i 0.963465i 6.254370i 0.965276i 6.257992i 0.967087i \
+  6.263425i 0.968898i 6.267047i 0.968898i 6.268858i 0.968898i 6.272480i 0.967992i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 6.323189i 1.060354i 6.323189i 1.264094i -fill $tkxox(score_active_note)
+${score} create polygon 6.280630i 1.306654i 6.287874i 1.305748i 6.291496i 1.305748i \
+  6.293307i 1.304843i 6.296024i 1.303937i 6.303268i 1.301220i 6.309606i 1.297598i \
+  6.312323i 1.295787i 6.314134i 1.295787i 6.315945i 1.293071i 6.321378i 1.288543i \
+  6.325906i 1.283110i 6.328622i 1.281299i 6.330433i 1.280394i 6.331339i 1.277677i \
+  6.333150i 1.272244i 6.333150i 1.268622i 6.333150i 1.265906i 6.332244i 1.265000i \
+  6.332244i 1.264094i 6.332244i 1.263189i 6.330433i 1.262283i 6.328622i 1.260472i \
+  6.325906i 1.257756i 6.320472i 1.255039i 6.316850i 1.253228i 6.315039i 1.253228i \
+  6.311417i 1.252323i 6.304173i 1.252323i 6.296024i 1.253228i 6.293307i 1.254134i \
+  6.291496i 1.255039i 6.287874i 1.256850i 6.280630i 1.259567i 6.273386i 1.262283i \
+  6.270669i 1.263189i 6.269764i 1.264094i 6.267047i 1.265906i 6.262520i 1.268622i \
+  6.258898i 1.272244i 6.257087i 1.273150i 6.256181i 1.274961i 6.254370i 1.278583i \
+  6.252559i 1.283110i 6.251654i 1.284921i 6.251654i 1.286732i 6.251654i 1.288543i \
+  6.251654i 1.293071i 6.252559i 1.296693i 6.252559i 1.298504i 6.252559i 1.299409i \
+  6.252559i 1.300315i 6.254370i 1.301220i 6.257992i 1.303937i 6.263425i 1.305748i \
+  6.267047i 1.306654i 6.268858i 1.306654i 6.272480i 1.306654i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 3.274457i 1.048007i 5.981884i 1.048007i 5.981884i \
-  1.345109i 3.274457i 1.345109i 3.274457i 1.048007i -fill $tkxox(color_score_bg)
-${score} create polygon 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \
-  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 6.280630i 1.306654i 6.287874i 1.305748i 6.291496i 1.305748i \
+  6.293307i 1.304843i 6.296024i 1.303937i 6.303268i 1.301220i 6.309606i 1.297598i \
+  6.312323i 1.295787i 6.314134i 1.295787i 6.315945i 1.293071i 6.321378i 1.288543i \
+  6.325906i 1.283110i 6.328622i 1.281299i 6.330433i 1.280394i 6.331339i 1.277677i \
+  6.333150i 1.272244i 6.333150i 1.268622i 6.333150i 1.265906i 6.332244i 1.265000i \
+  6.332244i 1.264094i 6.332244i 1.263189i 6.330433i 1.262283i 6.328622i 1.260472i \
+  6.325906i 1.257756i 6.320472i 1.255039i 6.316850i 1.253228i 6.315039i 1.253228i \
+  6.311417i 1.252323i 6.304173i 1.252323i 6.296024i 1.253228i 6.293307i 1.254134i \
+  6.291496i 1.255039i 6.287874i 1.256850i 6.280630i 1.259567i 6.273386i 1.262283i \
+  6.270669i 1.263189i 6.269764i 1.264094i 6.267047i 1.265906i 6.262520i 1.268622i \
+  6.258898i 1.272244i 6.257087i 1.273150i 6.256181i 1.274961i 6.254370i 1.278583i \
+  6.252559i 1.283110i 6.251654i 1.284921i 6.251654i 1.286732i 6.251654i 1.288543i \
+  6.251654i 1.293071i 6.252559i 1.296693i 6.252559i 1.298504i 6.252559i 1.299409i \
+  6.252559i 1.300315i 6.254370i 1.301220i 6.257992i 1.303937i 6.263425i 1.305748i \
+  6.267047i 1.306654i 6.268858i 1.306654i 6.272480i 1.306654i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 7.645236i 0.422874i 7.645236i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 7.602677i 0.640197i 7.609921i 0.639291i 7.612638i 0.638386i \
+  7.614449i 0.638386i 7.617165i 0.637480i 7.624409i 0.634764i 7.631654i 0.632047i \
+  7.634370i 0.630236i 7.636181i 0.629331i 7.638898i 0.628425i 7.644331i 0.623898i \
+  7.648858i 0.619370i 7.650669i 0.617559i 7.651575i 0.616654i 7.653386i 0.613937i \
+  7.654291i 0.609409i 7.654291i 0.606693i 7.654291i 0.603976i 7.653386i 0.603071i \
+  7.653386i 0.602165i 7.652480i 0.601260i 7.651575i 0.600354i 7.649764i 0.598543i \
+  7.647047i 0.596732i 7.641614i 0.594016i 7.637992i 0.594016i 7.636181i 0.593110i \
+  7.632559i 0.593110i 7.625315i 0.593110i 7.618071i 0.594016i 7.614449i 0.594016i \
+  7.612638i 0.594016i 7.609016i 0.594921i 7.602677i 0.597638i 7.597244i 0.600354i \
+  7.594528i 0.602165i 7.593622i 0.603071i 7.591811i 0.604882i 7.588189i 0.608504i \
+  7.584567i 0.611220i 7.583661i 0.612126i 7.582756i 0.612126i 7.581850i 0.613937i \
+  7.580039i 0.616654i 7.578228i 0.620276i 7.577323i 0.622087i 7.577323i 0.622992i \
+  7.577323i 0.624803i 7.577323i 0.628425i 7.578228i 0.632047i 7.578228i 0.632953i \
+  7.579134i 0.633858i 7.580039i 0.634764i 7.583661i 0.637480i 7.588189i 0.639291i \
+  7.590906i 0.640197i 7.592717i 0.640197i 7.595433i 0.640197i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 2.721920i 0.363225i 4.695652i 0.363225i 4.695652i \
-  0.678442i 2.721920i 0.678442i 2.721920i 0.363225i -fill $tkxox(color_score_bg)
-${score} create polygon 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \
-  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 7.602677i 0.640197i 7.609921i 0.639291i 7.612638i 0.638386i \
+  7.614449i 0.638386i 7.617165i 0.637480i 7.624409i 0.634764i 7.631654i 0.632047i \
+  7.634370i 0.630236i 7.636181i 0.629331i 7.638898i 0.628425i 7.644331i 0.623898i \
+  7.648858i 0.619370i 7.650669i 0.617559i 7.651575i 0.616654i 7.653386i 0.613937i \
+  7.654291i 0.609409i 7.654291i 0.606693i 7.654291i 0.603976i 7.653386i 0.603071i \
+  7.653386i 0.602165i 7.652480i 0.601260i 7.651575i 0.600354i 7.649764i 0.598543i \
+  7.647047i 0.596732i 7.641614i 0.594016i 7.637992i 0.594016i 7.636181i 0.593110i \
+  7.632559i 0.593110i 7.625315i 0.593110i 7.618071i 0.594016i 7.614449i 0.594016i \
+  7.612638i 0.594016i 7.609016i 0.594921i 7.602677i 0.597638i 7.597244i 0.600354i \
+  7.594528i 0.602165i 7.593622i 0.603071i 7.591811i 0.604882i 7.588189i 0.608504i \
+  7.584567i 0.611220i 7.583661i 0.612126i 7.582756i 0.612126i 7.581850i 0.613937i \
+  7.580039i 0.616654i 7.578228i 0.620276i 7.577323i 0.622087i 7.577323i 0.622992i \
+  7.577323i 0.624803i 7.577323i 0.628425i 7.578228i 0.632047i 7.578228i 0.632953i \
+  7.579134i 0.633858i 7.580039i 0.634764i 7.583661i 0.637480i 7.588189i 0.639291i \
+  7.590906i 0.640197i 7.592717i 0.640197i 7.595433i 0.640197i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 7.649764i 0.441890i 7.650669i 0.447323i 7.651575i 0.449134i \
+  7.651575i 0.450039i 7.652480i 0.451850i 7.654291i 0.456378i 7.656102i 0.460000i \
+  7.657008i 0.460906i 7.661535i 0.464528i 7.667874i 0.469961i 7.671496i 0.472677i \
+  7.673307i 0.474488i 7.677835i 0.477205i 7.685984i 0.484449i 7.694134i 0.490787i \
+  7.698661i 0.493504i 7.700472i 0.494409i 7.704094i 0.498031i 7.710433i 0.504370i \
+  7.714961i 0.511614i 7.716772i 0.514331i 7.716772i 0.515236i 7.717677i 0.517953i \
+  7.719488i 0.525197i 7.720394i 0.532441i 7.720394i 0.535157i 7.719488i 0.538780i \
+  7.717677i 0.547835i 7.714961i 0.557795i 7.712244i 0.564134i 7.710433i 0.568661i \
+  7.708622i 0.572283i 7.705906i 0.577717i 7.703189i 0.584961i 7.703189i 0.585866i \
+  7.702283i 0.586772i 7.702283i 0.587677i 7.701378i 0.587677i 7.701378i 0.588583i \
+  7.701378i 0.589488i 7.700472i 0.589488i 7.700472i 0.590394i 7.700472i 0.589488i \
+  7.700472i 0.588583i 7.700472i 0.587677i 7.700472i 0.586772i 7.701378i 0.586772i \
+  7.701378i 0.585866i 7.701378i 0.584961i 7.703189i 0.578622i 7.705000i 0.574094i \
+  7.706811i 0.570472i 7.708622i 0.566850i 7.710433i 0.561417i 7.713150i 0.553268i \
+  7.715866i 0.545118i 7.716772i 0.542402i 7.717677i 0.542402i 7.717677i 0.539685i \
+  7.716772i 0.532441i 7.714961i 0.524291i 7.713150i 0.520669i 7.712244i 0.519764i \
+  7.710433i 0.516142i 7.704094i 0.507992i 7.697756i 0.501654i 7.693228i 0.498031i \
+  7.691417i 0.496220i 7.688701i 0.495315i 7.684173i 0.492598i 7.676024i 0.487165i \
+  7.666969i 0.481732i 7.662441i 0.479921i 7.659724i 0.479016i 7.656102i 0.477205i \
+  7.649764i 0.474488i 7.648858i 0.474488i 7.647953i 0.473583i 7.647047i 0.473583i \
+  7.646142i 0.473583i 7.645236i 0.473583i 7.645236i 0.474488i 7.645236i 0.475394i \
+  7.645236i 0.476299i 7.645236i 0.477205i 7.645236i 0.478110i 7.646142i 0.479016i \
+  7.646142i 0.479921i 7.646142i 0.480827i 7.646142i 0.479921i 7.646142i 0.479016i \
+  7.646142i 0.478110i 7.646142i 0.477205i 7.646142i 0.475394i 7.646142i 0.474488i \
+  7.646142i 0.464528i 7.647047i 0.455472i 7.647047i 0.447323i 7.647953i 0.440079i \
+  7.647953i 0.431929i 7.648858i 0.423780i 7.649764i 0.421969i 7.648858i 0.424685i \
+  7.648858i 0.430118i 7.648858i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 7.649764i 0.441890i 7.650669i 0.447323i 7.651575i 0.449134i \
+  7.651575i 0.450039i 7.652480i 0.451850i 7.654291i 0.456378i 7.656102i 0.460000i \
+  7.657008i 0.460906i 7.661535i 0.464528i 7.667874i 0.469961i 7.671496i 0.472677i \
+  7.673307i 0.474488i 7.677835i 0.477205i 7.685984i 0.484449i 7.694134i 0.490787i \
+  7.698661i 0.493504i 7.700472i 0.494409i 7.704094i 0.498031i 7.710433i 0.504370i \
+  7.714961i 0.511614i 7.716772i 0.514331i 7.716772i 0.515236i 7.717677i 0.517953i \
+  7.719488i 0.525197i 7.720394i 0.532441i 7.720394i 0.535157i 7.719488i 0.538780i \
+  7.717677i 0.547835i 7.714961i 0.557795i 7.712244i 0.564134i 7.710433i 0.568661i \
+  7.708622i 0.572283i 7.705906i 0.577717i 7.703189i 0.584961i 7.703189i 0.585866i \
+  7.702283i 0.586772i 7.702283i 0.587677i 7.701378i 0.587677i 7.701378i 0.588583i \
+  7.701378i 0.589488i 7.700472i 0.589488i 7.700472i 0.590394i 7.700472i 0.589488i \
+  7.700472i 0.588583i 7.700472i 0.587677i 7.700472i 0.586772i 7.701378i 0.586772i \
+  7.701378i 0.585866i 7.701378i 0.584961i 7.703189i 0.578622i 7.705000i 0.574094i \
+  7.706811i 0.570472i 7.708622i 0.566850i 7.710433i 0.561417i 7.713150i 0.553268i \
+  7.715866i 0.545118i 7.716772i 0.542402i 7.717677i 0.542402i 7.717677i 0.539685i \
+  7.716772i 0.532441i 7.714961i 0.524291i 7.713150i 0.520669i 7.712244i 0.519764i \
+  7.710433i 0.516142i 7.704094i 0.507992i 7.697756i 0.501654i 7.693228i 0.498031i \
+  7.691417i 0.496220i 7.688701i 0.495315i 7.684173i 0.492598i 7.676024i 0.487165i \
+  7.666969i 0.481732i 7.662441i 0.479921i 7.659724i 0.479016i 7.656102i 0.477205i \
+  7.649764i 0.474488i 7.648858i 0.474488i 7.647953i 0.473583i 7.647047i 0.473583i \
+  7.646142i 0.473583i 7.645236i 0.473583i 7.645236i 0.474488i 7.645236i 0.475394i \
+  7.645236i 0.476299i 7.645236i 0.477205i 7.645236i 0.478110i 7.646142i 0.479016i \
+  7.646142i 0.479921i 7.646142i 0.480827i 7.646142i 0.479921i 7.646142i 0.479016i \
+  7.646142i 0.478110i 7.646142i 0.477205i 7.646142i 0.475394i 7.646142i 0.474488i \
+  7.646142i 0.464528i 7.647047i 0.455472i 7.647047i 0.447323i 7.647953i 0.440079i \
+  7.647953i 0.431929i 7.648858i 0.423780i 7.649764i 0.421969i 7.648858i 0.424685i \
+  7.648858i 0.430118i 7.648858i 0.435551i -outline $tkxox(score_active_note) -fill {}
+${score} create line 7.645236i 0.086024i 7.645236i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 7.602677i 0.301535i 7.609921i 0.300630i 7.612638i 0.300630i \
+  7.614449i 0.300630i 7.617165i 0.299724i 7.624409i 0.297913i 7.631654i 0.295197i \
+  7.634370i 0.293386i 7.636181i 0.293386i 7.638898i 0.291575i 7.644331i 0.287047i \
+  7.648858i 0.282520i 7.650669i 0.280709i 7.651575i 0.279803i 7.653386i 0.277087i \
+  7.654291i 0.272559i 7.654291i 0.269843i 7.654291i 0.267126i 7.653386i 0.266220i \
+  7.653386i 0.265315i 7.652480i 0.264409i 7.651575i 0.263504i 7.649764i 0.261693i \
+  7.647047i 0.259882i 7.641614i 0.257165i 7.637992i 0.256260i 7.636181i 0.256260i \
+  7.632559i 0.255354i 7.625315i 0.255354i 7.618071i 0.256260i 7.614449i 0.256260i \
+  7.612638i 0.257165i 7.609016i 0.258071i 7.602677i 0.260787i 7.597244i 0.263504i \
+  7.594528i 0.265315i 7.593622i 0.266220i 7.591811i 0.268031i 7.588189i 0.271654i \
+  7.584567i 0.274370i 7.583661i 0.275276i 7.582756i 0.275276i 7.581850i 0.276181i \
+  7.580039i 0.278898i 7.578228i 0.282520i 7.577323i 0.284331i 7.577323i 0.285236i \
+  7.577323i 0.287047i 7.577323i 0.290669i 7.578228i 0.294291i 7.578228i 0.296102i \
+  7.579134i 0.297008i 7.580039i 0.298819i 7.583661i 0.300630i 7.588189i 0.302441i \
+  7.590906i 0.302441i 7.592717i 0.302441i 7.595433i 0.301535i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 6.016304i 0.707428i 11.793478i 0.707428i 11.793478i \
-  1.019022i 6.016304i 1.019022i 6.016304i 0.707428i -fill $tkxox(color_score_bg)
-${score} create polygon 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \
-  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 7.602677i 0.301535i 7.609921i 0.300630i 7.612638i 0.300630i \
+  7.614449i 0.300630i 7.617165i 0.299724i 7.624409i 0.297913i 7.631654i 0.295197i \
+  7.634370i 0.293386i 7.636181i 0.293386i 7.638898i 0.291575i 7.644331i 0.287047i \
+  7.648858i 0.282520i 7.650669i 0.280709i 7.651575i 0.279803i 7.653386i 0.277087i \
+  7.654291i 0.272559i 7.654291i 0.269843i 7.654291i 0.267126i 7.653386i 0.266220i \
+  7.653386i 0.265315i 7.652480i 0.264409i 7.651575i 0.263504i 7.649764i 0.261693i \
+  7.647047i 0.259882i 7.641614i 0.257165i 7.637992i 0.256260i 7.636181i 0.256260i \
+  7.632559i 0.255354i 7.625315i 0.255354i 7.618071i 0.256260i 7.614449i 0.256260i \
+  7.612638i 0.257165i 7.609016i 0.258071i 7.602677i 0.260787i 7.597244i 0.263504i \
+  7.594528i 0.265315i 7.593622i 0.266220i 7.591811i 0.268031i 7.588189i 0.271654i \
+  7.584567i 0.274370i 7.583661i 0.275276i 7.582756i 0.275276i 7.581850i 0.276181i \
+  7.580039i 0.278898i 7.578228i 0.282520i 7.577323i 0.284331i 7.577323i 0.285236i \
+  7.577323i 0.287047i 7.577323i 0.290669i 7.578228i 0.294291i 7.578228i 0.296102i \
+  7.579134i 0.297008i 7.580039i 0.298819i 7.583661i 0.300630i 7.588189i 0.302441i \
+  7.590906i 0.302441i 7.592717i 0.302441i 7.595433i 0.301535i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 7.649764i 0.104134i 7.650669i 0.109567i 7.651575i 0.111378i \
+  7.651575i 0.112283i 7.652480i 0.114094i 7.654291i 0.118622i 7.656102i 0.122244i \
+  7.656102i 0.123150i 7.656102i 0.122244i 7.657008i 0.123150i 7.661535i 0.127677i \
+  7.667874i 0.133110i 7.671496i 0.135827i 7.673307i 0.137638i 7.677835i 0.140354i \
+  7.685984i 0.147598i 7.694134i 0.153937i 7.698661i 0.157559i 7.700472i 0.158465i \
+  7.704094i 0.161181i 7.710433i 0.167520i 7.714961i 0.173858i 7.716772i 0.175669i \
+  7.716772i 0.176575i 7.717677i 0.179291i 7.719488i 0.185630i 7.720394i 0.192874i \
+  7.720394i 0.195591i 7.720394i 0.196496i 7.719488i 0.200118i 7.717677i 0.210079i \
+  7.714961i 0.220039i 7.712244i 0.226378i 7.710433i 0.230906i 7.708622i 0.234528i \
+  7.705906i 0.239961i 7.703189i 0.247205i 7.703189i 0.248110i 7.702283i 0.249016i \
+  7.702283i 0.249921i 7.701378i 0.249921i 7.701378i 0.250827i 7.701378i 0.251732i \
+  7.700472i 0.251732i 7.700472i 0.252638i 7.700472i 0.251732i 7.700472i 0.250827i \
+  7.700472i 0.249921i 7.700472i 0.249016i 7.701378i 0.249016i 7.701378i 0.248110i \
+  7.701378i 0.247205i 7.703189i 0.241772i 7.705000i 0.237244i 7.706811i 0.233622i \
+  7.708622i 0.230000i 7.710433i 0.224567i 7.713150i 0.216417i 7.715866i 0.208268i \
+  7.716772i 0.204646i 7.717677i 0.203740i 7.717677i 0.201024i 7.716772i 0.193780i \
+  7.714961i 0.186535i 7.713150i 0.182913i 7.712244i 0.182008i 7.710433i 0.178386i \
+  7.704094i 0.171142i 7.697756i 0.164803i 7.693228i 0.161181i 7.691417i 0.160276i \
+  7.688701i 0.158465i 7.684173i 0.155748i 7.676024i 0.150315i 7.666969i 0.144882i \
+  7.662441i 0.142165i 7.659724i 0.141260i 7.656102i 0.139449i 7.649764i 0.136732i \
+  7.648858i 0.136732i 7.647953i 0.135827i 7.647047i 0.135827i 7.646142i 0.135827i \
+  7.645236i 0.135827i 7.645236i 0.136732i 7.645236i 0.137638i 7.645236i 0.138543i \
+  7.645236i 0.139449i 7.645236i 0.140354i 7.646142i 0.140354i 7.646142i 0.141260i \
+  7.646142i 0.142165i 7.646142i 0.141260i 7.646142i 0.140354i 7.646142i 0.139449i \
+  7.646142i 0.137638i 7.646142i 0.136732i 7.646142i 0.126772i 7.647047i 0.117717i \
+  7.647047i 0.110472i 7.647953i 0.103228i 7.647953i 0.094173i 7.648858i 0.086929i \
+  7.649764i 0.085118i 7.648858i 0.087835i 7.648858i 0.092362i 7.648858i 0.097795i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 7.649764i 0.104134i 7.650669i 0.109567i 7.651575i 0.111378i \
+  7.651575i 0.112283i 7.652480i 0.114094i 7.654291i 0.118622i 7.656102i 0.122244i \
+  7.656102i 0.123150i 7.656102i 0.122244i 7.657008i 0.123150i 7.661535i 0.127677i \
+  7.667874i 0.133110i 7.671496i 0.135827i 7.673307i 0.137638i 7.677835i 0.140354i \
+  7.685984i 0.147598i 7.694134i 0.153937i 7.698661i 0.157559i 7.700472i 0.158465i \
+  7.704094i 0.161181i 7.710433i 0.167520i 7.714961i 0.173858i 7.716772i 0.175669i \
+  7.716772i 0.176575i 7.717677i 0.179291i 7.719488i 0.185630i 7.720394i 0.192874i \
+  7.720394i 0.195591i 7.720394i 0.196496i 7.719488i 0.200118i 7.717677i 0.210079i \
+  7.714961i 0.220039i 7.712244i 0.226378i 7.710433i 0.230906i 7.708622i 0.234528i \
+  7.705906i 0.239961i 7.703189i 0.247205i 7.703189i 0.248110i 7.702283i 0.249016i \
+  7.702283i 0.249921i 7.701378i 0.249921i 7.701378i 0.250827i 7.701378i 0.251732i \
+  7.700472i 0.251732i 7.700472i 0.252638i 7.700472i 0.251732i 7.700472i 0.250827i \
+  7.700472i 0.249921i 7.700472i 0.249016i 7.701378i 0.249016i 7.701378i 0.248110i \
+  7.701378i 0.247205i 7.703189i 0.241772i 7.705000i 0.237244i 7.706811i 0.233622i \
+  7.708622i 0.230000i 7.710433i 0.224567i 7.713150i 0.216417i 7.715866i 0.208268i \
+  7.716772i 0.204646i 7.717677i 0.203740i 7.717677i 0.201024i 7.716772i 0.193780i \
+  7.714961i 0.186535i 7.713150i 0.182913i 7.712244i 0.182008i 7.710433i 0.178386i \
+  7.704094i 0.171142i 7.697756i 0.164803i 7.693228i 0.161181i 7.691417i 0.160276i \
+  7.688701i 0.158465i 7.684173i 0.155748i 7.676024i 0.150315i 7.666969i 0.144882i \
+  7.662441i 0.142165i 7.659724i 0.141260i 7.656102i 0.139449i 7.649764i 0.136732i \
+  7.648858i 0.136732i 7.647953i 0.135827i 7.647047i 0.135827i 7.646142i 0.135827i \
+  7.645236i 0.135827i 7.645236i 0.136732i 7.645236i 0.137638i 7.645236i 0.138543i \
+  7.645236i 0.139449i 7.645236i 0.140354i 7.646142i 0.140354i 7.646142i 0.141260i \
+  7.646142i 0.142165i 7.646142i 0.141260i 7.646142i 0.140354i 7.646142i 0.139449i \
+  7.646142i 0.137638i 7.646142i 0.136732i 7.646142i 0.126772i 7.647047i 0.117717i \
+  7.647047i 0.110472i 7.647953i 0.103228i 7.647953i 0.094173i 7.648858i 0.086929i \
+  7.649764i 0.085118i 7.648858i 0.087835i 7.648858i 0.092362i 7.648858i 0.097795i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 8.286339i 0.422874i 8.286339i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 8.243780i 0.640197i 8.251024i 0.639291i 8.253740i 0.638386i \
+  8.255551i 0.638386i 8.258268i 0.637480i 8.265512i 0.634764i 8.272756i 0.632047i \
+  8.275472i 0.630236i 8.277283i 0.629331i 8.280000i 0.628425i 8.285433i 0.623898i \
+  8.289961i 0.619370i 8.291772i 0.617559i 8.292677i 0.616654i 8.294488i 0.613937i \
+  8.295394i 0.609409i 8.295394i 0.606693i 8.295394i 0.603976i 8.295394i 0.603071i \
+  8.295394i 0.602165i 8.294488i 0.601260i 8.293583i 0.600354i 8.291772i 0.598543i \
+  8.289055i 0.596732i 8.283622i 0.594016i 8.280000i 0.594016i 8.278189i 0.593110i \
+  8.274567i 0.593110i 8.266417i 0.593110i 8.259173i 0.594016i 8.255551i 0.594016i \
+  8.253740i 0.594016i 8.250118i 0.594921i 8.243780i 0.597638i 8.237441i 0.600354i \
+  8.235630i 0.602165i 8.234724i 0.603071i 8.232913i 0.604882i 8.229291i 0.608504i \
+  8.225669i 0.611220i 8.224764i 0.612126i 8.223858i 0.613937i 8.222047i 0.616654i \
+  8.220236i 0.620276i 8.219331i 0.622087i 8.218425i 0.622992i 8.218425i 0.624803i \
+  8.218425i 0.628425i 8.219331i 0.631142i 8.219331i 0.632047i 8.219331i 0.632953i \
+  8.219331i 0.633858i 8.220236i 0.633858i 8.220236i 0.634764i 8.222047i 0.635669i \
+  8.224764i 0.637480i 8.229291i 0.639291i 8.232008i 0.640197i 8.233819i 0.640197i \
+  8.236535i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 8.243780i 0.640197i 8.251024i 0.639291i 8.253740i 0.638386i \
+  8.255551i 0.638386i 8.258268i 0.637480i 8.265512i 0.634764i 8.272756i 0.632047i \
+  8.275472i 0.630236i 8.277283i 0.629331i 8.280000i 0.628425i 8.285433i 0.623898i \
+  8.289961i 0.619370i 8.291772i 0.617559i 8.292677i 0.616654i 8.294488i 0.613937i \
+  8.295394i 0.609409i 8.295394i 0.606693i 8.295394i 0.603976i 8.295394i 0.603071i \
+  8.295394i 0.602165i 8.294488i 0.601260i 8.293583i 0.600354i 8.291772i 0.598543i \
+  8.289055i 0.596732i 8.283622i 0.594016i 8.280000i 0.594016i 8.278189i 0.593110i \
+  8.274567i 0.593110i 8.266417i 0.593110i 8.259173i 0.594016i 8.255551i 0.594016i \
+  8.253740i 0.594016i 8.250118i 0.594921i 8.243780i 0.597638i 8.237441i 0.600354i \
+  8.235630i 0.602165i 8.234724i 0.603071i 8.232913i 0.604882i 8.229291i 0.608504i \
+  8.225669i 0.611220i 8.224764i 0.612126i 8.223858i 0.613937i 8.222047i 0.616654i \
+  8.220236i 0.620276i 8.219331i 0.622087i 8.218425i 0.622992i 8.218425i 0.624803i \
+  8.218425i 0.628425i 8.219331i 0.631142i 8.219331i 0.632047i 8.219331i 0.632953i \
+  8.219331i 0.633858i 8.220236i 0.633858i 8.220236i 0.634764i 8.222047i 0.635669i \
+  8.224764i 0.637480i 8.229291i 0.639291i 8.232008i 0.640197i 8.233819i 0.640197i \
+  8.236535i 0.640197i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 8.290866i 0.441890i 8.291772i 0.447323i 8.292677i 0.449134i \
+  8.292677i 0.450039i 8.293583i 0.451850i 8.295394i 0.456378i 8.297205i 0.460000i \
+  8.298110i 0.460906i 8.302638i 0.464528i 8.308976i 0.469961i 8.312598i 0.472677i \
+  8.315315i 0.474488i 8.319843i 0.477205i 8.327992i 0.484449i 8.336142i 0.490787i \
+  8.339764i 0.493504i 8.340669i 0.494409i 8.344291i 0.498031i 8.349724i 0.504370i \
+  8.354252i 0.511614i 8.356063i 0.514331i 8.356063i 0.515236i 8.356969i 0.517953i \
+  8.358780i 0.525197i 8.359685i 0.532441i 8.359685i 0.535157i 8.358780i 0.538780i \
+  8.356969i 0.547835i 8.354252i 0.557795i 8.351535i 0.564134i 8.349724i 0.568661i \
+  8.347913i 0.572283i 8.345197i 0.577717i 8.342480i 0.584961i 8.342480i 0.585866i \
+  8.341575i 0.586772i 8.341575i 0.587677i 8.340669i 0.588583i 8.340669i 0.589488i \
+  8.340669i 0.590394i 8.339764i 0.590394i 8.339764i 0.589488i 8.340669i 0.588583i \
+  8.340669i 0.587677i 8.340669i 0.586772i 8.341575i 0.585866i 8.341575i 0.584961i \
+  8.343386i 0.578622i 8.345197i 0.574094i 8.347008i 0.570472i 8.348819i 0.566850i \
+  8.350630i 0.561417i 8.353346i 0.553268i 8.355157i 0.545118i 8.356063i 0.542402i \
+  8.356969i 0.542402i 8.356969i 0.539685i 8.356063i 0.532441i 8.353346i 0.524291i \
+  8.352441i 0.520669i 8.351535i 0.519764i 8.349724i 0.516142i 8.343386i 0.507992i \
+  8.337047i 0.501654i 8.333425i 0.498031i 8.331614i 0.496220i 8.328898i 0.495315i \
+  8.325276i 0.492598i 8.317126i 0.487165i 8.308071i 0.481732i 8.303543i 0.479921i \
+  8.300827i 0.479016i 8.297205i 0.477205i 8.290866i 0.474488i 8.289961i 0.474488i \
+  8.289055i 0.473583i 8.288150i 0.473583i 8.287244i 0.473583i 8.286339i 0.474488i \
+  8.286339i 0.475394i 8.287244i 0.476299i 8.287244i 0.477205i 8.287244i 0.478110i \
+  8.287244i 0.479016i 8.288150i 0.479016i 8.288150i 0.479921i 8.288150i 0.480827i \
+  8.288150i 0.479921i 8.288150i 0.479016i 8.288150i 0.478110i 8.288150i 0.477205i \
+  8.288150i 0.475394i 8.288150i 0.474488i 8.288150i 0.464528i 8.288150i 0.455472i \
+  8.289055i 0.447323i 8.289055i 0.440079i 8.289055i 0.431929i 8.289961i 0.423780i \
+  8.289961i 0.421969i 8.289961i 0.424685i 8.289961i 0.430118i 8.289961i 0.435551i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 8.290866i 0.441890i 8.291772i 0.447323i 8.292677i 0.449134i \
+  8.292677i 0.450039i 8.293583i 0.451850i 8.295394i 0.456378i 8.297205i 0.460000i \
+  8.298110i 0.460906i 8.302638i 0.464528i 8.308976i 0.469961i 8.312598i 0.472677i \
+  8.315315i 0.474488i 8.319843i 0.477205i 8.327992i 0.484449i 8.336142i 0.490787i \
+  8.339764i 0.493504i 8.340669i 0.494409i 8.344291i 0.498031i 8.349724i 0.504370i \
+  8.354252i 0.511614i 8.356063i 0.514331i 8.356063i 0.515236i 8.356969i 0.517953i \
+  8.358780i 0.525197i 8.359685i 0.532441i 8.359685i 0.535157i 8.358780i 0.538780i \
+  8.356969i 0.547835i 8.354252i 0.557795i 8.351535i 0.564134i 8.349724i 0.568661i \
+  8.347913i 0.572283i 8.345197i 0.577717i 8.342480i 0.584961i 8.342480i 0.585866i \
+  8.341575i 0.586772i 8.341575i 0.587677i 8.340669i 0.588583i 8.340669i 0.589488i \
+  8.340669i 0.590394i 8.339764i 0.590394i 8.339764i 0.589488i 8.340669i 0.588583i \
+  8.340669i 0.587677i 8.340669i 0.586772i 8.341575i 0.585866i 8.341575i 0.584961i \
+  8.343386i 0.578622i 8.345197i 0.574094i 8.347008i 0.570472i 8.348819i 0.566850i \
+  8.350630i 0.561417i 8.353346i 0.553268i 8.355157i 0.545118i 8.356063i 0.542402i \
+  8.356969i 0.542402i 8.356969i 0.539685i 8.356063i 0.532441i 8.353346i 0.524291i \
+  8.352441i 0.520669i 8.351535i 0.519764i 8.349724i 0.516142i 8.343386i 0.507992i \
+  8.337047i 0.501654i 8.333425i 0.498031i 8.331614i 0.496220i 8.328898i 0.495315i \
+  8.325276i 0.492598i 8.317126i 0.487165i 8.308071i 0.481732i 8.303543i 0.479921i \
+  8.300827i 0.479016i 8.297205i 0.477205i 8.290866i 0.474488i 8.289961i 0.474488i \
+  8.289055i 0.473583i 8.288150i 0.473583i 8.287244i 0.473583i 8.286339i 0.474488i \
+  8.286339i 0.475394i 8.287244i 0.476299i 8.287244i 0.477205i 8.287244i 0.478110i \
+  8.287244i 0.479016i 8.288150i 0.479016i 8.288150i 0.479921i 8.288150i 0.480827i \
+  8.288150i 0.479921i 8.288150i 0.479016i 8.288150i 0.478110i 8.288150i 0.477205i \
+  8.288150i 0.475394i 8.288150i 0.474488i 8.288150i 0.464528i 8.288150i 0.455472i \
+  8.289055i 0.447323i 8.289055i 0.440079i 8.289055i 0.431929i 8.289961i 0.423780i \
+  8.289961i 0.421969i 8.289961i 0.424685i 8.289961i 0.430118i 8.289961i 0.435551i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 9.045157i 0.422874i 9.045157i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 9.002598i 0.640197i 9.009843i 0.639291i 9.012559i 0.638386i \
+  9.014370i 0.638386i 9.017087i 0.637480i 9.024331i 0.634764i 9.031575i 0.632047i \
+  9.034291i 0.630236i 9.036102i 0.629331i 9.038819i 0.628425i 9.044252i 0.623898i \
+  9.048780i 0.619370i 9.050591i 0.617559i 9.051496i 0.616654i 9.053307i 0.613937i \
+  9.054213i 0.609409i 9.054213i 0.606693i 9.054213i 0.603976i 9.054213i 0.603071i \
+  9.054213i 0.602165i 9.053307i 0.601260i 9.052402i 0.600354i 9.050591i 0.598543i \
+  9.047874i 0.596732i 9.042441i 0.594016i 9.038819i 0.594016i 9.037008i 0.593110i \
+  9.033386i 0.593110i 9.025236i 0.593110i 9.017992i 0.594016i 9.014370i 0.594016i \
+  9.012559i 0.594016i 9.008937i 0.594921i 9.002598i 0.597638i 8.996260i 0.600354i \
+  8.994449i 0.602165i 8.993543i 0.603071i 8.991732i 0.604882i 8.988110i 0.608504i \
+  8.984488i 0.611220i 8.983583i 0.612126i 8.982677i 0.613937i 8.980866i 0.616654i \
+  8.979055i 0.620276i 8.978150i 0.622087i 8.977244i 0.622992i 8.977244i 0.624803i \
+  8.977244i 0.628425i 8.978150i 0.631142i 8.979055i 0.632953i 8.979055i 0.633858i \
+  8.979961i 0.633858i 8.980866i 0.635669i 8.984488i 0.637480i 8.989016i 0.639291i \
+  8.991732i 0.640197i 8.992638i 0.640197i 8.996260i 0.640197i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 6.014493i 1.048007i 8.671196i 1.048007i 8.671196i \
-  1.345109i 6.014493i 1.345109i 6.014493i 1.048007i -fill $tkxox(color_score_bg)
-${score} create polygon 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \
-  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 9.002598i 0.640197i 9.009843i 0.639291i 9.012559i 0.638386i \
+  9.014370i 0.638386i 9.017087i 0.637480i 9.024331i 0.634764i 9.031575i 0.632047i \
+  9.034291i 0.630236i 9.036102i 0.629331i 9.038819i 0.628425i 9.044252i 0.623898i \
+  9.048780i 0.619370i 9.050591i 0.617559i 9.051496i 0.616654i 9.053307i 0.613937i \
+  9.054213i 0.609409i 9.054213i 0.606693i 9.054213i 0.603976i 9.054213i 0.603071i \
+  9.054213i 0.602165i 9.053307i 0.601260i 9.052402i 0.600354i 9.050591i 0.598543i \
+  9.047874i 0.596732i 9.042441i 0.594016i 9.038819i 0.594016i 9.037008i 0.593110i \
+  9.033386i 0.593110i 9.025236i 0.593110i 9.017992i 0.594016i 9.014370i 0.594016i \
+  9.012559i 0.594016i 9.008937i 0.594921i 9.002598i 0.597638i 8.996260i 0.600354i \
+  8.994449i 0.602165i 8.993543i 0.603071i 8.991732i 0.604882i 8.988110i 0.608504i \
+  8.984488i 0.611220i 8.983583i 0.612126i 8.982677i 0.613937i 8.980866i 0.616654i \
+  8.979055i 0.620276i 8.978150i 0.622087i 8.977244i 0.622992i 8.977244i 0.624803i \
+  8.977244i 0.628425i 8.978150i 0.631142i 8.979055i 0.632953i 8.979055i 0.633858i \
+  8.979961i 0.633858i 8.980866i 0.635669i 8.984488i 0.637480i 8.989016i 0.639291i \
+  8.991732i 0.640197i 8.992638i 0.640197i 8.996260i 0.640197i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 9.050591i 0.441890i 9.051496i 0.447323i 9.051496i 0.449134i \
+  9.051496i 0.450039i 9.052402i 0.451850i 9.054213i 0.456378i 9.056024i 0.460000i \
+  9.056929i 0.460000i 9.057835i 0.460906i 9.062362i 0.464528i 9.068701i 0.469961i \
+  9.072323i 0.472677i 9.075039i 0.474488i 9.078661i 0.477205i 9.086811i 0.484449i \
+  9.094961i 0.490787i 9.097677i 0.493504i 9.099488i 0.494409i 9.102205i 0.498031i \
+  9.108543i 0.504370i 9.113976i 0.511614i 9.115787i 0.514331i 9.115787i 0.515236i \
+  9.117598i 0.517953i 9.119409i 0.525197i 9.120315i 0.532441i 9.120315i 0.535157i \
+  9.120315i 0.538780i 9.117598i 0.547835i 9.114882i 0.557795i 9.112165i 0.564134i \
+  9.109449i 0.568661i 9.107638i 0.572283i 9.104921i 0.577717i 9.102205i 0.584961i \
+  9.102205i 0.585866i 9.101299i 0.586772i 9.101299i 0.587677i 9.100394i 0.587677i \
+  9.100394i 0.588583i 9.100394i 0.589488i 9.099488i 0.589488i 9.099488i 0.590394i \
+  9.098583i 0.590394i 9.098583i 0.589488i 9.099488i 0.588583i 9.099488i 0.587677i \
+  9.099488i 0.586772i 9.100394i 0.585866i 9.100394i 0.584961i 9.103110i 0.578622i \
+  9.104921i 0.574094i 9.106732i 0.570472i 9.108543i 0.566850i 9.111260i 0.561417i \
+  9.113976i 0.553268i 9.116693i 0.546024i 9.117598i 0.542402i 9.118504i 0.542402i \
+  9.118504i 0.541496i 9.118504i 0.538780i 9.117598i 0.532441i 9.114882i 0.524291i \
+  9.113071i 0.520669i 9.111260i 0.519764i 9.108543i 0.516142i 9.102205i 0.507992i \
+  9.095866i 0.501654i 9.092244i 0.498031i 9.090433i 0.496220i 9.088622i 0.495315i \
+  9.084094i 0.492598i 9.076850i 0.487165i 9.067795i 0.481732i 9.063268i 0.479921i \
+  9.060551i 0.479016i 9.056929i 0.477205i 9.050591i 0.474488i 9.049685i 0.474488i \
+  9.048780i 0.473583i 9.047874i 0.473583i 9.046969i 0.473583i 9.046063i 0.473583i \
+  9.046063i 0.474488i 9.046063i 0.475394i 9.046063i 0.476299i 9.046063i 0.477205i \
+  9.046063i 0.478110i 9.046969i 0.479016i 9.046969i 0.479921i 9.046969i 0.480827i \
+  9.046969i 0.479921i 9.046969i 0.479016i 9.046969i 0.478110i 9.046969i 0.477205i \
+  9.046969i 0.475394i 9.046969i 0.474488i 9.046969i 0.464528i 9.047874i 0.455472i \
+  9.047874i 0.447323i 9.048780i 0.440079i 9.048780i 0.431929i 9.049685i 0.423780i \
+  9.050591i 0.421969i 9.050591i 0.424685i 9.049685i 0.430118i 9.049685i 0.435551i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 9.050591i 0.441890i 9.051496i 0.447323i 9.051496i 0.449134i \
+  9.051496i 0.450039i 9.052402i 0.451850i 9.054213i 0.456378i 9.056024i 0.460000i \
+  9.056929i 0.460000i 9.057835i 0.460906i 9.062362i 0.464528i 9.068701i 0.469961i \
+  9.072323i 0.472677i 9.075039i 0.474488i 9.078661i 0.477205i 9.086811i 0.484449i \
+  9.094961i 0.490787i 9.097677i 0.493504i 9.099488i 0.494409i 9.102205i 0.498031i \
+  9.108543i 0.504370i 9.113976i 0.511614i 9.115787i 0.514331i 9.115787i 0.515236i \
+  9.117598i 0.517953i 9.119409i 0.525197i 9.120315i 0.532441i 9.120315i 0.535157i \
+  9.120315i 0.538780i 9.117598i 0.547835i 9.114882i 0.557795i 9.112165i 0.564134i \
+  9.109449i 0.568661i 9.107638i 0.572283i 9.104921i 0.577717i 9.102205i 0.584961i \
+  9.102205i 0.585866i 9.101299i 0.586772i 9.101299i 0.587677i 9.100394i 0.587677i \
+  9.100394i 0.588583i 9.100394i 0.589488i 9.099488i 0.589488i 9.099488i 0.590394i \
+  9.098583i 0.590394i 9.098583i 0.589488i 9.099488i 0.588583i 9.099488i 0.587677i \
+  9.099488i 0.586772i 9.100394i 0.585866i 9.100394i 0.584961i 9.103110i 0.578622i \
+  9.104921i 0.574094i 9.106732i 0.570472i 9.108543i 0.566850i 9.111260i 0.561417i \
+  9.113976i 0.553268i 9.116693i 0.546024i 9.117598i 0.542402i 9.118504i 0.542402i \
+  9.118504i 0.541496i 9.118504i 0.538780i 9.117598i 0.532441i 9.114882i 0.524291i \
+  9.113071i 0.520669i 9.111260i 0.519764i 9.108543i 0.516142i 9.102205i 0.507992i \
+  9.095866i 0.501654i 9.092244i 0.498031i 9.090433i 0.496220i 9.088622i 0.495315i \
+  9.084094i 0.492598i 9.076850i 0.487165i 9.067795i 0.481732i 9.063268i 0.479921i \
+  9.060551i 0.479016i 9.056929i 0.477205i 9.050591i 0.474488i 9.049685i 0.474488i \
+  9.048780i 0.473583i 9.047874i 0.473583i 9.046969i 0.473583i 9.046063i 0.473583i \
+  9.046063i 0.474488i 9.046063i 0.475394i 9.046063i 0.476299i 9.046063i 0.477205i \
+  9.046063i 0.478110i 9.046969i 0.479016i 9.046969i 0.479921i 9.046969i 0.480827i \
+  9.046969i 0.479921i 9.046969i 0.479016i 9.046969i 0.478110i 9.046969i 0.477205i \
+  9.046969i 0.475394i 9.046969i 0.474488i 9.046969i 0.464528i 9.047874i 0.455472i \
+  9.047874i 0.447323i 9.048780i 0.440079i 9.048780i 0.431929i 9.049685i 0.423780i \
+  9.050591i 0.421969i 9.050591i 0.424685i 9.049685i 0.430118i 9.049685i 0.435551i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 9.047874i 1.060354i 9.047874i 1.264094i -fill $tkxox(score_active_note)
+${score} create polygon 9.004409i 1.306654i 9.011654i 1.305748i 9.014370i 1.305748i \
+  9.016181i 1.304843i 9.018898i 1.303937i 9.026142i 1.301220i 9.033386i 1.297598i \
+  9.036102i 1.295787i 9.037913i 1.295787i 9.040630i 1.293071i 9.046063i 1.288543i \
+  9.051496i 1.283110i 9.053307i 1.281299i 9.055118i 1.280394i 9.056024i 1.277677i \
+  9.057835i 1.272244i 9.057835i 1.268622i 9.057835i 1.265906i 9.056929i 1.265000i \
+  9.056929i 1.264094i 9.056929i 1.263189i 9.056024i 1.262283i 9.053307i 1.260472i \
+  9.050591i 1.257756i 9.045157i 1.255039i 9.041535i 1.253228i 9.039724i 1.253228i \
+  9.036102i 1.252323i 9.027953i 1.252323i 9.019803i 1.253228i 9.016181i 1.254134i \
+  9.015276i 1.255039i 9.011654i 1.256850i 9.004409i 1.259567i 8.998071i 1.262283i \
+  8.995354i 1.263189i 8.994449i 1.264094i 8.992638i 1.265906i 8.988110i 1.268622i \
+  8.984488i 1.272244i 8.983583i 1.273150i 8.982677i 1.274961i 8.980866i 1.278583i \
+  8.979055i 1.283110i 8.978150i 1.284921i 8.977244i 1.286732i 8.977244i 1.288543i \
+  8.977244i 1.293071i 8.978150i 1.297598i 8.979055i 1.299409i 8.979055i 1.300315i \
+  8.980866i 1.301220i 8.984488i 1.303937i 8.989921i 1.305748i 8.992638i 1.306654i \
+  8.994449i 1.306654i 8.997165i 1.306654i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 9.004409i 1.306654i 9.011654i 1.305748i 9.014370i 1.305748i \
+  9.016181i 1.304843i 9.018898i 1.303937i 9.026142i 1.301220i 9.033386i 1.297598i \
+  9.036102i 1.295787i 9.037913i 1.295787i 9.040630i 1.293071i 9.046063i 1.288543i \
+  9.051496i 1.283110i 9.053307i 1.281299i 9.055118i 1.280394i 9.056024i 1.277677i \
+  9.057835i 1.272244i 9.057835i 1.268622i 9.057835i 1.265906i 9.056929i 1.265000i \
+  9.056929i 1.264094i 9.056929i 1.263189i 9.056024i 1.262283i 9.053307i 1.260472i \
+  9.050591i 1.257756i 9.045157i 1.255039i 9.041535i 1.253228i 9.039724i 1.253228i \
+  9.036102i 1.252323i 9.027953i 1.252323i 9.019803i 1.253228i 9.016181i 1.254134i \
+  9.015276i 1.255039i 9.011654i 1.256850i 9.004409i 1.259567i 8.998071i 1.262283i \
+  8.995354i 1.263189i 8.994449i 1.264094i 8.992638i 1.265906i 8.988110i 1.268622i \
+  8.984488i 1.272244i 8.983583i 1.273150i 8.982677i 1.274961i 8.980866i 1.278583i \
+  8.979055i 1.283110i 8.978150i 1.284921i 8.977244i 1.286732i 8.977244i 1.288543i \
+  8.977244i 1.293071i 8.978150i 1.297598i 8.979055i 1.299409i 8.979055i 1.300315i \
+  8.980866i 1.301220i 8.984488i 1.303937i 8.989921i 1.305748i 8.992638i 1.306654i \
+  8.994449i 1.306654i 8.997165i 1.306654i -outline $tkxox(score_active_note) -fill {}
+${score} create line 9.651850i 0.422874i 9.651850i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 9.609291i 0.640197i 9.616535i 0.639291i 9.619252i 0.638386i \
+  9.621063i 0.638386i 9.623780i 0.637480i 9.631024i 0.634764i 9.638268i 0.632047i \
+  9.640984i 0.630236i 9.642795i 0.629331i 9.645512i 0.628425i 9.650945i 0.623898i \
+  9.655472i 0.619370i 9.657283i 0.617559i 9.658189i 0.616654i 9.660000i 0.613937i \
+  9.660906i 0.609409i 9.660906i 0.606693i 9.660906i 0.603976i 9.660906i 0.603071i \
+  9.660906i 0.602165i 9.660000i 0.601260i 9.659094i 0.600354i 9.657283i 0.598543i \
+  9.654567i 0.596732i 9.649134i 0.594016i 9.645512i 0.594016i 9.643701i 0.593110i \
+  9.640079i 0.593110i 9.631929i 0.593110i 9.624685i 0.594016i 9.621063i 0.594016i \
+  9.619252i 0.594016i 9.615630i 0.594921i 9.609291i 0.597638i 9.602953i 0.600354i \
+  9.601142i 0.602165i 9.600236i 0.603071i 9.598425i 0.604882i 9.594803i 0.608504i \
+  9.591181i 0.611220i 9.590276i 0.612126i 9.589370i 0.613937i 9.587559i 0.616654i \
+  9.585748i 0.620276i 9.584843i 0.622087i 9.583937i 0.622992i 9.583937i 0.624803i \
+  9.583937i 0.628425i 9.584843i 0.631142i 9.584843i 0.632047i 9.584843i 0.632953i \
+  9.584843i 0.633858i 9.585748i 0.633858i 9.585748i 0.634764i 9.587559i 0.635669i \
+  9.590276i 0.637480i 9.594803i 0.639291i 9.597520i 0.640197i 9.599331i 0.640197i \
+  9.602047i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 9.609291i 0.640197i 9.616535i 0.639291i 9.619252i 0.638386i \
+  9.621063i 0.638386i 9.623780i 0.637480i 9.631024i 0.634764i 9.638268i 0.632047i \
+  9.640984i 0.630236i 9.642795i 0.629331i 9.645512i 0.628425i 9.650945i 0.623898i \
+  9.655472i 0.619370i 9.657283i 0.617559i 9.658189i 0.616654i 9.660000i 0.613937i \
+  9.660906i 0.609409i 9.660906i 0.606693i 9.660906i 0.603976i 9.660906i 0.603071i \
+  9.660906i 0.602165i 9.660000i 0.601260i 9.659094i 0.600354i 9.657283i 0.598543i \
+  9.654567i 0.596732i 9.649134i 0.594016i 9.645512i 0.594016i 9.643701i 0.593110i \
+  9.640079i 0.593110i 9.631929i 0.593110i 9.624685i 0.594016i 9.621063i 0.594016i \
+  9.619252i 0.594016i 9.615630i 0.594921i 9.609291i 0.597638i 9.602953i 0.600354i \
+  9.601142i 0.602165i 9.600236i 0.603071i 9.598425i 0.604882i 9.594803i 0.608504i \
+  9.591181i 0.611220i 9.590276i 0.612126i 9.589370i 0.613937i 9.587559i 0.616654i \
+  9.585748i 0.620276i 9.584843i 0.622087i 9.583937i 0.622992i 9.583937i 0.624803i \
+  9.583937i 0.628425i 9.584843i 0.631142i 9.584843i 0.632047i 9.584843i 0.632953i \
+  9.584843i 0.633858i 9.585748i 0.633858i 9.585748i 0.634764i 9.587559i 0.635669i \
+  9.590276i 0.637480i 9.594803i 0.639291i 9.597520i 0.640197i 9.599331i 0.640197i \
+  9.602047i 0.640197i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 9.656378i 0.441890i 9.657283i 0.447323i 9.658189i 0.449134i \
+  9.658189i 0.450039i 9.659094i 0.451850i 9.660906i 0.456378i 9.662717i 0.460000i \
+  9.663622i 0.460906i 9.668150i 0.464528i 9.674488i 0.469961i 9.678110i 0.472677i \
+  9.680827i 0.474488i 9.685354i 0.477205i 9.693504i 0.484449i 9.701654i 0.490787i \
+  9.705276i 0.493504i 9.706181i 0.494409i 9.709803i 0.498031i 9.715236i 0.504370i \
+  9.719764i 0.511614i 9.721575i 0.514331i 9.721575i 0.515236i 9.722480i 0.517953i \
+  9.724291i 0.525197i 9.725197i 0.532441i 9.725197i 0.535157i 9.724291i 0.538780i \
+  9.722480i 0.547835i 9.719764i 0.557795i 9.717047i 0.564134i 9.715236i 0.568661i \
+  9.713425i 0.572283i 9.710709i 0.577717i 9.707992i 0.584961i 9.707992i 0.585866i \
+  9.707087i 0.586772i 9.707087i 0.587677i 9.706181i 0.588583i 9.706181i 0.589488i \
+  9.706181i 0.590394i 9.705276i 0.590394i 9.705276i 0.589488i 9.706181i 0.588583i \
+  9.706181i 0.587677i 9.706181i 0.586772i 9.707087i 0.585866i 9.707087i 0.584961i \
+  9.708898i 0.578622i 9.710709i 0.574094i 9.712520i 0.570472i 9.714331i 0.566850i \
+  9.716142i 0.561417i 9.718858i 0.553268i 9.720669i 0.545118i 9.721575i 0.542402i \
+  9.722480i 0.542402i 9.722480i 0.539685i 9.721575i 0.532441i 9.718858i 0.524291i \
+  9.717953i 0.520669i 9.717047i 0.519764i 9.715236i 0.516142i 9.708898i 0.507992i \
+  9.702559i 0.501654i 9.698937i 0.498031i 9.697126i 0.496220i 9.694409i 0.495315i \
+  9.690787i 0.492598i 9.682638i 0.487165i 9.673583i 0.481732i 9.669055i 0.479921i \
+  9.666339i 0.479016i 9.662717i 0.477205i 9.656378i 0.474488i 9.655472i 0.474488i \
+  9.654567i 0.473583i 9.653661i 0.473583i 9.652756i 0.473583i 9.651850i 0.474488i \
+  9.651850i 0.475394i 9.652756i 0.476299i 9.652756i 0.477205i 9.652756i 0.478110i \
+  9.652756i 0.479016i 9.653661i 0.479016i 9.653661i 0.479921i 9.653661i 0.480827i \
+  9.653661i 0.479921i 9.653661i 0.479016i 9.653661i 0.478110i 9.653661i 0.477205i \
+  9.653661i 0.475394i 9.653661i 0.474488i 9.653661i 0.464528i 9.653661i 0.455472i \
+  9.654567i 0.447323i 9.654567i 0.440079i 9.654567i 0.431929i 9.655472i 0.423780i \
+  9.655472i 0.421969i 9.655472i 0.424685i 9.655472i 0.430118i 9.655472i 0.435551i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 9.656378i 0.441890i 9.657283i 0.447323i 9.658189i 0.449134i \
+  9.658189i 0.450039i 9.659094i 0.451850i 9.660906i 0.456378i 9.662717i 0.460000i \
+  9.663622i 0.460906i 9.668150i 0.464528i 9.674488i 0.469961i 9.678110i 0.472677i \
+  9.680827i 0.474488i 9.685354i 0.477205i 9.693504i 0.484449i 9.701654i 0.490787i \
+  9.705276i 0.493504i 9.706181i 0.494409i 9.709803i 0.498031i 9.715236i 0.504370i \
+  9.719764i 0.511614i 9.721575i 0.514331i 9.721575i 0.515236i 9.722480i 0.517953i \
+  9.724291i 0.525197i 9.725197i 0.532441i 9.725197i 0.535157i 9.724291i 0.538780i \
+  9.722480i 0.547835i 9.719764i 0.557795i 9.717047i 0.564134i 9.715236i 0.568661i \
+  9.713425i 0.572283i 9.710709i 0.577717i 9.707992i 0.584961i 9.707992i 0.585866i \
+  9.707087i 0.586772i 9.707087i 0.587677i 9.706181i 0.588583i 9.706181i 0.589488i \
+  9.706181i 0.590394i 9.705276i 0.590394i 9.705276i 0.589488i 9.706181i 0.588583i \
+  9.706181i 0.587677i 9.706181i 0.586772i 9.707087i 0.585866i 9.707087i 0.584961i \
+  9.708898i 0.578622i 9.710709i 0.574094i 9.712520i 0.570472i 9.714331i 0.566850i \
+  9.716142i 0.561417i 9.718858i 0.553268i 9.720669i 0.545118i 9.721575i 0.542402i \
+  9.722480i 0.542402i 9.722480i 0.539685i 9.721575i 0.532441i 9.718858i 0.524291i \
+  9.717953i 0.520669i 9.717047i 0.519764i 9.715236i 0.516142i 9.708898i 0.507992i \
+  9.702559i 0.501654i 9.698937i 0.498031i 9.697126i 0.496220i 9.694409i 0.495315i \
+  9.690787i 0.492598i 9.682638i 0.487165i 9.673583i 0.481732i 9.669055i 0.479921i \
+  9.666339i 0.479016i 9.662717i 0.477205i 9.656378i 0.474488i 9.655472i 0.474488i \
+  9.654567i 0.473583i 9.653661i 0.473583i 9.652756i 0.473583i 9.651850i 0.474488i \
+  9.651850i 0.475394i 9.652756i 0.476299i 9.652756i 0.477205i 9.652756i 0.478110i \
+  9.652756i 0.479016i 9.653661i 0.479016i 9.653661i 0.479921i 9.653661i 0.480827i \
+  9.653661i 0.479921i 9.653661i 0.479016i 9.653661i 0.478110i 9.653661i 0.477205i \
+  9.653661i 0.475394i 9.653661i 0.474488i 9.653661i 0.464528i 9.653661i 0.455472i \
+  9.654567i 0.447323i 9.654567i 0.440079i 9.654567i 0.431929i 9.655472i 0.423780i \
+  9.655472i 0.421969i 9.655472i 0.424685i 9.655472i 0.430118i 9.655472i 0.435551i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 5.032835i 0.086024i 5.032835i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 4.991181i 0.301535i 4.998425i 0.300630i 5.001142i 0.300630i \
+  5.002953i 0.300630i 5.005669i 0.299724i 5.012913i 0.297913i 5.020157i 0.295197i \
+  5.022874i 0.293386i 5.024685i 0.293386i 5.027402i 0.291575i 5.032835i 0.287047i \
+  5.037362i 0.282520i 5.039173i 0.280709i 5.040079i 0.279803i 5.041890i 0.277087i \
+  5.042795i 0.272559i 5.042795i 0.269843i 5.042795i 0.267126i 5.041890i 0.266220i \
+  5.041890i 0.265315i 5.040984i 0.264409i 5.040079i 0.263504i 5.038268i 0.261693i \
+  5.035551i 0.259882i 5.030118i 0.257165i 5.026496i 0.256260i 5.024685i 0.256260i \
+  5.021063i 0.255354i 5.013819i 0.255354i 5.006575i 0.256260i 5.002953i 0.256260i \
+  5.001142i 0.257165i 4.997520i 0.258071i 4.991181i 0.260787i 4.985748i 0.263504i \
+  4.983031i 0.265315i 4.982126i 0.266220i 4.980315i 0.268031i 4.976693i 0.271654i \
+  4.973071i 0.274370i 4.972165i 0.275276i 4.971260i 0.275276i 4.970354i 0.276181i \
+  4.968543i 0.278898i 4.966732i 0.282520i 4.965827i 0.284331i 4.965827i 0.285236i \
+  4.965827i 0.287047i 4.965827i 0.290669i 4.966732i 0.294291i 4.966732i 0.296102i \
+  4.967638i 0.297008i 4.968543i 0.298819i 4.972165i 0.300630i 4.976693i 0.302441i \
+  4.979409i 0.302441i 4.981220i 0.302441i 4.983937i 0.301535i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 8.711051i 0.363225i 10.639493i 0.363225i 10.639493i \
-  0.678442i 8.711051i 0.678442i 8.711051i 0.363225i -fill $tkxox(color_score_bg)
-${score} create polygon 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \
-  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 4.991181i 0.301535i 4.998425i 0.300630i 5.001142i 0.300630i \
+  5.002953i 0.300630i 5.005669i 0.299724i 5.012913i 0.297913i 5.020157i 0.295197i \
+  5.022874i 0.293386i 5.024685i 0.293386i 5.027402i 0.291575i 5.032835i 0.287047i \
+  5.037362i 0.282520i 5.039173i 0.280709i 5.040079i 0.279803i 5.041890i 0.277087i \
+  5.042795i 0.272559i 5.042795i 0.269843i 5.042795i 0.267126i 5.041890i 0.266220i \
+  5.041890i 0.265315i 5.040984i 0.264409i 5.040079i 0.263504i 5.038268i 0.261693i \
+  5.035551i 0.259882i 5.030118i 0.257165i 5.026496i 0.256260i 5.024685i 0.256260i \
+  5.021063i 0.255354i 5.013819i 0.255354i 5.006575i 0.256260i 5.002953i 0.256260i \
+  5.001142i 0.257165i 4.997520i 0.258071i 4.991181i 0.260787i 4.985748i 0.263504i \
+  4.983031i 0.265315i 4.982126i 0.266220i 4.980315i 0.268031i 4.976693i 0.271654i \
+  4.973071i 0.274370i 4.972165i 0.275276i 4.971260i 0.275276i 4.970354i 0.276181i \
+  4.968543i 0.278898i 4.966732i 0.282520i 4.965827i 0.284331i 4.965827i 0.285236i \
+  4.965827i 0.287047i 4.965827i 0.290669i 4.966732i 0.294291i 4.966732i 0.296102i \
+  4.967638i 0.297008i 4.968543i 0.298819i 4.972165i 0.300630i 4.976693i 0.302441i \
+  4.979409i 0.302441i 4.981220i 0.302441i 4.983937i 0.301535i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 5.038268i 0.104134i 5.039173i 0.109567i 5.040079i 0.111378i \
+  5.040079i 0.112283i 5.040984i 0.114094i 5.042795i 0.118622i 5.044606i 0.122244i \
+  5.044606i 0.123150i 5.044606i 0.122244i 5.045512i 0.123150i 5.050039i 0.127677i \
+  5.056378i 0.133110i 5.060000i 0.135827i 5.061811i 0.137638i 5.066339i 0.140354i \
+  5.074488i 0.147598i 5.082638i 0.153937i 5.087165i 0.157559i 5.088976i 0.158465i \
+  5.092598i 0.161181i 5.098937i 0.167520i 5.103465i 0.173858i 5.105276i 0.175669i \
+  5.105276i 0.176575i 5.106181i 0.179291i 5.107992i 0.185630i 5.108898i 0.192874i \
+  5.108898i 0.195591i 5.108898i 0.196496i 5.108898i 0.200118i 5.106181i 0.210079i \
+  5.102559i 0.220039i 5.099843i 0.226378i 5.098031i 0.230906i 5.096220i 0.234528i \
+  5.093504i 0.239961i 5.089882i 0.247205i 5.088976i 0.248110i 5.088976i 0.249016i \
+  5.088976i 0.249921i 5.088071i 0.249921i 5.088071i 0.250827i 5.088071i 0.251732i \
+  5.087165i 0.251732i 5.087165i 0.252638i 5.086260i 0.252638i 5.086260i 0.251732i \
+  5.087165i 0.250827i 5.087165i 0.249921i 5.087165i 0.249016i 5.088071i 0.248110i \
+  5.088071i 0.247205i 5.090787i 0.241772i 5.092598i 0.237244i 5.094409i 0.233622i \
+  5.096220i 0.230000i 5.098937i 0.224567i 5.101654i 0.216417i 5.104370i 0.208268i \
+  5.105276i 0.204646i 5.106181i 0.203740i 5.106181i 0.201024i 5.105276i 0.193780i \
+  5.102559i 0.186535i 5.100748i 0.182913i 5.099843i 0.182008i 5.097126i 0.178386i \
+  5.090787i 0.171142i 5.084449i 0.164803i 5.080827i 0.161181i 5.079016i 0.160276i \
+  5.076299i 0.158465i 5.072677i 0.155748i 5.064528i 0.150315i 5.055472i 0.144882i \
+  5.050945i 0.142165i 5.048228i 0.141260i 5.044606i 0.139449i 5.038268i 0.136732i \
+  5.037362i 0.136732i 5.036457i 0.135827i 5.035551i 0.135827i 5.034646i 0.135827i \
+  5.033740i 0.135827i 5.033740i 0.136732i 5.033740i 0.137638i 5.033740i 0.138543i \
+  5.033740i 0.139449i 5.033740i 0.140354i 5.034646i 0.140354i 5.034646i 0.141260i \
+  5.034646i 0.142165i 5.034646i 0.141260i 5.034646i 0.140354i 5.034646i 0.139449i \
+  5.034646i 0.137638i 5.034646i 0.136732i 5.034646i 0.126772i 5.035551i 0.117717i \
+  5.035551i 0.110472i 5.036457i 0.103228i 5.036457i 0.094173i 5.037362i 0.086929i \
+  5.038268i 0.085118i 5.037362i 0.087835i 5.037362i 0.092362i 5.037362i 0.097795i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 5.038268i 0.104134i 5.039173i 0.109567i 5.040079i 0.111378i \
+  5.040079i 0.112283i 5.040984i 0.114094i 5.042795i 0.118622i 5.044606i 0.122244i \
+  5.044606i 0.123150i 5.044606i 0.122244i 5.045512i 0.123150i 5.050039i 0.127677i \
+  5.056378i 0.133110i 5.060000i 0.135827i 5.061811i 0.137638i 5.066339i 0.140354i \
+  5.074488i 0.147598i 5.082638i 0.153937i 5.087165i 0.157559i 5.088976i 0.158465i \
+  5.092598i 0.161181i 5.098937i 0.167520i 5.103465i 0.173858i 5.105276i 0.175669i \
+  5.105276i 0.176575i 5.106181i 0.179291i 5.107992i 0.185630i 5.108898i 0.192874i \
+  5.108898i 0.195591i 5.108898i 0.196496i 5.108898i 0.200118i 5.106181i 0.210079i \
+  5.102559i 0.220039i 5.099843i 0.226378i 5.098031i 0.230906i 5.096220i 0.234528i \
+  5.093504i 0.239961i 5.089882i 0.247205i 5.088976i 0.248110i 5.088976i 0.249016i \
+  5.088976i 0.249921i 5.088071i 0.249921i 5.088071i 0.250827i 5.088071i 0.251732i \
+  5.087165i 0.251732i 5.087165i 0.252638i 5.086260i 0.252638i 5.086260i 0.251732i \
+  5.087165i 0.250827i 5.087165i 0.249921i 5.087165i 0.249016i 5.088071i 0.248110i \
+  5.088071i 0.247205i 5.090787i 0.241772i 5.092598i 0.237244i 5.094409i 0.233622i \
+  5.096220i 0.230000i 5.098937i 0.224567i 5.101654i 0.216417i 5.104370i 0.208268i \
+  5.105276i 0.204646i 5.106181i 0.203740i 5.106181i 0.201024i 5.105276i 0.193780i \
+  5.102559i 0.186535i 5.100748i 0.182913i 5.099843i 0.182008i 5.097126i 0.178386i \
+  5.090787i 0.171142i 5.084449i 0.164803i 5.080827i 0.161181i 5.079016i 0.160276i \
+  5.076299i 0.158465i 5.072677i 0.155748i 5.064528i 0.150315i 5.055472i 0.144882i \
+  5.050945i 0.142165i 5.048228i 0.141260i 5.044606i 0.139449i 5.038268i 0.136732i \
+  5.037362i 0.136732i 5.036457i 0.135827i 5.035551i 0.135827i 5.034646i 0.135827i \
+  5.033740i 0.135827i 5.033740i 0.136732i 5.033740i 0.137638i 5.033740i 0.138543i \
+  5.033740i 0.139449i 5.033740i 0.140354i 5.034646i 0.140354i 5.034646i 0.141260i \
+  5.034646i 0.142165i 5.034646i 0.141260i 5.034646i 0.140354i 5.034646i 0.139449i \
+  5.034646i 0.137638i 5.034646i 0.136732i 5.034646i 0.126772i 5.035551i 0.117717i \
+  5.035551i 0.110472i 5.036457i 0.103228i 5.036457i 0.094173i 5.037362i 0.086929i \
+  5.038268i 0.085118i 5.037362i 0.087835i 5.037362i 0.092362i 5.037362i 0.097795i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 5.032835i 0.422874i 5.032835i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 4.991181i 0.640197i 4.998425i 0.639291i 5.001142i 0.638386i \
+  5.002953i 0.638386i 5.005669i 0.637480i 5.012913i 0.634764i 5.020157i 0.632047i \
+  5.022874i 0.630236i 5.024685i 0.629331i 5.027402i 0.628425i 5.032835i 0.623898i \
+  5.037362i 0.619370i 5.039173i 0.617559i 5.040079i 0.616654i 5.041890i 0.613937i \
+  5.042795i 0.609409i 5.042795i 0.606693i 5.042795i 0.603976i 5.041890i 0.603071i \
+  5.041890i 0.602165i 5.040984i 0.601260i 5.040079i 0.600354i 5.038268i 0.598543i \
+  5.035551i 0.596732i 5.030118i 0.594016i 5.026496i 0.594016i 5.024685i 0.593110i \
+  5.021063i 0.593110i 5.013819i 0.593110i 5.006575i 0.594016i 5.002953i 0.594016i \
+  5.001142i 0.594016i 4.997520i 0.594921i 4.991181i 0.597638i 4.985748i 0.600354i \
+  4.983031i 0.602165i 4.982126i 0.603071i 4.980315i 0.604882i 4.976693i 0.608504i \
+  4.973071i 0.611220i 4.972165i 0.612126i 4.971260i 0.612126i 4.970354i 0.613937i \
+  4.968543i 0.616654i 4.966732i 0.620276i 4.965827i 0.622087i 4.965827i 0.622992i \
+  4.965827i 0.624803i 4.965827i 0.628425i 4.966732i 0.632047i 4.966732i 0.632953i \
+  4.967638i 0.633858i 4.968543i 0.634764i 4.972165i 0.637480i 4.976693i 0.639291i \
+  4.979409i 0.640197i 4.981220i 0.640197i 4.983937i 0.640197i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 8.712862i 1.048007i 11.793478i 1.048007i 11.793478i \
-  1.345109i 8.712862i 1.345109i 8.712862i 1.048007i -fill $tkxox(color_score_bg)
-${score} create polygon 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \
-  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -outline {} -fill \
-  $tkxox(color_score_bg) -width 0
-${score} create line 10.675725i 0.363225i 11.792572i 0.363225i 11.792572i \
-  0.678442i 10.675725i 0.678442i 10.675725i 0.363225i -fill $tkxox(color_score_bg)
-${score} create polygon 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \
-  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 4.991181i 0.640197i 4.998425i 0.639291i 5.001142i 0.638386i \
+  5.002953i 0.638386i 5.005669i 0.637480i 5.012913i 0.634764i 5.020157i 0.632047i \
+  5.022874i 0.630236i 5.024685i 0.629331i 5.027402i 0.628425i 5.032835i 0.623898i \
+  5.037362i 0.619370i 5.039173i 0.617559i 5.040079i 0.616654i 5.041890i 0.613937i \
+  5.042795i 0.609409i 5.042795i 0.606693i 5.042795i 0.603976i 5.041890i 0.603071i \
+  5.041890i 0.602165i 5.040984i 0.601260i 5.040079i 0.600354i 5.038268i 0.598543i \
+  5.035551i 0.596732i 5.030118i 0.594016i 5.026496i 0.594016i 5.024685i 0.593110i \
+  5.021063i 0.593110i 5.013819i 0.593110i 5.006575i 0.594016i 5.002953i 0.594016i \
+  5.001142i 0.594016i 4.997520i 0.594921i 4.991181i 0.597638i 4.985748i 0.600354i \
+  4.983031i 0.602165i 4.982126i 0.603071i 4.980315i 0.604882i 4.976693i 0.608504i \
+  4.973071i 0.611220i 4.972165i 0.612126i 4.971260i 0.612126i 4.970354i 0.613937i \
+  4.968543i 0.616654i 4.966732i 0.620276i 4.965827i 0.622087i 4.965827i 0.622992i \
+  4.965827i 0.624803i 4.965827i 0.628425i 4.966732i 0.632047i 4.966732i 0.632953i \
+  4.967638i 0.633858i 4.968543i 0.634764i 4.972165i 0.637480i 4.976693i 0.639291i \
+  4.979409i 0.640197i 4.981220i 0.640197i 4.983937i 0.640197i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 5.038268i 0.441890i 5.039173i 0.447323i 5.040079i 0.449134i \
+  5.040079i 0.450039i 5.040984i 0.451850i 5.042795i 0.456378i 5.044606i 0.460000i \
+  5.045512i 0.460906i 5.050039i 0.464528i 5.056378i 0.469961i 5.060000i 0.472677i \
+  5.061811i 0.474488i 5.066339i 0.477205i 5.074488i 0.484449i 5.082638i 0.490787i \
+  5.087165i 0.493504i 5.088976i 0.494409i 5.092598i 0.498031i 5.098937i 0.504370i \
+  5.103465i 0.511614i 5.105276i 0.514331i 5.105276i 0.515236i 5.106181i 0.517953i \
+  5.107992i 0.525197i 5.108898i 0.532441i 5.108898i 0.535157i 5.108898i 0.538780i \
+  5.106181i 0.547835i 5.102559i 0.557795i 5.099843i 0.564134i 5.098031i 0.568661i \
+  5.096220i 0.572283i 5.093504i 0.577717i 5.089882i 0.584961i 5.088976i 0.585866i \
+  5.088976i 0.586772i 5.088976i 0.587677i 5.088071i 0.587677i 5.088071i 0.588583i \
+  5.088071i 0.589488i 5.087165i 0.589488i 5.087165i 0.590394i 5.086260i 0.590394i \
+  5.086260i 0.589488i 5.087165i 0.588583i 5.087165i 0.587677i 5.087165i 0.586772i \
+  5.088071i 0.585866i 5.088071i 0.584961i 5.090787i 0.578622i 5.092598i 0.574094i \
+  5.094409i 0.570472i 5.096220i 0.566850i 5.098937i 0.561417i 5.101654i 0.553268i \
+  5.103465i 0.546024i 5.105276i 0.542402i 5.106181i 0.542402i 5.106181i 0.541496i \
+  5.106181i 0.538780i 5.105276i 0.532441i 5.102559i 0.524291i 5.100748i 0.520669i \
+  5.099843i 0.519764i 5.097126i 0.516142i 5.090787i 0.507992i 5.084449i 0.501654i \
+  5.080827i 0.498031i 5.079016i 0.496220i 5.076299i 0.495315i 5.072677i 0.492598i \
+  5.064528i 0.487165i 5.055472i 0.481732i 5.050945i 0.479921i 5.048228i 0.479016i \
+  5.044606i 0.477205i 5.038268i 0.474488i 5.037362i 0.474488i 5.036457i 0.473583i \
+  5.035551i 0.473583i 5.034646i 0.473583i 5.033740i 0.473583i 5.033740i 0.474488i \
+  5.033740i 0.475394i 5.033740i 0.476299i 5.033740i 0.477205i 5.033740i 0.478110i \
+  5.034646i 0.479016i 5.034646i 0.479921i 5.034646i 0.480827i 5.034646i 0.479921i \
+  5.034646i 0.479016i 5.034646i 0.478110i 5.034646i 0.477205i 5.034646i 0.475394i \
+  5.034646i 0.474488i 5.034646i 0.464528i 5.035551i 0.455472i 5.035551i 0.447323i \
+  5.036457i 0.440079i 5.036457i 0.431929i 5.037362i 0.423780i 5.038268i 0.421969i \
+  5.037362i 0.424685i 5.037362i 0.430118i 5.037362i 0.435551i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 0.054348i 0.040761i 4.695652i 0.040761i 4.695652i \
-  0.326087i 0.054348i 0.326087i 0.054348i 0.040761i -fill $tkxox(color_score_bg)
-${score} create polygon 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \
-  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 5.038268i 0.441890i 5.039173i 0.447323i 5.040079i 0.449134i \
+  5.040079i 0.450039i 5.040984i 0.451850i 5.042795i 0.456378i 5.044606i 0.460000i \
+  5.045512i 0.460906i 5.050039i 0.464528i 5.056378i 0.469961i 5.060000i 0.472677i \
+  5.061811i 0.474488i 5.066339i 0.477205i 5.074488i 0.484449i 5.082638i 0.490787i \
+  5.087165i 0.493504i 5.088976i 0.494409i 5.092598i 0.498031i 5.098937i 0.504370i \
+  5.103465i 0.511614i 5.105276i 0.514331i 5.105276i 0.515236i 5.106181i 0.517953i \
+  5.107992i 0.525197i 5.108898i 0.532441i 5.108898i 0.535157i 5.108898i 0.538780i \
+  5.106181i 0.547835i 5.102559i 0.557795i 5.099843i 0.564134i 5.098031i 0.568661i \
+  5.096220i 0.572283i 5.093504i 0.577717i 5.089882i 0.584961i 5.088976i 0.585866i \
+  5.088976i 0.586772i 5.088976i 0.587677i 5.088071i 0.587677i 5.088071i 0.588583i \
+  5.088071i 0.589488i 5.087165i 0.589488i 5.087165i 0.590394i 5.086260i 0.590394i \
+  5.086260i 0.589488i 5.087165i 0.588583i 5.087165i 0.587677i 5.087165i 0.586772i \
+  5.088071i 0.585866i 5.088071i 0.584961i 5.090787i 0.578622i 5.092598i 0.574094i \
+  5.094409i 0.570472i 5.096220i 0.566850i 5.098937i 0.561417i 5.101654i 0.553268i \
+  5.103465i 0.546024i 5.105276i 0.542402i 5.106181i 0.542402i 5.106181i 0.541496i \
+  5.106181i 0.538780i 5.105276i 0.532441i 5.102559i 0.524291i 5.100748i 0.520669i \
+  5.099843i 0.519764i 5.097126i 0.516142i 5.090787i 0.507992i 5.084449i 0.501654i \
+  5.080827i 0.498031i 5.079016i 0.496220i 5.076299i 0.495315i 5.072677i 0.492598i \
+  5.064528i 0.487165i 5.055472i 0.481732i 5.050945i 0.479921i 5.048228i 0.479016i \
+  5.044606i 0.477205i 5.038268i 0.474488i 5.037362i 0.474488i 5.036457i 0.473583i \
+  5.035551i 0.473583i 5.034646i 0.473583i 5.033740i 0.473583i 5.033740i 0.474488i \
+  5.033740i 0.475394i 5.033740i 0.476299i 5.033740i 0.477205i 5.033740i 0.478110i \
+  5.034646i 0.479016i 5.034646i 0.479921i 5.034646i 0.480827i 5.034646i 0.479921i \
+  5.034646i 0.479016i 5.034646i 0.478110i 5.034646i 0.477205i 5.034646i 0.475394i \
+  5.034646i 0.474488i 5.034646i 0.464528i 5.035551i 0.455472i 5.035551i 0.447323i \
+  5.036457i 0.440079i 5.036457i 0.431929i 5.037362i 0.423780i 5.038268i 0.421969i \
+  5.037362i 0.424685i 5.037362i 0.430118i 5.037362i 0.435551i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 5.676654i 0.422874i 5.676654i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 5.635000i 0.640197i 5.642244i 0.639291i 5.644961i 0.638386i \
+  5.646772i 0.638386i 5.649488i 0.637480i 5.656732i 0.634764i 5.663976i 0.632047i \
+  5.666693i 0.630236i 5.668504i 0.629331i 5.671220i 0.628425i 5.676654i 0.623898i \
+  5.681181i 0.619370i 5.682992i 0.617559i 5.683898i 0.616654i 5.685709i 0.613937i \
+  5.686614i 0.609409i 5.686614i 0.606693i 5.686614i 0.603976i 5.685709i 0.603071i \
+  5.685709i 0.602165i 5.684803i 0.601260i 5.683898i 0.600354i 5.682087i 0.598543i \
+  5.679370i 0.596732i 5.673937i 0.594016i 5.670315i 0.594016i 5.668504i 0.593110i \
+  5.664882i 0.593110i 5.657638i 0.593110i 5.650394i 0.594016i 5.646772i 0.594016i \
+  5.644961i 0.594016i 5.641339i 0.594921i 5.635000i 0.597638i 5.629567i 0.600354i \
+  5.626850i 0.602165i 5.625945i 0.603071i 5.624134i 0.604882i 5.620512i 0.608504i \
+  5.616890i 0.611220i 5.615984i 0.612126i 5.615079i 0.612126i 5.614173i 0.613937i \
+  5.612362i 0.616654i 5.610551i 0.620276i 5.609646i 0.622087i 5.609646i 0.622992i \
+  5.609646i 0.624803i 5.609646i 0.628425i 5.610551i 0.632047i 5.610551i 0.632953i \
+  5.611457i 0.633858i 5.612362i 0.634764i 5.615984i 0.637480i 5.620512i 0.639291i \
+  5.623228i 0.640197i 5.625039i 0.640197i 5.627756i 0.640197i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 4.737319i 0.363225i 6.663043i 0.363225i 6.663043i \
-  0.678442i 4.737319i 0.678442i 4.737319i 0.363225i -fill $tkxox(color_score_bg)
-${score} create polygon 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \
-  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 5.635000i 0.640197i 5.642244i 0.639291i 5.644961i 0.638386i \
+  5.646772i 0.638386i 5.649488i 0.637480i 5.656732i 0.634764i 5.663976i 0.632047i \
+  5.666693i 0.630236i 5.668504i 0.629331i 5.671220i 0.628425i 5.676654i 0.623898i \
+  5.681181i 0.619370i 5.682992i 0.617559i 5.683898i 0.616654i 5.685709i 0.613937i \
+  5.686614i 0.609409i 5.686614i 0.606693i 5.686614i 0.603976i 5.685709i 0.603071i \
+  5.685709i 0.602165i 5.684803i 0.601260i 5.683898i 0.600354i 5.682087i 0.598543i \
+  5.679370i 0.596732i 5.673937i 0.594016i 5.670315i 0.594016i 5.668504i 0.593110i \
+  5.664882i 0.593110i 5.657638i 0.593110i 5.650394i 0.594016i 5.646772i 0.594016i \
+  5.644961i 0.594016i 5.641339i 0.594921i 5.635000i 0.597638i 5.629567i 0.600354i \
+  5.626850i 0.602165i 5.625945i 0.603071i 5.624134i 0.604882i 5.620512i 0.608504i \
+  5.616890i 0.611220i 5.615984i 0.612126i 5.615079i 0.612126i 5.614173i 0.613937i \
+  5.612362i 0.616654i 5.610551i 0.620276i 5.609646i 0.622087i 5.609646i 0.622992i \
+  5.609646i 0.624803i 5.609646i 0.628425i 5.610551i 0.632047i 5.610551i 0.632953i \
+  5.611457i 0.633858i 5.612362i 0.634764i 5.615984i 0.637480i 5.620512i 0.639291i \
+  5.623228i 0.640197i 5.625039i 0.640197i 5.627756i 0.640197i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 5.682087i 0.441890i 5.682992i 0.447323i 5.683898i 0.449134i \
+  5.683898i 0.450039i 5.684803i 0.451850i 5.686614i 0.456378i 5.688425i 0.460000i \
+  5.689331i 0.460906i 5.693858i 0.464528i 5.700197i 0.469961i 5.703819i 0.472677i \
+  5.705630i 0.474488i 5.710157i 0.477205i 5.718307i 0.484449i 5.726457i 0.490787i \
+  5.730079i 0.493504i 5.731890i 0.494409i 5.734606i 0.498031i 5.740945i 0.504370i \
+  5.745472i 0.511614i 5.747283i 0.514331i 5.747283i 0.515236i 5.748189i 0.517953i \
+  5.750000i 0.525197i 5.750906i 0.532441i 5.750906i 0.535157i 5.750000i 0.538780i \
+  5.748189i 0.547835i 5.745472i 0.557795i 5.742756i 0.564134i 5.740945i 0.568661i \
+  5.739134i 0.572283i 5.736417i 0.577717i 5.733701i 0.584961i 5.733701i 0.585866i \
+  5.732795i 0.586772i 5.732795i 0.587677i 5.731890i 0.587677i 5.731890i 0.588583i \
+  5.731890i 0.589488i 5.730984i 0.589488i 5.730984i 0.590394i 5.730984i 0.589488i \
+  5.730984i 0.588583i 5.730984i 0.587677i 5.730984i 0.586772i 5.731890i 0.586772i \
+  5.731890i 0.585866i 5.731890i 0.584961i 5.733701i 0.578622i 5.735512i 0.574094i \
+  5.737323i 0.570472i 5.739134i 0.566850i 5.740945i 0.561417i 5.743661i 0.553268i \
+  5.746378i 0.545118i 5.747283i 0.542402i 5.748189i 0.542402i 5.748189i 0.539685i \
+  5.747283i 0.532441i 5.745472i 0.524291i 5.743661i 0.520669i 5.742756i 0.519764i \
+  5.740945i 0.516142i 5.734606i 0.507992i 5.728268i 0.501654i 5.724646i 0.498031i \
+  5.722835i 0.496220i 5.721024i 0.495315i 5.717402i 0.492598i 5.709252i 0.487165i \
+  5.700197i 0.481732i 5.695669i 0.479921i 5.692953i 0.479016i 5.688425i 0.477205i \
+  5.682087i 0.474488i 5.681181i 0.474488i 5.680276i 0.473583i 5.679370i 0.473583i \
+  5.678465i 0.473583i 5.677559i 0.473583i 5.677559i 0.474488i 5.677559i 0.475394i \
+  5.677559i 0.476299i 5.677559i 0.477205i 5.677559i 0.478110i 5.678465i 0.479016i \
+  5.678465i 0.479921i 5.678465i 0.480827i 5.678465i 0.479921i 5.678465i 0.479016i \
+  5.678465i 0.478110i 5.678465i 0.477205i 5.678465i 0.475394i 5.678465i 0.474488i \
+  5.678465i 0.464528i 5.679370i 0.455472i 5.679370i 0.447323i 5.680276i 0.440079i \
+  5.680276i 0.431929i 5.681181i 0.423780i 5.682087i 0.421969i 5.681181i 0.424685i \
+  5.681181i 0.430118i 5.681181i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 5.682087i 0.441890i 5.682992i 0.447323i 5.683898i 0.449134i \
+  5.683898i 0.450039i 5.684803i 0.451850i 5.686614i 0.456378i 5.688425i 0.460000i \
+  5.689331i 0.460906i 5.693858i 0.464528i 5.700197i 0.469961i 5.703819i 0.472677i \
+  5.705630i 0.474488i 5.710157i 0.477205i 5.718307i 0.484449i 5.726457i 0.490787i \
+  5.730079i 0.493504i 5.731890i 0.494409i 5.734606i 0.498031i 5.740945i 0.504370i \
+  5.745472i 0.511614i 5.747283i 0.514331i 5.747283i 0.515236i 5.748189i 0.517953i \
+  5.750000i 0.525197i 5.750906i 0.532441i 5.750906i 0.535157i 5.750000i 0.538780i \
+  5.748189i 0.547835i 5.745472i 0.557795i 5.742756i 0.564134i 5.740945i 0.568661i \
+  5.739134i 0.572283i 5.736417i 0.577717i 5.733701i 0.584961i 5.733701i 0.585866i \
+  5.732795i 0.586772i 5.732795i 0.587677i 5.731890i 0.587677i 5.731890i 0.588583i \
+  5.731890i 0.589488i 5.730984i 0.589488i 5.730984i 0.590394i 5.730984i 0.589488i \
+  5.730984i 0.588583i 5.730984i 0.587677i 5.730984i 0.586772i 5.731890i 0.586772i \
+  5.731890i 0.585866i 5.731890i 0.584961i 5.733701i 0.578622i 5.735512i 0.574094i \
+  5.737323i 0.570472i 5.739134i 0.566850i 5.740945i 0.561417i 5.743661i 0.553268i \
+  5.746378i 0.545118i 5.747283i 0.542402i 5.748189i 0.542402i 5.748189i 0.539685i \
+  5.747283i 0.532441i 5.745472i 0.524291i 5.743661i 0.520669i 5.742756i 0.519764i \
+  5.740945i 0.516142i 5.734606i 0.507992i 5.728268i 0.501654i 5.724646i 0.498031i \
+  5.722835i 0.496220i 5.721024i 0.495315i 5.717402i 0.492598i 5.709252i 0.487165i \
+  5.700197i 0.481732i 5.695669i 0.479921i 5.692953i 0.479016i 5.688425i 0.477205i \
+  5.682087i 0.474488i 5.681181i 0.474488i 5.680276i 0.473583i 5.679370i 0.473583i \
+  5.678465i 0.473583i 5.677559i 0.473583i 5.677559i 0.474488i 5.677559i 0.475394i \
+  5.677559i 0.476299i 5.677559i 0.477205i 5.677559i 0.478110i 5.678465i 0.479016i \
+  5.678465i 0.479921i 5.678465i 0.480827i 5.678465i 0.479921i 5.678465i 0.479016i \
+  5.678465i 0.478110i 5.678465i 0.477205i 5.678465i 0.475394i 5.678465i 0.474488i \
+  5.678465i 0.464528i 5.679370i 0.455472i 5.679370i 0.447323i 5.680276i 0.440079i \
+  5.680276i 0.431929i 5.681181i 0.423780i 5.682087i 0.421969i 5.681181i 0.424685i \
+  5.681181i 0.430118i 5.681181i 0.435551i -outline $tkxox(score_active_note) -fill {}
+${score} create line 4.313858i 0.422874i 4.313858i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 4.271299i 0.640197i 4.278543i 0.639291i 4.282165i 0.638386i \
+  4.283976i 0.638386i 4.287598i 0.637480i 4.294843i 0.634764i 4.301181i 0.632047i \
+  4.304803i 0.630236i 4.305709i 0.629331i 4.307520i 0.628425i 4.312953i 0.623898i \
+  4.317480i 0.619370i 4.320197i 0.617559i 4.321102i 0.616654i 4.322008i 0.613937i \
+  4.323819i 0.609409i 4.323819i 0.606693i 4.323819i 0.603976i 4.322913i 0.603071i \
+  4.322913i 0.602165i 4.322008i 0.601260i 4.321102i 0.600354i 4.319291i 0.598543i \
+  4.316575i 0.596732i 4.311142i 0.594016i 4.307520i 0.594016i 4.305709i 0.593110i \
+  4.302087i 0.593110i 4.294843i 0.593110i 4.286693i 0.594016i 4.283071i 0.594016i \
+  4.281260i 0.594016i 4.277638i 0.594921i 4.271299i 0.597638i 4.265866i 0.600354i \
+  4.263150i 0.602165i 4.263150i 0.603071i 4.261339i 0.604882i 4.257717i 0.608504i \
+  4.254094i 0.611220i 4.253189i 0.612126i 4.252283i 0.612126i 4.251378i 0.613937i \
+  4.249567i 0.616654i 4.247756i 0.620276i 4.246850i 0.622087i 4.245945i 0.622992i \
+  4.245945i 0.624803i 4.245945i 0.628425i 4.246850i 0.631142i 4.247756i 0.632953i \
+  4.247756i 0.633858i 4.248661i 0.633858i 4.249567i 0.635669i 4.253189i 0.637480i \
+  4.257717i 0.639291i 4.260433i 0.640197i 4.261339i 0.640197i 4.264055i 0.640197i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 4.271299i 0.640197i 4.278543i 0.639291i 4.282165i 0.638386i \
+  4.283976i 0.638386i 4.287598i 0.637480i 4.294843i 0.634764i 4.301181i 0.632047i \
+  4.304803i 0.630236i 4.305709i 0.629331i 4.307520i 0.628425i 4.312953i 0.623898i \
+  4.317480i 0.619370i 4.320197i 0.617559i 4.321102i 0.616654i 4.322008i 0.613937i \
+  4.323819i 0.609409i 4.323819i 0.606693i 4.323819i 0.603976i 4.322913i 0.603071i \
+  4.322913i 0.602165i 4.322008i 0.601260i 4.321102i 0.600354i 4.319291i 0.598543i \
+  4.316575i 0.596732i 4.311142i 0.594016i 4.307520i 0.594016i 4.305709i 0.593110i \
+  4.302087i 0.593110i 4.294843i 0.593110i 4.286693i 0.594016i 4.283071i 0.594016i \
+  4.281260i 0.594016i 4.277638i 0.594921i 4.271299i 0.597638i 4.265866i 0.600354i \
+  4.263150i 0.602165i 4.263150i 0.603071i 4.261339i 0.604882i 4.257717i 0.608504i \
+  4.254094i 0.611220i 4.253189i 0.612126i 4.252283i 0.612126i 4.251378i 0.613937i \
+  4.249567i 0.616654i 4.247756i 0.620276i 4.246850i 0.622087i 4.245945i 0.622992i \
+  4.245945i 0.624803i 4.245945i 0.628425i 4.246850i 0.631142i 4.247756i 0.632953i \
+  4.247756i 0.633858i 4.248661i 0.633858i 4.249567i 0.635669i 4.253189i 0.637480i \
+  4.257717i 0.639291i 4.260433i 0.640197i 4.261339i 0.640197i 4.264055i 0.640197i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 4.319291i 0.441890i 4.320197i 0.447323i 4.321102i 0.449134i \
+  4.321102i 0.450039i 4.322008i 0.451850i 4.323819i 0.456378i 4.325630i 0.460000i \
+  4.326535i 0.460906i 4.331063i 0.464528i 4.337402i 0.469961i 4.341024i 0.472677i \
+  4.342835i 0.474488i 4.347362i 0.477205i 4.355512i 0.484449i 4.363661i 0.490787i \
+  4.366378i 0.493504i 4.368189i 0.494409i 4.370906i 0.498031i 4.377244i 0.504370i \
+  4.382677i 0.511614i 4.384488i 0.514331i 4.385394i 0.515236i 4.387205i 0.517953i \
+  4.389016i 0.525197i 4.389921i 0.531535i 4.390827i 0.534252i 4.390827i 0.535157i \
+  4.389921i 0.536063i 4.389016i 0.539685i 4.387205i 0.547835i 4.383583i 0.557795i \
+  4.380866i 0.564134i 4.379055i 0.568661i 4.377244i 0.572283i 4.374528i 0.577717i \
+  4.370906i 0.584961i 4.370000i 0.585866i 4.370000i 0.586772i 4.370000i 0.587677i \
+  4.369094i 0.587677i 4.369094i 0.588583i 4.369094i 0.589488i 4.368189i 0.589488i \
+  4.368189i 0.590394i 4.367283i 0.590394i 4.368189i 0.590394i 4.368189i 0.589488i \
+  4.368189i 0.588583i 4.368189i 0.587677i 4.368189i 0.586772i 4.369094i 0.585866i \
+  4.369094i 0.584961i 4.370906i 0.578622i 4.372717i 0.574094i 4.374528i 0.570472i \
+  4.375433i 0.566850i 4.378150i 0.561417i 4.380866i 0.553268i 4.383583i 0.545118i \
+  4.385394i 0.542402i 4.386299i 0.542402i 4.387205i 0.539685i 4.386299i 0.532441i \
+  4.383583i 0.524291i 4.381772i 0.520669i 4.380866i 0.519764i 4.378150i 0.516142i \
+  4.371811i 0.507992i 4.365472i 0.501654i 4.361850i 0.498031i 4.360039i 0.496220i \
+  4.358228i 0.495315i 4.354606i 0.492598i 4.346457i 0.487165i 4.337402i 0.481732i \
+  4.332874i 0.479921i 4.330157i 0.479016i 4.325630i 0.477205i 4.319291i 0.474488i \
+  4.318386i 0.474488i 4.317480i 0.473583i 4.316575i 0.473583i 4.315669i 0.473583i \
+  4.314764i 0.473583i 4.314764i 0.474488i 4.314764i 0.475394i 4.314764i 0.476299i \
+  4.314764i 0.477205i 4.314764i 0.478110i 4.315669i 0.479016i 4.315669i 0.479921i \
+  4.315669i 0.480827i 4.315669i 0.479921i 4.315669i 0.479016i 4.315669i 0.478110i \
+  4.315669i 0.477205i 4.315669i 0.475394i 4.315669i 0.474488i 4.315669i 0.464528i \
+  4.316575i 0.455472i 4.316575i 0.447323i 4.317480i 0.440079i 4.317480i 0.431929i \
+  4.318386i 0.423780i 4.319291i 0.421969i 4.318386i 0.424685i 4.318386i 0.430118i \
+  4.318386i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 4.319291i 0.441890i 4.320197i 0.447323i 4.321102i 0.449134i \
+  4.321102i 0.450039i 4.322008i 0.451850i 4.323819i 0.456378i 4.325630i 0.460000i \
+  4.326535i 0.460906i 4.331063i 0.464528i 4.337402i 0.469961i 4.341024i 0.472677i \
+  4.342835i 0.474488i 4.347362i 0.477205i 4.355512i 0.484449i 4.363661i 0.490787i \
+  4.366378i 0.493504i 4.368189i 0.494409i 4.370906i 0.498031i 4.377244i 0.504370i \
+  4.382677i 0.511614i 4.384488i 0.514331i 4.385394i 0.515236i 4.387205i 0.517953i \
+  4.389016i 0.525197i 4.389921i 0.531535i 4.390827i 0.534252i 4.390827i 0.535157i \
+  4.389921i 0.536063i 4.389016i 0.539685i 4.387205i 0.547835i 4.383583i 0.557795i \
+  4.380866i 0.564134i 4.379055i 0.568661i 4.377244i 0.572283i 4.374528i 0.577717i \
+  4.370906i 0.584961i 4.370000i 0.585866i 4.370000i 0.586772i 4.370000i 0.587677i \
+  4.369094i 0.587677i 4.369094i 0.588583i 4.369094i 0.589488i 4.368189i 0.589488i \
+  4.368189i 0.590394i 4.367283i 0.590394i 4.368189i 0.590394i 4.368189i 0.589488i \
+  4.368189i 0.588583i 4.368189i 0.587677i 4.368189i 0.586772i 4.369094i 0.585866i \
+  4.369094i 0.584961i 4.370906i 0.578622i 4.372717i 0.574094i 4.374528i 0.570472i \
+  4.375433i 0.566850i 4.378150i 0.561417i 4.380866i 0.553268i 4.383583i 0.545118i \
+  4.385394i 0.542402i 4.386299i 0.542402i 4.387205i 0.539685i 4.386299i 0.532441i \
+  4.383583i 0.524291i 4.381772i 0.520669i 4.380866i 0.519764i 4.378150i 0.516142i \
+  4.371811i 0.507992i 4.365472i 0.501654i 4.361850i 0.498031i 4.360039i 0.496220i \
+  4.358228i 0.495315i 4.354606i 0.492598i 4.346457i 0.487165i 4.337402i 0.481732i \
+  4.332874i 0.479921i 4.330157i 0.479016i 4.325630i 0.477205i 4.319291i 0.474488i \
+  4.318386i 0.474488i 4.317480i 0.473583i 4.316575i 0.473583i 4.315669i 0.473583i \
+  4.314764i 0.473583i 4.314764i 0.474488i 4.314764i 0.475394i 4.314764i 0.476299i \
+  4.314764i 0.477205i 4.314764i 0.478110i 4.315669i 0.479016i 4.315669i 0.479921i \
+  4.315669i 0.480827i 4.315669i 0.479921i 4.315669i 0.479016i 4.315669i 0.478110i \
+  4.315669i 0.477205i 4.315669i 0.475394i 4.315669i 0.474488i 4.315669i 0.464528i \
+  4.316575i 0.455472i 4.316575i 0.447323i 4.317480i 0.440079i 4.317480i 0.431929i \
+  4.318386i 0.423780i 4.319291i 0.421969i 4.318386i 0.424685i 4.318386i 0.430118i \
+  4.318386i 0.435551i -outline $tkxox(score_active_note) -fill {}
+${score} create line 3.670039i 0.086024i 3.670039i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 3.627480i 0.301535i 3.634724i 0.300630i 3.638346i 0.300630i \
+  3.639252i 0.300630i 3.642874i 0.299724i 3.650118i 0.297913i 3.657362i 0.295197i \
+  3.660079i 0.293386i 3.660984i 0.293386i 3.663701i 0.291575i 3.669134i 0.287047i \
+  3.674567i 0.282520i 3.677283i 0.280709i 3.678189i 0.279803i 3.680000i 0.277087i \
+  3.681811i 0.272559i 3.681811i 0.269843i 3.680906i 0.267126i 3.680906i 0.266220i \
+  3.680000i 0.265315i 3.679094i 0.264409i 3.678189i 0.263504i 3.676378i 0.261693i \
+  3.672756i 0.259882i 3.667323i 0.257165i 3.663701i 0.256260i 3.661890i 0.256260i \
+  3.658268i 0.255354i 3.651024i 0.255354i 3.642874i 0.256260i 3.639252i 0.256260i \
+  3.637441i 0.257165i 3.633819i 0.258071i 3.627480i 0.260787i 3.622047i 0.263504i \
+  3.619331i 0.265315i 3.619331i 0.266220i 3.617520i 0.268031i 3.613898i 0.271654i \
+  3.610276i 0.274370i 3.609370i 0.275276i 3.608465i 0.275276i 3.607559i 0.276181i \
+  3.605748i 0.278898i 3.603937i 0.282520i 3.603031i 0.284331i 3.602126i 0.285236i \
+  3.602126i 0.287047i 3.602126i 0.290669i 3.603031i 0.294291i 3.603937i 0.296102i \
+  3.603937i 0.297008i 3.604843i 0.297008i 3.605748i 0.298819i 3.609370i 0.300630i \
+  3.613898i 0.302441i 3.616614i 0.302441i 3.617520i 0.302441i 3.621142i 0.301535i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 3.627480i 0.301535i 3.634724i 0.300630i 3.638346i 0.300630i \
+  3.639252i 0.300630i 3.642874i 0.299724i 3.650118i 0.297913i 3.657362i 0.295197i \
+  3.660079i 0.293386i 3.660984i 0.293386i 3.663701i 0.291575i 3.669134i 0.287047i \
+  3.674567i 0.282520i 3.677283i 0.280709i 3.678189i 0.279803i 3.680000i 0.277087i \
+  3.681811i 0.272559i 3.681811i 0.269843i 3.680906i 0.267126i 3.680906i 0.266220i \
+  3.680000i 0.265315i 3.679094i 0.264409i 3.678189i 0.263504i 3.676378i 0.261693i \
+  3.672756i 0.259882i 3.667323i 0.257165i 3.663701i 0.256260i 3.661890i 0.256260i \
+  3.658268i 0.255354i 3.651024i 0.255354i 3.642874i 0.256260i 3.639252i 0.256260i \
+  3.637441i 0.257165i 3.633819i 0.258071i 3.627480i 0.260787i 3.622047i 0.263504i \
+  3.619331i 0.265315i 3.619331i 0.266220i 3.617520i 0.268031i 3.613898i 0.271654i \
+  3.610276i 0.274370i 3.609370i 0.275276i 3.608465i 0.275276i 3.607559i 0.276181i \
+  3.605748i 0.278898i 3.603937i 0.282520i 3.603031i 0.284331i 3.602126i 0.285236i \
+  3.602126i 0.287047i 3.602126i 0.290669i 3.603031i 0.294291i 3.603937i 0.296102i \
+  3.603937i 0.297008i 3.604843i 0.297008i 3.605748i 0.298819i 3.609370i 0.300630i \
+  3.613898i 0.302441i 3.616614i 0.302441i 3.617520i 0.302441i 3.621142i 0.301535i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 3.677283i 0.104134i 3.678189i 0.109567i 3.679094i 0.111378i \
+  3.679094i 0.112283i 3.680000i 0.114094i 3.681811i 0.118622i 3.683622i 0.122244i \
+  3.683622i 0.123150i 3.683622i 0.122244i 3.684528i 0.123150i 3.689055i 0.127677i \
+  3.695394i 0.133110i 3.699016i 0.135827i 3.700827i 0.137638i 3.705354i 0.140354i \
+  3.713504i 0.147598i 3.721654i 0.153937i 3.724370i 0.157559i 3.726181i 0.158465i \
+  3.729803i 0.161181i 3.735236i 0.167520i 3.739764i 0.173858i 3.741575i 0.175669i \
+  3.742480i 0.176575i 3.743386i 0.179291i 3.745197i 0.185630i 3.746102i 0.192874i \
+  3.746102i 0.195591i 3.746102i 0.196496i 3.745197i 0.200118i 3.743386i 0.210079i \
+  3.740669i 0.220039i 3.737953i 0.226378i 3.736142i 0.230906i 3.734331i 0.234528i \
+  3.731614i 0.239961i 3.728898i 0.247205i 3.728898i 0.248110i 3.727992i 0.249016i \
+  3.727992i 0.249921i 3.727087i 0.249921i 3.727087i 0.250827i 3.727087i 0.251732i \
+  3.726181i 0.251732i 3.726181i 0.252638i 3.726181i 0.251732i 3.726181i 0.250827i \
+  3.726181i 0.249921i 3.726181i 0.249016i 3.727087i 0.249016i 3.727087i 0.248110i \
+  3.727087i 0.247205i 3.728898i 0.241772i 3.730709i 0.237244i 3.732520i 0.233622i \
+  3.734331i 0.230000i 3.736142i 0.224567i 3.738858i 0.216417i 3.741575i 0.208268i \
+  3.742480i 0.204646i 3.743386i 0.203740i 3.743386i 0.201024i 3.742480i 0.193780i \
+  3.740669i 0.186535i 3.738858i 0.182913i 3.737953i 0.182008i 3.736142i 0.178386i \
+  3.729803i 0.171142i 3.723465i 0.164803i 3.719843i 0.161181i 3.718031i 0.160276i \
+  3.716220i 0.158465i 3.712598i 0.155748i 3.704449i 0.150315i 3.695394i 0.144882i \
+  3.690866i 0.142165i 3.688150i 0.141260i 3.683622i 0.139449i 3.677283i 0.136732i \
+  3.676378i 0.136732i 3.675472i 0.135827i 3.674567i 0.135827i 3.673661i 0.135827i \
+  3.672756i 0.135827i 3.671850i 0.135827i 3.671850i 0.136732i 3.671850i 0.137638i \
+  3.671850i 0.138543i 3.671850i 0.139449i 3.671850i 0.140354i 3.671850i 0.141260i \
+  3.671850i 0.142165i 3.672756i 0.142165i 3.671850i 0.142165i 3.671850i 0.141260i \
+  3.671850i 0.140354i 3.671850i 0.139449i 3.671850i 0.138543i 3.671850i 0.136732i \
+  3.671850i 0.126772i 3.672756i 0.117717i 3.673661i 0.110472i 3.674567i 0.103228i \
+  3.675472i 0.094173i 3.676378i 0.086929i 3.677283i 0.085118i 3.677283i 0.087835i \
+  3.676378i 0.092362i 3.676378i 0.097795i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 3.677283i 0.104134i 3.678189i 0.109567i 3.679094i 0.111378i \
+  3.679094i 0.112283i 3.680000i 0.114094i 3.681811i 0.118622i 3.683622i 0.122244i \
+  3.683622i 0.123150i 3.683622i 0.122244i 3.684528i 0.123150i 3.689055i 0.127677i \
+  3.695394i 0.133110i 3.699016i 0.135827i 3.700827i 0.137638i 3.705354i 0.140354i \
+  3.713504i 0.147598i 3.721654i 0.153937i 3.724370i 0.157559i 3.726181i 0.158465i \
+  3.729803i 0.161181i 3.735236i 0.167520i 3.739764i 0.173858i 3.741575i 0.175669i \
+  3.742480i 0.176575i 3.743386i 0.179291i 3.745197i 0.185630i 3.746102i 0.192874i \
+  3.746102i 0.195591i 3.746102i 0.196496i 3.745197i 0.200118i 3.743386i 0.210079i \
+  3.740669i 0.220039i 3.737953i 0.226378i 3.736142i 0.230906i 3.734331i 0.234528i \
+  3.731614i 0.239961i 3.728898i 0.247205i 3.728898i 0.248110i 3.727992i 0.249016i \
+  3.727992i 0.249921i 3.727087i 0.249921i 3.727087i 0.250827i 3.727087i 0.251732i \
+  3.726181i 0.251732i 3.726181i 0.252638i 3.726181i 0.251732i 3.726181i 0.250827i \
+  3.726181i 0.249921i 3.726181i 0.249016i 3.727087i 0.249016i 3.727087i 0.248110i \
+  3.727087i 0.247205i 3.728898i 0.241772i 3.730709i 0.237244i 3.732520i 0.233622i \
+  3.734331i 0.230000i 3.736142i 0.224567i 3.738858i 0.216417i 3.741575i 0.208268i \
+  3.742480i 0.204646i 3.743386i 0.203740i 3.743386i 0.201024i 3.742480i 0.193780i \
+  3.740669i 0.186535i 3.738858i 0.182913i 3.737953i 0.182008i 3.736142i 0.178386i \
+  3.729803i 0.171142i 3.723465i 0.164803i 3.719843i 0.161181i 3.718031i 0.160276i \
+  3.716220i 0.158465i 3.712598i 0.155748i 3.704449i 0.150315i 3.695394i 0.144882i \
+  3.690866i 0.142165i 3.688150i 0.141260i 3.683622i 0.139449i 3.677283i 0.136732i \
+  3.676378i 0.136732i 3.675472i 0.135827i 3.674567i 0.135827i 3.673661i 0.135827i \
+  3.672756i 0.135827i 3.671850i 0.135827i 3.671850i 0.136732i 3.671850i 0.137638i \
+  3.671850i 0.138543i 3.671850i 0.139449i 3.671850i 0.140354i 3.671850i 0.141260i \
+  3.671850i 0.142165i 3.672756i 0.142165i 3.671850i 0.142165i 3.671850i 0.141260i \
+  3.671850i 0.140354i 3.671850i 0.139449i 3.671850i 0.138543i 3.671850i 0.136732i \
+  3.671850i 0.126772i 3.672756i 0.117717i 3.673661i 0.110472i 3.674567i 0.103228i \
+  3.675472i 0.094173i 3.676378i 0.086929i 3.677283i 0.085118i 3.677283i 0.087835i \
+  3.676378i 0.092362i 3.676378i 0.097795i -outline $tkxox(score_active_note) -fill {}
+${score} create line 3.670039i 0.422874i 3.670039i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 3.627480i 0.640197i 3.634724i 0.639291i 3.638346i 0.638386i \
+  3.639252i 0.638386i 3.642874i 0.637480i 3.650118i 0.634764i 3.657362i 0.632047i \
+  3.660079i 0.630236i 3.660984i 0.629331i 3.663701i 0.628425i 3.669134i 0.623898i \
+  3.674567i 0.619370i 3.677283i 0.617559i 3.678189i 0.616654i 3.680000i 0.613937i \
+  3.681811i 0.609409i 3.681811i 0.606693i 3.680906i 0.603976i 3.680906i 0.603071i \
+  3.680000i 0.602165i 3.679094i 0.601260i 3.678189i 0.600354i 3.676378i 0.598543i \
+  3.672756i 0.596732i 3.667323i 0.594016i 3.663701i 0.594016i 3.661890i 0.593110i \
+  3.658268i 0.593110i 3.651024i 0.593110i 3.642874i 0.594016i 3.639252i 0.594016i \
+  3.637441i 0.594016i 3.633819i 0.594921i 3.627480i 0.597638i 3.622047i 0.600354i \
+  3.619331i 0.602165i 3.619331i 0.603071i 3.617520i 0.604882i 3.613898i 0.608504i \
+  3.610276i 0.611220i 3.609370i 0.612126i 3.608465i 0.612126i 3.607559i 0.613937i \
+  3.605748i 0.616654i 3.603937i 0.620276i 3.603031i 0.622087i 3.602126i 0.622992i \
+  3.602126i 0.624803i 3.602126i 0.628425i 3.603031i 0.631142i 3.603937i 0.632953i \
+  3.603937i 0.633858i 3.604843i 0.633858i 3.605748i 0.635669i 3.609370i 0.637480i \
+  3.613898i 0.639291i 3.616614i 0.640197i 3.617520i 0.640197i 3.621142i 0.640197i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 3.627480i 0.640197i 3.634724i 0.639291i 3.638346i 0.638386i \
+  3.639252i 0.638386i 3.642874i 0.637480i 3.650118i 0.634764i 3.657362i 0.632047i \
+  3.660079i 0.630236i 3.660984i 0.629331i 3.663701i 0.628425i 3.669134i 0.623898i \
+  3.674567i 0.619370i 3.677283i 0.617559i 3.678189i 0.616654i 3.680000i 0.613937i \
+  3.681811i 0.609409i 3.681811i 0.606693i 3.680906i 0.603976i 3.680906i 0.603071i \
+  3.680000i 0.602165i 3.679094i 0.601260i 3.678189i 0.600354i 3.676378i 0.598543i \
+  3.672756i 0.596732i 3.667323i 0.594016i 3.663701i 0.594016i 3.661890i 0.593110i \
+  3.658268i 0.593110i 3.651024i 0.593110i 3.642874i 0.594016i 3.639252i 0.594016i \
+  3.637441i 0.594016i 3.633819i 0.594921i 3.627480i 0.597638i 3.622047i 0.600354i \
+  3.619331i 0.602165i 3.619331i 0.603071i 3.617520i 0.604882i 3.613898i 0.608504i \
+  3.610276i 0.611220i 3.609370i 0.612126i 3.608465i 0.612126i 3.607559i 0.613937i \
+  3.605748i 0.616654i 3.603937i 0.620276i 3.603031i 0.622087i 3.602126i 0.622992i \
+  3.602126i 0.624803i 3.602126i 0.628425i 3.603031i 0.631142i 3.603937i 0.632953i \
+  3.603937i 0.633858i 3.604843i 0.633858i 3.605748i 0.635669i 3.609370i 0.637480i \
+  3.613898i 0.639291i 3.616614i 0.640197i 3.617520i 0.640197i 3.621142i 0.640197i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 3.677283i 0.441890i 3.678189i 0.447323i 3.679094i 0.449134i \
+  3.679094i 0.450039i 3.680000i 0.451850i 3.681811i 0.456378i 3.683622i 0.460000i \
+  3.684528i 0.460906i 3.689055i 0.464528i 3.695394i 0.469961i 3.699016i 0.472677i \
+  3.700827i 0.474488i 3.705354i 0.477205i 3.713504i 0.484449i 3.721654i 0.490787i \
+  3.724370i 0.493504i 3.726181i 0.494409i 3.729803i 0.498031i 3.735236i 0.504370i \
+  3.739764i 0.511614i 3.741575i 0.514331i 3.742480i 0.515236i 3.743386i 0.517953i \
+  3.745197i 0.525197i 3.746102i 0.532441i 3.746102i 0.535157i 3.745197i 0.538780i \
+  3.743386i 0.547835i 3.740669i 0.557795i 3.737953i 0.564134i 3.736142i 0.568661i \
+  3.734331i 0.572283i 3.731614i 0.577717i 3.728898i 0.584961i 3.728898i 0.585866i \
+  3.727992i 0.586772i 3.727992i 0.587677i 3.727087i 0.587677i 3.727087i 0.588583i \
+  3.727087i 0.589488i 3.726181i 0.589488i 3.726181i 0.590394i 3.726181i 0.589488i \
+  3.726181i 0.588583i 3.726181i 0.587677i 3.726181i 0.586772i 3.727087i 0.586772i \
+  3.727087i 0.585866i 3.727087i 0.584961i 3.728898i 0.578622i 3.730709i 0.574094i \
+  3.732520i 0.570472i 3.734331i 0.566850i 3.736142i 0.561417i 3.738858i 0.553268i \
+  3.741575i 0.545118i 3.742480i 0.542402i 3.743386i 0.542402i 3.743386i 0.539685i \
+  3.742480i 0.532441i 3.740669i 0.524291i 3.738858i 0.520669i 3.737953i 0.519764i \
+  3.736142i 0.516142i 3.729803i 0.507992i 3.723465i 0.501654i 3.719843i 0.498031i \
+  3.718031i 0.496220i 3.716220i 0.495315i 3.712598i 0.492598i 3.704449i 0.487165i \
+  3.695394i 0.481732i 3.690866i 0.479921i 3.688150i 0.479016i 3.683622i 0.477205i \
+  3.677283i 0.474488i 3.676378i 0.474488i 3.675472i 0.473583i 3.674567i 0.473583i \
+  3.673661i 0.473583i 3.672756i 0.473583i 3.671850i 0.474488i 3.671850i 0.475394i \
+  3.671850i 0.476299i 3.671850i 0.477205i 3.671850i 0.478110i 3.671850i 0.479016i \
+  3.671850i 0.479921i 3.672756i 0.480827i 3.671850i 0.480827i 3.671850i 0.479921i \
+  3.671850i 0.479016i 3.671850i 0.478110i 3.671850i 0.477205i 3.671850i 0.476299i \
+  3.671850i 0.474488i 3.671850i 0.464528i 3.672756i 0.455472i 3.673661i 0.447323i \
+  3.674567i 0.440079i 3.675472i 0.431929i 3.676378i 0.423780i 3.677283i 0.421969i \
+  3.677283i 0.424685i 3.676378i 0.430118i 3.676378i 0.435551i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 6.698370i 0.363225i 8.671196i 0.363225i 8.671196i \
-  0.678442i 6.698370i 0.678442i 6.698370i 0.363225i -fill $tkxox(color_score_bg)
-${score} create polygon 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \
-  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -outline {} -fill $tkxox(color_score_bg) \
+${score} create polygon 3.677283i 0.441890i 3.678189i 0.447323i 3.679094i 0.449134i \
+  3.679094i 0.450039i 3.680000i 0.451850i 3.681811i 0.456378i 3.683622i 0.460000i \
+  3.684528i 0.460906i 3.689055i 0.464528i 3.695394i 0.469961i 3.699016i 0.472677i \
+  3.700827i 0.474488i 3.705354i 0.477205i 3.713504i 0.484449i 3.721654i 0.490787i \
+  3.724370i 0.493504i 3.726181i 0.494409i 3.729803i 0.498031i 3.735236i 0.504370i \
+  3.739764i 0.511614i 3.741575i 0.514331i 3.742480i 0.515236i 3.743386i 0.517953i \
+  3.745197i 0.525197i 3.746102i 0.532441i 3.746102i 0.535157i 3.745197i 0.538780i \
+  3.743386i 0.547835i 3.740669i 0.557795i 3.737953i 0.564134i 3.736142i 0.568661i \
+  3.734331i 0.572283i 3.731614i 0.577717i 3.728898i 0.584961i 3.728898i 0.585866i \
+  3.727992i 0.586772i 3.727992i 0.587677i 3.727087i 0.587677i 3.727087i 0.588583i \
+  3.727087i 0.589488i 3.726181i 0.589488i 3.726181i 0.590394i 3.726181i 0.589488i \
+  3.726181i 0.588583i 3.726181i 0.587677i 3.726181i 0.586772i 3.727087i 0.586772i \
+  3.727087i 0.585866i 3.727087i 0.584961i 3.728898i 0.578622i 3.730709i 0.574094i \
+  3.732520i 0.570472i 3.734331i 0.566850i 3.736142i 0.561417i 3.738858i 0.553268i \
+  3.741575i 0.545118i 3.742480i 0.542402i 3.743386i 0.542402i 3.743386i 0.539685i \
+  3.742480i 0.532441i 3.740669i 0.524291i 3.738858i 0.520669i 3.737953i 0.519764i \
+  3.736142i 0.516142i 3.729803i 0.507992i 3.723465i 0.501654i 3.719843i 0.498031i \
+  3.718031i 0.496220i 3.716220i 0.495315i 3.712598i 0.492598i 3.704449i 0.487165i \
+  3.695394i 0.481732i 3.690866i 0.479921i 3.688150i 0.479016i 3.683622i 0.477205i \
+  3.677283i 0.474488i 3.676378i 0.474488i 3.675472i 0.473583i 3.674567i 0.473583i \
+  3.673661i 0.473583i 3.672756i 0.473583i 3.671850i 0.474488i 3.671850i 0.475394i \
+  3.671850i 0.476299i 3.671850i 0.477205i 3.671850i 0.478110i 3.671850i 0.479016i \
+  3.671850i 0.479921i 3.672756i 0.480827i 3.671850i 0.480827i 3.671850i 0.479921i \
+  3.671850i 0.479016i 3.671850i 0.478110i 3.671850i 0.477205i 3.671850i 0.476299i \
+  3.671850i 0.474488i 3.671850i 0.464528i 3.672756i 0.455472i 3.673661i 0.447323i \
+  3.674567i 0.440079i 3.675472i 0.431929i 3.676378i 0.423780i 3.677283i 0.421969i \
+  3.677283i 0.424685i 3.676378i 0.430118i 3.676378i 0.435551i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 3.711693i 1.060354i 3.711693i 1.264094i -fill $tkxox(score_active_note)
+${score} create polygon 3.666417i 1.306654i 3.674567i 1.305748i 3.678189i 1.305748i \
+  3.680000i 1.304843i 3.683622i 1.303937i 3.691772i 1.301220i 3.699016i 1.297598i \
+  3.701732i 1.295787i 3.702638i 1.295787i 3.704449i 1.293071i 3.709882i 1.288543i \
+  3.714409i 1.283110i 3.717126i 1.281299i 3.718937i 1.280394i 3.719843i 1.277677i \
+  3.721654i 1.272244i 3.721654i 1.268622i 3.721654i 1.265906i 3.720748i 1.265000i \
+  3.720748i 1.264094i 3.719843i 1.263189i 3.718937i 1.262283i 3.717126i 1.260472i \
+  3.714409i 1.257756i 3.708976i 1.255039i 3.706260i 1.253228i 3.704449i 1.253228i \
+  3.701732i 1.252323i 3.693583i 1.252323i 3.685433i 1.253228i 3.680906i 1.254134i \
+  3.678189i 1.255039i 3.674567i 1.256850i 3.666417i 1.259567i 3.660079i 1.262283i \
+  3.657362i 1.263189i 3.656457i 1.264094i 3.655551i 1.265906i 3.651024i 1.268622i \
+  3.647402i 1.272244i 3.646496i 1.273150i 3.645591i 1.274961i 3.643780i 1.278583i \
+  3.641969i 1.283110i 3.641969i 1.284921i 3.641063i 1.286732i 3.641063i 1.288543i \
+  3.641063i 1.293071i 3.641969i 1.297598i 3.641969i 1.299409i 3.641969i 1.300315i \
+  3.642874i 1.301220i 3.646496i 1.303937i 3.651024i 1.305748i 3.653740i 1.306654i \
+  3.655551i 1.306654i 3.659173i 1.306654i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 3.666417i 1.306654i 3.674567i 1.305748i 3.678189i 1.305748i \
+  3.680000i 1.304843i 3.683622i 1.303937i 3.691772i 1.301220i 3.699016i 1.297598i \
+  3.701732i 1.295787i 3.702638i 1.295787i 3.704449i 1.293071i 3.709882i 1.288543i \
+  3.714409i 1.283110i 3.717126i 1.281299i 3.718937i 1.280394i 3.719843i 1.277677i \
+  3.721654i 1.272244i 3.721654i 1.268622i 3.721654i 1.265906i 3.720748i 1.265000i \
+  3.720748i 1.264094i 3.719843i 1.263189i 3.718937i 1.262283i 3.717126i 1.260472i \
+  3.714409i 1.257756i 3.708976i 1.255039i 3.706260i 1.253228i 3.704449i 1.253228i \
+  3.701732i 1.252323i 3.693583i 1.252323i 3.685433i 1.253228i 3.680906i 1.254134i \
+  3.678189i 1.255039i 3.674567i 1.256850i 3.666417i 1.259567i 3.660079i 1.262283i \
+  3.657362i 1.263189i 3.656457i 1.264094i 3.655551i 1.265906i 3.651024i 1.268622i \
+  3.647402i 1.272244i 3.646496i 1.273150i 3.645591i 1.274961i 3.643780i 1.278583i \
+  3.641969i 1.283110i 3.641969i 1.284921i 3.641063i 1.286732i 3.641063i 1.288543i \
+  3.641063i 1.293071i 3.641969i 1.297598i 3.641969i 1.299409i 3.641969i 1.300315i \
+  3.642874i 1.301220i 3.646496i 1.303937i 3.651024i 1.305748i 3.653740i 1.306654i \
+  3.655551i 1.306654i 3.659173i 1.306654i -outline $tkxox(score_active_note) -fill {}
+${score} create line 3.065157i 0.422874i 3.065157i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 3.023504i 0.640197i 3.030748i 0.639291i 3.034370i 0.638386i \
+  3.035276i 0.638386i 3.038898i 0.637480i 3.046142i 0.634764i 3.052480i 0.632047i \
+  3.055197i 0.630236i 3.057008i 0.629331i 3.058819i 0.628425i 3.064252i 0.623898i \
+  3.068780i 0.619370i 3.071496i 0.617559i 3.072402i 0.616654i 3.073307i 0.613937i \
+  3.075118i 0.609409i 3.075118i 0.606693i 3.075118i 0.603976i 3.074213i 0.603071i \
+  3.074213i 0.602165i 3.073307i 0.601260i 3.072402i 0.600354i 3.070591i 0.598543i \
+  3.067874i 0.596732i 3.062441i 0.594016i 3.059724i 0.594016i 3.057913i 0.593110i \
+  3.054291i 0.593110i 3.047047i 0.593110i 3.039803i 0.594016i 3.035276i 0.594016i \
+  3.033465i 0.594016i 3.030748i 0.594921i 3.023504i 0.597638i 3.017165i 0.600354i \
+  3.015354i 0.602165i 3.014449i 0.603071i 3.012638i 0.604882i 3.009016i 0.608504i \
+  3.005394i 0.611220i 3.004488i 0.612126i 3.003583i 0.612126i 3.002677i 0.613937i \
+  3.000866i 0.616654i 2.999055i 0.620276i 2.998150i 0.622087i 2.998150i 0.622992i \
+  2.998150i 0.624803i 2.998150i 0.628425i 2.999055i 0.632047i 2.999055i 0.632953i \
+  2.999961i 0.633858i 3.000866i 0.634764i 3.004488i 0.637480i 3.009016i 0.639291i \
+  3.011732i 0.640197i 3.013543i 0.640197i 3.016260i 0.640197i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create line 0.054348i 0.363225i 2.688406i 0.363225i 2.688406i \
-  0.678442i 0.054348i 0.678442i 0.054348i 0.363225i -fill $tkxox(color_score_bg)
-${score} create line 7.042572i 0.423007i 7.042572i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \
-  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \
-  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \
-  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \
-  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \
-  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \
-  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \
-  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \
-  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \
-  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \
-  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \
-  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \
-  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \
-  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \
-  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \
-  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \
-  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \
-  0.640399i 7.000000i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 7.000000i 0.640399i 7.007246i 0.639493i 7.009964i \
-  0.638587i 7.011775i 0.638587i 7.014493i 0.637681i 7.021739i 0.634964i \
-  7.028986i 0.632246i 7.031703i 0.630435i 7.033514i 0.629529i 7.036232i \
-  0.628623i 7.041667i 0.624094i 7.046196i 0.619565i 7.048007i 0.617754i \
-  7.048913i 0.616848i 7.050725i 0.614130i 7.051630i 0.609601i 7.051630i \
-  0.606884i 7.051630i 0.604167i 7.050725i 0.603261i 7.050725i 0.602355i \
-  7.049819i 0.601449i 7.048913i 0.600543i 7.047101i 0.598732i 7.044384i \
-  0.596920i 7.038949i 0.594203i 7.035326i 0.594203i 7.033514i 0.593297i \
-  7.029891i 0.593297i 7.022645i 0.593297i 7.015399i 0.594203i 7.011775i \
-  0.594203i 7.009964i 0.594203i 7.007246i 0.595109i 7.000000i 0.597826i \
-  6.993659i 0.600543i 6.990942i 0.602355i 6.990036i 0.603261i 6.988225i \
-  0.605072i 6.983696i 0.608696i 6.980072i 0.611413i 6.979167i 0.612319i \
-  6.978261i 0.614130i 6.976449i 0.616848i 6.974638i 0.620471i 6.973732i \
-  0.622283i 6.972826i 0.623188i 6.972826i 0.625000i 6.972826i 0.628623i \
-  6.973732i 0.631341i 6.973732i 0.632246i 6.973732i 0.633152i 6.973732i \
-  0.634058i 6.974638i 0.634964i 6.976449i 0.635870i 6.979167i 0.637681i \
-  6.984601i 0.639493i 6.987319i 0.640399i 6.989130i 0.640399i 6.992754i \
-  0.640399i 7.000000i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \
-  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \
-  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \
-  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \
-  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \
-  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \
-  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \
-  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \
-  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \
-  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \
-  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \
-  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \
-  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \
-  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \
-  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \
-  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \
-  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \
-  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \
-  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \
-  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \
-  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \
-  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \
-  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \
-  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \
-  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \
-  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \
-  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \
-  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \
-  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \
-  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \
-  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 7.047101i 0.442029i 7.048007i 0.447464i 7.048913i \
-  0.449275i 7.048913i 0.450181i 7.049819i 0.451993i 7.051630i 0.456522i \
-  7.053442i 0.460145i 7.054348i 0.461051i 7.058877i 0.464674i 7.065217i \
-  0.470109i 7.068841i 0.472826i 7.070652i 0.474638i 7.075181i 0.477355i \
-  7.083333i 0.484601i 7.091486i 0.490942i 7.095109i 0.493659i 7.096920i \
-  0.494565i 7.099638i 0.498188i 7.105978i 0.504529i 7.110507i 0.511775i \
-  7.112319i 0.514493i 7.112319i 0.515399i 7.113225i 0.518116i 7.115036i \
-  0.525362i 7.115942i 0.532609i 7.115942i 0.535326i 7.115036i 0.538949i \
-  7.113225i 0.548007i 7.110507i 0.557971i 7.107790i 0.564312i 7.105978i \
-  0.568841i 7.104167i 0.572464i 7.101449i 0.577899i 7.098732i 0.585145i \
-  7.098732i 0.586051i 7.097826i 0.586957i 7.097826i 0.587862i 7.096920i \
-  0.587862i 7.096920i 0.588768i 7.096920i 0.589674i 7.096014i 0.589674i \
-  7.096014i 0.590580i 7.095109i 0.590580i 7.095109i 0.589674i 7.096014i \
-  0.589674i 7.096014i 0.588768i 7.096014i 0.587862i 7.096014i 0.586957i \
-  7.096920i 0.586051i 7.096920i 0.585145i 7.098732i 0.578804i 7.101449i \
-  0.574275i 7.103261i 0.570652i 7.104167i 0.567029i 7.106884i 0.561594i \
-  7.109601i 0.553442i 7.111413i 0.545290i 7.113225i 0.542572i 7.113225i \
-  0.539855i 7.112319i 0.532609i 7.109601i 0.524457i 7.108696i 0.520833i \
-  7.107790i 0.519928i 7.105978i 0.516304i 7.099638i 0.508152i 7.093297i \
-  0.501812i 7.089674i 0.498188i 7.087862i 0.496377i 7.086051i 0.495471i \
-  7.082428i 0.492754i 7.074275i 0.487319i 7.065217i 0.481884i 7.060688i \
-  0.480072i 7.057065i 0.479167i 7.053442i 0.477355i 7.047101i 0.474638i \
-  7.046196i 0.474638i 7.045290i 0.473732i 7.044384i 0.473732i 7.043478i \
-  0.473732i 7.042572i 0.473732i 7.042572i 0.474638i 7.042572i 0.475543i \
-  7.042572i 0.476449i 7.043478i 0.476449i 7.043478i 0.477355i 7.043478i \
-  0.478261i 7.043478i 0.479167i 7.044384i 0.480072i 7.044384i 0.480978i \
-  7.044384i 0.480072i 7.044384i 0.479167i 7.044384i 0.478261i 7.044384i \
-  0.477355i 7.044384i 0.475543i 7.044384i 0.474638i 7.044384i 0.464674i \
-  7.044384i 0.455616i 7.045290i 0.447464i 7.045290i 0.440217i 7.045290i \
-  0.432065i 7.046196i 0.423913i 7.046196i 0.422101i 7.046196i 0.424819i \
-  7.046196i 0.430254i 7.046196i 0.435688i 7.047101i 0.442029i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 6.322464i 0.423007i 6.322464i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \
-  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \
-  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \
-  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \
-  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \
-  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \
-  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \
-  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \
-  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \
-  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \
-  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \
-  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \
-  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \
-  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \
-  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \
-  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \
-  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \
-  0.640399i 6.280797i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 6.280797i 0.640399i 6.288043i 0.639493i 6.291667i \
-  0.638587i 6.292572i 0.638587i 6.296196i 0.637681i 6.303442i 0.634964i \
-  6.310688i 0.632246i 6.313406i 0.630435i 6.314312i 0.629529i 6.317029i \
-  0.628623i 6.322464i 0.624094i 6.326993i 0.619565i 6.328804i 0.617754i \
-  6.329710i 0.616848i 6.331522i 0.614130i 6.332428i 0.609601i 6.332428i \
-  0.606884i 6.332428i 0.604167i 6.331522i 0.603261i 6.331522i 0.602355i \
-  6.330616i 0.601449i 6.329710i 0.600543i 6.327899i 0.598732i 6.325181i \
-  0.596920i 6.319746i 0.594203i 6.317029i 0.594203i 6.315217i 0.593297i \
-  6.311594i 0.593297i 6.304348i 0.593297i 6.297101i 0.594203i 6.293478i \
-  0.594203i 6.291667i 0.594203i 6.288043i 0.595109i 6.280797i 0.597826i \
-  6.274457i 0.600543i 6.271739i 0.602355i 6.270833i 0.603261i 6.269022i \
-  0.605072i 6.264493i 0.608696i 6.260870i 0.611413i 6.259058i 0.612319i \
-  6.258152i 0.614130i 6.256341i 0.616848i 6.254529i 0.620471i 6.253623i \
-  0.622283i 6.253623i 0.623188i 6.253623i 0.625000i 6.253623i 0.628623i \
-  6.254529i 0.631341i 6.254529i 0.632246i 6.254529i 0.633152i 6.254529i \
-  0.634058i 6.255435i 0.634964i 6.257246i 0.635870i 6.259964i 0.637681i \
-  6.265399i 0.639493i 6.268116i 0.640399i 6.269928i 0.640399i 6.273551i \
-  0.640399i 6.280797i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \
-  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \
-  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \
-  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \
-  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \
-  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \
-  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \
-  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \
-  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \
-  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \
-  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \
-  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \
-  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \
-  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \
-  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \
-  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \
-  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \
-  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \
-  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \
-  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \
-  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \
-  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \
-  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \
-  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \
-  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \
-  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \
-  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \
-  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \
-  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \
-  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \
-  6.326993i 0.435688i 6.327899i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \
-  0
-${score} create polygon 6.327899i 0.442029i 6.328804i 0.447464i 6.329710i \
-  0.449275i 6.329710i 0.450181i 6.330616i 0.451993i 6.332428i 0.456522i \
-  6.334239i 0.460145i 6.335145i 0.461051i 6.339674i 0.464674i 6.346014i \
-  0.470109i 6.349638i 0.472826i 6.352355i 0.474638i 6.356884i 0.477355i \
-  6.365036i 0.484601i 6.373188i 0.490942i 6.376812i 0.493659i 6.377717i \
-  0.494565i 6.381341i 0.498188i 6.386775i 0.504529i 6.391304i 0.511775i \
-  6.393116i 0.514493i 6.393116i 0.515399i 6.394022i 0.518116i 6.395833i \
-  0.525362i 6.396739i 0.532609i 6.396739i 0.535326i 6.395833i 0.538949i \
-  6.394022i 0.548007i 6.391304i 0.557971i 6.388587i 0.564312i 6.386775i \
-  0.568841i 6.384964i 0.572464i 6.382246i 0.577899i 6.379529i 0.585145i \
-  6.379529i 0.586051i 6.378623i 0.586957i 6.378623i 0.587862i 6.377717i \
-  0.587862i 6.377717i 0.588768i 6.377717i 0.589674i 6.376812i 0.589674i \
-  6.376812i 0.590580i 6.376812i 0.589674i 6.376812i 0.588768i 6.376812i \
-  0.587862i 6.376812i 0.586957i 6.377717i 0.586957i 6.377717i 0.586051i \
-  6.377717i 0.585145i 6.379529i 0.578804i 6.381341i 0.574275i 6.383152i \
-  0.570652i 6.384964i 0.567029i 6.386775i 0.561594i 6.389493i 0.553442i \
-  6.392210i 0.545290i 6.393116i 0.542572i 6.394022i 0.542572i 6.394022i \
-  0.539855i 6.393116i 0.532609i 6.391304i 0.524457i 6.389493i 0.520833i \
-  6.388587i 0.519928i 6.386775i 0.516304i 6.380435i 0.508152i 6.374094i \
-  0.501812i 6.370471i 0.498188i 6.368659i 0.496377i 6.366848i 0.495471i \
-  6.363225i 0.492754i 6.355072i 0.487319i 6.346014i 0.481884i 6.341486i \
-  0.480072i 6.338768i 0.479167i 6.334239i 0.477355i 6.327899i 0.474638i \
-  6.326993i 0.474638i 6.326087i 0.473732i 6.325181i 0.473732i 6.324275i \
-  0.473732i 6.323370i 0.473732i 6.323370i 0.474638i 6.323370i 0.475543i \
-  6.323370i 0.476449i 6.323370i 0.477355i 6.323370i 0.478261i 6.324275i \
-  0.479167i 6.324275i 0.480072i 6.324275i 0.480978i 6.324275i 0.480072i \
-  6.324275i 0.479167i 6.324275i 0.478261i 6.324275i 0.477355i 6.324275i \
-  0.475543i 6.324275i 0.474638i 6.324275i 0.464674i 6.325181i 0.455616i \
-  6.325181i 0.447464i 6.326087i 0.440217i 6.326087i 0.432065i 6.326993i \
-  0.423913i 6.327899i 0.422101i 6.326993i 0.424819i 6.326993i 0.430254i \
-  6.326993i 0.435688i 6.327899i 0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 6.322464i 0.086051i 6.322464i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \
-  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \
-  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \
-  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \
-  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \
-  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \
-  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \
-  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \
-  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \
-  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \
-  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \
-  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \
-  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \
-  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \
-  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \
-  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \
-  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \
-  0.301630i 6.280797i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 6.280797i 0.301630i 6.288043i 0.300725i 6.291667i \
-  0.300725i 6.292572i 0.300725i 6.296196i 0.299819i 6.303442i 0.298007i \
-  6.310688i 0.295290i 6.313406i 0.293478i 6.314312i 0.293478i 6.317029i \
-  0.291667i 6.322464i 0.287138i 6.326993i 0.282609i 6.328804i 0.280797i \
-  6.329710i 0.279891i 6.331522i 0.277174i 6.332428i 0.272645i 6.332428i \
-  0.269928i 6.332428i 0.267210i 6.331522i 0.266304i 6.331522i 0.265399i \
-  6.330616i 0.264493i 6.329710i 0.263587i 6.327899i 0.261775i 6.325181i \
-  0.259964i 6.319746i 0.257246i 6.317029i 0.256341i 6.315217i 0.256341i \
-  6.311594i 0.255435i 6.304348i 0.255435i 6.297101i 0.256341i 6.293478i \
-  0.256341i 6.291667i 0.257246i 6.288043i 0.258152i 6.280797i 0.260870i \
-  6.274457i 0.263587i 6.271739i 0.265399i 6.270833i 0.266304i 6.269022i \
-  0.268116i 6.264493i 0.271739i 6.260870i 0.274457i 6.259058i 0.275362i \
-  6.258152i 0.276268i 6.256341i 0.278986i 6.254529i 0.282609i 6.253623i \
-  0.284420i 6.253623i 0.285326i 6.253623i 0.287138i 6.253623i 0.290761i \
-  6.254529i 0.293478i 6.254529i 0.295290i 6.254529i 0.296196i 6.254529i \
-  0.297101i 6.255435i 0.298007i 6.257246i 0.298913i 6.259964i 0.300725i \
-  6.265399i 0.302536i 6.268116i 0.302536i 6.269928i 0.302536i 6.273551i \
-  0.301630i 6.280797i 0.301630i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \
-  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \
-  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \
-  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \
-  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \
-  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \
-  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \
-  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \
-  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \
-  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \
-  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \
-  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \
-  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \
-  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \
-  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \
-  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \
-  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \
-  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \
-  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \
-  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \
-  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \
-  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \
-  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \
-  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \
-  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \
-  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \
-  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \
-  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \
-  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \
-  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \
-  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \
-  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 6.327899i 0.104167i 6.328804i 0.109601i 6.329710i \
-  0.111413i 6.329710i 0.112319i 6.330616i 0.114130i 6.332428i 0.118659i \
-  6.334239i 0.122283i 6.334239i 0.123188i 6.334239i 0.122283i 6.335145i \
-  0.123188i 6.339674i 0.127717i 6.346014i 0.133152i 6.349638i 0.135870i \
-  6.352355i 0.137681i 6.356884i 0.140399i 6.365036i 0.147645i 6.373188i \
-  0.153986i 6.376812i 0.157609i 6.377717i 0.158514i 6.381341i 0.161232i \
-  6.386775i 0.167572i 6.391304i 0.173913i 6.393116i 0.175725i 6.393116i \
-  0.176630i 6.394022i 0.179348i 6.395833i 0.185688i 6.396739i 0.192935i \
-  6.396739i 0.195652i 6.396739i 0.196558i 6.395833i 0.200181i 6.394022i \
-  0.210145i 6.391304i 0.220109i 6.388587i 0.226449i 6.386775i 0.230978i \
-  6.384964i 0.234601i 6.382246i 0.240036i 6.379529i 0.247283i 6.379529i \
-  0.248188i 6.378623i 0.249094i 6.378623i 0.250000i 6.377717i 0.250000i \
-  6.377717i 0.250906i 6.377717i 0.251812i 6.376812i 0.251812i 6.376812i \
-  0.252717i 6.376812i 0.251812i 6.376812i 0.250906i 6.376812i 0.250000i \
-  6.376812i 0.249094i 6.377717i 0.249094i 6.377717i 0.248188i 6.377717i \
-  0.247283i 6.379529i 0.241848i 6.381341i 0.237319i 6.383152i 0.233696i \
-  6.384964i 0.230072i 6.386775i 0.224638i 6.389493i 0.216486i 6.392210i \
-  0.208333i 6.393116i 0.204710i 6.394022i 0.203804i 6.394022i 0.201087i \
-  6.393116i 0.193841i 6.391304i 0.186594i 6.389493i 0.182971i 6.388587i \
-  0.182065i 6.386775i 0.178442i 6.380435i 0.171196i 6.374094i 0.164855i \
-  6.370471i 0.161232i 6.368659i 0.160326i 6.366848i 0.158514i 6.363225i \
-  0.155797i 6.355072i 0.150362i 6.346014i 0.144928i 6.341486i 0.142210i \
-  6.338768i 0.141304i 6.334239i 0.139493i 6.327899i 0.136775i 6.326993i \
-  0.136775i 6.326087i 0.135870i 6.325181i 0.135870i 6.324275i 0.135870i \
-  6.323370i 0.135870i 6.323370i 0.136775i 6.323370i 0.137681i 6.323370i \
-  0.138587i 6.323370i 0.139493i 6.323370i 0.140399i 6.324275i 0.140399i \
-  6.324275i 0.141304i 6.324275i 0.142210i 6.324275i 0.141304i 6.324275i \
-  0.140399i 6.324275i 0.139493i 6.324275i 0.137681i 6.324275i 0.136775i \
-  6.324275i 0.126812i 6.325181i 0.117754i 6.325181i 0.110507i 6.326087i \
-  0.103261i 6.326087i 0.094203i 6.326993i 0.086957i 6.327899i 0.085145i \
-  6.326993i 0.087862i 6.326993i 0.092391i 6.326993i 0.097826i 6.327899i \
-  0.104167i -outline $tkxox(score_active_note) -fill {}
-${score} create line 6.325181i 0.721920i 6.325181i 0.927536i -fill $tkxox(score_active_note)
-${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \
-  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \
-  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \
-  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \
-  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \
-  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \
-  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \
-  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \
-  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \
-  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \
-  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \
-  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \
-  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \
-  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \
-  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \
-  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \
-  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \
-  0.968297i 6.282609i 0.968297i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 6.282609i 0.968297i 6.289855i 0.967391i 6.293478i \
-  0.967391i 6.295290i 0.967391i 6.298007i 0.966486i 6.305254i 0.963768i \
-  6.311594i 0.960145i 6.314312i 0.959239i 6.316123i 0.958333i 6.317935i \
-  0.955616i 6.323370i 0.951087i 6.327899i 0.945652i 6.330616i 0.943841i \
-  6.332428i 0.942935i 6.333333i 0.940217i 6.335145i 0.934783i 6.335145i \
-  0.931159i 6.335145i 0.928442i 6.334239i 0.927536i 6.334239i 0.926630i \
-  6.334239i 0.925725i 6.332428i 0.924819i 6.330616i 0.923007i 6.327899i \
-  0.920290i 6.322464i 0.917572i 6.318841i 0.916667i 6.317029i 0.916667i \
-  6.313406i 0.916667i 6.306159i 0.916667i 6.298007i 0.917572i 6.295290i \
-  0.918478i 6.293478i 0.918478i 6.289855i 0.919384i 6.282609i 0.922101i \
-  6.275362i 0.924819i 6.272645i 0.925725i 6.271739i 0.926630i 6.269022i \
-  0.927536i 6.264493i 0.931159i 6.260870i 0.934783i 6.259058i 0.935688i \
-  6.259058i 0.936594i 6.258152i 0.937500i 6.256341i 0.942029i 6.254529i \
-  0.946558i 6.253623i 0.948370i 6.253623i 0.950181i 6.253623i 0.951993i \
-  6.253623i 0.956522i 6.254529i 0.960145i 6.254529i 0.961957i 6.254529i \
-  0.962862i 6.254529i 0.963768i 6.256341i 0.965580i 6.259964i 0.967391i \
-  6.265399i 0.969203i 6.269022i 0.969203i 6.270833i 0.969203i 6.274457i \
-  0.968297i 6.282609i 0.968297i -outline $tkxox(score_active_note) -fill {}
-${score} create line 6.325181i 1.060688i 6.325181i 1.264493i -fill $tkxox(score_active_note)
-${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \
-  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \
-  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \
-  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \
-  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \
-  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \
-  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \
-  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \
-  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \
-  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \
-  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \
-  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \
-  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \
-  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \
-  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \
-  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \
-  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \
-  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 6.282609i 1.307065i 6.289855i 1.306159i 6.293478i \
-  1.306159i 6.295290i 1.305254i 6.298007i 1.304348i 6.305254i 1.301630i \
-  6.311594i 1.298007i 6.314312i 1.296196i 6.316123i 1.296196i 6.317935i \
-  1.293478i 6.323370i 1.288949i 6.327899i 1.283514i 6.330616i 1.281703i \
-  6.332428i 1.280797i 6.333333i 1.278080i 6.335145i 1.272645i 6.335145i \
-  1.269022i 6.335145i 1.266304i 6.334239i 1.265399i 6.334239i 1.264493i \
-  6.334239i 1.263587i 6.332428i 1.262681i 6.330616i 1.260870i 6.327899i \
-  1.258152i 6.322464i 1.255435i 6.318841i 1.253623i 6.317029i 1.253623i \
-  6.313406i 1.252717i 6.306159i 1.252717i 6.298007i 1.253623i 6.295290i \
-  1.254529i 6.293478i 1.255435i 6.289855i 1.257246i 6.282609i 1.259964i \
-  6.275362i 1.262681i 6.272645i 1.263587i 6.271739i 1.264493i 6.269022i \
-  1.266304i 6.264493i 1.269022i 6.260870i 1.272645i 6.259058i 1.273551i \
-  6.258152i 1.275362i 6.256341i 1.278986i 6.254529i 1.283514i 6.253623i \
-  1.285326i 6.253623i 1.287138i 6.253623i 1.288949i 6.253623i 1.293478i \
-  6.254529i 1.297101i 6.254529i 1.298913i 6.254529i 1.299819i 6.254529i \
-  1.300725i 6.256341i 1.301630i 6.259964i 1.304348i 6.265399i 1.306159i \
-  6.269022i 1.307065i 6.270833i 1.307065i 6.274457i 1.307065i 6.282609i \
-  1.307065i -outline $tkxox(score_active_note) -fill {}
-${score} create line 7.647645i 0.423007i 7.647645i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \
-  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \
-  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \
-  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \
-  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \
-  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \
-  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \
-  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \
-  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \
-  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \
-  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \
-  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \
-  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \
-  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \
-  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \
-  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \
-  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \
-  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 7.605072i 0.640399i 7.612319i 0.639493i 7.615036i \
-  0.638587i 7.616848i 0.638587i 7.619565i 0.637681i 7.626812i 0.634964i \
-  7.634058i 0.632246i 7.636775i 0.630435i 7.638587i 0.629529i 7.641304i \
-  0.628623i 7.646739i 0.624094i 7.651268i 0.619565i 7.653080i 0.617754i \
-  7.653986i 0.616848i 7.655797i 0.614130i 7.656703i 0.609601i 7.656703i \
-  0.606884i 7.656703i 0.604167i 7.655797i 0.603261i 7.655797i 0.602355i \
-  7.654891i 0.601449i 7.653986i 0.600543i 7.652174i 0.598732i 7.649457i \
-  0.596920i 7.644022i 0.594203i 7.640399i 0.594203i 7.638587i 0.593297i \
-  7.634964i 0.593297i 7.627717i 0.593297i 7.620471i 0.594203i 7.616848i \
-  0.594203i 7.615036i 0.594203i 7.611413i 0.595109i 7.605072i 0.597826i \
-  7.599638i 0.600543i 7.596920i 0.602355i 7.596014i 0.603261i 7.594203i \
-  0.605072i 7.590580i 0.608696i 7.586957i 0.611413i 7.586051i 0.612319i \
-  7.585145i 0.612319i 7.584239i 0.614130i 7.582428i 0.616848i 7.580616i \
-  0.620471i 7.579710i 0.622283i 7.579710i 0.623188i 7.579710i 0.625000i \
-  7.579710i 0.628623i 7.580616i 0.632246i 7.580616i 0.633152i 7.581522i \
-  0.634058i 7.582428i 0.634964i 7.586051i 0.637681i 7.590580i 0.639493i \
-  7.593297i 0.640399i 7.595109i 0.640399i 7.597826i 0.640399i 7.605072i \
-  0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \
-  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \
-  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \
-  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \
-  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \
-  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \
-  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \
-  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \
-  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \
-  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \
-  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \
-  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \
-  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \
-  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \
-  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \
-  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \
-  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \
-  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \
-  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \
-  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \
-  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \
-  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \
-  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \
-  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \
-  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \
-  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \
-  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \
-  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \
-  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \
-  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \
-  7.651268i 0.435688i 7.652174i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \
-  0
-${score} create polygon 7.652174i 0.442029i 7.653080i 0.447464i 7.653986i \
-  0.449275i 7.653986i 0.450181i 7.654891i 0.451993i 7.656703i 0.456522i \
-  7.658514i 0.460145i 7.659420i 0.461051i 7.663949i 0.464674i 7.670290i \
-  0.470109i 7.673913i 0.472826i 7.675725i 0.474638i 7.680254i 0.477355i \
-  7.688406i 0.484601i 7.696558i 0.490942i 7.701087i 0.493659i 7.702899i \
-  0.494565i 7.706522i 0.498188i 7.712862i 0.504529i 7.717391i 0.511775i \
-  7.719203i 0.514493i 7.719203i 0.515399i 7.720109i 0.518116i 7.721920i \
-  0.525362i 7.722826i 0.532609i 7.722826i 0.535326i 7.721920i 0.538949i \
-  7.720109i 0.548007i 7.717391i 0.557971i 7.714674i 0.564312i 7.712862i \
-  0.568841i 7.711051i 0.572464i 7.708333i 0.577899i 7.705616i 0.585145i \
-  7.705616i 0.586051i 7.704710i 0.586957i 7.704710i 0.587862i 7.703804i \
-  0.587862i 7.703804i 0.588768i 7.703804i 0.589674i 7.702899i 0.589674i \
-  7.702899i 0.590580i 7.702899i 0.589674i 7.702899i 0.588768i 7.702899i \
-  0.587862i 7.702899i 0.586957i 7.703804i 0.586957i 7.703804i 0.586051i \
-  7.703804i 0.585145i 7.705616i 0.578804i 7.707428i 0.574275i 7.709239i \
-  0.570652i 7.711051i 0.567029i 7.712862i 0.561594i 7.715580i 0.553442i \
-  7.718297i 0.545290i 7.719203i 0.542572i 7.720109i 0.542572i 7.720109i \
-  0.539855i 7.719203i 0.532609i 7.717391i 0.524457i 7.715580i 0.520833i \
-  7.714674i 0.519928i 7.712862i 0.516304i 7.706522i 0.508152i 7.700181i \
-  0.501812i 7.695652i 0.498188i 7.693841i 0.496377i 7.691123i 0.495471i \
-  7.686594i 0.492754i 7.678442i 0.487319i 7.669384i 0.481884i 7.664855i \
-  0.480072i 7.662138i 0.479167i 7.658514i 0.477355i 7.652174i 0.474638i \
-  7.651268i 0.474638i 7.650362i 0.473732i 7.649457i 0.473732i 7.648551i \
-  0.473732i 7.647645i 0.473732i 7.647645i 0.474638i 7.647645i 0.475543i \
-  7.647645i 0.476449i 7.647645i 0.477355i 7.647645i 0.478261i 7.648551i \
-  0.479167i 7.648551i 0.480072i 7.648551i 0.480978i 7.648551i 0.480072i \
-  7.648551i 0.479167i 7.648551i 0.478261i 7.648551i 0.477355i 7.648551i \
-  0.475543i 7.648551i 0.474638i 7.648551i 0.464674i 7.649457i 0.455616i \
-  7.649457i 0.447464i 7.650362i 0.440217i 7.650362i 0.432065i 7.651268i \
-  0.423913i 7.652174i 0.422101i 7.651268i 0.424819i 7.651268i 0.430254i \
-  7.651268i 0.435688i 7.652174i 0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 7.647645i 0.086051i 7.647645i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \
-  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \
-  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \
-  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \
-  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \
-  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \
-  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \
-  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \
-  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \
-  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \
-  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \
-  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \
-  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \
-  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \
-  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \
-  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \
-  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \
-  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 7.605072i 0.301630i 7.612319i 0.300725i 7.615036i \
-  0.300725i 7.616848i 0.300725i 7.619565i 0.299819i 7.626812i 0.298007i \
-  7.634058i 0.295290i 7.636775i 0.293478i 7.638587i 0.293478i 7.641304i \
-  0.291667i 7.646739i 0.287138i 7.651268i 0.282609i 7.653080i 0.280797i \
-  7.653986i 0.279891i 7.655797i 0.277174i 7.656703i 0.272645i 7.656703i \
-  0.269928i 7.656703i 0.267210i 7.655797i 0.266304i 7.655797i 0.265399i \
-  7.654891i 0.264493i 7.653986i 0.263587i 7.652174i 0.261775i 7.649457i \
-  0.259964i 7.644022i 0.257246i 7.640399i 0.256341i 7.638587i 0.256341i \
-  7.634964i 0.255435i 7.627717i 0.255435i 7.620471i 0.256341i 7.616848i \
-  0.256341i 7.615036i 0.257246i 7.611413i 0.258152i 7.605072i 0.260870i \
-  7.599638i 0.263587i 7.596920i 0.265399i 7.596014i 0.266304i 7.594203i \
-  0.268116i 7.590580i 0.271739i 7.586957i 0.274457i 7.586051i 0.275362i \
-  7.585145i 0.275362i 7.584239i 0.276268i 7.582428i 0.278986i 7.580616i \
-  0.282609i 7.579710i 0.284420i 7.579710i 0.285326i 7.579710i 0.287138i \
-  7.579710i 0.290761i 7.580616i 0.294384i 7.580616i 0.296196i 7.581522i \
-  0.297101i 7.582428i 0.298913i 7.586051i 0.300725i 7.590580i 0.302536i \
-  7.593297i 0.302536i 7.595109i 0.302536i 7.597826i 0.301630i 7.605072i \
-  0.301630i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \
-  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \
-  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \
-  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \
-  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \
-  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \
-  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \
-  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \
-  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \
-  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \
-  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \
-  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \
-  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \
-  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \
-  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \
-  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \
-  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \
-  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \
-  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \
-  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \
-  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \
-  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \
-  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \
-  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \
-  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \
-  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \
-  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \
-  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \
-  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \
-  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \
-  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \
-  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 7.652174i 0.104167i 7.653080i 0.109601i 7.653986i \
-  0.111413i 7.653986i 0.112319i 7.654891i 0.114130i 7.656703i 0.118659i \
-  7.658514i 0.122283i 7.658514i 0.123188i 7.658514i 0.122283i 7.659420i \
-  0.123188i 7.663949i 0.127717i 7.670290i 0.133152i 7.673913i 0.135870i \
-  7.675725i 0.137681i 7.680254i 0.140399i 7.688406i 0.147645i 7.696558i \
-  0.153986i 7.701087i 0.157609i 7.702899i 0.158514i 7.706522i 0.161232i \
-  7.712862i 0.167572i 7.717391i 0.173913i 7.719203i 0.175725i 7.719203i \
-  0.176630i 7.720109i 0.179348i 7.721920i 0.185688i 7.722826i 0.192935i \
-  7.722826i 0.195652i 7.722826i 0.196558i 7.721920i 0.200181i 7.720109i \
-  0.210145i 7.717391i 0.220109i 7.714674i 0.226449i 7.712862i 0.230978i \
-  7.711051i 0.234601i 7.708333i 0.240036i 7.705616i 0.247283i 7.705616i \
-  0.248188i 7.704710i 0.249094i 7.704710i 0.250000i 7.703804i 0.250000i \
-  7.703804i 0.250906i 7.703804i 0.251812i 7.702899i 0.251812i 7.702899i \
-  0.252717i 7.702899i 0.251812i 7.702899i 0.250906i 7.702899i 0.250000i \
-  7.702899i 0.249094i 7.703804i 0.249094i 7.703804i 0.248188i 7.703804i \
-  0.247283i 7.705616i 0.241848i 7.707428i 0.237319i 7.709239i 0.233696i \
-  7.711051i 0.230072i 7.712862i 0.224638i 7.715580i 0.216486i 7.718297i \
-  0.208333i 7.719203i 0.204710i 7.720109i 0.203804i 7.720109i 0.201087i \
-  7.719203i 0.193841i 7.717391i 0.186594i 7.715580i 0.182971i 7.714674i \
-  0.182065i 7.712862i 0.178442i 7.706522i 0.171196i 7.700181i 0.164855i \
-  7.695652i 0.161232i 7.693841i 0.160326i 7.691123i 0.158514i 7.686594i \
-  0.155797i 7.678442i 0.150362i 7.669384i 0.144928i 7.664855i 0.142210i \
-  7.662138i 0.141304i 7.658514i 0.139493i 7.652174i 0.136775i 7.651268i \
-  0.136775i 7.650362i 0.135870i 7.649457i 0.135870i 7.648551i 0.135870i \
-  7.647645i 0.135870i 7.647645i 0.136775i 7.647645i 0.137681i 7.647645i \
-  0.138587i 7.647645i 0.139493i 7.647645i 0.140399i 7.648551i 0.140399i \
-  7.648551i 0.141304i 7.648551i 0.142210i 7.648551i 0.141304i 7.648551i \
-  0.140399i 7.648551i 0.139493i 7.648551i 0.137681i 7.648551i 0.136775i \
-  7.648551i 0.126812i 7.649457i 0.117754i 7.649457i 0.110507i 7.650362i \
-  0.103261i 7.650362i 0.094203i 7.651268i 0.086957i 7.652174i 0.085145i \
-  7.651268i 0.087862i 7.651268i 0.092391i 7.651268i 0.097826i 7.652174i \
-  0.104167i -outline $tkxox(score_active_note) -fill {}
-${score} create line 8.288949i 0.423007i 8.288949i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \
-  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \
-  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \
-  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \
-  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \
-  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \
-  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \
-  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \
-  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \
-  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \
-  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \
-  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \
-  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \
-  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \
-  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \
-  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \
-  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \
-  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline {} -fill $tkxox(score_active_note) \
+${score} create polygon 3.023504i 0.640197i 3.030748i 0.639291i 3.034370i 0.638386i \
+  3.035276i 0.638386i 3.038898i 0.637480i 3.046142i 0.634764i 3.052480i 0.632047i \
+  3.055197i 0.630236i 3.057008i 0.629331i 3.058819i 0.628425i 3.064252i 0.623898i \
+  3.068780i 0.619370i 3.071496i 0.617559i 3.072402i 0.616654i 3.073307i 0.613937i \
+  3.075118i 0.609409i 3.075118i 0.606693i 3.075118i 0.603976i 3.074213i 0.603071i \
+  3.074213i 0.602165i 3.073307i 0.601260i 3.072402i 0.600354i 3.070591i 0.598543i \
+  3.067874i 0.596732i 3.062441i 0.594016i 3.059724i 0.594016i 3.057913i 0.593110i \
+  3.054291i 0.593110i 3.047047i 0.593110i 3.039803i 0.594016i 3.035276i 0.594016i \
+  3.033465i 0.594016i 3.030748i 0.594921i 3.023504i 0.597638i 3.017165i 0.600354i \
+  3.015354i 0.602165i 3.014449i 0.603071i 3.012638i 0.604882i 3.009016i 0.608504i \
+  3.005394i 0.611220i 3.004488i 0.612126i 3.003583i 0.612126i 3.002677i 0.613937i \
+  3.000866i 0.616654i 2.999055i 0.620276i 2.998150i 0.622087i 2.998150i 0.622992i \
+  2.998150i 0.624803i 2.998150i 0.628425i 2.999055i 0.632047i 2.999055i 0.632953i \
+  2.999961i 0.633858i 3.000866i 0.634764i 3.004488i 0.637480i 3.009016i 0.639291i \
+  3.011732i 0.640197i 3.013543i 0.640197i 3.016260i 0.640197i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create polygon 3.070591i 0.441890i 3.071496i 0.447323i 3.072402i 0.449134i \
+  3.072402i 0.450039i 3.073307i 0.451850i 3.075118i 0.456378i 3.076929i 0.460000i \
+  3.077835i 0.460906i 3.082362i 0.464528i 3.088701i 0.469961i 3.092323i 0.472677i \
+  3.095039i 0.474488i 3.099567i 0.477205i 3.107717i 0.484449i 3.114961i 0.490787i \
+  3.118583i 0.493504i 3.120394i 0.494409i 3.123110i 0.498031i 3.128543i 0.504370i \
+  3.133071i 0.511614i 3.134882i 0.514331i 3.135787i 0.515236i 3.136693i 0.517953i \
+  3.138504i 0.525197i 3.139409i 0.532441i 3.139409i 0.535157i 3.138504i 0.538780i \
+  3.136693i 0.547835i 3.133976i 0.557795i 3.131260i 0.564134i 3.129449i 0.568661i \
+  3.127638i 0.572283i 3.124921i 0.577717i 3.122205i 0.584961i 3.122205i 0.585866i \
+  3.121299i 0.586772i 3.121299i 0.587677i 3.120394i 0.587677i 3.120394i 0.588583i \
+  3.120394i 0.589488i 3.119488i 0.589488i 3.119488i 0.590394i 3.119488i 0.589488i \
+  3.119488i 0.588583i 3.119488i 0.587677i 3.119488i 0.586772i 3.120394i 0.586772i \
+  3.120394i 0.585866i 3.120394i 0.584961i 3.122205i 0.578622i 3.124016i 0.574094i \
+  3.125827i 0.570472i 3.127638i 0.566850i 3.129449i 0.561417i 3.132165i 0.553268i \
+  3.134882i 0.545118i 3.135787i 0.542402i 3.136693i 0.542402i 3.136693i 0.539685i \
+  3.135787i 0.532441i 3.133976i 0.524291i 3.132165i 0.520669i 3.131260i 0.519764i \
+  3.129449i 0.516142i 3.123110i 0.507992i 3.116772i 0.501654i 3.113150i 0.498031i \
+  3.111339i 0.496220i 3.109528i 0.495315i 3.105906i 0.492598i 3.097756i 0.487165i \
+  3.088701i 0.481732i 3.084173i 0.479921i 3.081457i 0.479016i 3.076929i 0.477205i \
+  3.070591i 0.474488i 3.069685i 0.474488i 3.068780i 0.473583i 3.067874i 0.473583i \
+  3.066969i 0.473583i 3.066063i 0.473583i 3.066063i 0.474488i 3.066063i 0.475394i \
+  3.066063i 0.476299i 3.066063i 0.477205i 3.066063i 0.478110i 3.066969i 0.479016i \
+  3.066969i 0.479921i 3.066969i 0.480827i 3.066969i 0.479921i 3.066969i 0.479016i \
+  3.066969i 0.478110i 3.066969i 0.477205i 3.066969i 0.475394i 3.066969i 0.474488i \
+  3.066969i 0.464528i 3.067874i 0.455472i 3.067874i 0.447323i 3.068780i 0.440079i \
+  3.068780i 0.431929i 3.069685i 0.423780i 3.070591i 0.421969i 3.069685i 0.424685i \
+  3.069685i 0.430118i 3.069685i 0.435551i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 3.070591i 0.441890i 3.071496i 0.447323i 3.072402i 0.449134i \
+  3.072402i 0.450039i 3.073307i 0.451850i 3.075118i 0.456378i 3.076929i 0.460000i \
+  3.077835i 0.460906i 3.082362i 0.464528i 3.088701i 0.469961i 3.092323i 0.472677i \
+  3.095039i 0.474488i 3.099567i 0.477205i 3.107717i 0.484449i 3.114961i 0.490787i \
+  3.118583i 0.493504i 3.120394i 0.494409i 3.123110i 0.498031i 3.128543i 0.504370i \
+  3.133071i 0.511614i 3.134882i 0.514331i 3.135787i 0.515236i 3.136693i 0.517953i \
+  3.138504i 0.525197i 3.139409i 0.532441i 3.139409i 0.535157i 3.138504i 0.538780i \
+  3.136693i 0.547835i 3.133976i 0.557795i 3.131260i 0.564134i 3.129449i 0.568661i \
+  3.127638i 0.572283i 3.124921i 0.577717i 3.122205i 0.584961i 3.122205i 0.585866i \
+  3.121299i 0.586772i 3.121299i 0.587677i 3.120394i 0.587677i 3.120394i 0.588583i \
+  3.120394i 0.589488i 3.119488i 0.589488i 3.119488i 0.590394i 3.119488i 0.589488i \
+  3.119488i 0.588583i 3.119488i 0.587677i 3.119488i 0.586772i 3.120394i 0.586772i \
+  3.120394i 0.585866i 3.120394i 0.584961i 3.122205i 0.578622i 3.124016i 0.574094i \
+  3.125827i 0.570472i 3.127638i 0.566850i 3.129449i 0.561417i 3.132165i 0.553268i \
+  3.134882i 0.545118i 3.135787i 0.542402i 3.136693i 0.542402i 3.136693i 0.539685i \
+  3.135787i 0.532441i 3.133976i 0.524291i 3.132165i 0.520669i 3.131260i 0.519764i \
+  3.129449i 0.516142i 3.123110i 0.507992i 3.116772i 0.501654i 3.113150i 0.498031i \
+  3.111339i 0.496220i 3.109528i 0.495315i 3.105906i 0.492598i 3.097756i 0.487165i \
+  3.088701i 0.481732i 3.084173i 0.479921i 3.081457i 0.479016i 3.076929i 0.477205i \
+  3.070591i 0.474488i 3.069685i 0.474488i 3.068780i 0.473583i 3.067874i 0.473583i \
+  3.066969i 0.473583i 3.066063i 0.473583i 3.066063i 0.474488i 3.066063i 0.475394i \
+  3.066063i 0.476299i 3.066063i 0.477205i 3.066063i 0.478110i 3.066969i 0.479016i \
+  3.066969i 0.479921i 3.066969i 0.480827i 3.066969i 0.479921i 3.066969i 0.479016i \
+  3.066969i 0.478110i 3.066969i 0.477205i 3.066969i 0.475394i 3.066969i 0.474488i \
+  3.066969i 0.464528i 3.067874i 0.455472i 3.067874i 0.447323i 3.068780i 0.440079i \
+  3.068780i 0.431929i 3.069685i 0.423780i 3.070591i 0.421969i 3.069685i 0.424685i \
+  3.069685i 0.430118i 3.069685i 0.435551i -outline $tkxox(score_active_note) -fill {}
+${score} create line 2.309055i 0.422874i 2.309055i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 2.266496i 0.640197i 2.273740i 0.639291i 2.277362i 0.638386i \
+  2.278268i 0.638386i 2.281890i 0.637480i 2.289134i 0.634764i 2.296378i 0.632047i \
+  2.299094i 0.630236i 2.300000i 0.629331i 2.302717i 0.628425i 2.308150i 0.623898i \
+  2.312677i 0.619370i 2.314488i 0.617559i 2.315394i 0.616654i 2.317205i 0.613937i \
+  2.318110i 0.609409i 2.318110i 0.606693i 2.318110i 0.603976i 2.318110i 0.603071i \
+  2.318110i 0.602165i 2.317205i 0.601260i 2.316299i 0.600354i 2.314488i 0.598543i \
+  2.311772i 0.596732i 2.306339i 0.594016i 2.302717i 0.594016i 2.300906i 0.593110i \
+  2.297283i 0.593110i 2.289134i 0.593110i 2.281890i 0.594016i 2.278268i 0.594016i \
+  2.276457i 0.594016i 2.273740i 0.594921i 2.266496i 0.597638i 2.260157i 0.600354i \
+  2.257441i 0.602165i 2.256535i 0.603071i 2.254724i 0.604882i 2.250197i 0.608504i \
+  2.246575i 0.611220i 2.245669i 0.612126i 2.244764i 0.613937i 2.242953i 0.616654i \
+  2.241142i 0.620276i 2.240236i 0.622087i 2.239331i 0.622992i 2.239331i 0.624803i \
+  2.239331i 0.628425i 2.240236i 0.631142i 2.241142i 0.632953i 2.241142i 0.633858i \
+  2.242953i 0.635669i 2.246575i 0.637480i 2.252008i 0.639291i 2.254724i 0.640197i \
+  2.255630i 0.640197i 2.259252i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 2.266496i 0.640197i 2.273740i 0.639291i 2.277362i 0.638386i \
+  2.278268i 0.638386i 2.281890i 0.637480i 2.289134i 0.634764i 2.296378i 0.632047i \
+  2.299094i 0.630236i 2.300000i 0.629331i 2.302717i 0.628425i 2.308150i 0.623898i \
+  2.312677i 0.619370i 2.314488i 0.617559i 2.315394i 0.616654i 2.317205i 0.613937i \
+  2.318110i 0.609409i 2.318110i 0.606693i 2.318110i 0.603976i 2.318110i 0.603071i \
+  2.318110i 0.602165i 2.317205i 0.601260i 2.316299i 0.600354i 2.314488i 0.598543i \
+  2.311772i 0.596732i 2.306339i 0.594016i 2.302717i 0.594016i 2.300906i 0.593110i \
+  2.297283i 0.593110i 2.289134i 0.593110i 2.281890i 0.594016i 2.278268i 0.594016i \
+  2.276457i 0.594016i 2.273740i 0.594921i 2.266496i 0.597638i 2.260157i 0.600354i \
+  2.257441i 0.602165i 2.256535i 0.603071i 2.254724i 0.604882i 2.250197i 0.608504i \
+  2.246575i 0.611220i 2.245669i 0.612126i 2.244764i 0.613937i 2.242953i 0.616654i \
+  2.241142i 0.620276i 2.240236i 0.622087i 2.239331i 0.622992i 2.239331i 0.624803i \
+  2.239331i 0.628425i 2.240236i 0.631142i 2.241142i 0.632953i 2.241142i 0.633858i \
+  2.242953i 0.635669i 2.246575i 0.637480i 2.252008i 0.639291i 2.254724i 0.640197i \
+  2.255630i 0.640197i 2.259252i 0.640197i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 2.314488i 0.441890i 2.315394i 0.447323i 2.315394i 0.449134i \
+  2.315394i 0.450039i 2.316299i 0.451850i 2.318110i 0.456378i 2.319921i 0.460000i \
+  2.320827i 0.460000i 2.321732i 0.460906i 2.326260i 0.464528i 2.332598i 0.469961i \
+  2.336220i 0.472677i 2.338937i 0.474488i 2.342559i 0.477205i 2.350709i 0.484449i \
+  2.358858i 0.490787i 2.361575i 0.493504i 2.363386i 0.494409i 2.367008i 0.498031i \
+  2.372441i 0.504370i 2.376969i 0.511614i 2.378780i 0.514331i 2.378780i 0.515236i \
+  2.379685i 0.517953i 2.381496i 0.525197i 2.382402i 0.532441i 2.383307i 0.535157i \
+  2.382402i 0.538780i 2.380591i 0.547835i 2.377874i 0.557795i 2.375157i 0.564134i \
+  2.373346i 0.568661i 2.371535i 0.572283i 2.368819i 0.577717i 2.366102i 0.584961i \
+  2.366102i 0.585866i 2.365197i 0.586772i 2.365197i 0.587677i 2.364291i 0.587677i \
+  2.364291i 0.588583i 2.364291i 0.589488i 2.363386i 0.589488i 2.363386i 0.590394i \
+  2.363386i 0.589488i 2.363386i 0.588583i 2.363386i 0.587677i 2.363386i 0.586772i \
+  2.364291i 0.586772i 2.364291i 0.585866i 2.364291i 0.584961i 2.366102i 0.578622i \
+  2.367913i 0.574094i 2.369724i 0.570472i 2.371535i 0.566850i 2.373346i 0.561417i \
+  2.376063i 0.553268i 2.378780i 0.545118i 2.379685i 0.542402i 2.380591i 0.542402i \
+  2.380591i 0.539685i 2.379685i 0.532441i 2.377874i 0.524291i 2.376063i 0.520669i \
+  2.375157i 0.519764i 2.373346i 0.516142i 2.367008i 0.507992i 2.360669i 0.501654i \
+  2.357047i 0.498031i 2.355236i 0.496220i 2.353425i 0.495315i 2.349803i 0.492598i \
+  2.341654i 0.487165i 2.332598i 0.481732i 2.328071i 0.479921i 2.325354i 0.479016i \
+  2.320827i 0.477205i 2.314488i 0.474488i 2.313583i 0.474488i 2.312677i 0.473583i \
+  2.311772i 0.473583i 2.310866i 0.473583i 2.309961i 0.473583i 2.309961i 0.474488i \
+  2.309961i 0.475394i 2.309961i 0.476299i 2.309961i 0.477205i 2.309961i 0.478110i \
+  2.310866i 0.479016i 2.310866i 0.479921i 2.310866i 0.480827i 2.310866i 0.479921i \
+  2.310866i 0.479016i 2.310866i 0.478110i 2.310866i 0.477205i 2.310866i 0.475394i \
+  2.310866i 0.474488i 2.310866i 0.464528i 2.311772i 0.455472i 2.311772i 0.447323i \
+  2.312677i 0.440079i 2.312677i 0.431929i 2.313583i 0.423780i 2.314488i 0.421969i \
+  2.314488i 0.424685i 2.313583i 0.430118i 2.313583i 0.435551i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create polygon 8.246377i 0.640399i 8.253623i 0.639493i 8.256341i \
-  0.638587i 8.258152i 0.638587i 8.260870i 0.637681i 8.268116i 0.634964i \
-  8.275362i 0.632246i 8.278080i 0.630435i 8.279891i 0.629529i 8.282609i \
-  0.628623i 8.288043i 0.624094i 8.292572i 0.619565i 8.294384i 0.617754i \
-  8.295290i 0.616848i 8.297101i 0.614130i 8.298007i 0.609601i 8.298007i \
-  0.606884i 8.298007i 0.604167i 8.298007i 0.603261i 8.298007i 0.602355i \
-  8.297101i 0.601449i 8.296196i 0.600543i 8.294384i 0.598732i 8.291667i \
-  0.596920i 8.286232i 0.594203i 8.282609i 0.594203i 8.280797i 0.593297i \
-  8.277174i 0.593297i 8.269022i 0.593297i 8.261775i 0.594203i 8.258152i \
-  0.594203i 8.256341i 0.594203i 8.252717i 0.595109i 8.246377i 0.597826i \
-  8.240036i 0.600543i 8.238225i 0.602355i 8.237319i 0.603261i 8.235507i \
-  0.605072i 8.231884i 0.608696i 8.228261i 0.611413i 8.227355i 0.612319i \
-  8.226449i 0.614130i 8.224638i 0.616848i 8.222826i 0.620471i 8.221920i \
-  0.622283i 8.221014i 0.623188i 8.221014i 0.625000i 8.221014i 0.628623i \
-  8.221920i 0.631341i 8.221920i 0.632246i 8.221920i 0.633152i 8.221920i \
-  0.634058i 8.222826i 0.634058i 8.222826i 0.634964i 8.224638i 0.635870i \
-  8.227355i 0.637681i 8.231884i 0.639493i 8.234601i 0.640399i 8.236413i \
-  0.640399i 8.239130i 0.640399i 8.246377i 0.640399i -outline $tkxox(score_active_note) -fill \
+${score} create polygon 2.314488i 0.441890i 2.315394i 0.447323i 2.315394i 0.449134i \
+  2.315394i 0.450039i 2.316299i 0.451850i 2.318110i 0.456378i 2.319921i 0.460000i \
+  2.320827i 0.460000i 2.321732i 0.460906i 2.326260i 0.464528i 2.332598i 0.469961i \
+  2.336220i 0.472677i 2.338937i 0.474488i 2.342559i 0.477205i 2.350709i 0.484449i \
+  2.358858i 0.490787i 2.361575i 0.493504i 2.363386i 0.494409i 2.367008i 0.498031i \
+  2.372441i 0.504370i 2.376969i 0.511614i 2.378780i 0.514331i 2.378780i 0.515236i \
+  2.379685i 0.517953i 2.381496i 0.525197i 2.382402i 0.532441i 2.383307i 0.535157i \
+  2.382402i 0.538780i 2.380591i 0.547835i 2.377874i 0.557795i 2.375157i 0.564134i \
+  2.373346i 0.568661i 2.371535i 0.572283i 2.368819i 0.577717i 2.366102i 0.584961i \
+  2.366102i 0.585866i 2.365197i 0.586772i 2.365197i 0.587677i 2.364291i 0.587677i \
+  2.364291i 0.588583i 2.364291i 0.589488i 2.363386i 0.589488i 2.363386i 0.590394i \
+  2.363386i 0.589488i 2.363386i 0.588583i 2.363386i 0.587677i 2.363386i 0.586772i \
+  2.364291i 0.586772i 2.364291i 0.585866i 2.364291i 0.584961i 2.366102i 0.578622i \
+  2.367913i 0.574094i 2.369724i 0.570472i 2.371535i 0.566850i 2.373346i 0.561417i \
+  2.376063i 0.553268i 2.378780i 0.545118i 2.379685i 0.542402i 2.380591i 0.542402i \
+  2.380591i 0.539685i 2.379685i 0.532441i 2.377874i 0.524291i 2.376063i 0.520669i \
+  2.375157i 0.519764i 2.373346i 0.516142i 2.367008i 0.507992i 2.360669i 0.501654i \
+  2.357047i 0.498031i 2.355236i 0.496220i 2.353425i 0.495315i 2.349803i 0.492598i \
+  2.341654i 0.487165i 2.332598i 0.481732i 2.328071i 0.479921i 2.325354i 0.479016i \
+  2.320827i 0.477205i 2.314488i 0.474488i 2.313583i 0.474488i 2.312677i 0.473583i \
+  2.311772i 0.473583i 2.310866i 0.473583i 2.309961i 0.473583i 2.309961i 0.474488i \
+  2.309961i 0.475394i 2.309961i 0.476299i 2.309961i 0.477205i 2.309961i 0.478110i \
+  2.310866i 0.479016i 2.310866i 0.479921i 2.310866i 0.480827i 2.310866i 0.479921i \
+  2.310866i 0.479016i 2.310866i 0.478110i 2.310866i 0.477205i 2.310866i 0.475394i \
+  2.310866i 0.474488i 2.310866i 0.464528i 2.311772i 0.455472i 2.311772i 0.447323i \
+  2.312677i 0.440079i 2.312677i 0.431929i 2.313583i 0.423780i 2.314488i 0.421969i \
+  2.314488i 0.424685i 2.313583i 0.430118i 2.313583i 0.435551i -outline $tkxox(score_active_note) -fill \
   {}
-${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \
-  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \
-  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \
-  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \
-  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \
-  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \
-  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \
-  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \
-  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \
-  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \
-  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \
-  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \
-  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \
-  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \
-  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \
-  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \
-  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \
-  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \
-  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \
-  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \
-  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \
-  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \
-  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \
-  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \
-  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \
-  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \
-  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \
-  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \
-  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \
-  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \
+${score} create line 2.309055i 0.086024i 2.309055i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 2.266496i 0.301535i 2.273740i 0.300630i 2.277362i 0.300630i \
+  2.278268i 0.300630i 2.281890i 0.299724i 2.289134i 0.297913i 2.296378i 0.295197i \
+  2.299094i 0.293386i 2.300000i 0.293386i 2.302717i 0.291575i 2.308150i 0.287047i \
+  2.312677i 0.282520i 2.314488i 0.280709i 2.315394i 0.279803i 2.317205i 0.277087i \
+  2.318110i 0.272559i 2.318110i 0.269843i 2.318110i 0.267126i 2.318110i 0.266220i \
+  2.318110i 0.265315i 2.317205i 0.264409i 2.316299i 0.263504i 2.314488i 0.261693i \
+  2.311772i 0.259882i 2.306339i 0.257165i 2.302717i 0.256260i 2.300906i 0.256260i \
+  2.297283i 0.255354i 2.289134i 0.255354i 2.281890i 0.256260i 2.278268i 0.256260i \
+  2.276457i 0.257165i 2.273740i 0.258071i 2.266496i 0.260787i 2.260157i 0.263504i \
+  2.257441i 0.265315i 2.256535i 0.266220i 2.254724i 0.268031i 2.250197i 0.271654i \
+  2.246575i 0.274370i 2.245669i 0.275276i 2.244764i 0.276181i 2.242953i 0.278898i \
+  2.241142i 0.282520i 2.240236i 0.284331i 2.239331i 0.285236i 2.239331i 0.287047i \
+  2.239331i 0.290669i 2.240236i 0.294291i 2.241142i 0.296102i 2.241142i 0.297008i \
+  2.242953i 0.298819i 2.246575i 0.300630i 2.252008i 0.302441i 2.254724i 0.302441i \
+  2.255630i 0.302441i 2.259252i 0.301535i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 2.266496i 0.301535i 2.273740i 0.300630i 2.277362i 0.300630i \
+  2.278268i 0.300630i 2.281890i 0.299724i 2.289134i 0.297913i 2.296378i 0.295197i \
+  2.299094i 0.293386i 2.300000i 0.293386i 2.302717i 0.291575i 2.308150i 0.287047i \
+  2.312677i 0.282520i 2.314488i 0.280709i 2.315394i 0.279803i 2.317205i 0.277087i \
+  2.318110i 0.272559i 2.318110i 0.269843i 2.318110i 0.267126i 2.318110i 0.266220i \
+  2.318110i 0.265315i 2.317205i 0.264409i 2.316299i 0.263504i 2.314488i 0.261693i \
+  2.311772i 0.259882i 2.306339i 0.257165i 2.302717i 0.256260i 2.300906i 0.256260i \
+  2.297283i 0.255354i 2.289134i 0.255354i 2.281890i 0.256260i 2.278268i 0.256260i \
+  2.276457i 0.257165i 2.273740i 0.258071i 2.266496i 0.260787i 2.260157i 0.263504i \
+  2.257441i 0.265315i 2.256535i 0.266220i 2.254724i 0.268031i 2.250197i 0.271654i \
+  2.246575i 0.274370i 2.245669i 0.275276i 2.244764i 0.276181i 2.242953i 0.278898i \
+  2.241142i 0.282520i 2.240236i 0.284331i 2.239331i 0.285236i 2.239331i 0.287047i \
+  2.239331i 0.290669i 2.240236i 0.294291i 2.241142i 0.296102i 2.241142i 0.297008i \
+  2.242953i 0.298819i 2.246575i 0.300630i 2.252008i 0.302441i 2.254724i 0.302441i \
+  2.255630i 0.302441i 2.259252i 0.301535i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 2.314488i 0.104134i 2.315394i 0.109567i 2.315394i 0.111378i \
+  2.315394i 0.112283i 2.316299i 0.114094i 2.318110i 0.118622i 2.319921i 0.122244i \
+  2.320827i 0.123150i 2.320827i 0.122244i 2.321732i 0.123150i 2.326260i 0.127677i \
+  2.332598i 0.133110i 2.336220i 0.135827i 2.338937i 0.137638i 2.342559i 0.140354i \
+  2.350709i 0.147598i 2.358858i 0.153937i 2.361575i 0.157559i 2.363386i 0.158465i \
+  2.367008i 0.161181i 2.372441i 0.167520i 2.376969i 0.173858i 2.378780i 0.175669i \
+  2.378780i 0.176575i 2.379685i 0.179291i 2.381496i 0.185630i 2.382402i 0.192874i \
+  2.383307i 0.195591i 2.383307i 0.196496i 2.382402i 0.200118i 2.380591i 0.210079i \
+  2.377874i 0.220039i 2.375157i 0.226378i 2.373346i 0.230906i 2.371535i 0.234528i \
+  2.368819i 0.239961i 2.366102i 0.247205i 2.366102i 0.248110i 2.365197i 0.249016i \
+  2.365197i 0.249921i 2.364291i 0.249921i 2.364291i 0.250827i 2.364291i 0.251732i \
+  2.363386i 0.251732i 2.363386i 0.252638i 2.363386i 0.251732i 2.363386i 0.250827i \
+  2.363386i 0.249921i 2.363386i 0.249016i 2.364291i 0.249016i 2.364291i 0.248110i \
+  2.364291i 0.247205i 2.366102i 0.241772i 2.367913i 0.237244i 2.369724i 0.233622i \
+  2.371535i 0.230000i 2.373346i 0.224567i 2.376063i 0.216417i 2.378780i 0.208268i \
+  2.379685i 0.204646i 2.380591i 0.203740i 2.380591i 0.201024i 2.379685i 0.193780i \
+  2.377874i 0.186535i 2.376063i 0.182913i 2.375157i 0.182008i 2.373346i 0.178386i \
+  2.367008i 0.171142i 2.360669i 0.164803i 2.357047i 0.161181i 2.355236i 0.160276i \
+  2.353425i 0.158465i 2.349803i 0.155748i 2.341654i 0.150315i 2.332598i 0.144882i \
+  2.328071i 0.142165i 2.325354i 0.141260i 2.320827i 0.139449i 2.314488i 0.136732i \
+  2.313583i 0.136732i 2.312677i 0.135827i 2.311772i 0.135827i 2.310866i 0.135827i \
+  2.309961i 0.135827i 2.309961i 0.136732i 2.309961i 0.137638i 2.309961i 0.138543i \
+  2.309961i 0.139449i 2.309961i 0.140354i 2.310866i 0.140354i 2.310866i 0.141260i \
+  2.310866i 0.142165i 2.310866i 0.141260i 2.310866i 0.140354i 2.310866i 0.139449i \
+  2.310866i 0.137638i 2.310866i 0.136732i 2.310866i 0.126772i 2.311772i 0.117717i \
+  2.311772i 0.110472i 2.312677i 0.103228i 2.312677i 0.094173i 2.313583i 0.086929i \
+  2.314488i 0.085118i 2.314488i 0.087835i 2.313583i 0.092362i 2.313583i 0.097795i \
   -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 8.293478i 0.442029i 8.294384i 0.447464i 8.295290i \
-  0.449275i 8.295290i 0.450181i 8.296196i 0.451993i 8.298007i 0.456522i \
-  8.299819i 0.460145i 8.300725i 0.461051i 8.305254i 0.464674i 8.311594i \
-  0.470109i 8.315217i 0.472826i 8.317935i 0.474638i 8.322464i 0.477355i \
-  8.330616i 0.484601i 8.338768i 0.490942i 8.342391i 0.493659i 8.343297i \
-  0.494565i 8.346920i 0.498188i 8.352355i 0.504529i 8.356884i 0.511775i \
-  8.358696i 0.514493i 8.358696i 0.515399i 8.359601i 0.518116i 8.361413i \
-  0.525362i 8.362319i 0.532609i 8.362319i 0.535326i 8.361413i 0.538949i \
-  8.359601i 0.548007i 8.356884i 0.557971i 8.354167i 0.564312i 8.352355i \
-  0.568841i 8.350543i 0.572464i 8.347826i 0.577899i 8.345109i 0.585145i \
-  8.345109i 0.586051i 8.344203i 0.586957i 8.344203i 0.587862i 8.343297i \
-  0.588768i 8.343297i 0.589674i 8.343297i 0.590580i 8.342391i 0.590580i \
-  8.342391i 0.589674i 8.343297i 0.588768i 8.343297i 0.587862i 8.343297i \
-  0.586957i 8.344203i 0.586051i 8.344203i 0.585145i 8.346014i 0.578804i \
-  8.347826i 0.574275i 8.349638i 0.570652i 8.351449i 0.567029i 8.353261i \
-  0.561594i 8.355978i 0.553442i 8.357790i 0.545290i 8.358696i 0.542572i \
-  8.359601i 0.542572i 8.359601i 0.539855i 8.358696i 0.532609i 8.355978i \
-  0.524457i 8.355072i 0.520833i 8.354167i 0.519928i 8.352355i 0.516304i \
-  8.346014i 0.508152i 8.339674i 0.501812i 8.336051i 0.498188i 8.334239i \
-  0.496377i 8.331522i 0.495471i 8.327899i 0.492754i 8.319746i 0.487319i \
-  8.310688i 0.481884i 8.306159i 0.480072i 8.303442i 0.479167i 8.299819i \
-  0.477355i 8.293478i 0.474638i 8.292572i 0.474638i 8.291667i 0.473732i \
-  8.290761i 0.473732i 8.289855i 0.473732i 8.288949i 0.474638i 8.288949i \
-  0.475543i 8.289855i 0.476449i 8.289855i 0.477355i 8.289855i 0.478261i \
-  8.289855i 0.479167i 8.290761i 0.479167i 8.290761i 0.480072i 8.290761i \
-  0.480978i 8.290761i 0.480072i 8.290761i 0.479167i 8.290761i 0.478261i \
-  8.290761i 0.477355i 8.290761i 0.475543i 8.290761i 0.474638i 8.290761i \
-  0.464674i 8.290761i 0.455616i 8.291667i 0.447464i 8.291667i 0.440217i \
-  8.291667i 0.432065i 8.292572i 0.423913i 8.292572i 0.422101i 8.292572i \
-  0.424819i 8.292572i 0.430254i 8.292572i 0.435688i 8.293478i 0.442029i \
+${score} create polygon 2.314488i 0.104134i 2.315394i 0.109567i 2.315394i 0.111378i \
+  2.315394i 0.112283i 2.316299i 0.114094i 2.318110i 0.118622i 2.319921i 0.122244i \
+  2.320827i 0.123150i 2.320827i 0.122244i 2.321732i 0.123150i 2.326260i 0.127677i \
+  2.332598i 0.133110i 2.336220i 0.135827i 2.338937i 0.137638i 2.342559i 0.140354i \
+  2.350709i 0.147598i 2.358858i 0.153937i 2.361575i 0.157559i 2.363386i 0.158465i \
+  2.367008i 0.161181i 2.372441i 0.167520i 2.376969i 0.173858i 2.378780i 0.175669i \
+  2.378780i 0.176575i 2.379685i 0.179291i 2.381496i 0.185630i 2.382402i 0.192874i \
+  2.383307i 0.195591i 2.383307i 0.196496i 2.382402i 0.200118i 2.380591i 0.210079i \
+  2.377874i 0.220039i 2.375157i 0.226378i 2.373346i 0.230906i 2.371535i 0.234528i \
+  2.368819i 0.239961i 2.366102i 0.247205i 2.366102i 0.248110i 2.365197i 0.249016i \
+  2.365197i 0.249921i 2.364291i 0.249921i 2.364291i 0.250827i 2.364291i 0.251732i \
+  2.363386i 0.251732i 2.363386i 0.252638i 2.363386i 0.251732i 2.363386i 0.250827i \
+  2.363386i 0.249921i 2.363386i 0.249016i 2.364291i 0.249016i 2.364291i 0.248110i \
+  2.364291i 0.247205i 2.366102i 0.241772i 2.367913i 0.237244i 2.369724i 0.233622i \
+  2.371535i 0.230000i 2.373346i 0.224567i 2.376063i 0.216417i 2.378780i 0.208268i \
+  2.379685i 0.204646i 2.380591i 0.203740i 2.380591i 0.201024i 2.379685i 0.193780i \
+  2.377874i 0.186535i 2.376063i 0.182913i 2.375157i 0.182008i 2.373346i 0.178386i \
+  2.367008i 0.171142i 2.360669i 0.164803i 2.357047i 0.161181i 2.355236i 0.160276i \
+  2.353425i 0.158465i 2.349803i 0.155748i 2.341654i 0.150315i 2.332598i 0.144882i \
+  2.328071i 0.142165i 2.325354i 0.141260i 2.320827i 0.139449i 2.314488i 0.136732i \
+  2.313583i 0.136732i 2.312677i 0.135827i 2.311772i 0.135827i 2.310866i 0.135827i \
+  2.309961i 0.135827i 2.309961i 0.136732i 2.309961i 0.137638i 2.309961i 0.138543i \
+  2.309961i 0.139449i 2.309961i 0.140354i 2.310866i 0.140354i 2.310866i 0.141260i \
+  2.310866i 0.142165i 2.310866i 0.141260i 2.310866i 0.140354i 2.310866i 0.139449i \
+  2.310866i 0.137638i 2.310866i 0.136732i 2.310866i 0.126772i 2.311772i 0.117717i \
+  2.311772i 0.110472i 2.312677i 0.103228i 2.312677i 0.094173i 2.313583i 0.086929i \
+  2.314488i 0.085118i 2.314488i 0.087835i 2.313583i 0.092362i 2.313583i 0.097795i \
   -outline $tkxox(score_active_note) -fill {}
-${score} create line 9.048007i 0.423007i 9.048007i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \
-  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \
-  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \
-  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \
-  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \
-  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \
-  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \
-  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \
-  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \
-  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \
-  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \
-  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \
-  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \
-  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \
-  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \
-  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \
-  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \
-  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 9.005435i 0.640399i 9.012681i 0.639493i 9.015399i \
-  0.638587i 9.017210i 0.638587i 9.019928i 0.637681i 9.027174i 0.634964i \
-  9.034420i 0.632246i 9.037138i 0.630435i 9.038949i 0.629529i 9.041667i \
-  0.628623i 9.047101i 0.624094i 9.051630i 0.619565i 9.053442i 0.617754i \
-  9.054348i 0.616848i 9.056159i 0.614130i 9.057065i 0.609601i 9.057065i \
-  0.606884i 9.057065i 0.604167i 9.057065i 0.603261i 9.057065i 0.602355i \
-  9.056159i 0.601449i 9.055254i 0.600543i 9.053442i 0.598732i 9.050725i \
-  0.596920i 9.045290i 0.594203i 9.041667i 0.594203i 9.039855i 0.593297i \
-  9.036232i 0.593297i 9.028080i 0.593297i 9.020833i 0.594203i 9.017210i \
-  0.594203i 9.015399i 0.594203i 9.011775i 0.595109i 9.005435i 0.597826i \
-  8.999094i 0.600543i 8.997283i 0.602355i 8.996377i 0.603261i 8.994565i \
-  0.605072i 8.990942i 0.608696i 8.987319i 0.611413i 8.986413i 0.612319i \
-  8.985507i 0.614130i 8.983696i 0.616848i 8.981884i 0.620471i 8.980978i \
-  0.622283i 8.980072i 0.623188i 8.980072i 0.625000i 8.980072i 0.628623i \
-  8.980978i 0.631341i 8.981884i 0.633152i 8.981884i 0.634058i 8.982790i \
-  0.634058i 8.983696i 0.635870i 8.987319i 0.637681i 8.991848i 0.639493i \
-  8.994565i 0.640399i 8.995471i 0.640399i 8.999094i 0.640399i 9.005435i \
-  0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \
-  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \
-  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \
-  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \
-  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \
-  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \
-  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \
-  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \
-  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \
-  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \
-  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \
-  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \
-  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \
-  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \
-  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \
-  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \
-  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \
-  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \
-  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \
-  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \
-  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \
-  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \
-  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \
-  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \
-  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \
-  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \
-  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \
-  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \
-  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \
-  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \
-  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \
-  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 9.053442i 0.442029i 9.054348i 0.447464i 9.054348i \
-  0.449275i 9.054348i 0.450181i 9.055254i 0.451993i 9.057065i 0.456522i \
-  9.058877i 0.460145i 9.059783i 0.460145i 9.060688i 0.461051i 9.065217i \
-  0.464674i 9.071558i 0.470109i 9.075181i 0.472826i 9.077899i 0.474638i \
-  9.081522i 0.477355i 9.089674i 0.484601i 9.097826i 0.490942i 9.100543i \
-  0.493659i 9.102355i 0.494565i 9.105072i 0.498188i 9.111413i 0.504529i \
-  9.116848i 0.511775i 9.118659i 0.514493i 9.118659i 0.515399i 9.120471i \
-  0.518116i 9.122283i 0.525362i 9.123188i 0.532609i 9.123188i 0.535326i \
-  9.123188i 0.538949i 9.120471i 0.548007i 9.117754i 0.557971i 9.115036i \
-  0.564312i 9.112319i 0.568841i 9.110507i 0.572464i 9.107790i 0.577899i \
-  9.105072i 0.585145i 9.105072i 0.586051i 9.104167i 0.586957i 9.104167i \
-  0.587862i 9.103261i 0.587862i 9.103261i 0.588768i 9.103261i 0.589674i \
-  9.102355i 0.589674i 9.102355i 0.590580i 9.101449i 0.590580i 9.101449i \
-  0.589674i 9.102355i 0.588768i 9.102355i 0.587862i 9.102355i 0.586957i \
-  9.103261i 0.586051i 9.103261i 0.585145i 9.105978i 0.578804i 9.107790i \
-  0.574275i 9.109601i 0.570652i 9.111413i 0.567029i 9.114130i 0.561594i \
-  9.116848i 0.553442i 9.119565i 0.546196i 9.120471i 0.542572i 9.121377i \
-  0.542572i 9.121377i 0.541667i 9.121377i 0.538949i 9.120471i 0.532609i \
-  9.117754i 0.524457i 9.115942i 0.520833i 9.114130i 0.519928i 9.111413i \
-  0.516304i 9.105072i 0.508152i 9.098732i 0.501812i 9.095109i 0.498188i \
-  9.093297i 0.496377i 9.091486i 0.495471i 9.086957i 0.492754i 9.079710i \
-  0.487319i 9.070652i 0.481884i 9.066123i 0.480072i 9.063406i 0.479167i \
-  9.059783i 0.477355i 9.053442i 0.474638i 9.052536i 0.474638i 9.051630i \
-  0.473732i 9.050725i 0.473732i 9.049819i 0.473732i 9.048913i 0.473732i \
-  9.048913i 0.474638i 9.048913i 0.475543i 9.048913i 0.476449i 9.048913i \
-  0.477355i 9.048913i 0.478261i 9.049819i 0.479167i 9.049819i 0.480072i \
-  9.049819i 0.480978i 9.049819i 0.480072i 9.049819i 0.479167i 9.049819i \
-  0.478261i 9.049819i 0.477355i 9.049819i 0.475543i 9.049819i 0.474638i \
-  9.049819i 0.464674i 9.050725i 0.455616i 9.050725i 0.447464i 9.051630i \
-  0.440217i 9.051630i 0.432065i 9.052536i 0.423913i 9.053442i 0.422101i \
-  9.053442i 0.424819i 9.052536i 0.430254i 9.052536i 0.435688i 9.053442i \
-  0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 9.050725i 1.060688i 9.050725i 1.264493i -fill $tkxox(score_active_note)
-${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \
-  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \
-  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \
-  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \
-  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \
-  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \
-  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \
-  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \
-  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \
-  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \
-  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \
-  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \
-  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \
-  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \
-  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \
-  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \
-  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 9.007246i 1.307065i 9.014493i 1.306159i 9.017210i \
-  1.306159i 9.019022i 1.305254i 9.021739i 1.304348i 9.028986i 1.301630i \
-  9.036232i 1.298007i 9.038949i 1.296196i 9.040761i 1.296196i 9.043478i \
-  1.293478i 9.048913i 1.288949i 9.054348i 1.283514i 9.056159i 1.281703i \
-  9.057971i 1.280797i 9.058877i 1.278080i 9.060688i 1.272645i 9.060688i \
-  1.269022i 9.060688i 1.266304i 9.059783i 1.265399i 9.059783i 1.264493i \
-  9.059783i 1.263587i 9.058877i 1.262681i 9.056159i 1.260870i 9.053442i \
-  1.258152i 9.048007i 1.255435i 9.044384i 1.253623i 9.042572i 1.253623i \
-  9.038949i 1.252717i 9.030797i 1.252717i 9.022645i 1.253623i 9.019022i \
-  1.254529i 9.018116i 1.255435i 9.014493i 1.257246i 9.007246i 1.259964i \
-  9.000906i 1.262681i 8.998188i 1.263587i 8.997283i 1.264493i 8.995471i \
-  1.266304i 8.990942i 1.269022i 8.987319i 1.272645i 8.986413i 1.273551i \
-  8.985507i 1.275362i 8.983696i 1.278986i 8.981884i 1.283514i 8.980978i \
-  1.285326i 8.980072i 1.287138i 8.980072i 1.288949i 8.980072i 1.293478i \
-  8.980978i 1.298007i 8.981884i 1.299819i 8.981884i 1.300725i 8.983696i \
-  1.301630i 8.987319i 1.304348i 8.992754i 1.306159i 8.995471i 1.307065i \
-  8.997283i 1.307065i 9.000000i 1.307065i 9.007246i 1.307065i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 9.654891i 0.423007i 9.654891i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \
-  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \
-  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \
-  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \
-  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \
-  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \
-  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \
-  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \
-  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \
-  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \
-  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \
-  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \
-  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \
-  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \
-  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \
-  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \
-  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \
-  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline {} -fill $tkxox(score_active_note) \
-  -width 0
-${score} create polygon 9.612319i 0.640399i 9.619565i 0.639493i 9.622283i \
-  0.638587i 9.624094i 0.638587i 9.626812i 0.637681i 9.634058i 0.634964i \
-  9.641304i 0.632246i 9.644022i 0.630435i 9.645833i 0.629529i 9.648551i \
-  0.628623i 9.653986i 0.624094i 9.658514i 0.619565i 9.660326i 0.617754i \
-  9.661232i 0.616848i 9.663043i 0.614130i 9.663949i 0.609601i 9.663949i \
-  0.606884i 9.663949i 0.604167i 9.663949i 0.603261i 9.663949i 0.602355i \
-  9.663043i 0.601449i 9.662138i 0.600543i 9.660326i 0.598732i 9.657609i \
-  0.596920i 9.652174i 0.594203i 9.648551i 0.594203i 9.646739i 0.593297i \
-  9.643116i 0.593297i 9.634964i 0.593297i 9.627717i 0.594203i 9.624094i \
-  0.594203i 9.622283i 0.594203i 9.618659i 0.595109i 9.612319i 0.597826i \
-  9.605978i 0.600543i 9.604167i 0.602355i 9.603261i 0.603261i 9.601449i \
-  0.605072i 9.597826i 0.608696i 9.594203i 0.611413i 9.593297i 0.612319i \
-  9.592391i 0.614130i 9.590580i 0.616848i 9.588768i 0.620471i 9.587862i \
-  0.622283i 9.586957i 0.623188i 9.586957i 0.625000i 9.586957i 0.628623i \
-  9.587862i 0.631341i 9.587862i 0.632246i 9.587862i 0.633152i 9.587862i \
-  0.634058i 9.588768i 0.634058i 9.588768i 0.634964i 9.590580i 0.635870i \
-  9.593297i 0.637681i 9.597826i 0.639493i 9.600543i 0.640399i 9.602355i \
-  0.640399i 9.605072i 0.640399i 9.612319i 0.640399i -outline $tkxox(score_active_note) -fill \
-  {}
-${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \
-  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \
-  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \
-  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \
-  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \
-  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \
-  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \
-  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \
-  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \
-  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \
-  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \
-  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \
-  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \
-  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \
-  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \
-  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \
-  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \
-  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \
-  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \
-  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \
-  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \
-  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \
-  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \
-  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \
-  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \
-  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \
-  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \
-  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \
-  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \
-  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \
+${score} create line 1.702362i 0.422874i 1.702362i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 1.659803i 0.640197i 1.667047i 0.639291i 1.670669i 0.638386i \
+  1.672480i 0.638386i 1.676102i 0.637480i 1.683346i 0.634764i 1.690591i 0.632047i \
+  1.693307i 0.630236i 1.694213i 0.629331i 1.696024i 0.628425i 1.701457i 0.623898i \
+  1.705984i 0.619370i 1.707795i 0.617559i 1.708701i 0.616654i 1.710512i 0.613937i \
+  1.711417i 0.609409i 1.711417i 0.605787i 1.711417i 0.603071i 1.710512i 0.602165i \
+  1.710512i 0.601260i 1.708701i 0.599449i 1.705079i 0.596732i 1.699646i 0.594016i \
+  1.696929i 0.594016i 1.695118i 0.593110i 1.691496i 0.593110i 1.684252i 0.593110i \
+  1.676102i 0.594016i 1.672480i 0.594016i 1.670669i 0.594016i 1.667047i 0.594921i \
+  1.659803i 0.597638i 1.653465i 0.600354i 1.651654i 0.602165i 1.650748i 0.603071i \
+  1.648937i 0.604882i 1.645315i 0.608504i 1.641693i 0.611220i 1.640787i 0.612126i \
+  1.639882i 0.613937i 1.638071i 0.616654i 1.636260i 0.620276i 1.635354i 0.622087i \
+  1.635354i 0.622992i 1.635354i 0.624803i 1.635354i 0.628425i 1.636260i 0.632047i \
+  1.637165i 0.632953i 1.637165i 0.633858i 1.638071i 0.634764i 1.641693i 0.637480i \
+  1.646220i 0.639291i 1.648937i 0.640197i 1.649843i 0.640197i 1.652559i 0.640197i \
   -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 9.659420i 0.442029i 9.660326i 0.447464i 9.661232i \
-  0.449275i 9.661232i 0.450181i 9.662138i 0.451993i 9.663949i 0.456522i \
-  9.665761i 0.460145i 9.666667i 0.461051i 9.671196i 0.464674i 9.677536i \
-  0.470109i 9.681159i 0.472826i 9.683877i 0.474638i 9.688406i 0.477355i \
-  9.696558i 0.484601i 9.704710i 0.490942i 9.708333i 0.493659i 9.709239i \
-  0.494565i 9.712862i 0.498188i 9.718297i 0.504529i 9.722826i 0.511775i \
-  9.724638i 0.514493i 9.724638i 0.515399i 9.725543i 0.518116i 9.727355i \
-  0.525362i 9.728261i 0.532609i 9.728261i 0.535326i 9.727355i 0.538949i \
-  9.725543i 0.548007i 9.722826i 0.557971i 9.720109i 0.564312i 9.718297i \
-  0.568841i 9.716486i 0.572464i 9.713768i 0.577899i 9.711051i 0.585145i \
-  9.711051i 0.586051i 9.710145i 0.586957i 9.710145i 0.587862i 9.709239i \
-  0.588768i 9.709239i 0.589674i 9.709239i 0.590580i 9.708333i 0.590580i \
-  9.708333i 0.589674i 9.709239i 0.588768i 9.709239i 0.587862i 9.709239i \
-  0.586957i 9.710145i 0.586051i 9.710145i 0.585145i 9.711957i 0.578804i \
-  9.713768i 0.574275i 9.715580i 0.570652i 9.717391i 0.567029i 9.719203i \
-  0.561594i 9.721920i 0.553442i 9.723732i 0.545290i 9.724638i 0.542572i \
-  9.725543i 0.542572i 9.725543i 0.539855i 9.724638i 0.532609i 9.721920i \
-  0.524457i 9.721014i 0.520833i 9.720109i 0.519928i 9.718297i 0.516304i \
-  9.711957i 0.508152i 9.705616i 0.501812i 9.701993i 0.498188i 9.700181i \
-  0.496377i 9.697464i 0.495471i 9.693841i 0.492754i 9.685688i 0.487319i \
-  9.676630i 0.481884i 9.672101i 0.480072i 9.669384i 0.479167i 9.665761i \
-  0.477355i 9.659420i 0.474638i 9.658514i 0.474638i 9.657609i 0.473732i \
-  9.656703i 0.473732i 9.655797i 0.473732i 9.654891i 0.474638i 9.654891i \
-  0.475543i 9.655797i 0.476449i 9.655797i 0.477355i 9.655797i 0.478261i \
-  9.655797i 0.479167i 9.656703i 0.479167i 9.656703i 0.480072i 9.656703i \
-  0.480978i 9.656703i 0.480072i 9.656703i 0.479167i 9.656703i 0.478261i \
-  9.656703i 0.477355i 9.656703i 0.475543i 9.656703i 0.474638i 9.656703i \
-  0.464674i 9.656703i 0.455616i 9.657609i 0.447464i 9.657609i 0.440217i \
-  9.657609i 0.432065i 9.658514i 0.423913i 9.658514i 0.422101i 9.658514i \
-  0.424819i 9.658514i 0.430254i 9.658514i 0.435688i 9.659420i 0.442029i \
+${score} create polygon 1.659803i 0.640197i 1.667047i 0.639291i 1.670669i 0.638386i \
+  1.672480i 0.638386i 1.676102i 0.637480i 1.683346i 0.634764i 1.690591i 0.632047i \
+  1.693307i 0.630236i 1.694213i 0.629331i 1.696024i 0.628425i 1.701457i 0.623898i \
+  1.705984i 0.619370i 1.707795i 0.617559i 1.708701i 0.616654i 1.710512i 0.613937i \
+  1.711417i 0.609409i 1.711417i 0.605787i 1.711417i 0.603071i 1.710512i 0.602165i \
+  1.710512i 0.601260i 1.708701i 0.599449i 1.705079i 0.596732i 1.699646i 0.594016i \
+  1.696929i 0.594016i 1.695118i 0.593110i 1.691496i 0.593110i 1.684252i 0.593110i \
+  1.676102i 0.594016i 1.672480i 0.594016i 1.670669i 0.594016i 1.667047i 0.594921i \
+  1.659803i 0.597638i 1.653465i 0.600354i 1.651654i 0.602165i 1.650748i 0.603071i \
+  1.648937i 0.604882i 1.645315i 0.608504i 1.641693i 0.611220i 1.640787i 0.612126i \
+  1.639882i 0.613937i 1.638071i 0.616654i 1.636260i 0.620276i 1.635354i 0.622087i \
+  1.635354i 0.622992i 1.635354i 0.624803i 1.635354i 0.628425i 1.636260i 0.632047i \
+  1.637165i 0.632953i 1.637165i 0.633858i 1.638071i 0.634764i 1.641693i 0.637480i \
+  1.646220i 0.639291i 1.648937i 0.640197i 1.649843i 0.640197i 1.652559i 0.640197i \
   -outline $tkxox(score_active_note) -fill {}
-${score} create line 5.034420i 0.086051i 5.034420i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \
-  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \
-  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \
-  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \
-  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \
-  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \
-  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \
-  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \
-  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \
-  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \
-  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \
-  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \
-  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \
-  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \
-  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \
-  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \
-  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \
-  0.301630i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 4.992754i 0.301630i 5.000000i 0.300725i 5.002717i \
-  0.300725i 5.004529i 0.300725i 5.007246i 0.299819i 5.014493i 0.298007i \
-  5.021739i 0.295290i 5.024457i 0.293478i 5.026268i 0.293478i 5.028986i \
-  0.291667i 5.034420i 0.287138i 5.038949i 0.282609i 5.040761i 0.280797i \
-  5.041667i 0.279891i 5.043478i 0.277174i 5.044384i 0.272645i 5.044384i \
-  0.269928i 5.044384i 0.267210i 5.043478i 0.266304i 5.043478i 0.265399i \
-  5.042572i 0.264493i 5.041667i 0.263587i 5.039855i 0.261775i 5.037138i \
-  0.259964i 5.031703i 0.257246i 5.028080i 0.256341i 5.026268i 0.256341i \
-  5.022645i 0.255435i 5.015399i 0.255435i 5.008152i 0.256341i 5.004529i \
-  0.256341i 5.002717i 0.257246i 4.999094i 0.258152i 4.992754i 0.260870i \
-  4.987319i 0.263587i 4.984601i 0.265399i 4.983696i 0.266304i 4.981884i \
-  0.268116i 4.978261i 0.271739i 4.974638i 0.274457i 4.973732i 0.275362i \
-  4.972826i 0.275362i 4.971920i 0.276268i 4.970109i 0.278986i 4.968297i \
-  0.282609i 4.967391i 0.284420i 4.967391i 0.285326i 4.967391i 0.287138i \
-  4.967391i 0.290761i 4.968297i 0.294384i 4.968297i 0.296196i 4.969203i \
-  0.297101i 4.970109i 0.298913i 4.973732i 0.300725i 4.978261i 0.302536i \
-  4.980978i 0.302536i 4.982790i 0.302536i 4.985507i 0.301630i 4.992754i \
-  0.301630i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \
-  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \
-  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \
-  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \
-  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \
-  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \
-  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \
-  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \
-  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \
-  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \
-  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \
-  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \
-  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \
-  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \
-  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \
-  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \
-  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \
-  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \
-  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \
-  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \
-  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \
-  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \
-  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \
-  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \
-  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \
-  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \
-  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \
-  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \
-  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \
-  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \
-  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \
-  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 5.039855i 0.104167i 5.040761i 0.109601i 5.041667i \
-  0.111413i 5.041667i 0.112319i 5.042572i 0.114130i 5.044384i 0.118659i \
-  5.046196i 0.122283i 5.046196i 0.123188i 5.046196i 0.122283i 5.047101i \
-  0.123188i 5.051630i 0.127717i 5.057971i 0.133152i 5.061594i 0.135870i \
-  5.063406i 0.137681i 5.067935i 0.140399i 5.076087i 0.147645i 5.084239i \
-  0.153986i 5.088768i 0.157609i 5.090580i 0.158514i 5.094203i 0.161232i \
-  5.100543i 0.167572i 5.105072i 0.173913i 5.106884i 0.175725i 5.106884i \
-  0.176630i 5.107790i 0.179348i 5.109601i 0.185688i 5.110507i 0.192935i \
-  5.110507i 0.195652i 5.110507i 0.196558i 5.110507i 0.200181i 5.107790i \
-  0.210145i 5.104167i 0.220109i 5.101449i 0.226449i 5.099638i 0.230978i \
-  5.097826i 0.234601i 5.095109i 0.240036i 5.091486i 0.247283i 5.090580i \
-  0.248188i 5.090580i 0.249094i 5.090580i 0.250000i 5.089674i 0.250000i \
-  5.089674i 0.250906i 5.089674i 0.251812i 5.088768i 0.251812i 5.088768i \
-  0.252717i 5.087862i 0.252717i 5.087862i 0.251812i 5.088768i 0.250906i \
-  5.088768i 0.250000i 5.088768i 0.249094i 5.089674i 0.248188i 5.089674i \
-  0.247283i 5.092391i 0.241848i 5.094203i 0.237319i 5.096014i 0.233696i \
-  5.097826i 0.230072i 5.100543i 0.224638i 5.103261i 0.216486i 5.105978i \
-  0.208333i 5.106884i 0.204710i 5.107790i 0.203804i 5.107790i 0.201087i \
-  5.106884i 0.193841i 5.104167i 0.186594i 5.102355i 0.182971i 5.101449i \
-  0.182065i 5.098732i 0.178442i 5.092391i 0.171196i 5.086051i 0.164855i \
-  5.082428i 0.161232i 5.080616i 0.160326i 5.077899i 0.158514i 5.074275i \
-  0.155797i 5.066123i 0.150362i 5.057065i 0.144928i 5.052536i 0.142210i \
-  5.049819i 0.141304i 5.046196i 0.139493i 5.039855i 0.136775i 5.038949i \
-  0.136775i 5.038043i 0.135870i 5.037138i 0.135870i 5.036232i 0.135870i \
-  5.035326i 0.135870i 5.035326i 0.136775i 5.035326i 0.137681i 5.035326i \
-  0.138587i 5.035326i 0.139493i 5.035326i 0.140399i 5.036232i 0.140399i \
-  5.036232i 0.141304i 5.036232i 0.142210i 5.036232i 0.141304i 5.036232i \
-  0.140399i 5.036232i 0.139493i 5.036232i 0.137681i 5.036232i 0.136775i \
-  5.036232i 0.126812i 5.037138i 0.117754i 5.037138i 0.110507i 5.038043i \
-  0.103261i 5.038043i 0.094203i 5.038949i 0.086957i 5.039855i 0.085145i \
-  5.038949i 0.087862i 5.038949i 0.092391i 5.038949i 0.097826i 5.039855i \
-  0.104167i -outline $tkxox(score_active_note) -fill {}
-${score} create line 5.034420i 0.423007i 5.034420i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \
-  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \
-  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \
-  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \
-  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \
-  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \
-  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \
-  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \
-  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \
-  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \
-  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \
-  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \
-  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \
-  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \
-  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \
-  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \
-  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \
-  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 4.992754i 0.640399i 5.000000i 0.639493i 5.002717i \
-  0.638587i 5.004529i 0.638587i 5.007246i 0.637681i 5.014493i 0.634964i \
-  5.021739i 0.632246i 5.024457i 0.630435i 5.026268i 0.629529i 5.028986i \
-  0.628623i 5.034420i 0.624094i 5.038949i 0.619565i 5.040761i 0.617754i \
-  5.041667i 0.616848i 5.043478i 0.614130i 5.044384i 0.609601i 5.044384i \
-  0.606884i 5.044384i 0.604167i 5.043478i 0.603261i 5.043478i 0.602355i \
-  5.042572i 0.601449i 5.041667i 0.600543i 5.039855i 0.598732i 5.037138i \
-  0.596920i 5.031703i 0.594203i 5.028080i 0.594203i 5.026268i 0.593297i \
-  5.022645i 0.593297i 5.015399i 0.593297i 5.008152i 0.594203i 5.004529i \
-  0.594203i 5.002717i 0.594203i 4.999094i 0.595109i 4.992754i 0.597826i \
-  4.987319i 0.600543i 4.984601i 0.602355i 4.983696i 0.603261i 4.981884i \
-  0.605072i 4.978261i 0.608696i 4.974638i 0.611413i 4.973732i 0.612319i \
-  4.972826i 0.612319i 4.971920i 0.614130i 4.970109i 0.616848i 4.968297i \
-  0.620471i 4.967391i 0.622283i 4.967391i 0.623188i 4.967391i 0.625000i \
-  4.967391i 0.628623i 4.968297i 0.632246i 4.968297i 0.633152i 4.969203i \
-  0.634058i 4.970109i 0.634964i 4.973732i 0.637681i 4.978261i 0.639493i \
-  4.980978i 0.640399i 4.982790i 0.640399i 4.985507i 0.640399i 4.992754i \
-  0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \
-  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \
-  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \
-  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \
-  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \
-  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \
-  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \
-  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \
-  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \
-  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \
-  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \
-  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \
-  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \
-  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \
-  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \
-  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \
-  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \
-  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \
-  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \
-  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \
-  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \
-  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \
-  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \
-  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \
-  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \
-  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \
-  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \
-  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \
-  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \
-  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \
-  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 5.039855i 0.442029i 5.040761i 0.447464i 5.041667i \
-  0.449275i 5.041667i 0.450181i 5.042572i 0.451993i 5.044384i 0.456522i \
-  5.046196i 0.460145i 5.047101i 0.461051i 5.051630i 0.464674i 5.057971i \
-  0.470109i 5.061594i 0.472826i 5.063406i 0.474638i 5.067935i 0.477355i \
-  5.076087i 0.484601i 5.084239i 0.490942i 5.088768i 0.493659i 5.090580i \
-  0.494565i 5.094203i 0.498188i 5.100543i 0.504529i 5.105072i 0.511775i \
-  5.106884i 0.514493i 5.106884i 0.515399i 5.107790i 0.518116i 5.109601i \
-  0.525362i 5.110507i 0.532609i 5.110507i 0.535326i 5.110507i 0.538949i \
-  5.107790i 0.548007i 5.104167i 0.557971i 5.101449i 0.564312i 5.099638i \
-  0.568841i 5.097826i 0.572464i 5.095109i 0.577899i 5.091486i 0.585145i \
-  5.090580i 0.586051i 5.090580i 0.586957i 5.090580i 0.587862i 5.089674i \
-  0.587862i 5.089674i 0.588768i 5.089674i 0.589674i 5.088768i 0.589674i \
-  5.088768i 0.590580i 5.087862i 0.590580i 5.087862i 0.589674i 5.088768i \
-  0.588768i 5.088768i 0.587862i 5.088768i 0.586957i 5.089674i 0.586051i \
-  5.089674i 0.585145i 5.092391i 0.578804i 5.094203i 0.574275i 5.096014i \
-  0.570652i 5.097826i 0.567029i 5.100543i 0.561594i 5.103261i 0.553442i \
-  5.105072i 0.546196i 5.106884i 0.542572i 5.107790i 0.542572i 5.107790i \
-  0.541667i 5.107790i 0.538949i 5.106884i 0.532609i 5.104167i 0.524457i \
-  5.102355i 0.520833i 5.101449i 0.519928i 5.098732i 0.516304i 5.092391i \
-  0.508152i 5.086051i 0.501812i 5.082428i 0.498188i 5.080616i 0.496377i \
-  5.077899i 0.495471i 5.074275i 0.492754i 5.066123i 0.487319i 5.057065i \
-  0.481884i 5.052536i 0.480072i 5.049819i 0.479167i 5.046196i 0.477355i \
-  5.039855i 0.474638i 5.038949i 0.474638i 5.038043i 0.473732i 5.037138i \
-  0.473732i 5.036232i 0.473732i 5.035326i 0.473732i 5.035326i 0.474638i \
-  5.035326i 0.475543i 5.035326i 0.476449i 5.035326i 0.477355i 5.035326i \
-  0.478261i 5.036232i 0.479167i 5.036232i 0.480072i 5.036232i 0.480978i \
-  5.036232i 0.480072i 5.036232i 0.479167i 5.036232i 0.478261i 5.036232i \
-  0.477355i 5.036232i 0.475543i 5.036232i 0.474638i 5.036232i 0.464674i \
-  5.037138i 0.455616i 5.037138i 0.447464i 5.038043i 0.440217i 5.038043i \
-  0.432065i 5.038949i 0.423913i 5.039855i 0.422101i 5.038949i 0.424819i \
-  5.038949i 0.430254i 5.038949i 0.435688i 5.039855i 0.442029i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 5.678442i 0.423007i 5.678442i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \
-  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \
-  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \
-  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \
-  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \
-  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \
-  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \
-  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \
-  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \
-  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \
-  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \
-  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \
-  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \
-  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \
-  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \
-  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \
-  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \
-  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 5.636775i 0.640399i 5.644022i 0.639493i 5.646739i \
-  0.638587i 5.648551i 0.638587i 5.651268i 0.637681i 5.658514i 0.634964i \
-  5.665761i 0.632246i 5.668478i 0.630435i 5.670290i 0.629529i 5.673007i \
-  0.628623i 5.678442i 0.624094i 5.682971i 0.619565i 5.684783i 0.617754i \
-  5.685688i 0.616848i 5.687500i 0.614130i 5.688406i 0.609601i 5.688406i \
-  0.606884i 5.688406i 0.604167i 5.687500i 0.603261i 5.687500i 0.602355i \
-  5.686594i 0.601449i 5.685688i 0.600543i 5.683877i 0.598732i 5.681159i \
-  0.596920i 5.675725i 0.594203i 5.672101i 0.594203i 5.670290i 0.593297i \
-  5.666667i 0.593297i 5.659420i 0.593297i 5.652174i 0.594203i 5.648551i \
-  0.594203i 5.646739i 0.594203i 5.643116i 0.595109i 5.636775i 0.597826i \
-  5.631341i 0.600543i 5.628623i 0.602355i 5.627717i 0.603261i 5.625906i \
-  0.605072i 5.622283i 0.608696i 5.618659i 0.611413i 5.617754i 0.612319i \
-  5.616848i 0.612319i 5.615942i 0.614130i 5.614130i 0.616848i 5.612319i \
-  0.620471i 5.611413i 0.622283i 5.611413i 0.623188i 5.611413i 0.625000i \
-  5.611413i 0.628623i 5.612319i 0.632246i 5.612319i 0.633152i 5.613225i \
-  0.634058i 5.614130i 0.634964i 5.617754i 0.637681i 5.622283i 0.639493i \
-  5.625000i 0.640399i 5.626812i 0.640399i 5.629529i 0.640399i 5.636775i \
-  0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \
-  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \
-  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \
-  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \
-  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \
-  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \
-  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \
-  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \
-  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \
-  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \
-  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \
-  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \
-  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \
-  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \
-  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \
-  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \
-  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \
-  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \
-  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \
-  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \
-  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \
-  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \
-  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \
-  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \
-  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \
-  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \
-  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \
-  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \
-  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \
-  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \
-  5.682971i 0.435688i 5.683877i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \
-  0
-${score} create polygon 5.683877i 0.442029i 5.684783i 0.447464i 5.685688i \
-  0.449275i 5.685688i 0.450181i 5.686594i 0.451993i 5.688406i 0.456522i \
-  5.690217i 0.460145i 5.691123i 0.461051i 5.695652i 0.464674i 5.701993i \
-  0.470109i 5.705616i 0.472826i 5.707428i 0.474638i 5.711957i 0.477355i \
-  5.720109i 0.484601i 5.728261i 0.490942i 5.731884i 0.493659i 5.733696i \
-  0.494565i 5.736413i 0.498188i 5.742754i 0.504529i 5.747283i 0.511775i \
-  5.749094i 0.514493i 5.749094i 0.515399i 5.750000i 0.518116i 5.751812i \
-  0.525362i 5.752717i 0.532609i 5.752717i 0.535326i 5.751812i 0.538949i \
-  5.750000i 0.548007i 5.747283i 0.557971i 5.744565i 0.564312i 5.742754i \
-  0.568841i 5.740942i 0.572464i 5.738225i 0.577899i 5.735507i 0.585145i \
-  5.735507i 0.586051i 5.734601i 0.586957i 5.734601i 0.587862i 5.733696i \
-  0.587862i 5.733696i 0.588768i 5.733696i 0.589674i 5.732790i 0.589674i \
-  5.732790i 0.590580i 5.732790i 0.589674i 5.732790i 0.588768i 5.732790i \
-  0.587862i 5.732790i 0.586957i 5.733696i 0.586957i 5.733696i 0.586051i \
-  5.733696i 0.585145i 5.735507i 0.578804i 5.737319i 0.574275i 5.739130i \
-  0.570652i 5.740942i 0.567029i 5.742754i 0.561594i 5.745471i 0.553442i \
-  5.748188i 0.545290i 5.749094i 0.542572i 5.750000i 0.542572i 5.750000i \
-  0.539855i 5.749094i 0.532609i 5.747283i 0.524457i 5.745471i 0.520833i \
-  5.744565i 0.519928i 5.742754i 0.516304i 5.736413i 0.508152i 5.730072i \
-  0.501812i 5.726449i 0.498188i 5.724638i 0.496377i 5.722826i 0.495471i \
-  5.719203i 0.492754i 5.711051i 0.487319i 5.701993i 0.481884i 5.697464i \
-  0.480072i 5.694746i 0.479167i 5.690217i 0.477355i 5.683877i 0.474638i \
-  5.682971i 0.474638i 5.682065i 0.473732i 5.681159i 0.473732i 5.680254i \
-  0.473732i 5.679348i 0.473732i 5.679348i 0.474638i 5.679348i 0.475543i \
-  5.679348i 0.476449i 5.679348i 0.477355i 5.679348i 0.478261i 5.680254i \
-  0.479167i 5.680254i 0.480072i 5.680254i 0.480978i 5.680254i 0.480072i \
-  5.680254i 0.479167i 5.680254i 0.478261i 5.680254i 0.477355i 5.680254i \
-  0.475543i 5.680254i 0.474638i 5.680254i 0.464674i 5.681159i 0.455616i \
-  5.681159i 0.447464i 5.682065i 0.440217i 5.682065i 0.432065i 5.682971i \
-  0.423913i 5.683877i 0.422101i 5.682971i 0.424819i 5.682971i 0.430254i \
-  5.682971i 0.435688i 5.683877i 0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 4.315217i 0.423007i 4.315217i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \
-  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \
-  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \
-  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \
-  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \
-  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \
-  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \
-  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \
-  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \
-  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \
-  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \
-  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \
-  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \
-  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \
-  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \
-  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \
-  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \
-  0.640399i 4.272645i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 4.272645i 0.640399i 4.279891i 0.639493i 4.283514i \
-  0.638587i 4.285326i 0.638587i 4.288949i 0.637681i 4.296196i 0.634964i \
-  4.302536i 0.632246i 4.306159i 0.630435i 4.307065i 0.629529i 4.308877i \
-  0.628623i 4.314312i 0.624094i 4.318841i 0.619565i 4.321558i 0.617754i \
-  4.322464i 0.616848i 4.323370i 0.614130i 4.325181i 0.609601i 4.325181i \
-  0.606884i 4.325181i 0.604167i 4.324275i 0.603261i 4.324275i 0.602355i \
-  4.323370i 0.601449i 4.322464i 0.600543i 4.320652i 0.598732i 4.317935i \
-  0.596920i 4.312500i 0.594203i 4.308877i 0.594203i 4.307065i 0.593297i \
-  4.303442i 0.593297i 4.296196i 0.593297i 4.288043i 0.594203i 4.284420i \
-  0.594203i 4.282609i 0.594203i 4.278986i 0.595109i 4.272645i 0.597826i \
-  4.267210i 0.600543i 4.264493i 0.602355i 4.264493i 0.603261i 4.262681i \
-  0.605072i 4.259058i 0.608696i 4.255435i 0.611413i 4.254529i 0.612319i \
-  4.253623i 0.612319i 4.252717i 0.614130i 4.250906i 0.616848i 4.249094i \
-  0.620471i 4.248188i 0.622283i 4.247283i 0.623188i 4.247283i 0.625000i \
-  4.247283i 0.628623i 4.248188i 0.631341i 4.249094i 0.633152i 4.249094i \
-  0.634058i 4.250000i 0.634058i 4.250906i 0.635870i 4.254529i 0.637681i \
-  4.259058i 0.639493i 4.261775i 0.640399i 4.262681i 0.640399i 4.265399i \
-  0.640399i 4.272645i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \
-  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \
-  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \
-  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \
-  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \
-  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \
-  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \
-  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \
-  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \
-  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \
-  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \
-  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \
-  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \
-  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \
-  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \
-  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \
-  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \
-  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \
-  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \
-  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \
-  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \
-  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \
-  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \
-  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \
-  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \
-  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \
-  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \
-  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \
-  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \
-  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \
-  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \
-  0.435688i 4.320652i 0.442029i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 4.320652i 0.442029i 4.321558i 0.447464i 4.322464i \
-  0.449275i 4.322464i 0.450181i 4.323370i 0.451993i 4.325181i 0.456522i \
-  4.326993i 0.460145i 4.327899i 0.461051i 4.332428i 0.464674i 4.338768i \
-  0.470109i 4.342391i 0.472826i 4.344203i 0.474638i 4.348732i 0.477355i \
-  4.356884i 0.484601i 4.365036i 0.490942i 4.367754i 0.493659i 4.369565i \
-  0.494565i 4.372283i 0.498188i 4.378623i 0.504529i 4.384058i 0.511775i \
-  4.385870i 0.514493i 4.386775i 0.515399i 4.388587i 0.518116i 4.390399i \
-  0.525362i 4.391304i 0.531703i 4.392210i 0.534420i 4.392210i 0.535326i \
-  4.391304i 0.536232i 4.390399i 0.539855i 4.388587i 0.548007i 4.384964i \
-  0.557971i 4.382246i 0.564312i 4.380435i 0.568841i 4.378623i 0.572464i \
-  4.375906i 0.577899i 4.372283i 0.585145i 4.371377i 0.586051i 4.371377i \
-  0.586957i 4.371377i 0.587862i 4.370471i 0.587862i 4.370471i 0.588768i \
-  4.370471i 0.589674i 4.369565i 0.589674i 4.369565i 0.590580i 4.368659i \
-  0.590580i 4.369565i 0.590580i 4.369565i 0.589674i 4.369565i 0.588768i \
-  4.369565i 0.587862i 4.369565i 0.586957i 4.370471i 0.586051i 4.370471i \
-  0.585145i 4.372283i 0.578804i 4.374094i 0.574275i 4.375906i 0.570652i \
-  4.376812i 0.567029i 4.379529i 0.561594i 4.382246i 0.553442i 4.384964i \
-  0.545290i 4.386775i 0.542572i 4.387681i 0.542572i 4.388587i 0.539855i \
-  4.387681i 0.532609i 4.384964i 0.524457i 4.383152i 0.520833i 4.382246i \
-  0.519928i 4.379529i 0.516304i 4.373188i 0.508152i 4.366848i 0.501812i \
-  4.363225i 0.498188i 4.361413i 0.496377i 4.359601i 0.495471i 4.355978i \
-  0.492754i 4.347826i 0.487319i 4.338768i 0.481884i 4.334239i 0.480072i \
-  4.331522i 0.479167i 4.326993i 0.477355i 4.320652i 0.474638i 4.319746i \
-  0.474638i 4.318841i 0.473732i 4.317935i 0.473732i 4.317029i 0.473732i \
-  4.316123i 0.473732i 4.316123i 0.474638i 4.316123i 0.475543i 4.316123i \
-  0.476449i 4.316123i 0.477355i 4.316123i 0.478261i 4.317029i 0.479167i \
-  4.317029i 0.480072i 4.317029i 0.480978i 4.317029i 0.480072i 4.317029i \
-  0.479167i 4.317029i 0.478261i 4.317029i 0.477355i 4.317029i 0.475543i \
-  4.317029i 0.474638i 4.317029i 0.464674i 4.317935i 0.455616i 4.317935i \
-  0.447464i 4.318841i 0.440217i 4.318841i 0.432065i 4.319746i 0.423913i \
-  4.320652i 0.422101i 4.319746i 0.424819i 4.319746i 0.430254i 4.319746i \
-  0.435688i 4.320652i 0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 3.671196i 0.086051i 3.671196i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \
-  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \
-  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \
-  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \
-  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \
-  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \
-  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \
-  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \
-  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \
-  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \
-  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \
-  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \
-  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \
-  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \
-  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \
-  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \
-  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \
-  0.301630i 3.628623i 0.301630i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 3.628623i 0.301630i 3.635870i 0.300725i 3.639493i \
-  0.300725i 3.640399i 0.300725i 3.644022i 0.299819i 3.651268i 0.298007i \
-  3.658514i 0.295290i 3.661232i 0.293478i 3.662138i 0.293478i 3.664855i \
-  0.291667i 3.670290i 0.287138i 3.675725i 0.282609i 3.678442i 0.280797i \
-  3.679348i 0.279891i 3.681159i 0.277174i 3.682971i 0.272645i 3.682971i \
-  0.269928i 3.682065i 0.267210i 3.682065i 0.266304i 3.681159i 0.265399i \
-  3.680254i 0.264493i 3.679348i 0.263587i 3.677536i 0.261775i 3.673913i \
-  0.259964i 3.668478i 0.257246i 3.664855i 0.256341i 3.663043i 0.256341i \
-  3.659420i 0.255435i 3.652174i 0.255435i 3.644022i 0.256341i 3.640399i \
-  0.256341i 3.638587i 0.257246i 3.634964i 0.258152i 3.628623i 0.260870i \
-  3.623188i 0.263587i 3.620471i 0.265399i 3.620471i 0.266304i 3.618659i \
-  0.268116i 3.615036i 0.271739i 3.611413i 0.274457i 3.610507i 0.275362i \
-  3.609601i 0.275362i 3.608696i 0.276268i 3.606884i 0.278986i 3.605072i \
-  0.282609i 3.604167i 0.284420i 3.603261i 0.285326i 3.603261i 0.287138i \
-  3.603261i 0.290761i 3.604167i 0.294384i 3.605072i 0.296196i 3.605072i \
-  0.297101i 3.605978i 0.297101i 3.606884i 0.298913i 3.610507i 0.300725i \
-  3.615036i 0.302536i 3.617754i 0.302536i 3.618659i 0.302536i 3.622283i \
-  0.301630i 3.628623i 0.301630i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \
-  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \
-  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \
-  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \
-  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \
-  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \
-  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \
-  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \
-  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \
-  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \
-  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \
-  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \
-  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \
-  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \
-  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \
-  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \
-  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \
-  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \
-  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \
-  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \
-  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \
-  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \
-  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \
-  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \
-  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \
-  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \
-  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \
-  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \
-  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \
-  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \
-  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \
-  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline {} -fill $tkxox(score_active_note) \
+${score} create polygon 1.707795i 0.441890i 1.708701i 0.447323i 1.708701i 0.449134i \
+  1.708701i 0.450039i 1.709606i 0.451850i 1.711417i 0.456378i 1.713228i 0.460000i \
+  1.714134i 0.460000i 1.713228i 0.460000i 1.715039i 0.460906i 1.719567i 0.464528i \
+  1.725906i 0.469961i 1.729528i 0.472677i 1.732244i 0.474488i 1.736772i 0.477205i \
+  1.744921i 0.484449i 1.752165i 0.490787i 1.755787i 0.493504i 1.757598i 0.494409i \
+  1.760315i 0.498031i 1.765748i 0.504370i 1.770276i 0.511614i 1.772087i 0.514331i \
+  1.772992i 0.515236i 1.773898i 0.517953i 1.775709i 0.525197i 1.776614i 0.532441i \
+  1.776614i 0.535157i 1.775709i 0.538780i 1.773898i 0.547835i 1.771181i 0.557795i \
+  1.768465i 0.564134i 1.766654i 0.568661i 1.764843i 0.572283i 1.762126i 0.577717i \
+  1.759409i 0.584961i 1.759409i 0.585866i 1.758504i 0.586772i 1.758504i 0.587677i \
+  1.757598i 0.587677i 1.757598i 0.588583i 1.757598i 0.589488i 1.756693i 0.589488i \
+  1.756693i 0.590394i 1.756693i 0.589488i 1.756693i 0.588583i 1.756693i 0.587677i \
+  1.756693i 0.586772i 1.757598i 0.586772i 1.757598i 0.585866i 1.757598i 0.584961i \
+  1.759409i 0.578622i 1.761220i 0.574094i 1.763031i 0.570472i 1.764843i 0.566850i \
+  1.766654i 0.561417i 1.769370i 0.553268i 1.772087i 0.545118i 1.772992i 0.542402i \
+  1.773898i 0.542402i 1.773898i 0.539685i 1.772992i 0.532441i 1.771181i 0.524291i \
+  1.769370i 0.520669i 1.768465i 0.519764i 1.766654i 0.516142i 1.760315i 0.507992i \
+  1.753976i 0.501654i 1.750354i 0.498031i 1.748543i 0.496220i 1.746732i 0.495315i \
+  1.743110i 0.492598i 1.734961i 0.487165i 1.725906i 0.481732i 1.721378i 0.479921i \
+  1.718661i 0.479016i 1.714134i 0.477205i 1.707795i 0.474488i 1.706890i 0.474488i \
+  1.705984i 0.473583i 1.705079i 0.473583i 1.704173i 0.473583i 1.703268i 0.473583i \
+  1.703268i 0.474488i 1.703268i 0.475394i 1.703268i 0.476299i 1.703268i 0.477205i \
+  1.703268i 0.478110i 1.704173i 0.479016i 1.704173i 0.479921i 1.704173i 0.480827i \
+  1.704173i 0.479921i 1.704173i 0.479016i 1.704173i 0.478110i 1.704173i 0.477205i \
+  1.704173i 0.475394i 1.704173i 0.474488i 1.704173i 0.464528i 1.705079i 0.455472i \
+  1.705079i 0.447323i 1.705984i 0.440079i 1.705984i 0.431929i 1.706890i 0.423780i \
+  1.707795i 0.421969i 1.707795i 0.424685i 1.706890i 0.430118i 1.706890i 0.435551i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 1.707795i 0.441890i 1.708701i 0.447323i 1.708701i 0.449134i \
+  1.708701i 0.450039i 1.709606i 0.451850i 1.711417i 0.456378i 1.713228i 0.460000i \
+  1.714134i 0.460000i 1.713228i 0.460000i 1.715039i 0.460906i 1.719567i 0.464528i \
+  1.725906i 0.469961i 1.729528i 0.472677i 1.732244i 0.474488i 1.736772i 0.477205i \
+  1.744921i 0.484449i 1.752165i 0.490787i 1.755787i 0.493504i 1.757598i 0.494409i \
+  1.760315i 0.498031i 1.765748i 0.504370i 1.770276i 0.511614i 1.772087i 0.514331i \
+  1.772992i 0.515236i 1.773898i 0.517953i 1.775709i 0.525197i 1.776614i 0.532441i \
+  1.776614i 0.535157i 1.775709i 0.538780i 1.773898i 0.547835i 1.771181i 0.557795i \
+  1.768465i 0.564134i 1.766654i 0.568661i 1.764843i 0.572283i 1.762126i 0.577717i \
+  1.759409i 0.584961i 1.759409i 0.585866i 1.758504i 0.586772i 1.758504i 0.587677i \
+  1.757598i 0.587677i 1.757598i 0.588583i 1.757598i 0.589488i 1.756693i 0.589488i \
+  1.756693i 0.590394i 1.756693i 0.589488i 1.756693i 0.588583i 1.756693i 0.587677i \
+  1.756693i 0.586772i 1.757598i 0.586772i 1.757598i 0.585866i 1.757598i 0.584961i \
+  1.759409i 0.578622i 1.761220i 0.574094i 1.763031i 0.570472i 1.764843i 0.566850i \
+  1.766654i 0.561417i 1.769370i 0.553268i 1.772087i 0.545118i 1.772992i 0.542402i \
+  1.773898i 0.542402i 1.773898i 0.539685i 1.772992i 0.532441i 1.771181i 0.524291i \
+  1.769370i 0.520669i 1.768465i 0.519764i 1.766654i 0.516142i 1.760315i 0.507992i \
+  1.753976i 0.501654i 1.750354i 0.498031i 1.748543i 0.496220i 1.746732i 0.495315i \
+  1.743110i 0.492598i 1.734961i 0.487165i 1.725906i 0.481732i 1.721378i 0.479921i \
+  1.718661i 0.479016i 1.714134i 0.477205i 1.707795i 0.474488i 1.706890i 0.474488i \
+  1.705984i 0.473583i 1.705079i 0.473583i 1.704173i 0.473583i 1.703268i 0.473583i \
+  1.703268i 0.474488i 1.703268i 0.475394i 1.703268i 0.476299i 1.703268i 0.477205i \
+  1.703268i 0.478110i 1.704173i 0.479016i 1.704173i 0.479921i 1.704173i 0.480827i \
+  1.704173i 0.479921i 1.704173i 0.479016i 1.704173i 0.478110i 1.704173i 0.477205i \
+  1.704173i 0.475394i 1.704173i 0.474488i 1.704173i 0.464528i 1.705079i 0.455472i \
+  1.705079i 0.447323i 1.705984i 0.440079i 1.705984i 0.431929i 1.706890i 0.423780i \
+  1.707795i 0.421969i 1.707795i 0.424685i 1.706890i 0.430118i 1.706890i 0.435551i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 1.098386i 0.086024i 1.098386i 0.266220i -fill $tkxox(score_active_note)
+${score} create polygon 1.054016i 0.301535i 1.061260i 0.300630i 1.064882i 0.300630i \
+  1.066693i 0.300630i 1.071220i 0.299724i 1.078465i 0.297913i 1.085709i 0.295197i \
+  1.088425i 0.293386i 1.089331i 0.293386i 1.092047i 0.291575i 1.097480i 0.287047i \
+  1.102008i 0.282520i 1.103819i 0.280709i 1.104724i 0.279803i 1.106535i 0.277087i \
+  1.107441i 0.272559i 1.107441i 0.268937i 1.107441i 0.266220i 1.106535i 0.265315i \
+  1.106535i 0.264409i 1.104724i 0.262598i 1.101102i 0.259882i 1.095669i 0.257165i \
+  1.092953i 0.256260i 1.091142i 0.256260i 1.087520i 0.255354i 1.079370i 0.255354i \
+  1.071220i 0.256260i 1.066693i 0.256260i 1.064882i 0.257165i 1.061260i 0.258071i \
+  1.054016i 0.260787i 1.047677i 0.263504i 1.045866i 0.265315i 1.045866i 0.266220i \
+  1.044055i 0.268031i 1.040433i 0.271654i 1.036811i 0.274370i 1.035906i 0.275276i \
+  1.035000i 0.275276i 1.034094i 0.276181i 1.032283i 0.278898i 1.030472i 0.282520i \
+  1.029567i 0.284331i 1.028661i 0.285236i 1.028661i 0.287047i 1.028661i 0.290669i \
+  1.029567i 0.294291i 1.030472i 0.296102i 1.030472i 0.297008i 1.031378i 0.297008i \
+  1.032283i 0.298819i 1.035906i 0.300630i 1.040433i 0.302441i 1.043150i 0.302441i \
+  1.044055i 0.302441i 1.046772i 0.301535i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 1.054016i 0.301535i 1.061260i 0.300630i 1.064882i 0.300630i \
+  1.066693i 0.300630i 1.071220i 0.299724i 1.078465i 0.297913i 1.085709i 0.295197i \
+  1.088425i 0.293386i 1.089331i 0.293386i 1.092047i 0.291575i 1.097480i 0.287047i \
+  1.102008i 0.282520i 1.103819i 0.280709i 1.104724i 0.279803i 1.106535i 0.277087i \
+  1.107441i 0.272559i 1.107441i 0.268937i 1.107441i 0.266220i 1.106535i 0.265315i \
+  1.106535i 0.264409i 1.104724i 0.262598i 1.101102i 0.259882i 1.095669i 0.257165i \
+  1.092953i 0.256260i 1.091142i 0.256260i 1.087520i 0.255354i 1.079370i 0.255354i \
+  1.071220i 0.256260i 1.066693i 0.256260i 1.064882i 0.257165i 1.061260i 0.258071i \
+  1.054016i 0.260787i 1.047677i 0.263504i 1.045866i 0.265315i 1.045866i 0.266220i \
+  1.044055i 0.268031i 1.040433i 0.271654i 1.036811i 0.274370i 1.035906i 0.275276i \
+  1.035000i 0.275276i 1.034094i 0.276181i 1.032283i 0.278898i 1.030472i 0.282520i \
+  1.029567i 0.284331i 1.028661i 0.285236i 1.028661i 0.287047i 1.028661i 0.290669i \
+  1.029567i 0.294291i 1.030472i 0.296102i 1.030472i 0.297008i 1.031378i 0.297008i \
+  1.032283i 0.298819i 1.035906i 0.300630i 1.040433i 0.302441i 1.043150i 0.302441i \
+  1.044055i 0.302441i 1.046772i 0.301535i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 1.103819i 0.104134i 1.104724i 0.109567i 1.104724i 0.111378i \
+  1.105630i 0.112283i 1.105630i 0.114094i 1.107441i 0.118622i 1.109252i 0.122244i \
+  1.109252i 0.123150i 1.109252i 0.122244i 1.110157i 0.123150i 1.114685i 0.127677i \
+  1.121024i 0.133110i 1.124646i 0.135827i 1.127362i 0.137638i 1.131890i 0.140354i \
+  1.140039i 0.147598i 1.148189i 0.153937i 1.151811i 0.157559i 1.152717i 0.158465i \
+  1.156339i 0.161181i 1.161772i 0.167520i 1.166299i 0.173858i 1.168110i 0.175669i \
+  1.168110i 0.176575i 1.169016i 0.179291i 1.170827i 0.185630i 1.171732i 0.192874i \
+  1.171732i 0.195591i 1.171732i 0.196496i 1.170827i 0.200118i 1.169016i 0.210079i \
+  1.166299i 0.220039i 1.163583i 0.226378i 1.161772i 0.230906i 1.160866i 0.234528i \
+  1.158150i 0.239961i 1.155433i 0.247205i 1.155433i 0.248110i 1.154528i 0.249016i \
+  1.154528i 0.249921i 1.153622i 0.250827i 1.153622i 0.251732i 1.152717i 0.252638i \
+  1.152717i 0.251732i 1.152717i 0.250827i 1.152717i 0.249921i 1.152717i 0.249016i \
+  1.153622i 0.249016i 1.153622i 0.248110i 1.153622i 0.247205i 1.155433i 0.241772i \
+  1.157244i 0.237244i 1.159055i 0.233622i 1.159961i 0.230000i 1.161772i 0.224567i \
+  1.164488i 0.216417i 1.166299i 0.208268i 1.168110i 0.204646i 1.168110i 0.203740i \
+  1.169016i 0.201024i 1.168110i 0.193780i 1.166299i 0.186535i 1.165394i 0.182913i \
+  1.164488i 0.182008i 1.161772i 0.178386i 1.156339i 0.171142i 1.150000i 0.164803i \
+  1.146378i 0.161181i 1.144567i 0.160276i 1.142756i 0.158465i 1.138228i 0.155748i \
+  1.130079i 0.150315i 1.121024i 0.144882i 1.116496i 0.142165i 1.113780i 0.141260i \
+  1.110157i 0.139449i 1.103819i 0.136732i 1.102913i 0.136732i 1.102008i 0.135827i \
+  1.101102i 0.135827i 1.100197i 0.135827i 1.099291i 0.135827i 1.099291i 0.136732i \
+  1.099291i 0.137638i 1.099291i 0.138543i 1.099291i 0.139449i 1.099291i 0.140354i \
+  1.100197i 0.140354i 1.100197i 0.141260i 1.100197i 0.142165i 1.100197i 0.141260i \
+  1.100197i 0.140354i 1.100197i 0.139449i 1.100197i 0.137638i 1.100197i 0.136732i \
+  1.100197i 0.126772i 1.101102i 0.117717i 1.101102i 0.110472i 1.102008i 0.103228i \
+  1.102008i 0.094173i 1.102913i 0.086929i 1.103819i 0.085118i 1.103819i 0.087835i \
+  1.102913i 0.092362i 1.102913i 0.097795i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 1.103819i 0.104134i 1.104724i 0.109567i 1.104724i 0.111378i \
+  1.105630i 0.112283i 1.105630i 0.114094i 1.107441i 0.118622i 1.109252i 0.122244i \
+  1.109252i 0.123150i 1.109252i 0.122244i 1.110157i 0.123150i 1.114685i 0.127677i \
+  1.121024i 0.133110i 1.124646i 0.135827i 1.127362i 0.137638i 1.131890i 0.140354i \
+  1.140039i 0.147598i 1.148189i 0.153937i 1.151811i 0.157559i 1.152717i 0.158465i \
+  1.156339i 0.161181i 1.161772i 0.167520i 1.166299i 0.173858i 1.168110i 0.175669i \
+  1.168110i 0.176575i 1.169016i 0.179291i 1.170827i 0.185630i 1.171732i 0.192874i \
+  1.171732i 0.195591i 1.171732i 0.196496i 1.170827i 0.200118i 1.169016i 0.210079i \
+  1.166299i 0.220039i 1.163583i 0.226378i 1.161772i 0.230906i 1.160866i 0.234528i \
+  1.158150i 0.239961i 1.155433i 0.247205i 1.155433i 0.248110i 1.154528i 0.249016i \
+  1.154528i 0.249921i 1.153622i 0.250827i 1.153622i 0.251732i 1.152717i 0.252638i \
+  1.152717i 0.251732i 1.152717i 0.250827i 1.152717i 0.249921i 1.152717i 0.249016i \
+  1.153622i 0.249016i 1.153622i 0.248110i 1.153622i 0.247205i 1.155433i 0.241772i \
+  1.157244i 0.237244i 1.159055i 0.233622i 1.159961i 0.230000i 1.161772i 0.224567i \
+  1.164488i 0.216417i 1.166299i 0.208268i 1.168110i 0.204646i 1.168110i 0.203740i \
+  1.169016i 0.201024i 1.168110i 0.193780i 1.166299i 0.186535i 1.165394i 0.182913i \
+  1.164488i 0.182008i 1.161772i 0.178386i 1.156339i 0.171142i 1.150000i 0.164803i \
+  1.146378i 0.161181i 1.144567i 0.160276i 1.142756i 0.158465i 1.138228i 0.155748i \
+  1.130079i 0.150315i 1.121024i 0.144882i 1.116496i 0.142165i 1.113780i 0.141260i \
+  1.110157i 0.139449i 1.103819i 0.136732i 1.102913i 0.136732i 1.102008i 0.135827i \
+  1.101102i 0.135827i 1.100197i 0.135827i 1.099291i 0.135827i 1.099291i 0.136732i \
+  1.099291i 0.137638i 1.099291i 0.138543i 1.099291i 0.139449i 1.099291i 0.140354i \
+  1.100197i 0.140354i 1.100197i 0.141260i 1.100197i 0.142165i 1.100197i 0.141260i \
+  1.100197i 0.140354i 1.100197i 0.139449i 1.100197i 0.137638i 1.100197i 0.136732i \
+  1.100197i 0.126772i 1.101102i 0.117717i 1.101102i 0.110472i 1.102008i 0.103228i \
+  1.102008i 0.094173i 1.102913i 0.086929i 1.103819i 0.085118i 1.103819i 0.087835i \
+  1.102913i 0.092362i 1.102913i 0.097795i -outline $tkxox(score_active_note) -fill {}
+${score} create line 1.098386i 0.422874i 1.098386i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 1.054016i 0.640197i 1.061260i 0.639291i 1.064882i 0.638386i \
+  1.066693i 0.638386i 1.071220i 0.637480i 1.078465i 0.634764i 1.085709i 0.632047i \
+  1.088425i 0.630236i 1.089331i 0.629331i 1.092047i 0.628425i 1.097480i 0.623898i \
+  1.102008i 0.619370i 1.103819i 0.617559i 1.104724i 0.616654i 1.106535i 0.613937i \
+  1.107441i 0.609409i 1.107441i 0.605787i 1.107441i 0.603071i 1.106535i 0.602165i \
+  1.106535i 0.601260i 1.104724i 0.599449i 1.101102i 0.596732i 1.095669i 0.594016i \
+  1.092953i 0.594016i 1.091142i 0.593110i 1.087520i 0.593110i 1.079370i 0.593110i \
+  1.071220i 0.594016i 1.066693i 0.594016i 1.064882i 0.594016i 1.061260i 0.594921i \
+  1.054016i 0.597638i 1.047677i 0.600354i 1.045866i 0.602165i 1.045866i 0.603071i \
+  1.044055i 0.604882i 1.040433i 0.608504i 1.036811i 0.611220i 1.035906i 0.612126i \
+  1.035000i 0.612126i 1.034094i 0.613937i 1.032283i 0.616654i 1.030472i 0.620276i \
+  1.029567i 0.622087i 1.028661i 0.622992i 1.028661i 0.624803i 1.028661i 0.628425i \
+  1.029567i 0.631142i 1.030472i 0.632953i 1.030472i 0.633858i 1.031378i 0.633858i \
+  1.032283i 0.635669i 1.035906i 0.637480i 1.040433i 0.639291i 1.043150i 0.640197i \
+  1.044055i 0.640197i 1.046772i 0.640197i -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 1.054016i 0.640197i 1.061260i 0.639291i 1.064882i 0.638386i \
+  1.066693i 0.638386i 1.071220i 0.637480i 1.078465i 0.634764i 1.085709i 0.632047i \
+  1.088425i 0.630236i 1.089331i 0.629331i 1.092047i 0.628425i 1.097480i 0.623898i \
+  1.102008i 0.619370i 1.103819i 0.617559i 1.104724i 0.616654i 1.106535i 0.613937i \
+  1.107441i 0.609409i 1.107441i 0.605787i 1.107441i 0.603071i 1.106535i 0.602165i \
+  1.106535i 0.601260i 1.104724i 0.599449i 1.101102i 0.596732i 1.095669i 0.594016i \
+  1.092953i 0.594016i 1.091142i 0.593110i 1.087520i 0.593110i 1.079370i 0.593110i \
+  1.071220i 0.594016i 1.066693i 0.594016i 1.064882i 0.594016i 1.061260i 0.594921i \
+  1.054016i 0.597638i 1.047677i 0.600354i 1.045866i 0.602165i 1.045866i 0.603071i \
+  1.044055i 0.604882i 1.040433i 0.608504i 1.036811i 0.611220i 1.035906i 0.612126i \
+  1.035000i 0.612126i 1.034094i 0.613937i 1.032283i 0.616654i 1.030472i 0.620276i \
+  1.029567i 0.622087i 1.028661i 0.622992i 1.028661i 0.624803i 1.028661i 0.628425i \
+  1.029567i 0.631142i 1.030472i 0.632953i 1.030472i 0.633858i 1.031378i 0.633858i \
+  1.032283i 0.635669i 1.035906i 0.637480i 1.040433i 0.639291i 1.043150i 0.640197i \
+  1.044055i 0.640197i 1.046772i 0.640197i -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 1.103819i 0.441890i 1.104724i 0.447323i 1.104724i 0.449134i \
+  1.105630i 0.450039i 1.105630i 0.451850i 1.107441i 0.456378i 1.109252i 0.460000i \
+  1.110157i 0.460906i 1.114685i 0.464528i 1.121024i 0.469961i 1.124646i 0.472677i \
+  1.127362i 0.474488i 1.131890i 0.477205i 1.140039i 0.484449i 1.148189i 0.490787i \
+  1.151811i 0.493504i 1.152717i 0.494409i 1.156339i 0.498031i 1.161772i 0.504370i \
+  1.166299i 0.511614i 1.168110i 0.514331i 1.168110i 0.515236i 1.169016i 0.517953i \
+  1.170827i 0.525197i 1.171732i 0.532441i 1.171732i 0.535157i 1.170827i 0.538780i \
+  1.169016i 0.547835i 1.166299i 0.557795i 1.163583i 0.564134i 1.161772i 0.568661i \
+  1.160866i 0.572283i 1.158150i 0.577717i 1.155433i 0.584961i 1.155433i 0.585866i \
+  1.154528i 0.586772i 1.154528i 0.587677i 1.153622i 0.588583i 1.153622i 0.589488i \
+  1.152717i 0.590394i 1.152717i 0.589488i 1.152717i 0.588583i 1.152717i 0.587677i \
+  1.152717i 0.586772i 1.153622i 0.586772i 1.153622i 0.585866i 1.153622i 0.584961i \
+  1.155433i 0.578622i 1.157244i 0.574094i 1.159055i 0.570472i 1.159961i 0.566850i \
+  1.161772i 0.561417i 1.164488i 0.553268i 1.166299i 0.545118i 1.168110i 0.542402i \
+  1.169016i 0.539685i 1.168110i 0.532441i 1.166299i 0.524291i 1.165394i 0.520669i \
+  1.164488i 0.519764i 1.161772i 0.516142i 1.156339i 0.507992i 1.150000i 0.501654i \
+  1.146378i 0.498031i 1.144567i 0.496220i 1.142756i 0.495315i 1.138228i 0.492598i \
+  1.130079i 0.487165i 1.121024i 0.481732i 1.116496i 0.479921i 1.113780i 0.479016i \
+  1.110157i 0.477205i 1.103819i 0.474488i 1.102913i 0.474488i 1.102008i 0.473583i \
+  1.101102i 0.473583i 1.100197i 0.473583i 1.099291i 0.473583i 1.099291i 0.474488i \
+  1.099291i 0.475394i 1.099291i 0.476299i 1.099291i 0.477205i 1.099291i 0.478110i \
+  1.100197i 0.479016i 1.100197i 0.479921i 1.100197i 0.480827i 1.100197i 0.479921i \
+  1.100197i 0.479016i 1.100197i 0.478110i 1.100197i 0.477205i 1.100197i 0.475394i \
+  1.100197i 0.474488i 1.100197i 0.464528i 1.101102i 0.455472i 1.101102i 0.447323i \
+  1.102008i 0.440079i 1.102008i 0.431929i 1.102913i 0.423780i 1.103819i 0.421969i \
+  1.103819i 0.424685i 1.102913i 0.430118i 1.102913i 0.435551i -outline {} -fill $tkxox(score_active_note) \
   -width 0
-${score} create polygon 3.678442i 0.104167i 3.679348i 0.109601i 3.680254i \
-  0.111413i 3.680254i 0.112319i 3.681159i 0.114130i 3.682971i 0.118659i \
-  3.684783i 0.122283i 3.684783i 0.123188i 3.684783i 0.122283i 3.685688i \
-  0.123188i 3.690217i 0.127717i 3.696558i 0.133152i 3.700181i 0.135870i \
-  3.701993i 0.137681i 3.706522i 0.140399i 3.714674i 0.147645i 3.722826i \
-  0.153986i 3.725543i 0.157609i 3.727355i 0.158514i 3.730978i 0.161232i \
-  3.736413i 0.167572i 3.740942i 0.173913i 3.742754i 0.175725i 3.743659i \
-  0.176630i 3.744565i 0.179348i 3.746377i 0.185688i 3.747283i 0.192935i \
-  3.747283i 0.195652i 3.747283i 0.196558i 3.746377i 0.200181i 3.744565i \
-  0.210145i 3.741848i 0.220109i 3.739130i 0.226449i 3.737319i 0.230978i \
-  3.735507i 0.234601i 3.732790i 0.240036i 3.730072i 0.247283i 3.730072i \
-  0.248188i 3.729167i 0.249094i 3.729167i 0.250000i 3.728261i 0.250000i \
-  3.728261i 0.250906i 3.728261i 0.251812i 3.727355i 0.251812i 3.727355i \
-  0.252717i 3.727355i 0.251812i 3.727355i 0.250906i 3.727355i 0.250000i \
-  3.727355i 0.249094i 3.728261i 0.249094i 3.728261i 0.248188i 3.728261i \
-  0.247283i 3.730072i 0.241848i 3.731884i 0.237319i 3.733696i 0.233696i \
-  3.735507i 0.230072i 3.737319i 0.224638i 3.740036i 0.216486i 3.742754i \
-  0.208333i 3.743659i 0.204710i 3.744565i 0.203804i 3.744565i 0.201087i \
-  3.743659i 0.193841i 3.741848i 0.186594i 3.740036i 0.182971i 3.739130i \
-  0.182065i 3.737319i 0.178442i 3.730978i 0.171196i 3.724638i 0.164855i \
-  3.721014i 0.161232i 3.719203i 0.160326i 3.717391i 0.158514i 3.713768i \
-  0.155797i 3.705616i 0.150362i 3.696558i 0.144928i 3.692029i 0.142210i \
-  3.689312i 0.141304i 3.684783i 0.139493i 3.678442i 0.136775i 3.677536i \
-  0.136775i 3.676630i 0.135870i 3.675725i 0.135870i 3.674819i 0.135870i \
-  3.673913i 0.135870i 3.673007i 0.135870i 3.673007i 0.136775i 3.673007i \
-  0.137681i 3.673007i 0.138587i 3.673007i 0.139493i 3.673007i 0.140399i \
-  3.673007i 0.141304i 3.673007i 0.142210i 3.673913i 0.142210i 3.673007i \
-  0.142210i 3.673007i 0.141304i 3.673007i 0.140399i 3.673007i 0.139493i \
-  3.673007i 0.138587i 3.673007i 0.136775i 3.673007i 0.126812i 3.673913i \
-  0.117754i 3.674819i 0.110507i 3.675725i 0.103261i 3.676630i 0.094203i \
-  3.677536i 0.086957i 3.678442i 0.085145i 3.678442i 0.087862i 3.677536i \
-  0.092391i 3.677536i 0.097826i 3.678442i 0.104167i -outline $tkxox(score_active_note) -fill \
+${score} create polygon 1.103819i 0.441890i 1.104724i 0.447323i 1.104724i 0.449134i \
+  1.105630i 0.450039i 1.105630i 0.451850i 1.107441i 0.456378i 1.109252i 0.460000i \
+  1.110157i 0.460906i 1.114685i 0.464528i 1.121024i 0.469961i 1.124646i 0.472677i \
+  1.127362i 0.474488i 1.131890i 0.477205i 1.140039i 0.484449i 1.148189i 0.490787i \
+  1.151811i 0.493504i 1.152717i 0.494409i 1.156339i 0.498031i 1.161772i 0.504370i \
+  1.166299i 0.511614i 1.168110i 0.514331i 1.168110i 0.515236i 1.169016i 0.517953i \
+  1.170827i 0.525197i 1.171732i 0.532441i 1.171732i 0.535157i 1.170827i 0.538780i \
+  1.169016i 0.547835i 1.166299i 0.557795i 1.163583i 0.564134i 1.161772i 0.568661i \
+  1.160866i 0.572283i 1.158150i 0.577717i 1.155433i 0.584961i 1.155433i 0.585866i \
+  1.154528i 0.586772i 1.154528i 0.587677i 1.153622i 0.588583i 1.153622i 0.589488i \
+  1.152717i 0.590394i 1.152717i 0.589488i 1.152717i 0.588583i 1.152717i 0.587677i \
+  1.152717i 0.586772i 1.153622i 0.586772i 1.153622i 0.585866i 1.153622i 0.584961i \
+  1.155433i 0.578622i 1.157244i 0.574094i 1.159055i 0.570472i 1.159961i 0.566850i \
+  1.161772i 0.561417i 1.164488i 0.553268i 1.166299i 0.545118i 1.168110i 0.542402i \
+  1.169016i 0.539685i 1.168110i 0.532441i 1.166299i 0.524291i 1.165394i 0.520669i \
+  1.164488i 0.519764i 1.161772i 0.516142i 1.156339i 0.507992i 1.150000i 0.501654i \
+  1.146378i 0.498031i 1.144567i 0.496220i 1.142756i 0.495315i 1.138228i 0.492598i \
+  1.130079i 0.487165i 1.121024i 0.481732i 1.116496i 0.479921i 1.113780i 0.479016i \
+  1.110157i 0.477205i 1.103819i 0.474488i 1.102913i 0.474488i 1.102008i 0.473583i \
+  1.101102i 0.473583i 1.100197i 0.473583i 1.099291i 0.473583i 1.099291i 0.474488i \
+  1.099291i 0.475394i 1.099291i 0.476299i 1.099291i 0.477205i 1.099291i 0.478110i \
+  1.100197i 0.479016i 1.100197i 0.479921i 1.100197i 0.480827i 1.100197i 0.479921i \
+  1.100197i 0.479016i 1.100197i 0.478110i 1.100197i 0.477205i 1.100197i 0.475394i \
+  1.100197i 0.474488i 1.100197i 0.464528i 1.101102i 0.455472i 1.101102i 0.447323i \
+  1.102008i 0.440079i 1.102008i 0.431929i 1.102913i 0.423780i 1.103819i 0.421969i \
+  1.103819i 0.424685i 1.102913i 0.430118i 1.102913i 0.435551i -outline $tkxox(score_active_note) -fill \
   {}
-${score} create line 3.671196i 0.423007i 3.671196i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \
-  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \
-  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \
-  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \
-  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \
-  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \
-  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \
-  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \
-  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \
-  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \
-  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \
-  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \
-  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \
-  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \
-  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \
-  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \
-  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \
-  0.640399i 3.628623i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 3.628623i 0.640399i 3.635870i 0.639493i 3.639493i \
-  0.638587i 3.640399i 0.638587i 3.644022i 0.637681i 3.651268i 0.634964i \
-  3.658514i 0.632246i 3.661232i 0.630435i 3.662138i 0.629529i 3.664855i \
-  0.628623i 3.670290i 0.624094i 3.675725i 0.619565i 3.678442i 0.617754i \
-  3.679348i 0.616848i 3.681159i 0.614130i 3.682971i 0.609601i 3.682971i \
-  0.606884i 3.682065i 0.604167i 3.682065i 0.603261i 3.681159i 0.602355i \
-  3.680254i 0.601449i 3.679348i 0.600543i 3.677536i 0.598732i 3.673913i \
-  0.596920i 3.668478i 0.594203i 3.664855i 0.594203i 3.663043i 0.593297i \
-  3.659420i 0.593297i 3.652174i 0.593297i 3.644022i 0.594203i 3.640399i \
-  0.594203i 3.638587i 0.594203i 3.634964i 0.595109i 3.628623i 0.597826i \
-  3.623188i 0.600543i 3.620471i 0.602355i 3.620471i 0.603261i 3.618659i \
-  0.605072i 3.615036i 0.608696i 3.611413i 0.611413i 3.610507i 0.612319i \
-  3.609601i 0.612319i 3.608696i 0.614130i 3.606884i 0.616848i 3.605072i \
-  0.620471i 3.604167i 0.622283i 3.603261i 0.623188i 3.603261i 0.625000i \
-  3.603261i 0.628623i 3.604167i 0.631341i 3.605072i 0.633152i 3.605072i \
-  0.634058i 3.605978i 0.634058i 3.606884i 0.635870i 3.610507i 0.637681i \
-  3.615036i 0.639493i 3.617754i 0.640399i 3.618659i 0.640399i 3.622283i \
-  0.640399i 3.628623i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \
-  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \
-  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \
-  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \
-  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \
-  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \
-  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \
-  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \
-  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \
-  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \
-  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \
-  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \
-  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \
-  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \
-  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \
-  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \
-  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \
-  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \
-  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \
-  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \
-  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \
-  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \
-  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \
-  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \
-  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \
-  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \
-  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \
-  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \
-  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \
-  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \
-  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 3.678442i 0.442029i 3.679348i 0.447464i 3.680254i \
-  0.449275i 3.680254i 0.450181i 3.681159i 0.451993i 3.682971i 0.456522i \
-  3.684783i 0.460145i 3.685688i 0.461051i 3.690217i 0.464674i 3.696558i \
-  0.470109i 3.700181i 0.472826i 3.701993i 0.474638i 3.706522i 0.477355i \
-  3.714674i 0.484601i 3.722826i 0.490942i 3.725543i 0.493659i 3.727355i \
-  0.494565i 3.730978i 0.498188i 3.736413i 0.504529i 3.740942i 0.511775i \
-  3.742754i 0.514493i 3.743659i 0.515399i 3.744565i 0.518116i 3.746377i \
-  0.525362i 3.747283i 0.532609i 3.747283i 0.535326i 3.746377i 0.538949i \
-  3.744565i 0.548007i 3.741848i 0.557971i 3.739130i 0.564312i 3.737319i \
-  0.568841i 3.735507i 0.572464i 3.732790i 0.577899i 3.730072i 0.585145i \
-  3.730072i 0.586051i 3.729167i 0.586957i 3.729167i 0.587862i 3.728261i \
-  0.587862i 3.728261i 0.588768i 3.728261i 0.589674i 3.727355i 0.589674i \
-  3.727355i 0.590580i 3.727355i 0.589674i 3.727355i 0.588768i 3.727355i \
-  0.587862i 3.727355i 0.586957i 3.728261i 0.586957i 3.728261i 0.586051i \
-  3.728261i 0.585145i 3.730072i 0.578804i 3.731884i 0.574275i 3.733696i \
-  0.570652i 3.735507i 0.567029i 3.737319i 0.561594i 3.740036i 0.553442i \
-  3.742754i 0.545290i 3.743659i 0.542572i 3.744565i 0.542572i 3.744565i \
-  0.539855i 3.743659i 0.532609i 3.741848i 0.524457i 3.740036i 0.520833i \
-  3.739130i 0.519928i 3.737319i 0.516304i 3.730978i 0.508152i 3.724638i \
-  0.501812i 3.721014i 0.498188i 3.719203i 0.496377i 3.717391i 0.495471i \
-  3.713768i 0.492754i 3.705616i 0.487319i 3.696558i 0.481884i 3.692029i \
-  0.480072i 3.689312i 0.479167i 3.684783i 0.477355i 3.678442i 0.474638i \
-  3.677536i 0.474638i 3.676630i 0.473732i 3.675725i 0.473732i 3.674819i \
-  0.473732i 3.673913i 0.473732i 3.673007i 0.474638i 3.673007i 0.475543i \
-  3.673007i 0.476449i 3.673007i 0.477355i 3.673007i 0.478261i 3.673007i \
-  0.479167i 3.673007i 0.480072i 3.673913i 0.480978i 3.673007i 0.480978i \
-  3.673007i 0.480072i 3.673007i 0.479167i 3.673007i 0.478261i 3.673007i \
-  0.477355i 3.673007i 0.476449i 3.673007i 0.474638i 3.673007i 0.464674i \
-  3.673913i 0.455616i 3.674819i 0.447464i 3.675725i 0.440217i 3.676630i \
-  0.432065i 3.677536i 0.423913i 3.678442i 0.422101i 3.678442i 0.424819i \
-  3.677536i 0.430254i 3.677536i 0.435688i 3.678442i 0.442029i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 3.712862i 1.060688i 3.712862i 1.264493i -fill $tkxox(score_active_note)
-${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \
-  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \
-  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \
-  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \
-  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \
-  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \
-  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \
-  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \
-  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \
-  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \
-  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \
-  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \
-  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \
-  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \
-  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \
-  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \
-  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 3.667572i 1.307065i 3.675725i 1.306159i 3.679348i \
-  1.306159i 3.681159i 1.305254i 3.684783i 1.304348i 3.692935i 1.301630i \
-  3.700181i 1.298007i 3.702899i 1.296196i 3.703804i 1.296196i 3.705616i \
-  1.293478i 3.711051i 1.288949i 3.715580i 1.283514i 3.718297i 1.281703i \
-  3.720109i 1.280797i 3.721014i 1.278080i 3.722826i 1.272645i 3.722826i \
-  1.269022i 3.722826i 1.266304i 3.721920i 1.265399i 3.721920i 1.264493i \
-  3.721014i 1.263587i 3.720109i 1.262681i 3.718297i 1.260870i 3.715580i \
-  1.258152i 3.710145i 1.255435i 3.707428i 1.253623i 3.705616i 1.253623i \
-  3.702899i 1.252717i 3.694746i 1.252717i 3.686594i 1.253623i 3.682065i \
-  1.254529i 3.679348i 1.255435i 3.675725i 1.257246i 3.667572i 1.259964i \
-  3.661232i 1.262681i 3.658514i 1.263587i 3.657609i 1.264493i 3.656703i \
-  1.266304i 3.652174i 1.269022i 3.648551i 1.272645i 3.647645i 1.273551i \
-  3.646739i 1.275362i 3.644928i 1.278986i 3.643116i 1.283514i 3.643116i \
-  1.285326i 3.642210i 1.287138i 3.642210i 1.288949i 3.642210i 1.293478i \
-  3.643116i 1.298007i 3.643116i 1.299819i 3.643116i 1.300725i 3.644022i \
-  1.301630i 3.647645i 1.304348i 3.652174i 1.306159i 3.654891i 1.307065i \
-  3.656703i 1.307065i 3.660326i 1.307065i 3.667572i 1.307065i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 3.066123i 0.423007i 3.066123i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \
-  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \
-  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \
-  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \
-  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \
-  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \
-  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \
-  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \
-  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \
-  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \
-  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \
-  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \
-  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \
-  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \
-  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \
-  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \
-  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \
-  0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 3.024457i 0.640399i 3.031703i 0.639493i 3.035326i \
-  0.638587i 3.036232i 0.638587i 3.039855i 0.637681i 3.047101i 0.634964i \
-  3.053442i 0.632246i 3.056159i 0.630435i 3.057971i 0.629529i 3.059783i \
-  0.628623i 3.065217i 0.624094i 3.069746i 0.619565i 3.072464i 0.617754i \
-  3.073370i 0.616848i 3.074275i 0.614130i 3.076087i 0.609601i 3.076087i \
-  0.606884i 3.076087i 0.604167i 3.075181i 0.603261i 3.075181i 0.602355i \
-  3.074275i 0.601449i 3.073370i 0.600543i 3.071558i 0.598732i 3.068841i \
-  0.596920i 3.063406i 0.594203i 3.060688i 0.594203i 3.058877i 0.593297i \
-  3.055254i 0.593297i 3.048007i 0.593297i 3.040761i 0.594203i 3.036232i \
-  0.594203i 3.034420i 0.594203i 3.031703i 0.595109i 3.024457i 0.597826i \
-  3.018116i 0.600543i 3.016304i 0.602355i 3.015399i 0.603261i 3.013587i \
-  0.605072i 3.009964i 0.608696i 3.006341i 0.611413i 3.005435i 0.612319i \
-  3.004529i 0.612319i 3.003623i 0.614130i 3.001812i 0.616848i 3.000000i \
-  0.620471i 2.999094i 0.622283i 2.999094i 0.623188i 2.999094i 0.625000i \
-  2.999094i 0.628623i 3.000000i 0.632246i 3.000000i 0.633152i 3.000906i \
-  0.634058i 3.001812i 0.634964i 3.005435i 0.637681i 3.009964i 0.639493i \
-  3.012681i 0.640399i 3.014493i 0.640399i 3.017210i 0.640399i 3.024457i \
-  0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \
-  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \
-  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \
-  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \
-  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \
-  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \
-  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \
-  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \
-  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \
-  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \
-  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \
-  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \
-  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \
-  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \
-  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \
-  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \
-  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \
-  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \
-  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \
-  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \
-  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \
-  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \
-  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \
-  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \
-  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \
-  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \
-  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \
-  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \
-  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \
-  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \
-  3.070652i 0.435688i 3.071558i 0.442029i -outline {} -fill $tkxox(score_active_note) -width \
-  0
-${score} create polygon 3.071558i 0.442029i 3.072464i 0.447464i 3.073370i \
-  0.449275i 3.073370i 0.450181i 3.074275i 0.451993i 3.076087i 0.456522i \
-  3.077899i 0.460145i 3.078804i 0.461051i 3.083333i 0.464674i 3.089674i \
-  0.470109i 3.093297i 0.472826i 3.096014i 0.474638i 3.100543i 0.477355i \
-  3.108696i 0.484601i 3.115942i 0.490942i 3.119565i 0.493659i 3.121377i \
-  0.494565i 3.124094i 0.498188i 3.129529i 0.504529i 3.134058i 0.511775i \
-  3.135870i 0.514493i 3.136775i 0.515399i 3.137681i 0.518116i 3.139493i \
-  0.525362i 3.140399i 0.532609i 3.140399i 0.535326i 3.139493i 0.538949i \
-  3.137681i 0.548007i 3.134964i 0.557971i 3.132246i 0.564312i 3.130435i \
-  0.568841i 3.128623i 0.572464i 3.125906i 0.577899i 3.123188i 0.585145i \
-  3.123188i 0.586051i 3.122283i 0.586957i 3.122283i 0.587862i 3.121377i \
-  0.587862i 3.121377i 0.588768i 3.121377i 0.589674i 3.120471i 0.589674i \
-  3.120471i 0.590580i 3.120471i 0.589674i 3.120471i 0.588768i 3.120471i \
-  0.587862i 3.120471i 0.586957i 3.121377i 0.586957i 3.121377i 0.586051i \
-  3.121377i 0.585145i 3.123188i 0.578804i 3.125000i 0.574275i 3.126812i \
-  0.570652i 3.128623i 0.567029i 3.130435i 0.561594i 3.133152i 0.553442i \
-  3.135870i 0.545290i 3.136775i 0.542572i 3.137681i 0.542572i 3.137681i \
-  0.539855i 3.136775i 0.532609i 3.134964i 0.524457i 3.133152i 0.520833i \
-  3.132246i 0.519928i 3.130435i 0.516304i 3.124094i 0.508152i 3.117754i \
-  0.501812i 3.114130i 0.498188i 3.112319i 0.496377i 3.110507i 0.495471i \
-  3.106884i 0.492754i 3.098732i 0.487319i 3.089674i 0.481884i 3.085145i \
-  0.480072i 3.082428i 0.479167i 3.077899i 0.477355i 3.071558i 0.474638i \
-  3.070652i 0.474638i 3.069746i 0.473732i 3.068841i 0.473732i 3.067935i \
-  0.473732i 3.067029i 0.473732i 3.067029i 0.474638i 3.067029i 0.475543i \
-  3.067029i 0.476449i 3.067029i 0.477355i 3.067029i 0.478261i 3.067935i \
-  0.479167i 3.067935i 0.480072i 3.067935i 0.480978i 3.067935i 0.480072i \
-  3.067935i 0.479167i 3.067935i 0.478261i 3.067935i 0.477355i 3.067935i \
-  0.475543i 3.067935i 0.474638i 3.067935i 0.464674i 3.068841i 0.455616i \
-  3.068841i 0.447464i 3.069746i 0.440217i 3.069746i 0.432065i 3.070652i \
-  0.423913i 3.071558i 0.422101i 3.070652i 0.424819i 3.070652i 0.430254i \
-  3.070652i 0.435688i 3.071558i 0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 2.309783i 0.423007i 2.309783i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \
-  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \
-  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \
-  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \
-  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \
-  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \
-  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \
-  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \
-  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \
-  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \
-  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \
-  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \
-  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \
-  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \
-  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \
-  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \
-  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 2.267210i 0.640399i 2.274457i 0.639493i 2.278080i \
-  0.638587i 2.278986i 0.638587i 2.282609i 0.637681i 2.289855i 0.634964i \
-  2.297101i 0.632246i 2.299819i 0.630435i 2.300725i 0.629529i 2.303442i \
-  0.628623i 2.308877i 0.624094i 2.313406i 0.619565i 2.315217i 0.617754i \
-  2.316123i 0.616848i 2.317935i 0.614130i 2.318841i 0.609601i 2.318841i \
-  0.606884i 2.318841i 0.604167i 2.318841i 0.603261i 2.318841i 0.602355i \
-  2.317935i 0.601449i 2.317029i 0.600543i 2.315217i 0.598732i 2.312500i \
-  0.596920i 2.307065i 0.594203i 2.303442i 0.594203i 2.301630i 0.593297i \
-  2.298007i 0.593297i 2.289855i 0.593297i 2.282609i 0.594203i 2.278986i \
-  0.594203i 2.277174i 0.594203i 2.274457i 0.595109i 2.267210i 0.597826i \
-  2.260870i 0.600543i 2.258152i 0.602355i 2.257246i 0.603261i 2.255435i \
-  0.605072i 2.250906i 0.608696i 2.247283i 0.611413i 2.246377i 0.612319i \
-  2.245471i 0.614130i 2.243659i 0.616848i 2.241848i 0.620471i 2.240942i \
-  0.622283i 2.240036i 0.623188i 2.240036i 0.625000i 2.240036i 0.628623i \
-  2.240942i 0.631341i 2.241848i 0.633152i 2.241848i 0.634058i 2.243659i \
-  0.635870i 2.247283i 0.637681i 2.252717i 0.639493i 2.255435i 0.640399i \
-  2.256341i 0.640399i 2.259964i 0.640399i 2.267210i 0.640399i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \
-  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \
-  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \
-  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \
-  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \
-  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \
-  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \
-  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \
-  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \
-  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \
-  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \
-  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \
-  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \
-  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \
-  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \
-  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \
-  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \
-  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \
-  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \
-  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \
-  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \
-  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \
-  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \
-  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \
-  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \
-  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \
-  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \
-  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \
-  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \
-  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \
-  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 2.315217i 0.442029i 2.316123i 0.447464i 2.316123i \
-  0.449275i 2.316123i 0.450181i 2.317029i 0.451993i 2.318841i 0.456522i \
-  2.320652i 0.460145i 2.321558i 0.460145i 2.322464i 0.461051i 2.326993i \
-  0.464674i 2.333333i 0.470109i 2.336957i 0.472826i 2.339674i 0.474638i \
-  2.343297i 0.477355i 2.351449i 0.484601i 2.359601i 0.490942i 2.362319i \
-  0.493659i 2.364130i 0.494565i 2.367754i 0.498188i 2.373188i 0.504529i \
-  2.377717i 0.511775i 2.379529i 0.514493i 2.379529i 0.515399i 2.380435i \
-  0.518116i 2.382246i 0.525362i 2.383152i 0.532609i 2.384058i 0.535326i \
-  2.383152i 0.538949i 2.381341i 0.548007i 2.378623i 0.557971i 2.375906i \
-  0.564312i 2.374094i 0.568841i 2.372283i 0.572464i 2.369565i 0.577899i \
-  2.366848i 0.585145i 2.366848i 0.586051i 2.365942i 0.586957i 2.365942i \
-  0.587862i 2.365036i 0.587862i 2.365036i 0.588768i 2.365036i 0.589674i \
-  2.364130i 0.589674i 2.364130i 0.590580i 2.364130i 0.589674i 2.364130i \
-  0.588768i 2.364130i 0.587862i 2.364130i 0.586957i 2.365036i 0.586957i \
-  2.365036i 0.586051i 2.365036i 0.585145i 2.366848i 0.578804i 2.368659i \
-  0.574275i 2.370471i 0.570652i 2.372283i 0.567029i 2.374094i 0.561594i \
-  2.376812i 0.553442i 2.379529i 0.545290i 2.380435i 0.542572i 2.381341i \
-  0.542572i 2.381341i 0.539855i 2.380435i 0.532609i 2.378623i 0.524457i \
-  2.376812i 0.520833i 2.375906i 0.519928i 2.374094i 0.516304i 2.367754i \
-  0.508152i 2.361413i 0.501812i 2.357790i 0.498188i 2.355978i 0.496377i \
-  2.354167i 0.495471i 2.350543i 0.492754i 2.342391i 0.487319i 2.333333i \
-  0.481884i 2.328804i 0.480072i 2.326087i 0.479167i 2.321558i 0.477355i \
-  2.315217i 0.474638i 2.314312i 0.474638i 2.313406i 0.473732i 2.312500i \
-  0.473732i 2.311594i 0.473732i 2.310688i 0.473732i 2.310688i 0.474638i \
-  2.310688i 0.475543i 2.310688i 0.476449i 2.310688i 0.477355i 2.310688i \
-  0.478261i 2.311594i 0.479167i 2.311594i 0.480072i 2.311594i 0.480978i \
-  2.311594i 0.480072i 2.311594i 0.479167i 2.311594i 0.478261i 2.311594i \
-  0.477355i 2.311594i 0.475543i 2.311594i 0.474638i 2.311594i 0.464674i \
-  2.312500i 0.455616i 2.312500i 0.447464i 2.313406i 0.440217i 2.313406i \
-  0.432065i 2.314312i 0.423913i 2.315217i 0.422101i 2.315217i 0.424819i \
-  2.314312i 0.430254i 2.314312i 0.435688i 2.315217i 0.442029i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create line 2.309783i 0.086051i 2.309783i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \
-  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \
-  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \
-  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \
-  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \
-  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \
-  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \
-  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \
-  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \
-  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \
-  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \
-  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \
-  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \
-  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \
-  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \
-  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \
-  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 2.267210i 0.301630i 2.274457i 0.300725i 2.278080i \
-  0.300725i 2.278986i 0.300725i 2.282609i 0.299819i 2.289855i 0.298007i \
-  2.297101i 0.295290i 2.299819i 0.293478i 2.300725i 0.293478i 2.303442i \
-  0.291667i 2.308877i 0.287138i 2.313406i 0.282609i 2.315217i 0.280797i \
-  2.316123i 0.279891i 2.317935i 0.277174i 2.318841i 0.272645i 2.318841i \
-  0.269928i 2.318841i 0.267210i 2.318841i 0.266304i 2.318841i 0.265399i \
-  2.317935i 0.264493i 2.317029i 0.263587i 2.315217i 0.261775i 2.312500i \
-  0.259964i 2.307065i 0.257246i 2.303442i 0.256341i 2.301630i 0.256341i \
-  2.298007i 0.255435i 2.289855i 0.255435i 2.282609i 0.256341i 2.278986i \
-  0.256341i 2.277174i 0.257246i 2.274457i 0.258152i 2.267210i 0.260870i \
-  2.260870i 0.263587i 2.258152i 0.265399i 2.257246i 0.266304i 2.255435i \
-  0.268116i 2.250906i 0.271739i 2.247283i 0.274457i 2.246377i 0.275362i \
-  2.245471i 0.276268i 2.243659i 0.278986i 2.241848i 0.282609i 2.240942i \
-  0.284420i 2.240036i 0.285326i 2.240036i 0.287138i 2.240036i 0.290761i \
-  2.240942i 0.294384i 2.241848i 0.296196i 2.241848i 0.297101i 2.243659i \
-  0.298913i 2.247283i 0.300725i 2.252717i 0.302536i 2.255435i 0.302536i \
-  2.256341i 0.302536i 2.259964i 0.301630i 2.267210i 0.301630i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \
-  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \
-  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \
-  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \
-  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \
-  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \
-  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \
-  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \
-  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \
-  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \
-  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \
-  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \
-  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \
-  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \
-  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \
-  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \
-  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \
-  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \
-  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \
-  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \
-  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \
-  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \
-  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \
-  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \
-  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \
-  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \
-  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \
-  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \
-  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \
-  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \
-  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \
-  0.104167i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 2.315217i 0.104167i 2.316123i 0.109601i 2.316123i \
-  0.111413i 2.316123i 0.112319i 2.317029i 0.114130i 2.318841i 0.118659i \
-  2.320652i 0.122283i 2.321558i 0.123188i 2.321558i 0.122283i 2.322464i \
-  0.123188i 2.326993i 0.127717i 2.333333i 0.133152i 2.336957i 0.135870i \
-  2.339674i 0.137681i 2.343297i 0.140399i 2.351449i 0.147645i 2.359601i \
-  0.153986i 2.362319i 0.157609i 2.364130i 0.158514i 2.367754i 0.161232i \
-  2.373188i 0.167572i 2.377717i 0.173913i 2.379529i 0.175725i 2.379529i \
-  0.176630i 2.380435i 0.179348i 2.382246i 0.185688i 2.383152i 0.192935i \
-  2.384058i 0.195652i 2.384058i 0.196558i 2.383152i 0.200181i 2.381341i \
-  0.210145i 2.378623i 0.220109i 2.375906i 0.226449i 2.374094i 0.230978i \
-  2.372283i 0.234601i 2.369565i 0.240036i 2.366848i 0.247283i 2.366848i \
-  0.248188i 2.365942i 0.249094i 2.365942i 0.250000i 2.365036i 0.250000i \
-  2.365036i 0.250906i 2.365036i 0.251812i 2.364130i 0.251812i 2.364130i \
-  0.252717i 2.364130i 0.251812i 2.364130i 0.250906i 2.364130i 0.250000i \
-  2.364130i 0.249094i 2.365036i 0.249094i 2.365036i 0.248188i 2.365036i \
-  0.247283i 2.366848i 0.241848i 2.368659i 0.237319i 2.370471i 0.233696i \
-  2.372283i 0.230072i 2.374094i 0.224638i 2.376812i 0.216486i 2.379529i \
-  0.208333i 2.380435i 0.204710i 2.381341i 0.203804i 2.381341i 0.201087i \
-  2.380435i 0.193841i 2.378623i 0.186594i 2.376812i 0.182971i 2.375906i \
-  0.182065i 2.374094i 0.178442i 2.367754i 0.171196i 2.361413i 0.164855i \
-  2.357790i 0.161232i 2.355978i 0.160326i 2.354167i 0.158514i 2.350543i \
-  0.155797i 2.342391i 0.150362i 2.333333i 0.144928i 2.328804i 0.142210i \
-  2.326087i 0.141304i 2.321558i 0.139493i 2.315217i 0.136775i 2.314312i \
-  0.136775i 2.313406i 0.135870i 2.312500i 0.135870i 2.311594i 0.135870i \
-  2.310688i 0.135870i 2.310688i 0.136775i 2.310688i 0.137681i 2.310688i \
-  0.138587i 2.310688i 0.139493i 2.310688i 0.140399i 2.311594i 0.140399i \
-  2.311594i 0.141304i 2.311594i 0.142210i 2.311594i 0.141304i 2.311594i \
-  0.140399i 2.311594i 0.139493i 2.311594i 0.137681i 2.311594i 0.136775i \
-  2.311594i 0.126812i 2.312500i 0.117754i 2.312500i 0.110507i 2.313406i \
-  0.103261i 2.313406i 0.094203i 2.314312i 0.086957i 2.315217i 0.085145i \
-  2.315217i 0.087862i 2.314312i 0.092391i 2.314312i 0.097826i 2.315217i \
-  0.104167i -outline $tkxox(score_active_note) -fill {}
-${score} create line 1.702899i 0.423007i 1.702899i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \
-  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \
-  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \
-  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \
-  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \
-  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \
-  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \
-  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \
-  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \
-  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \
-  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \
-  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \
-  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \
-  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \
-  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \
-  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \
-  1.660326i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.660326i 0.640399i 1.667572i 0.639493i 1.671196i \
-  0.638587i 1.673007i 0.638587i 1.676630i 0.637681i 1.683877i 0.634964i \
-  1.691123i 0.632246i 1.693841i 0.630435i 1.694746i 0.629529i 1.696558i \
-  0.628623i 1.701993i 0.624094i 1.706522i 0.619565i 1.708333i 0.617754i \
-  1.709239i 0.616848i 1.711051i 0.614130i 1.711957i 0.609601i 1.711957i \
-  0.605978i 1.711957i 0.603261i 1.711051i 0.602355i 1.711051i 0.601449i \
-  1.709239i 0.599638i 1.705616i 0.596920i 1.700181i 0.594203i 1.697464i \
-  0.594203i 1.695652i 0.593297i 1.692029i 0.593297i 1.684783i 0.593297i \
-  1.676630i 0.594203i 1.673007i 0.594203i 1.671196i 0.594203i 1.667572i \
-  0.595109i 1.660326i 0.597826i 1.653986i 0.600543i 1.652174i 0.602355i \
-  1.651268i 0.603261i 1.649457i 0.605072i 1.645833i 0.608696i 1.642210i \
-  0.611413i 1.641304i 0.612319i 1.640399i 0.614130i 1.638587i 0.616848i \
-  1.636775i 0.620471i 1.635870i 0.622283i 1.635870i 0.623188i 1.635870i \
-  0.625000i 1.635870i 0.628623i 1.636775i 0.632246i 1.637681i 0.633152i \
-  1.637681i 0.634058i 1.638587i 0.634964i 1.642210i 0.637681i 1.646739i \
-  0.639493i 1.649457i 0.640399i 1.650362i 0.640399i 1.653080i 0.640399i \
-  1.660326i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \
-  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \
-  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \
-  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \
-  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \
-  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \
-  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \
-  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \
-  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \
-  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \
-  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \
-  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \
-  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \
-  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \
-  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \
-  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \
-  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \
-  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \
-  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \
-  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \
-  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \
-  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \
-  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \
-  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \
-  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \
-  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \
-  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \
-  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \
-  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \
-  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \
-  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \
-  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.708333i 0.442029i 1.709239i 0.447464i 1.709239i \
-  0.449275i 1.709239i 0.450181i 1.710145i 0.451993i 1.711957i 0.456522i \
-  1.713768i 0.460145i 1.714674i 0.460145i 1.713768i 0.460145i 1.715580i \
-  0.461051i 1.720109i 0.464674i 1.726449i 0.470109i 1.730072i 0.472826i \
-  1.732790i 0.474638i 1.737319i 0.477355i 1.745471i 0.484601i 1.752717i \
-  0.490942i 1.756341i 0.493659i 1.758152i 0.494565i 1.760870i 0.498188i \
-  1.766304i 0.504529i 1.770833i 0.511775i 1.772645i 0.514493i 1.773551i \
-  0.515399i 1.774457i 0.518116i 1.776268i 0.525362i 1.777174i 0.532609i \
-  1.777174i 0.535326i 1.776268i 0.538949i 1.774457i 0.548007i 1.771739i \
-  0.557971i 1.769022i 0.564312i 1.767210i 0.568841i 1.765399i 0.572464i \
-  1.762681i 0.577899i 1.759964i 0.585145i 1.759964i 0.586051i 1.759058i \
-  0.586957i 1.759058i 0.587862i 1.758152i 0.587862i 1.758152i 0.588768i \
-  1.758152i 0.589674i 1.757246i 0.589674i 1.757246i 0.590580i 1.757246i \
-  0.589674i 1.757246i 0.588768i 1.757246i 0.587862i 1.757246i 0.586957i \
-  1.758152i 0.586957i 1.758152i 0.586051i 1.758152i 0.585145i 1.759964i \
-  0.578804i 1.761775i 0.574275i 1.763587i 0.570652i 1.765399i 0.567029i \
-  1.767210i 0.561594i 1.769928i 0.553442i 1.772645i 0.545290i 1.773551i \
-  0.542572i 1.774457i 0.542572i 1.774457i 0.539855i 1.773551i 0.532609i \
-  1.771739i 0.524457i 1.769928i 0.520833i 1.769022i 0.519928i 1.767210i \
-  0.516304i 1.760870i 0.508152i 1.754529i 0.501812i 1.750906i 0.498188i \
-  1.749094i 0.496377i 1.747283i 0.495471i 1.743659i 0.492754i 1.735507i \
-  0.487319i 1.726449i 0.481884i 1.721920i 0.480072i 1.719203i 0.479167i \
-  1.714674i 0.477355i 1.708333i 0.474638i 1.707428i 0.474638i 1.706522i \
-  0.473732i 1.705616i 0.473732i 1.704710i 0.473732i 1.703804i 0.473732i \
-  1.703804i 0.474638i 1.703804i 0.475543i 1.703804i 0.476449i 1.703804i \
-  0.477355i 1.703804i 0.478261i 1.704710i 0.479167i 1.704710i 0.480072i \
-  1.704710i 0.480978i 1.704710i 0.480072i 1.704710i 0.479167i 1.704710i \
-  0.478261i 1.704710i 0.477355i 1.704710i 0.475543i 1.704710i 0.474638i \
-  1.704710i 0.464674i 1.705616i 0.455616i 1.705616i 0.447464i 1.706522i \
-  0.440217i 1.706522i 0.432065i 1.707428i 0.423913i 1.708333i 0.422101i \
-  1.708333i 0.424819i 1.707428i 0.430254i 1.707428i 0.435688i 1.708333i \
-  0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 1.098732i 0.086051i 1.098732i 0.266304i -fill $tkxox(score_active_note)
-${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \
-  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \
-  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \
-  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \
-  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \
-  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \
-  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \
-  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \
-  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \
-  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \
-  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \
-  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \
-  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \
-  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \
-  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \
-  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \
-  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.054348i 0.301630i 1.061594i 0.300725i 1.065217i \
-  0.300725i 1.067029i 0.300725i 1.071558i 0.299819i 1.078804i 0.298007i \
-  1.086051i 0.295290i 1.088768i 0.293478i 1.089674i 0.293478i 1.092391i \
-  0.291667i 1.097826i 0.287138i 1.102355i 0.282609i 1.104167i 0.280797i \
-  1.105072i 0.279891i 1.106884i 0.277174i 1.107790i 0.272645i 1.107790i \
-  0.269022i 1.107790i 0.266304i 1.106884i 0.265399i 1.106884i 0.264493i \
-  1.105072i 0.262681i 1.101449i 0.259964i 1.096014i 0.257246i 1.093297i \
-  0.256341i 1.091486i 0.256341i 1.087862i 0.255435i 1.079710i 0.255435i \
-  1.071558i 0.256341i 1.067029i 0.256341i 1.065217i 0.257246i 1.061594i \
-  0.258152i 1.054348i 0.260870i 1.048007i 0.263587i 1.046196i 0.265399i \
-  1.046196i 0.266304i 1.044384i 0.268116i 1.040761i 0.271739i 1.037138i \
-  0.274457i 1.036232i 0.275362i 1.035326i 0.275362i 1.034420i 0.276268i \
-  1.032609i 0.278986i 1.030797i 0.282609i 1.029891i 0.284420i 1.028986i \
-  0.285326i 1.028986i 0.287138i 1.028986i 0.290761i 1.029891i 0.294384i \
-  1.030797i 0.296196i 1.030797i 0.297101i 1.031703i 0.297101i 1.032609i \
-  0.298913i 1.036232i 0.300725i 1.040761i 0.302536i 1.043478i 0.302536i \
-  1.044384i 0.302536i 1.047101i 0.301630i 1.054348i 0.301630i -outline $tkxox(score_active_note) \
-  -fill {}
-${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \
-  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \
-  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \
-  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \
-  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \
-  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \
-  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \
-  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \
-  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \
-  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \
-  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \
-  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \
-  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \
-  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \
-  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \
-  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \
-  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \
-  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \
-  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \
-  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \
-  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \
-  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \
-  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \
-  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \
-  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \
-  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \
-  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \
-  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \
-  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \
-  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \
-  1.103261i 0.097826i 1.104167i 0.104167i -outline {} -fill $tkxox(score_active_note) -width \
-  0
-${score} create polygon 1.104167i 0.104167i 1.105072i 0.109601i 1.105072i \
-  0.111413i 1.105978i 0.112319i 1.105978i 0.114130i 1.107790i 0.118659i \
-  1.109601i 0.122283i 1.109601i 0.123188i 1.109601i 0.122283i 1.110507i \
-  0.123188i 1.115036i 0.127717i 1.121377i 0.133152i 1.125000i 0.135870i \
-  1.127717i 0.137681i 1.132246i 0.140399i 1.140399i 0.147645i 1.148551i \
-  0.153986i 1.152174i 0.157609i 1.153080i 0.158514i 1.156703i 0.161232i \
-  1.162138i 0.167572i 1.166667i 0.173913i 1.168478i 0.175725i 1.168478i \
-  0.176630i 1.169384i 0.179348i 1.171196i 0.185688i 1.172101i 0.192935i \
-  1.172101i 0.195652i 1.172101i 0.196558i 1.171196i 0.200181i 1.169384i \
-  0.210145i 1.166667i 0.220109i 1.163949i 0.226449i 1.162138i 0.230978i \
-  1.161232i 0.234601i 1.158514i 0.240036i 1.155797i 0.247283i 1.155797i \
-  0.248188i 1.154891i 0.249094i 1.154891i 0.250000i 1.153986i 0.250906i \
-  1.153986i 0.251812i 1.153080i 0.252717i 1.153080i 0.251812i 1.153080i \
-  0.250906i 1.153080i 0.250000i 1.153080i 0.249094i 1.153986i 0.249094i \
-  1.153986i 0.248188i 1.153986i 0.247283i 1.155797i 0.241848i 1.157609i \
-  0.237319i 1.159420i 0.233696i 1.160326i 0.230072i 1.162138i 0.224638i \
-  1.164855i 0.216486i 1.166667i 0.208333i 1.168478i 0.204710i 1.168478i \
-  0.203804i 1.169384i 0.201087i 1.168478i 0.193841i 1.166667i 0.186594i \
-  1.165761i 0.182971i 1.164855i 0.182065i 1.162138i 0.178442i 1.156703i \
-  0.171196i 1.150362i 0.164855i 1.146739i 0.161232i 1.144928i 0.160326i \
-  1.143116i 0.158514i 1.138587i 0.155797i 1.130435i 0.150362i 1.121377i \
-  0.144928i 1.116848i 0.142210i 1.114130i 0.141304i 1.110507i 0.139493i \
-  1.104167i 0.136775i 1.103261i 0.136775i 1.102355i 0.135870i 1.101449i \
-  0.135870i 1.100543i 0.135870i 1.099638i 0.135870i 1.099638i 0.136775i \
-  1.099638i 0.137681i 1.099638i 0.138587i 1.099638i 0.139493i 1.099638i \
-  0.140399i 1.100543i 0.140399i 1.100543i 0.141304i 1.100543i 0.142210i \
-  1.100543i 0.141304i 1.100543i 0.140399i 1.100543i 0.139493i 1.100543i \
-  0.137681i 1.100543i 0.136775i 1.100543i 0.126812i 1.101449i 0.117754i \
-  1.101449i 0.110507i 1.102355i 0.103261i 1.102355i 0.094203i 1.103261i \
-  0.086957i 1.104167i 0.085145i 1.104167i 0.087862i 1.103261i 0.092391i \
-  1.103261i 0.097826i 1.104167i 0.104167i -outline $tkxox(score_active_note) -fill {}
-${score} create line 1.098732i 0.423007i 1.098732i 0.602355i -fill $tkxox(score_active_note)
-${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \
-  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \
-  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \
-  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \
-  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \
-  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \
-  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \
-  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \
-  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \
-  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \
-  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \
-  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \
-  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \
-  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \
-  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \
-  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \
-  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline {} \
-  -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.054348i 0.640399i 1.061594i 0.639493i 1.065217i \
-  0.638587i 1.067029i 0.638587i 1.071558i 0.637681i 1.078804i 0.634964i \
-  1.086051i 0.632246i 1.088768i 0.630435i 1.089674i 0.629529i 1.092391i \
-  0.628623i 1.097826i 0.624094i 1.102355i 0.619565i 1.104167i 0.617754i \
-  1.105072i 0.616848i 1.106884i 0.614130i 1.107790i 0.609601i 1.107790i \
-  0.605978i 1.107790i 0.603261i 1.106884i 0.602355i 1.106884i 0.601449i \
-  1.105072i 0.599638i 1.101449i 0.596920i 1.096014i 0.594203i 1.093297i \
-  0.594203i 1.091486i 0.593297i 1.087862i 0.593297i 1.079710i 0.593297i \
-  1.071558i 0.594203i 1.067029i 0.594203i 1.065217i 0.594203i 1.061594i \
-  0.595109i 1.054348i 0.597826i 1.048007i 0.600543i 1.046196i 0.602355i \
-  1.046196i 0.603261i 1.044384i 0.605072i 1.040761i 0.608696i 1.037138i \
-  0.611413i 1.036232i 0.612319i 1.035326i 0.612319i 1.034420i 0.614130i \
-  1.032609i 0.616848i 1.030797i 0.620471i 1.029891i 0.622283i 1.028986i \
-  0.623188i 1.028986i 0.625000i 1.028986i 0.628623i 1.029891i 0.631341i \
-  1.030797i 0.633152i 1.030797i 0.634058i 1.031703i 0.634058i 1.032609i \
-  0.635870i 1.036232i 0.637681i 1.040761i 0.639493i 1.043478i 0.640399i \
-  1.044384i 0.640399i 1.047101i 0.640399i 1.054348i 0.640399i -outline $tkxox(score_active_note) \
+${score} create line 1.101102i 0.721693i 1.101102i 0.927244i -fill $tkxox(score_active_note)
+${score} create polygon 1.054921i 0.967992i 1.063071i 0.967087i 1.066693i 0.967087i \
+  1.068504i 0.967087i 1.072126i 0.966181i 1.080276i 0.963465i 1.087520i 0.959843i \
+  1.090236i 0.958937i 1.091142i 0.958031i 1.093858i 0.955315i 1.099291i 0.950787i \
+  1.103819i 0.945354i 1.106535i 0.943543i 1.107441i 0.942638i 1.108346i 0.939921i \
+  1.110157i 0.934488i 1.110157i 0.930866i 1.110157i 0.928150i 1.110157i 0.927244i \
+  1.110157i 0.926339i 1.109252i 0.925433i 1.108346i 0.924528i 1.106535i 0.922717i \
+  1.103819i 0.920000i 1.098386i 0.917283i 1.095669i 0.916378i 1.093858i 0.916378i \
+  1.090236i 0.916378i 1.082087i 0.916378i 1.073031i 0.917283i 1.069409i 0.918189i \
+  1.066693i 0.918189i 1.062165i 0.919094i 1.054921i 0.921811i 1.048583i 0.924528i \
+  1.046772i 0.925433i 1.045866i 0.926339i 1.044055i 0.927244i 1.040433i 0.930866i \
+  1.036811i 0.934488i 1.035906i 0.935394i 1.035000i 0.936299i 1.034094i 0.937205i \
+  1.032283i 0.941732i 1.030472i 0.946260i 1.029567i 0.948071i 1.028661i 0.949882i \
+  1.028661i 0.951693i 1.028661i 0.956220i 1.029567i 0.960748i 1.030472i 0.962559i \
+  1.030472i 0.963465i 1.032283i 0.964370i 1.035906i 0.967087i 1.040433i 0.968898i \
+  1.043150i 0.968898i 1.044961i 0.968898i 1.047677i 0.967992i -outline {} -fill $tkxox(score_active_note) \
+  -width 0
+${score} create polygon 1.054921i 0.967992i 1.063071i 0.967087i 1.066693i 0.967087i \
+  1.068504i 0.967087i 1.072126i 0.966181i 1.080276i 0.963465i 1.087520i 0.959843i \
+  1.090236i 0.958937i 1.091142i 0.958031i 1.093858i 0.955315i 1.099291i 0.950787i \
+  1.103819i 0.945354i 1.106535i 0.943543i 1.107441i 0.942638i 1.108346i 0.939921i \
+  1.110157i 0.934488i 1.110157i 0.930866i 1.110157i 0.928150i 1.110157i 0.927244i \
+  1.110157i 0.926339i 1.109252i 0.925433i 1.108346i 0.924528i 1.106535i 0.922717i \
+  1.103819i 0.920000i 1.098386i 0.917283i 1.095669i 0.916378i 1.093858i 0.916378i \
+  1.090236i 0.916378i 1.082087i 0.916378i 1.073031i 0.917283i 1.069409i 0.918189i \
+  1.066693i 0.918189i 1.062165i 0.919094i 1.054921i 0.921811i 1.048583i 0.924528i \
+  1.046772i 0.925433i 1.045866i 0.926339i 1.044055i 0.927244i 1.040433i 0.930866i \
+  1.036811i 0.934488i 1.035906i 0.935394i 1.035000i 0.936299i 1.034094i 0.937205i \
+  1.032283i 0.941732i 1.030472i 0.946260i 1.029567i 0.948071i 1.028661i 0.949882i \
+  1.028661i 0.951693i 1.028661i 0.956220i 1.029567i 0.960748i 1.030472i 0.962559i \
+  1.030472i 0.963465i 1.032283i 0.964370i 1.035906i 0.967087i 1.040433i 0.968898i \
+  1.043150i 0.968898i 1.044961i 0.968898i 1.047677i 0.967992i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 1.101102i 1.060354i 1.101102i 1.264094i -fill $tkxox(score_active_note)
+${score} create polygon 1.054921i 1.306654i 1.063071i 1.305748i 1.066693i 1.305748i \
+  1.068504i 1.304843i 1.072126i 1.303937i 1.080276i 1.301220i 1.087520i 1.297598i \
+  1.090236i 1.295787i 1.091142i 1.295787i 1.093858i 1.293071i 1.099291i 1.288543i \
+  1.103819i 1.283110i 1.106535i 1.281299i 1.107441i 1.280394i 1.108346i 1.277677i \
+  1.110157i 1.272244i 1.110157i 1.268622i 1.110157i 1.265906i 1.110157i 1.265000i \
+  1.110157i 1.264094i 1.109252i 1.263189i 1.108346i 1.262283i 1.106535i 1.260472i \
+  1.103819i 1.257756i 1.098386i 1.255039i 1.095669i 1.253228i 1.093858i 1.253228i \
+  1.090236i 1.252323i 1.082087i 1.252323i 1.073031i 1.253228i 1.069409i 1.254134i \
+  1.066693i 1.255039i 1.062165i 1.256850i 1.054921i 1.259567i 1.048583i 1.262283i \
+  1.046772i 1.263189i 1.045866i 1.264094i 1.044055i 1.265906i 1.040433i 1.268622i \
+  1.036811i 1.272244i 1.035906i 1.273150i 1.035000i 1.273150i 1.034094i 1.274961i \
+  1.032283i 1.278583i 1.030472i 1.283110i 1.029567i 1.284921i 1.028661i 1.286732i \
+  1.028661i 1.288543i 1.028661i 1.293071i 1.029567i 1.297598i 1.030472i 1.299409i \
+  1.030472i 1.300315i 1.032283i 1.301220i 1.035906i 1.303937i 1.040433i 1.305748i \
+  1.043150i 1.306654i 1.044961i 1.306654i 1.047677i 1.306654i -outline {} -fill $tkxox(score_active_note) \
+  -width 0
+${score} create polygon 1.054921i 1.306654i 1.063071i 1.305748i 1.066693i 1.305748i \
+  1.068504i 1.304843i 1.072126i 1.303937i 1.080276i 1.301220i 1.087520i 1.297598i \
+  1.090236i 1.295787i 1.091142i 1.295787i 1.093858i 1.293071i 1.099291i 1.288543i \
+  1.103819i 1.283110i 1.106535i 1.281299i 1.107441i 1.280394i 1.108346i 1.277677i \
+  1.110157i 1.272244i 1.110157i 1.268622i 1.110157i 1.265906i 1.110157i 1.265000i \
+  1.110157i 1.264094i 1.109252i 1.263189i 1.108346i 1.262283i 1.106535i 1.260472i \
+  1.103819i 1.257756i 1.098386i 1.255039i 1.095669i 1.253228i 1.093858i 1.253228i \
+  1.090236i 1.252323i 1.082087i 1.252323i 1.073031i 1.253228i 1.069409i 1.254134i \
+  1.066693i 1.255039i 1.062165i 1.256850i 1.054921i 1.259567i 1.048583i 1.262283i \
+  1.046772i 1.263189i 1.045866i 1.264094i 1.044055i 1.265906i 1.040433i 1.268622i \
+  1.036811i 1.272244i 1.035906i 1.273150i 1.035000i 1.273150i 1.034094i 1.274961i \
+  1.032283i 1.278583i 1.030472i 1.283110i 1.029567i 1.284921i 1.028661i 1.286732i \
+  1.028661i 1.288543i 1.028661i 1.293071i 1.029567i 1.297598i 1.030472i 1.299409i \
+  1.030472i 1.300315i 1.032283i 1.301220i 1.035906i 1.303937i 1.040433i 1.305748i \
+  1.043150i 1.306654i 1.044961i 1.306654i 1.047677i 1.306654i -outline $tkxox(score_active_note) -fill \
+  {}
+${score} create line 11.014646i 0.422874i 11.014646i 0.602165i -fill $tkxox(score_passive_note)
+${score} create polygon 11.020079i 0.441890i 11.020984i 0.447323i 11.020984i 0.449134i \
+  11.021890i 0.450039i 11.021890i 0.451850i 11.023701i 0.456378i 11.025512i 0.460000i \
+  11.026417i 0.460906i 11.030945i 0.464528i 11.037283i 0.469961i 11.040906i 0.472677i \
+  11.043622i 0.474488i 11.048150i 0.477205i 11.056299i 0.484449i 11.064449i 0.490787i \
+  11.068071i 0.493504i 11.068976i 0.494409i 11.072598i 0.498031i 11.078031i 0.504370i \
+  11.082559i 0.511614i 11.084370i 0.514331i 11.084370i 0.515236i 11.085276i 0.517953i \
+  11.087087i 0.525197i 11.087992i 0.532441i 11.088898i 0.535157i 11.087992i 0.538780i \
+  11.086181i 0.547835i 11.083465i 0.557795i 11.080748i 0.564134i 11.078937i 0.568661i \
+  11.077126i 0.572283i 11.074409i 0.577717i 11.071693i 0.584961i 11.071693i 0.585866i \
+  11.070787i 0.586772i 11.070787i 0.587677i 11.069882i 0.587677i 11.069882i 0.588583i \
+  11.069882i 0.589488i 11.068976i 0.589488i 11.068976i 0.590394i 11.068976i 0.589488i \
+  11.068976i 0.588583i 11.068976i 0.587677i 11.068976i 0.586772i 11.069882i 0.586772i \
+  11.069882i 0.585866i 11.069882i 0.584961i 11.071693i 0.578622i 11.073504i 0.574094i \
+  11.075315i 0.570472i 11.077126i 0.566850i 11.078937i 0.561417i 11.081654i 0.553268i \
+  11.084370i 0.545118i 11.085276i 0.542402i 11.086181i 0.542402i 11.086181i 0.539685i \
+  11.085276i 0.532441i 11.083465i 0.524291i 11.081654i 0.520669i 11.080748i 0.519764i \
+  11.078937i 0.516142i 11.072598i 0.507992i 11.066260i 0.501654i 11.062638i 0.498031i \
+  11.060827i 0.496220i 11.058110i 0.495315i 11.054488i 0.492598i 11.046339i 0.487165i \
+  11.037283i 0.481732i 11.032756i 0.479921i 11.030039i 0.479016i 11.026417i 0.477205i \
+  11.020079i 0.474488i 11.019173i 0.474488i 11.018268i 0.473583i 11.017362i 0.473583i \
+  11.016457i 0.473583i 11.015551i 0.473583i 11.015551i 0.474488i 11.015551i 0.475394i \
+  11.015551i 0.476299i 11.015551i 0.477205i 11.015551i 0.478110i 11.016457i 0.479016i \
+  11.016457i 0.479921i 11.016457i 0.480827i 11.016457i 0.479921i 11.016457i 0.479016i \
+  11.016457i 0.478110i 11.016457i 0.477205i 11.016457i 0.475394i 11.016457i 0.474488i \
+  11.016457i 0.464528i 11.017362i 0.455472i 11.017362i 0.447323i 11.018268i 0.440079i \
+  11.018268i 0.431929i 11.019173i 0.423780i 11.020079i 0.421969i 11.020079i 0.424685i \
+  11.019173i 0.430118i 11.019173i 0.435551i -outline {} -fill $tkxox(score_passive_note) -width 0
+${score} create polygon 11.020079i 0.441890i 11.020984i 0.447323i 11.020984i 0.449134i \
+  11.021890i 0.450039i 11.021890i 0.451850i 11.023701i 0.456378i 11.025512i 0.460000i \
+  11.026417i 0.460906i 11.030945i 0.464528i 11.037283i 0.469961i 11.040906i 0.472677i \
+  11.043622i 0.474488i 11.048150i 0.477205i 11.056299i 0.484449i 11.064449i 0.490787i \
+  11.068071i 0.493504i 11.068976i 0.494409i 11.072598i 0.498031i 11.078031i 0.504370i \
+  11.082559i 0.511614i 11.084370i 0.514331i 11.084370i 0.515236i 11.085276i 0.517953i \
+  11.087087i 0.525197i 11.087992i 0.532441i 11.088898i 0.535157i 11.087992i 0.538780i \
+  11.086181i 0.547835i 11.083465i 0.557795i 11.080748i 0.564134i 11.078937i 0.568661i \
+  11.077126i 0.572283i 11.074409i 0.577717i 11.071693i 0.584961i 11.071693i 0.585866i \
+  11.070787i 0.586772i 11.070787i 0.587677i 11.069882i 0.587677i 11.069882i 0.588583i \
+  11.069882i 0.589488i 11.068976i 0.589488i 11.068976i 0.590394i 11.068976i 0.589488i \
+  11.068976i 0.588583i 11.068976i 0.587677i 11.068976i 0.586772i 11.069882i 0.586772i \
+  11.069882i 0.585866i 11.069882i 0.584961i 11.071693i 0.578622i 11.073504i 0.574094i \
+  11.075315i 0.570472i 11.077126i 0.566850i 11.078937i 0.561417i 11.081654i 0.553268i \
+  11.084370i 0.545118i 11.085276i 0.542402i 11.086181i 0.542402i 11.086181i 0.539685i \
+  11.085276i 0.532441i 11.083465i 0.524291i 11.081654i 0.520669i 11.080748i 0.519764i \
+  11.078937i 0.516142i 11.072598i 0.507992i 11.066260i 0.501654i 11.062638i 0.498031i \
+  11.060827i 0.496220i 11.058110i 0.495315i 11.054488i 0.492598i 11.046339i 0.487165i \
+  11.037283i 0.481732i 11.032756i 0.479921i 11.030039i 0.479016i 11.026417i 0.477205i \
+  11.020079i 0.474488i 11.019173i 0.474488i 11.018268i 0.473583i 11.017362i 0.473583i \
+  11.016457i 0.473583i 11.015551i 0.473583i 11.015551i 0.474488i 11.015551i 0.475394i \
+  11.015551i 0.476299i 11.015551i 0.477205i 11.015551i 0.478110i 11.016457i 0.479016i \
+  11.016457i 0.479921i 11.016457i 0.480827i 11.016457i 0.479921i 11.016457i 0.479016i \
+  11.016457i 0.478110i 11.016457i 0.477205i 11.016457i 0.475394i 11.016457i 0.474488i \
+  11.016457i 0.464528i 11.017362i 0.455472i 11.017362i 0.447323i 11.018268i 0.440079i \
+  11.018268i 0.431929i 11.019173i 0.423780i 11.020079i 0.421969i 11.020079i 0.424685i \
+  11.019173i 0.430118i 11.019173i 0.435551i -outline $tkxox(score_passive_note) -fill {}
+${score} create polygon 10.970276i 0.640197i 10.977520i 0.639291i 10.980236i 0.638386i \
+  10.982047i 0.638386i 10.985669i 0.637480i 10.992913i 0.634764i 11.000157i 0.632047i \
+  11.003780i 0.630236i 11.005591i 0.629331i 11.008307i 0.628425i 11.013740i 0.623898i \
+  11.018268i 0.619370i 11.020984i 0.617559i 11.020984i 0.616654i 11.022795i 0.613937i \
+  11.023701i 0.609409i 11.023701i 0.606693i 11.023701i 0.603976i 11.023701i 0.603071i \
+  11.023701i 0.602165i 11.022795i 0.601260i 11.022795i 0.600354i 11.020984i 0.598543i \
+  11.017362i 0.596732i 11.011024i 0.594016i 11.007402i 0.594016i 11.005591i 0.593110i \
+  11.001063i 0.593110i 10.992913i 0.593110i 10.984764i 0.594016i 10.981142i 0.594016i \
+  10.980236i 0.594016i 10.976614i 0.594921i 10.970276i 0.597638i 10.963937i 0.600354i \
+  10.962126i 0.602165i 10.961220i 0.603071i 10.959409i 0.604882i 10.955787i 0.608504i \
+  10.952165i 0.611220i 10.951260i 0.612126i 10.950354i 0.613937i 10.948543i 0.616654i \
+  10.946732i 0.620276i 10.945827i 0.622087i 10.944921i 0.622992i 10.944921i 0.624803i \
+  10.944921i 0.628425i 10.945827i 0.631142i 10.946732i 0.632953i 10.946732i 0.633858i \
+  10.947638i 0.633858i 10.948543i 0.635669i 10.952165i 0.637480i 10.956693i 0.639291i \
+  10.959409i 0.640197i 10.960315i 0.640197i 10.963937i 0.640197i -outline {} -fill \
+  $tkxox(score_passive_note) -width 0
+${score} create polygon 10.970276i 0.640197i 10.977520i 0.639291i 10.980236i 0.638386i \
+  10.982047i 0.638386i 10.985669i 0.637480i 10.992913i 0.634764i 11.000157i 0.632047i \
+  11.003780i 0.630236i 11.005591i 0.629331i 11.008307i 0.628425i 11.013740i 0.623898i \
+  11.018268i 0.619370i 11.020984i 0.617559i 11.020984i 0.616654i 11.022795i 0.613937i \
+  11.023701i 0.609409i 11.023701i 0.606693i 11.023701i 0.603976i 11.023701i 0.603071i \
+  11.023701i 0.602165i 11.022795i 0.601260i 11.022795i 0.600354i 11.020984i 0.598543i \
+  11.017362i 0.596732i 11.011024i 0.594016i 11.007402i 0.594016i 11.005591i 0.593110i \
+  11.001063i 0.593110i 10.992913i 0.593110i 10.984764i 0.594016i 10.981142i 0.594016i \
+  10.980236i 0.594016i 10.976614i 0.594921i 10.970276i 0.597638i 10.963937i 0.600354i \
+  10.962126i 0.602165i 10.961220i 0.603071i 10.959409i 0.604882i 10.955787i 0.608504i \
+  10.952165i 0.611220i 10.951260i 0.612126i 10.950354i 0.613937i 10.948543i 0.616654i \
+  10.946732i 0.620276i 10.945827i 0.622087i 10.944921i 0.622992i 10.944921i 0.624803i \
+  10.944921i 0.628425i 10.945827i 0.631142i 10.946732i 0.632953i 10.946732i 0.633858i \
+  10.947638i 0.633858i 10.948543i 0.635669i 10.952165i 0.637480i 10.956693i 0.639291i \
+  10.959409i 0.640197i 10.960315i 0.640197i 10.963937i 0.640197i -outline $tkxox(score_passive_note) \
   -fill {}
-${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \
-  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \
-  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \
-  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \
-  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \
-  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \
-  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \
-  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \
-  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \
-  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \
-  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \
-  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \
-  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \
-  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \
-  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \
-  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \
-  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \
-  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \
-  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \
-  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \
-  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \
-  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \
-  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \
-  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \
-  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \
-  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \
-  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \
-  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \
-  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \
-  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline {} -fill $tkxox(score_active_note) \
+${score} create line 10.330079i 0.422874i 10.330079i 0.602165i -fill $tkxox(score_active_note)
+${score} create polygon 10.285709i 0.640197i 10.293858i 0.639291i 10.297480i 0.638386i \
+  10.299291i 0.638386i 10.302913i 0.637480i 10.311063i 0.634764i 10.318307i 0.632047i \
+  10.321024i 0.630236i 10.321929i 0.629331i 10.323740i 0.628425i 10.329173i 0.623898i \
+  10.333701i 0.619370i 10.335512i 0.617559i 10.336417i 0.616654i 10.338228i 0.613937i \
+  10.339134i 0.609409i 10.339134i 0.605787i 10.339134i 0.603071i 10.338228i 0.602165i \
+  10.338228i 0.601260i 10.336417i 0.599449i 10.332795i 0.596732i 10.327362i 0.594016i \
+  10.324646i 0.594016i 10.322835i 0.593110i 10.320118i 0.593110i 10.311969i 0.593110i \
+  10.303819i 0.594016i 10.299291i 0.594016i 10.297480i 0.594016i 10.292953i 0.594921i \
+  10.285709i 0.597638i 10.279370i 0.600354i 10.277559i 0.602165i 10.276654i 0.603071i \
+  10.274843i 0.604882i 10.271220i 0.608504i 10.267598i 0.611220i 10.266693i 0.612126i \
+  10.265787i 0.613937i 10.263976i 0.616654i 10.262165i 0.620276i 10.261260i 0.622087i \
+  10.261260i 0.622992i 10.261260i 0.624803i 10.261260i 0.628425i 10.262165i 0.632047i \
+  10.263071i 0.632953i 10.263071i 0.633858i 10.263976i 0.634764i 10.267598i 0.637480i \
+  10.272126i 0.639291i 10.274843i 0.640197i 10.275748i 0.640197i 10.278465i 0.640197i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 10.285709i 0.640197i 10.293858i 0.639291i 10.297480i 0.638386i \
+  10.299291i 0.638386i 10.302913i 0.637480i 10.311063i 0.634764i 10.318307i 0.632047i \
+  10.321024i 0.630236i 10.321929i 0.629331i 10.323740i 0.628425i 10.329173i 0.623898i \
+  10.333701i 0.619370i 10.335512i 0.617559i 10.336417i 0.616654i 10.338228i 0.613937i \
+  10.339134i 0.609409i 10.339134i 0.605787i 10.339134i 0.603071i 10.338228i 0.602165i \
+  10.338228i 0.601260i 10.336417i 0.599449i 10.332795i 0.596732i 10.327362i 0.594016i \
+  10.324646i 0.594016i 10.322835i 0.593110i 10.320118i 0.593110i 10.311969i 0.593110i \
+  10.303819i 0.594016i 10.299291i 0.594016i 10.297480i 0.594016i 10.292953i 0.594921i \
+  10.285709i 0.597638i 10.279370i 0.600354i 10.277559i 0.602165i 10.276654i 0.603071i \
+  10.274843i 0.604882i 10.271220i 0.608504i 10.267598i 0.611220i 10.266693i 0.612126i \
+  10.265787i 0.613937i 10.263976i 0.616654i 10.262165i 0.620276i 10.261260i 0.622087i \
+  10.261260i 0.622992i 10.261260i 0.624803i 10.261260i 0.628425i 10.262165i 0.632047i \
+  10.263071i 0.632953i 10.263071i 0.633858i 10.263976i 0.634764i 10.267598i 0.637480i \
+  10.272126i 0.639291i 10.274843i 0.640197i 10.275748i 0.640197i 10.278465i 0.640197i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create polygon 10.335512i 0.441890i 10.336417i 0.447323i 10.336417i 0.449134i \
+  10.336417i 0.450039i 10.337323i 0.451850i 10.339134i 0.456378i 10.340945i 0.460000i \
+  10.341850i 0.460000i 10.340945i 0.460000i 10.342756i 0.460906i 10.347283i 0.464528i \
+  10.353622i 0.469961i 10.357244i 0.472677i 10.359961i 0.474488i 10.364488i 0.477205i \
+  10.372638i 0.484449i 10.379882i 0.490787i 10.383504i 0.493504i 10.385315i 0.494409i \
+  10.388031i 0.498031i 10.393465i 0.504370i 10.397992i 0.511614i 10.399803i 0.514331i \
+  10.400709i 0.515236i 10.401614i 0.517953i 10.403425i 0.525197i 10.404331i 0.532441i \
+  10.404331i 0.535157i 10.403425i 0.538780i 10.401614i 0.547835i 10.398898i 0.557795i \
+  10.396181i 0.564134i 10.394370i 0.568661i 10.392559i 0.572283i 10.389843i 0.577717i \
+  10.387126i 0.584961i 10.387126i 0.585866i 10.386220i 0.586772i 10.386220i 0.587677i \
+  10.385315i 0.587677i 10.385315i 0.588583i 10.385315i 0.589488i 10.384409i 0.589488i \
+  10.384409i 0.590394i 10.384409i 0.589488i 10.384409i 0.588583i 10.384409i 0.587677i \
+  10.384409i 0.586772i 10.385315i 0.586772i 10.385315i 0.585866i 10.385315i 0.584961i \
+  10.387126i 0.578622i 10.388937i 0.574094i 10.390748i 0.570472i 10.392559i 0.566850i \
+  10.394370i 0.561417i 10.397087i 0.553268i 10.399803i 0.545118i 10.400709i 0.542402i \
+  10.401614i 0.542402i 10.401614i 0.539685i 10.400709i 0.532441i 10.398898i 0.524291i \
+  10.397087i 0.520669i 10.396181i 0.519764i 10.394370i 0.516142i 10.388031i 0.507992i \
+  10.381693i 0.501654i 10.378071i 0.498031i 10.376260i 0.496220i 10.374449i 0.495315i \
+  10.370827i 0.492598i 10.362677i 0.487165i 10.353622i 0.481732i 10.349094i 0.479921i \
+  10.346378i 0.479016i 10.341850i 0.477205i 10.335512i 0.474488i 10.334606i 0.474488i \
+  10.333701i 0.473583i 10.332795i 0.473583i 10.331890i 0.473583i 10.330984i 0.473583i \
+  10.330984i 0.474488i 10.330984i 0.475394i 10.330984i 0.476299i 10.330984i 0.477205i \
+  10.330984i 0.478110i 10.331890i 0.479016i 10.331890i 0.479921i 10.331890i 0.480827i \
+  10.331890i 0.479921i 10.331890i 0.479016i 10.331890i 0.478110i 10.331890i 0.477205i \
+  10.331890i 0.475394i 10.331890i 0.474488i 10.331890i 0.464528i 10.332795i 0.455472i \
+  10.332795i 0.447323i 10.333701i 0.440079i 10.333701i 0.431929i 10.334606i 0.423780i \
+  10.335512i 0.421969i 10.335512i 0.424685i 10.334606i 0.430118i 10.334606i 0.435551i \
+  -outline {} -fill $tkxox(score_active_note) -width 0
+${score} create polygon 10.335512i 0.441890i 10.336417i 0.447323i 10.336417i 0.449134i \
+  10.336417i 0.450039i 10.337323i 0.451850i 10.339134i 0.456378i 10.340945i 0.460000i \
+  10.341850i 0.460000i 10.340945i 0.460000i 10.342756i 0.460906i 10.347283i 0.464528i \
+  10.353622i 0.469961i 10.357244i 0.472677i 10.359961i 0.474488i 10.364488i 0.477205i \
+  10.372638i 0.484449i 10.379882i 0.490787i 10.383504i 0.493504i 10.385315i 0.494409i \
+  10.388031i 0.498031i 10.393465i 0.504370i 10.397992i 0.511614i 10.399803i 0.514331i \
+  10.400709i 0.515236i 10.401614i 0.517953i 10.403425i 0.525197i 10.404331i 0.532441i \
+  10.404331i 0.535157i 10.403425i 0.538780i 10.401614i 0.547835i 10.398898i 0.557795i \
+  10.396181i 0.564134i 10.394370i 0.568661i 10.392559i 0.572283i 10.389843i 0.577717i \
+  10.387126i 0.584961i 10.387126i 0.585866i 10.386220i 0.586772i 10.386220i 0.587677i \
+  10.385315i 0.587677i 10.385315i 0.588583i 10.385315i 0.589488i 10.384409i 0.589488i \
+  10.384409i 0.590394i 10.384409i 0.589488i 10.384409i 0.588583i 10.384409i 0.587677i \
+  10.384409i 0.586772i 10.385315i 0.586772i 10.385315i 0.585866i 10.385315i 0.584961i \
+  10.387126i 0.578622i 10.388937i 0.574094i 10.390748i 0.570472i 10.392559i 0.566850i \
+  10.394370i 0.561417i 10.397087i 0.553268i 10.399803i 0.545118i 10.400709i 0.542402i \
+  10.401614i 0.542402i 10.401614i 0.539685i 10.400709i 0.532441i 10.398898i 0.524291i \
+  10.397087i 0.520669i 10.396181i 0.519764i 10.394370i 0.516142i 10.388031i 0.507992i \
+  10.381693i 0.501654i 10.378071i 0.498031i 10.376260i 0.496220i 10.374449i 0.495315i \
+  10.370827i 0.492598i 10.362677i 0.487165i 10.353622i 0.481732i 10.349094i 0.479921i \
+  10.346378i 0.479016i 10.341850i 0.477205i 10.335512i 0.474488i 10.334606i 0.474488i \
+  10.333701i 0.473583i 10.332795i 0.473583i 10.331890i 0.473583i 10.330984i 0.473583i \
+  10.330984i 0.474488i 10.330984i 0.475394i 10.330984i 0.476299i 10.330984i 0.477205i \
+  10.330984i 0.478110i 10.331890i 0.479016i 10.331890i 0.479921i 10.331890i 0.480827i \
+  10.331890i 0.479921i 10.331890i 0.479016i 10.331890i 0.478110i 10.331890i 0.477205i \
+  10.331890i 0.475394i 10.331890i 0.474488i 10.331890i 0.464528i 10.332795i 0.455472i \
+  10.332795i 0.447323i 10.333701i 0.440079i 10.333701i 0.431929i 10.334606i 0.423780i \
+  10.335512i 0.421969i 10.335512i 0.424685i 10.334606i 0.430118i 10.334606i 0.435551i \
+  -outline $tkxox(score_active_note) -fill {}
+${score} create line 10.332795i 0.086024i 10.332795i 0.266220i -fill $tkxox(score_passive_note)
+${score} create polygon 10.338228i 0.104134i 10.339134i 0.109567i 10.339134i 0.111378i \
+  10.339134i 0.112283i 10.340039i 0.114094i 10.341850i 0.118622i 10.343661i 0.122244i \
+  10.344567i 0.123150i 10.343661i 0.122244i 10.345472i 0.123150i 10.350000i 0.127677i \
+  10.356339i 0.133110i 10.359961i 0.135827i 10.362677i 0.137638i 10.367205i 0.140354i \
+  10.375354i 0.147598i 10.382598i 0.153937i 10.386220i 0.157559i 10.388031i 0.158465i \
+  10.390748i 0.161181i 10.396181i 0.167520i 10.400709i 0.173858i 10.402520i 0.175669i \
+  10.402520i 0.176575i 10.403425i 0.179291i 10.405236i 0.185630i 10.406142i 0.192874i \
+  10.406142i 0.195591i 10.406142i 0.196496i 10.405236i 0.200118i 10.403425i 0.210079i \
+  10.400709i 0.220039i 10.397992i 0.226378i 10.396181i 0.230906i 10.395276i 0.234528i \
+  10.392559i 0.239961i 10.389843i 0.247205i 10.389843i 0.248110i 10.388937i 0.249016i \
+  10.388937i 0.249921i 10.388031i 0.250827i 10.388031i 0.251732i 10.387126i 0.252638i \
+  10.387126i 0.251732i 10.387126i 0.250827i 10.387126i 0.249921i 10.387126i 0.249016i \
+  10.388031i 0.249016i 10.388031i 0.248110i 10.388031i 0.247205i 10.389843i 0.241772i \
+  10.391654i 0.237244i 10.393465i 0.233622i 10.395276i 0.230000i 10.397087i 0.224567i \
+  10.399803i 0.216417i 10.402520i 0.208268i 10.403425i 0.204646i 10.404331i 0.203740i \
+  10.404331i 0.201024i 10.403425i 0.193780i 10.400709i 0.186535i 10.399803i 0.182913i \
+  10.398898i 0.182008i 10.396181i 0.178386i 10.389843i 0.171142i 10.383504i 0.164803i \
+  10.379882i 0.161181i 10.378071i 0.160276i 10.376260i 0.158465i 10.371732i 0.155748i \
+  10.364488i 0.150315i 10.355433i 0.144882i 10.350906i 0.142165i 10.348189i 0.141260i \
+  10.344567i 0.139449i 10.338228i 0.136732i 10.337323i 0.136732i 10.336417i 0.135827i \
+  10.335512i 0.135827i 10.334606i 0.135827i 10.333701i 0.135827i 10.333701i 0.136732i \
+  10.333701i 0.137638i 10.333701i 0.138543i 10.333701i 0.139449i 10.333701i 0.140354i \
+  10.334606i 0.140354i 10.334606i 0.141260i 10.334606i 0.142165i 10.334606i 0.141260i \
+  10.334606i 0.140354i 10.334606i 0.139449i 10.334606i 0.137638i 10.334606i 0.136732i \
+  10.334606i 0.126772i 10.335512i 0.117717i 10.335512i 0.110472i 10.336417i 0.103228i \
+  10.336417i 0.094173i 10.337323i 0.086929i 10.338228i 0.085118i 10.338228i 0.087835i \
+  10.337323i 0.092362i 10.337323i 0.097795i -outline {} -fill $tkxox(score_passive_note) -width 0
+${score} create polygon 10.338228i 0.104134i 10.339134i 0.109567i 10.339134i 0.111378i \
+  10.339134i 0.112283i 10.340039i 0.114094i 10.341850i 0.118622i 10.343661i 0.122244i \
+  10.344567i 0.123150i 10.343661i 0.122244i 10.345472i 0.123150i 10.350000i 0.127677i \
+  10.356339i 0.133110i 10.359961i 0.135827i 10.362677i 0.137638i 10.367205i 0.140354i \
+  10.375354i 0.147598i 10.382598i 0.153937i 10.386220i 0.157559i 10.388031i 0.158465i \
+  10.390748i 0.161181i 10.396181i 0.167520i 10.400709i 0.173858i 10.402520i 0.175669i \
+  10.402520i 0.176575i 10.403425i 0.179291i 10.405236i 0.185630i 10.406142i 0.192874i \
+  10.406142i 0.195591i 10.406142i 0.196496i 10.405236i 0.200118i 10.403425i 0.210079i \
+  10.400709i 0.220039i 10.397992i 0.226378i 10.396181i 0.230906i 10.395276i 0.234528i \
+  10.392559i 0.239961i 10.389843i 0.247205i 10.389843i 0.248110i 10.388937i 0.249016i \
+  10.388937i 0.249921i 10.388031i 0.250827i 10.388031i 0.251732i 10.387126i 0.252638i \
+  10.387126i 0.251732i 10.387126i 0.250827i 10.387126i 0.249921i 10.387126i 0.249016i \
+  10.388031i 0.249016i 10.388031i 0.248110i 10.388031i 0.247205i 10.389843i 0.241772i \
+  10.391654i 0.237244i 10.393465i 0.233622i 10.395276i 0.230000i 10.397087i 0.224567i \
+  10.399803i 0.216417i 10.402520i 0.208268i 10.403425i 0.204646i 10.404331i 0.203740i \
+  10.404331i 0.201024i 10.403425i 0.193780i 10.400709i 0.186535i 10.399803i 0.182913i \
+  10.398898i 0.182008i 10.396181i 0.178386i 10.389843i 0.171142i 10.383504i 0.164803i \
+  10.379882i 0.161181i 10.378071i 0.160276i 10.376260i 0.158465i 10.371732i 0.155748i \
+  10.364488i 0.150315i 10.355433i 0.144882i 10.350906i 0.142165i 10.348189i 0.141260i \
+  10.344567i 0.139449i 10.338228i 0.136732i 10.337323i 0.136732i 10.336417i 0.135827i \
+  10.335512i 0.135827i 10.334606i 0.135827i 10.333701i 0.135827i 10.333701i 0.136732i \
+  10.333701i 0.137638i 10.333701i 0.138543i 10.333701i 0.139449i 10.333701i 0.140354i \
+  10.334606i 0.140354i 10.334606i 0.141260i 10.334606i 0.142165i 10.334606i 0.141260i \
+  10.334606i 0.140354i 10.334606i 0.139449i 10.334606i 0.137638i 10.334606i 0.136732i \
+  10.334606i 0.126772i 10.335512i 0.117717i 10.335512i 0.110472i 10.336417i 0.103228i \
+  10.336417i 0.094173i 10.337323i 0.086929i 10.338228i 0.085118i 10.338228i 0.087835i \
+  10.337323i 0.092362i 10.337323i 0.097795i -outline $tkxox(score_passive_note) -fill {}
+${score} create polygon 10.288425i 0.301535i 10.295669i 0.300630i 10.299291i 0.300630i \
+  10.301102i 0.300630i 10.305630i 0.299724i 10.312874i 0.297913i 10.320118i 0.295197i \
+  10.322835i 0.293386i 10.323740i 0.293386i 10.326457i 0.291575i 10.331890i 0.287047i \
+  10.336417i 0.282520i 10.338228i 0.280709i 10.339134i 0.279803i 10.340945i 0.277087i \
+  10.341850i 0.272559i 10.341850i 0.268937i 10.341850i 0.266220i 10.340945i 0.265315i \
+  10.340945i 0.264409i 10.339134i 0.262598i 10.335512i 0.259882i 10.330079i 0.257165i \
+  10.327362i 0.256260i 10.325551i 0.256260i 10.321929i 0.255354i 10.313780i 0.255354i \
+  10.305630i 0.256260i 10.301102i 0.256260i 10.299291i 0.257165i 10.295669i 0.258071i \
+  10.288425i 0.260787i 10.282087i 0.263504i 10.280276i 0.265315i 10.279370i 0.266220i \
+  10.277559i 0.268031i 10.273937i 0.271654i 10.270315i 0.274370i 10.269409i 0.275276i \
+  10.268504i 0.276181i 10.266693i 0.278898i 10.264882i 0.282520i 10.263976i 0.284331i \
+  10.263071i 0.285236i 10.263071i 0.287047i 10.263071i 0.290669i 10.263976i 0.294291i \
+  10.264882i 0.296102i 10.264882i 0.297008i 10.265787i 0.297008i 10.266693i 0.298819i \
+  10.270315i 0.300630i 10.274843i 0.302441i 10.277559i 0.302441i 10.278465i 0.302441i \
+  10.281181i 0.301535i -outline {} -fill $tkxox(score_passive_note) -width 0
+${score} create polygon 10.288425i 0.301535i 10.295669i 0.300630i 10.299291i 0.300630i \
+  10.301102i 0.300630i 10.305630i 0.299724i 10.312874i 0.297913i 10.320118i 0.295197i \
+  10.322835i 0.293386i 10.323740i 0.293386i 10.326457i 0.291575i 10.331890i 0.287047i \
+  10.336417i 0.282520i 10.338228i 0.280709i 10.339134i 0.279803i 10.340945i 0.277087i \
+  10.341850i 0.272559i 10.341850i 0.268937i 10.341850i 0.266220i 10.340945i 0.265315i \
+  10.340945i 0.264409i 10.339134i 0.262598i 10.335512i 0.259882i 10.330079i 0.257165i \
+  10.327362i 0.256260i 10.325551i 0.256260i 10.321929i 0.255354i 10.313780i 0.255354i \
+  10.305630i 0.256260i 10.301102i 0.256260i 10.299291i 0.257165i 10.295669i 0.258071i \
+  10.288425i 0.260787i 10.282087i 0.263504i 10.280276i 0.265315i 10.279370i 0.266220i \
+  10.277559i 0.268031i 10.273937i 0.271654i 10.270315i 0.274370i 10.269409i 0.275276i \
+  10.268504i 0.276181i 10.266693i 0.278898i 10.264882i 0.282520i 10.263976i 0.284331i \
+  10.263071i 0.285236i 10.263071i 0.287047i 10.263071i 0.290669i 10.263976i 0.294291i \
+  10.264882i 0.296102i 10.264882i 0.297008i 10.265787i 0.297008i 10.266693i 0.298819i \
+  10.270315i 0.300630i 10.274843i 0.302441i 10.277559i 0.302441i 10.278465i 0.302441i \
+  10.281181i 0.301535i -outline $tkxox(score_passive_note) -fill {}
+${score} create line 9.045157i 0.086024i 9.045157i 0.266220i -fill $tkxox(score_passive_note)
+${score} create polygon 9.050591i 0.104134i 9.051496i 0.109567i 9.051496i 0.111378i \
+  9.051496i 0.112283i 9.052402i 0.114094i 9.054213i 0.118622i 9.056024i 0.122244i \
+  9.056929i 0.123150i 9.056929i 0.122244i 9.057835i 0.123150i 9.062362i 0.127677i \
+  9.068701i 0.133110i 9.072323i 0.135827i 9.075039i 0.137638i 9.078661i 0.140354i \
+  9.086811i 0.147598i 9.094961i 0.153937i 9.097677i 0.157559i 9.099488i 0.158465i \
+  9.102205i 0.161181i 9.108543i 0.167520i 9.113976i 0.173858i 9.115787i 0.175669i \
+  9.115787i 0.176575i 9.117598i 0.179291i 9.119409i 0.185630i 9.120315i 0.192874i \
+  9.120315i 0.195591i 9.120315i 0.196496i 9.120315i 0.200118i 9.117598i 0.210079i \
+  9.114882i 0.220039i 9.112165i 0.226378i 9.109449i 0.230906i 9.107638i 0.234528i \
+  9.104921i 0.239961i 9.102205i 0.247205i 9.102205i 0.248110i 9.101299i 0.249016i \
+  9.101299i 0.249921i 9.100394i 0.249921i 9.100394i 0.250827i 9.100394i 0.251732i \
+  9.099488i 0.251732i 9.099488i 0.252638i 9.098583i 0.252638i 9.098583i 0.251732i \
+  9.099488i 0.250827i 9.099488i 0.249921i 9.099488i 0.249016i 9.100394i 0.248110i \
+  9.100394i 0.247205i 9.103110i 0.241772i 9.104921i 0.237244i 9.106732i 0.233622i \
+  9.108543i 0.230000i 9.111260i 0.224567i 9.113976i 0.216417i 9.116693i 0.208268i \
+  9.117598i 0.204646i 9.118504i 0.203740i 9.118504i 0.201024i 9.117598i 0.193780i \
+  9.114882i 0.186535i 9.113071i 0.182913i 9.111260i 0.182008i 9.108543i 0.178386i \
+  9.102205i 0.171142i 9.095866i 0.164803i 9.092244i 0.161181i 9.090433i 0.160276i \
+  9.088622i 0.158465i 9.084094i 0.155748i 9.076850i 0.150315i 9.067795i 0.144882i \
+  9.063268i 0.142165i 9.060551i 0.141260i 9.056929i 0.139449i 9.050591i 0.136732i \
+  9.049685i 0.136732i 9.048780i 0.135827i 9.047874i 0.135827i 9.046969i 0.135827i \
+  9.046063i 0.135827i 9.046063i 0.136732i 9.046063i 0.137638i 9.046063i 0.138543i \
+  9.046063i 0.139449i 9.046063i 0.140354i 9.046969i 0.140354i 9.046969i 0.141260i \
+  9.046969i 0.142165i 9.046969i 0.141260i 9.046969i 0.140354i 9.046969i 0.139449i \
+  9.046969i 0.137638i 9.046969i 0.136732i 9.046969i 0.126772i 9.047874i 0.117717i \
+  9.047874i 0.110472i 9.048780i 0.103228i 9.048780i 0.094173i 9.049685i 0.086929i \
+  9.050591i 0.085118i 9.050591i 0.087835i 9.049685i 0.092362i 9.049685i 0.097795i \
+  -outline {} -fill $tkxox(score_passive_note) -width 0
+${score} create polygon 9.050591i 0.104134i 9.051496i 0.109567i 9.051496i 0.111378i \
+  9.051496i 0.112283i 9.052402i 0.114094i 9.054213i 0.118622i 9.056024i 0.122244i \
+  9.056929i 0.123150i 9.056929i 0.122244i 9.057835i 0.123150i 9.062362i 0.127677i \
+  9.068701i 0.133110i 9.072323i 0.135827i 9.075039i 0.137638i 9.078661i 0.140354i \
+  9.086811i 0.147598i 9.094961i 0.153937i 9.097677i 0.157559i 9.099488i 0.158465i \
+  9.102205i 0.161181i 9.108543i 0.167520i 9.113976i 0.173858i 9.115787i 0.175669i \
+  9.115787i 0.176575i 9.117598i 0.179291i 9.119409i 0.185630i 9.120315i 0.192874i \
+  9.120315i 0.195591i 9.120315i 0.196496i 9.120315i 0.200118i 9.117598i 0.210079i \
+  9.114882i 0.220039i 9.112165i 0.226378i 9.109449i 0.230906i 9.107638i 0.234528i \
+  9.104921i 0.239961i 9.102205i 0.247205i 9.102205i 0.248110i 9.101299i 0.249016i \
+  9.101299i 0.249921i 9.100394i 0.249921i 9.100394i 0.250827i 9.100394i 0.251732i \
+  9.099488i 0.251732i 9.099488i 0.252638i 9.098583i 0.252638i 9.098583i 0.251732i \
+  9.099488i 0.250827i 9.099488i 0.249921i 9.099488i 0.249016i 9.100394i 0.248110i \
+  9.100394i 0.247205i 9.103110i 0.241772i 9.104921i 0.237244i 9.106732i 0.233622i \
+  9.108543i 0.230000i 9.111260i 0.224567i 9.113976i 0.216417i 9.116693i 0.208268i \
+  9.117598i 0.204646i 9.118504i 0.203740i 9.118504i 0.201024i 9.117598i 0.193780i \
+  9.114882i 0.186535i 9.113071i 0.182913i 9.111260i 0.182008i 9.108543i 0.178386i \
+  9.102205i 0.171142i 9.095866i 0.164803i 9.092244i 0.161181i 9.090433i 0.160276i \
+  9.088622i 0.158465i 9.084094i 0.155748i 9.076850i 0.150315i 9.067795i 0.144882i \
+  9.063268i 0.142165i 9.060551i 0.141260i 9.056929i 0.139449i 9.050591i 0.136732i \
+  9.049685i 0.136732i 9.048780i 0.135827i 9.047874i 0.135827i 9.046969i 0.135827i \
+  9.046063i 0.135827i 9.046063i 0.136732i 9.046063i 0.137638i 9.046063i 0.138543i \
+  9.046063i 0.139449i 9.046063i 0.140354i 9.046969i 0.140354i 9.046969i 0.141260i \
+  9.046969i 0.142165i 9.046969i 0.141260i 9.046969i 0.140354i 9.046969i 0.139449i \
+  9.046969i 0.137638i 9.046969i 0.136732i 9.046969i 0.126772i 9.047874i 0.117717i \
+  9.047874i 0.110472i 9.048780i 0.103228i 9.048780i 0.094173i 9.049685i 0.086929i \
+  9.050591i 0.085118i 9.050591i 0.087835i 9.049685i 0.092362i 9.049685i 0.097795i \
+  -outline $tkxox(score_passive_note) -fill {}
+${score} create polygon 9.002598i 0.301535i 9.009843i 0.300630i 9.012559i 0.300630i \
+  9.014370i 0.300630i 9.017087i 0.299724i 9.024331i 0.297913i 9.031575i 0.295197i \
+  9.034291i 0.293386i 9.036102i 0.293386i 9.038819i 0.291575i 9.044252i 0.287047i \
+  9.048780i 0.282520i 9.050591i 0.280709i 9.051496i 0.279803i 9.053307i 0.277087i \
+  9.054213i 0.272559i 9.054213i 0.269843i 9.054213i 0.267126i 9.054213i 0.266220i \
+  9.054213i 0.265315i 9.053307i 0.264409i 9.052402i 0.263504i 9.050591i 0.261693i \
+  9.047874i 0.259882i 9.042441i 0.257165i 9.038819i 0.256260i 9.037008i 0.256260i \
+  9.033386i 0.255354i 9.025236i 0.255354i 9.017992i 0.256260i 9.014370i 0.256260i \
+  9.012559i 0.257165i 9.008937i 0.258071i 9.002598i 0.260787i 8.996260i 0.263504i \
+  8.994449i 0.265315i 8.993543i 0.266220i 8.991732i 0.268031i 8.988110i 0.271654i \
+  8.984488i 0.274370i 8.983583i 0.275276i 8.982677i 0.276181i 8.980866i 0.278898i \
+  8.979055i 0.282520i 8.978150i 0.284331i 8.977244i 0.285236i 8.977244i 0.287047i \
+  8.977244i 0.290669i 8.978150i 0.294291i 8.979055i 0.296102i 8.979055i 0.297008i \
+  8.979961i 0.297008i 8.980866i 0.298819i 8.984488i 0.300630i 8.989016i 0.302441i \
+  8.991732i 0.302441i 8.992638i 0.302441i 8.996260i 0.301535i -outline {} -fill $tkxox(score_passive_note) \
   -width 0
-${score} create polygon 1.104167i 0.442029i 1.105072i 0.447464i 1.105072i \
-  0.449275i 1.105978i 0.450181i 1.105978i 0.451993i 1.107790i 0.456522i \
-  1.109601i 0.460145i 1.110507i 0.461051i 1.115036i 0.464674i 1.121377i \
-  0.470109i 1.125000i 0.472826i 1.127717i 0.474638i 1.132246i 0.477355i \
-  1.140399i 0.484601i 1.148551i 0.490942i 1.152174i 0.493659i 1.153080i \
-  0.494565i 1.156703i 0.498188i 1.162138i 0.504529i 1.166667i 0.511775i \
-  1.168478i 0.514493i 1.168478i 0.515399i 1.169384i 0.518116i 1.171196i \
-  0.525362i 1.172101i 0.532609i 1.172101i 0.535326i 1.171196i 0.538949i \
-  1.169384i 0.548007i 1.166667i 0.557971i 1.163949i 0.564312i 1.162138i \
-  0.568841i 1.161232i 0.572464i 1.158514i 0.577899i 1.155797i 0.585145i \
-  1.155797i 0.586051i 1.154891i 0.586957i 1.154891i 0.587862i 1.153986i \
-  0.588768i 1.153986i 0.589674i 1.153080i 0.590580i 1.153080i 0.589674i \
-  1.153080i 0.588768i 1.153080i 0.587862i 1.153080i 0.586957i 1.153986i \
-  0.586957i 1.153986i 0.586051i 1.153986i 0.585145i 1.155797i 0.578804i \
-  1.157609i 0.574275i 1.159420i 0.570652i 1.160326i 0.567029i 1.162138i \
-  0.561594i 1.164855i 0.553442i 1.166667i 0.545290i 1.168478i 0.542572i \
-  1.169384i 0.539855i 1.168478i 0.532609i 1.166667i 0.524457i 1.165761i \
-  0.520833i 1.164855i 0.519928i 1.162138i 0.516304i 1.156703i 0.508152i \
-  1.150362i 0.501812i 1.146739i 0.498188i 1.144928i 0.496377i 1.143116i \
-  0.495471i 1.138587i 0.492754i 1.130435i 0.487319i 1.121377i 0.481884i \
-  1.116848i 0.480072i 1.114130i 0.479167i 1.110507i 0.477355i 1.104167i \
-  0.474638i 1.103261i 0.474638i 1.102355i 0.473732i 1.101449i 0.473732i \
-  1.100543i 0.473732i 1.099638i 0.473732i 1.099638i 0.474638i 1.099638i \
-  0.475543i 1.099638i 0.476449i 1.099638i 0.477355i 1.099638i 0.478261i \
-  1.100543i 0.479167i 1.100543i 0.480072i 1.100543i 0.480978i 1.100543i \
-  0.480072i 1.100543i 0.479167i 1.100543i 0.478261i 1.100543i 0.477355i \
-  1.100543i 0.475543i 1.100543i 0.474638i 1.100543i 0.464674i 1.101449i \
-  0.455616i 1.101449i 0.447464i 1.102355i 0.440217i 1.102355i 0.432065i \
-  1.103261i 0.423913i 1.104167i 0.422101i 1.104167i 0.424819i 1.103261i \
-  0.430254i 1.103261i 0.435688i 1.104167i 0.442029i -outline $tkxox(score_active_note) -fill \
+${score} create polygon 9.002598i 0.301535i 9.009843i 0.300630i 9.012559i 0.300630i \
+  9.014370i 0.300630i 9.017087i 0.299724i 9.024331i 0.297913i 9.031575i 0.295197i \
+  9.034291i 0.293386i 9.036102i 0.293386i 9.038819i 0.291575i 9.044252i 0.287047i \
+  9.048780i 0.282520i 9.050591i 0.280709i 9.051496i 0.279803i 9.053307i 0.277087i \
+  9.054213i 0.272559i 9.054213i 0.269843i 9.054213i 0.267126i 9.054213i 0.266220i \
+  9.054213i 0.265315i 9.053307i 0.264409i 9.052402i 0.263504i 9.050591i 0.261693i \
+  9.047874i 0.259882i 9.042441i 0.257165i 9.038819i 0.256260i 9.037008i 0.256260i \
+  9.033386i 0.255354i 9.025236i 0.255354i 9.017992i 0.256260i 9.014370i 0.256260i \
+  9.012559i 0.257165i 9.008937i 0.258071i 9.002598i 0.260787i 8.996260i 0.263504i \
+  8.994449i 0.265315i 8.993543i 0.266220i 8.991732i 0.268031i 8.988110i 0.271654i \
+  8.984488i 0.274370i 8.983583i 0.275276i 8.982677i 0.276181i 8.980866i 0.278898i \
+  8.979055i 0.282520i 8.978150i 0.284331i 8.977244i 0.285236i 8.977244i 0.287047i \
+  8.977244i 0.290669i 8.978150i 0.294291i 8.979055i 0.296102i 8.979055i 0.297008i \
+  8.979961i 0.297008i 8.980866i 0.298819i 8.984488i 0.300630i 8.989016i 0.302441i \
+  8.991732i 0.302441i 8.992638i 0.302441i 8.996260i 0.301535i -outline $tkxox(score_passive_note) -fill \
   {}
-${score} create line 1.101449i 0.721920i 1.101449i 0.927536i -fill $tkxox(score_active_note)
-${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \
-  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \
-  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \
-  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \
-  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \
-  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \
-  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \
-  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \
-  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \
-  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \
-  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \
-  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \
-  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \
-  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \
-  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \
-  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \
-  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \
-  0.968297i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.055254i 0.968297i 1.063406i 0.967391i 1.067029i \
-  0.967391i 1.068841i 0.967391i 1.072464i 0.966486i 1.080616i 0.963768i \
-  1.087862i 0.960145i 1.090580i 0.959239i 1.091486i 0.958333i 1.094203i \
-  0.955616i 1.099638i 0.951087i 1.104167i 0.945652i 1.106884i 0.943841i \
-  1.107790i 0.942935i 1.108696i 0.940217i 1.110507i 0.934783i 1.110507i \
-  0.931159i 1.110507i 0.928442i 1.110507i 0.927536i 1.110507i 0.926630i \
-  1.109601i 0.925725i 1.108696i 0.924819i 1.106884i 0.923007i 1.104167i \
-  0.920290i 1.098732i 0.917572i 1.096014i 0.916667i 1.094203i 0.916667i \
-  1.090580i 0.916667i 1.082428i 0.916667i 1.073370i 0.917572i 1.069746i \
-  0.918478i 1.067029i 0.918478i 1.062500i 0.919384i 1.055254i 0.922101i \
-  1.048913i 0.924819i 1.047101i 0.925725i 1.046196i 0.926630i 1.044384i \
-  0.927536i 1.040761i 0.931159i 1.037138i 0.934783i 1.036232i 0.935688i \
-  1.035326i 0.936594i 1.034420i 0.937500i 1.032609i 0.942029i 1.030797i \
-  0.946558i 1.029891i 0.948370i 1.028986i 0.950181i 1.028986i 0.951993i \
-  1.028986i 0.956522i 1.029891i 0.961051i 1.030797i 0.962862i 1.030797i \
-  0.963768i 1.032609i 0.964674i 1.036232i 0.967391i 1.040761i 0.969203i \
-  1.043478i 0.969203i 1.045290i 0.969203i 1.048007i 0.968297i 1.055254i \
-  0.968297i -outline $tkxox(score_active_note) -fill {}
-${score} create line 1.101449i 1.060688i 1.101449i 1.264493i -fill $tkxox(score_active_note)
-${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \
-  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \
-  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \
-  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \
-  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \
-  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \
-  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \
-  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \
-  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \
-  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \
-  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \
-  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \
-  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \
-  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \
-  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \
-  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \
-  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \
-  1.307065i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 1.055254i 1.307065i 1.063406i 1.306159i 1.067029i \
-  1.306159i 1.068841i 1.305254i 1.072464i 1.304348i 1.080616i 1.301630i \
-  1.087862i 1.298007i 1.090580i 1.296196i 1.091486i 1.296196i 1.094203i \
-  1.293478i 1.099638i 1.288949i 1.104167i 1.283514i 1.106884i 1.281703i \
-  1.107790i 1.280797i 1.108696i 1.278080i 1.110507i 1.272645i 1.110507i \
-  1.269022i 1.110507i 1.266304i 1.110507i 1.265399i 1.110507i 1.264493i \
-  1.109601i 1.263587i 1.108696i 1.262681i 1.106884i 1.260870i 1.104167i \
-  1.258152i 1.098732i 1.255435i 1.096014i 1.253623i 1.094203i 1.253623i \
-  1.090580i 1.252717i 1.082428i 1.252717i 1.073370i 1.253623i 1.069746i \
-  1.254529i 1.067029i 1.255435i 1.062500i 1.257246i 1.055254i 1.259964i \
-  1.048913i 1.262681i 1.047101i 1.263587i 1.046196i 1.264493i 1.044384i \
-  1.266304i 1.040761i 1.269022i 1.037138i 1.272645i 1.036232i 1.273551i \
-  1.035326i 1.273551i 1.034420i 1.275362i 1.032609i 1.278986i 1.030797i \
-  1.283514i 1.029891i 1.285326i 1.028986i 1.287138i 1.028986i 1.288949i \
-  1.028986i 1.293478i 1.029891i 1.298007i 1.030797i 1.299819i 1.030797i \
-  1.300725i 1.032609i 1.301630i 1.036232i 1.304348i 1.040761i 1.306159i \
-  1.043478i 1.307065i 1.045290i 1.307065i 1.048007i 1.307065i 1.055254i \
-  1.307065i -outline $tkxox(score_active_note) -fill {}
-${score} create line 11.018116i 0.423007i 11.018116i 0.602355i -fill \
-  $tkxox(score_passive_note)
-${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \
-  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \
-  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \
-  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \
-  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \
-  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \
-  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \
-  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \
-  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \
-  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \
-  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \
-  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \
-  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \
-  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \
-  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \
-  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \
-  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \
-  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \
-  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \
-  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \
-  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \
-  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \
-  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \
-  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \
-  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \
-  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \
-  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \
-  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \
-  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \
-  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \
-  11.022645i 0.435688i 11.023551i 0.442029i -outline {} -fill $tkxox(score_passive_note) -width \
-  0
-${score} create polygon 11.023551i 0.442029i 11.024457i 0.447464i 11.024457i \
-  0.449275i 11.025362i 0.450181i 11.025362i 0.451993i 11.027174i 0.456522i \
-  11.028986i 0.460145i 11.029891i 0.461051i 11.034420i 0.464674i 11.040761i \
-  0.470109i 11.044384i 0.472826i 11.047101i 0.474638i 11.051630i 0.477355i \
-  11.059783i 0.484601i 11.067935i 0.490942i 11.071558i 0.493659i 11.072464i \
-  0.494565i 11.076087i 0.498188i 11.081522i 0.504529i 11.086051i 0.511775i \
-  11.087862i 0.514493i 11.087862i 0.515399i 11.088768i 0.518116i 11.090580i \
-  0.525362i 11.091486i 0.532609i 11.092391i 0.535326i 11.091486i 0.538949i \
-  11.089674i 0.548007i 11.086957i 0.557971i 11.084239i 0.564312i 11.082428i \
-  0.568841i 11.080616i 0.572464i 11.077899i 0.577899i 11.075181i 0.585145i \
-  11.075181i 0.586051i 11.074275i 0.586957i 11.074275i 0.587862i 11.073370i \
-  0.587862i 11.073370i 0.588768i 11.073370i 0.589674i 11.072464i 0.589674i \
-  11.072464i 0.590580i 11.072464i 0.589674i 11.072464i 0.588768i 11.072464i \
-  0.587862i 11.072464i 0.586957i 11.073370i 0.586957i 11.073370i 0.586051i \
-  11.073370i 0.585145i 11.075181i 0.578804i 11.076993i 0.574275i 11.078804i \
-  0.570652i 11.080616i 0.567029i 11.082428i 0.561594i 11.085145i 0.553442i \
-  11.087862i 0.545290i 11.088768i 0.542572i 11.089674i 0.542572i 11.089674i \
-  0.539855i 11.088768i 0.532609i 11.086957i 0.524457i 11.085145i 0.520833i \
-  11.084239i 0.519928i 11.082428i 0.516304i 11.076087i 0.508152i 11.069746i \
-  0.501812i 11.066123i 0.498188i 11.064312i 0.496377i 11.061594i 0.495471i \
-  11.057971i 0.492754i 11.049819i 0.487319i 11.040761i 0.481884i 11.036232i \
-  0.480072i 11.033514i 0.479167i 11.029891i 0.477355i 11.023551i 0.474638i \
-  11.022645i 0.474638i 11.021739i 0.473732i 11.020833i 0.473732i 11.019928i \
-  0.473732i 11.019022i 0.473732i 11.019022i 0.474638i 11.019022i 0.475543i \
-  11.019022i 0.476449i 11.019022i 0.477355i 11.019022i 0.478261i 11.019928i \
-  0.479167i 11.019928i 0.480072i 11.019928i 0.480978i 11.019928i 0.480072i \
-  11.019928i 0.479167i 11.019928i 0.478261i 11.019928i 0.477355i 11.019928i \
-  0.475543i 11.019928i 0.474638i 11.019928i 0.464674i 11.020833i 0.455616i \
-  11.020833i 0.447464i 11.021739i 0.440217i 11.021739i 0.432065i 11.022645i \
-  0.423913i 11.023551i 0.422101i 11.023551i 0.424819i 11.022645i 0.430254i \
-  11.022645i 0.435688i 11.023551i 0.442029i -outline $tkxox(score_passive_note) -fill {}
-${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \
-  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \
-  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \
-  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \
-  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \
-  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \
-  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \
-  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \
-  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \
-  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \
-  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \
-  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \
-  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \
-  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \
-  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \
-  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \
-  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \
-  0.640399i -outline {} -fill $tkxox(score_passive_note) -width 0
-${score} create polygon 10.973732i 0.640399i 10.980978i 0.639493i 10.983696i \
-  0.638587i 10.985507i 0.638587i 10.989130i 0.637681i 10.996377i 0.634964i \
-  11.003623i 0.632246i 11.007246i 0.630435i 11.009058i 0.629529i 11.011775i \
-  0.628623i 11.017210i 0.624094i 11.021739i 0.619565i 11.024457i 0.617754i \
-  11.024457i 0.616848i 11.026268i 0.614130i 11.027174i 0.609601i 11.027174i \
-  0.606884i 11.027174i 0.604167i 11.027174i 0.603261i 11.027174i 0.602355i \
-  11.026268i 0.601449i 11.026268i 0.600543i 11.024457i 0.598732i 11.020833i \
-  0.596920i 11.014493i 0.594203i 11.010870i 0.594203i 11.009058i 0.593297i \
-  11.004529i 0.593297i 10.996377i 0.593297i 10.988225i 0.594203i 10.984601i \
-  0.594203i 10.983696i 0.594203i 10.980072i 0.595109i 10.973732i 0.597826i \
-  10.967391i 0.600543i 10.965580i 0.602355i 10.964674i 0.603261i 10.962862i \
-  0.605072i 10.959239i 0.608696i 10.955616i 0.611413i 10.954710i 0.612319i \
-  10.953804i 0.614130i 10.951993i 0.616848i 10.950181i 0.620471i 10.949275i \
-  0.622283i 10.948370i 0.623188i 10.948370i 0.625000i 10.948370i 0.628623i \
-  10.949275i 0.631341i 10.950181i 0.633152i 10.950181i 0.634058i 10.951087i \
-  0.634058i 10.951993i 0.635870i 10.955616i 0.637681i 10.960145i 0.639493i \
-  10.962862i 0.640399i 10.963768i 0.640399i 10.967391i 0.640399i 10.973732i \
-  0.640399i -outline $tkxox(score_passive_note) -fill {}
-${score} create line 10.333333i 0.423007i 10.333333i 0.602355i -fill \
-  $tkxox(score_active_note)
-${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \
-  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \
-  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \
-  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \
-  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \
-  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \
-  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \
-  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \
-  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \
-  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \
-  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \
-  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \
-  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \
-  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \
-  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \
-  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \
-  10.288949i 0.640399i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 10.288949i 0.640399i 10.297101i 0.639493i 10.300725i \
-  0.638587i 10.302536i 0.638587i 10.306159i 0.637681i 10.314312i 0.634964i \
-  10.321558i 0.632246i 10.324275i 0.630435i 10.325181i 0.629529i 10.326993i \
-  0.628623i 10.332428i 0.624094i 10.336957i 0.619565i 10.338768i 0.617754i \
-  10.339674i 0.616848i 10.341486i 0.614130i 10.342391i 0.609601i 10.342391i \
-  0.605978i 10.342391i 0.603261i 10.341486i 0.602355i 10.341486i 0.601449i \
-  10.339674i 0.599638i 10.336051i 0.596920i 10.330616i 0.594203i 10.327899i \
-  0.594203i 10.326087i 0.593297i 10.323370i 0.593297i 10.315217i 0.593297i \
-  10.307065i 0.594203i 10.302536i 0.594203i 10.300725i 0.594203i 10.296196i \
-  0.595109i 10.288949i 0.597826i 10.282609i 0.600543i 10.280797i 0.602355i \
-  10.279891i 0.603261i 10.278080i 0.605072i 10.274457i 0.608696i 10.270833i \
-  0.611413i 10.269928i 0.612319i 10.269022i 0.614130i 10.267210i 0.616848i \
-  10.265399i 0.620471i 10.264493i 0.622283i 10.264493i 0.623188i 10.264493i \
-  0.625000i 10.264493i 0.628623i 10.265399i 0.632246i 10.266304i 0.633152i \
-  10.266304i 0.634058i 10.267210i 0.634964i 10.270833i 0.637681i 10.275362i \
-  0.639493i 10.278080i 0.640399i 10.278986i 0.640399i 10.281703i 0.640399i \
-  10.288949i 0.640399i -outline $tkxox(score_active_note) -fill {}
-${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \
-  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \
-  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \
-  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \
-  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \
-  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \
-  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \
-  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \
-  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \
-  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \
-  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \
-  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \
-  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \
-  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \
-  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \
-  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \
-  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \
-  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \
-  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \
-  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \
-  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \
-  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \
-  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \
-  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \
-  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \
-  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \
-  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \
-  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \
-  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \
-  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \
-  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \
-  0.442029i -outline {} -fill $tkxox(score_active_note) -width 0
-${score} create polygon 10.338768i 0.442029i 10.339674i 0.447464i 10.339674i \
-  0.449275i 10.339674i 0.450181i 10.340580i 0.451993i 10.342391i 0.456522i \
-  10.344203i 0.460145i 10.345109i 0.460145i 10.344203i 0.460145i 10.346014i \
-  0.461051i 10.350543i 0.464674i 10.356884i 0.470109i 10.360507i 0.472826i \
-  10.363225i 0.474638i 10.367754i 0.477355i 10.375906i 0.484601i 10.383152i \
-  0.490942i 10.386775i 0.493659i 10.388587i 0.494565i 10.391304i 0.498188i \
-  10.396739i 0.504529i 10.401268i 0.511775i 10.403080i 0.514493i 10.403986i \
-  0.515399i 10.404891i 0.518116i 10.406703i 0.525362i 10.407609i 0.532609i \
-  10.407609i 0.535326i 10.406703i 0.538949i 10.404891i 0.548007i 10.402174i \
-  0.557971i 10.399457i 0.564312i 10.397645i 0.568841i 10.395833i 0.572464i \
-  10.393116i 0.577899i 10.390399i 0.585145i 10.390399i 0.586051i 10.389493i \
-  0.586957i 10.389493i 0.587862i 10.388587i 0.587862i 10.388587i 0.588768i \
-  10.388587i 0.589674i 10.387681i 0.589674i 10.387681i 0.590580i 10.387681i \
-  0.589674i 10.387681i 0.588768i 10.387681i 0.587862i 10.387681i 0.586957i \
-  10.388587i 0.586957i 10.388587i 0.586051i 10.388587i 0.585145i 10.390399i \
-  0.578804i 10.392210i 0.574275i 10.394022i 0.570652i 10.395833i 0.567029i \
-  10.397645i 0.561594i 10.400362i 0.553442i 10.403080i 0.545290i 10.403986i \
-  0.542572i 10.404891i 0.542572i 10.404891i 0.539855i 10.403986i 0.532609i \
-  10.402174i 0.524457i 10.400362i 0.520833i 10.399457i 0.519928i 10.397645i \
-  0.516304i 10.391304i 0.508152i 10.384964i 0.501812i 10.381341i 0.498188i \
-  10.379529i 0.496377i 10.377717i 0.495471i 10.374094i 0.492754i 10.365942i \
-  0.487319i 10.356884i 0.481884i 10.352355i 0.480072i 10.349638i 0.479167i \
-  10.345109i 0.477355i 10.338768i 0.474638i 10.337862i 0.474638i 10.336957i \
-  0.473732i 10.336051i 0.473732i 10.335145i 0.473732i 10.334239i 0.473732i \
-  10.334239i 0.474638i 10.334239i 0.475543i 10.334239i 0.476449i 10.334239i \
-  0.477355i 10.334239i 0.478261i 10.335145i 0.479167i 10.335145i 0.480072i \
-  10.335145i 0.480978i 10.335145i 0.480072i 10.335145i 0.479167i 10.335145i \
-  0.478261i 10.335145i 0.477355i 10.335145i 0.475543i 10.335145i 0.474638i \
-  10.335145i 0.464674i 10.336051i 0.455616i 10.336051i 0.447464i 10.336957i \
-  0.440217i 10.336957i 0.432065i 10.337862i 0.423913i 10.338768i 0.422101i \
-  10.338768i 0.424819i 10.337862i 0.430254i 10.337862i 0.435688i 10.338768i \
-  0.442029i -outline $tkxox(score_active_note) -fill {}
-${score} create line 10.336051i 0.086051i 10.336051i 0.266304i -fill \
-  $tkxox(score_passive_note)
-${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \
-  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \
-  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \
-  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \
-  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \
-  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \
-  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \
-  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \
-  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \
-  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \
-  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \
-  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \
-  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \
-  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \
-  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \
-  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \
-  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \
-  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \
-  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \
-  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \
-  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \
-  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \
-  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \
-  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \
-  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \
-  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \
-  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \
-  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \
-  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \
-  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \
-  10.340580i 0.097826i 10.341486i 0.104167i -outline {} -fill $tkxox(score_passive_note) -width \
-  0
-${score} create polygon 10.341486i 0.104167i 10.342391i 0.109601i 10.342391i \
-  0.111413i 10.342391i 0.112319i 10.343297i 0.114130i 10.345109i 0.118659i \
-  10.346920i 0.122283i 10.347826i 0.123188i 10.346920i 0.122283i 10.348732i \
-  0.123188i 10.353261i 0.127717i 10.359601i 0.133152i 10.363225i 0.135870i \
-  10.365942i 0.137681i 10.370471i 0.140399i 10.378623i 0.147645i 10.385870i \
-  0.153986i 10.389493i 0.157609i 10.391304i 0.158514i 10.394022i 0.161232i \
-  10.399457i 0.167572i 10.403986i 0.173913i 10.405797i 0.175725i 10.405797i \
-  0.176630i 10.406703i 0.179348i 10.408514i 0.185688i 10.409420i 0.192935i \
-  10.409420i 0.195652i 10.409420i 0.196558i 10.408514i 0.200181i 10.406703i \
-  0.210145i 10.403986i 0.220109i 10.401268i 0.226449i 10.399457i 0.230978i \
-  10.398551i 0.234601i 10.395833i 0.240036i 10.393116i 0.247283i 10.393116i \
-  0.248188i 10.392210i 0.249094i 10.392210i 0.250000i 10.391304i 0.250906i \
-  10.391304i 0.251812i 10.390399i 0.252717i 10.390399i 0.251812i 10.390399i \
-  0.250906i 10.390399i 0.250000i 10.390399i 0.249094i 10.391304i 0.249094i \
-  10.391304i 0.248188i 10.391304i 0.247283i 10.393116i 0.241848i 10.394928i \
-  0.237319i 10.396739i 0.233696i 10.398551i 0.230072i 10.400362i 0.224638i \
-  10.403080i 0.216486i 10.405797i 0.208333i 10.406703i 0.204710i 10.407609i \
-  0.203804i 10.407609i 0.201087i 10.406703i 0.193841i 10.403986i 0.186594i \
-  10.403080i 0.182971i 10.402174i 0.182065i 10.399457i 0.178442i 10.393116i \
-  0.171196i 10.386775i 0.164855i 10.383152i 0.161232i 10.381341i 0.160326i \
-  10.379529i 0.158514i 10.375000i 0.155797i 10.367754i 0.150362i 10.358696i \
-  0.144928i 10.354167i 0.142210i 10.351449i 0.141304i 10.347826i 0.139493i \
-  10.341486i 0.136775i 10.340580i 0.136775i 10.339674i 0.135870i 10.338768i \
-  0.135870i 10.337862i 0.135870i 10.336957i 0.135870i 10.336957i 0.136775i \
-  10.336957i 0.137681i 10.336957i 0.138587i 10.336957i 0.139493i 10.336957i \
-  0.140399i 10.337862i 0.140399i 10.337862i 0.141304i 10.337862i 0.142210i \
-  10.337862i 0.141304i 10.337862i 0.140399i 10.337862i 0.139493i 10.337862i \
-  0.137681i 10.337862i 0.136775i 10.337862i 0.126812i 10.338768i 0.117754i \
-  10.338768i 0.110507i 10.339674i 0.103261i 10.339674i 0.094203i 10.340580i \
-  0.086957i 10.341486i 0.085145i 10.341486i 0.087862i 10.340580i 0.092391i \
-  10.340580i 0.097826i 10.341486i 0.104167i -outline $tkxox(score_passive_note) -fill {}
-${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \
-  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \
-  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \
-  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \
-  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \
-  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \
-  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \
-  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \
-  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \
-  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \
-  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \
-  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \
-  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \
-  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \
-  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \
-  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \
-  10.284420i 0.301630i 10.291667i 0.301630i -outline {} -fill $tkxox(score_passive_note) -width \
-  0
-${score} create polygon 10.291667i 0.301630i 10.298913i 0.300725i 10.302536i \
-  0.300725i 10.304348i 0.300725i 10.308877i 0.299819i 10.316123i 0.298007i \
-  10.323370i 0.295290i 10.326087i 0.293478i 10.326993i 0.293478i 10.329710i \
-  0.291667i 10.335145i 0.287138i 10.339674i 0.282609i 10.341486i 0.280797i \
-  10.342391i 0.279891i 10.344203i 0.277174i 10.345109i 0.272645i 10.345109i \
-  0.269022i 10.345109i 0.266304i 10.344203i 0.265399i 10.344203i 0.264493i \
-  10.342391i 0.262681i 10.338768i 0.259964i 10.333333i 0.257246i 10.330616i \
-  0.256341i 10.328804i 0.256341i 10.325181i 0.255435i 10.317029i 0.255435i \
-  10.308877i 0.256341i 10.304348i 0.256341i 10.302536i 0.257246i 10.298913i \
-  0.258152i 10.291667i 0.260870i 10.285326i 0.263587i 10.283514i 0.265399i \
-  10.282609i 0.266304i 10.280797i 0.268116i 10.277174i 0.271739i 10.273551i \
-  0.274457i 10.272645i 0.275362i 10.271739i 0.276268i 10.269928i 0.278986i \
-  10.268116i 0.282609i 10.267210i 0.284420i 10.266304i 0.285326i 10.266304i \
-  0.287138i 10.266304i 0.290761i 10.267210i 0.294384i 10.268116i 0.296196i \
-  10.268116i 0.297101i 10.269022i 0.297101i 10.269928i 0.298913i 10.273551i \
-  0.300725i 10.278080i 0.302536i 10.280797i 0.302536i 10.281703i 0.302536i \
-  10.284420i 0.301630i 10.291667i 0.301630i -outline $tkxox(score_passive_note) -fill {}
-${score} create line 9.048007i 0.086051i 9.048007i 0.266304i -fill $tkxox(score_passive_note)
-${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \
-  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \
-  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \
-  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \
-  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \
-  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \
-  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \
-  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \
-  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \
-  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \
-  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \
-  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \
-  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \
-  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \
-  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \
-  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \
-  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \
-  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \
-  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \
-  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \
-  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \
-  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \
-  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \
-  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \
-  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \
-  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \
-  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \
-  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \
-  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \
-  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \
-  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \
-  0.104167i -outline {} -fill $tkxox(score_passive_note) -width 0
-${score} create polygon 9.053442i 0.104167i 9.054348i 0.109601i 9.054348i \
-  0.111413i 9.054348i 0.112319i 9.055254i 0.114130i 9.057065i 0.118659i \
-  9.058877i 0.122283i 9.059783i 0.123188i 9.059783i 0.122283i 9.060688i \
-  0.123188i 9.065217i 0.127717i 9.071558i 0.133152i 9.075181i 0.135870i \
-  9.077899i 0.137681i 9.081522i 0.140399i 9.089674i 0.147645i 9.097826i \
-  0.153986i 9.100543i 0.157609i 9.102355i 0.158514i 9.105072i 0.161232i \
-  9.111413i 0.167572i 9.116848i 0.173913i 9.118659i 0.175725i 9.118659i \
-  0.176630i 9.120471i 0.179348i 9.122283i 0.185688i 9.123188i 0.192935i \
-  9.123188i 0.195652i 9.123188i 0.196558i 9.123188i 0.200181i 9.120471i \
-  0.210145i 9.117754i 0.220109i 9.115036i 0.226449i 9.112319i 0.230978i \
-  9.110507i 0.234601i 9.107790i 0.240036i 9.105072i 0.247283i 9.105072i \
-  0.248188i 9.104167i 0.249094i 9.104167i 0.250000i 9.103261i 0.250000i \
-  9.103261i 0.250906i 9.103261i 0.251812i 9.102355i 0.251812i 9.102355i \
-  0.252717i 9.101449i 0.252717i 9.101449i 0.251812i 9.102355i 0.250906i \
-  9.102355i 0.250000i 9.102355i 0.249094i 9.103261i 0.248188i 9.103261i \
-  0.247283i 9.105978i 0.241848i 9.107790i 0.237319i 9.109601i 0.233696i \
-  9.111413i 0.230072i 9.114130i 0.224638i 9.116848i 0.216486i 9.119565i \
-  0.208333i 9.120471i 0.204710i 9.121377i 0.203804i 9.121377i 0.201087i \
-  9.120471i 0.193841i 9.117754i 0.186594i 9.115942i 0.182971i 9.114130i \
-  0.182065i 9.111413i 0.178442i 9.105072i 0.171196i 9.098732i 0.164855i \
-  9.095109i 0.161232i 9.093297i 0.160326i 9.091486i 0.158514i 9.086957i \
-  0.155797i 9.079710i 0.150362i 9.070652i 0.144928i 9.066123i 0.142210i \
-  9.063406i 0.141304i 9.059783i 0.139493i 9.053442i 0.136775i 9.052536i \
-  0.136775i 9.051630i 0.135870i 9.050725i 0.135870i 9.049819i 0.135870i \
-  9.048913i 0.135870i 9.048913i 0.136775i 9.048913i 0.137681i 9.048913i \
-  0.138587i 9.048913i 0.139493i 9.048913i 0.140399i 9.049819i 0.140399i \
-  9.049819i 0.141304i 9.049819i 0.142210i 9.049819i 0.141304i 9.049819i \
-  0.140399i 9.049819i 0.139493i 9.049819i 0.137681i 9.049819i 0.136775i \
-  9.049819i 0.126812i 9.050725i 0.117754i 9.050725i 0.110507i 9.051630i \
-  0.103261i 9.051630i 0.094203i 9.052536i 0.086957i 9.053442i 0.085145i \
-  9.053442i 0.087862i 9.052536i 0.092391i 9.052536i 0.097826i 9.053442i \
-  0.104167i -outline $tkxox(score_passive_note) -fill {}
-${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \
-  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \
-  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \
-  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \
-  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \
-  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \
-  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \
-  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \
-  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \
-  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \
-  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \
-  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \
-  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \
-  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \
-  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \
-  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \
-  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \
-  0.301630i -outline {} -fill $tkxox(score_passive_note) -width 0
-${score} create polygon 9.005435i 0.301630i 9.012681i 0.300725i 9.015399i \
-  0.300725i 9.017210i 0.300725i 9.019928i 0.299819i 9.027174i 0.298007i \
-  9.034420i 0.295290i 9.037138i 0.293478i 9.038949i 0.293478i 9.041667i \
-  0.291667i 9.047101i 0.287138i 9.051630i 0.282609i 9.053442i 0.280797i \
-  9.054348i 0.279891i 9.056159i 0.277174i 9.057065i 0.272645i 9.057065i \
-  0.269928i 9.057065i 0.267210i 9.057065i 0.266304i 9.057065i 0.265399i \
-  9.056159i 0.264493i 9.055254i 0.263587i 9.053442i 0.261775i 9.050725i \
-  0.259964i 9.045290i 0.257246i 9.041667i 0.256341i 9.039855i 0.256341i \
-  9.036232i 0.255435i 9.028080i 0.255435i 9.020833i 0.256341i 9.017210i \
-  0.256341i 9.015399i 0.257246i 9.011775i 0.258152i 9.005435i 0.260870i \
-  8.999094i 0.263587i 8.997283i 0.265399i 8.996377i 0.266304i 8.994565i \
-  0.268116i 8.990942i 0.271739i 8.987319i 0.274457i 8.986413i 0.275362i \
-  8.985507i 0.276268i 8.983696i 0.278986i 8.981884i 0.282609i 8.980978i \
-  0.284420i 8.980072i 0.285326i 8.980072i 0.287138i 8.980072i 0.290761i \
-  8.980978i 0.294384i 8.981884i 0.296196i 8.981884i 0.297101i 8.982790i \
-  0.297101i 8.983696i 0.298913i 8.987319i 0.300725i 8.991848i 0.302536i \
-  8.994565i 0.302536i 8.995471i 0.302536i 8.999094i 0.301630i 9.005435i \
-  0.301630i -outline $tkxox(score_passive_note) -fill {}
-${score} create line 2.314312i 0.403080i 1.096014i 0.403080i -fill $tkxox(score_active_note)
-${score} create line 2.317029i 0.063406i 1.099638i 0.063406i -fill $tkxox(score_active_note)
-${score} create line 3.681159i 0.063406i 2.312500i 0.063406i -fill $tkxox(score_active_note)
-${score} create line 4.343297i 0.403080i 3.070652i 0.403080i -fill $tkxox(score_active_note)
-${score} create line 6.311594i 0.403080i 5.038043i 0.403080i -fill $tkxox(score_active_note)
-${score} create line 7.660326i 0.065217i 5.040761i 0.065217i -fill $tkxox(score_active_note)
-${score} create line 8.295290i 0.406703i 7.022645i 0.406703i -fill $tkxox(score_active_note)
-${score} create line 10.346920i 0.404891i 9.047101i 0.404891i -fill $tkxox(score_active_note)
-${score} create line 11.795290i 0.407609i 11.023551i 0.403080i -fill \
-  $tkxox(score_passive_note)
-${score} create line 11.788949i 0.061594i 9.048007i 0.061594i -fill $tkxox(score_passive_note)
-${score} create line 1.097826i 0.063406i 1.096920i 0.063406i 1.094203i \
-  0.063406i 1.088768i 0.063406i 1.081522i 0.063406i 1.073370i 0.064312i \
-  1.063406i 0.066123i 1.053442i 0.067935i 1.049819i 0.068841i 1.048913i \
-  0.069746i 1.045290i 0.070652i 1.034420i 0.075181i 1.024457i 0.079710i \
-  1.019022i 0.080616i 1.018116i 0.080616i 1.016304i 0.080616i 1.009964i \
-  0.084239i 0.995471i 0.093297i 0.981884i 0.103261i 0.970109i 0.112319i \
-  0.959239i 0.121377i 0.949275i 0.130435i 0.940217i 0.138587i 0.933877i \
-  0.144022i 0.931159i 0.146739i 0.930254i 0.147645i -joinstyle bevel -fill \
+${score} create line 2.313583i 0.402953i 1.095669i 0.402953i -fill $tkxox(score_active_note)
+${score} create line 2.316299i 0.063386i 1.099291i 0.063386i -fill $tkxox(score_active_note)
+${score} create line 3.680000i 0.063386i 2.311772i 0.063386i -fill $tkxox(score_active_note)
+${score} create line 4.341929i 0.402953i 3.069685i 0.402953i -fill $tkxox(score_active_note)
+${score} create line 6.309606i 0.402953i 5.036457i 0.402953i -fill $tkxox(score_active_note)
+${score} create line 7.657913i 0.065197i 5.039173i 0.065197i -fill $tkxox(score_active_note)
+${score} create line 8.292677i 0.406575i 7.020433i 0.406575i -fill $tkxox(score_active_note)
+${score} create line 10.343661i 0.404764i 9.044252i 0.404764i -fill $tkxox(score_active_note)
+${score} create line 11.791575i 0.407480i 11.020079i 0.402953i -fill $tkxox(score_passive_note)
+${score} create line 11.785236i 0.061575i 9.045157i 0.061575i -fill $tkxox(score_passive_note)
+${score} create line 1.097480i 0.063386i 1.096575i 0.063386i 1.093858i 0.063386i \
+  1.088425i 0.063386i 1.081181i 0.063386i 1.073031i 0.064291i 1.063071i 0.066102i \
+  1.053110i 0.067913i 1.049488i 0.068819i 1.048583i 0.069724i 1.044961i 0.070630i \
+  1.034094i 0.075157i 1.024134i 0.079685i 1.018701i 0.080591i 1.017795i 0.080591i \
+  1.015984i 0.080591i 1.009646i 0.084213i 0.995157i 0.093268i 0.981575i 0.103228i \
+  0.969803i 0.112283i 0.958937i 0.121339i 0.948976i 0.130394i 0.939921i 0.138543i \
+  0.933583i 0.143976i 0.930866i 0.146693i 0.929961i 0.147598i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 1.098732i 0.400362i 1.097826i 0.400362i 1.095109i \
-  0.400362i 1.089674i 0.400362i 1.082428i 0.400362i 1.074275i 0.401268i \
-  1.064312i 0.403080i 1.054348i 0.404891i 1.050725i 0.405797i 1.049819i \
-  0.406703i 1.046196i 0.407609i 1.035326i 0.412138i 1.025362i 0.416667i \
-  1.019928i 0.418478i 1.019022i 0.418478i 1.017210i 0.418478i 1.010870i \
-  0.422101i 0.996377i 0.432065i 0.982790i 0.442029i 0.971014i 0.451993i \
-  0.960145i 0.461051i 0.950181i 0.469203i 0.941123i 0.477355i 0.934783i \
-  0.482790i 0.932065i 0.485507i 0.931159i 0.486413i -joinstyle bevel -fill \
+${score} create line 1.098386i 0.400236i 1.097480i 0.400236i 1.094764i 0.400236i \
+  1.089331i 0.400236i 1.082087i 0.400236i 1.073937i 0.401142i 1.063976i 0.402953i \
+  1.054016i 0.404764i 1.050394i 0.405669i 1.049488i 0.406575i 1.045866i 0.407480i \
+  1.035000i 0.412008i 1.025039i 0.416535i 1.019606i 0.418346i 1.018701i 0.418346i \
+  1.016890i 0.418346i 1.010551i 0.421969i 0.996063i 0.431929i 0.982480i 0.441890i \
+  0.970709i 0.451850i 0.959843i 0.460906i 0.949882i 0.469055i 0.940827i 0.477205i \
+  0.934488i 0.482638i 0.931772i 0.485354i 0.930866i 0.486260i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 2.311594i 0.400362i 2.312500i 0.400362i 2.315217i \
-  0.400362i 2.319746i 0.400362i 2.326993i 0.400362i 2.334239i 0.401268i \
-  2.344203i 0.403080i 2.354167i 0.404891i 2.357790i 0.405797i 2.358696i \
-  0.406703i 2.362319i 0.407609i 2.373188i 0.412138i 2.383152i 0.416667i \
-  2.387681i 0.418478i 2.389493i 0.418478i 2.390399i 0.418478i 2.396739i \
-  0.422101i 2.411232i 0.432065i 2.423913i 0.442029i 2.436594i 0.451993i \
-  2.447464i 0.461051i 2.457428i 0.469203i 2.466486i 0.477355i 2.472826i \
-  0.482790i 2.475543i 0.485507i 2.476449i 0.486413i -joinstyle bevel -fill \
+${score} create line 2.310866i 0.400236i 2.311772i 0.400236i 2.314488i 0.400236i \
+  2.319016i 0.400236i 2.326260i 0.400236i 2.333504i 0.401142i 2.343465i 0.402953i \
+  2.353425i 0.404764i 2.357047i 0.405669i 2.357953i 0.406575i 2.361575i 0.407480i \
+  2.372441i 0.412008i 2.382402i 0.416535i 2.386929i 0.418346i 2.388740i 0.418346i \
+  2.389646i 0.418346i 2.395984i 0.421969i 2.410472i 0.431929i 2.423150i 0.441890i \
+  2.435827i 0.451850i 2.446693i 0.460906i 2.456654i 0.469055i 2.465709i 0.477205i \
+  2.472047i 0.482638i 2.474764i 0.485354i 2.475669i 0.486260i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 3.670290i 0.065217i 3.671196i 0.065217i 3.673913i \
-  0.065217i 3.679348i 0.065217i 3.686594i 0.066123i 3.695652i 0.067029i \
-  3.705616i 0.068841i 3.715580i 0.071558i 3.719203i 0.072464i 3.720109i \
-  0.072464i 3.723732i 0.074275i 3.734601i 0.077899i 3.744565i 0.081522i \
-  3.749094i 0.083333i 3.750906i 0.082428i 3.751812i 0.082428i 3.758152i \
-  0.086051i 3.772645i 0.095109i 3.785326i 0.104167i 3.798007i 0.114130i \
-  3.808877i 0.123188i 3.818841i 0.132246i 3.827899i 0.139493i 3.834239i \
-  0.144928i 3.836957i 0.147645i 3.837862i 0.148551i -joinstyle bevel -fill \
+${score} create line 3.669134i 0.065197i 3.670039i 0.065197i 3.672756i 0.065197i \
+  3.678189i 0.065197i 3.685433i 0.066102i 3.694488i 0.067008i 3.704449i 0.068819i \
+  3.714409i 0.071535i 3.718031i 0.072441i 3.718937i 0.072441i 3.722559i 0.074252i \
+  3.733425i 0.077874i 3.743386i 0.081496i 3.747913i 0.083307i 3.749724i 0.082402i \
+  3.750630i 0.082402i 3.756969i 0.086024i 3.771457i 0.095079i 3.784134i 0.104134i \
+  3.796811i 0.114094i 3.807677i 0.123150i 3.817638i 0.132205i 3.826693i 0.139449i \
+  3.833031i 0.144882i 3.835748i 0.147598i 3.836654i 0.148504i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 4.337862i 0.403080i 4.338768i 0.403080i 4.342391i \
-  0.403080i 4.349638i 0.403986i 4.357790i 0.404891i 4.369565i 0.406703i \
-  4.378623i 0.408514i 4.383152i 0.409420i 4.384964i 0.409420i 4.386775i \
-  0.409420i 4.391304i 0.411232i 4.401268i 0.414855i 4.411232i 0.419384i \
-  4.416667i 0.421196i 4.417572i 0.421196i 4.418478i 0.422101i 4.424819i \
-  0.425725i 4.439312i 0.435688i 4.451993i 0.445652i 4.464674i 0.455616i \
-  4.475543i 0.464674i 4.485507i 0.473732i 4.494565i 0.480978i 4.500906i \
-  0.486413i 4.503623i 0.489130i 4.504529i 0.490036i -joinstyle bevel -fill \
+${score} create line 4.336496i 0.402953i 4.337402i 0.402953i 4.341024i 0.402953i \
+  4.348268i 0.403858i 4.356417i 0.404764i 4.368189i 0.406575i 4.377244i 0.408386i \
+  4.381772i 0.409291i 4.383583i 0.409291i 4.385394i 0.409291i 4.389921i 0.411102i \
+  4.399882i 0.414724i 4.409843i 0.419252i 4.415276i 0.421063i 4.416181i 0.421063i \
+  4.417087i 0.421969i 4.423425i 0.425591i 4.437913i 0.435551i 4.450591i 0.445512i \
+  4.463268i 0.455472i 4.474134i 0.464528i 4.484094i 0.473583i 4.493150i 0.480827i \
+  4.499488i 0.486260i 4.502205i 0.488976i 4.503110i 0.489882i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 3.073370i 0.400362i 3.072464i 0.400362i 3.069746i \
-  0.400362i 3.065217i 0.400362i 3.057971i 0.400362i 3.050725i 0.401268i \
-  3.040761i 0.403080i 3.030797i 0.404891i 3.027174i 0.405797i 3.026268i \
-  0.406703i 3.022645i 0.407609i 3.011775i 0.412138i 3.001812i 0.416667i \
-  2.997283i 0.418478i 2.995471i 0.418478i 2.994565i 0.418478i 2.988225i \
-  0.422101i 2.973732i 0.432065i 2.960145i 0.442029i 2.948370i 0.451993i \
-  2.936594i 0.461051i 2.926630i 0.469203i 2.916667i 0.477355i 2.910326i \
-  0.482790i 2.907609i 0.485507i 2.906703i 0.486413i -joinstyle bevel -fill \
+${score} create line 3.072402i 0.400236i 3.071496i 0.400236i 3.068780i 0.400236i \
+  3.064252i 0.400236i 3.057008i 0.400236i 3.049764i 0.401142i 3.039803i 0.402953i \
+  3.029843i 0.404764i 3.026220i 0.405669i 3.025315i 0.406575i 3.021693i 0.407480i \
+  3.010827i 0.412008i 3.000866i 0.416535i 2.996339i 0.418346i 2.994528i 0.418346i \
+  2.993622i 0.418346i 2.987283i 0.421969i 2.972795i 0.431929i 2.959213i 0.441890i \
+  2.947441i 0.451850i 2.935669i 0.460906i 2.925709i 0.469055i 2.915748i 0.477205i \
+  2.909409i 0.482638i 2.906693i 0.485354i 2.905787i 0.486260i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 5.038043i 0.399457i 5.037138i 0.399457i 5.034420i \
-  0.399457i 5.029891i 0.400362i 5.022645i 0.400362i 5.015399i 0.401268i \
-  5.005435i 0.403080i 4.995471i 0.404891i 4.991848i 0.405797i 4.990942i \
-  0.405797i 4.987319i 0.406703i 4.976449i 0.411232i 4.966486i 0.415761i \
-  4.961957i 0.417572i 4.960145i 0.417572i 4.959239i 0.418478i 4.952899i \
-  0.422101i 4.938406i 0.432065i 4.925725i 0.442029i 4.913043i 0.451087i \
-  4.902174i 0.460145i 4.892210i 0.469203i 4.883152i 0.476449i 4.876812i \
-  0.481884i 4.874094i 0.484601i 4.873188i 0.485507i -joinstyle bevel -fill \
+${score} create line 5.036457i 0.399331i 5.035551i 0.399331i 5.032835i 0.399331i \
+  5.028307i 0.400236i 5.021063i 0.400236i 5.013819i 0.401142i 5.003858i 0.402953i \
+  4.993898i 0.404764i 4.990276i 0.405669i 4.989370i 0.405669i 4.985748i 0.406575i \
+  4.974882i 0.411102i 4.964921i 0.415630i 4.960394i 0.417441i 4.958583i 0.417441i \
+  4.957677i 0.418346i 4.951339i 0.421969i 4.936850i 0.431929i 4.924173i 0.441890i \
+  4.911496i 0.450945i 4.900630i 0.460000i 4.890669i 0.469055i 4.881614i 0.476299i \
+  4.875276i 0.481732i 4.872559i 0.484449i 4.871654i 0.485354i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 5.039855i 0.064312i 5.038949i 0.064312i 5.036232i \
-  0.064312i 5.031703i 0.064312i 5.024457i 0.064312i 5.017210i 0.065217i \
-  5.007246i 0.067029i 4.997283i 0.068841i 4.993659i 0.069746i 4.992754i \
-  0.070652i 4.989130i 0.071558i 4.978261i 0.076087i 4.968297i 0.080616i \
-  4.963768i 0.081522i 4.961957i 0.081522i 4.961051i 0.081522i 4.954710i \
-  0.085145i 4.940217i 0.094203i 4.927536i 0.103261i 4.914855i 0.113225i \
-  4.903986i 0.122283i 4.894022i 0.131341i 4.884964i 0.138587i 4.878623i \
-  0.144022i 4.875906i 0.146739i 4.875000i 0.147645i -joinstyle bevel -fill \
+${score} create line 5.038268i 0.064291i 5.037362i 0.064291i 5.034646i 0.064291i \
+  5.030118i 0.064291i 5.022874i 0.064291i 5.015630i 0.065197i 5.005669i 0.067008i \
+  4.995709i 0.068819i 4.992087i 0.069724i 4.991181i 0.070630i 4.987559i 0.071535i \
+  4.976693i 0.076063i 4.966732i 0.080591i 4.962205i 0.081496i 4.960394i 0.081496i \
+  4.959488i 0.081496i 4.953150i 0.085118i 4.938661i 0.094173i 4.925984i 0.103228i \
+  4.913307i 0.113189i 4.902441i 0.122244i 4.892480i 0.131299i 4.883425i 0.138543i \
+  4.877087i 0.143976i 4.874370i 0.146693i 4.873465i 0.147598i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 6.313406i 0.403080i 6.314312i 0.403080i 6.317029i \
-  0.403080i 6.322464i 0.403080i 6.328804i 0.403986i 6.336957i 0.403986i \
-  6.346920i 0.405797i 6.356884i 0.407609i 6.360507i 0.408514i 6.364130i \
-  0.409420i 6.375000i 0.413949i 6.384964i 0.418478i 6.390399i 0.420290i \
-  6.391304i 0.420290i 6.393116i 0.421196i 6.399457i 0.424819i 6.413949i \
-  0.434783i 6.427536i 0.444746i 6.439312i 0.454710i 6.450181i 0.463768i \
-  6.460145i 0.472826i 6.469203i 0.480072i 6.475543i 0.485507i 6.478261i \
-  0.488225i 6.479167i 0.489130i -joinstyle bevel -fill $tkxox(score_active_note)
-${score} create line 7.658514i 0.067029i 7.659420i 0.067029i 7.663043i \
-  0.067029i 7.670290i 0.067029i 7.678442i 0.067935i 7.690217i 0.069746i \
-  7.699275i 0.071558i 7.703804i 0.073370i 7.705616i 0.073370i 7.707428i \
-  0.074275i 7.711957i 0.076087i 7.721920i 0.079710i 7.731884i 0.084239i \
-  7.737319i 0.085145i 7.738225i 0.085145i 7.739130i 0.085145i 7.745471i \
-  0.088768i 7.759964i 0.097826i 7.772645i 0.106884i 7.785326i 0.116848i \
-  7.796196i 0.125906i 7.806159i 0.134964i 7.815217i 0.142210i 7.821558i \
-  0.147645i 7.824275i 0.150362i 7.825181i 0.151268i -joinstyle bevel -fill \
+${score} create line 6.311417i 0.402953i 6.312323i 0.402953i 6.315039i 0.402953i \
+  6.320472i 0.402953i 6.326811i 0.403858i 6.334961i 0.403858i 6.344921i 0.405669i \
+  6.354882i 0.407480i 6.358504i 0.408386i 6.362126i 0.409291i 6.372992i 0.413819i \
+  6.382953i 0.418346i 6.388386i 0.420157i 6.389291i 0.420157i 6.391102i 0.421063i \
+  6.397441i 0.424685i 6.411929i 0.434646i 6.425512i 0.444606i 6.437283i 0.454567i \
+  6.448150i 0.463622i 6.458110i 0.472677i 6.467165i 0.479921i 6.473504i 0.485354i \
+  6.476220i 0.488071i 6.477126i 0.488976i -joinstyle bevel -fill $tkxox(score_active_note)
+${score} create line 7.656102i 0.067008i 7.657008i 0.067008i 7.660630i 0.067008i \
+  7.667874i 0.067008i 7.676024i 0.067913i 7.687795i 0.069724i 7.696850i 0.071535i \
+  7.701378i 0.073346i 7.703189i 0.073346i 7.705000i 0.074252i 7.709528i 0.076063i \
+  7.719488i 0.079685i 7.729449i 0.084213i 7.734882i 0.085118i 7.735787i 0.085118i \
+  7.736693i 0.085118i 7.743031i 0.088740i 7.757520i 0.097795i 7.770197i 0.106850i \
+  7.782874i 0.116811i 7.793740i 0.125866i 7.803701i 0.134921i 7.812756i 0.142165i \
+  7.819094i 0.147598i 7.821811i 0.150315i 7.822717i 0.151220i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 7.049819i 0.403080i 7.048913i 0.403080i 7.046196i \
-  0.403080i 7.041667i 0.403080i 7.034420i 0.403986i 7.027174i 0.403986i \
-  7.017210i 0.405797i 7.007246i 0.407609i 7.003623i 0.408514i 7.002717i \
-  0.408514i 6.999094i 0.409420i 6.988225i 0.413949i 6.978261i 0.418478i \
-  6.972826i 0.420290i 6.971014i 0.420290i 6.969203i 0.421196i 6.962862i \
-  0.424819i 6.948370i 0.434783i 6.934783i 0.444746i 6.923007i 0.454710i \
-  6.912138i 0.463768i 6.902174i 0.472826i 6.893116i 0.480072i 6.886775i \
-  0.485507i 6.884058i 0.488225i 6.883152i 0.489130i -joinstyle bevel -fill \
+${score} create line 7.047598i 0.402953i 7.046693i 0.402953i 7.043976i 0.402953i \
+  7.039449i 0.402953i 7.032205i 0.403858i 7.024961i 0.403858i 7.015000i 0.405669i \
+  7.005039i 0.407480i 7.001417i 0.408386i 7.000512i 0.408386i 6.996890i 0.409291i \
+  6.986024i 0.413819i 6.976063i 0.418346i 6.970630i 0.420157i 6.968819i 0.420157i \
+  6.967008i 0.421063i 6.960669i 0.424685i 6.946181i 0.434646i 6.932598i 0.444606i \
+  6.920827i 0.454567i 6.909961i 0.463622i 6.900000i 0.472677i 6.890945i 0.479921i \
+  6.884606i 0.485354i 6.881890i 0.488071i 6.880984i 0.488976i -joinstyle bevel -fill \
   $tkxox(score_active_note)
-${score} create line 8.290761i 0.405797i 8.291667i 0.405797i 8.295290i \
-  0.405797i 8.302536i 0.405797i 8.310688i 0.406703i 8.322464i 0.408514i \
-  8.332428i 0.410326i 8.336051i 0.411232i 8.336957i 0.412138i 8.341486i \
-  0.413043i 8.352355i 0.417572i 8.362319i 0.422101i 8.366848i 0.423913i \
-  8.368659i 0.423913i 8.369565i 0.423913i 8.375906i 0.427536i 8.390399i \
-  0.437500i 8.403986i 0.447464i 8.415761i 0.457428i 8.427536i 0.466486i \
-  8.438406i 0.474638i 8.447464i 0.482790i 8.453804i 0.488225i 8.456522i \
-  0.490942i 8.457428i 0.491848i -joinstyle bevel -fill $tkxox(score_active_note)
-${score} create line 10.342391i 0.403080i 10.343297i 0.403080i 10.346014i \
-  0.403080i 10.351449i 0.403986i 10.357790i 0.403986i 10.365942i 0.404891i \
-  10.375906i 0.406703i 10.385870i 0.408514i 10.389493i 0.409420i 10.390399i \
-  0.409420i 10.394022i 0.410326i 10.404891i 0.414855i 10.414855i 0.419384i \
-  10.419384i 0.421196i 10.421196i 0.421196i 10.422101i 0.422101i 10.428442i \
-  0.425725i 10.442935i 0.435688i 10.455616i 0.445652i 10.468297i 0.455616i \
-  10.479167i 0.464674i 10.489130i 0.473732i 10.498188i 0.480978i 10.504529i \
-  0.486413i 10.507246i 0.489130i 10.508152i 0.490036i -joinstyle bevel -fill \
-  $tkxox(score_active_note)
-${score} create line 11.024457i 0.402174i 11.023551i 0.402174i 11.020833i \
-  0.402174i 11.015399i 0.402174i 11.008152i 0.403080i 10.999094i 0.403080i \
-  10.989130i 0.404891i 10.979167i 0.406703i 10.975543i 0.407609i 10.974638i \
-  0.407609i 10.971014i 0.408514i 10.960145i 0.413043i 10.950181i 0.417572i \
-  10.944746i 0.419384i 10.943841i 0.419384i 10.942029i 0.420290i 10.935688i \
-  0.423913i 10.921196i 0.433877i 10.908514i 0.443841i 10.895833i 0.452899i \
-  10.884964i 0.461957i 10.875000i 0.471014i 10.866848i 0.478261i 10.860507i \
-  0.483696i 10.857790i 0.486413i 10.856884i 0.487319i -joinstyle bevel -fill \
-  $tkxox(score_passive_note)
-${score} create line 9.053442i 0.065217i 9.052536i 0.065217i 9.049819i \
-  0.065217i 9.045290i 0.065217i 9.038949i 0.066123i 9.030797i 0.067029i \
-  9.020833i 0.068841i 9.010870i 0.071558i 9.007246i 0.072464i 9.005435i \
-  0.072464i 9.001812i 0.074275i 8.990942i 0.077899i 8.980978i 0.081522i \
-  8.975543i 0.083333i 8.974638i 0.082428i 8.973732i 0.082428i 8.967391i \
-  0.086051i 8.952899i 0.095109i 8.940217i 0.104167i 8.927536i 0.114130i \
-  8.916667i 0.123188i 8.906703i 0.132246i 8.897645i 0.139493i 8.891304i \
-  0.144928i 8.888587i 0.147645i 8.887681i 0.148551i -joinstyle bevel -fill \
+${score} create line 8.288150i 0.405669i 8.289055i 0.405669i 8.292677i 0.405669i \
+  8.299921i 0.405669i 8.308071i 0.406575i 8.319843i 0.408386i 8.329803i 0.410197i \
+  8.333425i 0.411102i 8.334331i 0.412008i 8.338858i 0.412913i 8.349724i 0.417441i \
+  8.359685i 0.421969i 8.364213i 0.423780i 8.366024i 0.423780i 8.366929i 0.423780i \
+  8.373268i 0.427402i 8.387756i 0.437362i 8.401339i 0.447323i 8.413110i 0.457283i \
+  8.424882i 0.466339i 8.435748i 0.474488i 8.444803i 0.482638i 8.451142i 0.488071i \
+  8.453858i 0.490787i 8.454764i 0.491693i -joinstyle bevel -fill $tkxox(score_active_note)
+${score} create line 10.339134i 0.402953i 10.340039i 0.402953i 10.342756i 0.402953i \
+  10.348189i 0.403858i 10.354528i 0.403858i 10.362677i 0.404764i 10.372638i 0.406575i \
+  10.382598i 0.408386i 10.386220i 0.409291i 10.387126i 0.409291i 10.390748i 0.410197i \
+  10.401614i 0.414724i 10.411575i 0.419252i 10.416102i 0.421063i 10.417913i 0.421063i \
+  10.418819i 0.421969i 10.425157i 0.425591i 10.439646i 0.435551i 10.452323i 0.445512i \
+  10.465000i 0.455472i 10.475866i 0.464528i 10.485827i 0.473583i 10.494882i 0.480827i \
+  10.501220i 0.486260i 10.503937i 0.488976i 10.504843i 0.489882i -joinstyle bevel \
+  -fill $tkxox(score_active_note)
+${score} create line 11.020984i 0.402047i 11.020079i 0.402047i 11.017362i 0.402047i \
+  11.011929i 0.402047i 11.004685i 0.402953i 10.995630i 0.402953i 10.985669i 0.404764i \
+  10.975709i 0.406575i 10.972087i 0.407480i 10.971181i 0.407480i 10.967559i 0.408386i \
+  10.956693i 0.412913i 10.946732i 0.417441i 10.941299i 0.419252i 10.940394i 0.419252i \
+  10.938583i 0.420157i 10.932244i 0.423780i 10.917756i 0.433740i 10.905079i 0.443701i \
+  10.892402i 0.452756i 10.881535i 0.461811i 10.871575i 0.470866i 10.863425i 0.478110i \
+  10.857087i 0.483543i 10.854370i 0.486260i 10.853465i 0.487165i -joinstyle bevel \
+  -fill $tkxox(score_passive_note)
+${score} create line 9.050591i 0.065197i 9.049685i 0.065197i 9.046969i 0.065197i \
+  9.042441i 0.065197i 9.036102i 0.066102i 9.027953i 0.067008i 9.017992i 0.068819i \
+  9.008031i 0.071535i 9.004409i 0.072441i 9.002598i 0.072441i 8.998976i 0.074252i \
+  8.988110i 0.077874i 8.978150i 0.081496i 8.972717i 0.083307i 8.971811i 0.082402i \
+  8.970906i 0.082402i 8.964567i 0.086024i 8.950079i 0.095079i 8.937402i 0.104134i \
+  8.924724i 0.114094i 8.913858i 0.123150i 8.903898i 0.132205i 8.894843i 0.139449i \
+  8.888504i 0.144882i 8.885787i 0.147598i 8.884882i 0.148504i -joinstyle bevel -fill \
   $tkxox(score_passive_note)
-${score} create line 9.051630i 0.403080i 9.050725i 0.403080i 9.048007i \
-  0.403080i 9.043478i 0.403080i 9.037138i 0.403986i 9.028986i 0.403986i \
-  9.019022i 0.405797i 9.009058i 0.407609i 9.005435i 0.408514i 9.003623i \
-  0.408514i 9.000000i 0.409420i 8.989130i 0.413949i 8.979167i 0.418478i \
-  8.973732i 0.420290i 8.972826i 0.420290i 8.971920i 0.421196i 8.965580i \
-  0.424819i 8.951087i 0.434783i 8.938406i 0.444746i 8.925725i 0.454710i \
-  8.914855i 0.463768i 8.904891i 0.472826i 8.895833i 0.480072i 8.889493i \
-  0.485507i 8.886775i 0.488225i 8.885870i 0.489130i -joinstyle bevel -fill \
+${score} create line 9.048780i 0.402953i 9.047874i 0.402953i 9.045157i 0.402953i \
+  9.040630i 0.402953i 9.034291i 0.403858i 9.026142i 0.403858i 9.016181i 0.405669i \
+  9.006220i 0.407480i 9.002598i 0.408386i 9.000787i 0.408386i 8.997165i 0.409291i \
+  8.986299i 0.413819i 8.976339i 0.418346i 8.970906i 0.420157i 8.970000i 0.420157i \
+  8.969094i 0.421063i 8.962756i 0.424685i 8.948268i 0.434646i 8.935591i 0.444606i \
+  8.922913i 0.454567i 8.912047i 0.463622i 8.902087i 0.472677i 8.893031i 0.479921i \
+  8.886693i 0.485354i 8.883976i 0.488071i 8.883071i 0.488976i -joinstyle bevel -fill \
   $tkxox(score_active_note)
diff --git a/score_defs.c b/score_defs.c
index 365fa9b..5547092 100644
--- a/score_defs.c
+++ b/score_defs.c
@@ -1,8 +1,8 @@
-char tcl_score_defs[] = ""
-"# file automatically generated by:\n"
-"#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig\n"
-"set score_width_in_inch  12.12\n"
-"set score_height_in_inch 1.44\n"
-"set score_scroll_x_in_point -10\n"
-"set score_scroll_y_in_point -2\n"
-"";
+char tcl_score_defs[] = "\
+# file automatically generated by:\n\
+#		./score_fig2tcl.sh ./score.fig\n\
+set score_width_in_inch  12.12\n\
+set score_height_in_inch 1.44\n\
+set score_scroll_x_in_point -10\n\
+set score_scroll_y_in_point -2\n\
+";
diff --git a/score_defs.tcl b/score_defs.tcl
index 7e057e7..93379d1 100644
--- a/score_defs.tcl
+++ b/score_defs.tcl
@@ -1,5 +1,5 @@
 # file automatically generated by:
-#		/yama/home/edp/saramito/dvt/tk707/score_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/score.fig
+#		./score_fig2tcl.sh ./score.fig
 set score_width_in_inch  12.12
 set score_height_in_inch 1.44
 set score_scroll_x_in_point -10
diff --git a/score_fig2tcl.sh b/score_fig2tcl.sh
index 2fe08ac..dd08346 100644
--- a/score_fig2tcl.sh
+++ b/score_fig2tcl.sh
@@ -44,6 +44,21 @@ fi
 # -----------------------------------------------------
 width_in_inch=` grep "^canvas" $tmp | awk '{print $4}' | sed -e 's/i//' `
 height_in_inch=`grep "^canvas" $tmp | awk '{print $6}' | sed -e 's/i//' `
+# -----------------------------------------------------
+# if failed, try the new fig2dev output :
+#   set xfigCanvas [canvas .c -width 6.90i -height 0.82i]
+# -----------------------------------------------------
+if test x"$width_in_inch" = x"" -o x"$height_in_inch" = x""; then
+  width_in_inch=` grep "^set xfigCanvas" $tmp | awk '{print $6}' | sed -e 's/i//' `
+  height_in_inch=`grep "^set xfigCanvas" $tmp | awk '{print $8}' | sed -e 's/i//' -e 's/\]//' `
+fi
+echo "width_in_inch $width_in_inch"
+echo "height_in_inch $height_in_inch"
+if test x"$width_in_inch" = x"" -o x"$height_in_inch" = x""; then
+    echo "title_fig2tcl: failed to catch bounding box" >&2
+    exit 1
+fi
+# -----------------------------------------------------
 #
 # get bounding box such that
 #	$xfigCanvas config -xscrollincrement 1p -yscrollincrement 1p
@@ -51,6 +66,7 @@ height_in_inch=`grep "^canvas" $tmp | awk '{print $6}' | sed -e 's/i//' `
 #	$xfigCanvas yview scroll 28 u
 scroll_x_in_point=` grep "xview" $tmp | awk '{print $4}' | sed -e 's/i//' `
 scroll_y_in_point=` grep "yview" $tmp | awk '{print $4}' | sed -e 's/i//' `
+
 # ----------------------------------------------------------------------
 # generates the defs output
 # ----------------------------------------------------------------------
diff --git a/stamp-h.in b/stamp-h.in
deleted file mode 100644
index 9788f70..0000000
--- a/stamp-h.in
+++ /dev/null
@@ -1 +0,0 @@
-timestamp
diff --git a/stamp-vti b/stamp-vti
index 4166dd1..017553e 100644
--- a/stamp-vti
+++ b/stamp-vti
@@ -1,3 +1,4 @@
-@set UPDATED 19 March 2001
-@set EDITION 0.7
-@set VERSION 0.7
+@set UPDATED 3 November 2004
+@set UPDATED-MONTH November 2004
+@set EDITION 0.8
+@set VERSION 0.8
diff --git a/tcl2c.c b/tcl2c.c
index b4f19da..2e26f79 100644
--- a/tcl2c.c
+++ b/tcl2c.c
@@ -1,4 +1,24 @@
 /*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+/*
 	Netvideo version 3.2
 	Written by Ron Frederick <frederick@parc.xerox.com>
 
@@ -45,11 +65,11 @@ main(int argc, char **argv)
     }
 
     if (genstrings) {
-	fprintf(out, "char %s[] = \"\"\n\"", argv[1]);
+	fprintf(out, "char %s[] = \"\\\n", argv[1]);
 	while ((c = getc(in)) != EOF) {
 	    switch (c) {
 	    case '\n':
-		fprintf(out, "\\n\"\n\"");
+		fprintf(out, "\\n\\\n");
 		break;
 	    case '\"':
 		fprintf(out, "\\\"");
diff --git a/texi2help.c b/texi2help.c
index 3c7f6be..94dc3f3 100644
--- a/texi2help.c
+++ b/texi2help.c
@@ -1,32 +1,85 @@
-/* A lexical scanner generated by flex */
 
-/* Scanner skeleton version:
- * $Header: /home/daffy/u0/vern/flex/RCS/flex.skl,v 2.91 96/09/10 16:58:48 vern Exp $
- */
+#line 3 "lex.yy.c"
+
+#define  YY_INT_ALIGNED short int
+
+/* A lexical scanner generated by flex */
 
 #define FLEX_SCANNER
 #define YY_FLEX_MAJOR_VERSION 2
 #define YY_FLEX_MINOR_VERSION 5
+#define YY_FLEX_SUBMINOR_VERSION 31
+#if YY_FLEX_SUBMINOR_VERSION > 0
+#define FLEX_BETA
+#endif
+
+/* First, we deal with  platform-specific or compiler-specific issues. */
 
+/* begin standard C headers. */
 #include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <stdlib.h>
 
+/* end standard C headers. */
 
-/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
-#ifdef c_plusplus
-#ifndef __cplusplus
-#define __cplusplus
+/* flex integer type definitions */
+
+#ifndef FLEXINT_H
+#define FLEXINT_H
+
+/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
+
+#if defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L
+#include <inttypes.h>
+typedef int8_t flex_int8_t;
+typedef uint8_t flex_uint8_t;
+typedef int16_t flex_int16_t;
+typedef uint16_t flex_uint16_t;
+typedef int32_t flex_int32_t;
+typedef uint32_t flex_uint32_t;
+#else
+typedef signed char flex_int8_t;
+typedef short int flex_int16_t;
+typedef int flex_int32_t;
+typedef unsigned char flex_uint8_t; 
+typedef unsigned short int flex_uint16_t;
+typedef unsigned int flex_uint32_t;
+#endif /* ! C99 */
+
+/* Limits of integral types. */
+#ifndef INT8_MIN
+#define INT8_MIN               (-128)
+#endif
+#ifndef INT16_MIN
+#define INT16_MIN              (-32767-1)
+#endif
+#ifndef INT32_MIN
+#define INT32_MIN              (-2147483647-1)
+#endif
+#ifndef INT8_MAX
+#define INT8_MAX               (127)
+#endif
+#ifndef INT16_MAX
+#define INT16_MAX              (32767)
+#endif
+#ifndef INT32_MAX
+#define INT32_MAX              (2147483647)
+#endif
+#ifndef UINT8_MAX
+#define UINT8_MAX              (255U)
 #endif
+#ifndef UINT16_MAX
+#define UINT16_MAX             (65535U)
+#endif
+#ifndef UINT32_MAX
+#define UINT32_MAX             (4294967295U)
 #endif
 
+#endif /* ! FLEXINT_H */
 
 #ifdef __cplusplus
 
-#include <stdlib.h>
-#include <unistd.h>
-
-/* Use prototypes in function declarations. */
-#define YY_USE_PROTOS
-
 /* The "const" storage-class-modifier is valid. */
 #define YY_USE_CONST
 
@@ -34,34 +87,17 @@
 
 #if __STDC__
 
-#define YY_USE_PROTOS
 #define YY_USE_CONST
 
 #endif	/* __STDC__ */
 #endif	/* ! __cplusplus */
 
-#ifdef __TURBOC__
- #pragma warn -rch
- #pragma warn -use
-#include <io.h>
-#include <stdlib.h>
-#define YY_USE_CONST
-#define YY_USE_PROTOS
-#endif
-
 #ifdef YY_USE_CONST
 #define yyconst const
 #else
 #define yyconst
 #endif
 
-
-#ifdef YY_USE_PROTOS
-#define YY_PROTO(proto) proto
-#else
-#define YY_PROTO(proto) ()
-#endif
-
 /* Returned upon end-of-file. */
 #define YY_NULL 0
 
@@ -76,71 +112,71 @@
  * but we do it the disgusting crufty way forced on us by the ()-less
  * definition of BEGIN.
  */
-#define BEGIN yy_start = 1 + 2 *
+#define BEGIN (yy_start) = 1 + 2 *
 
 /* Translate the current start state into a value that can be later handed
  * to BEGIN to return to the state.  The YYSTATE alias is for lex
  * compatibility.
  */
-#define YY_START ((yy_start - 1) / 2)
+#define YY_START (((yy_start) - 1) / 2)
 #define YYSTATE YY_START
 
 /* Action number for EOF rule of a given start state. */
 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
 
 /* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart( yyin )
+#define YY_NEW_FILE yyrestart(yyin  )
 
 #define YY_END_OF_BUFFER_CHAR 0
 
 /* Size of default input buffer. */
+#ifndef YY_BUF_SIZE
 #define YY_BUF_SIZE 16384
+#endif
 
+#ifndef YY_TYPEDEF_YY_BUFFER_STATE
+#define YY_TYPEDEF_YY_BUFFER_STATE
 typedef struct yy_buffer_state *YY_BUFFER_STATE;
+#endif
 
 extern int yyleng;
+
 extern FILE *yyin, *yyout;
 
 #define EOB_ACT_CONTINUE_SCAN 0
 #define EOB_ACT_END_OF_FILE 1
 #define EOB_ACT_LAST_MATCH 2
 
-/* The funky do-while in the following #define is used to turn the definition
- * int a single C statement (which needs a semi-colon terminator).  This
- * avoids problems with code like:
- *
- * 	if ( condition_holds )
- *		yyless( 5 );
- *	else
- *		do_something_else();
- *
- * Prior to using the do-while the compiler would get upset at the
- * "else" because it interpreted the "if" statement as being all
- * done when it reached the ';' after the yyless() call.
- */
-
-/* Return all but the first 'n' matched characters back to the input stream. */
-
+    #define YY_LESS_LINENO(n)
+    
+/* Return all but the first "n" matched characters back to the input stream. */
 #define yyless(n) \
 	do \
 		{ \
 		/* Undo effects of setting up yytext. */ \
-		*yy_cp = yy_hold_char; \
+        int yyless_macro_arg = (n); \
+        YY_LESS_LINENO(yyless_macro_arg);\
+		*yy_cp = (yy_hold_char); \
 		YY_RESTORE_YY_MORE_OFFSET \
-		yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
+		(yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
 		YY_DO_BEFORE_ACTION; /* set up yytext again */ \
 		} \
 	while ( 0 )
 
-#define unput(c) yyunput( c, yytext_ptr )
+#define unput(c) yyunput( c, (yytext_ptr)  )
 
 /* The following is because we cannot portably get our hands on size_t
  * (without autoconf's help, which isn't available because we want
  * flex-generated scanners to compile on their own).
  */
-typedef unsigned int yy_size_t;
 
+#ifndef YY_TYPEDEF_YY_SIZE_T
+#define YY_TYPEDEF_YY_SIZE_T
+typedef unsigned int yy_size_t;
+#endif
 
+#ifndef YY_STRUCT_YY_BUFFER_STATE
+#define YY_STRUCT_YY_BUFFER_STATE
 struct yy_buffer_state
 	{
 	FILE *yy_input_file;
@@ -177,12 +213,16 @@ struct yy_buffer_state
 	 */
 	int yy_at_bol;
 
+    int yy_bs_lineno; /**< The line count. */
+    int yy_bs_column; /**< The column count. */
+    
 	/* Whether to try to fill the input buffer when we reach the
 	 * end of it.
 	 */
 	int yy_fill_buffer;
 
 	int yy_buffer_status;
+
 #define YY_BUFFER_NEW 0
 #define YY_BUFFER_NORMAL 1
 	/* When an EOF's been seen but there's still some text to process
@@ -196,23 +236,33 @@ struct yy_buffer_state
 	 * just pointing yyin at a new input file.
 	 */
 #define YY_BUFFER_EOF_PENDING 2
+
 	};
+#endif /* !YY_STRUCT_YY_BUFFER_STATE */
 
-static YY_BUFFER_STATE yy_current_buffer = 0;
+/* Stack of input buffers. */
+static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
+static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
+static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
 
 /* We provide macros for accessing buffer states in case in the
  * future we want to put the buffer states in a more general
  * "scanner state".
+ *
+ * Returns the top of the stack, or NULL.
  */
-#define YY_CURRENT_BUFFER yy_current_buffer
+#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
+                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
+                          : NULL)
 
+/* Same as previous macro, but useful when we know that the buffer stack is not
+ * NULL or when we need an lvalue. For internal use only.
+ */
+#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
 
 /* yy_hold_char holds the character lost when yytext is formed. */
 static char yy_hold_char;
-
 static int yy_n_chars;		/* number of characters read into yy_ch_buf */
-
-
 int yyleng;
 
 /* Points to current character in buffer. */
@@ -225,66 +275,92 @@ static int yy_start = 0;	/* start state number */
  */
 static int yy_did_buffer_switch_on_eof;
 
-void yyrestart YY_PROTO(( FILE *input_file ));
+void yyrestart (FILE *input_file  );
+void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer  );
+YY_BUFFER_STATE yy_create_buffer (FILE *file,int size  );
+void yy_delete_buffer (YY_BUFFER_STATE b  );
+void yy_flush_buffer (YY_BUFFER_STATE b  );
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer  );
+void yypop_buffer_state (void );
+
+static void yyensure_buffer_stack (void );
+static void yy_load_buffer_state (void );
+static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file  );
 
-void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
-void yy_load_buffer_state YY_PROTO(( void ));
-YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
-void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
-void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
-void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
-#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
+#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
 
-YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
-YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
-YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
+YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size  );
+YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str  );
+YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len  );
 
-static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
-static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
-static void yy_flex_free YY_PROTO(( void * ));
+void *yyalloc (yy_size_t  );
+void *yyrealloc (void *,yy_size_t  );
+void yyfree (void *  );
 
 #define yy_new_buffer yy_create_buffer
 
 #define yy_set_interactive(is_interactive) \
 	{ \
-	if ( ! yy_current_buffer ) \
-		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
-	yy_current_buffer->yy_is_interactive = is_interactive; \
+	if ( ! YY_CURRENT_BUFFER ){ \
+        yyensure_buffer_stack (); \
+		YY_CURRENT_BUFFER_LVALUE =    \
+            yy_create_buffer(yyin,YY_BUF_SIZE ); \
+	} \
+	YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
 	}
 
 #define yy_set_bol(at_bol) \
 	{ \
-	if ( ! yy_current_buffer ) \
-		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
-	yy_current_buffer->yy_at_bol = at_bol; \
+	if ( ! YY_CURRENT_BUFFER ){\
+        yyensure_buffer_stack (); \
+		YY_CURRENT_BUFFER_LVALUE =    \
+            yy_create_buffer(yyin,YY_BUF_SIZE ); \
+	} \
+	YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
 	}
 
-#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
+#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
+
+/* Begin user sect3 */
 
 typedef unsigned char YY_CHAR;
+
 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
+
 typedef int yy_state_type;
+
+extern int yylineno;
+
+int yylineno = 1;
+
 extern char *yytext;
 #define yytext_ptr yytext
 
-static yy_state_type yy_get_previous_state YY_PROTO(( void ));
-static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
-static int yy_get_next_buffer YY_PROTO(( void ));
-static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
+static yy_state_type yy_get_previous_state (void );
+static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
+static int yy_get_next_buffer (void );
+static void yy_fatal_error (yyconst char msg[]  );
 
 /* Done after the current pattern has been matched and before the
  * corresponding action - sets up yytext.
  */
 #define YY_DO_BEFORE_ACTION \
-	yytext_ptr = yy_bp; \
-	yyleng = (int) (yy_cp - yy_bp); \
-	yy_hold_char = *yy_cp; \
+	(yytext_ptr) = yy_bp; \
+	yyleng = (size_t) (yy_cp - yy_bp); \
+	(yy_hold_char) = *yy_cp; \
 	*yy_cp = '\0'; \
-	yy_c_buf_p = yy_cp;
+	(yy_c_buf_p) = yy_cp;
 
 #define YY_NUM_RULES 43
 #define YY_END_OF_BUFFER 44
-static yyconst short int yy_accept[352] =
+/* This struct is not used in this scanner,
+   but its presence is necessary. */
+struct yy_trans_info
+	{
+	flex_int32_t yy_verify;
+	flex_int32_t yy_nxt;
+	};
+static yyconst flex_int16_t yy_accept[352] =
     {   0,
         0,    0,    0,    0,    0,    0,   41,   41,    0,    0,
         0,    0,    0,    0,   44,   43,   43,   43,   21,   21,
@@ -327,7 +403,7 @@ static yyconst short int yy_accept[352] =
         0
     } ;
 
-static yyconst int yy_ec[256] =
+static yyconst flex_int32_t yy_ec[256] =
     {   0,
         1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
@@ -359,7 +435,7 @@ static yyconst int yy_ec[256] =
         1,    1,    1,    1,    1
     } ;
 
-static yyconst int yy_meta[35] =
+static yyconst flex_int32_t yy_meta[35] =
     {   0,
         1,    1,    2,    1,    1,    3,    3,    1,    3,    3,
         3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
@@ -367,7 +443,7 @@ static yyconst int yy_meta[35] =
         3,    3,    1,    4
     } ;
 
-static yyconst short int yy_base[377] =
+static yyconst flex_int16_t yy_base[377] =
     {   0,
         0,    1,    2,    5,    8,    9,  482,  481,   39,   73,
       107,  141,    0,    0,  514,  517,  171,  496,  517,  201,
@@ -412,7 +488,7 @@ static yyconst short int yy_base[377] =
       302,  306,  310,  314,  318,  322
     } ;
 
-static yyconst short int yy_def[377] =
+static yyconst flex_int16_t yy_def[377] =
     {   0,
       352,  352,  353,  353,  354,  354,  355,  355,  356,  356,
       357,  357,  352,  352,  351,  351,  351,  351,  351,  351,
@@ -457,7 +533,7 @@ static yyconst short int yy_def[377] =
       351,  351,  351,  351,  351,  351
     } ;
 
-static yyconst short int yy_nxt[552] =
+static yyconst flex_int16_t yy_nxt[552] =
     {   0,
       351,   65,   69,   65,   17,   17,   20,   18,   18,   20,
        23,   23,   24,   24,   68,   83,   68,   72,   73,   78,
@@ -522,7 +598,7 @@ static yyconst short int yy_nxt[552] =
       351
     } ;
 
-static yyconst short int yy_chk[552] =
+static yyconst flex_int16_t yy_chk[552] =
     {   0,
         0,   28,  360,   28,    1,    2,    3,    1,    2,    4,
         5,    6,    5,    6,   33,   44,   33,   40,   40,   42,
@@ -590,6 +666,9 @@ static yyconst short int yy_chk[552] =
 static yy_state_type yy_last_accepting_state;
 static char *yy_last_accepting_cpos;
 
+extern int yy_flex_debug;
+int yy_flex_debug = 0;
+
 /* The intent behind this definition is that it'll catch
  * any uses of REJECT which flex missed.
  */
@@ -598,9 +677,28 @@ static char *yy_last_accepting_cpos;
 #define YY_MORE_ADJ 0
 #define YY_RESTORE_YY_MORE_OFFSET
 char *yytext;
-#line 1 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
-#define INITIAL 0
-#line 2 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 1 "./texi2help.l"
+#line 2 "./texi2help.l"
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
 /* compile commands:
 
  	flex texi2help.flex 
@@ -621,6 +719,10 @@ int font = no_font;
 int arg_previous_state = 0;
 int quote = '\'';
 #define put(c) printf ("%c", c);
+
+#line 724 "lex.yy.c"
+
+#define INITIAL 0
 #define arg 1
 #define skip_bloc 2
 #define skip_braces 3
@@ -628,7 +730,17 @@ int quote = '\'';
 #define format 5
 #define item 6
 
-#line 632 "lex.yy.c"
+#ifndef YY_NO_UNISTD_H
+/* Special case for "unistd.h", since it is non-ANSI. We include it way
+ * down here because we want the user's section 1 to have been scanned first.
+ * The user has a chance to override it with an option.
+ */
+#include <unistd.h>
+#endif
+
+#ifndef YY_EXTRA_TYPE
+#define YY_EXTRA_TYPE void *
+#endif
 
 /* Macros after this point can all be overridden by user definitions in
  * section 1.
@@ -636,65 +748,30 @@ int quote = '\'';
 
 #ifndef YY_SKIP_YYWRAP
 #ifdef __cplusplus
-extern "C" int yywrap YY_PROTO(( void ));
+extern "C" int yywrap (void );
 #else
-extern int yywrap YY_PROTO(( void ));
-#endif
+extern int yywrap (void );
 #endif
-
-#ifndef YY_NO_UNPUT
-static void yyunput YY_PROTO(( int c, char *buf_ptr ));
 #endif
 
+    static void yyunput (int c,char *buf_ptr  );
+    
 #ifndef yytext_ptr
-static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
+static void yy_flex_strncpy (char *,yyconst char *,int );
 #endif
 
 #ifdef YY_NEED_STRLEN
-static int yy_flex_strlen YY_PROTO(( yyconst char * ));
+static int yy_flex_strlen (yyconst char * );
 #endif
 
 #ifndef YY_NO_INPUT
-#ifdef __cplusplus
-static int yyinput YY_PROTO(( void ));
-#else
-static int input YY_PROTO(( void ));
-#endif
-#endif
-
-#if YY_STACK_USED
-static int yy_start_stack_ptr = 0;
-static int yy_start_stack_depth = 0;
-static int *yy_start_stack = 0;
-#ifndef YY_NO_PUSH_STATE
-static void yy_push_state YY_PROTO(( int new_state ));
-#endif
-#ifndef YY_NO_POP_STATE
-static void yy_pop_state YY_PROTO(( void ));
-#endif
-#ifndef YY_NO_TOP_STATE
-static int yy_top_state YY_PROTO(( void ));
-#endif
 
+#ifdef __cplusplus
+static int yyinput (void );
 #else
-#define YY_NO_PUSH_STATE 1
-#define YY_NO_POP_STATE 1
-#define YY_NO_TOP_STATE 1
+static int input (void );
 #endif
 
-#ifdef YY_MALLOC_DECL
-YY_MALLOC_DECL
-#else
-#if __STDC__
-#ifndef __cplusplus
-#include <stdlib.h>
-#endif
-#else
-/* Just try to get by without declaring the routines.  This will fail
- * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
- * or sizeof(void*) != sizeof(int).
- */
-#endif
 #endif
 
 /* Amount of stuff to slurp up with each read. */
@@ -703,7 +780,6 @@ YY_MALLOC_DECL
 #endif
 
 /* Copy whatever the last rule matched to the standard output. */
-
 #ifndef ECHO
 /* This used to be an fputs(), but since the string might contain NUL's,
  * we now use fwrite().
@@ -716,9 +792,10 @@ YY_MALLOC_DECL
  */
 #ifndef YY_INPUT
 #define YY_INPUT(buf,result,max_size) \
-	if ( yy_current_buffer->yy_is_interactive ) \
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
 		{ \
-		int c = '*', n; \
+		int c = '*'; \
+		size_t n; \
 		for ( n = 0; n < max_size && \
 			     (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
 			buf[n] = (char) c; \
@@ -728,9 +805,22 @@ YY_MALLOC_DECL
 			YY_FATAL_ERROR( "input in flex scanner failed" ); \
 		result = n; \
 		} \
-	else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
-		  && ferror( yyin ) ) \
-		YY_FATAL_ERROR( "input in flex scanner failed" );
+	else \
+		{ \
+		errno=0; \
+		while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
+			{ \
+			if( errno != EINTR) \
+				{ \
+				YY_FATAL_ERROR( "input in flex scanner failed" ); \
+				break; \
+				} \
+			errno=0; \
+			clearerr(yyin); \
+			} \
+		}\
+\
+
 #endif
 
 /* No semi-colon after return; correct usage is to write "yyterminate();" -
@@ -751,12 +841,18 @@ YY_MALLOC_DECL
 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
 #endif
 
+/* end tables serialization structures and prototypes */
+
 /* Default declaration of generated scanner - a define so the user can
  * easily add parameters.
  */
 #ifndef YY_DECL
-#define YY_DECL int yylex YY_PROTO(( void ))
-#endif
+#define YY_DECL_IS_OURS 1
+
+extern int yylex (void);
+
+#define YY_DECL int yylex (void)
+#endif /* !YY_DECL */
 
 /* Code executed at the beginning of each rule, after yytext and yyleng
  * have been set up.
@@ -773,31 +869,33 @@ YY_MALLOC_DECL
 #define YY_RULE_SETUP \
 	YY_USER_ACTION
 
+/** The main scanner function which does all the work.
+ */
 YY_DECL
-	{
+{
 	register yy_state_type yy_current_state;
 	register char *yy_cp, *yy_bp;
 	register int yy_act;
-
-#line 25 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+    
+#line 45 "./texi2help.l"
 
 
 /* --------------------------------------------------------------
  * 	specials
  * --------------------------------------------------------------*/
 
-#line 790 "lex.yy.c"
+#line 888 "lex.yy.c"
 
-	if ( yy_init )
+	if ( (yy_init) )
 		{
-		yy_init = 0;
+		(yy_init) = 0;
 
 #ifdef YY_USER_INIT
 		YY_USER_INIT;
 #endif
 
-		if ( ! yy_start )
-			yy_start = 1;	/* first start state */
+		if ( ! (yy_start) )
+			(yy_start) = 1;	/* first start state */
 
 		if ( ! yyin )
 			yyin = stdin;
@@ -805,34 +903,36 @@ YY_DECL
 		if ( ! yyout )
 			yyout = stdout;
 
-		if ( ! yy_current_buffer )
-			yy_current_buffer =
-				yy_create_buffer( yyin, YY_BUF_SIZE );
+		if ( ! YY_CURRENT_BUFFER ) {
+			yyensure_buffer_stack ();
+			YY_CURRENT_BUFFER_LVALUE =
+				yy_create_buffer(yyin,YY_BUF_SIZE );
+		}
 
-		yy_load_buffer_state();
+		yy_load_buffer_state( );
 		}
 
 	while ( 1 )		/* loops until end-of-file is reached */
 		{
-		yy_cp = yy_c_buf_p;
+		yy_cp = (yy_c_buf_p);
 
 		/* Support of yytext. */
-		*yy_cp = yy_hold_char;
+		*yy_cp = (yy_hold_char);
 
 		/* yy_bp points to the position in yy_ch_buf of the start of
 		 * the current run.
 		 */
 		yy_bp = yy_cp;
 
-		yy_current_state = yy_start;
+		yy_current_state = (yy_start);
 yy_match:
 		do
 			{
 			register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
 			if ( yy_accept[yy_current_state] )
 				{
-				yy_last_accepting_state = yy_current_state;
-				yy_last_accepting_cpos = yy_cp;
+				(yy_last_accepting_state) = yy_current_state;
+				(yy_last_accepting_cpos) = yy_cp;
 				}
 			while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
 				{
@@ -849,39 +949,37 @@ yy_find_action:
 		yy_act = yy_accept[yy_current_state];
 		if ( yy_act == 0 )
 			{ /* have to back up */
-			yy_cp = yy_last_accepting_cpos;
-			yy_current_state = yy_last_accepting_state;
+			yy_cp = (yy_last_accepting_cpos);
+			yy_current_state = (yy_last_accepting_state);
 			yy_act = yy_accept[yy_current_state];
 			}
 
 		YY_DO_BEFORE_ACTION;
 
-
 do_action:	/* This label is used only to access EOF actions. */
 
-
 		switch ( yy_act )
 	{ /* beginning of action switch */
 			case 0: /* must back up */
 			/* undo the effects of YY_DO_BEFORE_ACTION */
-			*yy_cp = yy_hold_char;
-			yy_cp = yy_last_accepting_cpos;
-			yy_current_state = yy_last_accepting_state;
+			*yy_cp = (yy_hold_char);
+			yy_cp = (yy_last_accepting_cpos);
+			yy_current_state = (yy_last_accepting_state);
 			goto yy_find_action;
 
 case 1:
 YY_RULE_SETUP
-#line 31 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 51 "./texi2help.l"
 { printf ("@@ "); }
 	YY_BREAK
 case 2:
 YY_RULE_SETUP
-#line 32 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 52 "./texi2help.l"
 { printf ("{"); }
 	YY_BREAK
 case 3:
 YY_RULE_SETUP
-#line 33 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 53 "./texi2help.l"
 { printf ("}"); }
 	YY_BREAK
 
@@ -891,32 +989,32 @@ YY_RULE_SETUP
 
 case 4:
 YY_RULE_SETUP
-#line 39 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 59 "./texi2help.l"
 { printf ("@C0@t%s@t\n", yytext+10); }
 	YY_BREAK
 case 5:
 YY_RULE_SETUP
-#line 40 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 60 "./texi2help.l"
 {}
 	YY_BREAK
 case 6:
 YY_RULE_SETUP
-#line 41 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 61 "./texi2help.l"
 { printf ("@C1@t%s@t\n", yytext+9); }
 	YY_BREAK
 case 7:
 YY_RULE_SETUP
-#line 42 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 62 "./texi2help.l"
 { printf ("@C1@t%s@t\n", yytext+10); }
 	YY_BREAK
 case 8:
 YY_RULE_SETUP
-#line 43 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 63 "./texi2help.l"
 { printf ("@C2@t%s@t\n", yytext+9); }
 	YY_BREAK
 case 9:
 YY_RULE_SETUP
-#line 44 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 64 "./texi2help.l"
 { printf ("@C2@t%s@t\n", yytext+12); }
 	YY_BREAK
 
@@ -928,7 +1026,7 @@ YY_RULE_SETUP
 
 case 10:
 YY_RULE_SETUP
-#line 52 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 72 "./texi2help.l"
 { /* in bold */
 			  font = 'c';
                           arg_previous_state = YYSTATE;
@@ -937,7 +1035,7 @@ YY_RULE_SETUP
 	YY_BREAK
 case 11:
 YY_RULE_SETUP
-#line 57 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 77 "./texi2help.l"
 { /* highlight */
 			  font = 'h';
                           arg_previous_state = YYSTATE;
@@ -946,7 +1044,7 @@ YY_RULE_SETUP
 	YY_BREAK
 case 12:
 YY_RULE_SETUP
-#line 62 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 82 "./texi2help.l"
 { /* in italic */
 			  font = 'i';
                           arg_previous_state = YYSTATE;
@@ -955,7 +1053,7 @@ YY_RULE_SETUP
 	YY_BREAK
 case 13:
 YY_RULE_SETUP
-#line 67 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 87 "./texi2help.l"
 { /* end of arg */
 			  font = no_font;
 			  BEGIN(arg_previous_state);
@@ -963,22 +1061,23 @@ YY_RULE_SETUP
 	YY_BREAK
 case 14:
 YY_RULE_SETUP
-#line 71 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 91 "./texi2help.l"
 { printf("@%c%s", font, yytext_ptr); }
 	YY_BREAK
 case 15:
 YY_RULE_SETUP
-#line 72 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 92 "./texi2help.l"
 { printf("%s", yytext_ptr); }
 	YY_BREAK
 case 16:
+/* rule 16 can match eol */
 YY_RULE_SETUP
-#line 73 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 93 "./texi2help.l"
 { put('\n'); }
 	YY_BREAK
 case 17:
 YY_RULE_SETUP
-#line 74 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 94 "./texi2help.l"
 { printf("@%c%c", font, *yytext_ptr); }
 	YY_BREAK
 
@@ -990,7 +1089,7 @@ YY_RULE_SETUP
 
 case 18:
 YY_RULE_SETUP
-#line 82 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 102 "./texi2help.l"
 { /* in quotes */
 			  font = quote; printf("`");
                           arg_previous_state = YYSTATE;
@@ -999,7 +1098,7 @@ YY_RULE_SETUP
 	YY_BREAK
 case 19:
 YY_RULE_SETUP
-#line 87 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 107 "./texi2help.l"
 { /* in (...) */
 			  font = ')'; printf (" (");
                           arg_previous_state = YYSTATE;
@@ -1008,7 +1107,7 @@ YY_RULE_SETUP
 	YY_BREAK
 case 20:
 YY_RULE_SETUP
-#line 92 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 112 "./texi2help.l"
 { /* end of arg */
 			  printf("'");
 			  font = no_font;
@@ -1016,8 +1115,9 @@ YY_RULE_SETUP
 			}
 	YY_BREAK
 case 21:
+/* rule 21 can match eol */
 YY_RULE_SETUP
-#line 97 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 117 "./texi2help.l"
 { printf("%s", yytext_ptr); }
 	YY_BREAK
 
@@ -1026,8 +1126,9 @@ YY_RULE_SETUP
  * --------------------------------------------------------------*/
 
 case 22:
+/* rule 22 can match eol */
 YY_RULE_SETUP
-#line 103 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 123 "./texi2help.l"
 { 
 				  arg_previous_state = YYSTATE; 
 				  BEGIN(example);
@@ -1036,27 +1137,28 @@ YY_RULE_SETUP
 	YY_BREAK
 case 23:
 YY_RULE_SETUP
-#line 108 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 128 "./texi2help.l"
 { BEGIN(arg_previous_state); }
 	YY_BREAK
 case 24:
 YY_RULE_SETUP
-#line 109 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 129 "./texi2help.l"
 { printf("@%c%s", font, yytext_ptr); }
 	YY_BREAK
 case 25:
 YY_RULE_SETUP
-#line 110 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 130 "./texi2help.l"
 { printf("%s", yytext_ptr); }
 	YY_BREAK
 case 26:
+/* rule 26 can match eol */
 YY_RULE_SETUP
-#line 111 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 131 "./texi2help.l"
 { put('\n'); }
 	YY_BREAK
 case 27:
 YY_RULE_SETUP
-#line 112 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 132 "./texi2help.l"
 { printf("@%c%c", font, *yytext_ptr); }
 	YY_BREAK
 
@@ -1065,23 +1167,27 @@ YY_RULE_SETUP
  * --------------------------------------------------------------*/
 
 case 28:
+/* rule 28 can match eol */
 YY_RULE_SETUP
-#line 118 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 138 "./texi2help.l"
 { printf ("\n\t* "); }
 	YY_BREAK
 case 29:
+/* rule 29 can match eol */
 YY_RULE_SETUP
-#line 119 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 139 "./texi2help.l"
 { printf ("\n\t%s", yytext_ptr+6); }
 	YY_BREAK
 case 30:
+/* rule 30 can match eol */
 YY_RULE_SETUP
-#line 120 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 140 "./texi2help.l"
 {}
 	YY_BREAK
 case 31:
+/* rule 31 can match eol */
 YY_RULE_SETUP
-#line 121 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 141 "./texi2help.l"
 {}
 	YY_BREAK
 
@@ -1090,66 +1196,74 @@ YY_RULE_SETUP
  * --------------------------------------------------------------*/
 
 case 32:
+/* rule 32 can match eol */
 YY_RULE_SETUP
-#line 127 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 147 "./texi2help.l"
 {}
 	YY_BREAK
 case 33:
+/* rule 33 can match eol */
 YY_RULE_SETUP
-#line 128 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 148 "./texi2help.l"
 {}
 	YY_BREAK
 case 34:
+/* rule 34 can match eol */
 YY_RULE_SETUP
-#line 129 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 149 "./texi2help.l"
 {}
 	YY_BREAK
 case 35:
+/* rule 35 can match eol */
 YY_RULE_SETUP
-#line 130 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 150 "./texi2help.l"
 {}
 	YY_BREAK
 case 36:
+/* rule 36 can match eol */
 YY_RULE_SETUP
-#line 132 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 152 "./texi2help.l"
 { arg_previous_state = YYSTATE; BEGIN(skip_bloc); }
 	YY_BREAK
 case 37:
+/* rule 37 can match eol */
 YY_RULE_SETUP
-#line 133 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 153 "./texi2help.l"
 { BEGIN(arg_previous_state); }
 	YY_BREAK
 case 38:
 YY_RULE_SETUP
-#line 134 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 154 "./texi2help.l"
 {}
 	YY_BREAK
 case 39:
+/* rule 39 can match eol */
 YY_RULE_SETUP
-#line 135 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 155 "./texi2help.l"
 {}
 	YY_BREAK
 case 40:
 YY_RULE_SETUP
-#line 137 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 157 "./texi2help.l"
 { arg_previous_state = YYSTATE; BEGIN(skip_braces); }
 	YY_BREAK
 case 41:
+/* rule 41 can match eol */
 YY_RULE_SETUP
-#line 138 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 158 "./texi2help.l"
 {}
 	YY_BREAK
 case 42:
 YY_RULE_SETUP
-#line 139 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 159 "./texi2help.l"
 { BEGIN(arg_previous_state); }
 	YY_BREAK
 case 43:
 YY_RULE_SETUP
-#line 140 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 160 "./texi2help.l"
 ECHO;
 	YY_BREAK
-#line 1153 "lex.yy.c"
+#line 1267 "lex.yy.c"
 case YY_STATE_EOF(INITIAL):
 case YY_STATE_EOF(arg):
 case YY_STATE_EOF(skip_bloc):
@@ -1162,26 +1276,26 @@ case YY_STATE_EOF(item):
 	case YY_END_OF_BUFFER:
 		{
 		/* Amount of text matched not including the EOB char. */
-		int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
+		int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
 
 		/* Undo the effects of YY_DO_BEFORE_ACTION. */
-		*yy_cp = yy_hold_char;
+		*yy_cp = (yy_hold_char);
 		YY_RESTORE_YY_MORE_OFFSET
 
-		if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
+		if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
 			{
 			/* We're scanning a new file or input source.  It's
 			 * possible that this happened because the user
 			 * just pointed yyin at a new source and called
 			 * yylex().  If so, then we have to assure
-			 * consistency between yy_current_buffer and our
+			 * consistency between YY_CURRENT_BUFFER and our
 			 * globals.  Here is the right place to do so, because
 			 * this is the first action (other than possibly a
 			 * back-up) that will match for the new input source.
 			 */
-			yy_n_chars = yy_current_buffer->yy_n_chars;
-			yy_current_buffer->yy_input_file = yyin;
-			yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
+			(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+			YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
+			YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
 			}
 
 		/* Note that here we test for yy_c_buf_p "<=" to the position
@@ -1191,13 +1305,13 @@ case YY_STATE_EOF(item):
 		 * end-of-buffer state).  Contrast this with the test
 		 * in input().
 		 */
-		if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
+		if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
 			{ /* This was really a NUL. */
 			yy_state_type yy_next_state;
 
-			yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
+			(yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
 
-			yy_current_state = yy_get_previous_state();
+			yy_current_state = yy_get_previous_state(  );
 
 			/* Okay, we're now positioned to make the NUL
 			 * transition.  We couldn't have
@@ -1210,30 +1324,30 @@ case YY_STATE_EOF(item):
 
 			yy_next_state = yy_try_NUL_trans( yy_current_state );
 
-			yy_bp = yytext_ptr + YY_MORE_ADJ;
+			yy_bp = (yytext_ptr) + YY_MORE_ADJ;
 
 			if ( yy_next_state )
 				{
 				/* Consume the NUL. */
-				yy_cp = ++yy_c_buf_p;
+				yy_cp = ++(yy_c_buf_p);
 				yy_current_state = yy_next_state;
 				goto yy_match;
 				}
 
 			else
 				{
-				yy_cp = yy_c_buf_p;
+				yy_cp = (yy_c_buf_p);
 				goto yy_find_action;
 				}
 			}
 
-		else switch ( yy_get_next_buffer() )
+		else switch ( yy_get_next_buffer(  ) )
 			{
 			case EOB_ACT_END_OF_FILE:
 				{
-				yy_did_buffer_switch_on_eof = 0;
+				(yy_did_buffer_switch_on_eof) = 0;
 
-				if ( yywrap() )
+				if ( yywrap( ) )
 					{
 					/* Note: because we've taken care in
 					 * yy_get_next_buffer() to have set up
@@ -1244,7 +1358,7 @@ case YY_STATE_EOF(item):
 					 * YY_NULL, it'll still work - another
 					 * YY_NULL will get returned.
 					 */
-					yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
+					(yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
 
 					yy_act = YY_STATE_EOF(YY_START);
 					goto do_action;
@@ -1252,30 +1366,30 @@ case YY_STATE_EOF(item):
 
 				else
 					{
-					if ( ! yy_did_buffer_switch_on_eof )
+					if ( ! (yy_did_buffer_switch_on_eof) )
 						YY_NEW_FILE;
 					}
 				break;
 				}
 
 			case EOB_ACT_CONTINUE_SCAN:
-				yy_c_buf_p =
-					yytext_ptr + yy_amount_of_matched_text;
+				(yy_c_buf_p) =
+					(yytext_ptr) + yy_amount_of_matched_text;
 
-				yy_current_state = yy_get_previous_state();
+				yy_current_state = yy_get_previous_state(  );
 
-				yy_cp = yy_c_buf_p;
-				yy_bp = yytext_ptr + YY_MORE_ADJ;
+				yy_cp = (yy_c_buf_p);
+				yy_bp = (yytext_ptr) + YY_MORE_ADJ;
 				goto yy_match;
 
 			case EOB_ACT_LAST_MATCH:
-				yy_c_buf_p =
-				&yy_current_buffer->yy_ch_buf[yy_n_chars];
+				(yy_c_buf_p) =
+				&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
 
-				yy_current_state = yy_get_previous_state();
+				yy_current_state = yy_get_previous_state(  );
 
-				yy_cp = yy_c_buf_p;
-				yy_bp = yytext_ptr + YY_MORE_ADJ;
+				yy_cp = (yy_c_buf_p);
+				yy_bp = (yytext_ptr) + YY_MORE_ADJ;
 				goto yy_find_action;
 			}
 		break;
@@ -1286,8 +1400,7 @@ case YY_STATE_EOF(item):
 			"fatal flex scanner internal error--no action found" );
 	} /* end of action switch */
 		} /* end of scanning one token */
-	} /* end of yylex */
-
+} /* end of yylex */
 
 /* yy_get_next_buffer - try to read in a new buffer
  *
@@ -1296,21 +1409,20 @@ case YY_STATE_EOF(item):
  *	EOB_ACT_CONTINUE_SCAN - continue scanning from current position
  *	EOB_ACT_END_OF_FILE - end of file
  */
-
-static int yy_get_next_buffer()
-	{
-	register char *dest = yy_current_buffer->yy_ch_buf;
-	register char *source = yytext_ptr;
+static int yy_get_next_buffer (void)
+{
+    	register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
+	register char *source = (yytext_ptr);
 	register int number_to_move, i;
 	int ret_val;
 
-	if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
+	if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
 		YY_FATAL_ERROR(
 		"fatal flex scanner internal error--end of buffer missed" );
 
-	if ( yy_current_buffer->yy_fill_buffer == 0 )
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
 		{ /* Don't try to fill the buffer, so this is an EOF. */
-		if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
+		if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
 			{
 			/* We matched a single character, the EOB, so
 			 * treat this as a final EOF.
@@ -1330,34 +1442,30 @@ static int yy_get_next_buffer()
 	/* Try to read more data. */
 
 	/* First move last chars to start of buffer. */
-	number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
+	number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
 
 	for ( i = 0; i < number_to_move; ++i )
 		*(dest++) = *(source++);
 
-	if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
 		/* don't do the read, it's not guaranteed to return an EOF,
 		 * just force an EOF
 		 */
-		yy_current_buffer->yy_n_chars = yy_n_chars = 0;
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
 
 	else
 		{
-		int num_to_read =
-			yy_current_buffer->yy_buf_size - number_to_move - 1;
+			size_t num_to_read =
+			YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
 
 		while ( num_to_read <= 0 )
 			{ /* Not enough room in the buffer - grow it. */
-#ifdef YY_USES_REJECT
-			YY_FATAL_ERROR(
-"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-#else
 
 			/* just a shorter name for the current buffer */
-			YY_BUFFER_STATE b = yy_current_buffer;
+			YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
 
 			int yy_c_buf_p_offset =
-				(int) (yy_c_buf_p - b->yy_ch_buf);
+				(int) ((yy_c_buf_p) - b->yy_ch_buf);
 
 			if ( b->yy_is_our_buffer )
 				{
@@ -1370,8 +1478,7 @@ static int yy_get_next_buffer()
 
 				b->yy_ch_buf = (char *)
 					/* Include room in for 2 EOB chars. */
-					yy_flex_realloc( (void *) b->yy_ch_buf,
-							 b->yy_buf_size + 2 );
+					yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2  );
 				}
 			else
 				/* Can't grow it, we don't own it. */
@@ -1381,35 +1488,35 @@ static int yy_get_next_buffer()
 				YY_FATAL_ERROR(
 				"fatal error - scanner input buffer overflow" );
 
-			yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
+			(yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
 
-			num_to_read = yy_current_buffer->yy_buf_size -
+			num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
 						number_to_move - 1;
-#endif
+
 			}
 
 		if ( num_to_read > YY_READ_BUF_SIZE )
 			num_to_read = YY_READ_BUF_SIZE;
 
 		/* Read in more data. */
-		YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
-			yy_n_chars, num_to_read );
+		YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
+			(yy_n_chars), num_to_read );
 
-		yy_current_buffer->yy_n_chars = yy_n_chars;
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
 		}
 
-	if ( yy_n_chars == 0 )
+	if ( (yy_n_chars) == 0 )
 		{
 		if ( number_to_move == YY_MORE_ADJ )
 			{
 			ret_val = EOB_ACT_END_OF_FILE;
-			yyrestart( yyin );
+			yyrestart(yyin  );
 			}
 
 		else
 			{
 			ret_val = EOB_ACT_LAST_MATCH;
-			yy_current_buffer->yy_buffer_status =
+			YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
 				YY_BUFFER_EOF_PENDING;
 			}
 		}
@@ -1417,32 +1524,31 @@ static int yy_get_next_buffer()
 	else
 		ret_val = EOB_ACT_CONTINUE_SCAN;
 
-	yy_n_chars += number_to_move;
-	yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
-	yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
+	(yy_n_chars) += number_to_move;
+	YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
+	YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
 
-	yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
+	(yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
 
 	return ret_val;
-	}
-
+}
 
 /* yy_get_previous_state - get the state just before the EOB char was reached */
 
-static yy_state_type yy_get_previous_state()
-	{
+    static yy_state_type yy_get_previous_state (void)
+{
 	register yy_state_type yy_current_state;
 	register char *yy_cp;
+    
+	yy_current_state = (yy_start);
 
-	yy_current_state = yy_start;
-
-	for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
+	for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
 		{
 		register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
 		if ( yy_accept[yy_current_state] )
 			{
-			yy_last_accepting_state = yy_current_state;
-			yy_last_accepting_cpos = yy_cp;
+			(yy_last_accepting_state) = yy_current_state;
+			(yy_last_accepting_cpos) = yy_cp;
 			}
 		while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
 			{
@@ -1454,30 +1560,23 @@ static yy_state_type yy_get_previous_state()
 		}
 
 	return yy_current_state;
-	}
-
+}
 
 /* yy_try_NUL_trans - try to make a transition on the NUL character
  *
  * synopsis
  *	next_state = yy_try_NUL_trans( current_state );
  */
-
-#ifdef YY_USE_PROTOS
-static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
-#else
-static yy_state_type yy_try_NUL_trans( yy_current_state )
-yy_state_type yy_current_state;
-#endif
-	{
+    static yy_state_type yy_try_NUL_trans  (yy_state_type yy_current_state )
+{
 	register int yy_is_jam;
-	register char *yy_cp = yy_c_buf_p;
+    	register char *yy_cp = (yy_c_buf_p);
 
 	register YY_CHAR yy_c = 1;
 	if ( yy_accept[yy_current_state] )
 		{
-		yy_last_accepting_state = yy_current_state;
-		yy_last_accepting_cpos = yy_cp;
+		(yy_last_accepting_state) = yy_current_state;
+		(yy_last_accepting_cpos) = yy_cp;
 		}
 	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
 		{
@@ -1489,80 +1588,73 @@ yy_state_type yy_current_state;
 	yy_is_jam = (yy_current_state == 351);
 
 	return yy_is_jam ? 0 : yy_current_state;
-	}
+}
 
-
-#ifndef YY_NO_UNPUT
-#ifdef YY_USE_PROTOS
-static void yyunput( int c, register char *yy_bp )
-#else
-static void yyunput( c, yy_bp )
-int c;
-register char *yy_bp;
-#endif
-	{
-	register char *yy_cp = yy_c_buf_p;
+    static void yyunput (int c, register char * yy_bp )
+{
+	register char *yy_cp;
+    
+    yy_cp = (yy_c_buf_p);
 
 	/* undo effects of setting up yytext */
-	*yy_cp = yy_hold_char;
+	*yy_cp = (yy_hold_char);
 
-	if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
+	if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
 		{ /* need to shift things up to make room */
 		/* +2 for EOB chars. */
-		register int number_to_move = yy_n_chars + 2;
-		register char *dest = &yy_current_buffer->yy_ch_buf[
-					yy_current_buffer->yy_buf_size + 2];
+		register int number_to_move = (yy_n_chars) + 2;
+		register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
+					YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
 		register char *source =
-				&yy_current_buffer->yy_ch_buf[number_to_move];
+				&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
 
-		while ( source > yy_current_buffer->yy_ch_buf )
+		while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
 			*--dest = *--source;
 
 		yy_cp += (int) (dest - source);
 		yy_bp += (int) (dest - source);
-		yy_current_buffer->yy_n_chars =
-			yy_n_chars = yy_current_buffer->yy_buf_size;
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
+			(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
 
-		if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
+		if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
 			YY_FATAL_ERROR( "flex scanner push-back overflow" );
 		}
 
 	*--yy_cp = (char) c;
 
+	(yytext_ptr) = yy_bp;
+	(yy_hold_char) = *yy_cp;
+	(yy_c_buf_p) = yy_cp;
+}
 
-	yytext_ptr = yy_bp;
-	yy_hold_char = *yy_cp;
-	yy_c_buf_p = yy_cp;
-	}
-#endif	/* ifndef YY_NO_UNPUT */
-
-
+#ifndef YY_NO_INPUT
 #ifdef __cplusplus
-static int yyinput()
+    static int yyinput (void)
 #else
-static int input()
+    static int input  (void)
 #endif
-	{
-	int c;
 
-	*yy_c_buf_p = yy_hold_char;
+{
+	int c;
+    
+	*(yy_c_buf_p) = (yy_hold_char);
 
-	if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
+	if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
 		{
 		/* yy_c_buf_p now points to the character we want to return.
 		 * If this occurs *before* the EOB characters, then it's a
 		 * valid NUL; if not, then we've hit the end of the buffer.
 		 */
-		if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
+		if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
 			/* This was really a NUL. */
-			*yy_c_buf_p = '\0';
+			*(yy_c_buf_p) = '\0';
 
 		else
 			{ /* need more input */
-			int offset = yy_c_buf_p - yytext_ptr;
-			++yy_c_buf_p;
+			int offset = (yy_c_buf_p) - (yytext_ptr);
+			++(yy_c_buf_p);
 
-			switch ( yy_get_next_buffer() )
+			switch ( yy_get_next_buffer(  ) )
 				{
 				case EOB_ACT_LAST_MATCH:
 					/* This happens because yy_g_n_b()
@@ -1576,16 +1668,16 @@ static int input()
 					 */
 
 					/* Reset buffer status. */
-					yyrestart( yyin );
+					yyrestart(yyin );
 
-					/* fall through */
+					/*FALLTHROUGH*/
 
 				case EOB_ACT_END_OF_FILE:
 					{
-					if ( yywrap() )
+					if ( yywrap( ) )
 						return EOF;
 
-					if ( ! yy_did_buffer_switch_on_eof )
+					if ( ! (yy_did_buffer_switch_on_eof) )
 						YY_NEW_FILE;
 #ifdef __cplusplus
 					return yyinput();
@@ -1595,90 +1687,92 @@ static int input()
 					}
 
 				case EOB_ACT_CONTINUE_SCAN:
-					yy_c_buf_p = yytext_ptr + offset;
+					(yy_c_buf_p) = (yytext_ptr) + offset;
 					break;
 				}
 			}
 		}
 
-	c = *(unsigned char *) yy_c_buf_p;	/* cast for 8-bit char's */
-	*yy_c_buf_p = '\0';	/* preserve yytext */
-	yy_hold_char = *++yy_c_buf_p;
-
+	c = *(unsigned char *) (yy_c_buf_p);	/* cast for 8-bit char's */
+	*(yy_c_buf_p) = '\0';	/* preserve yytext */
+	(yy_hold_char) = *++(yy_c_buf_p);
 
 	return c;
-	}
-
+}
+#endif	/* ifndef YY_NO_INPUT */
 
-#ifdef YY_USE_PROTOS
-void yyrestart( FILE *input_file )
-#else
-void yyrestart( input_file )
-FILE *input_file;
-#endif
-	{
-	if ( ! yy_current_buffer )
-		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
-
-	yy_init_buffer( yy_current_buffer, input_file );
-	yy_load_buffer_state();
+/** Immediately switch to a different input stream.
+ * @param input_file A readable stream.
+ * 
+ * @note This function does not reset the start condition to @c INITIAL .
+ */
+    void yyrestart  (FILE * input_file )
+{
+    
+	if ( ! YY_CURRENT_BUFFER ){
+        yyensure_buffer_stack ();
+		YY_CURRENT_BUFFER_LVALUE =
+            yy_create_buffer(yyin,YY_BUF_SIZE );
 	}
 
+	yy_init_buffer(YY_CURRENT_BUFFER,input_file );
+	yy_load_buffer_state( );
+}
 
-#ifdef YY_USE_PROTOS
-void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
-#else
-void yy_switch_to_buffer( new_buffer )
-YY_BUFFER_STATE new_buffer;
-#endif
-	{
-	if ( yy_current_buffer == new_buffer )
+/** Switch to a different input buffer.
+ * @param new_buffer The new input buffer.
+ * 
+ */
+    void yy_switch_to_buffer  (YY_BUFFER_STATE  new_buffer )
+{
+    
+	/* TODO. We should be able to replace this entire function body
+	 * with
+	 *		yypop_buffer_state();
+	 *		yypush_buffer_state(new_buffer);
+     */
+	yyensure_buffer_stack ();
+	if ( YY_CURRENT_BUFFER == new_buffer )
 		return;
 
-	if ( yy_current_buffer )
+	if ( YY_CURRENT_BUFFER )
 		{
 		/* Flush out information for old buffer. */
-		*yy_c_buf_p = yy_hold_char;
-		yy_current_buffer->yy_buf_pos = yy_c_buf_p;
-		yy_current_buffer->yy_n_chars = yy_n_chars;
+		*(yy_c_buf_p) = (yy_hold_char);
+		YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
 		}
 
-	yy_current_buffer = new_buffer;
-	yy_load_buffer_state();
+	YY_CURRENT_BUFFER_LVALUE = new_buffer;
+	yy_load_buffer_state( );
 
 	/* We don't actually know whether we did this switch during
 	 * EOF (yywrap()) processing, but the only time this flag
 	 * is looked at is after yywrap() is called, so it's safe
 	 * to go ahead and always set it.
 	 */
-	yy_did_buffer_switch_on_eof = 1;
-	}
-
-
-#ifdef YY_USE_PROTOS
-void yy_load_buffer_state( void )
-#else
-void yy_load_buffer_state()
-#endif
-	{
-	yy_n_chars = yy_current_buffer->yy_n_chars;
-	yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
-	yyin = yy_current_buffer->yy_input_file;
-	yy_hold_char = *yy_c_buf_p;
-	}
-
-
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
-#else
-YY_BUFFER_STATE yy_create_buffer( file, size )
-FILE *file;
-int size;
-#endif
-	{
+	(yy_did_buffer_switch_on_eof) = 1;
+}
+
+static void yy_load_buffer_state  (void)
+{
+    	(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+	(yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
+	yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
+	(yy_hold_char) = *(yy_c_buf_p);
+}
+
+/** Allocate and initialize an input buffer state.
+ * @param file A readable stream.
+ * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
+ * 
+ * @return the allocated buffer state.
+ */
+    YY_BUFFER_STATE yy_create_buffer  (FILE * file, int  size )
+{
 	YY_BUFFER_STATE b;
-
-	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
+    
+	b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
 	if ( ! b )
 		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
 
@@ -1687,80 +1781,75 @@ int size;
 	/* yy_ch_buf has to be 2 characters longer than the size given because
 	 * we need to put in 2 end-of-buffer characters.
 	 */
-	b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
+	b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2  );
 	if ( ! b->yy_ch_buf )
 		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
 
 	b->yy_is_our_buffer = 1;
 
-	yy_init_buffer( b, file );
+	yy_init_buffer(b,file );
 
 	return b;
-	}
-
+}
 
-#ifdef YY_USE_PROTOS
-void yy_delete_buffer( YY_BUFFER_STATE b )
-#else
-void yy_delete_buffer( b )
-YY_BUFFER_STATE b;
-#endif
-	{
+/** Destroy the buffer.
+ * @param b a buffer created with yy_create_buffer()
+ * 
+ */
+    void yy_delete_buffer (YY_BUFFER_STATE  b )
+{
+    
 	if ( ! b )
 		return;
 
-	if ( b == yy_current_buffer )
-		yy_current_buffer = (YY_BUFFER_STATE) 0;
+	if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
+		YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
 
 	if ( b->yy_is_our_buffer )
-		yy_flex_free( (void *) b->yy_ch_buf );
-
-	yy_flex_free( (void *) b );
-	}
-
-
-#ifndef YY_ALWAYS_INTERACTIVE
-#ifndef YY_NEVER_INTERACTIVE
-extern int isatty YY_PROTO(( int ));
-#endif
-#endif
+		yyfree((void *) b->yy_ch_buf  );
 
-#ifdef YY_USE_PROTOS
-void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
-#else
-void yy_init_buffer( b, file )
-YY_BUFFER_STATE b;
-FILE *file;
-#endif
+	yyfree((void *) b  );
+}
 
+#ifndef __cplusplus
+extern int isatty (int );
+#endif /* __cplusplus */
+    
+/* Initializes or reinitializes a buffer.
+ * This function is sometimes called more than once on the same buffer,
+ * such as during a yyrestart() or at EOF.
+ */
+    static void yy_init_buffer  (YY_BUFFER_STATE  b, FILE * file )
 
-	{
-	yy_flush_buffer( b );
+{
+	int oerrno = errno;
+    
+	yy_flush_buffer(b );
 
 	b->yy_input_file = file;
 	b->yy_fill_buffer = 1;
 
-#if YY_ALWAYS_INTERACTIVE
-	b->yy_is_interactive = 1;
-#else
-#if YY_NEVER_INTERACTIVE
-	b->yy_is_interactive = 0;
-#else
-	b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-#endif
-#endif
-	}
-
-
-#ifdef YY_USE_PROTOS
-void yy_flush_buffer( YY_BUFFER_STATE b )
-#else
-void yy_flush_buffer( b )
-YY_BUFFER_STATE b;
-#endif
-
-	{
-	if ( ! b )
+    /* If b is the current buffer, then yy_init_buffer was _probably_
+     * called from yyrestart() or through yy_get_next_buffer.
+     * In that case, we don't want to reset the lineno or column.
+     */
+    if (b != YY_CURRENT_BUFFER){
+        b->yy_bs_lineno = 1;
+        b->yy_bs_column = 0;
+    }
+
+        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
+    
+	errno = oerrno;
+}
+
+/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
+ * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
+ * 
+ */
+    void yy_flush_buffer (YY_BUFFER_STATE  b )
+{
+    	if ( ! b )
 		return;
 
 	b->yy_n_chars = 0;
@@ -1777,29 +1866,121 @@ YY_BUFFER_STATE b;
 	b->yy_at_bol = 1;
 	b->yy_buffer_status = YY_BUFFER_NEW;
 
-	if ( b == yy_current_buffer )
-		yy_load_buffer_state();
+	if ( b == YY_CURRENT_BUFFER )
+		yy_load_buffer_state( );
+}
+
+/** Pushes the new state onto the stack. The new state becomes
+ *  the current state. This function will allocate the stack
+ *  if necessary.
+ *  @param new_buffer The new state.
+ *  
+ */
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
+{
+    	if (new_buffer == NULL)
+		return;
+
+	yyensure_buffer_stack();
+
+	/* This block is copied from yy_switch_to_buffer. */
+	if ( YY_CURRENT_BUFFER )
+		{
+		/* Flush out information for old buffer. */
+		*(yy_c_buf_p) = (yy_hold_char);
+		YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+		}
+
+	/* Only push if top exists. Otherwise, replace top. */
+	if (YY_CURRENT_BUFFER)
+		(yy_buffer_stack_top)++;
+	YY_CURRENT_BUFFER_LVALUE = new_buffer;
+
+	/* copied from yy_switch_to_buffer. */
+	yy_load_buffer_state( );
+	(yy_did_buffer_switch_on_eof) = 1;
+}
+
+/** Removes and deletes the top of the stack, if present.
+ *  The next element becomes the new top.
+ *  
+ */
+void yypop_buffer_state (void)
+{
+    	if (!YY_CURRENT_BUFFER)
+		return;
+
+	yy_delete_buffer(YY_CURRENT_BUFFER );
+	YY_CURRENT_BUFFER_LVALUE = NULL;
+	if ((yy_buffer_stack_top) > 0)
+		--(yy_buffer_stack_top);
+
+	if (YY_CURRENT_BUFFER) {
+		yy_load_buffer_state( );
+		(yy_did_buffer_switch_on_eof) = 1;
+	}
+}
+
+/* Allocates the stack if it does not exist.
+ *  Guarantees space for at least one push.
+ */
+static void yyensure_buffer_stack (void)
+{
+	int num_to_alloc;
+    
+	if (!(yy_buffer_stack)) {
+
+		/* First allocation is just for 2 elements, since we don't know if this
+		 * scanner will even need a stack. We use 2 instead of 1 to avoid an
+		 * immediate realloc on the next call.
+         */
+		num_to_alloc = 1;
+		(yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
+								(num_to_alloc * sizeof(struct yy_buffer_state*)
+								);
+		
+		memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
+				
+		(yy_buffer_stack_max) = num_to_alloc;
+		(yy_buffer_stack_top) = 0;
+		return;
 	}
 
+	if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
 
-#ifndef YY_NO_SCAN_BUFFER
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
-#else
-YY_BUFFER_STATE yy_scan_buffer( base, size )
-char *base;
-yy_size_t size;
-#endif
-	{
-	YY_BUFFER_STATE b;
+		/* Increase the buffer to prepare for a possible push. */
+		int grow_size = 8 /* arbitrary grow size */;
+
+		num_to_alloc = (yy_buffer_stack_max) + grow_size;
+		(yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
+								((yy_buffer_stack),
+								num_to_alloc * sizeof(struct yy_buffer_state*)
+								);
+
+		/* zero only the new slots.*/
+		memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
+		(yy_buffer_stack_max) = num_to_alloc;
+	}
+}
 
+/** Setup the input buffer state to scan directly from a user-specified character buffer.
+ * @param base the character buffer
+ * @param size the size in bytes of the character buffer
+ * 
+ * @return the newly allocated buffer state object. 
+ */
+YY_BUFFER_STATE yy_scan_buffer  (char * base, yy_size_t  size )
+{
+	YY_BUFFER_STATE b;
+    
 	if ( size < 2 ||
 	     base[size-2] != YY_END_OF_BUFFER_CHAR ||
 	     base[size-1] != YY_END_OF_BUFFER_CHAR )
 		/* They forgot to leave room for the EOB's. */
 		return 0;
 
-	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
+	b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
 	if ( ! b )
 		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
 
@@ -1813,47 +1994,42 @@ yy_size_t size;
 	b->yy_fill_buffer = 0;
 	b->yy_buffer_status = YY_BUFFER_NEW;
 
-	yy_switch_to_buffer( b );
+	yy_switch_to_buffer(b  );
 
 	return b;
-	}
-#endif
-
-
-#ifndef YY_NO_SCAN_STRING
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
-#else
-YY_BUFFER_STATE yy_scan_string( yy_str )
-yyconst char *yy_str;
-#endif
-	{
-	int len;
-	for ( len = 0; yy_str[len]; ++len )
-		;
-
-	return yy_scan_bytes( yy_str, len );
-	}
-#endif
-
-
-#ifndef YY_NO_SCAN_BYTES
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
-#else
-YY_BUFFER_STATE yy_scan_bytes( bytes, len )
-yyconst char *bytes;
-int len;
-#endif
-	{
+}
+
+/** Setup the input buffer state to scan a string. The next call to yylex() will
+ * scan from a @e copy of @a str.
+ * @param str a NUL-terminated string to scan
+ * 
+ * @return the newly allocated buffer state object.
+ * @note If you want to scan bytes that may contain NUL values, then use
+ *       yy_scan_bytes() instead.
+ */
+YY_BUFFER_STATE yy_scan_string (yyconst char * yy_str )
+{
+    
+	return yy_scan_bytes(yy_str,strlen(yy_str) );
+}
+
+/** Setup the input buffer state to scan the given bytes. The next call to yylex() will
+ * scan from a @e copy of @a bytes.
+ * @param bytes the byte buffer to scan
+ * @param len the number of bytes in the buffer pointed to by @a bytes.
+ * 
+ * @return the newly allocated buffer state object.
+ */
+YY_BUFFER_STATE yy_scan_bytes  (yyconst char * bytes, int  len )
+{
 	YY_BUFFER_STATE b;
 	char *buf;
 	yy_size_t n;
 	int i;
-
+    
 	/* Get memory for full buffer, including space for trailing EOB's. */
 	n = len + 2;
-	buf = (char *) yy_flex_alloc( n );
+	buf = (char *) yyalloc(n  );
 	if ( ! buf )
 		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
 
@@ -1862,7 +2038,7 @@ int len;
 
 	buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
 
-	b = yy_scan_buffer( buf, n );
+	b = yy_scan_buffer(buf,n );
 	if ( ! b )
 		YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
 
@@ -1872,78 +2048,17 @@ int len;
 	b->yy_is_our_buffer = 1;
 
 	return b;
-	}
-#endif
-
-
-#ifndef YY_NO_PUSH_STATE
-#ifdef YY_USE_PROTOS
-static void yy_push_state( int new_state )
-#else
-static void yy_push_state( new_state )
-int new_state;
-#endif
-	{
-	if ( yy_start_stack_ptr >= yy_start_stack_depth )
-		{
-		yy_size_t new_size;
-
-		yy_start_stack_depth += YY_START_STACK_INCR;
-		new_size = yy_start_stack_depth * sizeof( int );
-
-		if ( ! yy_start_stack )
-			yy_start_stack = (int *) yy_flex_alloc( new_size );
-
-		else
-			yy_start_stack = (int *) yy_flex_realloc(
-					(void *) yy_start_stack, new_size );
-
-		if ( ! yy_start_stack )
-			YY_FATAL_ERROR(
-			"out of memory expanding start-condition stack" );
-		}
-
-	yy_start_stack[yy_start_stack_ptr++] = YY_START;
-
-	BEGIN(new_state);
-	}
-#endif
-
-
-#ifndef YY_NO_POP_STATE
-static void yy_pop_state()
-	{
-	if ( --yy_start_stack_ptr < 0 )
-		YY_FATAL_ERROR( "start-condition stack underflow" );
-
-	BEGIN(yy_start_stack[yy_start_stack_ptr]);
-	}
-#endif
-
-
-#ifndef YY_NO_TOP_STATE
-static int yy_top_state()
-	{
-	return yy_start_stack[yy_start_stack_ptr - 1];
-	}
-#endif
+}
 
 #ifndef YY_EXIT_FAILURE
 #define YY_EXIT_FAILURE 2
 #endif
 
-#ifdef YY_USE_PROTOS
-static void yy_fatal_error( yyconst char msg[] )
-#else
-static void yy_fatal_error( msg )
-char msg[];
-#endif
-	{
-	(void) fprintf( stderr, "%s\n", msg );
+static void yy_fatal_error (yyconst char* msg )
+{
+    	(void) fprintf( stderr, "%s\n", msg );
 	exit( YY_EXIT_FAILURE );
-	}
-
-
+}
 
 /* Redefine yyless() so it works in section 3 code. */
 
@@ -1952,68 +2067,145 @@ char msg[];
 	do \
 		{ \
 		/* Undo effects of setting up yytext. */ \
-		yytext[yyleng] = yy_hold_char; \
-		yy_c_buf_p = yytext + n; \
-		yy_hold_char = *yy_c_buf_p; \
-		*yy_c_buf_p = '\0'; \
-		yyleng = n; \
+        int yyless_macro_arg = (n); \
+        YY_LESS_LINENO(yyless_macro_arg);\
+		yytext[yyleng] = (yy_hold_char); \
+		(yy_c_buf_p) = yytext + yyless_macro_arg; \
+		(yy_hold_char) = *(yy_c_buf_p); \
+		*(yy_c_buf_p) = '\0'; \
+		yyleng = yyless_macro_arg; \
 		} \
 	while ( 0 )
 
+/* Accessor  methods (get/set functions) to struct members. */
+
+/** Get the current line number.
+ * 
+ */
+int yyget_lineno  (void)
+{
+        
+    return yylineno;
+}
+
+/** Get the input stream.
+ * 
+ */
+FILE *yyget_in  (void)
+{
+        return yyin;
+}
+
+/** Get the output stream.
+ * 
+ */
+FILE *yyget_out  (void)
+{
+        return yyout;
+}
+
+/** Get the length of the current token.
+ * 
+ */
+int yyget_leng  (void)
+{
+        return yyleng;
+}
+
+/** Get the current token.
+ * 
+ */
+
+char *yyget_text  (void)
+{
+        return yytext;
+}
+
+/** Set the current line number.
+ * @param line_number
+ * 
+ */
+void yyset_lineno (int  line_number )
+{
+    
+    yylineno = line_number;
+}
+
+/** Set the input stream. This does not discard the current
+ * input buffer.
+ * @param in_str A readable stream.
+ * 
+ * @see yy_switch_to_buffer
+ */
+void yyset_in (FILE *  in_str )
+{
+        yyin = in_str ;
+}
+
+void yyset_out (FILE *  out_str )
+{
+        yyout = out_str ;
+}
+
+int yyget_debug  (void)
+{
+        return yy_flex_debug;
+}
+
+void yyset_debug (int  bdebug )
+{
+        yy_flex_debug = bdebug ;
+}
+
+/* yylex_destroy is for both reentrant and non-reentrant scanners. */
+int yylex_destroy  (void)
+{
+    
+    /* Pop the buffer stack, destroying each element. */
+	while(YY_CURRENT_BUFFER){
+		yy_delete_buffer(YY_CURRENT_BUFFER  );
+		YY_CURRENT_BUFFER_LVALUE = NULL;
+		yypop_buffer_state();
+	}
 
-/* Internal utility routines. */
+	/* Destroy the stack itself. */
+	yyfree((yy_buffer_stack) );
+	(yy_buffer_stack) = NULL;
+
+    return 0;
+}
+
+/*
+ * Internal utility routines.
+ */
 
 #ifndef yytext_ptr
-#ifdef YY_USE_PROTOS
-static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
-#else
-static void yy_flex_strncpy( s1, s2, n )
-char *s1;
-yyconst char *s2;
-int n;
-#endif
-	{
+static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
+{
 	register int i;
-	for ( i = 0; i < n; ++i )
+    	for ( i = 0; i < n; ++i )
 		s1[i] = s2[i];
-	}
+}
 #endif
 
 #ifdef YY_NEED_STRLEN
-#ifdef YY_USE_PROTOS
-static int yy_flex_strlen( yyconst char *s )
-#else
-static int yy_flex_strlen( s )
-yyconst char *s;
-#endif
-	{
+static int yy_flex_strlen (yyconst char * s )
+{
 	register int n;
-	for ( n = 0; s[n]; ++n )
+    	for ( n = 0; s[n]; ++n )
 		;
 
 	return n;
-	}
+}
 #endif
 
-
-#ifdef YY_USE_PROTOS
-static void *yy_flex_alloc( yy_size_t size )
-#else
-static void *yy_flex_alloc( size )
-yy_size_t size;
-#endif
-	{
+void *yyalloc (yy_size_t  size )
+{
 	return (void *) malloc( size );
-	}
+}
 
-#ifdef YY_USE_PROTOS
-static void *yy_flex_realloc( void *ptr, yy_size_t size )
-#else
-static void *yy_flex_realloc( ptr, size )
-void *ptr;
-yy_size_t size;
-#endif
-	{
+void *yyrealloc  (void * ptr, yy_size_t  size )
+{
 	/* The cast to (char *) in the following accommodates both
 	 * implementations that use char* generic pointers, and those
 	 * that use void* generic pointers.  It works with the latter
@@ -2022,26 +2214,29 @@ yy_size_t size;
 	 * as though doing an assignment.
 	 */
 	return (void *) realloc( (char *) ptr, size );
-	}
+}
 
-#ifdef YY_USE_PROTOS
-static void yy_flex_free( void *ptr )
-#else
-static void yy_flex_free( ptr )
-void *ptr;
-#endif
-	{
-	free( ptr );
-	}
+void yyfree (void * ptr )
+{
+	free( (char *) ptr );	/* see yyrealloc() for (char *) cast */
+}
 
-#if YY_MAIN
-int main()
-	{
-	yylex();
-	return 0;
-	}
+#define YYTABLES_NAME "yytables"
+
+#undef YY_NEW_FILE
+#undef YY_FLUSH_BUFFER
+#undef yy_set_bol
+#undef yy_new_buffer
+#undef yy_set_interactive
+#undef yytext_ptr
+#undef YY_DO_BEFORE_ACTION
+
+#ifdef YY_DECL_IS_OURS
+#undef YY_DECL_IS_OURS
+#undef YY_DECL
 #endif
-#line 140 "/yama/home/edp/saramito/dvt/tk707/texi2help.l"
+#line 160 "./texi2help.l"
+
 
 /* --------------------------------------------------------------
  * 	main
@@ -2050,3 +2245,4 @@ int yywrap () { return 1; }
 int main() { yyin = stdin; yylex(); return 0; }
 
 
+
diff --git a/texi2help.l b/texi2help.l
index 9f48909..bda0269 100644
--- a/texi2help.l
+++ b/texi2help.l
@@ -1,4 +1,24 @@
 %{
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
 /* compile commands:
 
  	flex texi2help.flex 
diff --git a/title.c b/title.c
index 3598798..b75e96b 100644
--- a/title.c
+++ b/title.c
@@ -1,444 +1,383 @@
-char tcl_title[] = ""
-"# do not edit.\n"
-"# file automatically generated by:\n"
-"#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n"
-"\n"
-"set title $vcunit.title\n"
-"\n"
-"canvas ${title} -width ${title_width_in_inch}i -height ${title_height_in_inch}i \\\n"
-"	-bg                 $tkxox(col_def_bg) \\\n"
-"	-highlightthickness 0\n"
-"\n"
-"${title} config -xscrollincrement 1p -yscrollincrement 1p\n"
-"${title} xview scroll ${title_scroll_x_in_point} u\n"
-"${title} yview scroll ${title_scroll_y_in_point} u\n"
-"\n"
-"pack ${title} -side top\n"
-"\n"
-"# The xfig objects begin here\n"
-"${title} create polygon 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n"
-"  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -outline {} -fill $tkxox(color_title_bg) \\\n"
-"  -width 0\n"
-"${title} create line 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \\\n"
-"  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -fill $tkxox(color_title_bg)\n"
-"${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n"
-"  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n"
-"  4.745686i 0.380345i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-"${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \\\n"
-"  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \\\n"
-"  4.745686i 0.380345i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create polygon 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n"
-"  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -outline {} -fill $tkxox(color_title_logo_fg) \\\n"
-"  -width 0\n"
-"${title} create line 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \\\n"
-"  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -fill $tkxox(color_title_logo_fg)\n"
-"${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n"
-"  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n"
-"  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n"
-"  0.516129i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \\\n"
-"  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \\\n"
-"  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \\\n"
-"  0.516129i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n"
-"  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n"
-"  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n"
-"  0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \\\n"
-"  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \\\n"
-"  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \\\n"
-"  0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n"
-"  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -outline {} -fill $tkxox(color_title_logo_fg) \\\n"
-"  -width 0\n"
-"${title} create line 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \\\n"
-"  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -fill $tkxox(color_title_logo_fg)\n"
-"${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n"
-"  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n"
-"  6.241560i 0.121530i 6.241560i 0.213053i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n"
-"  0\n"
-"${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \\\n"
-"  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \\\n"
-"  6.241560i 0.121530i 6.241560i 0.213053i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n"
-"  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n"
-"  5.366092i 0.121530i 5.366092i 0.214554i -outline {} -fill $tkxox(color_title_logo_fg) -width \\\n"
-"  0\n"
-"${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \\\n"
-"  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \\\n"
-"  5.366092i 0.121530i 5.366092i 0.214554i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n"
-"  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n"
-"  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n"
-"  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n"
-"  -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \\\n"
-"  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \\\n"
-"  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \\\n"
-"  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \\\n"
-"  -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n"
-"  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n"
-"  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n"
-"  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n"
-"  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n"
-"  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n"
-"  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n"
-"  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n"
-"  3.558890i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \\\n"
-"  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \\\n"
-"  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \\\n"
-"  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \\\n"
-"  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \\\n"
-"  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \\\n"
-"  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \\\n"
-"  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \\\n"
-"  3.558890i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n"
-"  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n"
-"  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n"
-"  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n"
-"  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n"
-"  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n"
-"  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n"
-"  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline {} -fill $tkxox(color_title_fg) \\\n"
-"  -width 0\n"
-"${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \\\n"
-"  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \\\n"
-"  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \\\n"
-"  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \\\n"
-"  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \\\n"
-"  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \\\n"
-"  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \\\n"
-"  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline $tkxox(color_title_fg) -fill \\\n"
-"  {}\n"
-"${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n"
-"  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n"
-"  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n"
-"  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n"
-"  1.332333i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \\\n"
-"  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \\\n"
-"  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \\\n"
-"  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \\\n"
-"  1.332333i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n"
-"  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n"
-"  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n"
-"  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n"
-"  -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \\\n"
-"  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \\\n"
-"  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \\\n"
-"  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \\\n"
-"  -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n"
-"  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n"
-"  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n"
-"  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n"
-"  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n"
-"  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n"
-"  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n"
-"  0.410353i 0.250563i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \\\n"
-"  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \\\n"
-"  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \\\n"
-"  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \\\n"
-"  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \\\n"
-"  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \\\n"
-"  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \\\n"
-"  0.410353i 0.250563i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n"
-"  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n"
-"  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n"
-"  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n"
-"  0.325581i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \\\n"
-"  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \\\n"
-"  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \\\n"
-"  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \\\n"
-"  0.325581i 0.411103i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n"
-"  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n"
-"  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n"
-"  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n"
-"  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n"
-"  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n"
-"  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n"
-"  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n"
-"  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n"
-"  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n"
-"  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n"
-"  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n"
-"  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n"
-"  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n"
-"  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n"
-"  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n"
-"  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n"
-"  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n"
-"  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n"
-"  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n"
-"  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n"
-"  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n"
-"  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n"
-"  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n"
-"  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n"
-"  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n"
-"  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n"
-"  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n"
-"  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n"
-"  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n"
-"  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n"
-"  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n"
-"  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n"
-"  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n"
-"  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n"
-"  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n"
-"  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n"
-"  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n"
-"  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n"
-"  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n"
-"  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n"
-"  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n"
-"  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n"
-"  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n"
-"  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n"
-"  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n"
-"  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n"
-"  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n"
-"  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n"
-"  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n"
-"  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n"
-"  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n"
-"  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n"
-"  0.414104i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \\\n"
-"  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \\\n"
-"  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \\\n"
-"  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \\\n"
-"  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \\\n"
-"  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \\\n"
-"  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \\\n"
-"  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \\\n"
-"  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \\\n"
-"  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \\\n"
-"  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \\\n"
-"  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \\\n"
-"  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \\\n"
-"  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \\\n"
-"  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \\\n"
-"  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \\\n"
-"  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \\\n"
-"  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \\\n"
-"  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \\\n"
-"  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \\\n"
-"  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \\\n"
-"  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \\\n"
-"  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \\\n"
-"  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \\\n"
-"  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \\\n"
-"  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \\\n"
-"  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \\\n"
-"  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \\\n"
-"  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \\\n"
-"  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \\\n"
-"  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \\\n"
-"  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \\\n"
-"  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \\\n"
-"  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \\\n"
-"  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \\\n"
-"  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \\\n"
-"  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \\\n"
-"  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \\\n"
-"  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \\\n"
-"  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \\\n"
-"  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \\\n"
-"  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \\\n"
-"  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \\\n"
-"  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \\\n"
-"  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \\\n"
-"  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \\\n"
-"  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \\\n"
-"  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \\\n"
-"  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \\\n"
-"  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \\\n"
-"  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \\\n"
-"  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \\\n"
-"  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \\\n"
-"  0.414104i -outline $tkxox(color_title_fg) -fill {}\n"
-"${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n"
-"  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n"
-"  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n"
-"  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n"
-"  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n"
-"  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n"
-"  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n"
-"  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n"
-"  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n"
-"  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n"
-"  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n"
-"  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n"
-"  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n"
-"  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n"
-"  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n"
-"  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n"
-"  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n"
-"  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n"
-"  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n"
-"  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n"
-"  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n"
-"  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n"
-"  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n"
-"  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n"
-"  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n"
-"  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n"
-"  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n"
-"  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n"
-"  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n"
-"  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n"
-"  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n"
-"  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n"
-"  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n"
-"  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n"
-"  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n"
-"  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n"
-"  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n"
-"  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n"
-"  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n"
-"  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n"
-"  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n"
-"  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n"
-"  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n"
-"  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n"
-"  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n"
-"  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n"
-"  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n"
-"  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n"
-"  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n"
-"  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n"
-"  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n"
-"  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n"
-"  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n"
-"  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n"
-"  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n"
-"  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n"
-"  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n"
-"  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n"
-"  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n"
-"  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n"
-"  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n"
-"  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n"
-"  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n"
-"  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n"
-"  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline {} \\\n"
-"  -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \\\n"
-"  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \\\n"
-"  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \\\n"
-"  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \\\n"
-"  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \\\n"
-"  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \\\n"
-"  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \\\n"
-"  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \\\n"
-"  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \\\n"
-"  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \\\n"
-"  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \\\n"
-"  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \\\n"
-"  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \\\n"
-"  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \\\n"
-"  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \\\n"
-"  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \\\n"
-"  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \\\n"
-"  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \\\n"
-"  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \\\n"
-"  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \\\n"
-"  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \\\n"
-"  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \\\n"
-"  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \\\n"
-"  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \\\n"
-"  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \\\n"
-"  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \\\n"
-"  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \\\n"
-"  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \\\n"
-"  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \\\n"
-"  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \\\n"
-"  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \\\n"
-"  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \\\n"
-"  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \\\n"
-"  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \\\n"
-"  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \\\n"
-"  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \\\n"
-"  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \\\n"
-"  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \\\n"
-"  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \\\n"
-"  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \\\n"
-"  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \\\n"
-"  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \\\n"
-"  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \\\n"
-"  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \\\n"
-"  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \\\n"
-"  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \\\n"
-"  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \\\n"
-"  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \\\n"
-"  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \\\n"
-"  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \\\n"
-"  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \\\n"
-"  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \\\n"
-"  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \\\n"
-"  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \\\n"
-"  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \\\n"
-"  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \\\n"
-"  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \\\n"
-"  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \\\n"
-"  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \\\n"
-"  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \\\n"
-"  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \\\n"
-"  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \\\n"
-"  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \\\n"
-"  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \\\n"
-"  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline $tkxox(color_title_fg) \\\n"
-"  -fill {}\n"
-"${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n"
-"  {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \\\n"
-"  $tkxox(color_title_fg) -fill {}\n"
-"${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n"
-"  {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \\\n"
-"  $tkxox(color_title_fg) -fill {}\n"
-"${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n"
-"  {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-"${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \\\n"
-"  $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n"
-"  {} -fill $tkxox(color_title_bg) -width 0\n"
-"${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \\\n"
-"  $tkxox(color_title_fg) -fill {}\n"
-"${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n"
-"  {} -fill $tkxox(color_title_bg) -width 0\n"
-"${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \\\n"
-"  $tkxox(color_title_fg) -fill {}\n"
-"${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n"
-"  {} -fill $tkxox(color_title_bg) -width 0\n"
-"${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \\\n"
-"  $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n"
-"  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n"
-"  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n"
-"  0.121530i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n"
-"${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \\\n"
-"  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \\\n"
-"  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \\\n"
-"  0.121530i -outline $tkxox(color_title_logo_fg) -fill {}\n"
-"${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n"
-"  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n"
-"  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n"
-"  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n"
-"  2.366092i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0\n"
-"${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \\\n"
-"  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \\\n"
-"  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \\\n"
-"  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \\\n"
-"  2.366092i 0.669167i -outline $tkxox(color_title_fg) -fill {}\n"
-"";
+char tcl_title[] = "\
+# do not edit.\n\
+# file automatically generated by:\n\
+#		./title_fig2tcl.sh ./title.fig\n\
+\n\
+set title $vcunit.title\n\
+\n\
+canvas ${title} -width ${title_width_in_inch}i -height ${title_height_in_inch}i \\\n\
+	-bg                 $tkxox(col_def_bg) \\\n\
+	-highlightthickness 0\n\
+\n\
+${title} config -xscrollincrement 1p -yscrollincrement 1p\n\
+${title} xview scroll ${title_scroll_x_in_point} u\n\
+${title} yview scroll ${title_scroll_y_in_point} u\n\
+\n\
+pack ${title} -side top\n\
+\n\
+# The xfig objects begin here\n\
+${title} create polygon 0.000000i 0.000000i 6.750000i 0.000000i 6.750000i 0.787500i \\\n\
+  0.000000i 0.787500i -outline {} -fill $tkxox(color_title_bg) -width 0\n\
+${title} create line 0.000000i 0.000000i 6.750000i 0.000000i 6.750000i 0.787500i \\\n\
+  0.000000i 0.787500i 0.000000i 0.000000i -fill $tkxox(color_title_bg)\n\
+${title} create polygon 4.744500i 0.380250i 4.953000i 0.652500i 5.097750i 0.652500i \\\n\
+  4.875000i 0.380250i 5.067750i 0.124500i 4.933500i 0.124500i -outline {} -fill $tkxox(color_title_logo_fg) \\\n\
+  -width 0\n\
+${title} create polygon 4.744500i 0.380250i 4.953000i 0.652500i 5.097750i 0.652500i \\\n\
+  4.875000i 0.380250i 5.067750i 0.124500i 4.933500i 0.124500i -outline $tkxox(color_title_logo_fg) -fill \\\n\
+  {}\n\
+${title} create polygon 5.124750i 0.407250i 5.333250i 0.407250i 5.333250i 0.489000i \\\n\
+  5.124750i 0.489000i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
+${title} create line 5.124750i 0.407250i 5.333250i 0.407250i 5.333250i 0.489000i \\\n\
+  5.124750i 0.489000i 5.124750i 0.407250i -fill $tkxox(color_title_logo_fg)\n\
+${title} create polygon 0.699750i 0.516000i 0.762750i 0.411000i 0.819000i 0.411000i \\\n\
+  0.725250i 0.547500i 0.725250i 0.669000i 0.669000i 0.669000i 0.669000i 0.546750i \\\n\
+  0.585000i 0.411000i 0.637500i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 0.699750i 0.516000i 0.762750i 0.411000i 0.819000i 0.411000i \\\n\
+  0.725250i 0.547500i 0.725250i 0.669000i 0.669000i 0.669000i 0.669000i 0.546750i \\\n\
+  0.585000i 0.411000i 0.637500i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 0.834750i 0.411000i 0.834750i 0.453000i 0.915000i 0.453000i \\\n\
+  0.915000i 0.669000i 0.972000i 0.669000i 0.970500i 0.452250i 1.050750i 0.452250i \\\n\
+  1.050750i 0.411000i 0.834750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 0.834750i 0.411000i 0.834750i 0.453000i 0.915000i 0.453000i \\\n\
+  0.915000i 0.669000i 0.972000i 0.669000i 0.970500i 0.452250i 1.050750i 0.452250i \\\n\
+  1.050750i 0.411000i 0.834750i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 4.618500i 0.121500i 4.741500i 0.121500i 4.741500i 0.652500i \\\n\
+  4.618500i 0.652500i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
+${title} create line 4.618500i 0.121500i 4.741500i 0.121500i 4.741500i 0.652500i \\\n\
+  4.618500i 0.652500i 4.618500i 0.121500i -fill $tkxox(color_title_logo_fg)\n\
+${title} create polygon 6.240000i 0.213000i 6.494250i 0.213000i 6.282750i 0.652500i \\\n\
+  6.426750i 0.652500i 6.622500i 0.217500i 6.622500i 0.121500i 6.240000i 0.121500i \\\n\
+  -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
+${title} create polygon 6.240000i 0.213000i 6.494250i 0.213000i 6.282750i 0.652500i \\\n\
+  6.426750i 0.652500i 6.622500i 0.217500i 6.622500i 0.121500i 6.240000i 0.121500i \\\n\
+  -outline $tkxox(color_title_logo_fg) -fill {}\n\
+${title} create polygon 5.364750i 0.214500i 5.619000i 0.214500i 5.407500i 0.652500i \\\n\
+  5.551500i 0.652500i 5.749500i 0.219000i 5.748000i 0.121500i 5.364750i 0.121500i \\\n\
+  -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
+${title} create polygon 5.364750i 0.214500i 5.619000i 0.214500i 5.407500i 0.652500i \\\n\
+  5.551500i 0.652500i 5.749500i 0.219000i 5.748000i 0.121500i 5.364750i 0.121500i \\\n\
+  -outline $tkxox(color_title_logo_fg) -fill {}\n\
+${title} create polygon 3.336000i 0.669000i 3.518250i 0.669000i 3.519000i 0.624000i \\\n\
+  3.392250i 0.624750i 3.393000i 0.555750i 3.506250i 0.555750i 3.507000i 0.519000i \\\n\
+  3.391500i 0.519000i 3.392250i 0.453000i 3.516750i 0.452250i 3.516750i 0.411000i \\\n\
+  3.336000i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 3.336000i 0.669000i 3.518250i 0.669000i 3.519000i 0.624000i \\\n\
+  3.392250i 0.624750i 3.393000i 0.555750i 3.506250i 0.555750i 3.507000i 0.519000i \\\n\
+  3.391500i 0.519000i 3.392250i 0.453000i 3.516750i 0.452250i 3.516750i 0.411000i \\\n\
+  3.336000i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 3.558000i 0.411000i 3.644250i 0.411000i 3.672750i 0.411000i \\\n\
+  3.694500i 0.418500i 3.711000i 0.427500i 3.723750i 0.444000i 3.729000i 0.469500i \\\n\
+  3.729000i 0.498750i 3.714750i 0.520500i 3.704250i 0.529500i 3.688500i 0.543000i \\\n\
+  3.657750i 0.553500i 3.730500i 0.669000i 3.664500i 0.669000i 3.588750i 0.537000i \\\n\
+  3.585750i 0.526500i 3.624750i 0.526500i 3.645000i 0.521250i 3.662250i 0.508500i \\\n\
+  3.678750i 0.477750i 3.666000i 0.456000i 3.645000i 0.447750i 3.583500i 0.447750i \\\n\
+  3.585750i 0.669000i 3.537000i 0.669000i 3.535500i 0.519000i 3.534750i 0.411000i \\\n\
+  -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 3.558000i 0.411000i 3.644250i 0.411000i 3.672750i 0.411000i \\\n\
+  3.694500i 0.418500i 3.711000i 0.427500i 3.723750i 0.444000i 3.729000i 0.469500i \\\n\
+  3.729000i 0.498750i 3.714750i 0.520500i 3.704250i 0.529500i 3.688500i 0.543000i \\\n\
+  3.657750i 0.553500i 3.730500i 0.669000i 3.664500i 0.669000i 3.588750i 0.537000i \\\n\
+  3.585750i 0.526500i 3.624750i 0.526500i 3.645000i 0.521250i 3.662250i 0.508500i \\\n\
+  3.678750i 0.477750i 3.666000i 0.456000i 3.645000i 0.447750i 3.583500i 0.447750i \\\n\
+  3.585750i 0.669000i 3.537000i 0.669000i 3.535500i 0.519000i 3.534750i 0.411000i \\\n\
+  -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 2.685750i 0.411000i 2.772000i 0.411000i 2.800500i 0.411000i \\\n\
+  2.822250i 0.425250i 2.838750i 0.434250i 2.851500i 0.450750i 2.856750i 0.476250i \\\n\
+  2.856750i 0.505500i 2.842500i 0.527250i 2.832750i 0.540750i 2.816250i 0.554250i \\\n\
+  2.775000i 0.568500i 2.714250i 0.570750i 2.713500i 0.533250i 2.752500i 0.533250i \\\n\
+  2.785500i 0.524250i 2.803500i 0.507000i 2.806500i 0.484500i 2.793750i 0.462750i \\\n\
+  2.772750i 0.454500i 2.711250i 0.454500i 2.713500i 0.669000i 2.664000i 0.669000i \\\n\
+  2.664000i 0.513750i 2.664000i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 2.685750i 0.411000i 2.772000i 0.411000i 2.800500i 0.411000i \\\n\
+  2.822250i 0.425250i 2.838750i 0.434250i 2.851500i 0.450750i 2.856750i 0.476250i \\\n\
+  2.856750i 0.505500i 2.842500i 0.527250i 2.832750i 0.540750i 2.816250i 0.554250i \\\n\
+  2.775000i 0.568500i 2.714250i 0.570750i 2.713500i 0.533250i 2.752500i 0.533250i \\\n\
+  2.785500i 0.524250i 2.803500i 0.507000i 2.806500i 0.484500i 2.793750i 0.462750i \\\n\
+  2.772750i 0.454500i 2.711250i 0.454500i 2.713500i 0.669000i 2.664000i 0.669000i \\\n\
+  2.664000i 0.513750i 2.664000i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 1.332000i 0.669000i 1.376250i 0.669000i 1.376250i 0.477000i \\\n\
+  1.440000i 0.669000i 1.492500i 0.669000i 1.557000i 0.474000i 1.557750i 0.669000i \\\n\
+  1.610250i 0.669000i 1.610250i 0.411000i 1.532250i 0.411000i 1.469250i 0.593250i \\\n\
+  1.407000i 0.411000i 1.332750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 1.332000i 0.669000i 1.376250i 0.669000i 1.376250i 0.477000i \\\n\
+  1.440000i 0.669000i 1.492500i 0.669000i 1.557000i 0.474000i 1.557750i 0.669000i \\\n\
+  1.610250i 0.669000i 1.610250i 0.411000i 1.532250i 0.411000i 1.469250i 0.593250i \\\n\
+  1.407000i 0.411000i 1.332750i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 1.067250i 0.669000i 1.125750i 0.669000i 1.125750i 0.555750i \\\n\
+  1.248750i 0.556500i 1.248750i 0.669000i 1.308750i 0.669000i 1.308750i 0.411000i \\\n\
+  1.245000i 0.411000i 1.245750i 0.518250i 1.125750i 0.518250i 1.126500i 0.411000i \\\n\
+  1.066500i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 1.067250i 0.669000i 1.125750i 0.669000i 1.125750i 0.555750i \\\n\
+  1.248750i 0.556500i 1.248750i 0.669000i 1.308750i 0.669000i 1.308750i 0.411000i \\\n\
+  1.245000i 0.411000i 1.245750i 0.518250i 1.125750i 0.518250i 1.126500i 0.411000i \\\n\
+  1.066500i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 0.250500i 0.411000i 0.272250i 0.421500i 0.288750i 0.430500i \\\n\
+  0.301500i 0.447000i 0.306750i 0.472500i 0.306750i 0.501750i 0.292500i 0.523500i \\\n\
+  0.282000i 0.532500i 0.266250i 0.546000i 0.235500i 0.556500i 0.308250i 0.669000i \\\n\
+  0.242250i 0.669000i 0.166500i 0.540000i 0.163500i 0.529500i 0.202500i 0.529500i \\\n\
+  0.222750i 0.524250i 0.240000i 0.511500i 0.256500i 0.480750i 0.243750i 0.459000i \\\n\
+  0.222750i 0.450750i 0.161250i 0.450750i 0.163500i 0.669000i 0.112500i 0.669000i \\\n\
+  0.112500i 0.410250i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 0.250500i 0.411000i 0.272250i 0.421500i 0.288750i 0.430500i \\\n\
+  0.301500i 0.447000i 0.306750i 0.472500i 0.306750i 0.501750i 0.292500i 0.523500i \\\n\
+  0.282000i 0.532500i 0.266250i 0.546000i 0.235500i 0.556500i 0.308250i 0.669000i \\\n\
+  0.242250i 0.669000i 0.166500i 0.540000i 0.163500i 0.529500i 0.202500i 0.529500i \\\n\
+  0.222750i 0.524250i 0.240000i 0.511500i 0.256500i 0.480750i 0.243750i 0.459000i \\\n\
+  0.222750i 0.450750i 0.161250i 0.450750i 0.163500i 0.669000i 0.112500i 0.669000i \\\n\
+  0.112500i 0.410250i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 0.327750i 0.411000i 0.327750i 0.669000i 0.378750i 0.669000i \\\n\
+  0.380250i 0.551250i 0.508500i 0.551250i 0.509250i 0.669000i 0.569250i 0.669000i \\\n\
+  0.569250i 0.411000i 0.506250i 0.411000i 0.506250i 0.520500i 0.379500i 0.520500i \\\n\
+  0.379500i 0.411000i 0.321750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 0.327750i 0.411000i 0.327750i 0.669000i 0.378750i 0.669000i \\\n\
+  0.380250i 0.551250i 0.508500i 0.551250i 0.509250i 0.669000i 0.569250i 0.669000i \\\n\
+  0.569250i 0.411000i 0.506250i 0.411000i 0.506250i 0.520500i 0.379500i 0.520500i \\\n\
+  0.379500i 0.411000i 0.321750i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 2.010750i 0.414000i 2.001000i 0.411750i 1.995750i 0.410250i \\\n\
+  1.993500i 0.410250i 1.991250i 0.409500i 1.984500i 0.409500i 1.971750i 0.408750i \\\n\
+  1.961250i 0.408750i 1.953750i 0.408750i 1.950000i 0.408000i 1.947750i 0.408000i \\\n\
+  1.946250i 0.407250i 1.941750i 0.408000i 1.933500i 0.409500i 1.920750i 0.413250i \\\n\
+  1.908000i 0.418500i 1.898250i 0.422250i 1.893000i 0.424500i 1.890000i 0.425250i \\\n\
+  1.887000i 0.426750i 1.881750i 0.430500i 1.873500i 0.436500i 1.862250i 0.447000i \\\n\
+  1.852500i 0.458250i 1.845750i 0.466500i 1.842750i 0.471000i 1.841250i 0.473250i \\\n\
+  1.839750i 0.476250i 1.838250i 0.481500i 1.834500i 0.491250i 1.830000i 0.506250i \\\n\
+  1.827000i 0.522000i 1.825500i 0.533250i 1.824750i 0.540000i 1.825500i 0.543750i \\\n\
+  1.825500i 0.547500i 1.826250i 0.553500i 1.827750i 0.564000i 1.830000i 0.578250i \\\n\
+  1.833750i 0.591000i 1.836000i 0.598500i 1.838250i 0.601500i 1.839000i 0.602250i \\\n\
+  1.839750i 0.603000i 1.842750i 0.606000i 1.847250i 0.611250i 1.855500i 0.620250i \\\n\
+  1.864500i 0.628500i 1.871250i 0.634500i 1.875750i 0.637500i 1.878750i 0.639000i \\\n\
+  1.881000i 0.640500i 1.885500i 0.643500i 1.893000i 0.648000i 1.903500i 0.653250i \\\n\
+  1.915500i 0.659250i 1.921500i 0.661500i 1.923000i 0.661500i 1.924500i 0.661500i \\\n\
+  1.930500i 0.662250i 1.942500i 0.664500i 1.955250i 0.666000i 1.962000i 0.666000i \\\n\
+  1.964250i 0.666000i 1.967250i 0.666000i 1.974000i 0.666000i 1.988250i 0.665250i \\\n\
+  1.999500i 0.664500i 2.007750i 0.663750i 2.013000i 0.663000i 2.016000i 0.663000i \\\n\
+  2.019000i 0.663000i 2.023500i 0.662250i 2.030250i 0.660750i 2.038500i 0.658500i \\\n\
+  2.043750i 0.656250i 2.047500i 0.654750i 2.049000i 0.653250i 2.049000i 0.652500i \\\n\
+  2.049000i 0.651750i 2.048250i 0.650250i 2.049000i 0.648750i 2.049750i 0.646500i \\\n\
+  2.050500i 0.643500i 2.051250i 0.639750i 2.051250i 0.636000i 2.051250i 0.634500i \\\n\
+  2.052000i 0.633000i 2.052000i 0.631500i 2.051250i 0.630000i 2.049750i 0.627750i \\\n\
+  2.046750i 0.624750i 2.040750i 0.622500i 2.037000i 0.622500i 2.034750i 0.623250i \\\n\
+  2.030250i 0.624000i 2.021250i 0.624750i 2.013750i 0.625500i 2.010000i 0.626250i \\\n\
+  2.009250i 0.627000i 2.008500i 0.627750i 2.004000i 0.627750i 1.994250i 0.628500i \\\n\
+  1.983000i 0.628500i 1.975500i 0.628500i 1.971750i 0.629250i 1.968000i 0.629250i \\\n\
+  1.960500i 0.628500i 1.947750i 0.626250i 1.936500i 0.623250i 1.930500i 0.621000i \\\n\
+  1.928250i 0.620250i 1.926750i 0.618750i 1.922250i 0.615750i 1.912500i 0.609000i \\\n\
+  1.903500i 0.601500i 1.898250i 0.597000i 1.896000i 0.594750i 1.894500i 0.592500i \\\n\
+  1.890750i 0.587250i 1.884750i 0.578250i 1.880250i 0.568500i 1.878750i 0.564000i \\\n\
+  1.878750i 0.562500i 1.878750i 0.560250i 1.878000i 0.555000i 1.877250i 0.545250i \\\n\
+  1.877250i 0.534750i 1.877250i 0.528750i 1.877250i 0.526500i 1.877250i 0.524250i \\\n\
+  1.878000i 0.518250i 1.881000i 0.508500i 1.884750i 0.498750i 1.886250i 0.494250i \\\n\
+  1.886250i 0.492000i 1.887000i 0.490500i 1.890750i 0.486000i 1.898250i 0.478500i \\\n\
+  1.908000i 0.471000i 1.914000i 0.467250i 1.917000i 0.465750i 1.920000i 0.465000i \\\n\
+  1.927500i 0.462000i 1.938750i 0.457500i 1.950000i 0.453750i 1.955250i 0.452250i \\\n\
+  1.957500i 0.451500i 1.959000i 0.451500i 1.965000i 0.450750i 1.974750i 0.450000i \\\n\
+  1.984500i 0.450000i 1.989750i 0.450000i 1.991250i 0.450750i 1.992750i 0.450750i \\\n\
+  1.998000i 0.452250i 2.007000i 0.453750i 2.016750i 0.456000i 2.022000i 0.458250i \\\n\
+  2.024250i 0.459750i 2.026500i 0.461250i 2.031000i 0.462750i 2.038500i 0.462750i \\\n\
+  2.043750i 0.461250i 2.047500i 0.459750i 2.049750i 0.458250i 2.051250i 0.456750i \\\n\
+  2.052750i 0.456000i 2.054250i 0.453750i 2.055000i 0.450750i 2.055750i 0.446250i \\\n\
+  2.055000i 0.441750i 2.052750i 0.438750i 2.051250i 0.436500i 2.049750i 0.435000i \\\n\
+  2.047500i 0.434250i 2.045250i 0.432000i 2.041500i 0.429000i 2.036250i 0.425250i \\\n\
+  2.029500i 0.420750i 2.025750i 0.418500i 2.025000i 0.418500i 2.024250i 0.417750i \\\n\
+  2.019750i 0.416250i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 2.010750i 0.414000i 2.001000i 0.411750i 1.995750i 0.410250i \\\n\
+  1.993500i 0.410250i 1.991250i 0.409500i 1.984500i 0.409500i 1.971750i 0.408750i \\\n\
+  1.961250i 0.408750i 1.953750i 0.408750i 1.950000i 0.408000i 1.947750i 0.408000i \\\n\
+  1.946250i 0.407250i 1.941750i 0.408000i 1.933500i 0.409500i 1.920750i 0.413250i \\\n\
+  1.908000i 0.418500i 1.898250i 0.422250i 1.893000i 0.424500i 1.890000i 0.425250i \\\n\
+  1.887000i 0.426750i 1.881750i 0.430500i 1.873500i 0.436500i 1.862250i 0.447000i \\\n\
+  1.852500i 0.458250i 1.845750i 0.466500i 1.842750i 0.471000i 1.841250i 0.473250i \\\n\
+  1.839750i 0.476250i 1.838250i 0.481500i 1.834500i 0.491250i 1.830000i 0.506250i \\\n\
+  1.827000i 0.522000i 1.825500i 0.533250i 1.824750i 0.540000i 1.825500i 0.543750i \\\n\
+  1.825500i 0.547500i 1.826250i 0.553500i 1.827750i 0.564000i 1.830000i 0.578250i \\\n\
+  1.833750i 0.591000i 1.836000i 0.598500i 1.838250i 0.601500i 1.839000i 0.602250i \\\n\
+  1.839750i 0.603000i 1.842750i 0.606000i 1.847250i 0.611250i 1.855500i 0.620250i \\\n\
+  1.864500i 0.628500i 1.871250i 0.634500i 1.875750i 0.637500i 1.878750i 0.639000i \\\n\
+  1.881000i 0.640500i 1.885500i 0.643500i 1.893000i 0.648000i 1.903500i 0.653250i \\\n\
+  1.915500i 0.659250i 1.921500i 0.661500i 1.923000i 0.661500i 1.924500i 0.661500i \\\n\
+  1.930500i 0.662250i 1.942500i 0.664500i 1.955250i 0.666000i 1.962000i 0.666000i \\\n\
+  1.964250i 0.666000i 1.967250i 0.666000i 1.974000i 0.666000i 1.988250i 0.665250i \\\n\
+  1.999500i 0.664500i 2.007750i 0.663750i 2.013000i 0.663000i 2.016000i 0.663000i \\\n\
+  2.019000i 0.663000i 2.023500i 0.662250i 2.030250i 0.660750i 2.038500i 0.658500i \\\n\
+  2.043750i 0.656250i 2.047500i 0.654750i 2.049000i 0.653250i 2.049000i 0.652500i \\\n\
+  2.049000i 0.651750i 2.048250i 0.650250i 2.049000i 0.648750i 2.049750i 0.646500i \\\n\
+  2.050500i 0.643500i 2.051250i 0.639750i 2.051250i 0.636000i 2.051250i 0.634500i \\\n\
+  2.052000i 0.633000i 2.052000i 0.631500i 2.051250i 0.630000i 2.049750i 0.627750i \\\n\
+  2.046750i 0.624750i 2.040750i 0.622500i 2.037000i 0.622500i 2.034750i 0.623250i \\\n\
+  2.030250i 0.624000i 2.021250i 0.624750i 2.013750i 0.625500i 2.010000i 0.626250i \\\n\
+  2.009250i 0.627000i 2.008500i 0.627750i 2.004000i 0.627750i 1.994250i 0.628500i \\\n\
+  1.983000i 0.628500i 1.975500i 0.628500i 1.971750i 0.629250i 1.968000i 0.629250i \\\n\
+  1.960500i 0.628500i 1.947750i 0.626250i 1.936500i 0.623250i 1.930500i 0.621000i \\\n\
+  1.928250i 0.620250i 1.926750i 0.618750i 1.922250i 0.615750i 1.912500i 0.609000i \\\n\
+  1.903500i 0.601500i 1.898250i 0.597000i 1.896000i 0.594750i 1.894500i 0.592500i \\\n\
+  1.890750i 0.587250i 1.884750i 0.578250i 1.880250i 0.568500i 1.878750i 0.564000i \\\n\
+  1.878750i 0.562500i 1.878750i 0.560250i 1.878000i 0.555000i 1.877250i 0.545250i \\\n\
+  1.877250i 0.534750i 1.877250i 0.528750i 1.877250i 0.526500i 1.877250i 0.524250i \\\n\
+  1.878000i 0.518250i 1.881000i 0.508500i 1.884750i 0.498750i 1.886250i 0.494250i \\\n\
+  1.886250i 0.492000i 1.887000i 0.490500i 1.890750i 0.486000i 1.898250i 0.478500i \\\n\
+  1.908000i 0.471000i 1.914000i 0.467250i 1.917000i 0.465750i 1.920000i 0.465000i \\\n\
+  1.927500i 0.462000i 1.938750i 0.457500i 1.950000i 0.453750i 1.955250i 0.452250i \\\n\
+  1.957500i 0.451500i 1.959000i 0.451500i 1.965000i 0.450750i 1.974750i 0.450000i \\\n\
+  1.984500i 0.450000i 1.989750i 0.450000i 1.991250i 0.450750i 1.992750i 0.450750i \\\n\
+  1.998000i 0.452250i 2.007000i 0.453750i 2.016750i 0.456000i 2.022000i 0.458250i \\\n\
+  2.024250i 0.459750i 2.026500i 0.461250i 2.031000i 0.462750i 2.038500i 0.462750i \\\n\
+  2.043750i 0.461250i 2.047500i 0.459750i 2.049750i 0.458250i 2.051250i 0.456750i \\\n\
+  2.052750i 0.456000i 2.054250i 0.453750i 2.055000i 0.450750i 2.055750i 0.446250i \\\n\
+  2.055000i 0.441750i 2.052750i 0.438750i 2.051250i 0.436500i 2.049750i 0.435000i \\\n\
+  2.047500i 0.434250i 2.045250i 0.432000i 2.041500i 0.429000i 2.036250i 0.425250i \\\n\
+  2.029500i 0.420750i 2.025750i 0.418500i 2.025000i 0.418500i 2.024250i 0.417750i \\\n\
+  2.019750i 0.416250i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create polygon 3.246000i 0.408000i 3.236250i 0.408000i 3.231000i 0.408750i \\\n\
+  3.229500i 0.408750i 3.227250i 0.409500i 3.223500i 0.410250i 3.215250i 0.411750i \\\n\
+  3.207000i 0.413250i 3.204000i 0.414000i 3.203250i 0.414000i 3.201000i 0.414750i \\\n\
+  3.194250i 0.417750i 3.188250i 0.421500i 3.185250i 0.423000i 3.184500i 0.424500i \\\n\
+  3.182250i 0.426750i 3.177000i 0.432000i 3.171750i 0.438000i 3.169500i 0.441000i \\\n\
+  3.168750i 0.441750i 3.167250i 0.444750i 3.164250i 0.452250i 3.162750i 0.460500i \\\n\
+  3.162000i 0.464250i 3.162750i 0.465750i 3.162750i 0.469500i 3.163500i 0.477750i \\\n\
+  3.164250i 0.485250i 3.164250i 0.488250i 3.163500i 0.489000i 3.164250i 0.492000i \\\n\
+  3.167250i 0.499500i 3.171000i 0.506250i 3.174000i 0.510750i 3.176250i 0.513000i \\\n\
+  3.177750i 0.514500i 3.181500i 0.518250i 3.186750i 0.524250i 3.192750i 0.530250i \\\n\
+  3.195000i 0.531750i 3.195750i 0.531750i 3.198000i 0.533250i 3.203250i 0.537000i \\\n\
+  3.207750i 0.540750i 3.209250i 0.541500i 3.211500i 0.543000i 3.216750i 0.547500i \\\n\
+  3.222750i 0.552750i 3.225750i 0.556500i 3.228000i 0.558000i 3.229500i 0.560250i \\\n\
+  3.233250i 0.564000i 3.239250i 0.569250i 3.245250i 0.574500i 3.247500i 0.575250i \\\n\
+  3.248250i 0.575250i 3.249750i 0.576000i 3.253500i 0.580500i 3.256500i 0.585000i \\\n\
+  3.258000i 0.587250i 3.258750i 0.588000i 3.259500i 0.590250i 3.260250i 0.596250i \\\n\
+  3.260250i 0.602250i 3.259500i 0.605250i 3.259500i 0.606750i 3.258750i 0.609750i \\\n\
+  3.255750i 0.615000i 3.252750i 0.618750i 3.251250i 0.620250i 3.250500i 0.620250i \\\n\
+  3.249750i 0.621000i 3.247500i 0.621750i 3.241500i 0.623250i 3.234750i 0.624750i \\\n\
+  3.230250i 0.624750i 3.228000i 0.624750i 3.225750i 0.624750i 3.220500i 0.624750i \\\n\
+  3.212250i 0.624750i 3.203250i 0.624000i 3.199500i 0.623250i 3.198000i 0.623250i \\\n\
+  3.195000i 0.622500i 3.186750i 0.621000i 3.179250i 0.619500i 3.176250i 0.617250i \\\n\
+  3.174750i 0.616500i 3.172500i 0.615000i 3.166500i 0.615750i 3.162750i 0.617250i \\\n\
+  3.160500i 0.618750i 3.158250i 0.619500i 3.157500i 0.620250i 3.156750i 0.621750i \\\n\
+  3.155250i 0.623250i 3.154500i 0.625500i 3.153750i 0.630000i 3.154500i 0.636750i \\\n\
+  3.156000i 0.640500i 3.157500i 0.642750i 3.160500i 0.646500i 3.165750i 0.653250i \\\n\
+  3.171750i 0.658500i 3.174750i 0.660750i 3.175500i 0.661500i 3.179250i 0.663000i \\\n\
+  3.189000i 0.666000i 3.198750i 0.668250i 3.204750i 0.669000i 3.207750i 0.669000i \\\n\
+  3.210750i 0.668250i 3.216750i 0.669000i 3.228000i 0.669000i 3.238500i 0.669000i \\\n\
+  3.244500i 0.669000i 3.246000i 0.669000i 3.247500i 0.669000i 3.252750i 0.669000i \\\n\
+  3.263250i 0.667500i 3.273750i 0.666000i 3.279000i 0.665250i 3.281250i 0.665250i \\\n\
+  3.283500i 0.665250i 3.288750i 0.663000i 3.297000i 0.659250i 3.304500i 0.654000i \\\n\
+  3.308250i 0.651000i 3.309000i 0.649500i 3.309750i 0.647250i 3.312000i 0.643500i \\\n\
+  3.316500i 0.636000i 3.319500i 0.628500i 3.321000i 0.624000i 3.321750i 0.622500i \\\n\
+  3.321750i 0.621000i 3.322500i 0.616500i 3.322500i 0.607500i 3.322500i 0.598500i \\\n\
+  3.321750i 0.594000i 3.321750i 0.591750i 3.321000i 0.589500i 3.319500i 0.585000i \\\n\
+  3.316500i 0.576750i 3.312000i 0.569250i 3.309750i 0.566250i 3.307500i 0.564750i \\\n\
+  3.306000i 0.564000i 3.303000i 0.561000i 3.297750i 0.555750i 3.292500i 0.550500i \\\n\
+  3.291000i 0.549000i 3.290250i 0.549000i 3.288750i 0.548250i 3.283500i 0.543000i \\\n\
+  3.278250i 0.538500i 3.276000i 0.535500i 3.274500i 0.534000i 3.273750i 0.532500i \\\n\
+  3.270750i 0.529500i 3.264000i 0.524250i 3.257250i 0.519000i 3.252750i 0.516000i \\\n\
+  3.250500i 0.515250i 3.248250i 0.514500i 3.244500i 0.511500i 3.237750i 0.506250i \\\n\
+  3.231000i 0.499500i 3.228000i 0.496500i 3.227250i 0.495000i 3.225000i 0.492000i \\\n\
+  3.222000i 0.485250i 3.220500i 0.479250i 3.219750i 0.476250i 3.219750i 0.474750i \\\n\
+  3.220500i 0.473250i 3.221250i 0.470250i 3.222750i 0.465750i 3.225000i 0.461250i \\\n\
+  3.226500i 0.459750i 3.227250i 0.459000i 3.227250i 0.458250i 3.230250i 0.456750i \\\n\
+  3.235500i 0.454500i 3.242250i 0.452250i 3.246750i 0.451500i 3.249000i 0.451500i \\\n\
+  3.251250i 0.451500i 3.256500i 0.450750i 3.263250i 0.450750i 3.270000i 0.451500i \\\n\
+  3.272250i 0.451500i 3.272250i 0.452250i 3.274500i 0.453000i 3.280500i 0.454500i \\\n\
+  3.287250i 0.456000i 3.290250i 0.457500i 3.291750i 0.458250i 3.294750i 0.459000i \\\n\
+  3.300750i 0.458250i 3.305250i 0.456000i 3.308250i 0.453750i 3.309000i 0.452250i \\\n\
+  3.309750i 0.450000i 3.311250i 0.447000i 3.313500i 0.442500i 3.314250i 0.438750i \\\n\
+  3.314250i 0.436500i 3.315000i 0.435000i 3.315000i 0.434250i 3.315000i 0.433500i \\\n\
+  3.314250i 0.432000i 3.312750i 0.429750i 3.309750i 0.426000i 3.304500i 0.421500i \\\n\
+  3.300750i 0.419250i 3.299250i 0.417750i 3.297000i 0.417000i 3.291750i 0.414750i \\\n\
+  3.282750i 0.411750i 3.273000i 0.409500i 3.267000i 0.408750i 3.264750i 0.408750i \\\n\
+  3.261750i 0.408750i 3.256500i 0.408000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 3.246000i 0.408000i 3.236250i 0.408000i 3.231000i 0.408750i \\\n\
+  3.229500i 0.408750i 3.227250i 0.409500i 3.223500i 0.410250i 3.215250i 0.411750i \\\n\
+  3.207000i 0.413250i 3.204000i 0.414000i 3.203250i 0.414000i 3.201000i 0.414750i \\\n\
+  3.194250i 0.417750i 3.188250i 0.421500i 3.185250i 0.423000i 3.184500i 0.424500i \\\n\
+  3.182250i 0.426750i 3.177000i 0.432000i 3.171750i 0.438000i 3.169500i 0.441000i \\\n\
+  3.168750i 0.441750i 3.167250i 0.444750i 3.164250i 0.452250i 3.162750i 0.460500i \\\n\
+  3.162000i 0.464250i 3.162750i 0.465750i 3.162750i 0.469500i 3.163500i 0.477750i \\\n\
+  3.164250i 0.485250i 3.164250i 0.488250i 3.163500i 0.489000i 3.164250i 0.492000i \\\n\
+  3.167250i 0.499500i 3.171000i 0.506250i 3.174000i 0.510750i 3.176250i 0.513000i \\\n\
+  3.177750i 0.514500i 3.181500i 0.518250i 3.186750i 0.524250i 3.192750i 0.530250i \\\n\
+  3.195000i 0.531750i 3.195750i 0.531750i 3.198000i 0.533250i 3.203250i 0.537000i \\\n\
+  3.207750i 0.540750i 3.209250i 0.541500i 3.211500i 0.543000i 3.216750i 0.547500i \\\n\
+  3.222750i 0.552750i 3.225750i 0.556500i 3.228000i 0.558000i 3.229500i 0.560250i \\\n\
+  3.233250i 0.564000i 3.239250i 0.569250i 3.245250i 0.574500i 3.247500i 0.575250i \\\n\
+  3.248250i 0.575250i 3.249750i 0.576000i 3.253500i 0.580500i 3.256500i 0.585000i \\\n\
+  3.258000i 0.587250i 3.258750i 0.588000i 3.259500i 0.590250i 3.260250i 0.596250i \\\n\
+  3.260250i 0.602250i 3.259500i 0.605250i 3.259500i 0.606750i 3.258750i 0.609750i \\\n\
+  3.255750i 0.615000i 3.252750i 0.618750i 3.251250i 0.620250i 3.250500i 0.620250i \\\n\
+  3.249750i 0.621000i 3.247500i 0.621750i 3.241500i 0.623250i 3.234750i 0.624750i \\\n\
+  3.230250i 0.624750i 3.228000i 0.624750i 3.225750i 0.624750i 3.220500i 0.624750i \\\n\
+  3.212250i 0.624750i 3.203250i 0.624000i 3.199500i 0.623250i 3.198000i 0.623250i \\\n\
+  3.195000i 0.622500i 3.186750i 0.621000i 3.179250i 0.619500i 3.176250i 0.617250i \\\n\
+  3.174750i 0.616500i 3.172500i 0.615000i 3.166500i 0.615750i 3.162750i 0.617250i \\\n\
+  3.160500i 0.618750i 3.158250i 0.619500i 3.157500i 0.620250i 3.156750i 0.621750i \\\n\
+  3.155250i 0.623250i 3.154500i 0.625500i 3.153750i 0.630000i 3.154500i 0.636750i \\\n\
+  3.156000i 0.640500i 3.157500i 0.642750i 3.160500i 0.646500i 3.165750i 0.653250i \\\n\
+  3.171750i 0.658500i 3.174750i 0.660750i 3.175500i 0.661500i 3.179250i 0.663000i \\\n\
+  3.189000i 0.666000i 3.198750i 0.668250i 3.204750i 0.669000i 3.207750i 0.669000i \\\n\
+  3.210750i 0.668250i 3.216750i 0.669000i 3.228000i 0.669000i 3.238500i 0.669000i \\\n\
+  3.244500i 0.669000i 3.246000i 0.669000i 3.247500i 0.669000i 3.252750i 0.669000i \\\n\
+  3.263250i 0.667500i 3.273750i 0.666000i 3.279000i 0.665250i 3.281250i 0.665250i \\\n\
+  3.283500i 0.665250i 3.288750i 0.663000i 3.297000i 0.659250i 3.304500i 0.654000i \\\n\
+  3.308250i 0.651000i 3.309000i 0.649500i 3.309750i 0.647250i 3.312000i 0.643500i \\\n\
+  3.316500i 0.636000i 3.319500i 0.628500i 3.321000i 0.624000i 3.321750i 0.622500i \\\n\
+  3.321750i 0.621000i 3.322500i 0.616500i 3.322500i 0.607500i 3.322500i 0.598500i \\\n\
+  3.321750i 0.594000i 3.321750i 0.591750i 3.321000i 0.589500i 3.319500i 0.585000i \\\n\
+  3.316500i 0.576750i 3.312000i 0.569250i 3.309750i 0.566250i 3.307500i 0.564750i \\\n\
+  3.306000i 0.564000i 3.303000i 0.561000i 3.297750i 0.555750i 3.292500i 0.550500i \\\n\
+  3.291000i 0.549000i 3.290250i 0.549000i 3.288750i 0.548250i 3.283500i 0.543000i \\\n\
+  3.278250i 0.538500i 3.276000i 0.535500i 3.274500i 0.534000i 3.273750i 0.532500i \\\n\
+  3.270750i 0.529500i 3.264000i 0.524250i 3.257250i 0.519000i 3.252750i 0.516000i \\\n\
+  3.250500i 0.515250i 3.248250i 0.514500i 3.244500i 0.511500i 3.237750i 0.506250i \\\n\
+  3.231000i 0.499500i 3.228000i 0.496500i 3.227250i 0.495000i 3.225000i 0.492000i \\\n\
+  3.222000i 0.485250i 3.220500i 0.479250i 3.219750i 0.476250i 3.219750i 0.474750i \\\n\
+  3.220500i 0.473250i 3.221250i 0.470250i 3.222750i 0.465750i 3.225000i 0.461250i \\\n\
+  3.226500i 0.459750i 3.227250i 0.459000i 3.227250i 0.458250i 3.230250i 0.456750i \\\n\
+  3.235500i 0.454500i 3.242250i 0.452250i 3.246750i 0.451500i 3.249000i 0.451500i \\\n\
+  3.251250i 0.451500i 3.256500i 0.450750i 3.263250i 0.450750i 3.270000i 0.451500i \\\n\
+  3.272250i 0.451500i 3.272250i 0.452250i 3.274500i 0.453000i 3.280500i 0.454500i \\\n\
+  3.287250i 0.456000i 3.290250i 0.457500i 3.291750i 0.458250i 3.294750i 0.459000i \\\n\
+  3.300750i 0.458250i 3.305250i 0.456000i 3.308250i 0.453750i 3.309000i 0.452250i \\\n\
+  3.309750i 0.450000i 3.311250i 0.447000i 3.313500i 0.442500i 3.314250i 0.438750i \\\n\
+  3.314250i 0.436500i 3.315000i 0.435000i 3.315000i 0.434250i 3.315000i 0.433500i \\\n\
+  3.314250i 0.432000i 3.312750i 0.429750i 3.309750i 0.426000i 3.304500i 0.421500i \\\n\
+  3.300750i 0.419250i 3.299250i 0.417750i 3.297000i 0.417000i 3.291750i 0.414750i \\\n\
+  3.282750i 0.411750i 3.273000i 0.409500i 3.267000i 0.408750i 3.264750i 0.408750i \\\n\
+  3.261750i 0.408750i 3.256500i 0.408000i -outline $tkxox(color_title_fg) -fill {}\n\
+${title} create oval 2.868750i 0.405000i 3.137250i 0.673500i -outline {} -fill \\\n\
+  $tkxox(color_title_fg) -width 0\n\
+${title} create oval 2.868750i 0.405000i 3.137250i 0.673500i -outline $tkxox(color_title_fg) -fill \\\n\
+  {}\n\
+${title} create oval 2.073000i 0.406500i 2.341500i 0.675000i -outline {} -fill \\\n\
+  $tkxox(color_title_fg) -width 0\n\
+${title} create oval 2.073000i 0.406500i 2.341500i 0.675000i -outline $tkxox(color_title_fg) -fill \\\n\
+  {}\n\
+${title} create oval 5.783250i 0.108000i 6.209250i 0.664500i -outline {} -fill \\\n\
+  $tkxox(color_title_logo_fg) -width 0\n\
+${title} create oval 5.783250i 0.108000i 6.209250i 0.664500i -outline $tkxox(color_title_logo_fg) -fill \\\n\
+  {}\n\
+${title} create oval 2.909250i 0.448500i 3.090750i 0.630000i -outline {} -fill \\\n\
+  $tkxox(color_title_bg) -width 0\n\
+${title} create oval 2.909250i 0.448500i 3.090750i 0.630000i -outline $tkxox(color_title_fg) -fill \\\n\
+  {}\n\
+${title} create oval 2.113500i 0.450000i 2.295000i 0.631500i -outline {} -fill \\\n\
+  $tkxox(color_title_bg) -width 0\n\
+${title} create oval 2.113500i 0.450000i 2.295000i 0.631500i -outline $tkxox(color_title_fg) -fill \\\n\
+  {}\n\
+${title} create oval 5.889750i 0.195750i 6.095250i 0.587250i -outline {} -fill \\\n\
+  $tkxox(color_title_bg) -width 0\n\
+${title} create oval 5.889750i 0.195750i 6.095250i 0.587250i -outline $tkxox(color_title_logo_fg) -fill \\\n\
+  {}\n\
+${title} create polygon 4.125000i 0.121500i 4.125000i 0.202500i 4.296000i 0.202500i \\\n\
+  4.296000i 0.652500i 4.417500i 0.652500i 4.417500i 0.205500i 4.582500i 0.205500i \\\n\
+  4.582500i 0.121500i 4.125000i 0.121500i -outline {} -fill $tkxox(color_title_logo_fg) -width 0\n\
+${title} create polygon 4.125000i 0.121500i 4.125000i 0.202500i 4.296000i 0.202500i \\\n\
+  4.296000i 0.652500i 4.417500i 0.652500i 4.417500i 0.205500i 4.582500i 0.205500i \\\n\
+  4.582500i 0.121500i 4.125000i 0.121500i -outline $tkxox(color_title_logo_fg) -fill {}\n\
+${title} create polygon 2.365500i 0.669000i 2.409750i 0.669000i 2.409750i 0.477750i \\\n\
+  2.473500i 0.669000i 2.526000i 0.669000i 2.590500i 0.474750i 2.591250i 0.669000i \\\n\
+  2.643750i 0.669000i 2.643750i 0.411000i 2.565750i 0.411000i 2.502750i 0.594000i \\\n\
+  2.440500i 0.411000i 2.366250i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0\n\
+${title} create polygon 2.365500i 0.669000i 2.409750i 0.669000i 2.409750i 0.477750i \\\n\
+  2.473500i 0.669000i 2.526000i 0.669000i 2.590500i 0.474750i 2.591250i 0.669000i \\\n\
+  2.643750i 0.669000i 2.643750i 0.411000i 2.565750i 0.411000i 2.502750i 0.594000i \\\n\
+  2.440500i 0.411000i 2.366250i 0.411000i -outline $tkxox(color_title_fg) -fill {}\n\
+";
diff --git a/title.tcl b/title.tcl
index 334fba9..938dba4 100644
--- a/title.tcl
+++ b/title.tcl
@@ -1,6 +1,6 @@
 # do not edit.
 # file automatically generated by:
-#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig
+#		./title_fig2tcl.sh ./title.fig
 
 set title $vcunit.title
 
@@ -15,428 +15,367 @@ ${title} yview scroll ${title_scroll_y_in_point} u
 pack ${title} -side top
 
 # The xfig objects begin here
-${title} create polygon 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \
-  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -outline {} -fill $tkxox(color_title_bg) \
+${title} create polygon 0.000000i 0.000000i 6.750000i 0.000000i 6.750000i 0.787500i \
+  0.000000i 0.787500i -outline {} -fill $tkxox(color_title_bg) -width 0
+${title} create line 0.000000i 0.000000i 6.750000i 0.000000i 6.750000i 0.787500i \
+  0.000000i 0.787500i 0.000000i 0.000000i -fill $tkxox(color_title_bg)
+${title} create polygon 4.744500i 0.380250i 4.953000i 0.652500i 5.097750i 0.652500i \
+  4.875000i 0.380250i 5.067750i 0.124500i 4.933500i 0.124500i -outline {} -fill $tkxox(color_title_logo_fg) \
   -width 0
-${title} create line 0.000000i 0.000000i 6.751688i 0.000000i 6.751688i \
-  0.787697i 0.000000i 0.787697i 0.000000i 0.000000i -fill $tkxox(color_title_bg)
-${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \
-  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \
-  4.745686i 0.380345i -outline {} -fill $tkxox(color_title_logo_fg) -width 0
-${title} create polygon 4.745686i 0.380345i 4.954239i 0.652663i 5.099025i \
-  0.652663i 4.876219i 0.380345i 5.069017i 0.124531i 4.934734i 0.124531i \
-  4.745686i 0.380345i -outline $tkxox(color_title_logo_fg) -fill {}
-${title} create polygon 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \
-  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -outline {} -fill $tkxox(color_title_logo_fg) \
-  -width 0
-${title} create line 5.126032i 0.407352i 5.334584i 0.407352i 5.334584i \
-  0.489122i 5.126032i 0.489122i 5.126032i 0.407352i -fill $tkxox(color_title_logo_fg)
-${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \
-  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \
-  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \
-  0.516129i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 0.699925i 0.516129i 0.762941i 0.411103i 0.819205i \
-  0.411103i 0.725431i 0.547637i 0.725431i 0.669167i 0.669167i 0.669167i \
-  0.669167i 0.546887i 0.585146i 0.411103i 0.637659i 0.411103i 0.699925i \
-  0.516129i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \
-  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \
-  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \
-  0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 0.834959i 0.411103i 0.834959i 0.453113i 0.915229i \
-  0.453113i 0.915229i 0.669167i 0.972243i 0.669167i 0.970743i 0.452363i \
-  1.051013i 0.452363i 1.051013i 0.411103i 0.834959i 0.411103i 0.834959i \
-  0.411103i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \
-  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -outline {} -fill $tkxox(color_title_logo_fg) \
-  -width 0
-${title} create line 4.619655i 0.121530i 4.742686i 0.121530i 4.742686i \
-  0.652663i 4.619655i 0.652663i 4.619655i 0.121530i -fill $tkxox(color_title_logo_fg)
-${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \
-  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \
-  6.241560i 0.121530i 6.241560i 0.213053i -outline {} -fill $tkxox(color_title_logo_fg) -width \
-  0
-${title} create polygon 6.241560i 0.213053i 6.495874i 0.213053i 6.284321i \
-  0.652663i 6.428357i 0.652663i 6.624156i 0.217554i 6.624156i 0.121530i \
-  6.241560i 0.121530i 6.241560i 0.213053i -outline $tkxox(color_title_logo_fg) -fill {}
-${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \
-  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \
-  5.366092i 0.121530i 5.366092i 0.214554i -outline {} -fill $tkxox(color_title_logo_fg) -width \
-  0
-${title} create polygon 5.366092i 0.214554i 5.620405i 0.214554i 5.408852i \
-  0.652663i 5.552888i 0.652663i 5.750938i 0.219055i 5.749437i 0.121530i \
-  5.366092i 0.121530i 5.366092i 0.214554i -outline $tkxox(color_title_logo_fg) -fill {}
-${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \
-  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \
-  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \
-  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \
-  -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 3.336834i 0.669167i 3.519130i 0.669167i 3.519880i \
-  0.624156i 3.393098i 0.624906i 3.393848i 0.555889i 3.507127i 0.555889i \
-  3.507877i 0.519130i 3.392348i 0.519130i 3.393098i 0.453113i 3.517629i \
-  0.452363i 3.517629i 0.411103i 3.336834i 0.411103i 3.336834i 0.669167i \
-  -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \
-  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \
-  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \
-  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \
-  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \
-  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \
-  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \
-  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \
-  3.558890i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 3.558890i 0.411103i 3.645161i 0.411103i 3.673668i \
-  0.411103i 3.695424i 0.418605i 3.711928i 0.427607i 3.724681i 0.444111i \
-  3.729932i 0.469617i 3.729932i 0.498875i 3.715679i 0.520630i 3.705176i \
-  0.529632i 3.689422i 0.543136i 3.658665i 0.553638i 3.731433i 0.669167i \
-  3.665416i 0.669167i 3.589647i 0.537134i 3.586647i 0.526632i 3.625656i \
-  0.526632i 3.645911i 0.521380i 3.663166i 0.508627i 3.679670i 0.477869i \
-  3.666917i 0.456114i 3.645911i 0.447862i 3.584396i 0.447862i 3.586647i \
-  0.669167i 3.537884i 0.669167i 3.536384i 0.519130i 3.535634i 0.411103i \
-  3.558890i 0.411103i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \
-  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \
-  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \
-  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \
-  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \
-  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \
-  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \
-  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline {} -fill $tkxox(color_title_fg) \
-  -width 0
-${title} create polygon 2.686422i 0.411103i 2.772693i 0.411103i 2.801200i \
-  0.411103i 2.822956i 0.425356i 2.839460i 0.434359i 2.852213i 0.450863i \
-  2.857464i 0.476369i 2.857464i 0.505626i 2.843211i 0.527382i 2.833458i \
-  0.540885i 2.816954i 0.554389i 2.775694i 0.568642i 2.714929i 0.570893i \
-  2.714179i 0.533383i 2.753188i 0.533383i 2.786197i 0.524381i 2.804201i \
-  0.507127i 2.807202i 0.484621i 2.794449i 0.462866i 2.773443i 0.454614i \
-  2.711928i 0.454614i 2.714179i 0.669167i 2.664666i 0.669167i 2.664666i \
-  0.513878i 2.664666i 0.411103i 2.686422i 0.411103i -outline $tkxox(color_title_fg) -fill \
+${title} create polygon 4.744500i 0.380250i 4.953000i 0.652500i 5.097750i 0.652500i \
+  4.875000i 0.380250i 5.067750i 0.124500i 4.933500i 0.124500i -outline $tkxox(color_title_logo_fg) -fill \
   {}
-${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \
-  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \
-  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \
-  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \
-  1.332333i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 1.332333i 0.669167i 1.376594i 0.669167i 1.376594i \
-  0.477119i 1.440360i 0.669167i 1.492873i 0.669167i 1.557389i 0.474119i \
-  1.558140i 0.669167i 1.610653i 0.669167i 1.610653i 0.411103i 1.532633i \
-  0.411103i 1.469617i 0.593398i 1.407352i 0.411103i 1.333083i 0.411103i \
-  1.332333i 0.669167i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \
-  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \
-  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \
-  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \
+${title} create polygon 5.124750i 0.407250i 5.333250i 0.407250i 5.333250i 0.489000i \
+  5.124750i 0.489000i -outline {} -fill $tkxox(color_title_logo_fg) -width 0
+${title} create line 5.124750i 0.407250i 5.333250i 0.407250i 5.333250i 0.489000i \
+  5.124750i 0.489000i 5.124750i 0.407250i -fill $tkxox(color_title_logo_fg)
+${title} create polygon 0.699750i 0.516000i 0.762750i 0.411000i 0.819000i 0.411000i \
+  0.725250i 0.547500i 0.725250i 0.669000i 0.669000i 0.669000i 0.669000i 0.546750i \
+  0.585000i 0.411000i 0.637500i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 0.699750i 0.516000i 0.762750i 0.411000i 0.819000i 0.411000i \
+  0.725250i 0.547500i 0.725250i 0.669000i 0.669000i 0.669000i 0.669000i 0.546750i \
+  0.585000i 0.411000i 0.637500i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 0.834750i 0.411000i 0.834750i 0.453000i 0.915000i 0.453000i \
+  0.915000i 0.669000i 0.972000i 0.669000i 0.970500i 0.452250i 1.050750i 0.452250i \
+  1.050750i 0.411000i 0.834750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 0.834750i 0.411000i 0.834750i 0.453000i 0.915000i 0.453000i \
+  0.915000i 0.669000i 0.972000i 0.669000i 0.970500i 0.452250i 1.050750i 0.452250i \
+  1.050750i 0.411000i 0.834750i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 4.618500i 0.121500i 4.741500i 0.121500i 4.741500i 0.652500i \
+  4.618500i 0.652500i -outline {} -fill $tkxox(color_title_logo_fg) -width 0
+${title} create line 4.618500i 0.121500i 4.741500i 0.121500i 4.741500i 0.652500i \
+  4.618500i 0.652500i 4.618500i 0.121500i -fill $tkxox(color_title_logo_fg)
+${title} create polygon 6.240000i 0.213000i 6.494250i 0.213000i 6.282750i 0.652500i \
+  6.426750i 0.652500i 6.622500i 0.217500i 6.622500i 0.121500i 6.240000i 0.121500i \
+  -outline {} -fill $tkxox(color_title_logo_fg) -width 0
+${title} create polygon 6.240000i 0.213000i 6.494250i 0.213000i 6.282750i 0.652500i \
+  6.426750i 0.652500i 6.622500i 0.217500i 6.622500i 0.121500i 6.240000i 0.121500i \
+  -outline $tkxox(color_title_logo_fg) -fill {}
+${title} create polygon 5.364750i 0.214500i 5.619000i 0.214500i 5.407500i 0.652500i \
+  5.551500i 0.652500i 5.749500i 0.219000i 5.748000i 0.121500i 5.364750i 0.121500i \
+  -outline {} -fill $tkxox(color_title_logo_fg) -width 0
+${title} create polygon 5.364750i 0.214500i 5.619000i 0.214500i 5.407500i 0.652500i \
+  5.551500i 0.652500i 5.749500i 0.219000i 5.748000i 0.121500i 5.364750i 0.121500i \
+  -outline $tkxox(color_title_logo_fg) -fill {}
+${title} create polygon 3.336000i 0.669000i 3.518250i 0.669000i 3.519000i 0.624000i \
+  3.392250i 0.624750i 3.393000i 0.555750i 3.506250i 0.555750i 3.507000i 0.519000i \
+  3.391500i 0.519000i 3.392250i 0.453000i 3.516750i 0.452250i 3.516750i 0.411000i \
+  3.336000i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 3.336000i 0.669000i 3.518250i 0.669000i 3.519000i 0.624000i \
+  3.392250i 0.624750i 3.393000i 0.555750i 3.506250i 0.555750i 3.507000i 0.519000i \
+  3.391500i 0.519000i 3.392250i 0.453000i 3.516750i 0.452250i 3.516750i 0.411000i \
+  3.336000i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 3.558000i 0.411000i 3.644250i 0.411000i 3.672750i 0.411000i \
+  3.694500i 0.418500i 3.711000i 0.427500i 3.723750i 0.444000i 3.729000i 0.469500i \
+  3.729000i 0.498750i 3.714750i 0.520500i 3.704250i 0.529500i 3.688500i 0.543000i \
+  3.657750i 0.553500i 3.730500i 0.669000i 3.664500i 0.669000i 3.588750i 0.537000i \
+  3.585750i 0.526500i 3.624750i 0.526500i 3.645000i 0.521250i 3.662250i 0.508500i \
+  3.678750i 0.477750i 3.666000i 0.456000i 3.645000i 0.447750i 3.583500i 0.447750i \
+  3.585750i 0.669000i 3.537000i 0.669000i 3.535500i 0.519000i 3.534750i 0.411000i \
   -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 1.067517i 0.669167i 1.126032i 0.669167i 1.126032i \
-  0.555889i 1.249062i 0.556639i 1.249062i 0.669167i 1.309077i 0.669167i \
-  1.309077i 0.411103i 1.245311i 0.411103i 1.246062i 0.518380i 1.126032i \
-  0.518380i 1.126782i 0.411103i 1.066767i 0.411103i 1.067517i 0.669167i \
+${title} create polygon 3.558000i 0.411000i 3.644250i 0.411000i 3.672750i 0.411000i \
+  3.694500i 0.418500i 3.711000i 0.427500i 3.723750i 0.444000i 3.729000i 0.469500i \
+  3.729000i 0.498750i 3.714750i 0.520500i 3.704250i 0.529500i 3.688500i 0.543000i \
+  3.657750i 0.553500i 3.730500i 0.669000i 3.664500i 0.669000i 3.588750i 0.537000i \
+  3.585750i 0.526500i 3.624750i 0.526500i 3.645000i 0.521250i 3.662250i 0.508500i \
+  3.678750i 0.477750i 3.666000i 0.456000i 3.645000i 0.447750i 3.583500i 0.447750i \
+  3.585750i 0.669000i 3.537000i 0.669000i 3.535500i 0.519000i 3.534750i 0.411000i \
   -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \
-  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \
-  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \
-  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \
-  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \
-  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \
-  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \
-  0.410353i 0.250563i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 0.250563i 0.411103i 0.272318i 0.421605i 0.288822i \
-  0.430608i 0.301575i 0.447112i 0.306827i 0.472618i 0.306827i 0.501875i \
-  0.292573i 0.523631i 0.282071i 0.532633i 0.266317i 0.546137i 0.235559i \
-  0.556639i 0.308327i 0.669167i 0.242311i 0.669167i 0.166542i 0.540135i \
-  0.163541i 0.529632i 0.202551i 0.529632i 0.222806i 0.524381i 0.240060i \
-  0.511628i 0.256564i 0.480870i 0.243811i 0.459115i 0.222806i 0.450863i \
-  0.161290i 0.450863i 0.163541i 0.669167i 0.112528i 0.669167i 0.112528i \
-  0.410353i 0.250563i 0.411103i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \
-  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \
-  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \
-  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \
-  0.325581i 0.411103i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 0.327832i 0.411103i 0.327832i 0.669167i 0.378845i \
-  0.669167i 0.380345i 0.551388i 0.508627i 0.551388i 0.509377i 0.669167i \
-  0.569392i 0.669167i 0.569392i 0.411103i 0.506377i 0.411103i 0.506377i \
-  0.520630i 0.379595i 0.520630i 0.379595i 0.411103i 0.321830i 0.411103i \
-  0.325581i 0.411103i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \
-  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \
-  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \
-  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \
-  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \
-  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \
-  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \
-  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \
-  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \
-  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \
-  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \
-  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \
-  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \
-  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \
-  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \
-  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \
-  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \
-  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \
-  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \
-  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \
-  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \
-  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \
-  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \
-  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \
-  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \
-  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \
-  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \
-  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \
-  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \
-  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \
-  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \
-  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \
-  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \
-  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \
-  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \
-  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \
-  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \
-  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \
-  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \
-  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \
-  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \
-  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \
-  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \
-  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \
-  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \
-  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \
-  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \
-  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \
-  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \
-  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \
-  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \
-  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \
-  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \
-  0.414104i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 2.011253i 0.414104i 2.001500i 0.411853i 1.996249i \
-  0.410353i 1.993998i 0.410353i 1.991748i 0.409602i 1.984996i 0.409602i \
-  1.972243i 0.408852i 1.961740i 0.408852i 1.954239i 0.408852i 1.950488i \
-  0.408102i 1.948237i 0.408102i 1.946737i 0.407352i 1.942236i 0.408102i \
-  1.933983i 0.409602i 1.921230i 0.413353i 1.908477i 0.418605i 1.898725i \
-  0.422356i 1.893473i 0.424606i 1.890473i 0.425356i 1.887472i 0.426857i \
-  1.882221i 0.430608i 1.873968i 0.436609i 1.862716i 0.447112i 1.852963i \
-  0.458365i 1.846212i 0.466617i 1.843211i 0.471118i 1.841710i 0.473368i \
-  1.840210i 0.476369i 1.838710i 0.481620i 1.834959i 0.491373i 1.830458i \
-  0.506377i 1.827457i 0.522131i 1.825956i 0.533383i 1.825206i 0.540135i \
-  1.825956i 0.543886i 1.825956i 0.547637i 1.826707i 0.553638i 1.828207i \
-  0.564141i 1.830458i 0.578395i 1.834209i 0.591148i 1.836459i 0.598650i \
-  1.838710i 0.601650i 1.839460i 0.602401i 1.840210i 0.603151i 1.843211i \
-  0.606152i 1.847712i 0.611403i 1.855964i 0.620405i 1.864966i 0.628657i \
-  1.871718i 0.634659i 1.876219i 0.637659i 1.879220i 0.639160i 1.881470i \
-  0.640660i 1.885971i 0.643661i 1.893473i 0.648162i 1.903976i 0.653413i \
-  1.915979i 0.659415i 1.921980i 0.661665i 1.923481i 0.661665i 1.924981i \
-  0.661665i 1.930983i 0.662416i 1.942986i 0.664666i 1.955739i 0.666167i \
-  1.962491i 0.666167i 1.964741i 0.666167i 1.967742i 0.666167i 1.974494i \
-  0.666167i 1.988747i 0.665416i 2.000000i 0.664666i 2.008252i 0.663916i \
-  2.013503i 0.663166i 2.016504i 0.663166i 2.019505i 0.663166i 2.024006i \
-  0.662416i 2.030758i 0.660915i 2.039010i 0.658665i 2.044261i 0.656414i \
-  2.048012i 0.654914i 2.049512i 0.653413i 2.049512i 0.652663i 2.049512i \
-  0.651913i 2.048762i 0.650413i 2.049512i 0.648912i 2.050263i 0.646662i \
-  2.051013i 0.643661i 2.051763i 0.639910i 2.051763i 0.636159i 2.051763i \
-  0.634659i 2.052513i 0.633158i 2.052513i 0.631658i 2.051763i 0.630158i \
-  2.050263i 0.627907i 2.047262i 0.624906i 2.041260i 0.622656i 2.037509i \
-  0.622656i 2.035259i 0.623406i 2.030758i 0.624156i 2.021755i 0.624906i \
-  2.014254i 0.625656i 2.010503i 0.626407i 2.009752i 0.627157i 2.009002i \
-  0.627907i 2.004501i 0.627907i 1.994749i 0.628657i 1.983496i 0.628657i \
-  1.975994i 0.628657i 1.972243i 0.629407i 1.968492i 0.629407i 1.960990i \
-  0.628657i 1.948237i 0.626407i 1.936984i 0.623406i 1.930983i 0.621155i \
-  1.928732i 0.620405i 1.927232i 0.618905i 1.922731i 0.615904i 1.912978i \
-  0.609152i 1.903976i 0.601650i 1.898725i 0.597149i 1.896474i 0.594899i \
-  1.894974i 0.592648i 1.891223i 0.587397i 1.885221i 0.578395i 1.880720i \
-  0.568642i 1.879220i 0.564141i 1.879220i 0.562641i 1.879220i 0.560390i \
-  1.878470i 0.555139i 1.877719i 0.545386i 1.877719i 0.534884i 1.877719i \
-  0.528882i 1.877719i 0.526632i 1.877719i 0.524381i 1.878470i 0.518380i \
-  1.881470i 0.508627i 1.885221i 0.498875i 1.886722i 0.494374i 1.886722i \
-  0.492123i 1.887472i 0.490623i 1.891223i 0.486122i 1.898725i 0.478620i \
-  1.908477i 0.471118i 1.914479i 0.467367i 1.917479i 0.465866i 1.920480i \
-  0.465116i 1.927982i 0.462116i 1.939235i 0.457614i 1.950488i 0.453863i \
-  1.955739i 0.452363i 1.957989i 0.451613i 1.959490i 0.451613i 1.965491i \
-  0.450863i 1.975244i 0.450113i 1.984996i 0.450113i 1.990248i 0.450113i \
-  1.991748i 0.450863i 1.993248i 0.450863i 1.998500i 0.452363i 2.007502i \
-  0.453863i 2.017254i 0.456114i 2.022506i 0.458365i 2.024756i 0.459865i \
-  2.027007i 0.461365i 2.031508i 0.462866i 2.039010i 0.462866i 2.044261i \
-  0.461365i 2.048012i 0.459865i 2.050263i 0.458365i 2.051763i 0.456864i \
-  2.053263i 0.456114i 2.054764i 0.453863i 2.055514i 0.450863i 2.056264i \
-  0.446362i 2.055514i 0.441860i 2.053263i 0.438860i 2.051763i 0.436609i \
-  2.050263i 0.435109i 2.048012i 0.434359i 2.045761i 0.432108i 2.042011i \
-  0.429107i 2.036759i 0.425356i 2.030008i 0.420855i 2.026257i 0.418605i \
-  2.025506i 0.418605i 2.024756i 0.417854i 2.020255i 0.416354i 2.011253i \
-  0.414104i -outline $tkxox(color_title_fg) -fill {}
-${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \
-  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \
-  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \
-  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \
-  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \
-  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \
-  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \
-  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \
-  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \
-  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \
-  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \
-  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \
-  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \
-  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \
-  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \
-  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \
-  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \
-  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \
-  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \
-  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \
-  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \
-  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \
-  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \
-  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \
-  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \
-  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \
-  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \
-  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \
-  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \
-  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \
-  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \
-  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \
-  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \
-  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \
-  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \
-  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \
-  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \
-  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \
-  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \
-  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \
-  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \
-  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \
-  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \
-  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \
-  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \
-  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \
-  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \
-  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \
-  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \
-  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \
-  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \
-  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \
-  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \
-  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \
-  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \
-  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \
-  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \
-  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \
-  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \
-  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \
-  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \
-  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \
-  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \
-  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \
-  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline {} \
-  -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 3.246812i 0.408102i 3.237059i 0.408102i 3.231808i \
-  0.408852i 3.230308i 0.408852i 3.228057i 0.409602i 3.224306i 0.410353i \
-  3.216054i 0.411853i 3.207802i 0.413353i 3.204801i 0.414104i 3.204051i \
-  0.414104i 3.201800i 0.414854i 3.195049i 0.417854i 3.189047i 0.421605i \
-  3.186047i 0.423106i 3.185296i 0.424606i 3.183046i 0.426857i 3.177794i \
-  0.432108i 3.172543i 0.438110i 3.170293i 0.441110i 3.169542i 0.441860i \
-  3.168042i 0.444861i 3.165041i 0.452363i 3.163541i 0.460615i 3.162791i \
-  0.464366i 3.163541i 0.465866i 3.163541i 0.469617i 3.164291i 0.477869i \
-  3.165041i 0.485371i 3.165041i 0.488372i 3.164291i 0.489122i 3.165041i \
-  0.492123i 3.168042i 0.499625i 3.171793i 0.506377i 3.174794i 0.510878i \
-  3.177044i 0.513128i 3.178545i 0.514629i 3.182296i 0.518380i 3.187547i \
-  0.524381i 3.193548i 0.530383i 3.195799i 0.531883i 3.196549i 0.531883i \
-  3.198800i 0.533383i 3.204051i 0.537134i 3.208552i 0.540885i 3.210053i \
-  0.541635i 3.212303i 0.543136i 3.217554i 0.547637i 3.223556i 0.552888i \
-  3.226557i 0.556639i 3.228807i 0.558140i 3.230308i 0.560390i 3.234059i \
-  0.564141i 3.240060i 0.569392i 3.246062i 0.574644i 3.248312i 0.575394i \
-  3.249062i 0.575394i 3.250563i 0.576144i 3.254314i 0.580645i 3.257314i \
-  0.585146i 3.258815i 0.587397i 3.259565i 0.588147i 3.260315i 0.590398i \
-  3.261065i 0.596399i 3.261065i 0.602401i 3.260315i 0.605401i 3.260315i \
-  0.606902i 3.259565i 0.609902i 3.256564i 0.615154i 3.253563i 0.618905i \
-  3.252063i 0.620405i 3.251313i 0.620405i 3.250563i 0.621155i 3.248312i \
-  0.621905i 3.242311i 0.623406i 3.235559i 0.624906i 3.231058i 0.624906i \
-  3.228807i 0.624906i 3.226557i 0.624906i 3.221305i 0.624906i 3.213053i \
-  0.624906i 3.204051i 0.624156i 3.200300i 0.623406i 3.198800i 0.623406i \
-  3.195799i 0.622656i 3.187547i 0.621155i 3.180045i 0.619655i 3.177044i \
-  0.617404i 3.175544i 0.616654i 3.173293i 0.615154i 3.167292i 0.615904i \
-  3.163541i 0.617404i 3.161290i 0.618905i 3.159040i 0.619655i 3.158290i \
-  0.620405i 3.157539i 0.621905i 3.156039i 0.623406i 3.155289i 0.625656i \
-  3.154539i 0.630158i 3.155289i 0.636909i 3.156789i 0.640660i 3.158290i \
-  0.642911i 3.161290i 0.646662i 3.166542i 0.653413i 3.172543i 0.658665i \
-  3.175544i 0.660915i 3.176294i 0.661665i 3.180045i 0.663166i 3.189797i \
-  0.666167i 3.199550i 0.668417i 3.205551i 0.669167i 3.208552i 0.669167i \
-  3.211553i 0.668417i 3.217554i 0.669167i 3.228807i 0.669167i 3.239310i \
-  0.669167i 3.245311i 0.669167i 3.246812i 0.669167i 3.248312i 0.669167i \
-  3.253563i 0.669167i 3.264066i 0.667667i 3.274569i 0.666167i 3.279820i \
-  0.665416i 3.282071i 0.665416i 3.284321i 0.665416i 3.289572i 0.663166i \
-  3.297824i 0.659415i 3.305326i 0.654164i 3.309077i 0.651163i 3.309827i \
-  0.649662i 3.310578i 0.647412i 3.312828i 0.643661i 3.317329i 0.636159i \
-  3.320330i 0.628657i 3.321830i 0.624156i 3.322581i 0.622656i 3.322581i \
-  0.621155i 3.323331i 0.616654i 3.323331i 0.607652i 3.323331i 0.598650i \
-  3.322581i 0.594149i 3.322581i 0.591898i 3.321830i 0.589647i 3.320330i \
-  0.585146i 3.317329i 0.576894i 3.312828i 0.569392i 3.310578i 0.566392i \
-  3.308327i 0.564891i 3.306827i 0.564141i 3.303826i 0.561140i 3.298575i \
-  0.555889i 3.293323i 0.550638i 3.291823i 0.549137i 3.291073i 0.549137i \
-  3.289572i 0.548387i 3.284321i 0.543136i 3.279070i 0.538635i 3.276819i \
-  0.535634i 3.275319i 0.534134i 3.274569i 0.532633i 3.271568i 0.529632i \
-  3.264816i 0.524381i 3.258065i 0.519130i 3.253563i 0.516129i 3.251313i \
-  0.515379i 3.249062i 0.514629i 3.245311i 0.511628i 3.238560i 0.506377i \
-  3.231808i 0.499625i 3.228807i 0.496624i 3.228057i 0.495124i 3.225806i \
-  0.492123i 3.222806i 0.485371i 3.221305i 0.479370i 3.220555i 0.476369i \
-  3.220555i 0.474869i 3.221305i 0.473368i 3.222056i 0.470368i 3.223556i \
-  0.465866i 3.225806i 0.461365i 3.227307i 0.459865i 3.228057i 0.459115i \
-  3.228057i 0.458365i 3.231058i 0.456864i 3.236309i 0.454614i 3.243061i \
-  0.452363i 3.247562i 0.451613i 3.249812i 0.451613i 3.252063i 0.451613i \
-  3.257314i 0.450863i 3.264066i 0.450863i 3.270818i 0.451613i 3.273068i \
-  0.451613i 3.273068i 0.452363i 3.275319i 0.453113i 3.281320i 0.454614i \
-  3.288072i 0.456114i 3.291073i 0.457614i 3.292573i 0.458365i 3.295574i \
-  0.459115i 3.301575i 0.458365i 3.306077i 0.456114i 3.309077i 0.453863i \
-  3.309827i 0.452363i 3.310578i 0.450113i 3.312078i 0.447112i 3.314329i \
-  0.442611i 3.315079i 0.438860i 3.315079i 0.436609i 3.315829i 0.435109i \
-  3.315829i 0.434359i 3.315829i 0.433608i 3.315079i 0.432108i 3.313578i \
-  0.429857i 3.310578i 0.426107i 3.305326i 0.421605i 3.301575i 0.419355i \
-  3.300075i 0.417854i 3.297824i 0.417104i 3.292573i 0.414854i 3.283571i \
-  0.411853i 3.273818i 0.409602i 3.267817i 0.408852i 3.265566i 0.408852i \
-  3.262566i 0.408852i 3.257314i 0.408102i 3.246812i 0.408102i -outline $tkxox(color_title_fg) \
-  -fill {}
-${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \
-  {} -fill $tkxox(color_title_fg) -width 0
-${title} create oval 2.869467i 0.405101i 3.138035i 0.673668i -outline \
-  $tkxox(color_title_fg) -fill {}
-${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \
-  {} -fill $tkxox(color_title_fg) -width 0
-${title} create oval 2.073518i 0.406602i 2.342086i 0.675169i -outline \
-  $tkxox(color_title_fg) -fill {}
-${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \
-  {} -fill $tkxox(color_title_logo_fg) -width 0
-${title} create oval 5.784696i 0.108027i 6.210803i 0.664666i -outline \
-  $tkxox(color_title_logo_fg) -fill {}
-${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \
-  {} -fill $tkxox(color_title_bg) -width 0
-${title} create oval 2.909977i 0.448612i 3.091523i 0.630158i -outline \
-  $tkxox(color_title_fg) -fill {}
-${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \
-  {} -fill $tkxox(color_title_bg) -width 0
-${title} create oval 2.114029i 0.450113i 2.295574i 0.631658i -outline \
-  $tkxox(color_title_fg) -fill {}
-${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \
-  {} -fill $tkxox(color_title_bg) -width 0
-${title} create oval 5.891223i 0.195799i 6.096774i 0.587397i -outline \
-  $tkxox(color_title_logo_fg) -fill {}
-${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \
-  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \
-  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \
-  0.121530i -outline {} -fill $tkxox(color_title_logo_fg) -width 0
-${title} create polygon 4.126032i 0.121530i 4.126032i 0.202551i 4.297074i \
-  0.202551i 4.297074i 0.652663i 4.418605i 0.652663i 4.418605i 0.205551i \
-  4.583646i 0.205551i 4.583646i 0.121530i 4.126032i 0.121530i 4.126032i \
-  0.121530i -outline $tkxox(color_title_logo_fg) -fill {}
-${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \
-  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \
-  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \
-  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \
-  2.366092i 0.669167i -outline {} -fill $tkxox(color_title_fg) -width 0
-${title} create polygon 2.366092i 0.669167i 2.410353i 0.669167i 2.410353i \
-  0.477869i 2.474119i 0.669167i 2.526632i 0.669167i 2.591148i 0.474869i \
-  2.591898i 0.669167i 2.644411i 0.669167i 2.644411i 0.411103i 2.566392i \
-  0.411103i 2.503376i 0.594149i 2.441110i 0.411103i 2.366842i 0.411103i \
-  2.366092i 0.669167i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 2.685750i 0.411000i 2.772000i 0.411000i 2.800500i 0.411000i \
+  2.822250i 0.425250i 2.838750i 0.434250i 2.851500i 0.450750i 2.856750i 0.476250i \
+  2.856750i 0.505500i 2.842500i 0.527250i 2.832750i 0.540750i 2.816250i 0.554250i \
+  2.775000i 0.568500i 2.714250i 0.570750i 2.713500i 0.533250i 2.752500i 0.533250i \
+  2.785500i 0.524250i 2.803500i 0.507000i 2.806500i 0.484500i 2.793750i 0.462750i \
+  2.772750i 0.454500i 2.711250i 0.454500i 2.713500i 0.669000i 2.664000i 0.669000i \
+  2.664000i 0.513750i 2.664000i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 2.685750i 0.411000i 2.772000i 0.411000i 2.800500i 0.411000i \
+  2.822250i 0.425250i 2.838750i 0.434250i 2.851500i 0.450750i 2.856750i 0.476250i \
+  2.856750i 0.505500i 2.842500i 0.527250i 2.832750i 0.540750i 2.816250i 0.554250i \
+  2.775000i 0.568500i 2.714250i 0.570750i 2.713500i 0.533250i 2.752500i 0.533250i \
+  2.785500i 0.524250i 2.803500i 0.507000i 2.806500i 0.484500i 2.793750i 0.462750i \
+  2.772750i 0.454500i 2.711250i 0.454500i 2.713500i 0.669000i 2.664000i 0.669000i \
+  2.664000i 0.513750i 2.664000i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 1.332000i 0.669000i 1.376250i 0.669000i 1.376250i 0.477000i \
+  1.440000i 0.669000i 1.492500i 0.669000i 1.557000i 0.474000i 1.557750i 0.669000i \
+  1.610250i 0.669000i 1.610250i 0.411000i 1.532250i 0.411000i 1.469250i 0.593250i \
+  1.407000i 0.411000i 1.332750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 1.332000i 0.669000i 1.376250i 0.669000i 1.376250i 0.477000i \
+  1.440000i 0.669000i 1.492500i 0.669000i 1.557000i 0.474000i 1.557750i 0.669000i \
+  1.610250i 0.669000i 1.610250i 0.411000i 1.532250i 0.411000i 1.469250i 0.593250i \
+  1.407000i 0.411000i 1.332750i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 1.067250i 0.669000i 1.125750i 0.669000i 1.125750i 0.555750i \
+  1.248750i 0.556500i 1.248750i 0.669000i 1.308750i 0.669000i 1.308750i 0.411000i \
+  1.245000i 0.411000i 1.245750i 0.518250i 1.125750i 0.518250i 1.126500i 0.411000i \
+  1.066500i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 1.067250i 0.669000i 1.125750i 0.669000i 1.125750i 0.555750i \
+  1.248750i 0.556500i 1.248750i 0.669000i 1.308750i 0.669000i 1.308750i 0.411000i \
+  1.245000i 0.411000i 1.245750i 0.518250i 1.125750i 0.518250i 1.126500i 0.411000i \
+  1.066500i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 0.250500i 0.411000i 0.272250i 0.421500i 0.288750i 0.430500i \
+  0.301500i 0.447000i 0.306750i 0.472500i 0.306750i 0.501750i 0.292500i 0.523500i \
+  0.282000i 0.532500i 0.266250i 0.546000i 0.235500i 0.556500i 0.308250i 0.669000i \
+  0.242250i 0.669000i 0.166500i 0.540000i 0.163500i 0.529500i 0.202500i 0.529500i \
+  0.222750i 0.524250i 0.240000i 0.511500i 0.256500i 0.480750i 0.243750i 0.459000i \
+  0.222750i 0.450750i 0.161250i 0.450750i 0.163500i 0.669000i 0.112500i 0.669000i \
+  0.112500i 0.410250i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 0.250500i 0.411000i 0.272250i 0.421500i 0.288750i 0.430500i \
+  0.301500i 0.447000i 0.306750i 0.472500i 0.306750i 0.501750i 0.292500i 0.523500i \
+  0.282000i 0.532500i 0.266250i 0.546000i 0.235500i 0.556500i 0.308250i 0.669000i \
+  0.242250i 0.669000i 0.166500i 0.540000i 0.163500i 0.529500i 0.202500i 0.529500i \
+  0.222750i 0.524250i 0.240000i 0.511500i 0.256500i 0.480750i 0.243750i 0.459000i \
+  0.222750i 0.450750i 0.161250i 0.450750i 0.163500i 0.669000i 0.112500i 0.669000i \
+  0.112500i 0.410250i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 0.327750i 0.411000i 0.327750i 0.669000i 0.378750i 0.669000i \
+  0.380250i 0.551250i 0.508500i 0.551250i 0.509250i 0.669000i 0.569250i 0.669000i \
+  0.569250i 0.411000i 0.506250i 0.411000i 0.506250i 0.520500i 0.379500i 0.520500i \
+  0.379500i 0.411000i 0.321750i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 0.327750i 0.411000i 0.327750i 0.669000i 0.378750i 0.669000i \
+  0.380250i 0.551250i 0.508500i 0.551250i 0.509250i 0.669000i 0.569250i 0.669000i \
+  0.569250i 0.411000i 0.506250i 0.411000i 0.506250i 0.520500i 0.379500i 0.520500i \
+  0.379500i 0.411000i 0.321750i 0.411000i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 2.010750i 0.414000i 2.001000i 0.411750i 1.995750i 0.410250i \
+  1.993500i 0.410250i 1.991250i 0.409500i 1.984500i 0.409500i 1.971750i 0.408750i \
+  1.961250i 0.408750i 1.953750i 0.408750i 1.950000i 0.408000i 1.947750i 0.408000i \
+  1.946250i 0.407250i 1.941750i 0.408000i 1.933500i 0.409500i 1.920750i 0.413250i \
+  1.908000i 0.418500i 1.898250i 0.422250i 1.893000i 0.424500i 1.890000i 0.425250i \
+  1.887000i 0.426750i 1.881750i 0.430500i 1.873500i 0.436500i 1.862250i 0.447000i \
+  1.852500i 0.458250i 1.845750i 0.466500i 1.842750i 0.471000i 1.841250i 0.473250i \
+  1.839750i 0.476250i 1.838250i 0.481500i 1.834500i 0.491250i 1.830000i 0.506250i \
+  1.827000i 0.522000i 1.825500i 0.533250i 1.824750i 0.540000i 1.825500i 0.543750i \
+  1.825500i 0.547500i 1.826250i 0.553500i 1.827750i 0.564000i 1.830000i 0.578250i \
+  1.833750i 0.591000i 1.836000i 0.598500i 1.838250i 0.601500i 1.839000i 0.602250i \
+  1.839750i 0.603000i 1.842750i 0.606000i 1.847250i 0.611250i 1.855500i 0.620250i \
+  1.864500i 0.628500i 1.871250i 0.634500i 1.875750i 0.637500i 1.878750i 0.639000i \
+  1.881000i 0.640500i 1.885500i 0.643500i 1.893000i 0.648000i 1.903500i 0.653250i \
+  1.915500i 0.659250i 1.921500i 0.661500i 1.923000i 0.661500i 1.924500i 0.661500i \
+  1.930500i 0.662250i 1.942500i 0.664500i 1.955250i 0.666000i 1.962000i 0.666000i \
+  1.964250i 0.666000i 1.967250i 0.666000i 1.974000i 0.666000i 1.988250i 0.665250i \
+  1.999500i 0.664500i 2.007750i 0.663750i 2.013000i 0.663000i 2.016000i 0.663000i \
+  2.019000i 0.663000i 2.023500i 0.662250i 2.030250i 0.660750i 2.038500i 0.658500i \
+  2.043750i 0.656250i 2.047500i 0.654750i 2.049000i 0.653250i 2.049000i 0.652500i \
+  2.049000i 0.651750i 2.048250i 0.650250i 2.049000i 0.648750i 2.049750i 0.646500i \
+  2.050500i 0.643500i 2.051250i 0.639750i 2.051250i 0.636000i 2.051250i 0.634500i \
+  2.052000i 0.633000i 2.052000i 0.631500i 2.051250i 0.630000i 2.049750i 0.627750i \
+  2.046750i 0.624750i 2.040750i 0.622500i 2.037000i 0.622500i 2.034750i 0.623250i \
+  2.030250i 0.624000i 2.021250i 0.624750i 2.013750i 0.625500i 2.010000i 0.626250i \
+  2.009250i 0.627000i 2.008500i 0.627750i 2.004000i 0.627750i 1.994250i 0.628500i \
+  1.983000i 0.628500i 1.975500i 0.628500i 1.971750i 0.629250i 1.968000i 0.629250i \
+  1.960500i 0.628500i 1.947750i 0.626250i 1.936500i 0.623250i 1.930500i 0.621000i \
+  1.928250i 0.620250i 1.926750i 0.618750i 1.922250i 0.615750i 1.912500i 0.609000i \
+  1.903500i 0.601500i 1.898250i 0.597000i 1.896000i 0.594750i 1.894500i 0.592500i \
+  1.890750i 0.587250i 1.884750i 0.578250i 1.880250i 0.568500i 1.878750i 0.564000i \
+  1.878750i 0.562500i 1.878750i 0.560250i 1.878000i 0.555000i 1.877250i 0.545250i \
+  1.877250i 0.534750i 1.877250i 0.528750i 1.877250i 0.526500i 1.877250i 0.524250i \
+  1.878000i 0.518250i 1.881000i 0.508500i 1.884750i 0.498750i 1.886250i 0.494250i \
+  1.886250i 0.492000i 1.887000i 0.490500i 1.890750i 0.486000i 1.898250i 0.478500i \
+  1.908000i 0.471000i 1.914000i 0.467250i 1.917000i 0.465750i 1.920000i 0.465000i \
+  1.927500i 0.462000i 1.938750i 0.457500i 1.950000i 0.453750i 1.955250i 0.452250i \
+  1.957500i 0.451500i 1.959000i 0.451500i 1.965000i 0.450750i 1.974750i 0.450000i \
+  1.984500i 0.450000i 1.989750i 0.450000i 1.991250i 0.450750i 1.992750i 0.450750i \
+  1.998000i 0.452250i 2.007000i 0.453750i 2.016750i 0.456000i 2.022000i 0.458250i \
+  2.024250i 0.459750i 2.026500i 0.461250i 2.031000i 0.462750i 2.038500i 0.462750i \
+  2.043750i 0.461250i 2.047500i 0.459750i 2.049750i 0.458250i 2.051250i 0.456750i \
+  2.052750i 0.456000i 2.054250i 0.453750i 2.055000i 0.450750i 2.055750i 0.446250i \
+  2.055000i 0.441750i 2.052750i 0.438750i 2.051250i 0.436500i 2.049750i 0.435000i \
+  2.047500i 0.434250i 2.045250i 0.432000i 2.041500i 0.429000i 2.036250i 0.425250i \
+  2.029500i 0.420750i 2.025750i 0.418500i 2.025000i 0.418500i 2.024250i 0.417750i \
+  2.019750i 0.416250i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 2.010750i 0.414000i 2.001000i 0.411750i 1.995750i 0.410250i \
+  1.993500i 0.410250i 1.991250i 0.409500i 1.984500i 0.409500i 1.971750i 0.408750i \
+  1.961250i 0.408750i 1.953750i 0.408750i 1.950000i 0.408000i 1.947750i 0.408000i \
+  1.946250i 0.407250i 1.941750i 0.408000i 1.933500i 0.409500i 1.920750i 0.413250i \
+  1.908000i 0.418500i 1.898250i 0.422250i 1.893000i 0.424500i 1.890000i 0.425250i \
+  1.887000i 0.426750i 1.881750i 0.430500i 1.873500i 0.436500i 1.862250i 0.447000i \
+  1.852500i 0.458250i 1.845750i 0.466500i 1.842750i 0.471000i 1.841250i 0.473250i \
+  1.839750i 0.476250i 1.838250i 0.481500i 1.834500i 0.491250i 1.830000i 0.506250i \
+  1.827000i 0.522000i 1.825500i 0.533250i 1.824750i 0.540000i 1.825500i 0.543750i \
+  1.825500i 0.547500i 1.826250i 0.553500i 1.827750i 0.564000i 1.830000i 0.578250i \
+  1.833750i 0.591000i 1.836000i 0.598500i 1.838250i 0.601500i 1.839000i 0.602250i \
+  1.839750i 0.603000i 1.842750i 0.606000i 1.847250i 0.611250i 1.855500i 0.620250i \
+  1.864500i 0.628500i 1.871250i 0.634500i 1.875750i 0.637500i 1.878750i 0.639000i \
+  1.881000i 0.640500i 1.885500i 0.643500i 1.893000i 0.648000i 1.903500i 0.653250i \
+  1.915500i 0.659250i 1.921500i 0.661500i 1.923000i 0.661500i 1.924500i 0.661500i \
+  1.930500i 0.662250i 1.942500i 0.664500i 1.955250i 0.666000i 1.962000i 0.666000i \
+  1.964250i 0.666000i 1.967250i 0.666000i 1.974000i 0.666000i 1.988250i 0.665250i \
+  1.999500i 0.664500i 2.007750i 0.663750i 2.013000i 0.663000i 2.016000i 0.663000i \
+  2.019000i 0.663000i 2.023500i 0.662250i 2.030250i 0.660750i 2.038500i 0.658500i \
+  2.043750i 0.656250i 2.047500i 0.654750i 2.049000i 0.653250i 2.049000i 0.652500i \
+  2.049000i 0.651750i 2.048250i 0.650250i 2.049000i 0.648750i 2.049750i 0.646500i \
+  2.050500i 0.643500i 2.051250i 0.639750i 2.051250i 0.636000i 2.051250i 0.634500i \
+  2.052000i 0.633000i 2.052000i 0.631500i 2.051250i 0.630000i 2.049750i 0.627750i \
+  2.046750i 0.624750i 2.040750i 0.622500i 2.037000i 0.622500i 2.034750i 0.623250i \
+  2.030250i 0.624000i 2.021250i 0.624750i 2.013750i 0.625500i 2.010000i 0.626250i \
+  2.009250i 0.627000i 2.008500i 0.627750i 2.004000i 0.627750i 1.994250i 0.628500i \
+  1.983000i 0.628500i 1.975500i 0.628500i 1.971750i 0.629250i 1.968000i 0.629250i \
+  1.960500i 0.628500i 1.947750i 0.626250i 1.936500i 0.623250i 1.930500i 0.621000i \
+  1.928250i 0.620250i 1.926750i 0.618750i 1.922250i 0.615750i 1.912500i 0.609000i \
+  1.903500i 0.601500i 1.898250i 0.597000i 1.896000i 0.594750i 1.894500i 0.592500i \
+  1.890750i 0.587250i 1.884750i 0.578250i 1.880250i 0.568500i 1.878750i 0.564000i \
+  1.878750i 0.562500i 1.878750i 0.560250i 1.878000i 0.555000i 1.877250i 0.545250i \
+  1.877250i 0.534750i 1.877250i 0.528750i 1.877250i 0.526500i 1.877250i 0.524250i \
+  1.878000i 0.518250i 1.881000i 0.508500i 1.884750i 0.498750i 1.886250i 0.494250i \
+  1.886250i 0.492000i 1.887000i 0.490500i 1.890750i 0.486000i 1.898250i 0.478500i \
+  1.908000i 0.471000i 1.914000i 0.467250i 1.917000i 0.465750i 1.920000i 0.465000i \
+  1.927500i 0.462000i 1.938750i 0.457500i 1.950000i 0.453750i 1.955250i 0.452250i \
+  1.957500i 0.451500i 1.959000i 0.451500i 1.965000i 0.450750i 1.974750i 0.450000i \
+  1.984500i 0.450000i 1.989750i 0.450000i 1.991250i 0.450750i 1.992750i 0.450750i \
+  1.998000i 0.452250i 2.007000i 0.453750i 2.016750i 0.456000i 2.022000i 0.458250i \
+  2.024250i 0.459750i 2.026500i 0.461250i 2.031000i 0.462750i 2.038500i 0.462750i \
+  2.043750i 0.461250i 2.047500i 0.459750i 2.049750i 0.458250i 2.051250i 0.456750i \
+  2.052750i 0.456000i 2.054250i 0.453750i 2.055000i 0.450750i 2.055750i 0.446250i \
+  2.055000i 0.441750i 2.052750i 0.438750i 2.051250i 0.436500i 2.049750i 0.435000i \
+  2.047500i 0.434250i 2.045250i 0.432000i 2.041500i 0.429000i 2.036250i 0.425250i \
+  2.029500i 0.420750i 2.025750i 0.418500i 2.025000i 0.418500i 2.024250i 0.417750i \
+  2.019750i 0.416250i -outline $tkxox(color_title_fg) -fill {}
+${title} create polygon 3.246000i 0.408000i 3.236250i 0.408000i 3.231000i 0.408750i \
+  3.229500i 0.408750i 3.227250i 0.409500i 3.223500i 0.410250i 3.215250i 0.411750i \
+  3.207000i 0.413250i 3.204000i 0.414000i 3.203250i 0.414000i 3.201000i 0.414750i \
+  3.194250i 0.417750i 3.188250i 0.421500i 3.185250i 0.423000i 3.184500i 0.424500i \
+  3.182250i 0.426750i 3.177000i 0.432000i 3.171750i 0.438000i 3.169500i 0.441000i \
+  3.168750i 0.441750i 3.167250i 0.444750i 3.164250i 0.452250i 3.162750i 0.460500i \
+  3.162000i 0.464250i 3.162750i 0.465750i 3.162750i 0.469500i 3.163500i 0.477750i \
+  3.164250i 0.485250i 3.164250i 0.488250i 3.163500i 0.489000i 3.164250i 0.492000i \
+  3.167250i 0.499500i 3.171000i 0.506250i 3.174000i 0.510750i 3.176250i 0.513000i \
+  3.177750i 0.514500i 3.181500i 0.518250i 3.186750i 0.524250i 3.192750i 0.530250i \
+  3.195000i 0.531750i 3.195750i 0.531750i 3.198000i 0.533250i 3.203250i 0.537000i \
+  3.207750i 0.540750i 3.209250i 0.541500i 3.211500i 0.543000i 3.216750i 0.547500i \
+  3.222750i 0.552750i 3.225750i 0.556500i 3.228000i 0.558000i 3.229500i 0.560250i \
+  3.233250i 0.564000i 3.239250i 0.569250i 3.245250i 0.574500i 3.247500i 0.575250i \
+  3.248250i 0.575250i 3.249750i 0.576000i 3.253500i 0.580500i 3.256500i 0.585000i \
+  3.258000i 0.587250i 3.258750i 0.588000i 3.259500i 0.590250i 3.260250i 0.596250i \
+  3.260250i 0.602250i 3.259500i 0.605250i 3.259500i 0.606750i 3.258750i 0.609750i \
+  3.255750i 0.615000i 3.252750i 0.618750i 3.251250i 0.620250i 3.250500i 0.620250i \
+  3.249750i 0.621000i 3.247500i 0.621750i 3.241500i 0.623250i 3.234750i 0.624750i \
+  3.230250i 0.624750i 3.228000i 0.624750i 3.225750i 0.624750i 3.220500i 0.624750i \
+  3.212250i 0.624750i 3.203250i 0.624000i 3.199500i 0.623250i 3.198000i 0.623250i \
+  3.195000i 0.622500i 3.186750i 0.621000i 3.179250i 0.619500i 3.176250i 0.617250i \
+  3.174750i 0.616500i 3.172500i 0.615000i 3.166500i 0.615750i 3.162750i 0.617250i \
+  3.160500i 0.618750i 3.158250i 0.619500i 3.157500i 0.620250i 3.156750i 0.621750i \
+  3.155250i 0.623250i 3.154500i 0.625500i 3.153750i 0.630000i 3.154500i 0.636750i \
+  3.156000i 0.640500i 3.157500i 0.642750i 3.160500i 0.646500i 3.165750i 0.653250i \
+  3.171750i 0.658500i 3.174750i 0.660750i 3.175500i 0.661500i 3.179250i 0.663000i \
+  3.189000i 0.666000i 3.198750i 0.668250i 3.204750i 0.669000i 3.207750i 0.669000i \
+  3.210750i 0.668250i 3.216750i 0.669000i 3.228000i 0.669000i 3.238500i 0.669000i \
+  3.244500i 0.669000i 3.246000i 0.669000i 3.247500i 0.669000i 3.252750i 0.669000i \
+  3.263250i 0.667500i 3.273750i 0.666000i 3.279000i 0.665250i 3.281250i 0.665250i \
+  3.283500i 0.665250i 3.288750i 0.663000i 3.297000i 0.659250i 3.304500i 0.654000i \
+  3.308250i 0.651000i 3.309000i 0.649500i 3.309750i 0.647250i 3.312000i 0.643500i \
+  3.316500i 0.636000i 3.319500i 0.628500i 3.321000i 0.624000i 3.321750i 0.622500i \
+  3.321750i 0.621000i 3.322500i 0.616500i 3.322500i 0.607500i 3.322500i 0.598500i \
+  3.321750i 0.594000i 3.321750i 0.591750i 3.321000i 0.589500i 3.319500i 0.585000i \
+  3.316500i 0.576750i 3.312000i 0.569250i 3.309750i 0.566250i 3.307500i 0.564750i \
+  3.306000i 0.564000i 3.303000i 0.561000i 3.297750i 0.555750i 3.292500i 0.550500i \
+  3.291000i 0.549000i 3.290250i 0.549000i 3.288750i 0.548250i 3.283500i 0.543000i \
+  3.278250i 0.538500i 3.276000i 0.535500i 3.274500i 0.534000i 3.273750i 0.532500i \
+  3.270750i 0.529500i 3.264000i 0.524250i 3.257250i 0.519000i 3.252750i 0.516000i \
+  3.250500i 0.515250i 3.248250i 0.514500i 3.244500i 0.511500i 3.237750i 0.506250i \
+  3.231000i 0.499500i 3.228000i 0.496500i 3.227250i 0.495000i 3.225000i 0.492000i \
+  3.222000i 0.485250i 3.220500i 0.479250i 3.219750i 0.476250i 3.219750i 0.474750i \
+  3.220500i 0.473250i 3.221250i 0.470250i 3.222750i 0.465750i 3.225000i 0.461250i \
+  3.226500i 0.459750i 3.227250i 0.459000i 3.227250i 0.458250i 3.230250i 0.456750i \
+  3.235500i 0.454500i 3.242250i 0.452250i 3.246750i 0.451500i 3.249000i 0.451500i \
+  3.251250i 0.451500i 3.256500i 0.450750i 3.263250i 0.450750i 3.270000i 0.451500i \
+  3.272250i 0.451500i 3.272250i 0.452250i 3.274500i 0.453000i 3.280500i 0.454500i \
+  3.287250i 0.456000i 3.290250i 0.457500i 3.291750i 0.458250i 3.294750i 0.459000i \
+  3.300750i 0.458250i 3.305250i 0.456000i 3.308250i 0.453750i 3.309000i 0.452250i \
+  3.309750i 0.450000i 3.311250i 0.447000i 3.313500i 0.442500i 3.314250i 0.438750i \
+  3.314250i 0.436500i 3.315000i 0.435000i 3.315000i 0.434250i 3.315000i 0.433500i \
+  3.314250i 0.432000i 3.312750i 0.429750i 3.309750i 0.426000i 3.304500i 0.421500i \
+  3.300750i 0.419250i 3.299250i 0.417750i 3.297000i 0.417000i 3.291750i 0.414750i \
+  3.282750i 0.411750i 3.273000i 0.409500i 3.267000i 0.408750i 3.264750i 0.408750i \
+  3.261750i 0.408750i 3.256500i 0.408000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 3.246000i 0.408000i 3.236250i 0.408000i 3.231000i 0.408750i \
+  3.229500i 0.408750i 3.227250i 0.409500i 3.223500i 0.410250i 3.215250i 0.411750i \
+  3.207000i 0.413250i 3.204000i 0.414000i 3.203250i 0.414000i 3.201000i 0.414750i \
+  3.194250i 0.417750i 3.188250i 0.421500i 3.185250i 0.423000i 3.184500i 0.424500i \
+  3.182250i 0.426750i 3.177000i 0.432000i 3.171750i 0.438000i 3.169500i 0.441000i \
+  3.168750i 0.441750i 3.167250i 0.444750i 3.164250i 0.452250i 3.162750i 0.460500i \
+  3.162000i 0.464250i 3.162750i 0.465750i 3.162750i 0.469500i 3.163500i 0.477750i \
+  3.164250i 0.485250i 3.164250i 0.488250i 3.163500i 0.489000i 3.164250i 0.492000i \
+  3.167250i 0.499500i 3.171000i 0.506250i 3.174000i 0.510750i 3.176250i 0.513000i \
+  3.177750i 0.514500i 3.181500i 0.518250i 3.186750i 0.524250i 3.192750i 0.530250i \
+  3.195000i 0.531750i 3.195750i 0.531750i 3.198000i 0.533250i 3.203250i 0.537000i \
+  3.207750i 0.540750i 3.209250i 0.541500i 3.211500i 0.543000i 3.216750i 0.547500i \
+  3.222750i 0.552750i 3.225750i 0.556500i 3.228000i 0.558000i 3.229500i 0.560250i \
+  3.233250i 0.564000i 3.239250i 0.569250i 3.245250i 0.574500i 3.247500i 0.575250i \
+  3.248250i 0.575250i 3.249750i 0.576000i 3.253500i 0.580500i 3.256500i 0.585000i \
+  3.258000i 0.587250i 3.258750i 0.588000i 3.259500i 0.590250i 3.260250i 0.596250i \
+  3.260250i 0.602250i 3.259500i 0.605250i 3.259500i 0.606750i 3.258750i 0.609750i \
+  3.255750i 0.615000i 3.252750i 0.618750i 3.251250i 0.620250i 3.250500i 0.620250i \
+  3.249750i 0.621000i 3.247500i 0.621750i 3.241500i 0.623250i 3.234750i 0.624750i \
+  3.230250i 0.624750i 3.228000i 0.624750i 3.225750i 0.624750i 3.220500i 0.624750i \
+  3.212250i 0.624750i 3.203250i 0.624000i 3.199500i 0.623250i 3.198000i 0.623250i \
+  3.195000i 0.622500i 3.186750i 0.621000i 3.179250i 0.619500i 3.176250i 0.617250i \
+  3.174750i 0.616500i 3.172500i 0.615000i 3.166500i 0.615750i 3.162750i 0.617250i \
+  3.160500i 0.618750i 3.158250i 0.619500i 3.157500i 0.620250i 3.156750i 0.621750i \
+  3.155250i 0.623250i 3.154500i 0.625500i 3.153750i 0.630000i 3.154500i 0.636750i \
+  3.156000i 0.640500i 3.157500i 0.642750i 3.160500i 0.646500i 3.165750i 0.653250i \
+  3.171750i 0.658500i 3.174750i 0.660750i 3.175500i 0.661500i 3.179250i 0.663000i \
+  3.189000i 0.666000i 3.198750i 0.668250i 3.204750i 0.669000i 3.207750i 0.669000i \
+  3.210750i 0.668250i 3.216750i 0.669000i 3.228000i 0.669000i 3.238500i 0.669000i \
+  3.244500i 0.669000i 3.246000i 0.669000i 3.247500i 0.669000i 3.252750i 0.669000i \
+  3.263250i 0.667500i 3.273750i 0.666000i 3.279000i 0.665250i 3.281250i 0.665250i \
+  3.283500i 0.665250i 3.288750i 0.663000i 3.297000i 0.659250i 3.304500i 0.654000i \
+  3.308250i 0.651000i 3.309000i 0.649500i 3.309750i 0.647250i 3.312000i 0.643500i \
+  3.316500i 0.636000i 3.319500i 0.628500i 3.321000i 0.624000i 3.321750i 0.622500i \
+  3.321750i 0.621000i 3.322500i 0.616500i 3.322500i 0.607500i 3.322500i 0.598500i \
+  3.321750i 0.594000i 3.321750i 0.591750i 3.321000i 0.589500i 3.319500i 0.585000i \
+  3.316500i 0.576750i 3.312000i 0.569250i 3.309750i 0.566250i 3.307500i 0.564750i \
+  3.306000i 0.564000i 3.303000i 0.561000i 3.297750i 0.555750i 3.292500i 0.550500i \
+  3.291000i 0.549000i 3.290250i 0.549000i 3.288750i 0.548250i 3.283500i 0.543000i \
+  3.278250i 0.538500i 3.276000i 0.535500i 3.274500i 0.534000i 3.273750i 0.532500i \
+  3.270750i 0.529500i 3.264000i 0.524250i 3.257250i 0.519000i 3.252750i 0.516000i \
+  3.250500i 0.515250i 3.248250i 0.514500i 3.244500i 0.511500i 3.237750i 0.506250i \
+  3.231000i 0.499500i 3.228000i 0.496500i 3.227250i 0.495000i 3.225000i 0.492000i \
+  3.222000i 0.485250i 3.220500i 0.479250i 3.219750i 0.476250i 3.219750i 0.474750i \
+  3.220500i 0.473250i 3.221250i 0.470250i 3.222750i 0.465750i 3.225000i 0.461250i \
+  3.226500i 0.459750i 3.227250i 0.459000i 3.227250i 0.458250i 3.230250i 0.456750i \
+  3.235500i 0.454500i 3.242250i 0.452250i 3.246750i 0.451500i 3.249000i 0.451500i \
+  3.251250i 0.451500i 3.256500i 0.450750i 3.263250i 0.450750i 3.270000i 0.451500i \
+  3.272250i 0.451500i 3.272250i 0.452250i 3.274500i 0.453000i 3.280500i 0.454500i \
+  3.287250i 0.456000i 3.290250i 0.457500i 3.291750i 0.458250i 3.294750i 0.459000i \
+  3.300750i 0.458250i 3.305250i 0.456000i 3.308250i 0.453750i 3.309000i 0.452250i \
+  3.309750i 0.450000i 3.311250i 0.447000i 3.313500i 0.442500i 3.314250i 0.438750i \
+  3.314250i 0.436500i 3.315000i 0.435000i 3.315000i 0.434250i 3.315000i 0.433500i \
+  3.314250i 0.432000i 3.312750i 0.429750i 3.309750i 0.426000i 3.304500i 0.421500i \
+  3.300750i 0.419250i 3.299250i 0.417750i 3.297000i 0.417000i 3.291750i 0.414750i \
+  3.282750i 0.411750i 3.273000i 0.409500i 3.267000i 0.408750i 3.264750i 0.408750i \
+  3.261750i 0.408750i 3.256500i 0.408000i -outline $tkxox(color_title_fg) -fill {}
+${title} create oval 2.868750i 0.405000i 3.137250i 0.673500i -outline {} -fill \
+  $tkxox(color_title_fg) -width 0
+${title} create oval 2.868750i 0.405000i 3.137250i 0.673500i -outline $tkxox(color_title_fg) -fill \
+  {}
+${title} create oval 2.073000i 0.406500i 2.341500i 0.675000i -outline {} -fill \
+  $tkxox(color_title_fg) -width 0
+${title} create oval 2.073000i 0.406500i 2.341500i 0.675000i -outline $tkxox(color_title_fg) -fill \
+  {}
+${title} create oval 5.783250i 0.108000i 6.209250i 0.664500i -outline {} -fill \
+  $tkxox(color_title_logo_fg) -width 0
+${title} create oval 5.783250i 0.108000i 6.209250i 0.664500i -outline $tkxox(color_title_logo_fg) -fill \
+  {}
+${title} create oval 2.909250i 0.448500i 3.090750i 0.630000i -outline {} -fill \
+  $tkxox(color_title_bg) -width 0
+${title} create oval 2.909250i 0.448500i 3.090750i 0.630000i -outline $tkxox(color_title_fg) -fill \
+  {}
+${title} create oval 2.113500i 0.450000i 2.295000i 0.631500i -outline {} -fill \
+  $tkxox(color_title_bg) -width 0
+${title} create oval 2.113500i 0.450000i 2.295000i 0.631500i -outline $tkxox(color_title_fg) -fill \
+  {}
+${title} create oval 5.889750i 0.195750i 6.095250i 0.587250i -outline {} -fill \
+  $tkxox(color_title_bg) -width 0
+${title} create oval 5.889750i 0.195750i 6.095250i 0.587250i -outline $tkxox(color_title_logo_fg) -fill \
+  {}
+${title} create polygon 4.125000i 0.121500i 4.125000i 0.202500i 4.296000i 0.202500i \
+  4.296000i 0.652500i 4.417500i 0.652500i 4.417500i 0.205500i 4.582500i 0.205500i \
+  4.582500i 0.121500i 4.125000i 0.121500i -outline {} -fill $tkxox(color_title_logo_fg) -width 0
+${title} create polygon 4.125000i 0.121500i 4.125000i 0.202500i 4.296000i 0.202500i \
+  4.296000i 0.652500i 4.417500i 0.652500i 4.417500i 0.205500i 4.582500i 0.205500i \
+  4.582500i 0.121500i 4.125000i 0.121500i -outline $tkxox(color_title_logo_fg) -fill {}
+${title} create polygon 2.365500i 0.669000i 2.409750i 0.669000i 2.409750i 0.477750i \
+  2.473500i 0.669000i 2.526000i 0.669000i 2.590500i 0.474750i 2.591250i 0.669000i \
+  2.643750i 0.669000i 2.643750i 0.411000i 2.565750i 0.411000i 2.502750i 0.594000i \
+  2.440500i 0.411000i 2.366250i 0.411000i -outline {} -fill $tkxox(color_title_fg) -width 0
+${title} create polygon 2.365500i 0.669000i 2.409750i 0.669000i 2.409750i 0.477750i \
+  2.473500i 0.669000i 2.526000i 0.669000i 2.590500i 0.474750i 2.591250i 0.669000i \
+  2.643750i 0.669000i 2.643750i 0.411000i 2.565750i 0.411000i 2.502750i 0.594000i \
+  2.440500i 0.411000i 2.366250i 0.411000i -outline $tkxox(color_title_fg) -fill {}
diff --git a/title_defs.c b/title_defs.c
index 3c07e98..222262e 100644
--- a/title_defs.c
+++ b/title_defs.c
@@ -1,8 +1,8 @@
-char tcl_title_defs[] = ""
-"# file automatically generated by:\n"
-"#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig\n"
-"set title_width_in_inch  6.90\n"
-"set title_height_in_inch 0.82\n"
-"set title_scroll_x_in_point -7\n"
-"set title_scroll_y_in_point -2\n"
-"";
+char tcl_title_defs[] = "\
+# file automatically generated by:\n\
+#		./title_fig2tcl.sh ./title.fig\n\
+set title_width_in_inch  6.90\n\
+set title_height_in_inch 0.82\n\
+set title_scroll_x_in_point -6\n\
+set title_scroll_y_in_point -1\n\
+";
diff --git a/title_defs.tcl b/title_defs.tcl
index 3293030..6ae3991 100644
--- a/title_defs.tcl
+++ b/title_defs.tcl
@@ -1,6 +1,6 @@
 # file automatically generated by:
-#		/yama/home/edp/saramito/dvt/tk707/title_fig2tcl.sh /yama/home/edp/saramito/dvt/tk707/title.fig
+#		./title_fig2tcl.sh ./title.fig
 set title_width_in_inch  6.90
 set title_height_in_inch 0.82
-set title_scroll_x_in_point -7
-set title_scroll_y_in_point -2
+set title_scroll_x_in_point -6
+set title_scroll_y_in_point -1
diff --git a/title_fig2tcl.sh b/title_fig2tcl.sh
index b8dc4db..05e7173 100644
--- a/title_fig2tcl.sh
+++ b/title_fig2tcl.sh
@@ -43,6 +43,20 @@ fi
 # -----------------------------------------------------
 width_in_inch=` grep "^canvas" $tmp | awk '{print $4}' | sed -e 's/i//' `
 height_in_inch=`grep "^canvas" $tmp | awk '{print $6}' | sed -e 's/i//' `
+# -----------------------------------------------------
+# if failed, try the new fig2dev output :
+#   set xfigCanvas [canvas .c -width 6.90i -height 0.82i]
+# -----------------------------------------------------
+if test x"$width_in_inch" = x"" -o x"$height_in_inch" = x""; then
+  width_in_inch=` grep "^set xfigCanvas" $tmp | awk '{print $6}' | sed -e 's/i//' `
+  height_in_inch=`grep "^set xfigCanvas" $tmp | awk '{print $8}' | sed -e 's/i//' -e 's/\]//' `
+fi
+#echo "width_in_inch $width_in_inch"
+#echo "height_in_inch $height_in_inch"
+if test x"$width_in_inch" = x"" -o x"$height_in_inch" = x""; then
+    echo "title_fig2tcl: failed to catch bounding box" >&2
+    exit 1
+fi
 #
 # get bounding box such that
 #	$xfigCanvas config -xscrollincrement 1p -yscrollincrement 1p
diff --git a/tk707.c b/tk707.c
index bc838d3..3113450 100644
--- a/tk707.c
+++ b/tk707.c
@@ -1,771 +1,792 @@
-char tcl_tk707[] = ""
-"#	File tk707.tcl\n"
-"#	Remainder of gui, including key & mouse bindings. Then RUN!\n"
-"\n"
-"#	Pattern memory is now in C-land but track memory still in tcl/tk.\n"
-"#\n"
-"mem_init\n"
-"\n"
-"# ======================================================\n"
-"# lamps into the score\n"
-"# ======================================================\n"
-"set score_width  [expr $score_width_in_inch  * $cm_per_inch]\n"
-"set score_height [expr $score_height_in_inch * $cm_per_inch]\n"
-"set lamp_width  0.40;\n"
-"set lamp_height 0.15;\n"
-"set scale_lamps $score\n"
-"\n"
-"set scale_lamp3 $score.l3\n"
-"set scale_lamp2 $score.l2\n"
-"set scale_lamp1 $score.l1\n"
-"set scale_lamp0 $score.l0\n"
-"label $scale_lamp3 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $scale_lamp2 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $scale_lamp1 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $scale_lamp0 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_on)\n"
-"pack  $scale_lamp3 -side bottom\n"
-"pack  $scale_lamp2 -side bottom\n"
-"pack  $scale_lamp1 -side bottom\n"
-"pack  $scale_lamp0 -side bottom\n"
-"set x  0.75\n"
-"set dy [expr $score_height / 4.0 - 0.04]\n"
-"set y3 [expr $dy/2 - 0.01];\n"
-"set y2 [expr $y3 + $dy]\n"
-"set y1 [expr $y2 + $dy]\n"
-"set y0 [expr $y1 + $dy]\n"
-"\n"
-"$scale_lamps create window ${x}c ${y3}c -window $scale_lamp3;\n"
-"$scale_lamps create window ${x}c ${y2}c -window $scale_lamp2;\n"
-"$scale_lamps create window ${x}c ${y1}c -window $scale_lamp1;\n"
-"$scale_lamps create window ${x}c ${y0}c -window $scale_lamp0;\n"
-"\n"
-"focus ${scale_lamp0}\n"
-"# ======================================================\n"
-"# Grid Display Area\n"
-"# ======================================================\n"
-"# Vertical lines\n"
-"set xcoord 0.0\n"
-"for {set i 0} {$i < 16} {incr i} {\n"
-"	set xcoord [expr $xcoord + 0.5]\n"
-"	$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n"
-"	set pvalX [tk7_cm2pix $grid ${xcoord}c]\n"
-"	lappend gridXs $pvalX\n"
-"	set gridSvals($pvalX) $i\n"
-"}\n"
-"# Horizontal lines\n"
-"set ycoord 0.5\n"
-"for {set i 0} {$i < 16} {incr i} {\n"
-"	set ycoord [expr $ycoord + 0.5]\n"
-"	$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n"
-"	set pvalY [tk7_cm2pix $grid ${ycoord}c]\n"
-"	lappend gridYs $pvalY\n"
-"	set gridIvals($pvalY) [expr 15 - $i]\n"
-"}\n"
-"# -----------------------\n"
-"# Step markers\n"
-"# -----------------------\n"
-"set xcoord 0.0\n"
-"for {set i 0} {$i < 16} {incr i} {\n"
-"	set xcoord [expr $xcoord + 0.5]\n"
-"	$grid create text ${xcoord}c 0.28125c -text [expr $i + 1] -font *-${font12}-*\n"
-"}\n"
-"# -----------------------\n"
-"# Instrument labels\n"
-"# -----------------------\n"
-"$gridlabel create text 2.85c 0.28125c -text Step -font *-${font12}-* -anchor e\n"
-"set xcoord 0.5\n"
-"set ycoord 0.5625\n"
-"for {set i 0} {$i < 16} {incr i} {\n"
-"	set ycoord [expr $ycoord + 0.5]\n"
-"	$gridlabel create text 2.85c ${ycoord}c -tags ilabel$i	\\\n"
-"		-text $sound([expr 16 - $i],name) -font *-${font12}-* -anchor e\n"
-"}\n"
-"$tempoinfo create text 1c 0.5c -text TEMPO -font *-${font12}-* -tags tmtitle\n"
-"$tempoinfo create text 3.6c 1.5c -text \"$mode(tempo)\" -tags tempo	\\\n"
-"	-font -${courrier_boldfont_i_50}-* -anchor e\n"
-"#trace variable mode(tempo) w tempoinfo_update\n"
-"$tminfo.t create text 0.2c 0.45c -text TRACK -anchor w -font *-${normal_r_14}-*\n"
-"$tminfo.t create text 3c 0.45c -text \"\" -tags trackid -font *-${normal_r_14}-*\n"
-"trace variable mode(current_track) w trackinfo_update\n"
-"$tminfo.m create text 0.2c 0.4c -text STATUS -anchor w -font *-${font12}-*\n"
-"# ===================================================================================\n"
-"# Volume controls\n"
-"# ===================================================================================\n"
-"set vol_tics_width 0.25\n"
-"\n"
-"set title_width  [expr ${title_width_in_inch}  * ${cm_per_inch}];\n"
-"set title_height [expr ${title_height_in_inch} * ${cm_per_inch}];\n"
-"set space_height [expr ${title_height}/4.];\n"
-"set volspacer $vcunit.spacer\n"
-"canvas $volspacer -width ${title_width}c -height ${space_height}c\n"
-"pack $volspacer\n"
-"\n"
-"set cunit $vcunit.u\n"
-"frame $cunit;\n"
-"pack $cunit\n"
-"for {set i 0} {$i<11} {incr i} {\n"
-"	frame $cunit.$i ;# -relief groove -borderwidth 2\n"
-"	frame $cunit.$i.sf\n"
-"	if {$i == 0} {\n"
-"		canvas $cunit.$i.sf.cl -width 1.2c -height 4c\n"
-"		$cunit.$i.sf.cl create text 1.2c 0.4c -text MAX -font *-${font12}-* -anchor e\n"
-"		$cunit.$i.sf.cl create text 1.2c 3.6c -text MIN -font *-${font12}-* -anchor e\n"
-"		pack $cunit.$i.sf.cl -side left\n"
-"		set vol_space_width [expr 4*${vol_tics_width}];\n"
-"	} else {\n"
-"		set vol_space_width ${vol_tics_width};\n"
-"	}\n"
-"	canvas $cunit.$i.sf.c -width 0.25c -height 4c\n"
-"	for {set j 1} {$j < 10} {incr j} {\n"
-"		set y [expr 0.4 * $j]\n"
-"		$cunit.$i.sf.c create line 0c ${y}c ${vol_tics_width}c ${y}c\n"
-"	}\n"
-"	$cunit.$i.sf.c create line 0c 0.4c 0.25c 0.4c -width 2\n"
-"	$cunit.$i.sf.c create line 0c 2.0c 0.25c 2.0c -width 2\n"
-"	$cunit.$i.sf.c create line 0c 3.6c 0.25c 3.6c -width 2\n"
-"	scale $cunit.$i.sf.s -orient vertical -from 100 -to 0 -length 4c	\\\n"
-"		-width 0.4c -sliderlength 0.8c \\\n"
-"		-activebackground 	$tkxox(vol_slider_active) \\\n"
-"		-troughcolor 		$tkxox(vol_trough_color) \\\n"
-"		-background 		$tkxox(vol_slider_passive) \\\n"
-"		-highlightbackground 	$tkxox(vol_highlightbackground) \\\n"
-"		-showvalue false -borderwidth 1p \\\n"
-"		-command volset -relief groove\n"
-"\n"
-"	eval canvas $cunit.$i.sf.spacer -width ${vol_space_width}c -height 4c ${debug_relief};\n"
-"	pack $cunit.$i.sf.spacer -side right\n"
-"\n"
-"	pack $cunit.$i -side left\n"
-"	pack $cunit.$i.sf\n"
-"	pack $cunit.$i.sf.c -side left\n"
-"	pack $cunit.$i.sf.s -side left\n"
-"	frame $cunit.$i.lab\n"
-"\n"
-"	eval label $cunit.$i.l -height 1 -font *-${font8}-*	\\\n"
-"		-text $volume_label($i) -justify left ${debug_relief}\n"
-"	pack $cunit.$i.l -expand true -fill x\n"
-"\n"
-"	# Initialise fader setting\n"
-"	if {$i == 0} {\n"
-"	    $cunit.$i.sf.s set 100\n"
-"	} else {\n"
-"	    $cunit.$i.sf.s set 66\n"
-"	}\n"
-"}\n"
-"set masterv $cunit.11\n"
-"frame $masterv\n"
-"frame  $masterv.sf\n"
-"pack $masterv -side left\n"
-"pack  $masterv.sf\n"
-"\n"
-"set master_width        0.5;\n"
-"set master_height       5.0;\n"
-"set master_n_tics       10;\n"
-"set master_tics_width   0.7;\n"
-"set master_sliderlength [expr 2.*${master_height}/${master_n_tics}]\n"
-"set master_incr_height  [expr ${master_height}/(${master_n_tics}+2)];\n"
-"set vol_space_width     [expr 3*${vol_tics_width}];\n"
-"eval canvas $masterv.sf.spacer -width ${vol_space_width}c -height ${master_height}c \\\n"
-"	${debug_relief}\n"
-"pack $masterv.sf.spacer -side left\n"
-"\n"
-"set master_hi_color #ffff00000000; # red\n"
-"set master_hibg_color #f332ffff0000; # yellow\n"
-"set master_acbg_color #000044cffb22; # blue\n"
-"set master_fg_color #000044440000; # green\n"
-"	#-background 		$tkxox(but_grey)          \\\n"
-"\n"
-"canvas $masterv.sf.cl -width ${master_tics_width}c -height ${master_height}c\n"
-"scale $masterv.sf.s -orient vertical -from 100 -to 0 \\\n"
-"	-length ${master_height}c -width ${master_width}c \\\n"
-"	-sliderlength ${master_sliderlength}c	\\\n"
-"	-activebackground 	$tkxox(vol_slider_active) \\\n"
-"	-troughcolor 		$tkxox(vol_trough_color) \\\n"
-"	-background 		$tkxox(vol_slider_passive) \\\n"
-"	-highlightbackground 	$tkxox(vol_highlightbackground) \\\n"
-"	-showvalue false \\\n"
-"	-command volset \\\n"
-"	-borderwidth 1p \\\n"
-"	-relief groove\n"
-"\n"
-"\n"
-"canvas $masterv.sf.cr -width 2.0c -height ${master_height}c\n"
-"$masterv.sf.s set 100\n"
-"for {set i 0} {$i <= ${master_n_tics}} {incr i} {\n"
-"	if {$i == 0 || 2*$i == ${master_n_tics} || $i == ${master_n_tics} } {\n"
-"	    set width_in_point 2;\n"
-"	} else {\n"
-"	    set width_in_point 1;\n"
-"	}\n"
-"	set y [expr ${master_incr_height} * ($i + 1)]\n"
-"	$masterv.sf.cl create line 0c ${y}c 1.5c ${y}c \\\n"
-"		-width ${width_in_point}p\n"
-"	$masterv.sf.cr create line 0c ${y}c ${master_tics_width}c ${y}c \\\n"
-"		-width ${width_in_point}p\n"
-"}\n"
-"set x [expr ${master_tics_width} * 1.2 ]\n"
-"set y [expr ${master_incr_height} * (0 + 1)]\n"
-"$masterv.sf.cr create text ${x}c ${y}c -text MAX -font *-${font12}-* -anchor w\n"
-"set y [expr ${master_incr_height} * (${master_n_tics} + 1)]\n"
-"$masterv.sf.cr create text ${x}c ${y}c -text MIN -font *-${font12}-* -anchor w\n"
-"eval label $masterv.l -text \"VOLUME\" -justify right -font *-${boldfont12}-* ${debug_relief}\n"
-"\n"
-"pack  $masterv.sf.cl $masterv.sf.s $masterv.sf.cr -side left\n"
-"pack $masterv.l -expand true -fill x\n"
-"$masterv.sf.cl configure\n"
-"\n"
-"set bypassval 0\n"
-"set bypass $vcunit.bypass\n"
-"frame $bypass\n"
-"pack $bypass\n"
-"label $bypass.l -text \"BYPASS Faders\" -font *-${font12}-*\n"
-"button $bypass.b -bitmap nix -width 3.5c -height 0.75c 	\\\n"
-"	-background $tkxox(but_grey) -activebackground $tkxox(but_grey_active)	\\\n"
-"	-command {vol_bypass [incr bypassval -1]}\n"
-"pack $bypass.b\n"
-"pack $bypass.l\n"
-"set volspacerB $vcunit.spacerB\n"
-"canvas $volspacerB -width ${title_width}c -height ${space_height}c\n"
-"pack $volspacerB\n"
-"\n"
-"proc volset {val} {\n"
-"	global cunit\n"
-"\n"
-"	for {set i 0} {$i < 12} {incr i} {\n"
-"		lappend vals [$cunit.$i.sf.s get]\n"
-"	}\n"
-"	eval tk7_set_vols $vals\n"
-"\n"
-"}\n"
-"proc vol_bypass {n} {\n"
-"	global bypassval cunit vcunit masterv\n"
-"	global font12\n"
-"\n"
-"	set bypassval [expr abs($n)]	;# Should now be 0 or 1\n"
-"	if {$bypassval} {\n"
-"		for {set i 0} {$i < 11} {incr i} {\n"
-"			$cunit.$i.sf.s configure -state disabled\n"
-"			$masterv.sf.s configure -state disabled\n"
-"			$vcunit.bypass.l configure -text \"ACTIVATE Faders\" -font *-${font12}-*\n"
-"			tk7_set_vols 100 100 100 100 100 100 100 100 100 100 100 100\n"
-"		}\n"
-"	} else {\n"
-"		for {set i 0} {$i < 11} {incr i} {\n"
-"			$cunit.$i.sf.s configure -state normal\n"
-"			$masterv.sf.s configure -state normal\n"
-"			$vcunit.bypass.l configure -text \"BYPASS Faders\" -font *-${font12}-*\n"
-"			volset 0\n"
-"		}\n"
-"	}\n"
-"\n"
-"}\n"
-"# ======================================================\n"
-"# small buttons area\n"
-"# ======================================================\n"
-"\n"
-"# ------------------------------------------------------\n"
-"# Clear/Scale/Last Step/Instrument Guide\n"
-"# ------------------------------------------------------\n"
-"eval frame $misc.lt1 $debug_relief\n"
-"pack $misc.lt1\n"
-"label $misc.lt1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lt1.clear\n"
-"button $misc.b1 -bitmap nix -width 0.75c -height 0.75c	\\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $misc.lb1 $debug_relief\n"
-"pack $misc.lb1\n"
-"label $misc.lb1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lb1.clear\n"
-"$misc create window 0.8c 1.4c  -window $misc.lt1 -anchor s\n"
-"$misc create window 0.8c 2c    -window $misc.b1  -anchor c\n"
-"$misc create window 0.8c 2.65c -window $misc.lb1 -anchor n\n"
-"bind $misc.b1 <ButtonRelease-1>               {ac_clear 0}\n"
-"bind $misc.b1 <Shift-ButtonRelease-1>         {ac_clear 1}\n"
-"bind $misc.b1 <Control-ButtonRelease-1>       {ac_clear 2}\n"
-"bind $misc.b1 <Shift-Control-ButtonRelease-1> {ac_clear 3}\n"
-"\n"
-"eval frame $misc.lt2 $debug_relief;\n"
-"pack $misc.lt2\n"
-"label $misc.lt2.scale -text SCALE -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lt2.scale\n"
-"button $misc.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $misc.lb2 $debug_relief;\n"
-"pack $misc.lb2\n"
-"label $misc.lb2.back -text BACK -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lb2.back\n"
-"$misc create window 2.0c 1.4c  -window $misc.lt2 -anchor s\n"
-"$misc create window 2.0c 2c    -window $misc.b2 -anchor c\n"
-"$misc create window 2.0c 2.65c -window $misc.lb2 -anchor n\n"
-"bind $misc.b2 <1> ac_scaleback\n"
-"\n"
-"eval frame $misc.lt3 $debug_relief;\n"
-"pack $misc.lt3\n"
-"label $misc.lt3.last -text LAST -font *-${boldfont12}-* -anchor c\n"
-"label $misc.lt3.step -text STEP -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lt3.last $misc.lt3.step\n"
-"button $misc.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $misc.lb3 $debug_relief;\n"
-"pack $misc.lb3\n"
-"label $misc.lb3.fwd -text FWD -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lb3.fwd\n"
-"$misc create window 3.2c 1.4c  -window $misc.lt3 -anchor s\n"
-"$misc create window 3.2c 2c    -window $misc.b3 -anchor c\n"
-"$misc create window 3.2c 2.65c -window $misc.lb3 -anchor n\n"
-"bind $misc.b3 <1> ac_lastfwd\n"
-"\n"
-"eval frame $misc.lt4 $debug_relief;\n"
-"pack $misc.lt4\n"
-"label $misc.lt4.inst -text INSTR -font *-${boldfont12}-* -anchor c\n"
-"label $misc.lt4.guide -text /GUIDE -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lt4.inst $misc.lt4.guide\n"
-"button $misc.b4 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $misc.lb4 $debug_relief;\n"
-"pack $misc.lb4\n"
-"label $misc.lb4.last -text LAST -font *-${boldfont12}-* -anchor c\n"
-"label $misc.lb4.meas -text MEAS -font *-${boldfont12}-* -anchor c\n"
-"pack $misc.lb4.last $misc.lb4.meas\n"
-"$misc create window 4.4c 1.4c  -window $misc.lt4 -anchor s\n"
-"$misc create window 4.4c 2c    -window $misc.b4 -anchor c\n"
-"$misc create window 4.4c 2.65c -window $misc.lb4 -anchor n\n"
-"\n"
-"bind $misc.b4 <1>                     {ac_lastmeas 0}\n"
-"bind $misc.b4 <ButtonRelease-1>       {ac_lastmeas 1}\n"
-"bind $misc.b4 <Shift-1>               {ac_lastmeas 2}\n"
-"bind $misc.b4 <Shift-ButtonRelease-1> {ac_lastmeas 3}\n"
-"\n"
-"# ------------------------------------------------------\n"
-"# Shuffle/Flam & Tempo/Measure controls\n"
-"# ------------------------------------------------------\n"
-"#\n"
-"# shuffle/flam\n"
-"#\n"
-"eval frame $st.lt1 $debug_relief;\n"
-"pack $st.lt1\n"
-"label $st.lt1.shuff -text SHUFFLE -font *-${boldfont12}-*\n"
-"label $st.lt1.flam -text /FLAM -font *-${boldfont12}-*\n"
-"pack $st.lt1.shuff $st.lt1.flam\n"
-"button $st.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $st.lb1 $debug_relief;\n"
-"pack $st.lb1\n"
-"label $st.lb1.midi -text \"MIDI CH\" -font *-${boldfont12}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"pack $st.lb1.midi\n"
-"$st create window 1c 1.4c  -window $st.lt1 -anchor s\n"
-"$st create window 1c 2c    -window $st.b1  -anchor c\n"
-"$st create window 1c 2.65c -window $st.lb1 -anchor n\n"
-"bind $st.b1 <Button-1> { ac_flam }\n"
-"bind $st.b1 <Shift-1>  { ac_midi }\n"
-"#\n"
-"# tempo/meas area\n"
-"#\n"
-"eval frame $st.lt2 $debug_relief;\n"
-"pack $st.lt2\n"
-"label $st.lt2.tempo -text TEMPO -font *-${boldfont12}-*\n"
-"label $st.lt2.meas -text /MEAS  -font *-${boldfont12}-*\n"
-"pack $st.lt2.tempo $st.lt2.meas\n"
-"button $st.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"eval frame $st.lb2 $debug_relief;\n"
-"pack $st.lb2\n"
-"label $st.lb2.sync -text \"SYNC MODE\" -font *-${boldfont12}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"pack $st.lb2.sync\n"
-"$st create window 3c 1.4c  -window $st.lt2 -anchor s\n"
-"$st create window 3c 2c    -window $st.b2\n"
-"$st create window 3c 2.65c -window $st.lb2 -anchor n\n"
-"bind $st.b2 <1> ac_tempomeasure\n"
-"# ------------------------------------------------------\n"
-"# Track/Pattern Read/Write control\n"
-"# ------------------------------------------------------\n"
-"label $trpa.lt -text PLAY -font *-${boldfont12}-*\n"
-"label $trpa.lttrack -text TRACK -font *-${boldfont12}-*\n"
-"label $trpa.ltpattern -text PATTERN -font *-${boldfont12}-*\n"
-"label $trpa.lbtrack -text TRACK -font *-${boldfont12}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"label $trpa.lbstep -text \"STEP/TAP\" -font *-${boldfont12}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"button $trpa.btrk -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"button $trpa.bpat -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"label $trpa.lb -text WRITE -font *-${boldfont12}-*\n"
-"$trpa create window 1.6c 0.8c  -window $trpa.lt -anchor s\n"
-"$trpa create window 0.8c 1.4c  -window $trpa.lttrack -anchor s\n"
-"$trpa create window 0.8c 2c    -window $trpa.btrk -anchor c\n"
-"$trpa create window 0.8c 2.65c -window $trpa.lbtrack -anchor n\n"
-"$trpa create window 2.3c 1.4c  -window $trpa.ltpattern -anchor s\n"
-"$trpa create window 2.3c 2c    -window $trpa.bpat -anchor c\n"
-"$trpa create window 2.3c 2.65c -window $trpa.lbstep -anchor n\n"
-"$trpa create window 1.6c 3.30c -window $trpa.lb -anchor n\n"
-"\n"
-"bind $trpa.btrk <1>        {ac_trackmode $tkxox(READ)}\n"
-"bind $trpa.btrk <Double-1> {ac_trackmode $tkxox(WRITE)}\n"
-"bind $trpa.btrk <Shift-1>  {ac_trackmode $tkxox(WRITE)}\n"
-"bind $trpa.bpat <1>        { ac_patternmode $tkxox(READ); }\n"
-"bind $trpa.bpat <Double-1> { ac_patternmode $tkxox(WRITE); }\n"
-"bind $trpa.bpat <Shift-1>  { ac_patternmode $tkxox(WRITE); }\n"
-"#---------------------------------------\n"
-"# Pattern Group & Track Number selection\n"
-"#---------------------------------------\n"
-"label $grps.lt -text \"PATTERN GROUP\" -font *-${boldfont12}-*\n"
-"label $grps.lb -text \"TRACK NUMBER\"  -font *-${boldfont12}-*\n"
-"$grps create window 2.5c 0.8c  -window $grps.lt -anchor s\n"
-"$grps create window 2.5c 3.30c -window $grps.lb -anchor n\n"
-"eval frame $grps.lt0 $debug_relief;\n"
-"pack $grps.lt0\n"
-"label $grps.lt0.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $grps.lt0.labl -text A -font *-${boldfont12}-*\n"
-"pack $grps.lt0.lamp $grps.lt0.labl -side left\n"
-"button $grps.b0 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"label $grps.lb0 -text I -font *-${boldfont13}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"$grps create window 0.8c 1.4c -window $grps.lt0 -anchor s\n"
-"$grps create window 0.8c 2c -window $grps.b0 -anchor c\n"
-"$grps create window 0.8c 2.65c -window $grps.lb0 -anchor n\n"
-"\n"
-"eval frame $grps.lt1 $debug_relief;\n"
-"pack $grps.lt1\n"
-"label $grps.lt1.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $grps.lt1.labl -text B -font *-${boldfont12}-*\n"
-"pack $grps.lt1.lamp $grps.lt1.labl -side left\n"
-"button $grps.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"label $grps.lb1 -text II -font *-${boldfont13}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"\n"
-"\n"
-"\n"
-"$grps create window 2c 1.4c -window $grps.lt1 -anchor s\n"
-"$grps create window 2c 2c -window $grps.b1 -anchor c\n"
-"$grps create window 2c 2.65c -window $grps.lb1 -anchor n\n"
-"\n"
-"eval frame $grps.lt2 $debug_relief;\n"
-"pack $grps.lt2\n"
-"label $grps.lt2.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $grps.lt2.labl -text C -font *-${boldfont12}-*\n"
-"pack $grps.lt2.lamp $grps.lt2.labl -side left\n"
-"button $grps.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"label $grps.lb2 -text III -font *-${boldfont13}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"$grps create window 3.2c 1.4c -window $grps.lt2 -anchor s\n"
-"$grps create window 3.2c 2c -window $grps.b2 -anchor c\n"
-"$grps create window 3.2c 2.65c -window $grps.lb2 -anchor n\n"
-"\n"
-"eval frame $grps.lt3 $debug_relief;\n"
-"pack $grps.lt3\n"
-"label $grps.lt3.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $grps.lt3.labl -text D -font *-${boldfont12}-*\n"
-"pack $grps.lt3.lamp $grps.lt3.labl -side left\n"
-"button $grps.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n"
-"    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"label $grps.lb3 -text IV -font *-${boldfont13}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"$grps create window 4.4c 1.4c -window $grps.lt3 -anchor s\n"
-"$grps create window 4.4c 2c -window $grps.b3 -anchor c\n"
-"$grps create window 4.4c 2.65c -window $grps.lb3 -anchor n\n"
-"\n"
-"bind $grps.b0 <1> {ac_group 0}\n"
-"bind $grps.b1 <1> {ac_group 1}\n"
-"bind $grps.b2 <1> {ac_group 2}\n"
-"bind $grps.b3 <1> {ac_group 3}\n"
-"bind $grps.b0 <Shift-1> {ac_track 0}\n"
-"bind $grps.b1 <Shift-1> {ac_track 1}\n"
-"bind $grps.b2 <Shift-1> {ac_track 2}\n"
-"bind $grps.b3 <Shift-1> {ac_track 3}\n"
-"# -------------------------------\n"
-"# Create the note buttons & lamps\n"
-"# -------------------------------\n"
-"# add half a button width at left and right of the score alignement\n"
-"set border_width_in_point 2;\n"
-"set correction            0.20\n"
-"set button_width [expr $score_width/17.0 - 2*$border_width_in_point/$point_per_cm - $correction];\n"
-"\n"
-"set shift_buttons $notes.shift\n"
-"canvas $shift_buttons -width [expr 0.95*${button_width}]c -height 2.6c;\n"
-"pack   $shift_buttons -side left;\n"
-"\n"
-"for {set i 0} {$i<16} {incr i} {\n"
-"	frame $notes.note$i\n"
-"	pack $notes.note$i -side left\n"
-"	label $notes.note$i.l -height 1 -text [expr $i + 1]	\\\n"
-"		-relief groove -borderwidth ${border_width_in_point}p -font *-${font12}-*\n"
-"	button $notes.note$i.b -bitmap nix -width ${button_width}c -height 2.6c	\\\n"
-"		-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"	label $notes.note$i.instr -width 1 \\\n"
-"		-font *-${font12}-* -text $sound([expr $i + 1],shortname);\n"
-"	pack $notes.note$i.l $notes.note$i.b $notes.note$i.instr \\\n"
-"		-expand true -fill x\n"
-"	bind $notes.note$i.b <ButtonPress-1>           {ac_note     %W 0}\n"
-"	bind $notes.note$i.b <ButtonRelease-1>         {ac_note_off %W}\n"
-"	bind $notes.note$i.b <Control-ButtonPress-1>   {ac_note     %W $tkxox(flam)}\n"
-"	bind $notes.note$i.b <Control-ButtonRelease-1> {ac_note_off %W}\n"
-"	bind $notes.note$i.b <Button-3>                {ac_note     %W $tkxox(zero_velocity)}\n"
-"	bind $notes.note$i.b <Shift-1>                 {ac_newinstr %W}\n"
-"}\n"
-"#\n"
-"# Empty Space : adjust vectical alignment with score\n"
-"# 	- at the right of the score\n"
-"# 	- at the right of the instrument buttons\n"
-"#\n"
-"set empty_right $note_score.right\n"
-"set empty_case $notes.right\n"
-"canvas $empty_right -width ${right_space_width}c -height ${score_height_in_inch}i;\n"
-"canvas $empty_case  -width ${right_space_width}c -height 2.6c;\n"
-"pack   $empty_right -side left;\n"
-"pack   $empty_case -side right;\n"
-"\n"
-"pattern_setid 0	;	# Initialise pattern number\n"
-"ac_group $mode(patgroup)\n"
-"ac_newinstr $notes.note0.b	;	# Initialise current instrument\n"
-"\n"
-"# Bindings to activate note buttons from keyboard\n"
-"# 1->10 = buttons 1->10, \"q\"->\"y\" = 11->16\n"
-"#\n"
-"set k 0\n"
-"bind . <KeyPress-1> {ac_note $notes.note0.b 0}\n"
-"bind . <KeyPress-2> {ac_note $notes.note1.b 0}\n"
-"bind . <KeyPress-3> {ac_note $notes.note2.b 0}\n"
-"bind . <KeyPress-4> {ac_note $notes.note3.b 0}\n"
-"bind . <KeyPress-5> {ac_note $notes.note4.b 0}\n"
-"bind . <KeyPress-6> {ac_note $notes.note5.b 0}\n"
-"bind . <KeyPress-7> {ac_note $notes.note6.b 0}\n"
-"bind . <KeyPress-8> {ac_note $notes.note7.b 0}\n"
-"bind . <KeyPress-9> {ac_note $notes.note8.b 0}\n"
-"bind . <KeyPress-0> {ac_note $notes.note9.b 0}\n"
-"bind . <KeyPress-q> {ac_note $notes.note10.b 0}\n"
-"bind . <KeyPress-w> {ac_note $notes.note11.b 0}\n"
-"bind . <KeyPress-e> {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n"
-"bind . <KeyPress-r> {ac_note $notes.note13.b 0}\n"
-"bind . <KeyPress-t> {ac_note $notes.note14.b 0}\n"
-"bind . <KeyPress-y> {ac_note $notes.note15.b 0}\n"
-"\n"
-"# Bindings for pattern Copy/Paste\n"
-"#\n"
-"bind . <Control-c> {\n"
-"	tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n"
-"}\n"
-"bind . <Control-b> {\n"
-"	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n"
-"		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 1\n"
-"		pattern_setid $mode(current_pattern)\n"
-"	}\n"
-"}\n"
-"bind . <Control-v> {\n"
-"	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n"
-"		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 0\n"
-"		pattern_setid $mode(current_pattern)\n"
-"	}\n"
-"}\n"
-"#\n"
-"# Bindings for pattern editing from display grid\n"
-"#\n"
-"proc grid_note {x y prop} {\n"
-"	global notes\n"
-"	upvar #0 tkxox xox\n"
-"	upvar #0 mode mo\n"
-"	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n"
-"	    return\n"
-"	}\n"
-"	if {![have_zero_velocity $prop]} {\n"
-"	  switch $mo(current_accent) {\n"
-"	    2       {set prop [add_strong_accent    $prop] }\n"
-"	    1 	    {set prop [add_weak_accent      $prop] }\n"
-"	    default {set prop [add_default_velocity $prop] }\n"
-"	  }\n"
-"	}\n"
-"	# Convert x,y position to a grid intersection point\n"
-"	# and imply step,instrument combination from it.\n"
-"	if {[locate_gridpos $x $y SIvals] < 0 } {\n"
-"	    return\n"
-"	}\n"
-"	#puts \" -> Instrument $SIvals(inst) at step $SIvals(step) with prop $prop\"\n"
-"	ac_newinstr $notes.note$SIvals(inst).b\n"
-"	step_insert $SIvals(step) $prop\n"
-"}\n"
-"bind $grid <Button-1> {\n"
-"	#puts \"Button-1: %x,%y\"\n"
-"}\n"
-"bind $grid <Double-Button-1> {\n"
-"	#puts \"Double-Button-1: %x,%y\"\n"
-"	grid_note %x %y 0\n"
-"}\n"
-"bind $grid <Control-Double-Button-1> {\n"
-"	#puts \"Control-Double-Button-1: %x,%y\"\n"
-"        upvar #0 tkxox xox\n"
-"	grid_note %x %y $xox(flam)\n"
-"}\n"
-"bind $grid <Double-Button-3> {\n"
-"	#puts \"Shift-Double-Button-1: %x,%y\"\n"
-"        upvar #0 tkxox xox\n"
-"	grid_note %x %y $xox(zero_velocity)\n"
-"}\n"
-"# ------------------------------------------------------\n"
-"# Create Accent/Enter button set\n"
-"# ------------------------------------------------------\n"
-"label $accenter.lt -height 1 -text ENTER -font *-${boldfont12}-*\n"
-"frame $accenter.cart\n"
-"label $accenter.cart.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n"
-"	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n"
-"label $accenter.cart.labl -text CARTRIDGE -font *-${boldfont12}-* \\\n"
-"	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n"
-"pack $accenter.cart.lamp $accenter.cart.labl -side left\n"
-"button $accenter.b -bitmap nix -width 1.45c -height 2.1c	\\\n"
-"	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n"
-"set accent_label $accenter.lb\n"
-"label $accent_label -height 1 -text ACCENT -font *-${boldfont12}-*\n"
-"$accenter create window 1.43c 0.35c -window $accenter.lt\n"
-"$accenter create window 1.43c 0.8c -window $accenter.cart\n"
-"$accenter create window 1.43c 2.3c -window $accenter.b\n"
-"$accenter create window 1.43c 3.8c -window $accent_label -tags accent\n"
-"bind $accenter.b <1> {ac_accenter 0}		;# Add pattern into track\n"
-"bind $accenter.b <Shift-1> {ac_accenter 1}	;# Insert pattern into track\n"
-"bind $accenter.b <Control-1> {ac_cartridge}\n"
-"# ------------------------------------------------------\n"
-"# Create the Tempo Dial\n"
-"# ------------------------------------------------------\n"
-"set dial_canvas $dial.c\n"
-"set dial_value  $dial.v\n"
-"\n"
-"label $dial_value -text \"TEMPO $mode(tempo)\" -anchor n -font *-${boldr14}-* ;\n"
-"pack $dial_value -expand true -fill x\n"
-"canvas $dial_canvas -width 4c -height 3.2c ;#-relief groove -borderwidth 2\n"
-"pack $dial_canvas -side left\n"
-"set dial_radius 1.; # in centimeter\n"
-"$dial_canvas create oval 1c 0.2c 3c 2.2c -width 2p -tags dial	\\\n"
-"	-fill $tkxox(but_grey)\n"
-"$dial_canvas create line 0c 0c 0c 0c -tags indicator\n"
-"$dial_canvas create text 0.4c 2.9c -text SLOW -anchor w	\\\n"
-"	-font *-${helvetica_bold_r_12}-*\n"
-"$dial_canvas create text 3.7c 2.9c -text FAST -anchor e	\\\n"
-"	-font *-${helvetica_bold_r_12}-*\n"
-"$dial_canvas bind dial <Button-1> {\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	# Angular-oriented dial:\n"
-"	# Note: It would be better to get the center of the\n"
-"	# dial as origin, instead of the picked point into the dial\n"
-"	set orig_x %x\n"
-"	set orig_y %x\n"
-"	set orig_tempo $mo(tempo)\n"
-"}\n"
-"$dial_canvas bind dial <B1-Motion> {\n"
-"	dial_adjust [expr %x - $orig_x] [expr %y - $orig_y] $orig_tempo\n"
-"}\n"
-"# the tempo range is 30-330 on my tk727 (saramito@imag.fr)\n"
-"# I don't known for the tk707\n"
-"set tempo_min  30; # points to SLOW\n"
-"set tempo_max 265; # points to FAST\n"
-"set tempo_ini 120; # at initialization\n"
-"\n"
-"proc dial_adjust {x y orig_tempo} {\n"
-"	global dial_value\n"
-"	global dial_canvas\n"
-"	global dial_radius\n"
-"	global tempo_min; # the arrow points to SLOW\n"
-"	global tempo_max; # the arrow points to FAST\n"
-"	upvar #0 mode mo\n"
-"\n"
-"	set pi          3.14159265358979323846;\n"
-"	set pi_o4       [expr 0.25*$pi];\n"
-"	set pi_3o4      [expr 3*$pi_o4];\n"
-"\n"
-"	# vertical indicator -> medium tempo\n"
-"	set delta_tempo  [expr 0.5*($tempo_max - $tempo_min)];\n"
-"	set tempo_med    [expr 0.5*($tempo_max + $tempo_min)];\n"
-"\n"
-"	if {($x == 0) && ($y == 0)} {\n"
-"\n"
-"	    # special case: when x = y = 0\n"
-"	    # i.e. when mouse comes back to origin where we pick the dial\n"
-"	    #  or also at the initialization call procedure\n"
-"	    # => angle is not computable with (x,y)	\n"
-"	    # but by using $orig_tempo :\n"
-"	    set tempo_val $orig_tempo\n"
-"	    if {$tempo_val > $tempo_med} {\n"
-"		# alpha is in the range ( pi/4, pi (\n"
-"		# ksi                   (  0 ,  1  (\n"
-"	        set ksi    [expr  ($tempo_max-$tempo_val)/$delta_tempo]\n"
-"	        set alpha  [expr  $pi/4 + $ksi*(3*$pi/4)]\n"
-"	    } else {\n"
-"		# alpha is in the range ) -pi, -pi/4 )\n"
-"		# ksi                   )  0 ,  1    )\n"
-"	        set ksi    [expr  ($tempo_val-$tempo_min)/$delta_tempo]\n"
-"	        set alpha  [expr  - $pi/4 - $ksi*(3*$pi/4)]\n"
-"	    }\n"
-"	} else {\n"
-"	    #  the general case\n"
-"	    set alpha [expr atan2($x,$y)];\n"
-"            if {$alpha > 0} {\n"
-"\n"
-"	        # the mouse is on the right side of the origin -> fast\n"
-"	        if {$alpha < $pi_o4} {\n"
-"		    # set to the minimal value\n"
-"		    set tempo_val $tempo_max\n"
-"		    set alpha $pi_o4\n"
-"	        } else {\n"
-"	  	    # alpha is in the range ( pi/4, pi (\n"
-"		    # zeta                  ( 0     1  (\n"
-"	            set zeta  [expr ($alpha-$pi_o4)/$pi_3o4]\n"
-"		    set tempo_val [expr $tempo_max - $zeta*$delta_tempo]\n"
-"	        }\n"
-"	    } else {\n"
-"	        # alpha < 0\n"
-"\n"
-"	        # mouse is on the right side of the origin -> fast\n"
-"	        if {$alpha > [expr -$pi_o4]} {\n"
-"		    # set tempo the minimal value\n"
-"		    set tempo_val $tempo_min\n"
-"		    set alpha -$pi_o4\n"
-"	        } else {\n"
-"	  	    # alpha is in the range ) -pi, -pi/4 )\n"
-"		    # zeta                  ) 0     1    )\n"
-"		    set zeta  [expr ($alpha+$pi)/$pi_3o4]\n"
-"		    set tempo_val [expr $tempo_med - $zeta*$delta_tempo ]\n"
-"	        }\n"
-"	    }\n"
-"	}\n"
-"        # make an integer\n"
-"	set tempo_val [expr int($tempo_val)]\n"
-"\n"
-"	# then we apply this :\n"
-"	set mo(tempo) $tempo_val\n"
-"	tk7_set_tempo $tempo_val\n"
-"	${dial_value} configure -text \"TEMPO $tempo_val\"\n"
-"\n"
-"	# update the dial indicator\n"
-"	set sin_alpha [expr sin($alpha)]\n"
-"	set cos_alpha [expr cos($alpha)]\n"
-"	set x_indic [expr 2.0 + $dial_radius * $sin_alpha]\n"
-"	set y_indic [expr 1.2 + $dial_radius * $cos_alpha]\n"
-"	${dial_canvas} coords indicator ${x_indic}c ${y_indic}c 2c 1.2c\n"
-"}\n"
-"# Angular-oriented dial: set initial tempo and vertical direction\n"
-"dial_adjust 0 0 $tempo_ini\n"
-"\n"
-"midichan_set [expr $midi_channel + 1]\n"
-"ac_patternmode $tkxox(READ)\n"
-"ac_trackmode $tkxox(READ)\n"
-"ac_track 0\n"
-"# ======================================================\n"
-"# Action!\n"
-"# ======================================================\n"
-"wm deiconify .;\n"
-"# after 10 play_loop;\n"
-"play_loop;\n"
-"\n"
-"\n"
-"";
+char tcl_tk707[] = "\
+#\n\
+#    This file is part of tk707.\n\
+#\n\
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito \n\
+#\n\
+#    tk707 is free software; you can redistribute it and/or modify\n\
+#    it under the terms of the GNU General Public License as published by\n\
+#    the Free Software Foundation; either version 2 of the License, or\n\
+#    (at your option) any later version.\n\
+#\n\
+#    Foobar is distributed in the hope that it will be useful,\n\
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n\
+#    GNU General Public License for more details.\n\
+#\n\
+#    You should have received a copy of the GNU General Public License\n\
+#    along with Foobar; if not, write to the Free Software\n\
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\
+#\n\
+# ======================================================\n\
+#	File tk707.tcl\n\
+#	Remainder of gui, including key & mouse bindings. Then RUN!\n\
+#\n\
+#	Pattern memory is now in C-land but track memory still in tcl/tk.\n\
+# ======================================================\n\
+\n\
+mem_init\n\
+\n\
+# ======================================================\n\
+# lamps into the score\n\
+# ======================================================\n\
+set score_width  [expr $score_width_in_inch  * $cm_per_inch]\n\
+set score_height [expr $score_height_in_inch * $cm_per_inch]\n\
+set lamp_width  0.40;\n\
+set lamp_height 0.15;\n\
+set scale_lamps $score\n\
+\n\
+set scale_lamp3 $score.l3\n\
+set scale_lamp2 $score.l2\n\
+set scale_lamp1 $score.l1\n\
+set scale_lamp0 $score.l0\n\
+label $scale_lamp3 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $scale_lamp2 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $scale_lamp1 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $scale_lamp0 -bitmap nix -width ${lamp_width}c -height ${lamp_height}c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_on)\n\
+pack  $scale_lamp3 -side bottom\n\
+pack  $scale_lamp2 -side bottom\n\
+pack  $scale_lamp1 -side bottom\n\
+pack  $scale_lamp0 -side bottom\n\
+set x  0.75\n\
+set dy [expr $score_height / 4.0 - 0.04]\n\
+set y3 [expr $dy/2 - 0.01];\n\
+set y2 [expr $y3 + $dy]\n\
+set y1 [expr $y2 + $dy]\n\
+set y0 [expr $y1 + $dy]\n\
+\n\
+$scale_lamps create window ${x}c ${y3}c -window $scale_lamp3;\n\
+$scale_lamps create window ${x}c ${y2}c -window $scale_lamp2;\n\
+$scale_lamps create window ${x}c ${y1}c -window $scale_lamp1;\n\
+$scale_lamps create window ${x}c ${y0}c -window $scale_lamp0;\n\
+\n\
+focus ${scale_lamp0}\n\
+# ======================================================\n\
+# Grid Display Area\n\
+# ======================================================\n\
+# Vertical lines\n\
+set xcoord 0.0\n\
+for {set i 0} {$i < 16} {incr i} {\n\
+	set xcoord [expr $xcoord + 0.5]\n\
+	$grid create line ${xcoord}c 0.5c ${xcoord}c 9.0c -fill #aaaaaa\n\
+	set pvalX [tk7_cm2pix $grid ${xcoord}c]\n\
+	lappend gridXs $pvalX\n\
+	set gridSvals($pvalX) $i\n\
+}\n\
+# Horizontal lines\n\
+set ycoord 0.5\n\
+for {set i 0} {$i < 16} {incr i} {\n\
+	set ycoord [expr $ycoord + 0.5]\n\
+	$grid create line 0.0c ${ycoord}c 8.5c ${ycoord}c -fill #aaaaaa\n\
+	set pvalY [tk7_cm2pix $grid ${ycoord}c]\n\
+	lappend gridYs $pvalY\n\
+	set gridIvals($pvalY) [expr 15 - $i]\n\
+}\n\
+# -----------------------\n\
+# Step markers\n\
+# -----------------------\n\
+set xcoord 0.0\n\
+for {set i 0} {$i < 16} {incr i} {\n\
+	set xcoord [expr $xcoord + 0.5]\n\
+	$grid create text ${xcoord}c 0.28125c -text [expr $i + 1] -font *-${font12}-*\n\
+}\n\
+# -----------------------\n\
+# Instrument labels\n\
+# -----------------------\n\
+$gridlabel create text 2.85c 0.28125c -text Step -font *-${font12}-* -anchor e\n\
+set xcoord 0.5\n\
+set ycoord 0.5625\n\
+for {set i 0} {$i < 16} {incr i} {\n\
+	set ycoord [expr $ycoord + 0.5]\n\
+	$gridlabel create text 2.85c ${ycoord}c -tags ilabel$i	\\\n\
+		-text $sound([expr 16 - $i],name) -font *-${font12}-* -anchor e\n\
+}\n\
+$tempoinfo create text 1c 0.5c -text TEMPO -font *-${font12}-* -tags tmtitle\n\
+$tempoinfo create text 3.6c 1.5c -text \"$mode(tempo)\" -tags tempo	\\\n\
+	-font -${courrier_boldfont_i_50}-* -anchor e\n\
+#trace variable mode(tempo) w tempoinfo_update\n\
+$tminfo.t create text 0.2c 0.45c -text TRACK -anchor w -font *-${normal_r_14}-*\n\
+$tminfo.t create text 3c 0.45c -text \"\" -tags trackid -font *-${normal_r_14}-*\n\
+trace variable mode(current_track) w trackinfo_update\n\
+$tminfo.m create text 0.2c 0.4c -text STATUS -anchor w -font *-${font12}-*\n\
+# ===================================================================================\n\
+# Volume controls\n\
+# ===================================================================================\n\
+set vol_tics_width 0.25\n\
+\n\
+set title_width  [expr ${title_width_in_inch}  * ${cm_per_inch}];\n\
+set title_height [expr ${title_height_in_inch} * ${cm_per_inch}];\n\
+set space_height [expr ${title_height}/4.];\n\
+set volspacer $vcunit.spacer\n\
+canvas $volspacer -width ${title_width}c -height ${space_height}c\n\
+pack $volspacer\n\
+\n\
+set cunit $vcunit.u\n\
+frame $cunit;\n\
+pack $cunit\n\
+for {set i 0} {$i<11} {incr i} {\n\
+	frame $cunit.$i ;# -relief groove -borderwidth 2\n\
+	frame $cunit.$i.sf\n\
+	if {$i == 0} {\n\
+		canvas $cunit.$i.sf.cl -width 1.2c -height 4c\n\
+		$cunit.$i.sf.cl create text 1.2c 0.4c -text MAX -font *-${font12}-* -anchor e\n\
+		$cunit.$i.sf.cl create text 1.2c 3.6c -text MIN -font *-${font12}-* -anchor e\n\
+		pack $cunit.$i.sf.cl -side left\n\
+		set vol_space_width [expr 4*${vol_tics_width}];\n\
+	} else {\n\
+		set vol_space_width ${vol_tics_width};\n\
+	}\n\
+	canvas $cunit.$i.sf.c -width 0.25c -height 4c\n\
+	for {set j 1} {$j < 10} {incr j} {\n\
+		set y [expr 0.4 * $j]\n\
+		$cunit.$i.sf.c create line 0c ${y}c ${vol_tics_width}c ${y}c\n\
+	}\n\
+	$cunit.$i.sf.c create line 0c 0.4c 0.25c 0.4c -width 2\n\
+	$cunit.$i.sf.c create line 0c 2.0c 0.25c 2.0c -width 2\n\
+	$cunit.$i.sf.c create line 0c 3.6c 0.25c 3.6c -width 2\n\
+	scale $cunit.$i.sf.s -orient vertical -from 100 -to 0 -length 4c	\\\n\
+		-width 0.4c -sliderlength 0.8c \\\n\
+		-activebackground 	$tkxox(vol_slider_active) \\\n\
+		-troughcolor 		$tkxox(vol_trough_color) \\\n\
+		-background 		$tkxox(vol_slider_passive) \\\n\
+		-highlightbackground 	$tkxox(vol_highlightbackground) \\\n\
+		-showvalue false -borderwidth 1p \\\n\
+		-command volset -relief groove\n\
+\n\
+	eval canvas $cunit.$i.sf.spacer -width ${vol_space_width}c -height 4c ${debug_relief};\n\
+	pack $cunit.$i.sf.spacer -side right\n\
+\n\
+	pack $cunit.$i -side left\n\
+	pack $cunit.$i.sf\n\
+	pack $cunit.$i.sf.c -side left\n\
+	pack $cunit.$i.sf.s -side left\n\
+	frame $cunit.$i.lab\n\
+\n\
+	eval label $cunit.$i.l -height 1 -font *-${font8}-*	\\\n\
+		-text $volume_label($i) -justify left ${debug_relief}\n\
+	pack $cunit.$i.l -expand true -fill x\n\
+\n\
+	# Initialise fader setting\n\
+	if {$i == 0} {\n\
+	    $cunit.$i.sf.s set 100\n\
+	} else {\n\
+	    $cunit.$i.sf.s set 66\n\
+	}\n\
+}\n\
+set masterv $cunit.11\n\
+frame $masterv\n\
+frame  $masterv.sf\n\
+pack $masterv -side left\n\
+pack  $masterv.sf\n\
+\n\
+set master_width        0.5;\n\
+set master_height       5.0;\n\
+set master_n_tics       10;\n\
+set master_tics_width   0.7;\n\
+set master_sliderlength [expr 2.*${master_height}/${master_n_tics}]\n\
+set master_incr_height  [expr ${master_height}/(${master_n_tics}+2)];\n\
+set vol_space_width     [expr 3*${vol_tics_width}];\n\
+eval canvas $masterv.sf.spacer -width ${vol_space_width}c -height ${master_height}c \\\n\
+	${debug_relief}\n\
+pack $masterv.sf.spacer -side left\n\
+\n\
+set master_hi_color #ffff00000000; # red\n\
+set master_hibg_color #f332ffff0000; # yellow\n\
+set master_acbg_color #000044cffb22; # blue\n\
+set master_fg_color #000044440000; # green\n\
+	#-background 		$tkxox(but_grey)          \\\n\
+\n\
+canvas $masterv.sf.cl -width ${master_tics_width}c -height ${master_height}c\n\
+scale $masterv.sf.s -orient vertical -from 100 -to 0 \\\n\
+	-length ${master_height}c -width ${master_width}c \\\n\
+	-sliderlength ${master_sliderlength}c	\\\n\
+	-activebackground 	$tkxox(vol_slider_active) \\\n\
+	-troughcolor 		$tkxox(vol_trough_color) \\\n\
+	-background 		$tkxox(vol_slider_passive) \\\n\
+	-highlightbackground 	$tkxox(vol_highlightbackground) \\\n\
+	-showvalue false \\\n\
+	-command volset \\\n\
+	-borderwidth 1p \\\n\
+	-relief groove\n\
+\n\
+\n\
+canvas $masterv.sf.cr -width 2.0c -height ${master_height}c\n\
+$masterv.sf.s set 100\n\
+for {set i 0} {$i <= ${master_n_tics}} {incr i} {\n\
+	if {$i == 0 || 2*$i == ${master_n_tics} || $i == ${master_n_tics} } {\n\
+	    set width_in_point 2;\n\
+	} else {\n\
+	    set width_in_point 1;\n\
+	}\n\
+	set y [expr ${master_incr_height} * ($i + 1)]\n\
+	$masterv.sf.cl create line 0c ${y}c 1.5c ${y}c \\\n\
+		-width ${width_in_point}p\n\
+	$masterv.sf.cr create line 0c ${y}c ${master_tics_width}c ${y}c \\\n\
+		-width ${width_in_point}p\n\
+}\n\
+set x [expr ${master_tics_width} * 1.2 ]\n\
+set y [expr ${master_incr_height} * (0 + 1)]\n\
+$masterv.sf.cr create text ${x}c ${y}c -text MAX -font *-${font12}-* -anchor w\n\
+set y [expr ${master_incr_height} * (${master_n_tics} + 1)]\n\
+$masterv.sf.cr create text ${x}c ${y}c -text MIN -font *-${font12}-* -anchor w\n\
+eval label $masterv.l -text \"VOLUME\" -justify right -font *-${boldfont12}-* ${debug_relief}\n\
+\n\
+pack  $masterv.sf.cl $masterv.sf.s $masterv.sf.cr -side left\n\
+pack $masterv.l -expand true -fill x\n\
+$masterv.sf.cl configure\n\
+\n\
+set bypassval 0\n\
+set bypass $vcunit.bypass\n\
+frame $bypass\n\
+pack $bypass\n\
+label $bypass.l -text \"BYPASS Faders\" -font *-${font12}-*\n\
+button $bypass.b -bitmap nix -width 3.5c -height 0.75c 	\\\n\
+	-background $tkxox(but_grey) -activebackground $tkxox(but_grey_active)	\\\n\
+	-command {vol_bypass [incr bypassval -1]}\n\
+pack $bypass.b\n\
+pack $bypass.l\n\
+set volspacerB $vcunit.spacerB\n\
+canvas $volspacerB -width ${title_width}c -height ${space_height}c\n\
+pack $volspacerB\n\
+\n\
+proc volset {val} {\n\
+	global cunit\n\
+\n\
+	for {set i 0} {$i < 12} {incr i} {\n\
+		lappend vals [$cunit.$i.sf.s get]\n\
+	}\n\
+	eval tk7_set_vols $vals\n\
+\n\
+}\n\
+proc vol_bypass {n} {\n\
+	global bypassval cunit vcunit masterv\n\
+	global font12\n\
+\n\
+	set bypassval [expr abs($n)]	;# Should now be 0 or 1\n\
+	if {$bypassval} {\n\
+		for {set i 0} {$i < 11} {incr i} {\n\
+			$cunit.$i.sf.s configure -state disabled\n\
+			$masterv.sf.s configure -state disabled\n\
+			$vcunit.bypass.l configure -text \"ACTIVATE Faders\" -font *-${font12}-*\n\
+			tk7_set_vols 100 100 100 100 100 100 100 100 100 100 100 100\n\
+		}\n\
+	} else {\n\
+		for {set i 0} {$i < 11} {incr i} {\n\
+			$cunit.$i.sf.s configure -state normal\n\
+			$masterv.sf.s configure -state normal\n\
+			$vcunit.bypass.l configure -text \"BYPASS Faders\" -font *-${font12}-*\n\
+			volset 0\n\
+		}\n\
+	}\n\
+\n\
+}\n\
+# ======================================================\n\
+# small buttons area\n\
+# ======================================================\n\
+\n\
+# ------------------------------------------------------\n\
+# Clear/Scale/Last Step/Instrument Guide\n\
+# ------------------------------------------------------\n\
+eval frame $misc.lt1 $debug_relief\n\
+pack $misc.lt1\n\
+label $misc.lt1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lt1.clear\n\
+button $misc.b1 -bitmap nix -width 0.75c -height 0.75c	\\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $misc.lb1 $debug_relief\n\
+pack $misc.lb1\n\
+label $misc.lb1.clear -text CLEAR -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lb1.clear\n\
+$misc create window 0.8c 1.4c  -window $misc.lt1 -anchor s\n\
+$misc create window 0.8c 2c    -window $misc.b1  -anchor c\n\
+$misc create window 0.8c 2.65c -window $misc.lb1 -anchor n\n\
+bind $misc.b1 <ButtonRelease-1>               {ac_clear 0}\n\
+bind $misc.b1 <Shift-ButtonRelease-1>         {ac_clear 1}\n\
+bind $misc.b1 <Control-ButtonRelease-1>       {ac_clear 2}\n\
+bind $misc.b1 <Shift-Control-ButtonRelease-1> {ac_clear 3}\n\
+\n\
+eval frame $misc.lt2 $debug_relief;\n\
+pack $misc.lt2\n\
+label $misc.lt2.scale -text SCALE -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lt2.scale\n\
+button $misc.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $misc.lb2 $debug_relief;\n\
+pack $misc.lb2\n\
+label $misc.lb2.back -text BACK -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lb2.back\n\
+$misc create window 2.0c 1.4c  -window $misc.lt2 -anchor s\n\
+$misc create window 2.0c 2c    -window $misc.b2 -anchor c\n\
+$misc create window 2.0c 2.65c -window $misc.lb2 -anchor n\n\
+bind $misc.b2 <1> ac_scaleback\n\
+\n\
+eval frame $misc.lt3 $debug_relief;\n\
+pack $misc.lt3\n\
+label $misc.lt3.last -text LAST -font *-${boldfont12}-* -anchor c\n\
+label $misc.lt3.step -text STEP -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lt3.last $misc.lt3.step\n\
+button $misc.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $misc.lb3 $debug_relief;\n\
+pack $misc.lb3\n\
+label $misc.lb3.fwd -text FWD -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lb3.fwd\n\
+$misc create window 3.2c 1.4c  -window $misc.lt3 -anchor s\n\
+$misc create window 3.2c 2c    -window $misc.b3 -anchor c\n\
+$misc create window 3.2c 2.65c -window $misc.lb3 -anchor n\n\
+bind $misc.b3 <1> ac_lastfwd\n\
+\n\
+eval frame $misc.lt4 $debug_relief;\n\
+pack $misc.lt4\n\
+label $misc.lt4.inst -text INSTR -font *-${boldfont12}-* -anchor c\n\
+label $misc.lt4.guide -text /GUIDE -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lt4.inst $misc.lt4.guide\n\
+button $misc.b4 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $misc.lb4 $debug_relief;\n\
+pack $misc.lb4\n\
+label $misc.lb4.last -text LAST -font *-${boldfont12}-* -anchor c\n\
+label $misc.lb4.meas -text MEAS -font *-${boldfont12}-* -anchor c\n\
+pack $misc.lb4.last $misc.lb4.meas\n\
+$misc create window 4.4c 1.4c  -window $misc.lt4 -anchor s\n\
+$misc create window 4.4c 2c    -window $misc.b4 -anchor c\n\
+$misc create window 4.4c 2.65c -window $misc.lb4 -anchor n\n\
+\n\
+bind $misc.b4 <1>                     {ac_lastmeas 0}\n\
+bind $misc.b4 <ButtonRelease-1>       {ac_lastmeas 1}\n\
+bind $misc.b4 <Shift-1>               {ac_lastmeas 2}\n\
+bind $misc.b4 <Shift-ButtonRelease-1> {ac_lastmeas 3}\n\
+\n\
+# ------------------------------------------------------\n\
+# Shuffle/Flam & Tempo/Measure controls\n\
+# ------------------------------------------------------\n\
+#\n\
+# shuffle/flam\n\
+#\n\
+eval frame $st.lt1 $debug_relief;\n\
+pack $st.lt1\n\
+label $st.lt1.shuff -text SHUFFLE -font *-${boldfont12}-*\n\
+label $st.lt1.flam -text /FLAM -font *-${boldfont12}-*\n\
+pack $st.lt1.shuff $st.lt1.flam\n\
+button $st.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $st.lb1 $debug_relief;\n\
+pack $st.lb1\n\
+label $st.lb1.midi -text \"MIDI CH\" -font *-${boldfont12}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+pack $st.lb1.midi\n\
+$st create window 1c 1.4c  -window $st.lt1 -anchor s\n\
+$st create window 1c 2c    -window $st.b1  -anchor c\n\
+$st create window 1c 2.65c -window $st.lb1 -anchor n\n\
+bind $st.b1 <Button-1> { ac_flam }\n\
+bind $st.b1 <Shift-1>  { ac_midi }\n\
+#\n\
+# tempo/meas area\n\
+#\n\
+eval frame $st.lt2 $debug_relief;\n\
+pack $st.lt2\n\
+label $st.lt2.tempo -text TEMPO -font *-${boldfont12}-*\n\
+label $st.lt2.meas -text /MEAS  -font *-${boldfont12}-*\n\
+pack $st.lt2.tempo $st.lt2.meas\n\
+button $st.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+eval frame $st.lb2 $debug_relief;\n\
+pack $st.lb2\n\
+label $st.lb2.sync -text \"SYNC MODE\" -font *-${boldfont12}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+pack $st.lb2.sync\n\
+$st create window 3c 1.4c  -window $st.lt2 -anchor s\n\
+$st create window 3c 2c    -window $st.b2\n\
+$st create window 3c 2.65c -window $st.lb2 -anchor n\n\
+bind $st.b2 <1> ac_tempomeasure\n\
+# ------------------------------------------------------\n\
+# Track/Pattern Read/Write control\n\
+# ------------------------------------------------------\n\
+label $trpa.lt -text PLAY -font *-${boldfont12}-*\n\
+label $trpa.lttrack -text TRACK -font *-${boldfont12}-*\n\
+label $trpa.ltpattern -text PATTERN -font *-${boldfont12}-*\n\
+label $trpa.lbtrack -text TRACK -font *-${boldfont12}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+label $trpa.lbstep -text \"STEP/TAP\" -font *-${boldfont12}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+button $trpa.btrk -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+button $trpa.bpat -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+label $trpa.lb -text WRITE -font *-${boldfont12}-*\n\
+$trpa create window 1.6c 0.8c  -window $trpa.lt -anchor s\n\
+$trpa create window 0.8c 1.4c  -window $trpa.lttrack -anchor s\n\
+$trpa create window 0.8c 2c    -window $trpa.btrk -anchor c\n\
+$trpa create window 0.8c 2.65c -window $trpa.lbtrack -anchor n\n\
+$trpa create window 2.3c 1.4c  -window $trpa.ltpattern -anchor s\n\
+$trpa create window 2.3c 2c    -window $trpa.bpat -anchor c\n\
+$trpa create window 2.3c 2.65c -window $trpa.lbstep -anchor n\n\
+$trpa create window 1.6c 3.30c -window $trpa.lb -anchor n\n\
+\n\
+bind $trpa.btrk <1>        {ac_trackmode $tkxox(READ)}\n\
+bind $trpa.btrk <Double-1> {ac_trackmode $tkxox(WRITE)}\n\
+bind $trpa.btrk <Shift-1>  {ac_trackmode $tkxox(WRITE)}\n\
+bind $trpa.bpat <1>        { ac_patternmode $tkxox(READ); }\n\
+bind $trpa.bpat <Double-1> { ac_patternmode $tkxox(WRITE); }\n\
+bind $trpa.bpat <Shift-1>  { ac_patternmode $tkxox(WRITE); }\n\
+#---------------------------------------\n\
+# Pattern Group & Track Number selection\n\
+#---------------------------------------\n\
+label $grps.lt -text \"PATTERN GROUP\" -font *-${boldfont12}-*\n\
+label $grps.lb -text \"TRACK NUMBER\"  -font *-${boldfont12}-*\n\
+$grps create window 2.5c 0.8c  -window $grps.lt -anchor s\n\
+$grps create window 2.5c 3.30c -window $grps.lb -anchor n\n\
+eval frame $grps.lt0 $debug_relief;\n\
+pack $grps.lt0\n\
+label $grps.lt0.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $grps.lt0.labl -text A -font *-${boldfont12}-*\n\
+pack $grps.lt0.lamp $grps.lt0.labl -side left\n\
+button $grps.b0 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+label $grps.lb0 -text I -font *-${boldfont13}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+$grps create window 0.8c 1.4c -window $grps.lt0 -anchor s\n\
+$grps create window 0.8c 2c -window $grps.b0 -anchor c\n\
+$grps create window 0.8c 2.65c -window $grps.lb0 -anchor n\n\
+\n\
+eval frame $grps.lt1 $debug_relief;\n\
+pack $grps.lt1\n\
+label $grps.lt1.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $grps.lt1.labl -text B -font *-${boldfont12}-*\n\
+pack $grps.lt1.lamp $grps.lt1.labl -side left\n\
+button $grps.b1 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+label $grps.lb1 -text II -font *-${boldfont13}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+\n\
+\n\
+\n\
+$grps create window 2c 1.4c -window $grps.lt1 -anchor s\n\
+$grps create window 2c 2c -window $grps.b1 -anchor c\n\
+$grps create window 2c 2.65c -window $grps.lb1 -anchor n\n\
+\n\
+eval frame $grps.lt2 $debug_relief;\n\
+pack $grps.lt2\n\
+label $grps.lt2.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $grps.lt2.labl -text C -font *-${boldfont12}-*\n\
+pack $grps.lt2.lamp $grps.lt2.labl -side left\n\
+button $grps.b2 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+label $grps.lb2 -text III -font *-${boldfont13}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+$grps create window 3.2c 1.4c -window $grps.lt2 -anchor s\n\
+$grps create window 3.2c 2c -window $grps.b2 -anchor c\n\
+$grps create window 3.2c 2.65c -window $grps.lb2 -anchor n\n\
+\n\
+eval frame $grps.lt3 $debug_relief;\n\
+pack $grps.lt3\n\
+label $grps.lt3.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $grps.lt3.labl -text D -font *-${boldfont12}-*\n\
+pack $grps.lt3.lamp $grps.lt3.labl -side left\n\
+button $grps.b3 -bitmap nix -width 0.75c -height 0.75c  \\\n\
+    -bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+label $grps.lb3 -text IV -font *-${boldfont13}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+$grps create window 4.4c 1.4c -window $grps.lt3 -anchor s\n\
+$grps create window 4.4c 2c -window $grps.b3 -anchor c\n\
+$grps create window 4.4c 2.65c -window $grps.lb3 -anchor n\n\
+\n\
+bind $grps.b0 <1> {ac_group 0}\n\
+bind $grps.b1 <1> {ac_group 1}\n\
+bind $grps.b2 <1> {ac_group 2}\n\
+bind $grps.b3 <1> {ac_group 3}\n\
+bind $grps.b0 <Shift-1> {ac_track 0}\n\
+bind $grps.b1 <Shift-1> {ac_track 1}\n\
+bind $grps.b2 <Shift-1> {ac_track 2}\n\
+bind $grps.b3 <Shift-1> {ac_track 3}\n\
+# -------------------------------\n\
+# Create the note buttons & lamps\n\
+# -------------------------------\n\
+# add half a button width at left and right of the score alignement\n\
+set border_width_in_point 2;\n\
+set correction            0.20\n\
+set button_width [expr $score_width/17.0 - 2*$border_width_in_point/$point_per_cm - $correction];\n\
+\n\
+set shift_buttons $notes.shift\n\
+canvas $shift_buttons -width [expr 0.95*${button_width}]c -height 2.6c;\n\
+pack   $shift_buttons -side left;\n\
+\n\
+for {set i 0} {$i<16} {incr i} {\n\
+	frame $notes.note$i\n\
+	pack $notes.note$i -side left\n\
+	label $notes.note$i.l -height 1 -text [expr $i + 1]	\\\n\
+		-relief groove -borderwidth ${border_width_in_point}p -font *-${font12}-*\n\
+	button $notes.note$i.b -bitmap nix -width ${button_width}c -height 2.6c	\\\n\
+		-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+	label $notes.note$i.instr -width 1 \\\n\
+		-font *-${font12}-* -text $sound([expr $i + 1],shortname);\n\
+	pack $notes.note$i.l $notes.note$i.b $notes.note$i.instr \\\n\
+		-expand true -fill x\n\
+	bind $notes.note$i.b <ButtonPress-1>           {ac_note     %W 0}\n\
+	bind $notes.note$i.b <ButtonRelease-1>         {ac_note_off %W}\n\
+	bind $notes.note$i.b <Control-ButtonPress-1>   {ac_note     %W $tkxox(flam)}\n\
+	bind $notes.note$i.b <Control-ButtonRelease-1> {ac_note_off %W}\n\
+	bind $notes.note$i.b <Button-3>                {ac_note     %W $tkxox(zero_velocity)}\n\
+	bind $notes.note$i.b <Shift-1>                 {ac_newinstr %W}\n\
+}\n\
+#\n\
+# Empty Space : adjust vectical alignment with score\n\
+# 	- at the right of the score\n\
+# 	- at the right of the instrument buttons\n\
+#\n\
+set empty_right $note_score.right\n\
+set empty_case $notes.right\n\
+canvas $empty_right -width ${right_space_width}c -height ${score_height_in_inch}i;\n\
+canvas $empty_case  -width ${right_space_width}c -height 2.6c;\n\
+pack   $empty_right -side left;\n\
+pack   $empty_case -side right;\n\
+\n\
+pattern_setid 0	;	# Initialise pattern number\n\
+ac_group $mode(patgroup)\n\
+ac_newinstr $notes.note0.b	;	# Initialise current instrument\n\
+\n\
+# Bindings to activate note buttons from keyboard\n\
+# 1->10 = buttons 1->10, \"q\"->\"y\" = 11->16\n\
+#\n\
+set k 0\n\
+bind . <KeyPress-1> {ac_note $notes.note0.b 0}\n\
+bind . <KeyPress-2> {ac_note $notes.note1.b 0}\n\
+bind . <KeyPress-3> {ac_note $notes.note2.b 0}\n\
+bind . <KeyPress-4> {ac_note $notes.note3.b 0}\n\
+bind . <KeyPress-5> {ac_note $notes.note4.b 0}\n\
+bind . <KeyPress-6> {ac_note $notes.note5.b 0}\n\
+bind . <KeyPress-7> {ac_note $notes.note6.b 0}\n\
+bind . <KeyPress-8> {ac_note $notes.note7.b 0}\n\
+bind . <KeyPress-9> {ac_note $notes.note8.b 0}\n\
+bind . <KeyPress-0> {ac_note $notes.note9.b 0}\n\
+bind . <KeyPress-q> {ac_note $notes.note10.b 0}\n\
+bind . <KeyPress-w> {ac_note $notes.note11.b 0}\n\
+bind . <KeyPress-e> {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n\
+bind . <KeyPress-r> {ac_note $notes.note13.b 0}\n\
+bind . <KeyPress-t> {ac_note $notes.note14.b 0}\n\
+bind . <KeyPress-y> {ac_note $notes.note15.b 0}\n\
+\n\
+# Bindings for pattern Copy/Paste\n\
+#\n\
+bind . <Control-c> {\n\
+	tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n\
+}\n\
+bind . <Control-b> {\n\
+	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n\
+		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 1\n\
+		pattern_setid $mode(current_pattern)\n\
+	}\n\
+}\n\
+bind . <Control-v> {\n\
+	if {($mode(rdrw) == $tkxox(WRITE)) && ($mode(patr) == $tkxox(PATTERN))} {\n\
+		tk7_copy_patbuf $mode(patgroup) $mode(current_pattern) 0\n\
+		pattern_setid $mode(current_pattern)\n\
+	}\n\
+}\n\
+#\n\
+# Bindings for pattern editing from display grid\n\
+#\n\
+proc grid_note {x y prop} {\n\
+	global notes\n\
+	upvar #0 tkxox xox\n\
+	upvar #0 mode mo\n\
+	if {$mo(patr) == $xox(TRACK) || $mo(rdrw) == $xox(READ)} {\n\
+	    return\n\
+	}\n\
+	if {![have_zero_velocity $prop]} {\n\
+	  switch $mo(current_accent) {\n\
+	    2       {set prop [add_strong_accent    $prop] }\n\
+	    1 	    {set prop [add_weak_accent      $prop] }\n\
+	    default {set prop [add_default_velocity $prop] }\n\
+	  }\n\
+	}\n\
+	# Convert x,y position to a grid intersection point\n\
+	# and imply step,instrument combination from it.\n\
+	if {[locate_gridpos $x $y SIvals] < 0 } {\n\
+	    return\n\
+	}\n\
+	#puts \" -> Instrument $SIvals(inst) at step $SIvals(step) with prop $prop\"\n\
+	ac_newinstr $notes.note$SIvals(inst).b\n\
+	step_insert $SIvals(step) $prop\n\
+}\n\
+bind $grid <Button-1> {\n\
+	#puts \"Button-1: %x,%y\"\n\
+}\n\
+bind $grid <Double-Button-1> {\n\
+	#puts \"Double-Button-1: %x,%y\"\n\
+	grid_note %x %y 0\n\
+}\n\
+bind $grid <Control-Double-Button-1> {\n\
+	#puts \"Control-Double-Button-1: %x,%y\"\n\
+        upvar #0 tkxox xox\n\
+	grid_note %x %y $xox(flam)\n\
+}\n\
+bind $grid <Double-Button-3> {\n\
+	#puts \"Shift-Double-Button-1: %x,%y\"\n\
+        upvar #0 tkxox xox\n\
+	grid_note %x %y $xox(zero_velocity)\n\
+}\n\
+# ------------------------------------------------------\n\
+# Create Accent/Enter button set\n\
+# ------------------------------------------------------\n\
+label $accenter.lt -height 1 -text ENTER -font *-${boldfont12}-*\n\
+frame $accenter.cart\n\
+label $accenter.cart.lamp -bitmap nix -width 0.4c -height 0.15c	\\\n\
+	-relief groove -borderwidth 2 -bg $tkxox(lamp_off)\n\
+label $accenter.cart.labl -text CARTRIDGE -font *-${boldfont12}-* \\\n\
+	-fg $tkxox(color_fg_shift) -bg $tkxox(color_bg_shift)\n\
+pack $accenter.cart.lamp $accenter.cart.labl -side left\n\
+button $accenter.b -bitmap nix -width 1.45c -height 2.1c	\\\n\
+	-bg $tkxox(but_grey) -activebackground $tkxox(but_grey_active)\n\
+set accent_label $accenter.lb\n\
+label $accent_label -height 1 -text ACCENT -font *-${boldfont12}-*\n\
+$accenter create window 1.43c 0.35c -window $accenter.lt\n\
+$accenter create window 1.43c 0.8c -window $accenter.cart\n\
+$accenter create window 1.43c 2.3c -window $accenter.b\n\
+$accenter create window 1.43c 3.8c -window $accent_label -tags accent\n\
+bind $accenter.b <1> {ac_accenter 0}		;# Add pattern into track\n\
+bind $accenter.b <Shift-1> {ac_accenter 1}	;# Insert pattern into track\n\
+bind $accenter.b <Control-1> {ac_cartridge}\n\
+# ------------------------------------------------------\n\
+# Create the Tempo Dial\n\
+# ------------------------------------------------------\n\
+set dial_canvas $dial.c\n\
+set dial_value  $dial.v\n\
+\n\
+label $dial_value -text \"TEMPO $mode(tempo)\" -anchor n -font *-${boldr14}-* ;\n\
+pack $dial_value -expand true -fill x\n\
+canvas $dial_canvas -width 4c -height 3.2c ;#-relief groove -borderwidth 2\n\
+pack $dial_canvas -side left\n\
+set dial_radius 1.; # in centimeter\n\
+$dial_canvas create oval 1c 0.2c 3c 2.2c -width 2p -tags dial	\\\n\
+	-fill $tkxox(but_grey)\n\
+$dial_canvas create line 0c 0c 0c 0c -tags indicator\n\
+$dial_canvas create text 0.4c 2.9c -text SLOW -anchor w	\\\n\
+	-font *-${helvetica_bold_r_12}-*\n\
+$dial_canvas create text 3.7c 2.9c -text FAST -anchor e	\\\n\
+	-font *-${helvetica_bold_r_12}-*\n\
+$dial_canvas bind dial <Button-1> {\n\
+	upvar #0 mode mo\n\
+\n\
+	# Angular-oriented dial:\n\
+	# Note: It would be better to get the center of the\n\
+	# dial as origin, instead of the picked point into the dial\n\
+	set orig_x %x\n\
+	set orig_y %x\n\
+	set orig_tempo $mo(tempo)\n\
+}\n\
+$dial_canvas bind dial <B1-Motion> {\n\
+	dial_adjust [expr %x - $orig_x] [expr %y - $orig_y] $orig_tempo\n\
+}\n\
+# the tempo range is 30-330 on my tk727 (saramito@imag.fr)\n\
+# I don't known for the tk707\n\
+set tempo_min  30; # points to SLOW\n\
+set tempo_max 265; # points to FAST\n\
+set tempo_ini 120; # at initialization\n\
+\n\
+proc dial_adjust {x y orig_tempo} {\n\
+	global dial_value\n\
+	global dial_canvas\n\
+	global dial_radius\n\
+	global tempo_min; # the arrow points to SLOW\n\
+	global tempo_max; # the arrow points to FAST\n\
+	upvar #0 mode mo\n\
+\n\
+	set pi          3.14159265358979323846;\n\
+	set pi_o4       [expr 0.25*$pi];\n\
+	set pi_3o4      [expr 3*$pi_o4];\n\
+\n\
+	# vertical indicator -> medium tempo\n\
+	set delta_tempo  [expr 0.5*($tempo_max - $tempo_min)];\n\
+	set tempo_med    [expr 0.5*($tempo_max + $tempo_min)];\n\
+\n\
+	if {($x == 0) && ($y == 0)} {\n\
+\n\
+	    # special case: when x = y = 0\n\
+	    # i.e. when mouse comes back to origin where we pick the dial\n\
+	    #  or also at the initialization call procedure\n\
+	    # => angle is not computable with (x,y)	\n\
+	    # but by using $orig_tempo :\n\
+	    set tempo_val $orig_tempo\n\
+	    if {$tempo_val > $tempo_med} {\n\
+		# alpha is in the range ( pi/4, pi (\n\
+		# ksi                   (  0 ,  1  (\n\
+	        set ksi    [expr  ($tempo_max-$tempo_val)/$delta_tempo]\n\
+	        set alpha  [expr  $pi/4 + $ksi*(3*$pi/4)]\n\
+	    } else {\n\
+		# alpha is in the range ) -pi, -pi/4 )\n\
+		# ksi                   )  0 ,  1    )\n\
+	        set ksi    [expr  ($tempo_val-$tempo_min)/$delta_tempo]\n\
+	        set alpha  [expr  - $pi/4 - $ksi*(3*$pi/4)]\n\
+	    }\n\
+	} else {\n\
+	    #  the general case\n\
+	    set alpha [expr atan2($x,$y)];\n\
+            if {$alpha > 0} {\n\
+\n\
+	        # the mouse is on the right side of the origin -> fast\n\
+	        if {$alpha < $pi_o4} {\n\
+		    # set to the minimal value\n\
+		    set tempo_val $tempo_max\n\
+		    set alpha $pi_o4\n\
+	        } else {\n\
+	  	    # alpha is in the range ( pi/4, pi (\n\
+		    # zeta                  ( 0     1  (\n\
+	            set zeta  [expr ($alpha-$pi_o4)/$pi_3o4]\n\
+		    set tempo_val [expr $tempo_max - $zeta*$delta_tempo]\n\
+	        }\n\
+	    } else {\n\
+	        # alpha < 0\n\
+\n\
+	        # mouse is on the right side of the origin -> fast\n\
+	        if {$alpha > [expr -$pi_o4]} {\n\
+		    # set tempo the minimal value\n\
+		    set tempo_val $tempo_min\n\
+		    set alpha -$pi_o4\n\
+	        } else {\n\
+	  	    # alpha is in the range ) -pi, -pi/4 )\n\
+		    # zeta                  ) 0     1    )\n\
+		    set zeta  [expr ($alpha+$pi)/$pi_3o4]\n\
+		    set tempo_val [expr $tempo_med - $zeta*$delta_tempo ]\n\
+	        }\n\
+	    }\n\
+	}\n\
+        # make an integer\n\
+	set tempo_val [expr int($tempo_val)]\n\
+\n\
+	# then we apply this :\n\
+	set mo(tempo) $tempo_val\n\
+	tk7_set_tempo $tempo_val\n\
+	${dial_value} configure -text \"TEMPO $tempo_val\"\n\
+\n\
+	# update the dial indicator\n\
+	set sin_alpha [expr sin($alpha)]\n\
+	set cos_alpha [expr cos($alpha)]\n\
+	set x_indic [expr 2.0 + $dial_radius * $sin_alpha]\n\
+	set y_indic [expr 1.2 + $dial_radius * $cos_alpha]\n\
+	${dial_canvas} coords indicator ${x_indic}c ${y_indic}c 2c 1.2c\n\
+}\n\
+# Angular-oriented dial: set initial tempo and vertical direction\n\
+dial_adjust 0 0 $tempo_ini\n\
+\n\
+midichan_set [expr $midi_channel + 1]\n\
+ac_patternmode $tkxox(READ)\n\
+ac_trackmode $tkxox(READ)\n\
+ac_track 0\n\
+# ======================================================\n\
+# Action!\n\
+# ======================================================\n\
+wm deiconify .;\n\
+# after 10 play_loop;\n\
+play_loop;\n\
+\n\
+\n\
+";
diff --git a/tk707.help b/tk707.help
index dfacc92..e39b8ed 100644
--- a/tk707.help
+++ b/tk707.help
@@ -556,7 +556,7 @@ A new window will appear for the flam interval selection.
 	-help
 	Print short help.
 
-@C1@tConverting MIDI to audio WAV and MP3@t
+@C1@tConverting MIDI to audio WAV and MP3::@t
 
 
 This small annex explain how to convert your output
diff --git a/tk707.html b/tk707.html
index b78a408..5a8e2d0 100644
--- a/tk707.html
+++ b/tk707.html
@@ -1,278 +1,295 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+                      "http://www.w3.org/TR/html40/loose.dtd">
 <HTML>
+<!-- Created on November, 3 2004 by texi2html 1.66 -->
+<!--
+Written by: Lionel Cons <Lionel.Cons@cern.ch> (original author)
+            Karl Berry  <karl@freefriends.org>
+            Olaf Bachmann <obachman@mathematik.uni-kl.de>
+            and many others.
+Maintained by: Many creative people <dev@texi2html.cvshome.org>
+Send bugs and suggestions to <users@texi2html.cvshome.org>
+
+-->
 <HEAD>
-<!-- Created by texi2html 1.56k from /yama/home/edp/saramito/dvt/tk707/tk707.texi on 19 March 2001 -->
-
 <TITLE>The TK-707 Rhythm Composer</TITLE>
-</HEAD>
-<BODY>
-<H1>TK-707</H1>
-<H2>The TK-707 Rhythm Composer</H2>
-<H2>Version 0.7</H2>
-<H2>19 March 2001</H2>
-<ADDRESS>by Chris Willing and Pierre Saramito</ADDRESS>
-<P>
-<P><HR><P>
-<H1>Table of Contents</H1>
-<UL>
-<LI><A NAME="TOC1" HREF="tk707.html#SEC1">Installation</A>
-<UL>
-<LI><A NAME="TOC2" HREF="tk707.html#SEC2">Building <CODE>tk707</CODE></A>
-<LI><A NAME="TOC3" HREF="tk707.html#SEC3">Configure options</A>
-<LI><A NAME="TOC4" HREF="tk707.html#SEC4">Installation</A>
-<LI><A NAME="TOC5" HREF="tk707.html#SEC5">Running</A>
-<LI><A NAME="TOC6" HREF="tk707.html#SEC6">Building the documentation</A>
-<LI><A NAME="TOC7" HREF="tk707.html#SEC7">Comments, bug corrections and future versions</A>
-<LI><A NAME="TOC8" HREF="tk707.html#SEC8">My card has no midi render...</A>
-</UL>
-<LI><A NAME="TOC9" HREF="tk707.html#SEC9">Getting started</A>
-<UL>
-<LI><A NAME="TOC10" HREF="tk707.html#SEC10">Terminology</A>
-<LI><A NAME="TOC11" HREF="tk707.html#SEC11">Demonstrations</A>
-<LI><A NAME="TOC12" HREF="tk707.html#SEC12">Creating patterns</A>
-<UL>
-<LI><A NAME="TOC13" HREF="tk707.html#SEC13">Writing pattern</A>
-<LI><A NAME="TOC14" HREF="tk707.html#SEC14">Copy/paste and copy/merge</A>
-<LI><A NAME="TOC15" HREF="tk707.html#SEC15">The pattern display grid</A>
-</UL>
-<LI><A NAME="TOC16" HREF="tk707.html#SEC16">Playing patterns</A>
-<LI><A NAME="TOC17" HREF="tk707.html#SEC17">Creating tracks</A>
-<LI><A NAME="TOC18" HREF="tk707.html#SEC18">Editing tracks</A>
-<LI><A NAME="TOC19" HREF="tk707.html#SEC19">Playing tracks</A>
-<LI><A NAME="TOC20" HREF="tk707.html#SEC20">Tempo changes</A>
-</UL>
-<LI><A NAME="TOC21" HREF="tk707.html#SEC21">Midi files and sounds</A>
-<UL>
-<LI><A NAME="TOC22" HREF="tk707.html#SEC22">Midi files</A>
-<LI><A NAME="TOC23" HREF="tk707.html#SEC23">Sound maps</A>
-</UL>
-<LI><A NAME="TOC24" HREF="tk707.html#SEC24">Ternary feelings and poly-rhythms</A>
-<UL>
-<LI><A NAME="TOC25" HREF="tk707.html#SEC25">Scale changes</A>
-<UL>
-<LI><A NAME="TOC26" HREF="tk707.html#SEC26">Binary 4/4 measures</A>
-<LI><A NAME="TOC27" HREF="tk707.html#SEC27">Binary 2/4 measures</A>
-<LI><A NAME="TOC28" HREF="tk707.html#SEC28">Triplets and composed 12/4 measures</A>
-<LI><A NAME="TOC29" HREF="tk707.html#SEC29">Sextuplets and composed 12/8 measures</A>
-</UL>
-<LI><A NAME="TOC30" HREF="tk707.html#SEC30">Last step changes</A>
-</UL>
-<LI><A NAME="TOC31" HREF="tk707.html#SEC31">Accents and flam</A>
-<UL>
-<LI><A NAME="TOC32" HREF="tk707.html#SEC32">Accents</A>
-<UL>
-<LI><A NAME="TOC33" HREF="tk707.html#SEC33">Inserting accentuated notes</A>
-<LI><A NAME="TOC34" HREF="tk707.html#SEC34">Controlling the accent intensity</A>
-</UL>
-<LI><A NAME="TOC35" HREF="tk707.html#SEC35">Flam</A>
-<UL>
-<LI><A NAME="TOC36" HREF="tk707.html#SEC36">Inserting flams</A>
-<LI><A NAME="TOC37" HREF="tk707.html#SEC37">Controlling the flam interval</A>
-</UL>
-</UL>
-<LI><A NAME="TOC38" HREF="tk707.html#SEC38">Command line options</A>
-<UL>
-<LI><A NAME="TOC39" HREF="tk707.html#SEC39">Synopsis</A>
-<LI><A NAME="TOC40" HREF="tk707.html#SEC40">Options</A>
-</UL>
-<LI><A NAME="TOC41" HREF="tk707.html#SEC41">Converting MIDI to audio WAV and MP3</A>
-<LI><A NAME="TOC42" HREF="tk707.html#SEC42">GNU General Public License</A>
-<UL>
-<LI><A NAME="TOC43" HREF="tk707.html#SEC43">Preamble</A>
-<LI><A NAME="TOC44" HREF="tk707.html#SEC44">TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION</A>
-<LI><A NAME="TOC45" HREF="tk707.html#SEC45">How to Apply These Terms to Your New Programs</A>
-</UL>
-<LI><A NAME="TOC46" HREF="tk707.html#SEC46">Index</A>
-</UL>
-<P><HR><P>
-
-<P>
-Copyright (C) 2000, 2001 by Chris Willing and Pierre Saramito. All rights reserved.
-
 
-<P>
-Permission is granted to make and distribute verbatim copies of
-this manual provided the copyright notice and this permission notice
-are preserved on all copies.
+<META NAME="description" CONTENT="The TK-707 Rhythm Composer">
+<META NAME="keywords" CONTENT="The TK-707 Rhythm Composer">
+<META NAME="resource-type" CONTENT="document">
+<META NAME="distribution" CONTENT="global">
+<META NAME="Generator" CONTENT="texi2html 1.66">
 
+</HEAD>
 
+<BODY LANG="en" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000">
+
+<A NAME="SEC_Top"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1>The TK-707 Rhythm Composer</H1>
+This document is a brief statement of requirements to run tk707
+and a very introductory explanation of how to run it. This might
+be just enough for people not familiar with how these machines work
+but is not intended to be an exhaustive explanation.
+</P>
+<P>
+
+@dircategory Sound
+* tk707: (tk707).        The TK-707 Rhythm Composer.
+</P>
+<P>
+
+</P>
+<TABLE BORDER="0" CELLSPACING="0">
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC2">1.1 Building <CODE>tk707</CODE></A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC10">2.1 Terminology</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC12">2.3 Creating patterns</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC16">2.4 Playing patterns</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC17">2.5 Creating tracks</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC18">2.6 Editing tracks</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC19">2.7 Playing tracks</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC22">3.1 Midi files</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC20">2.8 Tempo changes</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC30">4.2 Last step changes</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC25">4.1 Scale changes</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC32">5.1 Accents</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC39">A.1 Synopsis</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC42">C. GNU General Public License</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC45">Index</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+</TABLE>
+<P>
+
+<HR SIZE=1>
+<A NAME="SEC1"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> 1. Installation </H1>
+<!--docid::SEC1::-->
+<P>
+
+<A NAME="Installation"></A>
+<TABLE BORDER="0" CELLSPACING="0">
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC3">1.2 Configure options</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC4">1.3 Installation</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC5">1.4 Running</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC6">1.5 Building the documentation</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC7">1.6 Comments, bug corrections and future versions</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC8">1.7 My card has no midi render...</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+<TR><TD ALIGN="left" VALIGN="TOP"><A HREF="tk707.html#SEC9">2. Getting started</A></TD><TD>&nbsp;&nbsp;</TD><TD ALIGN="left" VALIGN="TOP"></TD></TR>
+</TABLE>
 <P>
-Permission is granted to copy and distribute modified versions of this
-manual under the conditions for verbatim copying, provided that the entire
-resulting derived work is distributed under the terms of a permission
-notice identical to this one.
-
-
-
-
-<H1><A NAME="SEC1" HREF="tk707.html#TOC1">Installation</A></H1>
 
-<P>
 <A NAME="IDX1"></A>
 <A NAME="IDX2"></A>
 <A NAME="IDX3"></A>
 <A NAME="IDX4"></A>
-
-
+</P>
 <P>
-The TK-707 installation requires:
 
+The TK-707 installation requires:
 <UL>
 <LI>C compiler: to compile the source code.
-
 <LI>TCL/TK version 8.0 or later.
-
 Tested up to TCL/TK 8.3. Available free from <A HREF="http://www.scriptics.com">http://www.scriptics.com</A>
 <LI>Alsa: audio installation (at least version 0.5.0),
-
 available free from <A HREF="http://www.alsa-project.org">http://www.alsa-project.org</A>
 <LI>a sound card supported by Alsa.
-
 </UL>
-
 <P>
-and, at least one of these MIDI renders:
 
+and, at least one of these MIDI renders:
 <UL>
 <LI>an internal MIDI render hardware in your card.
-
 <LI>an external MIDI module with drum sounds (Tested Roland D-110 and TR-707).
-
 <LI>or any Alsa supported basic
-
-sound card together with the <CODE>timidity</CODE> software
-MIDI sequencer installed.
+sound card together with the <CODE>timidity</CODE> or the <CODE>iiwusynth</CODE> 
+	MIDI synthesis software installed.
 </UL>
-
 <P>
+
 Clearly, if you have neither a MIDI card nor an external MIDI module,
 you can successfully manage MIDI files by a MIDI software sequencer.
 See below.
-
-
+</P>
 <P>
-So far tested on
 
+So far tested on
 <UL>
+<LI>Linux - Debian 3.0 (kernel 2.4.18) with SB Live ! sound card
 <LI>Linux - Slackware 7.0 (kernel 2.2.14) with ESS1868 sound card
-
-<LI>Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card
-
 <LI>Linux - Mandrak (kernel 2.2.13-7mdk)
-
+<LI>Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card
 </UL>
+<P>
 
-
-
-<H2><A NAME="SEC2" HREF="tk707.html#TOC2">Building <CODE>tk707</CODE></A></H2>
-
-
-<PRE>
-	configure
+<HR SIZE="6">
+<A NAME="SEC2"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC3"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.1 Building <CODE>tk707</CODE> </H2>
+<!--docid::SEC2::-->
+<A NAME="Building tk707"></A>
+<P>
+
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	configure
 	make
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 The program consists of Tcl/Tk for the gui and C code for outputting
 the midi data.
 The Tcl/Tk code is compiled with the C code.
 The compiled target <CODE>tk707</CODE> is a self contained binary.
-
-
-
-
-<H2><A NAME="SEC3" HREF="tk707.html#TOC3">Configure options</A></H2>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC3"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC4"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.2 Configure options </H2>
+<!--docid::SEC3::-->
+<A NAME="Configure options"></A>
 <P>
+
 During the configuration step, you could also provide 
 to the <CODE>configure</CODE> script some 
-non-standard locations of the Alsa or Tcl/Tk libraries:
-
-<PRE>
-	configure --with-alsa-prefix=/usr/sound/lib \
+non-standard locations of the Alsa or Tcl/Tk libraries.
+On my Debian 3.0 installation, I use: 
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	configure --with-tcl-includes=/usr/include/tcl8.3
+</pre></td></tr></table>A more general example writes:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	configure --with-alsa-prefix=/usr/sound/lib \
 	  --with-alsa-inc-prefix=/usr/sound/include \
 	  --with-tcl-includes=/new/include   --with-tcl-libs=/usr/new/lib  \
 	  --with-tk-includes=/usr/new/include --with-tk-libs=/usr/new/lib 
 	make
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 Enter <CODE>configure --help</CODE> for a complete list of available options.
-
-
+</P>
 <P>
+
 It could also be useful to send compiler options to the
 <CODE>configure</CODE> script.
-
-<PRE>
-	CFLAGS="-O0" configure
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	CFLAGS=&quot;-O0&quot; configure
 	make
-</PRE>
-
-<P>
-Indeed, by default, <CODE>gcc</CODE> compiler
+</pre></td></tr></table>Indeed, by default, <CODE>gcc</CODE> compiler
 optimization flags are set to the maximum, i.e <CODE>-O9</CODE>. This
 is not supported for old <CODE>gcc</CODE> versions, where this feature
 failed on some combinations of Linux kernel versions and <CODE>gcc</CODE>
 version (e.g. Mandrake with kernel <CODE>Linux-2.2.13-7mdk</CODE> and 
 <CODE>pgcc-2.91.66</CODE>). Either update our environment or use lower
 optimization flags.
-
-
-
-
-<H2><A NAME="SEC4" HREF="tk707.html#TOC4">Installation</A></H2>
-
-<PRE>
-	make install
-</PRE>
-
 <P>
-The default installation directory is <TT>`/usr/local/bin'</TT> but this can be
-changed by using an extra configuration option:
-
 
+<HR SIZE="6">
+<A NAME="SEC4"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC3"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC5"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.3 Installation </H2>
+<!--docid::SEC4::-->
+<A NAME="Install"></A>
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	make install
+</pre></td></tr></table><P>
+
+The default installation directory is `<TT>/usr/local/bin</TT>' but this can be
+changed by using an extra configuration option:
+</P>
+<P>
 
-<PRE>
-	configure --prefix=/users/angela/music
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	configure --prefix=/users/angela/music
 	make install
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 will build and install <CODE>tk707</CODE> into the installation directory 
-<TT>`/users/angela/music/bin'</TT> as <CODE>tk707</CODE>.
-
-
-
-
-<H2><A NAME="SEC5" HREF="tk707.html#TOC5">Running</A></H2>
-
+`<TT>/users/angela/music/bin</TT>' as <CODE>tk707</CODE>.
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC5"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC4"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC6"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.4 Running </H2>
+<!--docid::SEC5::-->
+<A NAME="Running"></A>
 <P>
+
 If installation was done as in previous step, and assuming the installation
 directory is in your execution path, then the program is started with
+</P>
+<P>
 
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	tk707
+</pre></td></tr></table><P>
 
-
-<PRE>
-	tk707
-</PRE>
-
-<P>
 <A NAME="IDX5"></A>
 <A NAME="IDX6"></A>
-
-
+</P>
 <P>
-	A sample song is in <TT>`demo.dat'</TT> which can be
-loaded from the <CODE>File-&#62;Load Demo</CODE> menu. After loading, click the <KBD>START</KBD>
+
+	A sample song is in `<TT>demo.dat</TT>' which can be
+loaded from the <CODE>File-&gt;Load Demo</CODE> menu. After loading, click the <KBD>START</KBD>
 button and you should hear something if your
 hardware is set up correctly.
-
-
+</P>
 <P>
-<A NAME="IDX7"></A>
-
 
+<A NAME="IDX7"></A>
+</P>
 <P>
+
 When <CODE>tk707</CODE> is first started, a suitable output port needs to be selected.
 A selection gui comes up before the main TK-707 window to make this choice.
 The list on the right hand side should contain one or more entries from
@@ -281,148 +298,166 @@ Double click on the available output port you want to use, and it should
 be entered into the Selected Output box near the bottom. Now you can
 click on the OK button to use the selected output port for this invocation
 of TK-707. You can also click the SAVE button first to save this information
-(in <TT>`~/.tk707rc'</TT>) so that you don't need to make the selection next time you
-run TK-707. Note that <TT>`~/.tk707rc'</TT> is a plain text file which can be edited
+(in `<TT>~/.tk707rc</TT>') so that you don't need to make the selection next time you
+run TK-707. Note that `<TT>~/.tk707rc</TT>' is a plain text file which can be edited
 by hand if you want to.
-
-
+</P>
 <P>
+
 Alternatively, if you know what port you want to use, run <CODE>tk707</CODE> with
 the <CODE>-p</CODE> option, e.g.
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	tk707 -p 65:0
+</pre></td></tr></table><P>
 
-<PRE>
-	tk707 -p 65:0
-</PRE>
-
+Use of the <CODE>-p</CODE> option overrides any setting in the `<TT>~/.tk707rc</TT>' file.
+</P>
 <P>
-Use of the <CODE>-p</CODE> option overrides any setting in the <TT>`~/.tk707rc'</TT> file.
 
-
-<P>
 A list of suitable ports can also be obtained with the <CODE>-l</CODE> option, e.g.
-
-<PRE>
-	tk707 -l
-</PRE>
-
-
-
-<H2><A NAME="SEC6" HREF="tk707.html#TOC6">Building the documentation</A></H2>
-
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	tk707 -l
+</pre></td></tr></table><P>
+
+<HR SIZE="6">
+<A NAME="SEC6"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC5"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC7"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.5 Building the documentation </H2>
+<!--docid::SEC6::-->
+<A NAME="Building the documentation"></A>
 <P>
-<A NAME="IDX8"></A>
-
 
+<A NAME="IDX8"></A>
+</P>
 <P>
-The documentation in <TT>`.info'</TT> format, suitable for emacs,
-is contained in the distribution. You can browse it:
 
-<PRE>
-	info -f tk707.info
-</PRE>
+The documentation in `<TT>.info</TT>' format, suitable for emacs,
+is contained in the distribution. You can browse it:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	info -f tk707.info
+</pre></td></tr></table><P>
 
-<P>
 <A NAME="IDX9"></A>
 If you have the <CODE>texi2html</CODE> tool, the <CODE>html</CODE>
 version has been generated during the installation:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	netscape tk707_toc.html
+</pre></td></tr></table><P>
 
-<PRE>
-	netscape tk707_toc.html
-</PRE>
-
-<P>
 <A NAME="IDX10"></A>
 If you have TeX installed, a pretty version of the documentation
 is available:
-
-<PRE>
-	make dvi
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	make dvi
 	xdvi tk707.dvi
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 <A NAME="IDX11"></A>
 and also for printing:
-
-<PRE>
-	dvips tk707.dvi -o tk707.ps
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>	dvips tk707.dvi -o tk707.ps
 	lpr tk707.ps
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 Now, read the documentation and enjoy <CODE>tk707</CODE>.
-
-
-
-
-<H2><A NAME="SEC7" HREF="tk707.html#TOC7">Comments, bug corrections and future versions</A></H2>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC7"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC6"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC8"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.6 Comments, bug corrections and future versions </H2>
+<!--docid::SEC7::-->
+<A NAME="Comments and bugs corrections"></A>
 <P>
-We are keen for people to try it and send comments and suggestions.
-
 
+We are keen for people to try it and send comments and suggestions.
+</P>
 <P>
+
 Please, send comments,
 corrections, additions, bugs etc.. to
 <A HREF="mailto:chris@vislab.usyd.edu.au">chris@vislab.usyd.edu.au</A> and
 <A HREF="mailto:pierre.saramito@imag.fr">pierre.saramito@imag.fr</A>
-
-
+</P>
 <P>
-Future versions from the TK-707 home page:
 
+Future versions from the TK-707 home page:
 <UL>
 <LI>Australie: <A HREF="http://www.vislab.usyd.edu.au/staff/chris/tk707">http://www.vislab.usyd.edu.au/staff/chris/tk707</A>
-
 <LI>Europe: <A HREF="http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707">http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707</A>
-
 </UL>
+<P>
 
-
-
-<H2><A NAME="SEC8" HREF="tk707.html#TOC8">My card has no midi render...</A></H2>
-
+<HR SIZE="6">
+<A NAME="SEC8"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC7"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 1.7 My card has no midi render... </H2>
+<!--docid::SEC8::-->
+<A NAME="My card has no midi render"></A>
 <P>
+
 <A NAME="IDX12"></A>
 <A NAME="IDX13"></A>
 <A NAME="IDX14"></A>
-
-
+</P>
 <P>
+
 Don't worry, you are able to hear midi file with
 a basic audio sound card: 
 the <CODE>timidity</CODE> code is able to
 provides an Alsa sequencer interface which receives
 events and plays it in real-time.
-
-
+</P>
 <P>
+
 <CODE>timidity</CODE> is a public domain code available
 at <A HREF="http://www.goice.co.jp/member/mo/timidity">http://www.goice.co.jp/member/mo/timidity</A>. 
-
-
+</P>
 <P>
+
 On this mode, <CODE>timidity</CODE> works
 purely as software (real-time) midi render.
 There is no scheduling routine in this interface,
 since all scheduling is done by Alsa sequencer core.
-
-
+</P>
 <P>
+
 So, download <CODE>timidity</CODE> (at least version 2.10.0)
 and install as follow:
-
-<PRE>
-        configure --enable-server --enable-alsaseq --enable-alsatest \
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>        configure --enable-server --enable-alsaseq --enable-alsatest \
 		--enable-audio=alsa,wav,au,aiff,list,oss
 	make install
-</PRE>
+</pre></td></tr></table><P>
 
-<P>
 <A NAME="IDX15"></A>
-
-
+</P>
 <P>
+
 <CODE>timidity</CODE> software emulates the best sound cards.
 It requires some Gravis Ultra Sound (GUS) patches describing musical
 instruments.
@@ -431,34 +466,28 @@ The public domain EAW sound patch suite can be downloaded at
 This his a complete and high quality library,
 updated frequently.
 Especially, download the <CODE>gsdrums</CODE> percussion instrument library.
-
-
+</P>
 <P>
+
 Install these files in the <CODE>timidity</CODE> directory,
 usually <CODE>/usr/share/timidity</CODE>.
-
-
+</P>
 <P>
-For invoking Alsa sequencer interface, run <CODE>timidity</CODE> as follows:
 
-<PRE>
-      timidity -iA -B2,8 &#38;
-</PRE>
+For invoking Alsa sequencer interface, run <CODE>timidity</CODE> as follows:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>      timidity -iA -B2,8 &amp;
+</pre></td></tr></table><P>
 
-<P>
 The fragment size can be adjustable.  The smaller number gives
 better real-time response.  Then <CODE>timidity</CODE> shows new port numbers
 which were newly created (128:0 and 128:1 below).
-
-
+</P>
 <P>
-Finally, run <CODE>tk707</CODE>:
 
-<PRE>
-      tk707 -p 128:0
-</PRE>
+Finally, run <CODE>tk707</CODE>:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>      tk707 -p 128:0
+</pre></td></tr></table><P>
 
-<P>
 The <CODE>timidity</CODE> render is very flexible and rich, since you
 can add any instrument in your library by using GUS patch files.
 This modular approach is not always supported by all hardware
@@ -466,28 +495,54 @@ renders.
 Thus,  the software MIDI render solution is fruitful,
 and could be installed, even if you have a hardware or 
 external MIDI solution.
-
-
-
-
-<H1><A NAME="SEC9" HREF="tk707.html#TOC9">Getting started</A></H1>
-
-
-<H2><A NAME="SEC10" HREF="tk707.html#TOC10">Terminology</A></H2>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC9"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC8"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC10"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC1"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC2"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> 2. Getting started </H1>
+<!--docid::SEC9::-->
+<A NAME="Terminology"></A>
+<HR SIZE="6">
+<A NAME="SEC10"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC11"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.1 Terminology </H2>
+<!--docid::SEC10::-->
 <P>
+
 <A NAME="IDX16"></A>
 <A NAME="IDX17"></A>
 <A NAME="IDX18"></A>
-
-
+</P>
 <P>
+
 	Four song <EM>tracks</EM> are available. 
 You can think of a track as a song.
 Tracks are labeled by roman numbers: I, II, III and IV.
-
-
+</P>
 <P>
+
 	Each track is made of <EM>patterns</EM>, each with 16 <EM>steps</EM>.s
  You could think of
 a pattern as a bar of music. At each step in a pattern, any of the available
@@ -495,111 +550,143 @@ instruments can be set to play. Once you've made the patterns you want to
 use, you can combine them in any order into any of the four available
 tracks. Any particular pattern can be used in any of the tracks as many
 times as desired.
-
-
+</P>
 <P>
-<A NAME="IDX19"></A>
-
 
+<A NAME="IDX19"></A>
+</P>
 <P>
+
 	There are 64 patterns available in 4 <EM>groups</EM> of 16 each.
 Pattern groups are labeled by letters: A, B, C and D.
 The 4 groups are not at all related to the 4 tracks. Patterns from any group are
 available to any track.
-
-
-
-
-<H2><A NAME="SEC11" HREF="tk707.html#TOC11">Demonstrations</A></H2>
-<P>
-<A NAME="IDX20"></A>
-<A NAME="IDX21"></A>
-<A NAME="IDX22"></A>
-<A NAME="IDX23"></A>
-
-
-<P>
-	Some sample patterns and tracks are in <TT>`demo.dat'</TT> which can be
-loaded from the <CODE>File-&#62;Demo</CODE> menu. Something exists in each track of this
+</P>
+<P>
+
+<A NAME="Demonstrations"></A>
+<HR SIZE="6">
+<A NAME="SEC11"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC10"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC12"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.2 Demonstrations </H2>
+<!--docid::SEC11::-->
+<P>
+
+	Some sample patterns and tracks are in `<TT>demo.dat</TT>' which can be
+loaded from the <CODE>File-&gt;Demo</CODE> menu. Something exists in each track of this
 file so click the <KBD>START</KBD> button and you should hear something if your
 hardware is set up correctly. Part of this set up is the <EM>midi channel</EM>;
 the default midi channel is 10 (the default for D-110 drum sounds). You can
 change the output midi channel via the Midi menu or Shift-click on the
 <KBD>MIDI CH</KBD> button; a new window will appear for midi channel selection.
-
-
+</P>
 <P>
+
+<A NAME="IDX20"></A>
+<A NAME="IDX21"></A>
+<A NAME="IDX22"></A>
+<A NAME="IDX23"></A>
 <A NAME="IDX24"></A>
 <A NAME="IDX25"></A>
-<A NAME="IDX26"></A>
-<A NAME="IDX27"></A>
-<A NAME="IDX28"></A>
-<A NAME="IDX29"></A>
  	A second demonstration file shows the alternate <EM>727</EM> latin sound
 map. With this sound map, the software emulates a Roland <EM>727</EM>
 latin percussion rhythm composer.
-Loaded from the <CODE>File-&#62;Demo</CODE> menu the file <TT>`son-montuno.dat'</TT>,
-and then load the latin percussion sound map <TT>`727.map'</TT> from
-the <CODE>Map-&#62;Load Standard Sound Map</CODE> menu.
+Loaded from the <CODE>File-&gt;Demo</CODE> menu the file `<TT>son-montuno.dat</TT>',
+and then load the latin percussion sound map `<TT>727.map</TT>' from
+the <CODE>Map-&gt;Load Standard Sound Map</CODE> menu.
 Set also the tempo to 200 bpm.
 Then, click the <KBD>START</KBD> button.
-
-
+</P>
 <P>
-<A NAME="IDX30"></A>
-	An alternate sound map for latin percussion is <TT>`7c7.map'</TT>.
+
+<A NAME="IDX26"></A>
+	An alternate sound map for latin percussion is `<TT>7c7.map</TT>'.
 The <CODE>c</CODE> in <CODE>7c7</CODE> stands for cuba<A NAME="DOCF1" HREF="tk707.html#FOOT1">(1)</A>.
-can be loaded in the <CODE>Map-&#62;Load Standard Sound Map</CODE>. 
+can be loaded in the <CODE>Map-&gt;Load Standard Sound Map</CODE>. 
 This file has no Roland latin percussion rhythm composer equivalent,
 and has been designed for our pleasure. Click the <KBD>START</KBD> button
-and you will hear the file <TT>`son-montuno.dat'</TT> with another feeling.
-
-
+and you will hear the file `<TT>son-montuno.dat</TT>' with another feeling.
+</P>
 <P>
-<A NAME="IDX31"></A>
-<A NAME="IDX32"></A>
-<A NAME="IDX33"></A>
-Finally, a brazilian sound map <TT>`7b7.map'</TT> is presented.
+
+<A NAME="IDX27"></A>
+<A NAME="IDX28"></A>
+<A NAME="IDX29"></A>
+Finally, a brazilian sound map `<TT>7b7.map</TT>' is presented.
 The <CODE>b</CODE> in <CODE>7b7</CODE> stands for brazil<A NAME="DOCF2" HREF="tk707.html#FOOT2">(2)</A> and
-can be loaded together with the <TT>`carioca.dat'</TT> demonstration.
+can be loaded together with the `<TT>carioca.dat</TT>' demonstration.
 A good tempo is 220 bpm for the samba carioca.
-
-
+</P>
 <P>
+
 There is no more demonstration file for these sound maps, since 
 it is time for you to compose your music !
-
-
-
-
-<H2><A NAME="SEC12" HREF="tk707.html#TOC12">Creating patterns</A></H2>
+</P>
+<P>
+
+<A NAME="Creating patterns"></A>
+<HR SIZE="6">
+<A NAME="SEC12"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC11"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC13"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.3 Creating patterns </H2>
+<!--docid::SEC12::-->
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC13"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC12"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC14"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 2.3.1 Writing pattern </H3>
+<!--docid::SEC13::-->
 <P>
-<A NAME="IDX34"></A>
 
-
-
-
-<H3><A NAME="SEC13" HREF="tk707.html#TOC13">Writing pattern</A></H3>
-
-<P>
 	Shift-click the <KBD>PATTERN</KBD> button to enter Pattern Write mode. While
 <KBD>START</KBD> is not pressed, the 16 instrument/step keys at the bottom of the
 interface are dual purposed.
-
-
+</P>
 <P>
+
 	Clicking on a key changes which pattern, 1-16, (within the current
 group) is selected for writing. A small lamp above one of the <EM>group pattern</EM>
 buttons indicates the current group. The current group may be changed by
 clicking group pattern button <KBD>A</KBD>, <KBD>B</KBD>, <KBD>C</KBD> or <KBD>D</KBD>.
-
-
+</P>
 <P>
-<A NAME="IDX35"></A>
-<A NAME="IDX36"></A>
-
 
+<A NAME="IDX30"></A>
+<A NAME="IDX31"></A>
+</P>
 <P>
+
 	Shift-clicking on the <EM>instrument/step</EM> keys selects which instrument
 is selected to be written into the current pattern. Click the <KBD>START</KBD>
 button; now as you click of the instrument/step keys, the selected
@@ -608,149 +695,210 @@ instrument has already been set at that step, then clicking there will
 remove it. To select another instrument, press the <KBD>STOP/CONT</KBD> button
 then select another instrument using Shift-click on the appropriate
 instrument/step key.
-
-
+</P>
 <P>
+
 	Continue adding instruments at the required steps to complete the
 pattern. Make all the patterns you will need for a new song.
-
-
+</P>
 <P>
+
 	A pattern may be cleared of all notes while in Pattern Write mode;
 clicking on the <KBD>CLEAR</KBD> button will raise a dialog window to confirm
 clearing of the current pattern.
-
-
-
-
-<H3><A NAME="SEC14" HREF="tk707.html#TOC14">Copy/paste and copy/merge</A></H3>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC14"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC13"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC15"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 2.3.2 Copy/paste and copy/merge </H3>
+<!--docid::SEC14::-->
 <P>
-<A NAME="IDX37"></A>
-<A NAME="IDX38"></A>
-
 
-<P>
 	Another method of creating new patterns is to copy an existing
 pattern and pasting it to a new location, then modifying the new version.
 This is an efficient method of creating a number of patterns which are
 small variations of each other. Select the pattern to be copied and press
 <KBD>CRTL</KBD>-<KBD>C</KBD> (<KBD>CONTROL</KBD> key and <KBD>C</KBD> key together). 
-
-
+</P>
 <P>
+
 	Now select a new (empty?)
 pattern location and press <KBD>Ctrl</KBD>-<KBD>V</KBD> or <KBD>Ctrl</KBD>-<KBD>B</KBD> 
 to <EM>paste</EM> in the copied notes.
-
-
+</P>
 <P>
+
 Using <KBD>Ctrl</KBD>-<KBD>V</KBD> will clear the destination location of any notes it already
 contains whereas <KBD>Ctrl</KBD>-<KBD>B</KBD> will <EM>merge</EM> its current contents with the new note
 information.
-
-
-
-
-<H3><A NAME="SEC15" HREF="tk707.html#TOC15">The pattern display grid</A></H3>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC15"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC14"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC16"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 2.3.3 The pattern display grid </H3>
+<!--docid::SEC15::-->
 <P>
-<A NAME="IDX39"></A>
-
 
-<P>
 	The third method uses the pattern display grid. Double-click near
 an instrument/step intersection to add the instrument at that step. If
 the instrument already exists at that step then it is deleted. This is
 probably the easiest way of creating patterns.
-
-
-
-
-<H2><A NAME="SEC16" HREF="tk707.html#TOC16">Playing patterns</A></H2>
-
+</P>
+<P>
+
+<A NAME="Playing patterns"></A>
+<HR SIZE="6">
+<A NAME="SEC16"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC15"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC17"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.4 Playing patterns </H2>
+<!--docid::SEC16::-->
 <P>
+
         Click the <KBD>PATTERN</KBD> button to enter Pattern Play mode.
 While the <KBD>START</KBD> button is depressed, the currently selected pattern will play.
 Clicking on different pattern keys at the bottom of the interface will
 select a new pattern (<KBD>1</KBD>,..,<KBD>16</KBD>) in the current group. If not currently playing,
 the new pattern is displayed immediately. If a pattern is already playing,
 the new pattern will play when the current pattern is finished.
-
-
+</P>
 <P>
+
         Selecting a different group also changes the current pattern,
 i.e. if pattern 7 in group I is selected, then when group 2 is selected
 the new pattern will be pattern 7 in group II. Sixteen patterns are
 available in each of the four groups for a total of sixty-four patterns.
-
-
-
-
-<H2><A NAME="SEC17" HREF="tk707.html#TOC17">Creating tracks</A></H2>
-
+</P>
+<P>
+
+<A NAME="Creating tracks"></A>
+<HR SIZE="6">
+<A NAME="SEC17"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC16"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC18"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.5 Creating tracks </H2>
+<!--docid::SEC17::-->
 <P>
-        Shift-click the <KBD>TRACK</KBD> button to enter Track Write mode.
-
 
+        Shift-click the <KBD>TRACK</KBD> button to enter Track Write mode.
+</P>
 <P>
+
         To start from an empty track, delete anything already there (Shift-click
 on the <KBD>CLEAR</KBD> button) if necessary. Now select a pattern to add to the track
 and click on the enter key as many times as that pattern is required. Then
 select the next pattern to add and click on the enter key as many times as
 that pattern is required.
-
-
+</P>
 <P>
+
         E.g., selecting pattern 3 and clicking on the <KBD>ENTER</KBD> button 4 times,
 then selecting pattern 9 and clicking on the <KBD>ENTER</KBD> button 2 times will
 result in a track of six measures - 4 of pattern 3 followed by 2 measures
 of pattern 9.
-
-
+</P>
 <P>
-        Changes to a track being created can be made.
-See section <A HREF="tk707.html#SEC18">Editing tracks</A>.
-
 
+        Changes to a track being created can be made.
+See section <A HREF="tk707.html#SEC18">2.6 Editing tracks</A>.
+</P>
 <P>
+
         The currently selected pattern can be heard playing if the <KBD>START</KBD> button
 is clicked. This enables an audible preview of selected patterns prior
 to adding them to the track.
-
-
-
-
-<H2><A NAME="SEC18" HREF="tk707.html#TOC18">Editing tracks</A></H2>
-
+</P>
+<P>
+
+<A NAME="Editing tracks"></A>
+<HR SIZE="6">
+<A NAME="SEC18"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC17"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC19"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.6 Editing tracks </H2>
+<!--docid::SEC18::-->
 <P>
-        Shift-click the <KBD>TRACK</KBD> button to enter Track Write mode.
-
 
+        Shift-click the <KBD>TRACK</KBD> button to enter Track Write mode.
+</P>
 <P>
-        Track editing is only possible in Track Write mode.
-
 
+        Track editing is only possible in Track Write mode.
+</P>
 <P>
+
         Deletions of tracks (or parts of them) require confirmation (via a
 dialog window).
-
-
+</P>
 <P>
-        Shift-click on the <KBD>CLEAR</KBD> button deletes all of the current track.
-
 
+        Shift-click on the <KBD>CLEAR</KBD> button deletes all of the current track.
+</P>
 <P>
-        Ctrl-click on the <KBD>CLEAR</KBD> button deletes the current measure from the track.
-
 
+        Ctrl-click on the <KBD>CLEAR</KBD> button deletes the current measure from the track.
+</P>
 <P>
+
         Shift-Ctrl-click on the <KBD>CLEAR</KBD> button deletes the rest of the current track,
 including the current measure. On some systems (including mine!) this
 actually requires the <KBD>Ctrl</KBD> key as well i.e. <KBD>Shift</KBD> + <KBD>Ctrl</KBD> keys 
 + mouse click.
 Consider this a minor bug to be fixed sometime.
-
-
+</P>
 <P>
+
         Adding patterns to a track involves selecting a pattern then a click or
 Shift-click on the <KBD>ENTER</KBD> button. Think of Shift-click on <KBD>ENTER</KBD> as an insert
 operation into the track before the current measure. An ordinary click on
@@ -758,122 +906,180 @@ operation into the track before the current measure. An ordinary click on
 measure with the currently selected pattern. However if you're at the end
 of the current track this behaves like an append operation - it adds new
 measures to the end of the track.
-
-
+</P>
 <P>
+
         The currently selected pattern can be heard playing if the <KBD>START</KBD> button
 is clicked. This enables an audible preview of selected patterns prior
 to adding them to the track.
-
-
+</P>
 <P>
+
         Different parts of the track can be accessed by clicking on the <KBD>BACK</KBD>
 and <KBD>FWD</KBD> buttons. Shift-click on the <KBD>LAST MEAS</KBD> button to go to the end of
 the track. Note that this goes to the measure just past the end of the
 track (ready to write the next measure). An ordinary click on the <KBD>LAST MEAS</KBD>
 button will momentarily show the last (+1) measure while the button is
 held down.
-
-
-
-
-<H2><A NAME="SEC19" HREF="tk707.html#TOC19">Playing tracks</A></H2>
-
+</P>
+<P>
+
+<A NAME="Playing tracks"></A>
+<HR SIZE="6">
+<A NAME="SEC19"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC18"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC20"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.7 Playing tracks </H2>
+<!--docid::SEC19::-->
 <P>
-<A NAME="IDX40"></A>
-
 
+<A NAME="IDX32"></A>
+</P>
 <P>
+
 Click on the <KBD>TRACK</KBD> button to enter the <CODE>Track Play</CODE> mode.
 Then click on the <KBD>START</KBD> button and the current track will be
 played.
-
-
+</P>
 <P>
+
 Select another track, e.g. track IV, by
 Shift-clicking a the corresponding track button:
 <KBD>Shift</KBD>-<KBD>IV</KBD>. Then enter <KBD>START</KBD> for playing the song.
-
-
-
-
-<H2><A NAME="SEC20" HREF="tk707.html#TOC20">Tempo changes</A></H2>
-
+</P>
+<P>
+
+<A NAME="Tempo changes"></A>
+<HR SIZE="6">
+<A NAME="SEC20"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC19"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 2.8 Tempo changes </H2>
+<!--docid::SEC20::-->
 <P>
-<A NAME="IDX41"></A>
-
 
+<A NAME="IDX33"></A>
+</P>
 <P>
+
 	The tempo may be changed in either Track or Pattern mode. The tempo
 is lowered by Clicking in the tempo dial and then Click-Dragging around.
 It  its increased by Click-Dragging to the left from the tempo dial; its increased
 by Click-Dragging to the right.
-
-
+</P>
 <P>
-<A NAME="IDX42"></A>
-
 
+<A NAME="IDX34"></A>
+</P>
 <P>
+
 	Tempo changes can't be written into a track. If saving a track as an
 midi file, the whole track will have whatever tempo is selected at the
 time of saving.
-
-
-
-
-<H1><A NAME="SEC21" HREF="tk707.html#TOC21">Midi files and sounds</A></H1>
-
-
-<H2><A NAME="SEC22" HREF="tk707.html#TOC22">Midi files</A></H2>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC21"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC20"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC22"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC9"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> 3. Midi files and sounds </H1>
+<!--docid::SEC21::-->
+<A NAME="Midi files"></A>
+<HR SIZE="6">
+<A NAME="SEC22"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC23"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 3.1 Midi files </H2>
+<!--docid::SEC22::-->
 <P>
-<A NAME="IDX43"></A>
-
 
+<A NAME="IDX35"></A>
+</P>
 <P>
-<A NAME="IDX44"></A>
 
-
-<P>
 	Currently only single track Midi files can be exported. When the
-<CODE>Midi File-&#62;Save</CODE> is selected a file browser appears into which the name
+<CODE>Midi File-&gt;Save</CODE> is selected a file browser appears into which the name
 of the file is entered. Its not crucial but it is a convention to
-have a <TT>`.mid'</TT> ending on the filename. When a name has been nominated,
+have a `<TT>.mid</TT>' ending on the filename. When a name has been nominated,
 the current track will be exported, including midi channel and tempo
 information i.e. make sure these have the values you want first.
-
-
+</P>
 <P>
-<A NAME="IDX45"></A>
-
 
+<A NAME="IDX36"></A>
+</P>
 <P>
+
 	Tempo changes can't be written into a track. If saving a track as an
 midi file, the whole track will have whatever tempo is selected at the
 time of saving.
-
-
+</P>
 <P>
-<A NAME="IDX46"></A>
-
 
+<A NAME="IDX37"></A>
+</P>
 <P>
+
 	Volume controls are used when saving a midi file:
 master, accent and volume controls associated to instruments.
-
-
-
-
-<H2><A NAME="SEC23" HREF="tk707.html#TOC23">Sound maps</A></H2>
+</P>
+<P>
+
+<A NAME="Sound maps"></A>
+<HR SIZE="6">
+<A NAME="SEC23"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC22"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 3.2 Sound maps </H2>
+<!--docid::SEC23::-->
 <P>
-<A NAME="IDX47"></A>
-<A NAME="IDX48"></A>
-<A NAME="IDX49"></A>
-<A NAME="IDX50"></A>
-<A NAME="IDX51"></A>
-
 
-<P>
 	TK-707 <EM>sound maps</EM> are mappings of the 16 instrument keys to
 descriptions of their long names, short names, abbreviate name and midi note values.
 The first (longer) names are used in the pattern grid display, while the
@@ -884,124 +1090,169 @@ being used with TK-707 (either external or built into a sound card).
 Appropriate values will need to be gleaned from your hardware documentation,
 however the built in values should work on any module conforming to
 the General Midi standard.
-
-
+</P>
 <P>
-<A NAME="IDX52"></A>
-<A NAME="IDX53"></A>
-
 
+<A NAME="IDX38"></A>
+<A NAME="IDX39"></A>
+</P>
 <P>
-The built-in sound map is supplied as an example in the <TT>`707.map'</TT> file.
-A second file, <TT>`727.map'</TT>, is supplied and can be loaded to play with
+
+The built-in sound map is supplied as an example in the `<TT>707.map</TT>' file.
+A second file, `<TT>727.map</TT>', is supplied and can be loaded to play with
 the sounds of Roland's TR-727, the latin percussion counterpart of the
 TR-707. Note that the 727 mapping won't work on a 707 because it doesn't
 recognize the necessary range of midi note values. It will work on
 modules (such as Roland D-110) which do recognize the necessary range.
-
-
+</P>
 <P>
-<A NAME="IDX54"></A>
-
 
+<A NAME="IDX40"></A>
+</P>
 <P>
-Files with similar layout to the supplied <TT>`.map'</TT> can be constructed using a
-text editor and loaded into TK-707 from the <CODE>Map-&#62;Load Local Sound Map</CODE> menu.
-
 
+Files with similar layout to the supplied `<TT>.map</TT>' can be constructed using a
+text editor and loaded into TK-707 from the <CODE>Map-&gt;Load Local Sound Map</CODE> menu.
+</P>
 <P>
-<A NAME="IDX55"></A>
-
 
+<A NAME="IDX41"></A>
+</P>
 <P>
+
 Alternatively, the currently loaded sound map can be edited via an editing
-interface which is accessed from the <CODE>Map-&#62;Edit Sound Map</CODE> menu. Just change
+interface which is accessed from the <CODE>Map-&gt;Edit Sound Map</CODE> menu. Just change
 the name, short name and midi note values as required and press the <KBD>APPLY</KBD>
 button to apply the new settings to TK-707. The Cancel button will revert
 sound setting to whatever they were before the editing window was started.
 The <KBD>OK</KBD> button will apply the currently edited settings and close the
 editing window.
-
-
+</P>
 <P>
+
 As new midi note values are entered for an instrument, the sound that they
 access in the midi sound module can be previewed using the <KBD>TEST</KBD> buttons.
 To speed the process of finding suitable sounds, three keyboard/mouse
 shortcuts are provided:
-
 <UL>
 <LI>
-
-	<KBD>Shift</KBD> + <KBD>Mouse button 1</KBD> in the "Note" widget
+	<KBD>Shift</KBD> + <KBD>Mouse button 1</KBD> in the &quot;Note&quot; widget
 	increments the value by 1 and test plays the new sound;
 <LI>
-
-	<KBD>Ctrl</KBD> + <KBD>Mouse button 1</KBD> in the "Note" widget
+	<KBD>Ctrl</KBD> + <KBD>Mouse button 1</KBD> in the &quot;Note&quot; widget
 	decrements the value by 1 and test plays the new sound;
 <LI>
-
-	<KBD>Mouse button 2</KBD> in the "Note" widget and dragging up or down
+	<KBD>Mouse button 2</KBD> in the &quot;Note&quot; widget and dragging up or down
 	continuously decrement or increments the note value and test plays.
 the new sound.
 </UL>
-
 <P>
-<A NAME="IDX56"></A>
-
 
+<A NAME="IDX42"></A>
+</P>
 <P>
-Any editing of sound maps are lost if TK-707 is closed down without saving
-the sound map. A sound map can be saved using the <CODE>Map-&#62;Save Sound Map</CODE> menu
-item. A file suffix of <TT>`.map'</TT> is recommended (but not absolutely required).
-
-
-
-
-<H1><A NAME="SEC24" HREF="tk707.html#TOC24">Ternary feelings and poly-rhythms</A></H1>
-
-
-<H2><A NAME="SEC25" HREF="tk707.html#TOC25">Scale changes</A></H2>
 
+Any editing of sound maps are lost if TK-707 is closed down without saving
+the sound map. A sound map can be saved using the <CODE>Map-&gt;Save Sound Map</CODE> menu
+item. A file suffix of `<TT>.map</TT>' is recommended (but not absolutely required).
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC24"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC23"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC25"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC21"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> 4. Ternary feelings and poly-rhythms </H1>
+<!--docid::SEC24::-->
+<A NAME="Scale changes"></A>
+<HR SIZE="6">
+<A NAME="SEC25"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC26"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 4.1 Scale changes </H2>
+<!--docid::SEC25::-->
 <P>
-<A NAME="IDX57"></A>
-
 
+<A NAME="IDX43"></A>
+</P>
 <P>
-	This feature is related to fast figures and 6/8 figures.
-
 
+	This feature is related to fast figures and 6/8 figures.
+</P>
 <P>
+
 	Four scales are available on each pattern.
 Click on the <KBD>SCALE</KBD> in Pattern Write mode for changing the scale
 of the current pattern.
 A small lamp on the left of the musical score score
 indicates the current scale. For each scale, a vertical bar
 indicates the duration of a whole note.
-
-
-
-
-<H3><A NAME="SEC26" HREF="tk707.html#TOC26">Binary 4/4 measures</A></H3>
-<P>
-<A NAME="IDX58"></A>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC26"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC25"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC27"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 4.1.1 Binary 4/4 measures </H3>
+<!--docid::SEC26::-->
 	On the first scale, the whole note duration is 
 	decomposed into sixteenth. Each sixteenth is associated to the
 	a step of the pattern. 
 	There is 16 sixteenth in the pattern
 	if the last step is set to 16, and then
 	the total duration of the pattern is those of a whole note.
-
-
 <P>
+
 	This is the default scale when creating pattern
 	associated to a 4/4 measure.
-
-
-
-
-<H3><A NAME="SEC27" HREF="tk707.html#TOC27">Binary 2/4 measures</A></H3>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC27"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC26"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC28"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 4.1.2 Binary 2/4 measures </H3>
+<!--docid::SEC27::-->
 <P>
+
 	For the second scale, the whole duration is
 	decomposed into eighthes. Each eighthes is associated
 	to a step of the pattern. When the last step is set to
@@ -1012,189 +1263,298 @@ indicates the duration of a whole note.
 	The pattern is then a 2/4 measure.
 	The whole duration should be recovered in a song by
 	inserting two of such patterns.
-
-
+</P>
 <P>
+
 	This scale is designated for fast schemes on binary
 	songs.
-
-
-
-
-<H3><A NAME="SEC28" HREF="tk707.html#TOC28">Triplets and composed 12/4 measures</A></H3>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC28"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC27"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC29"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 4.1.3 Triplets and composed 12/4 measures </H3>
+<!--docid::SEC28::-->
 <P>
-<A NAME="IDX59"></A>
-<A NAME="IDX60"></A>
 
-
-<P>
 	On the third scale, the whole duration is decomposed into
 	four third of a quarter. Each third of a quarter is
 	associated to a step of the pattern. 
-
-
+</P>
 <P>
+
 	When the last step is set to 12,
-	the total duration of the pattern is those of a whole note see section <A HREF="tk707.html#SEC30">Last step changes</A>.
+	the total duration of the pattern is those of a whole note see section <A HREF="tk707.html#SEC30">4.2 Last step changes</A>.
 	The pattern is then a 12/4 measure.
-
-
+</P>
 <P>
+
  	Alternatively, the last could be set to 9 or 15 and then
 	the pattern is a 9/4 or a 15/4 measure, respectively.
-
-
+</P>
 <P>
+
 	This pattern is designated for ternary-based measures or
 	for inserting ternary feelings (triplets) into
 	a binary song.
-
-
-
-
-<H3><A NAME="SEC29" HREF="tk707.html#TOC29">Sextuplets and composed 12/8 measures</A></H3>
-<P>
-<A NAME="IDX61"></A>
-<A NAME="IDX62"></A>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC29"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC28"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC30"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 4.1.4 Sextuplets and composed 12/8 measures </H3>
+<!--docid::SEC29::-->
 	Finally, the fourth scale decomposes the whole duration 
 	into two sextuplets (12 times 1/6 of a quarter sextuplets).
 	Each 1/6 of a quarter is associated to a step of the
 	pattern.
-	When the last step is set to 12. See section <A HREF="tk707.html#SEC30">Last step changes</A>,
+	When the last step is set to 12. See section <A HREF="tk707.html#SEC30">4.2 Last step changes</A>,
 	the total duration of the pattern is those
 	of a half whole note.
 	The whole duration should be recovered in a song by
 	inserting two of such patterns.
 	The pattern is then a 12/8 measure.
-
-
 <P>
-<A NAME="IDX63"></A>
-
 
+<A NAME="IDX44"></A>
+</P>
 <P>
+
 	Since each quarter is represented by 6 steps on
 	the pattern, we are able to superpose binary and ternary
 	schemes, i.e. poly-rhythmic effects.
-
-
+</P>
 <P>
-	The <TT>`son-montuno.dat'</TT> demonstrates such effects.
-
 
+	The `<TT>son-montuno.dat</TT>' demonstrates such effects.
+</P>
 <P>
+
 	This pattern is designated for fast schemes on
 	ternary based measures or
 	for inserting ternary feelings (triplets) into
 	a binary song.
-
-
-
-
-<H2><A NAME="SEC30" HREF="tk707.html#TOC30">Last step changes</A></H2>
-
+</P>
+<P>
+
+<A NAME="Last step changes"></A>
+<HR SIZE="6">
+<A NAME="SEC30"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC29"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 4.2 Last step changes </H2>
+<!--docid::SEC30::-->
 <P>
-<A NAME="IDX64"></A>
-
 
+<A NAME="IDX45"></A>
+</P>
 <P>
+
 Remarks that the last step is not automatically
 changed from 16 to 12 when changing the scale of a pattern. 
 It could be chosen to 15 for the scale 3, for instance.
-
-
+</P>
 <P>
+
 Click on the <KBD>LAST STEP</KBD> in Pattern Write mode for changing the scale.
 A new window will appear for last scale
 selection of the last step associated to the current pattern.
-
-
-
-
-<H1><A NAME="SEC31" HREF="tk707.html#TOC31">Accents and flam</A></H1>
-
-
-<H2><A NAME="SEC32" HREF="tk707.html#TOC32">Accents</A></H2>
-
-
-
-<H3><A NAME="SEC33" HREF="tk707.html#TOC33">Inserting accentuated notes</A></H3>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC31"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC30"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC32"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC24"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> 5. Accents and flam </H1>
+<!--docid::SEC31::-->
+<A NAME="Accents and flam"></A>
+<HR SIZE="6">
+<A NAME="SEC32"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC33"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 5.1 Accents </H2>
+<!--docid::SEC32::-->
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC33"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC32"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC34"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 5.1.1 Inserting accentuated notes </H3>
+<!--docid::SEC33::-->
 <P>
-<A NAME="IDX65"></A>
-<A NAME="IDX66"></A>
-<A NAME="IDX67"></A>
-<A NAME="IDX68"></A>
-
 
+<A NAME="IDX46"></A>
+<A NAME="IDX47"></A>
+<A NAME="IDX48"></A>
+<A NAME="IDX49"></A>
+</P>
 <P>
+
 There is two available accents: a weak and a strong one.
 Use the weak accent 
 by clicking on the <KBD>ACCENT</KBD> button in Pattern Step Write 
 or Pattern Tap Write modes. 
-The "accent" text at the bottom of the button becomes orange.
+The &quot;accent&quot; text at the bottom of the button becomes orange.
 Enter then notes as usual: notes are <EM>weakly accentuated</EM> and
 the circle marker is orange, instead of the usual grey.
-
-
+</P>
 <P>
-<A NAME="IDX69"></A>
-
 
+<A NAME="IDX50"></A>
+</P>
 <P>
+
 Use the strong accent by clicking a second times on the <KBD>ACCENT</KBD> 
 button.
-Now, the "accent" text becomes red.
+Now, the &quot;accent&quot; text becomes red.
 Then, enter notes: they are <EM>strongly accentuated</EM>
 and the circle marker is red too.
-
-
+</P>
 <P>
+
 Then, click a third times on the <KBD>ACCENT</KBD> button.
-The "accent" text at the bottom of the button comes back to
+The &quot;accent&quot; text at the bottom of the button comes back to
 the initial foreground color. 
 When you insert notes, they will be no more accentuated.
-
-
+</P>
 <P>
+
 In Pattern Step Write mode, you could also insert notes
 by using the <KBD>1</KBD>,..,<KBD>16</KBD> step touchs.
 Conversely, in Pattern Tap Write, you could also 
 use the instrument keys, e.g. <KBD>Cowbell</KBD>.
-
-
-
-
-<H3><A NAME="SEC34" HREF="tk707.html#TOC34">Controlling the accent intensity</A></H3>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC34"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC33"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC35"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 5.1.2 Controlling the accent intensity </H3>
+<!--docid::SEC34::-->
 <P>
-<A NAME="IDX70"></A>
-
 
+<A NAME="IDX51"></A>
+</P>
 <P>
+
 The weak and strong accent intensities could be
-modulated by using the volume control labeled "AC".
+modulated by using the volume control labeled &quot;AC&quot;.
 Moves the label control up and down. 
 When up, accent effects are maximum while when down,
 there is no more perceptible accent effects.
 The volume control of accents is global.
-
-
-
-
-<H2><A NAME="SEC35" HREF="tk707.html#TOC35">Flam</A></H2>
-
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC35"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC34"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC36"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> 5.2 Flam </H2>
+<!--docid::SEC35::-->
 <P>
-<A NAME="IDX71"></A>
-<A NAME="IDX72"></A>
-<A NAME="IDX73"></A>
-<A NAME="IDX74"></A>
-
-
-
 
-<H3><A NAME="SEC36" HREF="tk707.html#TOC36">Inserting flams</A></H3>
-<P>
+<A NAME="IDX52"></A>
+<A NAME="IDX53"></A>
+<A NAME="IDX54"></A>
+<A NAME="IDX55"></A>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC36"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC35"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC37"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 5.2.1 Inserting flams </H3>
+<!--docid::SEC36::-->
  
 Flam is a kick note written ahead of the main beat,
 and takes on the effect of a <EM>grace note</EM>.
@@ -1203,14 +1563,13 @@ Control-double-click
 near an instrument/step intersection
 to insert a flam note for this instrument at that step.
 Instead of the circle marker, a star marker represents the flam note
-at the selected intersection see section <A HREF="tk707.html#SEC12">Creating patterns</A>.
-
-
+at the selected intersection see section <A HREF="tk707.html#SEC12">2.3 Creating patterns</A>.
 <P>
-<A NAME="IDX75"></A>
-
 
+<A NAME="IDX56"></A>
+</P>
 <P>
+
 There is another way for inserting flams:
 In Pattern Step Write mode, click the <KBD>START</KBD> button; 
 Select an instrument by shift-clicking on an instrument/step key,
@@ -1220,185 +1579,243 @@ snare will be added at that step 4.
 Instead of this, if you control-click on the instrument/step keys, 
 e.g. <KBD>Ctrl</KBD>-<KBD>4</KBD>, then a snare note with a flam is inserted
 at step 4.
-
-
+</P>
 <P>
-<A NAME="IDX76"></A>
+
+<A NAME="IDX57"></A>
 Conversely, in Pattern Tap Write mode, enter a flam by 
 using the <KBD>Ctrl</KBD>-<KBD>Cowbell</KBD>.
  
-<A NAME="IDX77"></A>
-
-
+<A NAME="IDX58"></A>
+</P>
 <P>
+
 Flam could be combined with accents, and the associated
 star marker becomes orange or red, depending on the weak or strong accent.
-
-
-
-
-<H3><A NAME="SEC37" HREF="tk707.html#TOC37">Controlling the flam interval</A></H3>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC37"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC36"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H3> 5.2.2 Controlling the flam interval </H3>
+<!--docid::SEC37::-->
 <P>
-<A NAME="IDX78"></A>
-
 
-<P>
 The time between the grace note and its following main note
 can be varied in the range 0:4.
 The default value is 2.
 A zero value means that flam is off.
 Each pattern has an associated flam interval value.
-
-
+</P>
 <P>
+
 Click on the <KBD>FLAM/SHUFFLE</KBD> button in Pattern Write mode
 for changing the flam interval of the current pattern.
 A new window will appear for the flam interval selection.
-
-
-
-
-<H1><A NAME="SEC38" HREF="tk707.html#TOC38">Command line options</A></H1>
-
-
-
-<H2><A NAME="SEC39" HREF="tk707.html#TOC39">Synopsis</A></H2>
-
-<PRE>
-   tk707 options...
-</PRE>
-
-
-
-<H2><A NAME="SEC40" HREF="tk707.html#TOC40">Options</A></H2>
+</P>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC38"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC37"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC39"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC31"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> A. Command line options </H1>
+<!--docid::SEC38::-->
+<A NAME="Command line options"></A>
+<P>
+
+<HR SIZE="6">
+<A NAME="SEC39"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC40"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> A.1 Synopsis </H2>
+<!--docid::SEC39::-->
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>   tk707 options...
+</pre></td></tr></table><P>
+
+<HR SIZE="6">
+<A NAME="SEC40"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC39"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> A.2 Options </H2>
+<!--docid::SEC40::-->
 <DL COMPACT>
-
 <DT><CODE>-l</CODE>
-<DD>
-	List the available sound ports
+<DD>	List the available sound ports
 <DT><CODE>-p <VAR>port</VAR></CODE>
-<DD>
-	Use this port
+<DD>	Use this port
 <DT><CODE>-small</CODE>
-<DD>
-<DT><CODE>-medium</CODE>
-<DD>
-<DT><CODE>-normalsize</CODE>
-<DD>
-	Set the size of the window, since some screens are too small
+<DD><DT><CODE>-medium</CODE>
+<DD><DT><CODE>-normalsize</CODE>
+<DD>	Set the size of the window, since some screens are too small
    	for the whole window.
 <DT><CODE>-display <VAR>screen id</VAR></CODE>
-<DD>
-	Display to use.
-<A NAME="IDX79"></A>
+<DD>	Display to use.
+<A NAME="IDX59"></A>
 <DT><CODE>-use <VAR>window id</VAR>.</CODE>
-<DD>
-	Id of window in which to embed application.
+<DD>	Id of window in which to embed application.
 	See <CODE>xwininfo</CODE>.
 <DT><CODE>-geometry</CODE>
-<DD>
-	Initial geometry for window
+<DD>	Initial geometry for window
 <DT><CODE>-colormap</CODE>
-<DD>
-	Colormap for main window
+<DD>	Colormap for main window
 <DT><CODE>-name</CODE>
-<DD>
-	Name to use for application
+<DD>	Name to use for application
 <DT><CODE>-sync</CODE>
-<DD>
-	Use synchronous mode for display server
+<DD>	Use synchronous mode for display server
 <DT><CODE>-visual</CODE>
-<DD>
-	Visual for main window.
+<DD>	Visual for main window.
 <DT><CODE>-h</CODE>
-<DD>
-<DT><CODE>-help</CODE>
-<DD>
-	Print short help.
+<DD><DT><CODE>-help</CODE>
+<DD>	Print short help.
 </DL>
-
-
-
-<H1><A NAME="SEC41" HREF="tk707.html#TOC41">Converting MIDI to audio WAV and MP3</A></H1>
 <P>
-<A NAME="IDX80"></A>
-<A NAME="IDX81"></A>
-<A NAME="IDX82"></A>
-<A NAME="IDX83"></A>
-<A NAME="IDX84"></A>
-<A NAME="IDX85"></A>
-<A NAME="IDX86"></A>
-<A NAME="IDX87"></A>
-<A NAME="IDX88"></A>
-
 
+<HR SIZE="6">
+<A NAME="SEC41"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC40"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC42"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC38"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC42"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> B. Converting MIDI to audio WAV and MP3:: </H1>
+<!--docid::SEC41::-->
+<A NAME="Converting MIDI to audio WAV and MP3"></A>
+<A NAME="IDX60"></A>
+<A NAME="IDX61"></A>
+<A NAME="IDX62"></A>
+<A NAME="IDX63"></A>
+<A NAME="IDX64"></A>
+<A NAME="IDX65"></A>
+<A NAME="IDX66"></A>
+<A NAME="IDX67"></A>
+<A NAME="IDX68"></A>
 <P>
+
 This small annex explain how to convert your output
 midi file to formatted audio file (ex. RIFF WAVE)
 and compressed MP3 audio files. We assume your have
-converted your file <TT>`salsa.dat'</TT> into MIDI format <TT>`salsa.mid'</TT>
-in the <CODE>tk707</CODE> environment see section <A HREF="tk707.html#SEC22">Midi files</A>.
-
-
+converted your file `<TT>salsa.dat</TT>' into MIDI format `<TT>salsa.mid</TT>'
+in the <CODE>tk707</CODE> environment see section <A HREF="tk707.html#SEC22">3.1 Midi files</A>.
+</P>
 <P>
-Then enter the commands:
 
-<PRE>
-        timidity bolero.mid -Ow bolero.wav
+Then enter the commands:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>        timidity bolero.mid -Ow bolero.wav
         lame -b128 bolero.wav bolero.mp3
-</PRE>
-
-<P>
-and compare the file sizes:
-
-<PRE>
-        ls -al 
+</pre></td></tr></table>and compare the file sizes:
+<TABLE><tr><td>&nbsp;</td><td class=example><pre>        ls -al 
 	-rw-r--r--   1 maria martinez     1051 Mar  9 09:20 son-montuno.mid
 	-rw-r--r--   1 maria martinez  3937324 Mar  9 09:22 son-montuno.wav
 	-rw-r--r--   1 maria martinez   493056 Mar  9 09:22 son-montuno.mp3
-</PRE>
-
-<P>
-The MIDI file does not contains the sounds. It contains only the score
+</pre></td></tr></table>The MIDI file does not contains the sounds. It contains only the score
 of your music and a MIDI render is required to heat it.
 The audio WAV and MP3 contains the complete sound and are suitable
 exports, such as CD-ROM writers.
 Moreover, the MP3 file is compressed by rougthly a factor ten.
 The MP3 audio files can be played back by popular mp3  players  such
 as  mpg123.
-
-
 <P>
+
 The <CODE>timidity</CODE> tool is a midi-to-wav converter available
 at <A HREF="http://www.goice.co.jp/member/mo/timidity">http://www.goice.co.jp/member/mo/timidity</A>.
-
-
+</P>
 <P>
+
 The <CODE>lame</CODE> tool is a wav-to-mp3 convarter available
 at <A HREF="http://www.sulaco.org/mp3">http://www.sulaco.org/mp3</A>.
-
-
-
-
-<H1><A NAME="SEC42" HREF="tk707.html#TOC42">GNU General Public License</A></H1>
-<P>
-Version 2, June 1991
-
-
-
-<PRE>
-Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+</P>
+<P>
+
+<A NAME="Copying"></A>
+<HR SIZE="6">
+<A NAME="SEC42"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC43"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC41"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC43"> &gt;&gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> C. GNU General Public License </H1>
+<!--docid::SEC42::-->
+<center>
+ Version 2, June 1991
+</center>
+<P>
+
+<TABLE><tr><td>&nbsp;</td><td class=display><pre style="font-family: serif">Copyright &copy; 1989, 1991 Free Software Foundation, Inc.
 675 Mass Ave, Cambridge, MA 02139, USA
 
 Everyone is permitted to copy and distribute verbatim copies
 of this license document, but changing it is not allowed.
-</PRE>
-
-
-
-<H2><A NAME="SEC43" HREF="tk707.html#TOC43">Preamble</A></H2>
-
+</pre></td></tr></table><P>
+
+<HR SIZE="6">
+<A NAME="SEC43"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC42"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC44"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[ &lt;&lt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[ &gt;&gt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> Preamble </H2>
+<!--docid::SEC43::-->
 <P>
+
   The licenses for most software are designed to take away your
 freedom to share and change it.  By contrast, the GNU General Public
 License is intended to guarantee your freedom to share and change free
@@ -1408,77 +1825,79 @@ Foundation's software and to any other program whose authors commit to
 using it.  (Some other Free Software Foundation software is covered by
 the GNU Library General Public License instead.)  You can apply it to
 your programs, too.
-
-
+</P>
 <P>
+
   When we speak of free software, we are referring to freedom, not
 price.  Our General Public Licenses are designed to make sure that you
 have the freedom to distribute copies of free software (and charge for
 this service if you wish), that you receive source code or can get it
 if you want it, that you can change the software or use pieces of it
 in new free programs; and that you know you can do these things.
-
-
+</P>
 <P>
+
   To protect your rights, we need to make restrictions that forbid
 anyone to deny you these rights or to ask you to surrender the rights.
 These restrictions translate to certain responsibilities for you if you
 distribute copies of the software, or if you modify it.
-
-
+</P>
 <P>
+
   For example, if you distribute copies of such a program, whether
 gratis or for a fee, you must give the recipients all the rights that
 you have.  You must make sure that they, too, receive or can get the
 source code.  And you must show them these terms so they know their
 rights.
-
-
+</P>
 <P>
+
   We protect your rights with two steps: (1) copyright the software, and
 (2) offer you this license which gives you legal permission to copy,
 distribute and/or modify the software.
-
-
+</P>
 <P>
+
   Also, for each author's protection and ours, we want to make certain
 that everyone understands that there is no warranty for this free
 software.  If the software is modified by someone else and passed on, we
 want its recipients to know that what they have is not the original, so
 that any problems introduced by others will not reflect on the original
 authors' reputations.
-
-
+</P>
 <P>
+
   Finally, any free program is threatened constantly by software
 patents.  We wish to avoid the danger that redistributors of a free
 program will individually obtain patent licenses, in effect making the
 program proprietary.  To prevent this, we have made it clear that any
 patent must be licensed for everyone's free use or not licensed at all.
-
-
+</P>
 <P>
+
   The precise terms and conditions for copying, distribution and
 modification follow.
+</P>
+<P>
 
-
-
-
-<H2><A NAME="SEC44" HREF="tk707.html#TOC44">TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION</A></H2>
-
+<center>
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+</center>
+</P>
+<P>
 
 <OL>
 <LI>
-
 This License applies to any program or other work which contains
 a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
+under the terms of this General Public License.  The &quot;Program&quot;, below,
+refers to any such program or work, and a &quot;work based on the Program&quot;
 means either the Program or any derivative work under copyright law:
 that is to say, a work containing the Program or a portion of it,
 either verbatim or with modifications and/or translated into another
 language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
+the term &quot;modification&quot;.)  Each licensee is addressed as &quot;you&quot;.
+<P>
 
 Activities other than copying, distribution and modification are not
 covered by this License; they are outside its scope.  The act of
@@ -1486,9 +1905,11 @@ running the Program is not restricted, and the output from the Program
 is covered only if its contents constitute a work based on the
 Program (independent of having been made by running the Program).
 Whether that is true depends on what the Program does.
+</P>
+<P>
 
+</P>
 <LI>
-
 You may copy and distribute verbatim copies of the Program's
 source code as you receive it, in any medium, provided that you
 conspicuously and appropriately publish on each copy an appropriate
@@ -1496,33 +1917,37 @@ copyright notice and disclaimer of warranty; keep intact all the
 notices that refer to this License and to the absence of any warranty;
 and give any other recipients of the Program a copy of this License
 along with the Program.
+<P>
 
 You may charge a fee for the physical act of transferring a copy, and
 you may at your option offer warranty protection in exchange for a fee.
+</P>
+<P>
 
+</P>
 <LI>
-
 You may modify your copy or copies of the Program or any portion
 of it, thus forming a work based on the Program, and copy and
 distribute such modifications or work under the terms of Section 1
 above, provided that you also meet all of these conditions:
-
+<P>
 
 <OL>
 <LI>
-
 You must cause the modified files to carry prominent notices
 stating that you changed the files and the date of any change.
+<P>
 
+</P>
 <LI>
-
 You must cause any work that you distribute or publish, that in
 whole or in part contains or is derived from the Program or any
 part thereof, to be licensed as a whole at no charge to all third
 parties under the terms of this License.
+<P>
 
+</P>
 <LI>
-
 If the modified program normally reads commands interactively
 when run, you must cause it, when started running for such
 interactive use in the most ordinary way, to print or display an
@@ -1534,6 +1959,7 @@ License.  (Exception: if the Program itself is interactive but
 does not normally print such an announcement, your work based on
 the Program is not required to print an announcement.)
 </OL>
+<P>
 
 These requirements apply to the modified work as a whole.  If
 identifiable sections of that work are not derived from the Program,
@@ -1544,48 +1970,56 @@ distribute the same sections as part of a whole which is a work based
 on the Program, the distribution of the whole must be on the terms of
 this License, whose permissions for other licensees extend to the
 entire whole, and thus to each and every part regardless of who wrote it.
+</P>
+<P>
 
 Thus, it is not the intent of this section to claim rights or contest
 your rights to work written entirely by you; rather, the intent is to
 exercise the right to control the distribution of derivative or
 collective works based on the Program.
+</P>
+<P>
 
 In addition, mere aggregation of another work not based on the Program
 with the Program (or with a work based on the Program) on a volume of
 a storage or distribution medium does not bring the other work under
 the scope of this License.
+</P>
+<P>
 
+</P>
 <LI>
-
 You may copy and distribute the Program (or a work based on it,
 under Section 2) in object code or executable form under the terms of
 Sections 1 and 2 above provided that you also do one of the following:
-
+<P>
 
 <OL>
 <LI>
-
 Accompany it with the complete corresponding machine-readable
 source code, which must be distributed under the terms of Sections
 1 and 2 above on a medium customarily used for software interchange; or,
+<P>
 
+</P>
 <LI>
-
 Accompany it with a written offer, valid for at least three
 years, to give any third party, for a charge no more than your
 cost of physically performing source distribution, a complete
 machine-readable copy of the corresponding source code, to be
 distributed under the terms of Sections 1 and 2 above on a medium
 customarily used for software interchange; or,
+<P>
 
+</P>
 <LI>
-
 Accompany it with the information you received as to the offer
 to distribute corresponding source code.  (This alternative is
 allowed only for noncommercial distribution and only if you
 received the program in object code or executable form with such
 an offer, in accord with Subsection b above.)
 </OL>
+<P>
 
 The source code for a work means the preferred form of the work for
 making modifications to it.  For an executable work, complete source
@@ -1597,15 +2031,19 @@ anything that is normally distributed (in either source or binary
 form) with the major components (compiler, kernel, and so on) of the
 operating system on which the executable runs, unless that component
 itself accompanies the executable.
+</P>
+<P>
 
 If distribution of executable or object code is made by offering
 access to copy from a designated place, then offering equivalent
 access to copy the source code from the same place counts as
 distribution of the source code, even though third parties are not
 compelled to copy the source along with the object code.
+</P>
+<P>
 
+</P>
 <LI>
-
 You may not copy, modify, sublicense, or distribute the Program
 except as expressly provided under this License.  Any attempt
 otherwise to copy, modify, sublicense or distribute the Program is
@@ -1613,9 +2051,10 @@ void, and will automatically terminate your rights under this License.
 However, parties who have received copies, or rights, from you under
 this License will not have their licenses terminated so long as such
 parties remain in full compliance.
+<P>
 
+</P>
 <LI>
-
 You are not required to accept this License, since you have not
 signed it.  However, nothing else grants you permission to modify or
 distribute the Program or its derivative works.  These actions are
@@ -1624,9 +2063,10 @@ modifying or distributing the Program (or any work based on the
 Program), you indicate your acceptance of this License to do so, and
 all its terms and conditions for copying, distributing or modifying
 the Program or works based on it.
+<P>
 
+</P>
 <LI>
-
 Each time you redistribute the Program (or any work based on the
 Program), the recipient automatically receives a license from the
 original licensor to copy, distribute or modify the Program subject to
@@ -1634,9 +2074,10 @@ these terms and conditions.  You may not impose any further
 restrictions on the recipients' exercise of the rights granted herein.
 You are not responsible for enforcing compliance by third parties to
 this License.
+<P>
 
+</P>
 <LI>
-
 If, as a consequence of a court judgment or allegation of patent
 infringement or for any other reason (not limited to patent issues),
 conditions are imposed on you (whether by court order, agreement or
@@ -1649,11 +2090,14 @@ license would not permit royalty-free redistribution of the Program by
 all those who receive copies directly or indirectly through you, then
 the only way you could satisfy both it and this License would be to
 refrain entirely from distribution of the Program.
+<P>
 
 If any portion of this section is held invalid or unenforceable under
 any particular circumstance, the balance of the section is intended to
 apply and the section as a whole is intended to apply in other
 circumstances.
+</P>
+<P>
 
 It is not the purpose of this section to induce you to infringe any
 patents or other property right claims or to contest validity of any
@@ -1665,12 +2109,16 @@ through that system in reliance on consistent application of that
 system; it is up to the author/donor to decide if he or she is willing
 to distribute software through any other system and a licensee cannot
 impose that choice.
+</P>
+<P>
 
 This section is intended to make thoroughly clear what is believed to
 be a consequence of the rest of this License.
+</P>
+<P>
 
+</P>
 <LI>
-
 If the distribution and/or use of the Program is restricted in
 certain countries either by patents or by copyrighted interfaces, the
 original copyright holder who places the Program under this License
@@ -1678,24 +2126,28 @@ may add an explicit geographical distribution limitation excluding
 those countries, so that distribution is permitted only in or among
 countries not thus excluded.  In such case, this License incorporates
 the limitation as if written in the body of this License.
+<P>
 
+</P>
 <LI>
-
 The Free Software Foundation may publish revised and/or new versions
 of the General Public License from time to time.  Such new versions will
 be similar in spirit to the present version, but may differ in detail to
 address new problems or concerns.
+<P>
 
 Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
+specifies a version number of this License which applies to it and &quot;any
+later version&quot;, you have the option of following the terms and conditions
 either of that version or of any later version published by the Free
 Software Foundation.  If the Program does not specify a version number of
 this License, you may choose any version ever published by the Free Software
 Foundation.
+</P>
+<P>
 
+</P>
 <LI>
-
 If you wish to incorporate parts of the Program into other free
 programs whose distribution conditions are different, write to the author
 to ask for permission.  For software which is copyrighted by the Free
@@ -1703,25 +2155,29 @@ Software Foundation, write to the Free Software Foundation; we sometimes
 make exceptions for this.  Our decision will be guided by the two goals
 of preserving the free status of all derivatives of our free software and
 of promoting the sharing and reuse of software generally.
+<P>
 
+<center>
+ NO WARRANTY
+</center>
+</P>
+<P>
 
-
-<P><STRONG>NO WARRANTY</STRONG>
-
+</P>
 <LI>
-
 BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
 FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
 OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+PROVIDE THE PROGRAM &quot;AS IS&quot; WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
 OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
 MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
 TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
 PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
 REPAIR OR CORRECTION.
+<P>
 
+</P>
 <LI>
-
 IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
 WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
 REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
@@ -1732,30 +2188,45 @@ YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
 PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
 POSSIBILITY OF SUCH DAMAGES.
 </OL>
+<P>
 
+<center>
+ END OF TERMS AND CONDITIONS
+</center>
+</P>
+<P>
 
-<H2>END OF TERMS AND CONDITIONS</H2>
-
-
-
-<H2><A NAME="SEC45" HREF="tk707.html#TOC45">How to Apply These Terms to Your New Programs</A></H2>
-
+<HR SIZE="6">
+<A NAME="SEC44"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC43"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45"> &gt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[ &lt;&lt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[ &gt;&gt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H2> How to Apply These Terms to Your New Programs </H2>
+<!--docid::SEC44::-->
 <P>
+
   If you develop a new program, and you want it to be of the greatest
 possible use to the public, the best way to achieve this is to make it
 free software which everyone can redistribute and change under these terms.
-
-
+</P>
 <P>
+
   To do so, attach the following notices to the program.  It is safest
 to attach them to the start of each source file to most effectively
 convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-
+the &quot;copyright&quot; line and a pointer to where the full notice is found.
+</P>
+<P>
 
-<PRE>
-<VAR>one line to give the program's name and an idea of what it does.</VAR>
+<TABLE><tr><td>&nbsp;</td><td class=smallexample><pre><FONT SIZE=-1><VAR>one line to give the program's name and an idea of what it does.</VAR>
 Copyright (C) 19<VAR>yy</VAR>  <VAR>name of author</VAR>
 
 This program is free software; you can redistribute it and/or
@@ -1771,216 +2242,268 @@ GNU General Public License for more details.
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-</PRE>
+</FONT></pre></td></tr></table><P>
 
-<P>
 Also add information on how to contact you by electronic and paper mail.
-
-
+</P>
 <P>
+
 If the program is interactive, make it output a short notice like this
 when it starts in an interactive mode:
+</P>
+<P>
 
-
-
-<PRE>
-Gnomovision version 69, Copyright (C) 19<VAR>yy</VAR> <VAR>name of author</VAR>
+<TABLE><tr><td>&nbsp;</td><td class=smallexample><pre><FONT SIZE=-1>Gnomovision version 69, Copyright (C) 19<VAR>yy</VAR> <VAR>name of author</VAR>
 Gnomovision comes with ABSOLUTELY NO WARRANTY; for details
 type `show w'.  This is free software, and you are welcome
 to redistribute it under certain conditions; type `show c'
 for details.
-</PRE>
+</FONT></pre></td></tr></table><P>
 
-<P>
-The hypothetical commands <SAMP>`show w'</SAMP> and <SAMP>`show c'</SAMP> should show
+The hypothetical commands `<SAMP>show w</SAMP>' and `<SAMP>show c</SAMP>' should show
 the appropriate parts of the General Public License.  Of course, the
-commands you use may be called something other than <SAMP>`show w'</SAMP> and
-<SAMP>`show c'</SAMP>; they could even be mouse-clicks or menu items--whatever
+commands you use may be called something other than `<SAMP>show w</SAMP>' and
+`<SAMP>show c</SAMP>'; they could even be mouse-clicks or menu items--whatever
 suits your program.
-
-
+</P>
 <P>
+
 You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
+school, if any, to sign a &quot;copyright disclaimer&quot; for the program, if
 necessary.  Here is a sample; alter the names:
+</P>
+<P>
 
-
-
-<PRE>
-Yoyodyne, Inc., hereby disclaims all copyright
+<TABLE><tr><td>&nbsp;</td><td class=smallexample><pre><FONT SIZE=-1>Yoyodyne, Inc., hereby disclaims all copyright
 interest in the program `Gnomovision'
 (which makes passes at compilers) written
 by James Hacker.
 
 <VAR>signature of Ty Coon</VAR>, 1 April 1989
 Ty Coon, President of Vice
-</PRE>
+</FONT></pre></td></tr></table><P>
 
-<P>
 This General Public License does not permit incorporating your program into
 proprietary programs.  If your program is a subroutine library, you may
 consider it more useful to permit linking proprietary applications with the
 library.  If this is what you want to do, use the GNU Library General
 Public License instead of this License.
-
-
-
-
-<H1><A NAME="SEC46" HREF="tk707.html#TOC46">Index</A></H1>
-
-<P>
-Jump to:
-<A HREF="#cindex_.">.</A>
--
-<A HREF="#cindex_a">a</A>
--
-<A HREF="#cindex_b">b</A>
--
-<A HREF="#cindex_d">d</A>
--
-<A HREF="#cindex_f">f</A>
--
-<A HREF="#cindex_g">g</A>
--
-<A HREF="#cindex_i">i</A>
--
-<A HREF="#cindex_l">l</A>
--
-<A HREF="#cindex_m">m</A>
--
-<A HREF="#cindex_p">p</A>
--
-<A HREF="#cindex_s">s</A>
--
-<A HREF="#cindex_t">t</A>
--
-<A HREF="#cindex_v">v</A>
--
-<A HREF="#cindex_w">w</A>
--
-<A HREF="#cindex_x">x</A>
-<P>
-<H2><A NAME="cindex_.">.</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX21"><TT>`.dat'</TT> tk707 file</A>
-<LI><A HREF="tk707.html#IDX24"><TT>`.map'</TT> tk707 sound map file</A>
-<LI><A HREF="tk707.html#IDX85"><TT>`.mid'</TT> midi file</A>
-<LI><A HREF="tk707.html#IDX84"><TT>`.mp3'</TT> audio file</A>
-<LI><A HREF="tk707.html#IDX83"><TT>`.wav'</TT> audio file</A>
-</DIR>
-<H2><A NAME="cindex_a">a</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX65">accent</A>, <A HREF="tk707.html#IDX77">accent</A>
-<LI><A HREF="tk707.html#IDX3">Alsa audio library</A>, <A HREF="tk707.html#IDX13">Alsa audio library</A>
-<LI><A HREF="tk707.html#IDX81">audio file format</A>
-</DIR>
-<H2><A NAME="cindex_b">b</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX31">brazilian percussion</A>
-</DIR>
-<H2><A NAME="cindex_d">d</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX5">demonstration file <TT>`demo.dat'</TT></A>, <A HREF="tk707.html#IDX22">demonstration file <TT>`demo.dat'</TT></A>
-<LI><A HREF="tk707.html#IDX27">demonstration file <TT>`son-montuno.dat'</TT></A>, <A HREF="tk707.html#IDX61">demonstration file <TT>`son-montuno.dat'</TT></A>
-</DIR>
-<H2><A NAME="cindex_f">f</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX26">file <TT>`727.map'</TT></A>
-<LI><A HREF="tk707.html#IDX32">file <TT>`7b7.map'</TT></A>
-<LI><A HREF="tk707.html#IDX30">file <TT>`7c7.map'</TT></A>
-<LI><A HREF="tk707.html#IDX33">file <TT>`carioca.dat'</TT></A>
-<LI><A HREF="tk707.html#IDX10">file <TT>`tk707.dvi'</TT> documentation</A>
-<LI><A HREF="tk707.html#IDX9">file <TT>`tk707.html'</TT> documentation</A>
-<LI><A HREF="tk707.html#IDX8">file <TT>`tk707.info'</TT> documentation</A>
-<LI><A HREF="tk707.html#IDX11">file <TT>`tk707.ps'</TT> documentation</A>
-<LI><A HREF="tk707.html#IDX23"><CODE>File-&#62;Load Demo</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX6"><CODE>File-&#62;Load</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX71">flam</A>
-<LI><A HREF="tk707.html#IDX78">flam interval</A>
-</DIR>
-<H2><A NAME="cindex_g">g</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX72">grace note</A>
-<LI><A HREF="tk707.html#IDX66">grid marker: orange</A>
-<LI><A HREF="tk707.html#IDX69">grid marker: red</A>
-<LI><A HREF="tk707.html#IDX74">grid marker: star</A>
-<LI><A HREF="tk707.html#IDX19">group (pattern)</A>
-</DIR>
-<H2><A NAME="cindex_i">i</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX35">instrument</A>, <A HREF="tk707.html#IDX48">instrument</A>
-</DIR>
-<H2><A NAME="cindex_l">l</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX87"><CODE>lame</CODE> wav-to-mp3 converter</A>
-<LI><A HREF="tk707.html#IDX60">last step</A>, <A HREF="tk707.html#IDX63">last step</A>, <A HREF="tk707.html#IDX64">last step</A>
-<LI><A HREF="tk707.html#IDX28">latin percussion</A>
-<LI><A HREF="tk707.html#IDX1">Linux system</A>
-</DIR>
-<H2><A NAME="cindex_m">m</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX55"><CODE>Map-&#62;Edit Sound Map</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX54"><CODE>Map-&#62;Load Local Sound Map</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX29"><CODE>Map-&#62;Load Standard Sound Map</CODE></A>
-<LI><A HREF="tk707.html#IDX56"><CODE>Map-&#62;Save Sound Map</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX42">midi file</A>, <A HREF="tk707.html#IDX43">midi file</A>
-<LI><A HREF="tk707.html#IDX80">midi file format</A>
-<LI><A HREF="tk707.html#IDX44"><CODE>Midi File-&#62;Save</CODE> menu</A>
-<LI><A HREF="tk707.html#IDX49">midi note</A>
-<LI><A HREF="tk707.html#IDX20">midi output channel</A>
-<LI><A HREF="tk707.html#IDX7">midi output port</A>
-<LI><A HREF="tk707.html#IDX4">midi render</A>
-<LI><A HREF="tk707.html#IDX12">midi render: <CODE>timidity</CODE> software</A>
-<LI><A HREF="tk707.html#IDX82">midi-to-audio converters</A>
-<LI><A HREF="tk707.html#IDX88"><CODE>mpg123</CODE> mp3 player</A>
-</DIR>
-<H2><A NAME="cindex_p">p</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX17">pattern</A>, <A HREF="tk707.html#IDX34">pattern</A>
-<LI><A HREF="tk707.html#IDX38">pattern copy/merge</A>
-<LI><A HREF="tk707.html#IDX37">pattern copy/paste</A>
-<LI><A HREF="tk707.html#IDX39">pattern display grid</A>, <A HREF="tk707.html#IDX50">pattern display grid</A>, <A HREF="tk707.html#IDX73">pattern display grid</A>
-<LI><A HREF="tk707.html#IDX67">pattern step write</A>
-<LI><A HREF="tk707.html#IDX75">Pattern Step Write</A>
-<LI><A HREF="tk707.html#IDX76">Pattern Tap Write</A>
-<LI><A HREF="tk707.html#IDX68">pattern tap write</A>
-<LI><A HREF="tk707.html#IDX62">poly-rhythms 12/8</A>
-</DIR>
-<H2><A NAME="cindex_s">s</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX57">scale</A>
-<LI><A HREF="tk707.html#IDX14">sound card without midi</A>
-<LI><A HREF="tk707.html#IDX47">sound map</A>
-<LI><A HREF="tk707.html#IDX52">sound map <TT>`707.dat'</TT></A>
-<LI><A HREF="tk707.html#IDX53">sound map <TT>`727.dat'</TT></A>
-<LI><A HREF="tk707.html#IDX25">sound map file</A>
-<LI><A HREF="tk707.html#IDX15">sound patch files (GUS)</A>
-<LI><A HREF="tk707.html#IDX18">step</A>, <A HREF="tk707.html#IDX36">step</A>
-</DIR>
-<H2><A NAME="cindex_t">t</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX2">tcl/tk libraries</A>
-<LI><A HREF="tk707.html#IDX41">tempo</A>, <A HREF="tk707.html#IDX45">tempo</A>
-<LI><A HREF="tk707.html#IDX59">ternary feeling</A>
-<LI><A HREF="tk707.html#IDX86"><CODE>timidity</CODE> midi-to-wav converter</A>
-<LI><A HREF="tk707.html#IDX16">track</A>
-<LI><A HREF="tk707.html#IDX40">track selection</A>
-</DIR>
-<H2><A NAME="cindex_v">v</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX46">volume control</A>, <A HREF="tk707.html#IDX51">volume control</A>, <A HREF="tk707.html#IDX70">volume control</A>
-</DIR>
-<H2><A NAME="cindex_w">w</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX58">whole note decomposition</A>
-</DIR>
-<H2><A NAME="cindex_x">x</A></H2>
-<DIR>
-<LI><A HREF="tk707.html#IDX79"><CODE>xwininfo</CODE></A>
-</DIR>
-
-
-<P><HR><P>
+</P>
+<P>
+
+<A NAME="Index"></A>
+<HR SIZE="6">
+<A NAME="SEC45"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC44"> &lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[ &gt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC44"> &lt;&lt; </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top"> Up </A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[ &gt;&gt; ]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT"> &nbsp; <TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1> Index </H1>
+<!--docid::SEC45::-->
+<P>
+
+</P>
+<table><tr><th valign=top>Jump to: &nbsp; </th><td><A HREF="tk707.html#cp_." style="text-decoration:none"><b>.</b></A>
+ &nbsp; 
+<BR>
+<A HREF="tk707.html#cp_A" style="text-decoration:none"><b>A</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_B" style="text-decoration:none"><b>B</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_D" style="text-decoration:none"><b>D</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_F" style="text-decoration:none"><b>F</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_G" style="text-decoration:none"><b>G</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_I" style="text-decoration:none"><b>I</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_L" style="text-decoration:none"><b>L</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_M" style="text-decoration:none"><b>M</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_P" style="text-decoration:none"><b>P</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_S" style="text-decoration:none"><b>S</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_T" style="text-decoration:none"><b>T</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_V" style="text-decoration:none"><b>V</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_W" style="text-decoration:none"><b>W</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_X" style="text-decoration:none"><b>X</b></A>
+ &nbsp; 
+</td></tr></table><P></P>
+<TABLE border=0>
+<TR><TD></TD><TH ALIGN=LEFT>Index Entry</TH><TH ALIGN=LEFT> Section</TH></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_."></A>.</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC11">`<TT>.dat</TT>' tk707 file</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX20">`<TT>.map</TT>' tk707 sound map file</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX65">`<TT>.mid</TT>' midi file</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX64">`<TT>.mp3</TT>' audio file</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX63">`<TT>.wav</TT>' audio file</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_A"></A>A</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX46">accent</A></TD><TD valign=top><A HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX58">accent</A></TD><TD valign=top><A HREF="tk707.html#SEC36">5.2.1 Inserting flams</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX3">Alsa audio library</A></TD><TD valign=top><A HREF="tk707.html#SEC1">1. Installation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX13">Alsa audio library</A></TD><TD valign=top><A HREF="tk707.html#SEC8">1.7 My card has no midi render...</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX61">audio file format</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_B"></A>B</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX27">brazilian percussion</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_D"></A>D</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX5">demonstration file `<TT>demo.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC5">1.4 Running</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC11">demonstration file `<TT>demo.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX23">demonstration file `<TT>son-montuno.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC29">demonstration file `<TT>son-montuno.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC29">4.1.4 Sextuplets and composed 12/8 measures</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_F"></A>F</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX22">file `<TT>727.map</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX28">file `<TT>7b7.map</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX26">file `<TT>7c7.map</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX29">file `<TT>carioca.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX10">file `<TT>tk707.dvi</TT>' documentation</A></TD><TD valign=top><A HREF="tk707.html#SEC6">1.5 Building the documentation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX9">file `<TT>tk707.html</TT>' documentation</A></TD><TD valign=top><A HREF="tk707.html#SEC6">1.5 Building the documentation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX8">file `<TT>tk707.info</TT>' documentation</A></TD><TD valign=top><A HREF="tk707.html#SEC6">1.5 Building the documentation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX11">file `<TT>tk707.ps</TT>' documentation</A></TD><TD valign=top><A HREF="tk707.html#SEC6">1.5 Building the documentation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC11"><CODE>File-&gt;Load Demo</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX6"><CODE>File-&gt;Load</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC5">1.4 Running</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX52">flam</A></TD><TD valign=top><A HREF="tk707.html#SEC35">5.2 Flam</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC37">flam interval</A></TD><TD valign=top><A HREF="tk707.html#SEC37">5.2.2 Controlling the flam interval</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_G"></A>G</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX53">grace note</A></TD><TD valign=top><A HREF="tk707.html#SEC35">5.2 Flam</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX47">grid marker: orange</A></TD><TD valign=top><A HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX50">grid marker: red</A></TD><TD valign=top><A HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX55">grid marker: star</A></TD><TD valign=top><A HREF="tk707.html#SEC35">5.2 Flam</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX19">group (pattern)</A></TD><TD valign=top><A HREF="tk707.html#SEC10">2.1 Terminology</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_I"></A>I</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX30">instrument</A></TD><TD valign=top><A HREF="tk707.html#SEC13">2.3.1 Writing pattern</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC23">instrument</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_L"></A>L</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX67"><CODE>lame</CODE> wav-to-mp3 converter</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC28">last step</A></TD><TD valign=top><A HREF="tk707.html#SEC28">4.1.3 Triplets and composed 12/4 measures</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX44">last step</A></TD><TD valign=top><A HREF="tk707.html#SEC29">4.1.4 Sextuplets and composed 12/8 measures</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX45">last step</A></TD><TD valign=top><A HREF="tk707.html#SEC30">4.2 Last step changes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX24">latin percussion</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX1">Linux system</A></TD><TD valign=top><A HREF="tk707.html#SEC1">1. Installation</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_M"></A>M</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX41"><CODE>Map-&gt;Edit Sound Map</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX40"><CODE>Map-&gt;Load Local Sound Map</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX25"><CODE>Map-&gt;Load Standard Sound Map</CODE></A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX42"><CODE>Map-&gt;Save Sound Map</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX34">midi file</A></TD><TD valign=top><A HREF="tk707.html#SEC20">2.8 Tempo changes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC22">midi file</A></TD><TD valign=top><A HREF="tk707.html#SEC22">3.1 Midi files</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX60">midi file format</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX35"><CODE>Midi File-&gt;Save</CODE> menu</A></TD><TD valign=top><A HREF="tk707.html#SEC22">3.1 Midi files</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC23">midi note</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC11">midi output channel</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX7">midi output port</A></TD><TD valign=top><A HREF="tk707.html#SEC5">1.4 Running</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX4">midi render</A></TD><TD valign=top><A HREF="tk707.html#SEC1">1. Installation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX12">midi render: <CODE>timidity</CODE> software</A></TD><TD valign=top><A HREF="tk707.html#SEC8">1.7 My card has no midi render...</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX62">midi-to-audio converters</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX68"><CODE>mpg123</CODE> mp3 player</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_P"></A>P</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX17">pattern</A></TD><TD valign=top><A HREF="tk707.html#SEC10">2.1 Terminology</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC12">pattern</A></TD><TD valign=top><A HREF="tk707.html#SEC12">2.3 Creating patterns</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC14">pattern copy/merge</A></TD><TD valign=top><A HREF="tk707.html#SEC14">2.3.2 Copy/paste and copy/merge</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC14">pattern copy/paste</A></TD><TD valign=top><A HREF="tk707.html#SEC14">2.3.2 Copy/paste and copy/merge</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC15">pattern display grid</A></TD><TD valign=top><A HREF="tk707.html#SEC15">2.3.3 The pattern display grid</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC23">pattern display grid</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX54">pattern display grid</A></TD><TD valign=top><A HREF="tk707.html#SEC35">5.2 Flam</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX56">Pattern Step Write</A></TD><TD valign=top><A HREF="tk707.html#SEC36">5.2.1 Inserting flams</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX48">pattern step write</A></TD><TD valign=top><A HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX49">pattern tap write</A></TD><TD valign=top><A HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX57">Pattern Tap Write</A></TD><TD valign=top><A HREF="tk707.html#SEC36">5.2.1 Inserting flams</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC29">poly-rhythms 12/8</A></TD><TD valign=top><A HREF="tk707.html#SEC29">4.1.4 Sextuplets and composed 12/8 measures</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_S"></A>S</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX43">scale</A></TD><TD valign=top><A HREF="tk707.html#SEC25">4.1 Scale changes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX14">sound card without midi</A></TD><TD valign=top><A HREF="tk707.html#SEC8">1.7 My card has no midi render...</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC23">sound map</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX38">sound map `<TT>707.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX39">sound map `<TT>727.dat</TT>'</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX21">sound map file</A></TD><TD valign=top><A HREF="tk707.html#SEC11">2.2 Demonstrations</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX15">sound patch files (GUS)</A></TD><TD valign=top><A HREF="tk707.html#SEC8">1.7 My card has no midi render...</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX18">step</A></TD><TD valign=top><A HREF="tk707.html#SEC10">2.1 Terminology</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX31">step</A></TD><TD valign=top><A HREF="tk707.html#SEC13">2.3.1 Writing pattern</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_T"></A>T</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX2">tcl/tk libraries</A></TD><TD valign=top><A HREF="tk707.html#SEC1">1. Installation</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX33">tempo</A></TD><TD valign=top><A HREF="tk707.html#SEC20">2.8 Tempo changes</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX36">tempo</A></TD><TD valign=top><A HREF="tk707.html#SEC22">3.1 Midi files</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC28">ternary feeling</A></TD><TD valign=top><A HREF="tk707.html#SEC28">4.1.3 Triplets and composed 12/4 measures</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX66"><CODE>timidity</CODE> midi-to-wav converter</A></TD><TD valign=top><A HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX16">track</A></TD><TD valign=top><A HREF="tk707.html#SEC10">2.1 Terminology</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX32">track selection</A></TD><TD valign=top><A HREF="tk707.html#SEC19">2.7 Playing tracks</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_V"></A>V</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX37">volume control</A></TD><TD valign=top><A HREF="tk707.html#SEC22">3.1 Midi files</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC23">volume control</A></TD><TD valign=top><A HREF="tk707.html#SEC23">3.2 Sound maps</A></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX51">volume control</A></TD><TD valign=top><A HREF="tk707.html#SEC34">5.1.2 Controlling the accent intensity</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_W"></A>W</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#SEC26">whole note decomposition</A></TD><TD valign=top><A HREF="tk707.html#SEC26">4.1.1 Binary 4/4 measures</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+<TR><TH><A NAME="cp_X"></A>X</TH><TD></TD><TD></TD></TR>
+<TR><TD></TD><TD valign=top><A HREF="tk707.html#IDX59"><CODE>xwininfo</CODE></A></TD><TD valign=top><A HREF="tk707.html#SEC40">A.2 Options</A></TD></TR>
+<TR><TD COLSPAN=3> <HR></TD></TR>
+</TABLE><P></P><table><tr><th valign=top>Jump to: &nbsp; </th><td><A HREF="tk707.html#cp_." style="text-decoration:none"><b>.</b></A>
+ &nbsp; 
+<BR>
+<A HREF="tk707.html#cp_A" style="text-decoration:none"><b>A</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_B" style="text-decoration:none"><b>B</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_D" style="text-decoration:none"><b>D</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_F" style="text-decoration:none"><b>F</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_G" style="text-decoration:none"><b>G</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_I" style="text-decoration:none"><b>I</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_L" style="text-decoration:none"><b>L</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_M" style="text-decoration:none"><b>M</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_P" style="text-decoration:none"><b>P</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_S" style="text-decoration:none"><b>S</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_T" style="text-decoration:none"><b>T</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_V" style="text-decoration:none"><b>V</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_W" style="text-decoration:none"><b>W</b></A>
+ &nbsp; 
+<A HREF="tk707.html#cp_X" style="text-decoration:none"><b>X</b></A>
+ &nbsp; 
+</td></tr></table><P>
+
+<HR SIZE="6">
+<A NAME="tk707.html"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
 <H1>Footnotes</H1>
 <H3><A NAME="FOOT1" HREF="tk707.html#DOCF1">(1)</A></H3>
 <P>
@@ -1990,8 +2513,336 @@ Musicales Francaise, 2000. email: Topdjembe@hotmail.com.
 <H3><A NAME="FOOT2" HREF="tk707.html#DOCF2">(2)</A></H3>
 <P>
 This sound map is indented for batucada music for carnaval.
-<P><HR><P>
-This document was generated on 19 March 2001 using
-<A HREF="http://wwwinfo.cern.ch/dis/texi2html/">texi2html</A>&nbsp;1.56k.
+<HR SIZE=1>
+<A NAME="SEC_Contents"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1>Table of Contents</H1>
+<BLOCKQUOTE>
+<A NAME="TOC1" HREF="tk707.html#SEC1">1. Installation</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC2" HREF="tk707.html#SEC2">1.1 Building <CODE>tk707</CODE></A>
+<BR>
+<A NAME="TOC3" HREF="tk707.html#SEC3">1.2 Configure options</A>
+<BR>
+<A NAME="TOC4" HREF="tk707.html#SEC4">1.3 Installation</A>
+<BR>
+<A NAME="TOC5" HREF="tk707.html#SEC5">1.4 Running</A>
+<BR>
+<A NAME="TOC6" HREF="tk707.html#SEC6">1.5 Building the documentation</A>
+<BR>
+<A NAME="TOC7" HREF="tk707.html#SEC7">1.6 Comments, bug corrections and future versions</A>
+<BR>
+<A NAME="TOC8" HREF="tk707.html#SEC8">1.7 My card has no midi render...</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC9" HREF="tk707.html#SEC9">2. Getting started</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC10" HREF="tk707.html#SEC10">2.1 Terminology</A>
+<BR>
+<A NAME="TOC11" HREF="tk707.html#SEC11">2.2 Demonstrations</A>
+<BR>
+<A NAME="TOC12" HREF="tk707.html#SEC12">2.3 Creating patterns</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC13" HREF="tk707.html#SEC13">2.3.1 Writing pattern</A>
+<BR>
+<A NAME="TOC14" HREF="tk707.html#SEC14">2.3.2 Copy/paste and copy/merge</A>
+<BR>
+<A NAME="TOC15" HREF="tk707.html#SEC15">2.3.3 The pattern display grid</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC16" HREF="tk707.html#SEC16">2.4 Playing patterns</A>
+<BR>
+<A NAME="TOC17" HREF="tk707.html#SEC17">2.5 Creating tracks</A>
+<BR>
+<A NAME="TOC18" HREF="tk707.html#SEC18">2.6 Editing tracks</A>
+<BR>
+<A NAME="TOC19" HREF="tk707.html#SEC19">2.7 Playing tracks</A>
+<BR>
+<A NAME="TOC20" HREF="tk707.html#SEC20">2.8 Tempo changes</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC21" HREF="tk707.html#SEC21">3. Midi files and sounds</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC22" HREF="tk707.html#SEC22">3.1 Midi files</A>
+<BR>
+<A NAME="TOC23" HREF="tk707.html#SEC23">3.2 Sound maps</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC24" HREF="tk707.html#SEC24">4. Ternary feelings and poly-rhythms</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC25" HREF="tk707.html#SEC25">4.1 Scale changes</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC26" HREF="tk707.html#SEC26">4.1.1 Binary 4/4 measures</A>
+<BR>
+<A NAME="TOC27" HREF="tk707.html#SEC27">4.1.2 Binary 2/4 measures</A>
+<BR>
+<A NAME="TOC28" HREF="tk707.html#SEC28">4.1.3 Triplets and composed 12/4 measures</A>
+<BR>
+<A NAME="TOC29" HREF="tk707.html#SEC29">4.1.4 Sextuplets and composed 12/8 measures</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC30" HREF="tk707.html#SEC30">4.2 Last step changes</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC31" HREF="tk707.html#SEC31">5. Accents and flam</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC32" HREF="tk707.html#SEC32">5.1 Accents</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC33" HREF="tk707.html#SEC33">5.1.1 Inserting accentuated notes</A>
+<BR>
+<A NAME="TOC34" HREF="tk707.html#SEC34">5.1.2 Controlling the accent intensity</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC35" HREF="tk707.html#SEC35">5.2 Flam</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC36" HREF="tk707.html#SEC36">5.2.1 Inserting flams</A>
+<BR>
+<A NAME="TOC37" HREF="tk707.html#SEC37">5.2.2 Controlling the flam interval</A>
+<BR>
+</BLOCKQUOTE>
+</BLOCKQUOTE>
+<A NAME="TOC38" HREF="tk707.html#SEC38">A. Command line options</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC39" HREF="tk707.html#SEC39">A.1 Synopsis</A>
+<BR>
+<A NAME="TOC40" HREF="tk707.html#SEC40">A.2 Options</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC41" HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A>
+<BR>
+<A NAME="TOC42" HREF="tk707.html#SEC42">C. GNU General Public License</A>
+<BR>
+<BLOCKQUOTE>
+<A NAME="TOC43" HREF="tk707.html#SEC43">Preamble</A>
+<BR>
+<A NAME="TOC44" HREF="tk707.html#SEC44">How to Apply These Terms to Your New Programs</A>
+<BR>
+</BLOCKQUOTE>
+<A NAME="TOC45" HREF="tk707.html#SEC45">Index</A>
+<BR>
+</BLOCKQUOTE>
+<HR SIZE=1>
+<A NAME="SEC_OVERVIEW"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1>Short Table of Contents</H1>
+<BLOCKQUOTE>
+<A NAME="TOC1" HREF="tk707.html#SEC1">1. Installation</A>
+<BR>
+<A NAME="TOC9" HREF="tk707.html#SEC9">2. Getting started</A>
+<BR>
+<A NAME="TOC21" HREF="tk707.html#SEC21">3. Midi files and sounds</A>
+<BR>
+<A NAME="TOC24" HREF="tk707.html#SEC24">4. Ternary feelings and poly-rhythms</A>
+<BR>
+<A NAME="TOC31" HREF="tk707.html#SEC31">5. Accents and flam</A>
+<BR>
+<A NAME="TOC38" HREF="tk707.html#SEC38">A. Command line options</A>
+<BR>
+<A NAME="TOC41" HREF="tk707.html#SEC41">B. Converting MIDI to audio WAV and MP3::</A>
+<BR>
+<A NAME="TOC42" HREF="tk707.html#SEC42">C. GNU General Public License</A>
+<BR>
+<A NAME="TOC45" HREF="tk707.html#SEC45">Index</A>
+<BR>
+
+</BLOCKQUOTE>
+<HR SIZE=1>
+<A NAME="SEC_About"></A>
+<TABLE CELLPADDING=1 CELLSPACING=1 BORDER=0>
+<TR><TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Top">Top</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_Contents">Contents</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC45">Index</A>]</TD>
+<TD VALIGN="MIDDLE" ALIGN="LEFT">[<A HREF="tk707.html#SEC_About"> ? </A>]</TD>
+</TR></TABLE>
+<H1>About this document</H1>
+This document was generated
+by 
+using <A HREF="http://texi2html.cvshome.org"><I>texi2html</I></A>
+<P></P>
+The buttons in the navigation panels have the following meaning:
+<P></P>
+<table border = "1">
+<TR>
+<TH> Button </TH>
+<TH> Name </TH>
+<TH> Go to </TH>
+<TH> From 1.2.3 go to</TH>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ &lt; ] </TD>
+<TD ALIGN="CENTER">
+Back
+</TD>
+<TD>
+previous section in reading order
+</TD>
+<TD>
+1.2.2
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ &gt; ] </TD>
+<TD ALIGN="CENTER">
+Forward
+</TD>
+<TD>
+next section in reading order
+</TD>
+<TD>
+1.2.4
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ &lt;&lt; ] </TD>
+<TD ALIGN="CENTER">
+FastBack
+</TD>
+<TD>
+beginning of this chapter or previous chapter
+</TD>
+<TD>
+1
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ Up ] </TD>
+<TD ALIGN="CENTER">
+Up
+</TD>
+<TD>
+up section
+</TD>
+<TD>
+1.2
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ &gt;&gt; ] </TD>
+<TD ALIGN="CENTER">
+FastForward
+</TD>
+<TD>
+next chapter
+</TD>
+<TD>
+2
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [Top] </TD>
+<TD ALIGN="CENTER">
+Top
+</TD>
+<TD>
+cover (top) of document
+</TD>
+<TD>
+ &nbsp; 
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [Contents] </TD>
+<TD ALIGN="CENTER">
+Contents
+</TD>
+<TD>
+table of contents
+</TD>
+<TD>
+ &nbsp; 
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [Index] </TD>
+<TD ALIGN="CENTER">
+Index
+</TD>
+<TD>
+concept index
+</TD>
+<TD>
+ &nbsp; 
+</TD>
+</TR>
+<TR>
+<TD ALIGN="CENTER">
+ [ ? ] </TD>
+<TD ALIGN="CENTER">
+About
+</TD>
+<TD>
+this page
+</TD>
+<TD>
+ &nbsp; 
+</TD>
+</TR>
+</TABLE>
+    <P>
+      where the <STRONG> Example </STRONG> assumes that the current position
+      is at <STRONG> Subsubsection One-Two-Three </STRONG> of a document of
+      the following structure:</P>
+    <UL>
+      <LI> 1. Section One
+        <UL>
+          <LI>1.1 Subsection One-One
+            <UL>
+              <LI>...</LI>
+            </UL>
+          <LI>1.2 Subsection One-Two
+            <UL>
+              <LI>1.2.1 Subsubsection One-Two-One</LI>
+              <LI>1.2.2 Subsubsection One-Two-Two</LI>
+              <LI>1.2.3 Subsubsection One-Two-Three &nbsp; &nbsp;
+                <STRONG>&lt;== Current Position </STRONG></LI>
+              <LI>1.2.4 Subsubsection One-Two-Four</LI>
+            </UL>
+          </LI>
+          <LI>1.3 Subsection One-Three
+            <UL>
+              <LI>...</LI>
+            </UL>
+          </LI>
+          <LI>1.4 Subsection One-Four</LI>
+        </UL>
+      </LI>
+    </UL>
+
+<HR SIZE=1>
+<BR>
+<FONT SIZE="-1">
+This document was generated
+by <I>Saramito Pierre</I> on <I>November, 3 2004</I>
+using <A HREF="http://texi2html.cvshome.org"><I>texi2html</I></A>
+</FONT>
+
 </BODY>
 </HTML>
diff --git a/tk707.info b/tk707.info
index 9f50a40..01dd04a 100644
--- a/tk707.info
+++ b/tk707.info
@@ -1,5 +1,4 @@
-This is Info file tk707.info, produced by Makeinfo version 1.67 from
-the input file tk707.texi.
+This is tk707.info, produced by makeinfo version 4.7 from tk707.texi.
 
    This program is intended to mimic the operation of Roland's TR-707
 Rhythm Composer (successor to the TR-606 and precursor to TR-808 and
@@ -20,10 +19,11 @@ permission notice identical to this one.
 
 File: tk707.info,  Node: Top,  Up: (dir)
 
+The TK-707 Rhythm Composer
+**************************
 
-
-   This document is a brief statement of requirements to run tk707 and
-a very introductory explanation of how to run it. This might be just
+This document is a brief statement of requirements to run tk707 and a
+very introductory explanation of how to run it. This might be just
 enough for people not familiar with how these machines work but is not
 intended to be an exhaustive explanation.
 
@@ -53,8 +53,8 @@ END-INFO-DIR-ENTRY
 * Copying::
 * Index::
 
-Installation
-************
+1 Installation
+**************
 
 
 File: tk707.info,  Node: Installation,  Up: Top
@@ -70,44 +70,46 @@ File: tk707.info,  Node: Installation,  Up: Top
 * My card has no midi render::
 
    The TK-707 installation requires:
-     	
 
-   * C compiler: to compile the source code.  	
+
+   * C compiler: to compile the source code.
 
    * TCL/TK version 8.0 or later.  Tested up to TCL/TK 8.3. Available
-     free from `http://www.scriptics.com' 	
+     free from `http://www.scriptics.com'
 
    * Alsa: audio installation (at least version 0.5.0), available free
-     from `http://www.alsa-project.org' 	
+     from `http://www.alsa-project.org'
 
    * a sound card supported by Alsa.
 
    and, at least one of these MIDI renders:
-     	
 
-   * an internal MIDI render hardware in your card.  	
+
+   * an internal MIDI render hardware in your card.
 
    * an external MIDI module with drum sounds (Tested Roland D-110 and
-     TR-707).  	
+     TR-707).
 
    * or any Alsa supported basic sound card together with the
-     `timidity' software MIDI sequencer installed.
+     `timidity' or the `iiwusynth' 	MIDI synthesis software installed.
 
    Clearly, if you have neither a MIDI card nor an external MIDI module,
 you can successfully manage MIDI files by a MIDI software sequencer.
 See below.
 
    So far tested on
-     	
 
-   * Linux - Slackware 7.0 (kernel 2.2.14) with ESS1868 sound card 	
 
-   * Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card 	
+   * Linux - Debian 3.0 (kernel 2.4.18) with SB Live ! sound card
+
+   * Linux - Slackware 7.0 (kernel 2.2.14) with ESS1868 sound card
 
    * Linux - Mandrak (kernel 2.2.13-7mdk)
 
-Building `tk707'
-================
+   * Linux - Redhat 6.0 (kernel 2.2.5) with Ensonic 1370 sound card
+
+1.1 Building `tk707'
+====================
 
 
 File: tk707.info,  Node: Building tk707,  Up: Installation
@@ -115,19 +117,21 @@ File: tk707.info,  Node: Building tk707,  Up: Installation
      	configure
      	make
 
-   The program consists of Tcl/Tk for the gui and C code for outputting
+The program consists of Tcl/Tk for the gui and C code for outputting
 the midi data.  The Tcl/Tk code is compiled with the C code.  The
 compiled target `tk707' is a self contained binary.
 
-Configure options
-=================
+1.2 Configure options
+=====================
 
 
 File: tk707.info,  Node: Configure options,  Up: Installation
 
-   During the configuration step, you could also provide to the
+During the configuration step, you could also provide to the
 `configure' script some non-standard locations of the Alsa or Tcl/Tk
-libraries:
+libraries.  On my Debian 3.0 installation, I use:
+     	configure --with-tcl-includes=/usr/include/tcl8.3
+   A more general example writes:
      	configure --with-alsa-prefix=/usr/sound/lib \
      	  --with-alsa-inc-prefix=/usr/sound/include \
      	  --with-tcl-includes=/new/include   --with-tcl-libs=/usr/new/lib  \
@@ -147,16 +151,16 @@ this feature failed on some combinations of Linux kernel versions and
 `pgcc-2.91.66'). Either update our environment or use lower
 optimization flags.
 
-Installation
-============
+1.3 Installation
+================
 
 
 File: tk707.info,  Node: Install,  Up: Installation
 
      	make install
 
-   The default installation directory is `/usr/local/bin' but this can
-be changed by using an extra configuration option:
+The default installation directory is `/usr/local/bin' but this can be
+changed by using an extra configuration option:
 
      	configure --prefix=/users/angela/music
      	make install
@@ -164,13 +168,13 @@ be changed by using an extra configuration option:
    will build and install `tk707' into the installation directory
 `/users/angela/music/bin' as `tk707'.
 
-Running
-=======
+1.4 Running
+===========
 
 
 File: tk707.info,  Node: Running,  Up: Installation
 
-   If installation was done as in previous step, and assuming the
+If installation was done as in previous step, and assuming the
 installation directory is in your execution path, then the program is
 started with
 
@@ -203,14 +207,14 @@ file.
 e.g.
      	tk707 -l
 
-Building the documentation
-==========================
+1.5 Building the documentation
+==============================
 
 
 File: tk707.info,  Node: Building the documentation,  Up: Installation
 
-   The documentation in `.info' format, suitable for emacs, is
-contained in the distribution. You can browse it:
+The documentation in `.info' format, suitable for emacs, is contained
+in the distribution. You can browse it:
      	info -f tk707.info
 
    If you have the `texi2html' tool, the `html' version has been
@@ -228,31 +232,31 @@ available:
 
    Now, read the documentation and enjoy `tk707'.
 
-Comments, bug corrections and future versions
-=============================================
+1.6 Comments, bug corrections and future versions
+=================================================
 
 
 File: tk707.info,  Node: Comments and bugs corrections,  Up: Installation
 
-   We are keen for people to try it and send comments and suggestions.
+We are keen for people to try it and send comments and suggestions.
 
    Please, send comments, corrections, additions, bugs etc.. to
 <chris@vislab.usyd.edu.au> and <pierre.saramito@imag.fr>
 
    Future versions from the TK-707 home page:
-     	
 
-   * Australie: `http://www.vislab.usyd.edu.au/staff/chris/tk707' 	
+
+   * Australie: `http://www.vislab.usyd.edu.au/staff/chris/tk707'
 
    * Europe: `http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707'
 
-My card has no midi render...
-=============================
+1.7 My card has no midi render...
+=================================
 
 
 File: tk707.info,  Node: My card has no midi render,  Up: Installation
 
-   Don't worry, you are able to hear midi file with a basic audio sound
+Don't worry, you are able to hear midi file with a basic audio sound
 card: the `timidity' code is able to provides an Alsa sequencer
 interface which receives events and plays it in real-time.
 
@@ -295,26 +299,26 @@ approach is not always supported by all hardware renders.  Thus,  the
 software MIDI render solution is fruitful, and could be installed, even
 if you have a hardware or external MIDI solution.
 
-Getting started
-***************
+2 Getting started
+*****************
 
 
 File: tk707.info,  Node: Terminology,  Up: Top
 
-Terminology
-===========
+2.1 Terminology
+===============
 
-   	Four song *tracks* are available.  You can think of a track as a
-song.  Tracks are labeled by roman numbers: I, II, III and IV.
+	Four song _tracks_ are available.  You can think of a track as a song.
+Tracks are labeled by roman numbers: I, II, III and IV.
 
-   	Each track is made of *patterns*, each with 16 *steps*.s  You could
+   	Each track is made of _patterns_, each with 16 _steps_.s  You could
 think of a pattern as a bar of music. At each step in a pattern, any of
 the available instruments can be set to play. Once you've made the
 patterns you want to use, you can combine them in any order into any of
 the four available tracks. Any particular pattern can be used in any of
 the tracks as many times as desired.
 
-   	There are 64 patterns available in 4 *groups* of 16 each.  Pattern
+   	There are 64 patterns available in 4 _groups_ of 16 each.  Pattern
 groups are labeled by letters: A, B, C and D.  The 4 groups are not at
 all related to the 4 tracks. Patterns from any group are available to
 any track.
@@ -322,20 +326,20 @@ any track.
 
 File: tk707.info,  Node: Demonstrations,  Up: Top
 
-Demonstrations
-==============
+2.2 Demonstrations
+==================
 
-   	Some sample patterns and tracks are in `demo.dat' which can be
-loaded from the `File->Demo' menu. Something exists in each track of
-this file so click the <START> button and you should hear something if
-your hardware is set up correctly. Part of this set up is the *midi
-channel*; the default midi channel is 10 (the default for D-110 drum
-sounds). You can change the output midi channel via the Midi menu or
-Shift-click on the <MIDI CH> button; a new window will appear for midi
-channel selection.
-
-   	A second demonstration file shows the alternate *727* latin sound
-map. With this sound map, the software emulates a Roland *727* latin
+	Some sample patterns and tracks are in `demo.dat' which can be loaded
+from the `File->Demo' menu. Something exists in each track of this file
+so click the <START> button and you should hear something if your
+hardware is set up correctly. Part of this set up is the _midi channel_;
+the default midi channel is 10 (the default for D-110 drum sounds). You
+can change the output midi channel via the Midi menu or Shift-click on
+the <MIDI CH> button; a new window will appear for midi channel
+selection.
+
+   	A second demonstration file shows the alternate _727_ latin sound
+map. With this sound map, the software emulates a Roland _727_ latin
 percussion rhythm composer.  Loaded from the `File->Demo' menu the file
 `son-montuno.dat', and then load the latin percussion sound map
 `727.map' from the `Map->Load Standard Sound Map' menu.  Set also the
@@ -367,22 +371,22 @@ Francaise, 2000. email: Topdjembe@hotmail.com.
 
 File: tk707.info,  Node: Creating patterns,  Up: Top
 
-Creating patterns
-=================
+2.3 Creating patterns
+=====================
 
-Writing pattern
----------------
+2.3.1 Writing pattern
+---------------------
 
-   	Shift-click the <PATTERN> button to enter Pattern Write mode. While
+	Shift-click the <PATTERN> button to enter Pattern Write mode. While
 <START> is not pressed, the 16 instrument/step keys at the bottom of the
 interface are dual purposed.
 
    	Clicking on a key changes which pattern, 1-16, (within the current
-group) is selected for writing. A small lamp above one of the *group
-pattern* buttons indicates the current group. The current group may be
+group) is selected for writing. A small lamp above one of the _group
+pattern_ buttons indicates the current group. The current group may be
 changed by clicking group pattern button <A>, <B>, <C> or <D>.
 
-   	Shift-clicking on the *instrument/step* keys selects which instrument
+   	Shift-clicking on the _instrument/step_ keys selects which instrument
 is selected to be written into the current pattern. Click the <START>
 button; now as you click of the instrument/step keys, the selected
 instrument, e.g. <Cowbell>, will be added at that step. If the selected
@@ -398,26 +402,26 @@ pattern. Make all the patterns you will need for a new song.
 clicking on the <CLEAR> button will raise a dialog window to confirm
 clearing of the current pattern.
 
-Copy/paste and copy/merge
--------------------------
+2.3.2 Copy/paste and copy/merge
+-------------------------------
 
-   	Another method of creating new patterns is to copy an existing
-pattern and pasting it to a new location, then modifying the new
-version.  This is an efficient method of creating a number of patterns
-which are small variations of each other. Select the pattern to be
-copied and press <CRTL>-<C> (<CONTROL> key and <C> key together).
+	Another method of creating new patterns is to copy an existing pattern
+and pasting it to a new location, then modifying the new version.  This
+is an efficient method of creating a number of patterns which are small
+variations of each other. Select the pattern to be copied and press
+<CRTL>-<C> (<CONTROL> key and <C> key together).
 
-   	Now select a new (empty?) pattern location and press <Ctrl>-<V> or
-<Ctrl>-<B> to *paste* in the copied notes.
+   	Now select a new (empty?)  pattern location and press <Ctrl>-<V> or
+<Ctrl>-<B> to _paste_ in the copied notes.
 
    Using <Ctrl>-<V> will clear the destination location of any notes it
-already contains whereas <Ctrl>-<B> will *merge* its current contents
+already contains whereas <Ctrl>-<B> will _merge_ its current contents
 with the new note information.
 
-The pattern display grid
-------------------------
+2.3.3 The pattern display grid
+------------------------------
 
-   	The third method uses the pattern display grid. Double-click near an
+	The third method uses the pattern display grid. Double-click near an
 instrument/step intersection to add the instrument at that step. If the
 instrument already exists at that step then it is deleted. This is
 probably the easiest way of creating patterns.
@@ -425,10 +429,10 @@ probably the easiest way of creating patterns.
 
 File: tk707.info,  Node: Playing patterns,  Up: Top
 
-Playing patterns
-================
+2.4 Playing patterns
+====================
 
-   Click the <PATTERN> button to enter Pattern Play mode.  While the
+Click the <PATTERN> button to enter Pattern Play mode.  While the
 <START> button is depressed, the currently selected pattern will play.
 Clicking on different pattern keys at the bottom of the interface will
 select a new pattern (<1>,..,<16>) in the current group. If not
@@ -444,10 +448,10 @@ available in each of the four groups for a total of sixty-four patterns.
 
 File: tk707.info,  Node: Creating tracks,  Up: Top
 
-Creating tracks
-===============
+2.5 Creating tracks
+===================
 
-   Shift-click the <TRACK> button to enter Track Write mode.
+Shift-click the <TRACK> button to enter Track Write mode.
 
    To start from an empty track, delete anything already there
 (Shift-click on the <CLEAR> button) if necessary. Now select a pattern
@@ -470,10 +474,10 @@ prior to adding them to the track.
 
 File: tk707.info,  Node: Editing tracks,  Up: Top
 
-Editing tracks
-==============
+2.6 Editing tracks
+==================
 
-   Shift-click the <TRACK> button to enter Track Write mode.
+Shift-click the <TRACK> button to enter Track Write mode.
 
    Track editing is only possible in Track Write mode.
 
@@ -513,11 +517,11 @@ measure while the button is held down.
 
 File: tk707.info,  Node: Playing tracks,  Up: Top
 
-Playing tracks
-==============
+2.7 Playing tracks
+==================
 
-   Click on the <TRACK> button to enter the `Track Play' mode.  Then
-click on the <START> button and the current track will be played.
+Click on the <TRACK> button to enter the `Track Play' mode.  Then click
+on the <START> button and the current track will be played.
 
    Select another track, e.g. track IV, by Shift-clicking a the
 corresponding track button: <Shift>-<IV>. Then enter <START> for
@@ -526,11 +530,11 @@ playing the song.
 
 File: tk707.info,  Node: Tempo changes,  Up: Top
 
-Tempo changes
-=============
+2.8 Tempo changes
+=================
 
-   	The tempo may be changed in either Track or Pattern mode. The tempo
-is lowered by Clicking in the tempo dial and then Click-Dragging around.
+	The tempo may be changed in either Track or Pattern mode. The tempo is
+lowered by Clicking in the tempo dial and then Click-Dragging around.
 It  its increased by Click-Dragging to the left from the tempo dial;
 its increased by Click-Dragging to the right.
 
@@ -538,19 +542,19 @@ its increased by Click-Dragging to the right.
 midi file, the whole track will have whatever tempo is selected at the
 time of saving.
 
-Midi files and sounds
-*********************
+3 Midi files and sounds
+***********************
 
 
 File: tk707.info,  Node: Midi files,  Up: Top
 
-Midi files
-==========
+3.1 Midi files
+==============
 
-   	Currently only single track Midi files can be exported. When the
-`Midi File->Save' is selected a file browser appears into which the name
-of the file is entered. Its not crucial but it is a convention to have
-a `.mid' ending on the filename. When a name has been nominated, the
+	Currently only single track Midi files can be exported. When the `Midi
+File->Save' is selected a file browser appears into which the name of
+the file is entered. Its not crucial but it is a convention to have a
+`.mid' ending on the filename. When a name has been nominated, the
 current track will be exported, including midi channel and tempo
 information i.e. make sure these have the values you want first.
 
@@ -564,10 +568,10 @@ volume controls associated to instruments.
 
 File: tk707.info,  Node: Sound maps,  Up: Top
 
-Sound maps
-==========
+3.2 Sound maps
+==============
 
-   	TK-707 *sound maps* are mappings of the 16 instrument keys to
+	TK-707 _sound maps_ are mappings of the 16 instrument keys to
 descriptions of their long names, short names, abbreviate name and midi
 note values.  The first (longer) names are used in the pattern grid
 display, while the second (shorter) names are used under the 16
@@ -617,16 +621,16 @@ saving the sound map. A sound map can be saved using the `Map->Save
 Sound Map' menu item. A file suffix of `.map' is recommended (but not
 absolutely required).
 
-Ternary feelings and poly-rhythms
-*********************************
+4 Ternary feelings and poly-rhythms
+***********************************
 
 
 File: tk707.info,  Node: Scale changes,  Up: Top
 
-Scale changes
-=============
+4.1 Scale changes
+=================
 
-   	This feature is related to fast figures and 6/8 figures.
+	This feature is related to fast figures and 6/8 figures.
 
    	Four scales are available on each pattern.  Click on the <SCALE> in
 Pattern Write mode for changing the scale of the current pattern.  A
@@ -634,10 +638,10 @@ small lamp on the left of the musical score score indicates the current
 scale. For each scale, a vertical bar indicates the duration of a whole
 note.
 
-Binary 4/4 measures
--------------------
+4.1.1 Binary 4/4 measures
+-------------------------
 
-   	On the first scale, the whole note duration is 	decomposed into
+	On the first scale, the whole note duration is 	decomposed into
 sixteenth. Each sixteenth is associated to the 	a step of the
 pattern.  	There is 16 sixteenth in the pattern 	if the last step
 is set to 16, and then 	the total duration of the pattern is those of a
@@ -646,10 +650,10 @@ whole note.
    	This is the default scale when creating pattern 	associated to a 4/4
 measure.
 
-Binary 2/4 measures
--------------------
+4.1.2 Binary 2/4 measures
+-------------------------
 
-   	For the second scale, the whole duration is 	decomposed into
+	For the second scale, the whole duration is 	decomposed into
 eighthes. Each eighthes is associated 	to a step of the pattern. When
 the last step is set to 	16, there is 16 eighthes in the
 pattern, and the total duration 	of the pattern is those of a half whole.
@@ -660,15 +664,15 @@ patterns.
 
    	This scale is designated for fast schemes on binary 	songs.
 
-Triplets and composed 12/4 measures
------------------------------------
+4.1.3 Triplets and composed 12/4 measures
+-----------------------------------------
 
-   	On the third scale, the whole duration is decomposed into
-four third of a quarter. Each third of a quarter is 	associated to a
+	On the third scale, the whole duration is decomposed into 	four
+third of a quarter. Each third of a quarter is 	associated to a
 step of the pattern.
 
    	When the last step is set to 12, 	the total duration of the pattern
-is those of a whole note *note Last step changes::..  	The pattern is
+is those of a whole note *note Last step changes::.  	The pattern is
 then a 12/4 measure.
 
    	Alternatively, the last could be set to 9 or 15 and then 	the
@@ -677,10 +681,10 @@ pattern is a 9/4 or a 15/4 measure, respectively.
    	This pattern is designated for ternary-based measures or 	for
 inserting ternary feelings (triplets) into 	a binary song.
 
-Sextuplets and composed 12/8 measures
--------------------------------------
+4.1.4 Sextuplets and composed 12/8 measures
+-------------------------------------------
 
-   	Finally, the fourth scale decomposes the whole duration 	into
+	Finally, the fourth scale decomposes the whole duration 	into
 two sextuplets (12 times 1/6 of a quarter sextuplets).  	Each
 1/6 of a quarter is associated to a step of the 	pattern.  	When
 the last step is set to 12. *Note Last step changes::, 	the total
@@ -701,38 +705,38 @@ binary song.
 
 File: tk707.info,  Node: Last step changes,  Up: Top
 
-Last step changes
-=================
+4.2 Last step changes
+=====================
 
-   Remarks that the last step is not automatically changed from 16 to
-12 when changing the scale of a pattern.  It could be chosen to 15 for
-the scale 3, for instance.
+Remarks that the last step is not automatically changed from 16 to 12
+when changing the scale of a pattern.  It could be chosen to 15 for the
+scale 3, for instance.
 
    Click on the <LAST STEP> in Pattern Write mode for changing the
 scale.  A new window will appear for last scale selection of the last
 step associated to the current pattern.
 
-Accents and flam
-****************
+5 Accents and flam
+******************
 
 
 File: tk707.info,  Node: Accents and flam,  Up: Top
 
-Accents
-=======
+5.1 Accents
+===========
 
-Inserting accentuated notes
----------------------------
+5.1.1 Inserting accentuated notes
+---------------------------------
 
-   There is two available accents: a weak and a strong one.  Use the
-weak accent by clicking on the <ACCENT> button in Pattern Step Write or
+There is two available accents: a weak and a strong one.  Use the weak
+accent by clicking on the <ACCENT> button in Pattern Step Write or
 Pattern Tap Write modes.  The "accent" text at the bottom of the button
-becomes orange.  Enter then notes as usual: notes are *weakly
-accentuated* and the circle marker is orange, instead of the usual grey.
+becomes orange.  Enter then notes as usual: notes are _weakly
+accentuated_ and the circle marker is orange, instead of the usual grey.
 
    Use the strong accent by clicking a second times on the <ACCENT>
 button.  Now, the "accent" text becomes red.  Then, enter notes: they
-are *strongly accentuated* and the circle marker is red too.
+are _strongly accentuated_ and the circle marker is red too.
 
    Then, click a third times on the <ACCENT> button.  The "accent" text
 at the bottom of the button comes back to the initial foreground color.
@@ -742,26 +746,26 @@ When you insert notes, they will be no more accentuated.
 <1>,..,<16> step touchs.  Conversely, in Pattern Tap Write, you could
 also use the instrument keys, e.g. <Cowbell>.
 
-Controlling the accent intensity
---------------------------------
+5.1.2 Controlling the accent intensity
+--------------------------------------
 
-   The weak and strong accent intensities could be modulated by using
-the volume control labeled "AC".  Moves the label control up and down.
+The weak and strong accent intensities could be modulated by using the
+volume control labeled "AC".  Moves the label control up and down.
 When up, accent effects are maximum while when down, there is no more
 perceptible accent effects.  The volume control of accents is global.
 
-Flam
-====
+5.2 Flam
+========
 
-Inserting flams
----------------
+5.2.1 Inserting flams
+---------------------
 
-   Flam is a kick note written ahead of the main beat, and takes on the
-effect of a *grace note*.  Control-double-click (<Control>-<Button-1>
+Flam is a kick note written ahead of the main beat, and takes on the
+effect of a _grace note_.  Control-double-click (<Control>-<Button-1>
 two times) near an instrument/step intersection to insert a flam note
 for this instrument at that step.  Instead of the circle marker, a star
 marker represents the flam note at the selected intersection *note
-Creating patterns::..
+Creating patterns::.
 
    There is another way for inserting flams: In Pattern Step Write
 mode, click the <START> button; Select an instrument by shift-clicking
@@ -777,10 +781,10 @@ inserted at step 4.
    Flam could be combined with accents, and the associated star marker
 becomes orange or red, depending on the weak or strong accent.
 
-Controlling the flam interval
------------------------------
+5.2.2 Controlling the flam interval
+-----------------------------------
 
-   The time between the grace note and its following main note can be
+The time between the grace note and its following main note can be
 varied in the range 0:4.  The default value is 2.  A zero value means
 that flam is off.  Each pattern has an associated flam interval value.
 
@@ -788,19 +792,19 @@ that flam is off.  Each pattern has an associated flam interval value.
 changing the flam interval of the current pattern.  A new window will
 appear for the flam interval selection.
 
-Command line options
-********************
+Appendix A Command line options
+*******************************
 
 
 File: tk707.info,  Node: Command line options,  Up: Top
 
-Synopsis
-========
+A.1 Synopsis
+============
 
         tk707 options...
 
-Options
-=======
+A.2 Options
+===========
 
 `-l'
      	List the available sound ports
@@ -809,13 +813,15 @@ Options
      	Use this port
 
 `-small'
+
 `-medium'
+
 `-normalsize'
      	Set the size of the window, since some screens are too small
      for the whole window.
 
 `-display SCREEN ID'
-     	Display to use.
+     	Display to use.  
 
 `-use WINDOW ID.'
      	Id of window in which to embed application.  	See `xwininfo'.
@@ -836,19 +842,20 @@ Options
      	Visual for main window.
 
 `-h'
+
 `-help'
      	Print short help.
 
-Converting MIDI to audio WAV and MP3
-************************************
+Appendix B Converting MIDI to audio WAV and MP3::
+*************************************************
 
 
 File: tk707.info,  Node: Converting MIDI to audio WAV and MP3,  Up: Top
 
-   This small annex explain how to convert your output midi file to
+This small annex explain how to convert your output midi file to
 formatted audio file (ex. RIFF WAVE) and compressed MP3 audio files. We
 assume your have converted your file `salsa.dat' into MIDI format
-`salsa.mid' in the `tk707' environment *note Midi files::..
+`salsa.mid' in the `tk707' environment *note Midi files::.
 
    Then enter the commands:
              timidity bolero.mid -Ow bolero.wav
@@ -874,23 +881,23 @@ popular mp3  players  such as  mpg123.
 
 File: tk707.info,  Node: Copying,  Up: Top
 
-GNU General Public License
-**************************
+Appendix C GNU General Public License
+*************************************
 
                          Version 2, June 1991
 
      Copyright (C) 1989, 1991 Free Software Foundation, Inc.
      675 Mass Ave, Cambridge, MA 02139, USA
-     
+
      Everyone is permitted to copy and distribute verbatim copies
      of this license document, but changing it is not allowed.
 
 Preamble
 ========
 
-   The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
+The licenses for most software are designed to take away your freedom
+to share and change it.  By contrast, the GNU General Public License is
+intended to guarantee your freedom to share and change free
 software--to make sure the software is free for all its users.  This
 General Public License applies to most of the Free Software
 Foundation's software and to any other program whose authors commit to
@@ -937,7 +944,6 @@ patent must be licensed for everyone's free use or not licensed at all.
 modification follow.
 
     TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
   0. This License applies to any program or other work which contains a
      notice placed by the copyright holder saying it may be distributed
      under the terms of this General Public License.  The "Program",
@@ -1144,7 +1150,6 @@ modification follow.
      and reuse of software generally.
 
                                 NO WARRANTY
-
  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO
      WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE
      LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
@@ -1168,11 +1173,10 @@ modification follow.
      ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
 
                       END OF TERMS AND CONDITIONS
-
 How to Apply These Terms to Your New Programs
 =============================================
 
-   If you develop a new program, and you want it to be of the greatest
+If you develop a new program, and you want it to be of the greatest
 possible use to the public, the best way to achieve this is to make it
 free software which everyone can redistribute and change under these
 terms.
@@ -1184,17 +1188,17 @@ the "copyright" line and a pointer to where the full notice is found.
 
      ONE LINE TO GIVE THE PROGRAM'S NAME AND AN IDEA OF WHAT IT DOES.
      Copyright (C) 19YY  NAME OF AUTHOR
-     
+
      This program is free software; you can redistribute it and/or
      modify it under the terms of the GNU General Public License
      as published by the Free Software Foundation; either version 2
      of the License, or (at your option) any later version.
-     
+
      This program is distributed in the hope that it will be useful,
      but WITHOUT ANY WARRANTY; without even the implied warranty of
      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      GNU General Public License for more details.
-     
+
      You should have received a copy of the GNU General Public License
      along with this program; if not, write to the Free Software
      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
@@ -1225,7 +1229,7 @@ if necessary.  Here is a sample; alter the names:
      interest in the program `Gnomovision'
      (which makes passes at compilers) written
      by James Hacker.
-     
+
      SIGNATURE OF TY COON, 1 April 1989
      Ty Coon, President of Vice
 
@@ -1241,124 +1245,143 @@ File: tk707.info,  Node: Index,  Up: Top
 Index
 *****
 
+
 * Menu:
 
-* .dat tk707 file:                       Demonstrations.
-* .map tk707 sound map file:             Demonstrations.
+* .dat tk707 file:                       Demonstrations.       (line  6)
+* .map tk707 sound map file:             Demonstrations.       (line 15)
 * .mid midi file:                        Converting MIDI to audio WAV and MP3.
+                                                               (line  3)
 * .mp3 audio file:                       Converting MIDI to audio WAV and MP3.
+                                                               (line  3)
 * .wav audio file:                       Converting MIDI to audio WAV and MP3.
-* accent:                                Accents and flam.
-* Alsa audio library <1>:                Installation.
-* Alsa audio library:                    My card has no midi render.
+                                                               (line  3)
+* accent:                                Accents and flam.     (line  9)
+* Alsa audio library <1>:                My card has no midi render.
+                                                               (line  3)
+* Alsa audio library:                    Installation.         (line 13)
 * audio file format:                     Converting MIDI to audio WAV and MP3.
-* brazilian percussion:                  Demonstrations.
-* demonstration file demo.dat <1>:       Running.
-* demonstration file demo.dat:           Demonstrations.
-* demonstration file son-montuno.dat <1>: Demonstrations.
-* demonstration file son-montuno.dat:    Scale changes.
-* file 727.map:                          Demonstrations.
-* file 7b7.map:                          Demonstrations.
-* file 7c7.map:                          Demonstrations.
-* file carioca.dat:                      Demonstrations.
+                                                               (line  3)
+* brazilian percussion:                  Demonstrations.       (line 29)
+* demonstration file demo.dat <1>:       Demonstrations.       (line  6)
+* demonstration file demo.dat:           Running.              (line  9)
+* demonstration file son-montuno.dat <1>: Scale changes.       (line 60)
+* demonstration file son-montuno.dat:    Demonstrations.       (line 15)
+* file 727.map:                          Demonstrations.       (line 15)
+* file 7b7.map:                          Demonstrations.       (line 29)
+* file 7c7.map:                          Demonstrations.       (line 22)
+* file carioca.dat:                      Demonstrations.       (line 29)
 * file tk707.dvi documentation:          Building the documentation.
+                                                               (line 11)
 * file tk707.html documentation:         Building the documentation.
+                                                               (line  7)
 * file tk707.info documentation:         Building the documentation.
+                                                               (line  3)
 * file tk707.ps documentation:           Building the documentation.
-* File->Load Demo menu:                  Demonstrations.
-* File->Load menu:                       Running.
-* flam:                                  Accents and flam.
-* flam interval:                         Accents and flam.
-* grace note:                            Accents and flam.
-* grid marker: orange:                   Accents and flam.
-* grid marker: red:                      Accents and flam.
-* grid marker: star:                     Accents and flam.
-* group (pattern):                       Terminology.
-* instrument <1>:                        Sound maps.
-* instrument:                            Creating patterns.
+                                                               (line 16)
+* File->Load Demo menu:                  Demonstrations.       (line  6)
+* File->Load menu:                       Running.              (line  9)
+* flam:                                  Accents and flam.     (line 38)
+* flam interval:                         Accents and flam.     (line 65)
+* grace note:                            Accents and flam.     (line 38)
+* grid marker: orange:                   Accents and flam.     (line  9)
+* grid marker: red:                      Accents and flam.     (line 15)
+* grid marker: star:                     Accents and flam.     (line 38)
+* group (pattern):                       Terminology.          (line 16)
+* instrument <1>:                        Sound maps.           (line  6)
+* instrument:                            Creating patterns.    (line 18)
 * lame wav-to-mp3 converter:             Converting MIDI to audio WAV and MP3.
-* last step <1>:                         Scale changes.
-* last step <2>:                         Last step changes.
-* last step:                             Scale changes.
-* latin percussion:                      Demonstrations.
-* Linux system:                          Installation.
-* Map->Edit Sound Map menu:              Sound maps.
-* Map->Load Local Sound Map menu:        Sound maps.
-* Map->Load Standard Sound Map:          Demonstrations.
-* Map->Save Sound Map menu:              Sound maps.
-* midi file <1>:                         Midi files.
-* midi file:                             Tempo changes.
+                                                               (line  3)
+* last step <1>:                         Last step changes.    (line  6)
+* last step:                             Scale changes.        (line 43)
+* latin percussion:                      Demonstrations.       (line 15)
+* Linux system:                          Installation.         (line 13)
+* Map->Edit Sound Map menu:              Sound maps.           (line 29)
+* Map->Load Local Sound Map menu:        Sound maps.           (line 25)
+* Map->Load Standard Sound Map:          Demonstrations.       (line 15)
+* Map->Save Sound Map menu:              Sound maps.           (line 51)
+* midi file <1>:                         Midi files.           (line  6)
+* midi file:                             Tempo changes.        (line 11)
 * midi file format:                      Converting MIDI to audio WAV and MP3.
-* Midi File->Save menu:                  Midi files.
-* midi note:                             Sound maps.
-* midi output channel:                   Demonstrations.
-* midi output port:                      Running.
-* midi render:                           Installation.
+                                                               (line  3)
+* Midi File->Save menu:                  Midi files.           (line  6)
+* midi note:                             Sound maps.           (line  6)
+* midi output channel:                   Demonstrations.       (line  6)
+* midi output port:                      Running.              (line 13)
+* midi render:                           Installation.         (line 13)
 * midi render: timidity software:        My card has no midi render.
+                                                               (line  3)
 * midi-to-audio converters:              Converting MIDI to audio WAV and MP3.
+                                                               (line  3)
 * mpg123 mp3 player:                     Converting MIDI to audio WAV and MP3.
-* pattern <1>:                           Terminology.
-* pattern:                               Creating patterns.
-* pattern copy/merge:                    Creating patterns.
-* pattern copy/paste:                    Creating patterns.
-* pattern display grid <1>:              Sound maps.
-* pattern display grid <2>:              Creating patterns.
-* pattern display grid:                  Accents and flam.
-* pattern step write:                    Accents and flam.
-* Pattern Step Write:                    Accents and flam.
-* pattern tap write:                     Accents and flam.
-* Pattern Tap Write:                     Accents and flam.
-* poly-rhythms 12/8:                     Scale changes.
-* scale:                                 Scale changes.
+                                                               (line  3)
+* pattern <1>:                           Creating patterns.    (line  6)
+* pattern:                               Terminology.          (line  6)
+* pattern copy/merge:                    Creating patterns.    (line 37)
+* pattern copy/paste:                    Creating patterns.    (line 37)
+* pattern display grid <1>:              Accents and flam.     (line 38)
+* pattern display grid <2>:              Sound maps.           (line  6)
+* pattern display grid:                  Creating patterns.    (line 53)
+* Pattern Step Write:                    Accents and flam.     (line 48)
+* pattern step write:                    Accents and flam.     (line  9)
+* Pattern Tap Write:                     Accents and flam.     (line 56)
+* pattern tap write:                     Accents and flam.     (line  9)
+* poly-rhythms 12/8:                     Scale changes.        (line 60)
+* scale:                                 Scale changes.        (line  6)
 * sound card without midi:               My card has no midi render.
-* sound map:                             Sound maps.
-* sound map 707.dat:                     Sound maps.
-* sound map 727.dat:                     Sound maps.
-* sound map file:                        Demonstrations.
+                                                               (line  3)
+* sound map:                             Sound maps.           (line  6)
+* sound map 707.dat:                     Sound maps.           (line 17)
+* sound map 727.dat:                     Sound maps.           (line 17)
+* sound map file:                        Demonstrations.       (line 15)
 * sound patch files (GUS):               My card has no midi render.
-* step <1>:                              Terminology.
-* step:                                  Creating patterns.
-* tcl/tk libraries:                      Installation.
-* tempo <1>:                             Tempo changes.
-* tempo:                                 Midi files.
-* ternary feeling:                       Scale changes.
+                                                               (line 20)
+* step <1>:                              Creating patterns.    (line 18)
+* step:                                  Terminology.          (line  6)
+* tcl/tk libraries:                      Installation.         (line 13)
+* tempo <1>:                             Midi files.           (line 13)
+* tempo:                                 Tempo changes.        (line  6)
+* ternary feeling:                       Scale changes.        (line 43)
 * timidity midi-to-wav converter:        Converting MIDI to audio WAV and MP3.
-* track:                                 Terminology.
-* track selection:                       Playing tracks.
-* volume control <1>:                    Accents and flam.
-* volume control <2>:                    Sound maps.
-* volume control:                        Midi files.
-* whole note decomposition:              Scale changes.
-* xwininfo:                              Command line options.
+                                                               (line  3)
+* track:                                 Terminology.          (line  6)
+* track selection:                       Playing tracks.       (line  6)
+* volume control <1>:                    Accents and flam.     (line 30)
+* volume control <2>:                    Sound maps.           (line  6)
+* volume control:                        Midi files.           (line 17)
+* whole note decomposition:              Scale changes.        (line 17)
+* xwininfo:                              Command line options. (line 26)
 
 
 
 Tag Table:
-Node: Top750
-Node: Installation1554
-Node: Building tk7072849
-Node: Configure options3167
-Node: Install4216
-Node: Running4601
-Node: Building the documentation6126
-Node: Comments and bugs corrections6813
-Node: My card has no midi render7337
-Node: Terminology9285
-Node: Demonstrations10110
-Node: Creating patterns12063
-Node: Playing patterns14449
-Node: Creating tracks15252
-Node: Editing tracks16220
-Node: Playing tracks17995
-Node: Tempo changes18363
-Node: Midi files18911
-Node: Sound maps19674
-Node: Scale changes22409
-Node: Last step changes25324
-Node: Accents and flam25799
-Node: Command line options28781
-Node: Converting MIDI to audio WAV and MP329578
-Node: Copying30890
-Node: Index50013
+Node: Top724
+Node: Installation1582
+Node: Building tk7072937
+Node: Configure options3260
+Node: Install4443
+Node: Running4833
+Node: Building the documentation6363
+Node: Comments and bugs corrections7055
+Node: My card has no midi render7576
+Node: Terminology9525
+Node: Demonstrations10354
+Ref: Demonstrations-Footnote-112059
+Ref: Demonstrations-Footnote-212244
+Node: Creating patterns12312
+Node: Playing patterns14734
+Node: Creating tracks15542
+Node: Editing tracks16515
+Node: Playing tracks18295
+Node: Tempo changes18668
+Node: Midi files19225
+Node: Sound maps19993
+Node: Scale changes22737
+Node: Last step changes25693
+Node: Accents and flam26177
+Node: Command line options29232
+Node: Converting MIDI to audio WAV and MP330076
+Node: Copying31384
+Node: Index50495
 
 End Tag Table
diff --git a/tk707.tcl b/tk707.tcl
index 384fcc3..24a530f 100644
--- a/tk707.tcl
+++ b/tk707.tcl
@@ -1,8 +1,29 @@
+#
+#    This file is part of tk707.
+#
+#    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+#
+#    tk707 is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    Foobar is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with Foobar; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# ======================================================
 #	File tk707.tcl
 #	Remainder of gui, including key & mouse bindings. Then RUN!
-
-#	Pattern memory is now in C-land but track memory still in tcl/tk.
 #
+#	Pattern memory is now in C-land but track memory still in tcl/tk.
+# ======================================================
+
 mem_init
 
 # ======================================================
diff --git a/tk707.texi b/tk707.texi
index 1efb4a3..b8144ef 100644
--- a/tk707.texi
+++ b/tk707.texi
@@ -1,4 +1,23 @@
 \input texinfo @c -*-texinfo-*-
+@c
+@c    This file is part of tk707.
+@c
+@c    Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+@c
+@c    tk707 is free software; you can redistribute it and/or modify
+@c    it under the terms of the GNU General Public License as published by
+@c    the Free Software Foundation; either version 2 of the License, or
+@c    (at your option) any later version.
+@c
+@c    Foobar is distributed in the hope that it will be useful,
+@c    but WITHOUT ANY WARRANTY; without even the implied warranty of
+@c    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+@c    GNU General Public License for more details.
+@c
+@c    You should have received a copy of the GNU General Public License
+@c    along with Foobar; if not, write to the Free Software
+@c    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+@c
 @c -------------------------------------------------------------
 @c             PREAMBLE
 @c -------------------------------------------------------------
@@ -719,7 +738,7 @@ A new window will appear for the flam interval selection.
 @end table
 
 @c -------------------------------------------------------------
-@appendix Converting MIDI to audio WAV and MP3
+@appendix Converting MIDI to audio WAV and MP3::
 @node    Converting MIDI to audio WAV and MP3,,, Top
 @c -------------------------------------------------------------
 @cindex midi file format
diff --git a/tk707AppInit.c b/tk707AppInit.c
index 201919c..173d25d 100644
--- a/tk707AppInit.c
+++ b/tk707AppInit.c
@@ -1,16 +1,28 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
 /* 
  * tkAppInit.c --
  *
  *	Provides a default version of the Tcl_AppInit procedure for
  *	use in wish and similar Tk-based applications.
- *
- * Copyright (c) 1993 The Regents of the University of California.
- * Copyright (c) 1994 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tk707AppInit.c,v 1.2 2000/09/05 12:38:42 saramito Exp $
  */
 
 #include <math.h>  /* for matherr() */
diff --git a/util707.c b/util707.c
index 537a40b..0751ca7 100644
--- a/util707.c
+++ b/util707.c
@@ -1,7 +1,25 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 #include <string.h>
 #include "util707.h"
 
-
 int
 seq707_context_init(seq707_context_t **ctxp)
 {
@@ -91,48 +109,37 @@ set_client_port(char *portdesc, int *client, int *port)
 return 0;
 }
 
-#ifdef HAVE_SYS_ASOUNDLIB_H
+
+#ifdef HAVE_ALSA9
+/* ALSA 0.9.0 API */
 int
 get_clientsports(char ***cpinfo)
 {
-	snd_seq_client_info_t cinfo;
-	snd_seq_port_info_t pinfo;
-	snd_seq_system_info_t sysinfo;
+	snd_seq_client_info_t *cinfo;
+	snd_seq_port_info_t *pinfo;
 	snd_seq_t *handle;
 	int  client, port, cp, i;
 	char buf[128];
 
-	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
+	if (snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0)
 	{
 		fprintf(stderr, "Couldn't open sequence. Error was:\n%s\n", snd_strerror(errno));
 		return -1;
 	}
-	if( snd_seq_system_info(handle, &sysinfo) < 0 )
-	{
-		fprintf(stderr, "Couldn't get sequencer information. Error was:\n%s\n", snd_strerror(errno));
-		return -1;
-	}
-
+	snd_seq_client_info_alloca(&cinfo);
+	snd_seq_port_info_alloca(&pinfo);
 	cp = 0;
-	fprintf(stderr, "Port      %-30.30s    %s\n", "Client name", "Port name");
-	/* First just count how many string pointers we'll need */
-	for(client=0;client<sysinfo.clients;client++)
-	{
-		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
-			continue;
-		for(port=0;port<sysinfo.ports;port++)
-		{
+	printf("Port     %-30.30s    %s\n", "Client name", "Port name");
+	snd_seq_client_info_set_client(cinfo, 0);
+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
+		client = snd_seq_client_info_get_client(cinfo);
+		snd_seq_port_info_set_client(pinfo, client);
+		snd_seq_port_info_set_port(pinfo, -1);
+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
 			unsigned int cap;
-			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
-				continue;
 			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-			if( (pinfo.capability & cap) == cap )
-			{
-/*
-				printf("%3d:%-3d   %-30.30s    %s\n", pinfo.client, pinfo.port, cinfo.name, pinfo.name);
-*/
+			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap)
 				cp++;
-			}
 		}
 	}
 
@@ -143,20 +150,21 @@ get_clientsports(char ***cpinfo)
 	}
 	/* Now do it again and add each client:port */
 	cp = 0;
-	for(client=0;client<sysinfo.clients;client++)
-	{
-		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
-			continue;
-		for(port=0;port<sysinfo.ports;port++)
-		{
+	snd_seq_client_info_set_client(cinfo, 0);
+	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
+		client = snd_seq_client_info_get_client(cinfo);
+		snd_seq_port_info_set_client(pinfo, client);
+		snd_seq_port_info_set_port(pinfo, -1);
+		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
 			unsigned int cap;
-			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
-				continue;
+			port = snd_seq_port_info_get_port(pinfo);
 			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-			if( (pinfo.capability & cap) == cap )
-			{
+			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap) {
 				memset(buf, 0, sizeof(buf));
-				sprintf(buf, "%3d:%-3d   %-30.30s    %s\n", pinfo.client, pinfo.port, cinfo.name, pinfo.name);
+				sprintf(buf, "%3d:%-3d   %-30.30s    %s\n",
+					client, port,
+					snd_seq_client_info_get_name(cinfo),
+					snd_seq_port_info_get_name(pinfo));
 				(*cpinfo)[cp] = strdup(buf);
 				cp++;
 			}
@@ -170,36 +178,49 @@ get_clientsports(char ***cpinfo)
 return cp;
 }
 
-#else /* !HAVE_SYS_ASOUNDLIB_H */
+#else /* !HAVE_ALSA9 */
 
 int
 get_clientsports(char ***cpinfo)
 {
-	snd_seq_client_info_t *cinfo;
-	snd_seq_port_info_t *pinfo;
+	snd_seq_client_info_t cinfo;
+	snd_seq_port_info_t pinfo;
+	snd_seq_system_info_t sysinfo;
 	snd_seq_t *handle;
 	int  client, port, cp, i;
 	char buf[128];
 
-	if (snd_seq_open(&handle, "hw", SND_SEQ_OPEN_DUPLEX, 0) < 0)
+	if( snd_seq_open(&handle, SND_SEQ_OPEN) < 0 )
 	{
 		fprintf(stderr, "Couldn't open sequence. Error was:\n%s\n", snd_strerror(errno));
 		return -1;
 	}
-	snd_seq_client_info_alloca(&cinfo);
-	snd_seq_port_info_alloca(&pinfo);
+	if( snd_seq_system_info(handle, &sysinfo) < 0 )
+	{
+		fprintf(stderr, "Couldn't get sequencer information. Error was:\n%s\n", snd_strerror(errno));
+		return -1;
+	}
+
 	cp = 0;
-	fprintf(stderr, "Port     %-30.30s    %s\n", "Client name", "Port name");
-	snd_seq_client_info_set_client(cinfo, 0);
-	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-		client = snd_seq_client_info_get_client(cinfo);
-		snd_seq_port_info_set_client(pinfo, client);
-		snd_seq_port_info_set_port(pinfo, -1);
-		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
+	fprintf(stderr, "Port      %-30.30s    %s\n", "Client name", "Port name");
+	/* First just count how many string pointers we'll need */
+	for(client=0;client<sysinfo.clients;client++)
+	{
+		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
+			continue;
+		for(port=0;port<sysinfo.ports;port++)
+		{
 			unsigned int cap;
+			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
+				continue;
 			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap)
+			if( (pinfo.capability & cap) == cap )
+			{
+/*
+				printf("%3d:%-3d   %-30.30s    %s\n", pinfo.client, pinfo.port, cinfo.name, pinfo.name);
+*/
 				cp++;
+			}
 		}
 	}
 
@@ -210,21 +231,20 @@ get_clientsports(char ***cpinfo)
 	}
 	/* Now do it again and add each client:port */
 	cp = 0;
-	snd_seq_client_info_set_client(cinfo, 0);
-	while (snd_seq_query_next_client(handle, cinfo) >= 0) {
-		client = snd_seq_client_info_get_client(cinfo);
-		snd_seq_port_info_set_client(pinfo, client);
-		snd_seq_port_info_set_port(pinfo, -1);
-		while (snd_seq_query_next_port(handle, pinfo) >= 0) {
+	for(client=0;client<sysinfo.clients;client++)
+	{
+		if( snd_seq_get_any_client_info(handle, client, &cinfo) < 0 )
+			continue;
+		for(port=0;port<sysinfo.ports;port++)
+		{
 			unsigned int cap;
-			port = snd_seq_port_info_get_port(pinfo);
+			if( snd_seq_get_any_port_info(handle, client, port, &pinfo) < 0 )
+				continue;
 			cap = (SND_SEQ_PORT_CAP_SUBS_WRITE|SND_SEQ_PORT_CAP_WRITE);
-			if ((snd_seq_port_info_get_capability(pinfo) & cap) == cap) {
+			if( (pinfo.capability & cap) == cap )
+			{
 				memset(buf, 0, sizeof(buf));
-				sprintf(buf, "%3d:%-3d   %-30.30s    %s\n",
-					client, port,
-					snd_seq_client_info_get_name(cinfo),
-					snd_seq_port_info_get_name(pinfo));
+				sprintf(buf, "%3d:%-3d   %-30.30s    %s\n", pinfo.client, pinfo.port, cinfo.name, pinfo.name);
 				(*cpinfo)[cp] = strdup(buf);
 				cp++;
 			}
@@ -238,7 +258,7 @@ get_clientsports(char ***cpinfo)
 return cp;
 }
 
-#endif /* HAVE_SYS_ASOUNDLIB_H */
+#endif /* HAVE_ALSA9 */
 
 void
 set_event_header(seq707_context_t *ctxp, snd_seq_event_t *ev)
@@ -403,14 +423,13 @@ alsa_setup(TK707 *tk707, char *portdesc, char *in_portdesc)
 	snd_seq_t *seq_handle = NULL;
 	snd_seq_t *ctrl_handle = NULL;
 	snd_seq_t *input_handle = NULL;
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	snd_seq_queue_tempo_t   tempo;
-#else
+#ifdef HAVE_ALSA9
 	snd_seq_queue_tempo_t *tempo;
+#else
+	snd_seq_queue_tempo_t   tempo;
 #endif
 
 
-
 /* Initialise contexts for pattern & control outputs */
 	if( seq707_context_init(&(tk707->ctxp_p)) < 0 )
 		return -1;
@@ -420,14 +439,7 @@ alsa_setup(TK707 *tk707, char *portdesc, char *in_portdesc)
 		return -1;
 
 /* Obtain handles to sequencers */
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	if( snd_seq_open(&(tk707->ctxp_p->handle), SND_SEQ_OPEN) < 0 )
-		return -1;
-	if( snd_seq_open(&(tk707->ctxp_c->handle), SND_SEQ_OPEN) < 0 )
-		return -1;
-	if( snd_seq_open(&(tk707->ctxp_i->handle), SND_SEQ_OPEN) < 0 )
-		return -1;
-#else
+#ifdef HAVE_ALSA9
 	if( snd_seq_open(&(tk707->ctxp_p->handle), "hw", SND_SEQ_OPEN_DUPLEX,
 			 SND_SEQ_NONBLOCK) < 0 )
 		return -1;
@@ -437,14 +449,22 @@ alsa_setup(TK707 *tk707, char *portdesc, char *in_portdesc)
 	if( snd_seq_open(&(tk707->ctxp_i->handle), "hw", SND_SEQ_OPEN_DUPLEX,
 			 SND_SEQ_NONBLOCK) < 0 )
 		return -1;
+#else
+	if( snd_seq_open(&(tk707->ctxp_p->handle), SND_SEQ_OPEN) < 0 )
+		return -1;
+	if( snd_seq_open(&(tk707->ctxp_c->handle), SND_SEQ_OPEN) < 0 )
+		return -1;
+	if( snd_seq_open(&(tk707->ctxp_i->handle), SND_SEQ_OPEN) < 0 )
+		return -1;
 #endif
 
+
 	seq_handle = tk707->ctxp_p->handle;
 	ctrl_handle = tk707->ctxp_c->handle;
 	input_handle = tk707->ctxp_i->handle;
 
 /* Set non-blocking mode for the queues */
-#ifdef HAVE_SYS_ASOUNDLIB_H
+#ifndef HAVE_ALSA9
 	if( snd_seq_block_mode(seq_handle, 0) < 0 )
 		return -1;
 	if( snd_seq_block_mode(ctrl_handle, 0) < 0 )
@@ -522,33 +542,33 @@ alsa_setup(TK707 *tk707, char *portdesc, char *in_portdesc)
 	}
 
 /* Set pattern queue tempo. Control queue doesn't seem to need it (yet?) */
-#ifdef HAVE_SYS_ASOUNDLIB_H
-	if( snd_seq_get_queue_tempo(seq_handle, dest_queue, &tempo) < 0 )
+#ifdef HAVE_ALSA9
+	snd_seq_queue_tempo_alloca(&tempo);
+	if (snd_seq_get_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
 		return -1;
 	ppq = tk707->ctxp_p->ppq;
-	if( tempo.ppq != ppq )
+	if (snd_seq_queue_tempo_get_ppq(tempo) != ppq )
 	{
-		tempo.ppq = ppq;
-		if( snd_seq_set_queue_tempo(seq_handle, dest_queue, &tempo) < 0 )
+		snd_seq_queue_tempo_set_ppq(tempo, ppq);
+		if( snd_seq_set_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
 		{
 			return -1;
 		}
 	}
-	tk707->ctxp_p->tempo = tempo.tempo;
+	tk707->ctxp_p->tempo = snd_seq_queue_tempo_get_tempo(tempo);
 #else
-	snd_seq_queue_tempo_alloca(&tempo);
-	if (snd_seq_get_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
+	if( snd_seq_get_queue_tempo(seq_handle, dest_queue, &tempo) < 0 )
 		return -1;
 	ppq = tk707->ctxp_p->ppq;
-	if (snd_seq_queue_tempo_get_ppq(tempo) != ppq )
+	if( tempo.ppq != ppq )
 	{
-		snd_seq_queue_tempo_set_ppq(tempo, ppq);
-		if( snd_seq_set_queue_tempo(seq_handle, dest_queue, tempo) < 0 )
+		tempo.ppq = ppq;
+		if( snd_seq_set_queue_tempo(seq_handle, dest_queue, &tempo) < 0 )
 		{
 			return -1;
 		}
 	}
-	tk707->ctxp_p->tempo = snd_seq_queue_tempo_get_tempo(tempo);
+	tk707->ctxp_p->tempo = tempo.tempo;
 #endif
 
 return 0;
diff --git a/util707.h b/util707.h
index 04f3d7f..41d2ff8 100644
--- a/util707.h
+++ b/util707.h
@@ -1,20 +1,46 @@
+/*
+ *   This file is part of tk707.
+ *
+ *   Copyright (C) 2000, 2001, 2002, 2003, 2004 Chris Willing and Pierre Saramito 
+ *
+ *   tk707 is free software; you can redistribute it and/or modify
+ *   it under the terms of the GNU General Public License as published by
+ *   the Free Software Foundation; either version 2 of the License, or
+ *   (at your option) any later version.
+ *
+ *   Foobar is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU General Public License for more details.
+ *
+ *   You should have received a copy of the GNU General Public License
+ *   along with Foobar; if not, write to the Free Software
+ *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
 #ifndef __UTIL707_H_
 #define __UTIL707_H_
 
 #include <stdio.h>
 #include <errno.h>
 #include <stdlib.h>
+
 #ifdef HAVE_CONFIG_H
 #include "config.h"
-#endif HAVE_CONFIG_H
+#endif /* HAVE_CONFIG_H */
 
-#ifdef HAVE_LIBASOUND
-#ifdef HAVE_SYS_ASOUNDLIB_H
-#include <sys/asoundlib.h>
-#else
+#ifdef HAVE_ALSA_ASOUNDLIB_H
 #include <alsa/asoundlib.h>
+#elif HAVE_LIBASOUND
+#include <sys/asoundlib.h>
+#endif
+
+#if (SND_LIB_MAJOR == 0) && (SND_LIB_MINOR >= 9)
+#define HAVE_ALSA9
+#endif
+
+#if (SND_LIB_MAJOR > 0)
+#define HAVE_ALSA9
 #endif
-#endif HAVE_LIBASOUND
 
 #ifndef HAVE_BOOL
 typedef int bool;
diff --git a/version.texi b/version.texi
index 4166dd1..017553e 100644
--- a/version.texi
+++ b/version.texi
@@ -1,3 +1,4 @@
-@set UPDATED 19 March 2001
-@set EDITION 0.7
-@set VERSION 0.7
+@set UPDATED 3 November 2004
+@set UPDATED-MONTH November 2004
+@set EDITION 0.8
+@set VERSION 0.8