diff options
Diffstat (limited to 'debian/patches/00-debian-changes.patch')
-rw-r--r-- | debian/patches/00-debian-changes.patch | 29459 |
1 files changed, 43 insertions, 29416 deletions
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='[0;31m'; \ -+ grn='[0;32m'; \ -+ lgn='[1;32m'; \ -+ blu='[1;34m'; \ -+ mgn='[0;35m'; \ -+ brg='[1m'; \ -+ std='[m'; \ -+ 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: |