--- tk707-0.7.21.orig/tcl2c.c +++ tk707-0.7.21/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, "\\\""); --- tk707-0.7.21.orig/acinclude.m4 +++ tk707-0.7.21/acinclude.m4 @@ -49,128 +49,3 @@ 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 -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 -], [ -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) -]) - --- tk707-0.7.21.orig/util707.c +++ tk707-0.7.21/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; } --- tk707-0.7.21.orig/defsa.c +++ tk707-0.7.21/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 \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 \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" +""; --- tk707-0.7.21.orig/aclocal.m4 +++ tk707-0.7.21/aclocal.m4 @@ -1,6 +1,6 @@ -dnl aclocal.m4 generated automatically by aclocal 1.4 +dnl aclocal.m4 generated automatically by aclocal 1.4-p6 -dnl Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. +dnl Copyright (C) 1994, 1995-8, 1999, 2001 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. @@ -62,134 +62,830 @@ ]) +# lib-prefix.m4 serial 3 (gettext-0.13) +dnl Copyright (C) 2001-2003 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License. As a special exception to the GNU General +dnl Public License, this file may be distributed as part of a program +dnl that contains a configuration script generated by Autoconf, under +dnl the same distribution terms as the rest of that program. + +dnl From Bruno Haible. + +dnl AC_LIB_ARG_WITH is synonymous to AC_ARG_WITH in autoconf-2.13, and +dnl similar to AC_ARG_WITH in autoconf 2.52...2.57 except that is doesn't +dnl require excessive bracketing. +ifdef([AC_HELP_STRING], +[AC_DEFUN([AC_LIB_ARG_WITH], [AC_ARG_WITH([$1],[[$2]],[$3],[$4])])], +[AC_DEFUN([AC_][LIB_ARG_WITH], [AC_ARG_WITH([$1],[$2],[$3],[$4])])]) + +dnl AC_LIB_PREFIX adds to the CPPFLAGS and LDFLAGS the flags that are needed +dnl to access previously installed libraries. The basic assumption is that +dnl a user will want packages to use other packages he previously installed +dnl with the same --prefix option. +dnl This macro is not needed if only AC_LIB_LINKFLAGS is used to locate +dnl libraries, but is otherwise very convenient. +AC_DEFUN([AC_LIB_PREFIX], +[ + AC_BEFORE([$0], [AC_LIB_LINKFLAGS]) + AC_REQUIRE([AC_PROG_CC]) + AC_REQUIRE([AC_CANONICAL_HOST]) + AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) + dnl By default, look in $includedir and $libdir. + use_additional=yes + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + AC_LIB_ARG_WITH([lib-prefix], +[ --with-lib-prefix[=DIR] search for libraries in DIR/include and DIR/lib + --without-lib-prefix don't search for libraries in includedir and libdir], +[ + if test "X$withval" = "Xno"; then + use_additional=no + else + if test "X$withval" = "X"; then + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + else + additional_includedir="$withval/include" + additional_libdir="$withval/lib" + fi + fi +]) + if test $use_additional = yes; then + dnl Potentially add $additional_includedir to $CPPFLAGS. + dnl But don't add it + dnl 1. if it's the standard /usr/include, + dnl 2. if it's already present in $CPPFLAGS, + dnl 3. if it's /usr/local/include and we are using GCC on Linux, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_includedir" != "X/usr/include"; then + haveit= + for x in $CPPFLAGS; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-I$additional_includedir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test "X$additional_includedir" = "X/usr/local/include"; then + if test -n "$GCC"; then + case $host_os in + linux*) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + if test -d "$additional_includedir"; then + dnl Really add $additional_includedir to $CPPFLAGS. + CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }-I$additional_includedir" + fi + fi + fi + fi + dnl Potentially add $additional_libdir to $LDFLAGS. + dnl But don't add it + dnl 1. if it's the standard /usr/lib, + dnl 2. if it's already present in $LDFLAGS, + dnl 3. if it's /usr/local/lib and we are using GCC on Linux, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_libdir" != "X/usr/lib"; then + haveit= + for x in $LDFLAGS; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test "X$additional_libdir" = "X/usr/local/lib"; then + if test -n "$GCC"; then + case $host_os in + linux*) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LDFLAGS. + LDFLAGS="${LDFLAGS}${LDFLAGS:+ }-L$additional_libdir" + fi + fi + fi + fi + fi +]) -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 -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 AC_LIB_PREPARE_PREFIX creates variables acl_final_prefix, +dnl acl_final_exec_prefix, containing the values to which $prefix and +dnl $exec_prefix will expand at the end of the configure script. +AC_DEFUN([AC_LIB_PREPARE_PREFIX], +[ + dnl Unfortunately, prefix and exec_prefix get only finally determined + dnl at the end of configure. + if test "X$prefix" = "XNONE"; then + acl_final_prefix="$ac_default_prefix" + else + acl_final_prefix="$prefix" + fi + if test "X$exec_prefix" = "XNONE"; then + acl_final_exec_prefix='${prefix}' + else + acl_final_exec_prefix="$exec_prefix" + fi + acl_save_prefix="$prefix" + prefix="$acl_final_prefix" + eval acl_final_exec_prefix=\"$acl_final_exec_prefix\" + prefix="$acl_save_prefix" +]) -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/'` +dnl AC_LIB_WITH_FINAL_PREFIX([statement]) evaluates statement, with the +dnl variables prefix and exec_prefix bound to the values they will have +dnl at the end of the configure script. +AC_DEFUN([AC_LIB_WITH_FINAL_PREFIX], +[ + acl_save_prefix="$prefix" + prefix="$acl_final_prefix" + acl_save_exec_prefix="$exec_prefix" + exec_prefix="$acl_final_exec_prefix" + $1 + exec_prefix="$acl_save_exec_prefix" + prefix="$acl_save_prefix" +]) -AC_LANG_SAVE -AC_LANG_C -AC_TRY_COMPILE([ -#include -], [ -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 +# lib-link.m4 serial 4 (gettext-0.12) +dnl Copyright (C) 2001-2003 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License. As a special exception to the GNU General +dnl Public License, this file may be distributed as part of a program +dnl that contains a configuration script generated by Autoconf, under +dnl the same distribution terms as the rest of that program. + +dnl From Bruno Haible. + +dnl AC_LIB_LINKFLAGS(name [, dependencies]) searches for libname and +dnl the libraries corresponding to explicit and implicit dependencies. +dnl Sets and AC_SUBSTs the LIB${NAME} and LTLIB${NAME} variables and +dnl augments the CPPFLAGS variable. +AC_DEFUN([AC_LIB_LINKFLAGS], +[ + AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) + AC_REQUIRE([AC_LIB_RPATH]) + define([Name],[translit([$1],[./-], [___])]) + define([NAME],[translit([$1],[abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___])]) + AC_CACHE_CHECK([how to link with lib[]$1], [ac_cv_lib[]Name[]_libs], [ + AC_LIB_LINKFLAGS_BODY([$1], [$2]) + ac_cv_lib[]Name[]_libs="$LIB[]NAME" + ac_cv_lib[]Name[]_ltlibs="$LTLIB[]NAME" + ac_cv_lib[]Name[]_cppflags="$INC[]NAME" + ]) + LIB[]NAME="$ac_cv_lib[]Name[]_libs" + LTLIB[]NAME="$ac_cv_lib[]Name[]_ltlibs" + INC[]NAME="$ac_cv_lib[]Name[]_cppflags" + AC_LIB_APPENDTOVAR([CPPFLAGS], [$INC]NAME) + AC_SUBST([LIB]NAME) + AC_SUBST([LTLIB]NAME) + dnl Also set HAVE_LIB[]NAME so that AC_LIB_HAVE_LINKFLAGS can reuse the + dnl results of this search when this library appears as a dependency. + HAVE_LIB[]NAME=yes + undefine([Name]) + undefine([NAME]) +]) -# if(SND_LIB_MAJOR > $alsa_min_major_version) - exit(0); -# else -# if(SND_LIB_MAJOR < $alsa_min_major_version) -# error not present -# endif +dnl AC_LIB_HAVE_LINKFLAGS(name, dependencies, includes, testcode) +dnl searches for libname and the libraries corresponding to explicit and +dnl implicit dependencies, together with the specified include files and +dnl the ability to compile and link the specified testcode. If found, it +dnl sets and AC_SUBSTs HAVE_LIB${NAME}=yes and the LIB${NAME} and +dnl LTLIB${NAME} variables and augments the CPPFLAGS variable, and +dnl #defines HAVE_LIB${NAME} to 1. Otherwise, it sets and AC_SUBSTs +dnl HAVE_LIB${NAME}=no and LIB${NAME} and LTLIB${NAME} to empty. +AC_DEFUN([AC_LIB_HAVE_LINKFLAGS], +[ + AC_REQUIRE([AC_LIB_PREPARE_PREFIX]) + AC_REQUIRE([AC_LIB_RPATH]) + define([Name],[translit([$1],[./-], [___])]) + define([NAME],[translit([$1],[abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___])]) + + dnl Search for lib[]Name and define LIB[]NAME, LTLIB[]NAME and INC[]NAME + dnl accordingly. + AC_LIB_LINKFLAGS_BODY([$1], [$2]) + + dnl Add $INC[]NAME to CPPFLAGS before performing the following checks, + dnl because if the user has installed lib[]Name and not disabled its use + dnl via --without-lib[]Name-prefix, he wants to use it. + ac_save_CPPFLAGS="$CPPFLAGS" + AC_LIB_APPENDTOVAR([CPPFLAGS], [$INC]NAME) + + AC_CACHE_CHECK([for lib[]$1], [ac_cv_lib[]Name], [ + ac_save_LIBS="$LIBS" + LIBS="$LIBS $LIB[]NAME" + AC_TRY_LINK([$3], [$4], [ac_cv_lib[]Name=yes], [ac_cv_lib[]Name=no]) + LIBS="$ac_save_LIBS" + ]) + if test "$ac_cv_lib[]Name" = yes; then + HAVE_LIB[]NAME=yes + AC_DEFINE([HAVE_LIB]NAME, 1, [Define if you have the $1 library.]) + AC_MSG_CHECKING([how to link with lib[]$1]) + AC_MSG_RESULT([$LIB[]NAME]) + else + HAVE_LIB[]NAME=no + dnl If $LIB[]NAME didn't lead to a usable library, we don't need + dnl $INC[]NAME either. + CPPFLAGS="$ac_save_CPPFLAGS" + LIB[]NAME= + LTLIB[]NAME= + fi + AC_SUBST([HAVE_LIB]NAME) + AC_SUBST([LIB]NAME) + AC_SUBST([LTLIB]NAME) + undefine([Name]) + undefine([NAME]) +]) -# if(SND_LIB_MINOR > $alsa_min_minor_version) - exit(0); -# else -# if(SND_LIB_MINOR < $alsa_min_minor_version) -# error not present -# endif +dnl Determine the platform dependent parameters needed to use rpath: +dnl libext, shlibext, hardcode_libdir_flag_spec, hardcode_libdir_separator, +dnl hardcode_direct, hardcode_minus_L. +AC_DEFUN([AC_LIB_RPATH], +[ + AC_REQUIRE([AC_PROG_CC]) dnl we use $CC, $GCC, $LDFLAGS + AC_REQUIRE([AC_LIB_PROG_LD]) dnl we use $LD, $with_gnu_ld + AC_REQUIRE([AC_CANONICAL_HOST]) dnl we use $host + AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT]) dnl we use $ac_aux_dir + AC_CACHE_CHECK([for shared library run path origin], acl_cv_rpath, [ + CC="$CC" GCC="$GCC" LDFLAGS="$LDFLAGS" LD="$LD" with_gnu_ld="$with_gnu_ld" \ + ${CONFIG_SHELL-/bin/sh} "$ac_aux_dir/config.rpath" "$host" > conftest.sh + . ./conftest.sh + rm -f ./conftest.sh + acl_cv_rpath=done + ]) + wl="$acl_cv_wl" + libext="$acl_cv_libext" + shlibext="$acl_cv_shlibext" + hardcode_libdir_flag_spec="$acl_cv_hardcode_libdir_flag_spec" + hardcode_libdir_separator="$acl_cv_hardcode_libdir_separator" + hardcode_direct="$acl_cv_hardcode_direct" + hardcode_minus_L="$acl_cv_hardcode_minus_L" + dnl Determine whether the user wants rpath handling at all. + AC_ARG_ENABLE(rpath, + [ --disable-rpath do not hardcode runtime library paths], + :, enable_rpath=yes) +]) -# 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 AC_LIB_LINKFLAGS_BODY(name [, dependencies]) searches for libname and +dnl the libraries corresponding to explicit and implicit dependencies. +dnl Sets the LIB${NAME}, LTLIB${NAME} and INC${NAME} variables. +AC_DEFUN([AC_LIB_LINKFLAGS_BODY], +[ + define([NAME],[translit([$1],[abcdefghijklmnopqrstuvwxyz./-], + [ABCDEFGHIJKLMNOPQRSTUVWXYZ___])]) + dnl By default, look in $includedir and $libdir. + use_additional=yes + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + AC_LIB_ARG_WITH([lib$1-prefix], +[ --with-lib$1-prefix[=DIR] search for lib$1 in DIR/include and DIR/lib + --without-lib$1-prefix don't search for lib$1 in includedir and libdir], +[ + if test "X$withval" = "Xno"; then + use_additional=no + else + if test "X$withval" = "X"; then + AC_LIB_WITH_FINAL_PREFIX([ + eval additional_includedir=\"$includedir\" + eval additional_libdir=\"$libdir\" + ]) + else + additional_includedir="$withval/include" + additional_libdir="$withval/lib" + fi + fi +]) + dnl Search the library and its dependencies in $additional_libdir and + dnl $LDFLAGS. Using breadth-first-seach. + LIB[]NAME= + LTLIB[]NAME= + INC[]NAME= + rpathdirs= + ltrpathdirs= + names_already_handled= + names_next_round='$1 $2' + while test -n "$names_next_round"; do + names_this_round="$names_next_round" + names_next_round= + for name in $names_this_round; do + already_handled= + for n in $names_already_handled; do + if test "$n" = "$name"; then + already_handled=yes + break + fi + done + if test -z "$already_handled"; then + names_already_handled="$names_already_handled $name" + dnl See if it was already located by an earlier AC_LIB_LINKFLAGS + dnl or AC_LIB_HAVE_LINKFLAGS call. + uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./-|ABCDEFGHIJKLMNOPQRSTUVWXYZ___|'` + eval value=\"\$HAVE_LIB$uppername\" + if test -n "$value"; then + if test "$value" = yes; then + eval value=\"\$LIB$uppername\" + test -z "$value" || LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$value" + eval value=\"\$LTLIB$uppername\" + test -z "$value" || LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$value" + else + dnl An earlier call to AC_LIB_HAVE_LINKFLAGS has determined + dnl that this library doesn't exist. So just drop it. + : + fi + else + dnl Search the library lib$name in $additional_libdir and $LDFLAGS + dnl and the already constructed $LIBNAME/$LTLIBNAME. + found_dir= + found_la= + found_so= + found_a= + if test $use_additional = yes; then + if test -n "$shlibext" && test -f "$additional_libdir/lib$name.$shlibext"; then + found_dir="$additional_libdir" + found_so="$additional_libdir/lib$name.$shlibext" + if test -f "$additional_libdir/lib$name.la"; then + found_la="$additional_libdir/lib$name.la" + fi + else + if test -f "$additional_libdir/lib$name.$libext"; then + found_dir="$additional_libdir" + found_a="$additional_libdir/lib$name.$libext" + if test -f "$additional_libdir/lib$name.la"; then + found_la="$additional_libdir/lib$name.la" + fi + fi + fi + fi + if test "X$found_dir" = "X"; then + for x in $LDFLAGS $LTLIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + case "$x" in + -L*) + dir=`echo "X$x" | sed -e 's/^X-L//'` + if test -n "$shlibext" && test -f "$dir/lib$name.$shlibext"; then + found_dir="$dir" + found_so="$dir/lib$name.$shlibext" + if test -f "$dir/lib$name.la"; then + found_la="$dir/lib$name.la" + fi + else + if test -f "$dir/lib$name.$libext"; then + found_dir="$dir" + found_a="$dir/lib$name.$libext" + if test -f "$dir/lib$name.la"; then + found_la="$dir/lib$name.la" + fi + fi + fi + ;; + esac + if test "X$found_dir" != "X"; then + break + fi + done + fi + if test "X$found_dir" != "X"; then + dnl Found the library. + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$found_dir -l$name" + if test "X$found_so" != "X"; then + dnl Linking with a shared library. We attempt to hardcode its + dnl directory into the executable's runpath, unless it's the + dnl standard /usr/lib. + if test "$enable_rpath" = no || test "X$found_dir" = "X/usr/lib"; then + dnl No hardcoding is needed. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + dnl Use an explicit option to hardcode DIR into the resulting + dnl binary. + dnl Potentially add DIR to ltrpathdirs. + dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. + haveit= + for x in $ltrpathdirs; do + if test "X$x" = "X$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + ltrpathdirs="$ltrpathdirs $found_dir" + fi + dnl The hardcoding into $LIBNAME is system dependent. + if test "$hardcode_direct" = yes; then + dnl Using DIR/libNAME.so during linking hardcodes DIR into the + dnl resulting binary. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + if test -n "$hardcode_libdir_flag_spec" && test "$hardcode_minus_L" = no; then + dnl Use an explicit option to hardcode DIR into the resulting + dnl binary. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + dnl Potentially add DIR to rpathdirs. + dnl The rpathdirs will be appended to $LIBNAME at the end. + haveit= + for x in $rpathdirs; do + if test "X$x" = "X$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + rpathdirs="$rpathdirs $found_dir" + fi + else + dnl Rely on "-L$found_dir". + dnl But don't add it if it's already contained in the LDFLAGS + dnl or the already constructed $LIBNAME + haveit= + for x in $LDFLAGS $LIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$found_dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir" + fi + if test "$hardcode_minus_L" != no; then + dnl FIXME: Not sure whether we should use + dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" + dnl here. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_so" + else + dnl We cannot use $hardcode_runpath_var and LD_RUN_PATH + dnl here, because this doesn't fit in flags passed to the + dnl compiler. So give up. No hardcoding. This affects only + dnl very old systems. + dnl FIXME: Not sure whether we should use + dnl "-L$found_dir -l$name" or "-L$found_dir $found_so" + dnl here. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" + fi + fi + fi + fi + else + if test "X$found_a" != "X"; then + dnl Linking with a static library. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$found_a" + else + dnl We shouldn't come here, but anyway it's good to have a + dnl fallback. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$found_dir -l$name" + fi + fi + dnl Assume the include files are nearby. + additional_includedir= + case "$found_dir" in + */lib | */lib/) + basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e 's,/lib/*$,,'` + additional_includedir="$basedir/include" + ;; + esac + if test "X$additional_includedir" != "X"; then + dnl Potentially add $additional_includedir to $INCNAME. + dnl But don't add it + dnl 1. if it's the standard /usr/include, + dnl 2. if it's /usr/local/include and we are using GCC on Linux, + dnl 3. if it's already present in $CPPFLAGS or the already + dnl constructed $INCNAME, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_includedir" != "X/usr/include"; then + haveit= + if test "X$additional_includedir" = "X/usr/local/include"; then + if test -n "$GCC"; then + case $host_os in + linux*) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + for x in $CPPFLAGS $INC[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-I$additional_includedir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_includedir"; then + dnl Really add $additional_includedir to $INCNAME. + INC[]NAME="${INC[]NAME}${INC[]NAME:+ }-I$additional_includedir" + fi + fi + fi + fi + fi + dnl Look for dependencies. + if test -n "$found_la"; then + dnl Read the .la file. It defines the variables + dnl dlname, library_names, old_library, dependency_libs, current, + dnl age, revision, installed, dlopen, dlpreopen, libdir. + save_libdir="$libdir" + case "$found_la" in + */* | *\\*) . "$found_la" ;; + *) . "./$found_la" ;; + esac + libdir="$save_libdir" + dnl We use only dependency_libs. + for dep in $dependency_libs; do + case "$dep" in + -L*) + additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'` + dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME. + dnl But don't add it + dnl 1. if it's the standard /usr/lib, + dnl 2. if it's /usr/local/lib and we are using GCC on Linux, + dnl 3. if it's already present in $LDFLAGS or the already + dnl constructed $LIBNAME, + dnl 4. if it doesn't exist as a directory. + if test "X$additional_libdir" != "X/usr/lib"; then + haveit= + if test "X$additional_libdir" = "X/usr/local/lib"; then + if test -n "$GCC"; then + case $host_os in + linux*) haveit=yes;; + esac + fi + fi + if test -z "$haveit"; then + haveit= + for x in $LDFLAGS $LIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LIBNAME. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-L$additional_libdir" + fi + fi + haveit= + for x in $LDFLAGS $LTLIB[]NAME; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X-L$additional_libdir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + if test -d "$additional_libdir"; then + dnl Really add $additional_libdir to $LTLIBNAME. + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-L$additional_libdir" + fi + fi + fi + fi + ;; + -R*) + dir=`echo "X$dep" | sed -e 's/^X-R//'` + if test "$enable_rpath" != no; then + dnl Potentially add DIR to rpathdirs. + dnl The rpathdirs will be appended to $LIBNAME at the end. + haveit= + for x in $rpathdirs; do + if test "X$x" = "X$dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + rpathdirs="$rpathdirs $dir" + fi + dnl Potentially add DIR to ltrpathdirs. + dnl The ltrpathdirs will be appended to $LTLIBNAME at the end. + haveit= + for x in $ltrpathdirs; do + if test "X$x" = "X$dir"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + ltrpathdirs="$ltrpathdirs $dir" + fi + fi + ;; + -l*) + dnl Handle this in the next round. + names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'` + ;; + *.la) + dnl Handle this in the next round. Throw away the .la's + dnl directory; it is already contained in a preceding -L + dnl option. + names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'` + ;; + *) + dnl Most likely an immediate library name. + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$dep" + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }$dep" + ;; + esac + done + fi + else + dnl Didn't find the library; assume it is in the system directories + dnl known to the linker and runtime loader. (All the system + dnl directories known to the linker should also be known to the + dnl runtime loader, otherwise the system is severely misconfigured.) + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }-l$name" + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-l$name" + fi + fi + fi + done + done + if test "X$rpathdirs" != "X"; then + if test -n "$hardcode_libdir_separator"; then + dnl Weird platform: only the last -rpath option counts, the user must + dnl pass all path elements in one option. We can arrange that for a + dnl single library, but not when more than one $LIBNAMEs are used. + alldirs= + for found_dir in $rpathdirs; do + alldirs="${alldirs}${alldirs:+$hardcode_libdir_separator}$found_dir" + done + dnl Note: hardcode_libdir_flag_spec uses $libdir and $wl. + acl_save_libdir="$libdir" + libdir="$alldirs" + eval flag=\"$hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" + else + dnl The -rpath options are cumulative. + for found_dir in $rpathdirs; do + acl_save_libdir="$libdir" + libdir="$found_dir" + eval flag=\"$hardcode_libdir_flag_spec\" + libdir="$acl_save_libdir" + LIB[]NAME="${LIB[]NAME}${LIB[]NAME:+ }$flag" + done + fi + fi + if test "X$ltrpathdirs" != "X"; then + dnl When using libtool, the option that works for both libraries and + dnl executables is -R. The -R options are cumulative. + for found_dir in $ltrpathdirs; do + LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-R$found_dir" + done + 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.)] -) +dnl AC_LIB_APPENDTOVAR(VAR, CONTENTS) appends the elements of CONTENTS to VAR, +dnl unless already present in VAR. +dnl Works only for CPPFLAGS, not for LIB* variables because that sometimes +dnl contains two or three consecutive elements that belong together. +AC_DEFUN([AC_LIB_APPENDTOVAR], +[ + for element in [$2]; do + haveit= + for x in $[$1]; do + AC_LIB_WITH_FINAL_PREFIX([eval x=\"$x\"]) + if test "X$x" = "X$element"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + [$1]="${[$1]}${[$1]:+ }$element" + fi + done +]) -dnl That should be it. Now just export out symbols: -AC_SUBST(ALSA_CFLAGS) -AC_SUBST(ALSA_LIBS) +# lib-ld.m4 serial 3 (gettext-0.13) +dnl Copyright (C) 1996-2003 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License. As a special exception to the GNU General +dnl Public License, this file may be distributed as part of a program +dnl that contains a configuration script generated by Autoconf, under +dnl the same distribution terms as the rest of that program. + +dnl Subroutines of libtool.m4, +dnl with replacements s/AC_/AC_LIB/ and s/lt_cv/acl_cv/ to avoid collision +dnl with libtool.m4. + +dnl From libtool-1.4. Sets the variable with_gnu_ld to yes or no. +AC_DEFUN([AC_LIB_PROG_LD_GNU], +[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], acl_cv_prog_gnu_ld, +[# I'd rather use --version here, but apparently some GNU ld's only accept -v. +case `$LD -v 2>&1 conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi +ac_prog=ld +if test "$GCC" = yes; then + # Check if gcc -print-prog-name=ld gives a path. + AC_MSG_CHECKING([for ld used by GCC]) + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [[\\/]* | [A-Za-z]:[\\/]*)] + [re_direlt='/[^/][^/]*/\.\./'] + # Canonicalize the path of ld + ac_prog=`echo $ac_prog| sed 's%\\\\%/%g'` + while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do + ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"` + done + test -z "$LD" && LD="$ac_prog" + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test "$with_gnu_ld" = yes; then + AC_MSG_CHECKING([for GNU ld]) +else + AC_MSG_CHECKING([for non-GNU ld]) +fi +AC_CACHE_VAL(acl_cv_path_LD, +[if test -z "$LD"; then + IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR-:}" + for ac_dir in $PATH; do + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + acl_cv_path_LD="$ac_dir/$ac_prog" + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some GNU ld's only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$acl_cv_path_LD" -v 2>&1 < /dev/null` in + *GNU* | *'with BFD'*) + test "$with_gnu_ld" != no && break ;; + *) + test "$with_gnu_ld" != yes && break ;; + esac + fi + done + IFS="$ac_save_ifs" +else + acl_cv_path_LD="$LD" # Let the user override the test with a path. +fi]) +LD="$acl_cv_path_LD" +if test -n "$LD"; then + AC_MSG_RESULT($LD) +else + AC_MSG_RESULT(no) +fi +test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH]) +AC_LIB_PROG_LD_GNU +]) # Define a conditional. -AC_DEFUN(AM_CONDITIONAL, +AC_DEFUN([AM_CONDITIONAL], [AC_SUBST($1_TRUE) AC_SUBST($1_FALSE) if $2; then @@ -209,8 +905,9 @@ dnl Usage: dnl AM_INIT_AUTOMAKE(package,version, [no-define]) -AC_DEFUN(AM_INIT_AUTOMAKE, -[AC_REQUIRE([AC_PROG_INSTALL]) +AC_DEFUN([AM_INIT_AUTOMAKE], +[AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl +AC_REQUIRE([AC_PROG_INSTALL]) PACKAGE=[$1] AC_SUBST(PACKAGE) VERSION=[$2] @@ -226,18 +923,47 @@ 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(ACLOCAL, aclocal-${am__api_version}, $missing_dir) AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir) -AM_MISSING_PROG(AUTOMAKE, automake, $missing_dir) +AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}, $missing_dir) AM_MISSING_PROG(AUTOHEADER, autoheader, $missing_dir) AM_MISSING_PROG(MAKEINFO, makeinfo, $missing_dir) AC_REQUIRE([AC_PROG_MAKE_SET])]) +# Copyright 2002 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + +# 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. +AC_DEFUN([AM_AUTOMAKE_VERSION],[am__api_version="1.4"]) + +# AM_SET_CURRENT_AUTOMAKE_VERSION +# ------------------------------- +# Call AM_AUTOMAKE_VERSION so it can be traced. +# This function is AC_REQUIREd by AC_INIT_AUTOMAKE. +AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], + [AM_AUTOMAKE_VERSION([1.4-p6])]) + # # Check to make sure that the build environment is sane. # -AC_DEFUN(AM_SANITY_CHECK, +AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 @@ -278,7 +1004,7 @@ dnl AM_MISSING_PROG(NAME, PROGRAM, DIRECTORY) dnl The program must properly implement --version. -AC_DEFUN(AM_MISSING_PROG, +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. @@ -294,7 +1020,7 @@ # Like AC_CONFIG_HEADER, but automatically create stamp file. -AC_DEFUN(AM_CONFIG_HEADER, +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. @@ -315,3 +1041,146 @@ done<<>>dnl>>) changequote([,]))]) +dnl Configure Paths for Alsa +dnl Some modifications by Richard Boulton +dnl Christopher Lansdown +dnl Jaroslav Kysela +dnl Last modification: alsa.m4,v 1.23 2004/01/16 18:14:22 tiwai Exp +dnl AM_PATH_ALSA([MINIMUM-VERSION [, ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]]) +dnl Test for libasound, and define ALSA_CFLAGS and ALSA_LIBS as appropriate. +dnl enables arguments --with-alsa-prefix= +dnl --with-alsa-enc-prefix= +dnl --disable-alsatest +dnl +dnl For backwards compatibility, if ACTION_IF_NOT_FOUND is not specified, +dnl and the alsa libraries are not found, a fatal AC_MSG_ERROR() will result. +dnl +AC_DEFUN([AM_PATH_ALSA], +[dnl Save the original CFLAGS, LDFLAGS, and LIBS +alsa_save_CFLAGS="$CFLAGS" +alsa_save_LDFLAGS="$LDFLAGS" +alsa_save_LIBS="$LIBS" +alsa_found=yes + +dnl +dnl Get the cflags and libraries for alsa +dnl +AC_ARG_WITH(alsa-prefix, +[ --with-alsa-prefix=PFX Prefix where Alsa library is installed(optional)], +[alsa_prefix="$withval"], [alsa_prefix=""]) + +AC_ARG_WITH(alsa-inc-prefix, +[ --with-alsa-inc-prefix=PFX Prefix where include libraries are (optional)], +[alsa_inc_prefix="$withval"], [alsa_inc_prefix=""]) + +dnl FIXME: this is not yet implemented +AC_ARG_ENABLE(alsatest, +[ --disable-alsatest Do not try to compile and run a test Alsa program], +[enable_alsatest="$enableval"], +[enable_alsatest=yes]) + +dnl Add any special include directories +AC_MSG_CHECKING(for ALSA CFLAGS) +if test "$alsa_inc_prefix" != "" ; then + ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix" + CFLAGS="$CFLAGS -I$alsa_inc_prefix" +fi +AC_MSG_RESULT($ALSA_CFLAGS) +CFLAGS="$alsa_save_CFLAGS" + +dnl add any special lib dirs +AC_MSG_CHECKING(for ALSA LDFLAGS) +if test "$alsa_prefix" != "" ; then + ALSA_LIBS="$ALSA_LIBS -L$alsa_prefix" + LDFLAGS="$LDFLAGS $ALSA_LIBS" +fi + +dnl add the alsa library +ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread" +LIBS=`echo $LIBS | sed 's/-lm//'` +LIBS=`echo $LIBS | sed 's/-ldl//'` +LIBS=`echo $LIBS | sed 's/-lpthread//'` +LIBS=`echo $LIBS | sed 's/ //'` +LIBS="$ALSA_LIBS $LIBS" +AC_MSG_RESULT($ALSA_LIBS) + +dnl Check for a working version of libasound that is of the right version. +min_alsa_version=ifelse([$1], ,0.1.1,$1) +AC_MSG_CHECKING(for libasound headers version >= $min_alsa_version) +no_alsa="" + alsa_min_major_version=`echo $min_alsa_version | \ + sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'` + alsa_min_minor_version=`echo $min_alsa_version | \ + sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'` + alsa_min_micro_version=`echo $min_alsa_version | \ + sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'` + +AC_LANG_SAVE +AC_LANG_C +AC_TRY_COMPILE([ +#include +], [ +/* ensure backward compatibility */ +#if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR) +#define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR +#endif +#if !defined(SND_LIB_MINOR) && defined(SOUNDLIB_VERSION_MINOR) +#define SND_LIB_MINOR SOUNDLIB_VERSION_MINOR +#endif +#if !defined(SND_LIB_SUBMINOR) && defined(SOUNDLIB_VERSION_SUBMINOR) +#define SND_LIB_SUBMINOR SOUNDLIB_VERSION_SUBMINOR +#endif + +# if(SND_LIB_MAJOR > $alsa_min_major_version) + exit(0); +# else +# if(SND_LIB_MAJOR < $alsa_min_major_version) +# error not present +# endif + +# if(SND_LIB_MINOR > $alsa_min_minor_version) + exit(0); +# else +# if(SND_LIB_MINOR < $alsa_min_minor_version) +# error not present +# endif + +# if(SND_LIB_SUBMINOR < $alsa_min_micro_version) +# error not present +# endif +# endif +# endif +exit(0); +], + [AC_MSG_RESULT(found.)], + [AC_MSG_RESULT(not present.) + ifelse([$3], , [AC_MSG_ERROR(Sufficiently new version of libasound not found.)]) + alsa_found=no] +) +AC_LANG_RESTORE + +dnl Now that we know that we have the right version, let's see if we have the library and not just the headers. +if test "x$enable_alsatest" = "xyes"; then +AC_CHECK_LIB([asound], [snd_ctl_open],, + [ifelse([$3], , [AC_MSG_ERROR(No linkable libasound was found.)]) + alsa_found=no] +) +fi + +LDFLAGS="$alsa_save_LDFLAGS" +LIBS="$alsa_save_LIBS" + +if test "x$alsa_found" = "xyes" ; then + ifelse([$2], , :, [$2]) +else + ALSA_CFLAGS="" + ALSA_LIBS="" + ifelse([$3], , :, [$3]) +fi + +dnl That should be it. Now just export out symbols: +AC_SUBST(ALSA_CFLAGS) +AC_SUBST(ALSA_LIBS) +]) + + --- tk707-0.7.21.orig/Makefile.in +++ tk707-0.7.21/Makefile.in @@ -1,6 +1,6 @@ -# Makefile.in generated automatically by automake 1.4 from Makefile.am +# Makefile.in generated automatically by automake 1.4-p6 from Makefile.am -# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. +# Copyright (C) 1994, 1995-8, 1999, 2001 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. @@ -61,12 +61,17 @@ NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : +host_alias = @host_alias@ +host_triplet = @host@ ALSA_CFLAGS = @ALSA_CFLAGS@ ALSA_LIBS = @ALSA_LIBS@ CC = @CC@ FIG2DEV = @FIG2DEV@ +HAVE_LIB = @HAVE_LIB@ LAME = @LAME@ LEX = @LEX@ +LIB = @LIB@ +LTLIB = @LTLIB@ MAKEINFO = @MAKEINFO@ MIDIDUMP = @MIDIDUMP@ PACKAGE = @PACKAGE@ @@ -95,8 +100,8 @@ tcl2c_SOURCES = tcl2c.c texi2help_SOURCES = texi2help.l -tk707bin_LDFLAGS = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) -tk707tcl_LDFLAGS = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) +tk707bin_LDADD = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) +tk707tcl_LDADD = $(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 @@ -146,10 +151,8 @@ 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) @@ -178,8 +181,13 @@ DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) -TAR = gtar +TAR = tar GZIP_ENV = --best +DEP_FILES = .deps/defs.P .deps/defsa.P .deps/element707.P .deps/gui.P \ +.deps/help.P .deps/play.P .deps/playa.P .deps/ports.P .deps/procs.P \ +.deps/score.P .deps/score_defs.P .deps/tcl2c.P .deps/texi2help.P \ +.deps/title.P .deps/title_defs.P .deps/tk707.P .deps/tk707AppInit.P \ +.deps/util707.P SOURCES = $(tcl2c_SOURCES) $(tk707bin_SOURCES) $(tk707tcl_SOURCES) $(texi2help_SOURCES) OBJECTS = $(tcl2c_OBJECTS) $(tk707bin_OBJECTS) $(tk707tcl_OBJECTS) $(texi2help_OBJECTS) @@ -187,9 +195,9 @@ .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 + cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile -Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status @@ -240,9 +248,6 @@ maintainer-clean-noinstPROGRAMS: -.c.o: - $(COMPILE) -c $< - .s.o: $(COMPILE) -c $< @@ -379,7 +384,7 @@ else ii=; fi; \ list='$(INFO_DEPS)'; \ for file in $$list; do \ - test -z "$ii" \ + test -z "$$ii" \ || install-info --info-dir=$(DESTDIR)$(infodir) --remove $$file; \ done @$(NORMAL_UNINSTALL) @@ -512,7 +517,7 @@ 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) + || (cd $(srcdir) && etags -o $$here/TAGS $(ETAGS_ARGS) $$tags config.h.in $$unique $(LISP)) mostlyclean-tags: @@ -561,10 +566,15 @@ -rm -rf $(distdir) mkdir $(distdir) -chmod 777 $(distdir) + here=`cd $(top_builddir) && pwd`; \ + top_distdir=`cd $(distdir) && pwd`; \ + distdir=`cd $(distdir) && pwd`; \ + cd $(top_srcdir) \ + && $(AUTOMAKE) --include-deps --build-dir=$$here --srcdir-name=$(top_srcdir) --output-dir=$$top_distdir --gnu Makefile @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ - cp -pr $$/$$file $(distdir)/$$file; \ + cp -pr $$d/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ @@ -572,9 +582,38 @@ fi; \ done $(MAKE) $(AM_MAKEFLAGS) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-info -tcl2c.o: tcl2c.c -texi2help.o: texi2help.c +DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) + +-include $(DEP_FILES) + +mostlyclean-depend: + +clean-depend: + +distclean-depend: + -rm -rf .deps + +maintainer-clean-depend: + +%.o: %.c + @echo '$(COMPILE) -c $<'; \ + $(COMPILE) -Wp,-MD,.deps/$(*F).pp -c $< + @-cp .deps/$(*F).pp .deps/$(*F).P; \ + tr ' ' '\012' < .deps/$(*F).pp \ + | sed -e 's/^\\$$//' -e '/^$$/ d' -e '/:$$/ d' -e 's/$$/ :/' \ + >> .deps/$(*F).P; \ + rm .deps/$(*F).pp + +%.lo: %.c + @echo '$(LTCOMPILE) -c $<'; \ + $(LTCOMPILE) -Wp,-MD,.deps/$(*F).pp -c $< + @-sed -e 's/^\([^:]*\)\.o[ ]*:/\1.lo \1.o :/' \ + < .deps/$(*F).pp > .deps/$(*F).P; \ + tr ' ' '\012' < .deps/$(*F).pp \ + | sed -e 's/^\\$$//' -e '/^$$/ d' -e '/:$$/ d' -e 's/$$/ :/' \ + >> .deps/$(*F).P; \ + rm -f .deps/$(*F).pp check-TESTS: $(TESTS) @failed=0; all=0; \ srcdir=$(srcdir); export srcdir; \ @@ -645,21 +684,22 @@ -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: - -test -z "texi2helpl$(BUILT_SOURCES)" || rm -f texi2helpl $(BUILT_SOURCES) + -test -z "texi2helpc$(BUILT_SOURCES)" || rm -f texi2helpc $(BUILT_SOURCES) mostlyclean-am: mostlyclean-hdr mostlyclean-noinstPROGRAMS \ mostlyclean-compile mostlyclean-vti mostlyclean-aminfo \ - mostlyclean-tags mostlyclean-generic + mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-hdr clean-noinstPROGRAMS clean-compile clean-vti \ - clean-aminfo clean-tags clean-generic mostlyclean-am + clean-aminfo clean-tags clean-depend clean-generic \ + mostlyclean-am clean: clean-am distclean-am: distclean-hdr distclean-noinstPROGRAMS distclean-compile \ distclean-vti distclean-aminfo distclean-tags \ - distclean-generic clean-am + distclean-depend distclean-generic clean-am distclean: distclean-am -rm -f config.status @@ -668,8 +708,8 @@ maintainer-clean-noinstPROGRAMS \ maintainer-clean-compile maintainer-clean-vti \ maintainer-clean-aminfo maintainer-clean-tags \ - maintainer-clean-generic distclean-am \ - maintainer-clean-local + maintainer-clean-depend 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." @@ -686,13 +726,14 @@ 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 +distdir mostlyclean-depend distclean-depend clean-depend \ +maintainer-clean-depend 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 # ----------------------------------------------------------------------------- @@ -754,11 +795,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 @@ -792,12 +833,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 \ --- tk707-0.7.21.orig/playa.c +++ tk707-0.7.21/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 --- tk707-0.7.21.orig/ports.c +++ tk707-0.7.21/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 {\n\ - $iolists.ip configure -font *-${font12}-* -text [selection get]\n\ - }\n\ - bind $olist {\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 {\n" +" $iolists.ip configure -font *-${font12}-* -text [selection get]\n" +" }\n" +" bind $olist {\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" +""; --- tk707-0.7.21.orig/util707.h +++ tk707-0.7.21/util707.h @@ -9,7 +9,11 @@ #endif HAVE_CONFIG_H #ifdef HAVE_LIBASOUND +#ifdef HAVE_SYS_ASOUNDLIB_H #include +#else +#include +#endif #endif HAVE_LIBASOUND #ifndef HAVE_BOOL --- tk707-0.7.21.orig/ports.tcl +++ tk707-0.7.21/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 --- tk707-0.7.21.orig/tk707.sh.in +++ tk707-0.7.21/tk707.sh.in @@ -2,11 +2,11 @@ args="" for x in $*; do case $x in - -h|-help) args="$args --help";; # tcl/tk catch these options... + -h|-help) args="$args --help";; # tcl/tk catches these options... *) args="$args $x";; esac done prefix=@prefix@ exec_prefix=@exec_prefix@ -echo | @bindir@/tk707bin $args +echo | @libdir@/tk707/tk707bin $args --- tk707-0.7.21.orig/prout.m4 +++ tk707-0.7.21/prout.m4 @@ -0,0 +1,176 @@ +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> confdefs.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 +], [ +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) +]) + --- tk707-0.7.21.orig/gui.c +++ tk707-0.7.21/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 . { exit;}\n\ -bind . { load_data_file \".\";}\n\ -bind . { 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 {\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 . { exit;}\n" +"bind . { load_data_file \".\";}\n" +"bind . { 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 {\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" +""; --- tk707-0.7.21.orig/score_defs.c +++ tk707-0.7.21/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" +""; --- tk707-0.7.21.orig/score.c +++ tk707-0.7.21/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" +""; --- tk707-0.7.21.orig/procs.c +++ tk707-0.7.21/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 {map_start_test_note %W}\n\ - bind $m_maps.$i.test {map_stop_test_note %W}\n\ -\n\ - bind $m_maps.$i.note {map_start_set_note %W 1}\n\ - bind $m_maps.$i.note {map_stop_set_note %W}\n\ -\n\ - bind $m_maps.$i.note {map_start_set_note %W -1}\n\ - bind $m_maps.$i.note {map_stop_set_note %W}\n\ -\n\ - bind $m_maps.$i.note {\n\ - set noteY %y\n\ - }\n\ - bind $m_maps.$i.note {\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 comment_ok\n\ - bind $comment.string {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 {map_start_test_note %W}\n" +" bind $m_maps.$i.test {map_stop_test_note %W}\n" +"\n" +" bind $m_maps.$i.note {map_start_set_note %W 1}\n" +" bind $m_maps.$i.note {map_stop_set_note %W}\n" +"\n" +" bind $m_maps.$i.note {map_start_set_note %W -1}\n" +" bind $m_maps.$i.note {map_stop_set_note %W}\n" +"\n" +" bind $m_maps.$i.note {\n" +" set noteY %y\n" +" }\n" +" bind $m_maps.$i.note {\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 comment_ok\n" +" bind $comment.string {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" +""; --- tk707-0.7.21.orig/configure.in +++ tk707-0.7.21/configure.in @@ -169,11 +169,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 --- tk707-0.7.21.orig/tk707.c +++ tk707-0.7.21/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 {ac_clear 0}\n\ -bind $misc.b1 {ac_clear 1}\n\ -bind $misc.b1 {ac_clear 2}\n\ -bind $misc.b1 {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 {ac_lastmeas 1}\n\ -bind $misc.b4 {ac_lastmeas 2}\n\ -bind $misc.b4 {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 { ac_flam }\n\ -bind $st.b1 { 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 {ac_trackmode $tkxox(WRITE)}\n\ -bind $trpa.btrk {ac_trackmode $tkxox(WRITE)}\n\ -bind $trpa.bpat <1> { ac_patternmode $tkxox(READ); }\n\ -bind $trpa.bpat { ac_patternmode $tkxox(WRITE); }\n\ -bind $trpa.bpat { 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 {ac_track 0}\n\ -bind $grps.b1 {ac_track 1}\n\ -bind $grps.b2 {ac_track 2}\n\ -bind $grps.b3 {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 {ac_note %W 0}\n\ - bind $notes.note$i.b {ac_note_off %W}\n\ - bind $notes.note$i.b {ac_note %W $tkxox(flam)}\n\ - bind $notes.note$i.b {ac_note_off %W}\n\ - bind $notes.note$i.b {ac_note %W $tkxox(zero_velocity)}\n\ - bind $notes.note$i.b {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 . {ac_note $notes.note0.b 0}\n\ -bind . {ac_note $notes.note1.b 0}\n\ -bind . {ac_note $notes.note2.b 0}\n\ -bind . {ac_note $notes.note3.b 0}\n\ -bind . {ac_note $notes.note4.b 0}\n\ -bind . {ac_note $notes.note5.b 0}\n\ -bind . {ac_note $notes.note6.b 0}\n\ -bind . {ac_note $notes.note7.b 0}\n\ -bind . {ac_note $notes.note8.b 0}\n\ -bind . {ac_note $notes.note9.b 0}\n\ -bind . {ac_note $notes.note10.b 0}\n\ -bind . {ac_note $notes.note11.b 0}\n\ -bind . {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n\ -bind . {ac_note $notes.note13.b 0}\n\ -bind . {ac_note $notes.note14.b 0}\n\ -bind . {ac_note $notes.note15.b 0}\n\ -\n\ -# Bindings for pattern Copy/Paste\n\ -#\n\ -bind . {\n\ - tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n\ -}\n\ -bind . {\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 . {\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 {\n\ - #puts \"Button-1: %x,%y\"\n\ -}\n\ -bind $grid {\n\ - #puts \"Double-Button-1: %x,%y\"\n\ - grid_note %x %y 0\n\ -}\n\ -bind $grid {\n\ - #puts \"Control-Double-Button-1: %x,%y\"\n\ - upvar #0 tkxox xox\n\ - grid_note %x %y $xox(flam)\n\ -}\n\ -bind $grid {\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 {ac_accenter 1} ;# Insert pattern into track\n\ -bind $accenter.b {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 {\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 {\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 {ac_clear 0}\n" +"bind $misc.b1 {ac_clear 1}\n" +"bind $misc.b1 {ac_clear 2}\n" +"bind $misc.b1 {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 {ac_lastmeas 1}\n" +"bind $misc.b4 {ac_lastmeas 2}\n" +"bind $misc.b4 {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 { ac_flam }\n" +"bind $st.b1 { 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 {ac_trackmode $tkxox(WRITE)}\n" +"bind $trpa.btrk {ac_trackmode $tkxox(WRITE)}\n" +"bind $trpa.bpat <1> { ac_patternmode $tkxox(READ); }\n" +"bind $trpa.bpat { ac_patternmode $tkxox(WRITE); }\n" +"bind $trpa.bpat { 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 {ac_track 0}\n" +"bind $grps.b1 {ac_track 1}\n" +"bind $grps.b2 {ac_track 2}\n" +"bind $grps.b3 {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 {ac_note %W 0}\n" +" bind $notes.note$i.b {ac_note_off %W}\n" +" bind $notes.note$i.b {ac_note %W $tkxox(flam)}\n" +" bind $notes.note$i.b {ac_note_off %W}\n" +" bind $notes.note$i.b {ac_note %W $tkxox(zero_velocity)}\n" +" bind $notes.note$i.b {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 . {ac_note $notes.note0.b 0}\n" +"bind . {ac_note $notes.note1.b 0}\n" +"bind . {ac_note $notes.note2.b 0}\n" +"bind . {ac_note $notes.note3.b 0}\n" +"bind . {ac_note $notes.note4.b 0}\n" +"bind . {ac_note $notes.note5.b 0}\n" +"bind . {ac_note $notes.note6.b 0}\n" +"bind . {ac_note $notes.note7.b 0}\n" +"bind . {ac_note $notes.note8.b 0}\n" +"bind . {ac_note $notes.note9.b 0}\n" +"bind . {ac_note $notes.note10.b 0}\n" +"bind . {ac_note $notes.note11.b 0}\n" +"bind . {ac_note $notes.note12.b 0} ;# puts \"[incr k]\"}\n" +"bind . {ac_note $notes.note13.b 0}\n" +"bind . {ac_note $notes.note14.b 0}\n" +"bind . {ac_note $notes.note15.b 0}\n" +"\n" +"# Bindings for pattern Copy/Paste\n" +"#\n" +"bind . {\n" +" tk7_set_patbuf $mode(patgroup) $mode(current_pattern)\n" +"}\n" +"bind . {\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 . {\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 {\n" +" #puts \"Button-1: %x,%y\"\n" +"}\n" +"bind $grid {\n" +" #puts \"Double-Button-1: %x,%y\"\n" +" grid_note %x %y 0\n" +"}\n" +"bind $grid {\n" +" #puts \"Control-Double-Button-1: %x,%y\"\n" +" upvar #0 tkxox xox\n" +" grid_note %x %y $xox(flam)\n" +"}\n" +"bind $grid {\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 {ac_accenter 1} ;# Insert pattern into track\n" +"bind $accenter.b {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 {\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 {\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" +""; --- tk707-0.7.21.orig/title.c +++ tk707-0.7.21/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" +""; --- tk707-0.7.21.orig/help.c +++ tk707-0.7.21/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 ,\\n\n\ -Pierre Saramito .\\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 \\\n\ - \".help.help.text configure -cursor arrow\"\n\ - .help.help.text tag bind content \\\n\ - \".help.help.text configure -cursor {}\"\n\ - # Skip to the relevant line.\n\ - .help.help.text tag bind content \\\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 { }\n\ - bind $w.text { }\n\ - bind $w.text { }\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 { \n\ - puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n\ - $w.text tag bind command \"$w.text configure -cursor arrow\"\n\ - $w.text tag bind command \"$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 ,\\n\n" +"Pierre Saramito .\\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 \\\n" +" \".help.help.text configure -cursor arrow\"\n" +" .help.help.text tag bind content \\\n" +" \".help.help.text configure -cursor {}\"\n" +" # Skip to the relevant line.\n" +" .help.help.text tag bind content \\\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 { }\n" +" bind $w.text { }\n" +" bind $w.text { }\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 { \n" +" puts [%W get \"@%x,%y wordstart\" \"@%x,%y wordend\"] }\n" +" $w.text tag bind command \"$w.text configure -cursor arrow\"\n" +" $w.text tag bind command \"$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" +""; --- tk707-0.7.21.orig/configure +++ tk707-0.7.21/configure @@ -12,11 +12,11 @@ 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)" + --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)" + --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" + --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 @@ -577,6 +577,7 @@ ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. +am__api_version="1.4" # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: @@ -589,7 +590,7 @@ # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./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 +echo "configure:594: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 @@ -642,7 +643,7 @@ 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 +echo "configure:647: checking whether build environment is sane" >&5 # Just in case sleep 1 echo timestamp > conftestfile @@ -699,7 +700,7 @@ test "$program_transform_name" = "" && program_transform_name="s,x,x," echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:703: checking whether ${MAKE-make} sets \${MAKE}" >&5 +echo "configure:704: 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 @@ -744,21 +745,21 @@ 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 +echo $ac_n "checking for working aclocal-${am__api_version}""... $ac_c" 1>&6 +echo "configure:750: checking for working aclocal-${am__api_version}" >&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 +if (aclocal-${am__api_version} --version) < /dev/null > /dev/null 2>&1; then + ACLOCAL=aclocal-${am__api_version} echo "$ac_t""found" 1>&6 else - ACLOCAL="$missing_dir/missing aclocal" + ACLOCAL="$missing_dir/missing aclocal-${am__api_version}" 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 +echo "configure:763: 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. @@ -770,21 +771,21 @@ 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 +echo $ac_n "checking for working automake-${am__api_version}""... $ac_c" 1>&6 +echo "configure:776: checking for working automake-${am__api_version}" >&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 +if (automake-${am__api_version} --version) < /dev/null > /dev/null 2>&1; then + AUTOMAKE=automake-${am__api_version} echo "$ac_t""found" 1>&6 else - AUTOMAKE="$missing_dir/missing automake" + AUTOMAKE="$missing_dir/missing automake-${am__api_version}" 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 +echo "configure:789: 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. @@ -797,7 +798,7 @@ fi echo $ac_n "checking for working makeinfo""... $ac_c" 1>&6 -echo "configure:801: checking for working makeinfo" >&5 +echo "configure:802: 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. @@ -838,7 +839,7 @@ # 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 +echo "configure:843: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -868,7 +869,7 @@ # 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 +echo "configure:873: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -919,7 +920,7 @@ # 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 +echo "configure:924: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -951,7 +952,7 @@ 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 +echo "configure:956: 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. @@ -962,12 +963,12 @@ cat > conftest.$ac_ext << EOF -#line 966 "configure" +#line 967 "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 +if { (eval echo configure:972: \"$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 @@ -993,12 +994,12 @@ { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } 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 "configure:998: 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 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 +echo "configure:1003: 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 else @@ -1007,7 +1008,7 @@ yes; #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 +if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:1012: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then ac_cv_prog_gcc=yes else ac_cv_prog_gcc=no @@ -1026,7 +1027,7 @@ 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 +echo "configure:1031: 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 @@ -1066,7 +1067,7 @@ # 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 +echo "configure:1071: 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 @@ -1097,7 +1098,7 @@ 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 +echo "configure:1102: checking how to run the C preprocessor" >&5 # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= @@ -1112,13 +1113,13 @@ # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. cat > conftest.$ac_ext < 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; } +{ (eval echo configure:1123: \"$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 : @@ -1129,13 +1130,13 @@ rm -rf conftest* CPP="${CC-cc} -E -traditional-cpp" cat > conftest.$ac_ext < 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; } +{ (eval echo configure:1140: \"$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 : @@ -1146,13 +1147,13 @@ rm -rf conftest* CPP="${CC-cc} -nologo -E" cat > conftest.$ac_ext < 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; } +{ (eval echo configure:1157: \"$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 : @@ -1179,7 +1180,7 @@ # 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 +echo "configure:1184: 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 @@ -1213,7 +1214,7 @@ *) 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 +echo "configure:1218: 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 @@ -1221,7 +1222,7 @@ ac_save_LIBS="$LIBS" LIBS="-l$ac_lib $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1237: \"$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 @@ -1255,7 +1256,7 @@ fi echo $ac_n "checking lex output file root""... $ac_c" 1>&6 -echo "configure:1259: checking lex output file root" >&5 +echo "configure:1260: 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 @@ -1276,7 +1277,7 @@ 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 +echo "configure:1281: 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 else @@ -1288,14 +1289,14 @@ ac_save_LIBS="$LIBS" LIBS="$LIBS $LEXLIB" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1300: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* ac_cv_prog_lex_yytext_pointer=yes else @@ -1324,7 +1325,7 @@ # 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 +echo "configure:1329: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_MAKEINFO'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1359,7 +1360,7 @@ # 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 +echo "configure:1364: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_TEXI2HTML'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1394,7 +1395,7 @@ # 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 +echo "configure:1399: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_TEXI2DVI'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1428,7 +1429,7 @@ # 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 +echo "configure:1433: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_FIG2DEV'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1464,7 +1465,7 @@ # 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 +echo "configure:1469: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_TIMIDITY'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1498,7 +1499,7 @@ # 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 +echo "configure:1503: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LAME'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1532,7 +1533,7 @@ # 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 +echo "configure:1537: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_MIDIDUMP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else @@ -1564,7 +1565,7 @@ echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6 -echo "configure:1568: checking for dlopen in -ldl" >&5 +echo "configure:1569: 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 @@ -1572,7 +1573,7 @@ ac_save_LIBS="$LIBS" LIBS="-ldl $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1588: \"$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 @@ -1611,7 +1612,7 @@ fi echo $ac_n "checking for sqrt in -lm""... $ac_c" 1>&6 -echo "configure:1615: checking for sqrt in -lm" >&5 +echo "configure:1616: 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 @@ -1619,7 +1620,7 @@ ac_save_LIBS="$LIBS" LIBS="-lm $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1635: \"$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 @@ -1664,6 +1665,11 @@ PREV_CFLAGS=$CFLAGS PREV_CPPFLAGS=$CPPFLAGS +alsa_save_CFLAGS="$CFLAGS" +alsa_save_LDFLAGS="$LDFLAGS" +alsa_save_LIBS="$LIBS" +alsa_found=yes + # Check whether --with-alsa-prefix or --without-alsa-prefix was given. if test "${with_alsa_prefix+set}" = set; then withval="$with_alsa_prefix" @@ -1672,6 +1678,7 @@ 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" @@ -1680,6 +1687,7 @@ alsa_inc_prefix="" fi + # Check whether --enable-alsatest or --disable-alsatest was given. if test "${enable_alsatest+set}" = set; then enableval="$enable_alsatest" @@ -1690,7 +1698,7 @@ echo $ac_n "checking for ALSA CFLAGS""... $ac_c" 1>&6 -echo "configure:1694: checking for ALSA CFLAGS" >&5 +echo "configure:1702: checking for ALSA CFLAGS" >&5 if test "$alsa_inc_prefix" != "" ; then ALSA_CFLAGS="$ALSA_CFLAGS -I$alsa_inc_prefix" CFLAGS="$CFLAGS -I$alsa_inc_prefix" @@ -1698,20 +1706,23 @@ echo "$ac_t""$ALSA_CFLAGS" 1>&6 echo $ac_n "checking for ALSA LDFLAGS""... $ac_c" 1>&6 -echo "configure:1702: checking for ALSA LDFLAGS" >&5 +echo "configure:1710: checking for ALSA LDFLAGS" >&5 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" +ALSA_LIBS="$ALSA_LIBS -lasound -lm -ldl -lpthread" +LIBS=`echo $LIBS | sed 's/-lm//'` +LIBS=`echo $LIBS | sed 's/-ldl//'` +LIBS=`echo $LIBS | sed 's/-lpthread//'` +LIBS=`echo $LIBS | sed 's/ //'` +LIBS="$ALSA_LIBS $LIBS" echo "$ac_t""$ALSA_LIBS" 1>&6 - 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 +echo "configure:1726: checking for libasound headers version >= $min_alsa_version" >&5 no_alsa="" alsa_min_major_version=`echo $min_alsa_version | \ sed 's/\([0-9]*\).\([0-9]*\).\([0-9]*\)/\1/'` @@ -1729,15 +1740,13 @@ cross_compiling=$ac_cv_prog_cc_cross cat > conftest.$ac_ext < +#include int main() { -void main(void) -{ /* ensure backward compatibility */ #if !defined(SND_LIB_MAJOR) && defined(SOUNDLIB_VERSION_MAJOR) #define SND_LIB_MAJOR SOUNDLIB_VERSION_MAJOR @@ -1769,11 +1778,10 @@ # endif # endif exit(0); -} ; return 0; } EOF -if { (eval echo configure:1777: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1785: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* echo "$ac_t""found." 1>&6 else @@ -1781,7 +1789,8 @@ 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 + { echo "configure: error: Sufficiently new version of libasound not found." 1>&2; exit 1; } + alsa_found=no fi rm -f conftest* @@ -1793,27 +1802,27 @@ cross_compiling=$ac_cv_prog_cc_cross -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_%'` +echo $ac_n "checking for snd_ctl_open in -lasound""... $ac_c" 1>&6 +echo "configure:1807: checking for snd_ctl_open in -lasound" >&5 +ac_lib_var=`echo asound'_'snd_ctl_open | 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="-lasound $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:1826: \"$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 @@ -1838,11 +1847,27 @@ else echo "$ac_t""no" 1>&6 -echo "configure: warning: No linkable libasound was found." 1>&2 +{ echo "configure: error: No linkable libasound was found." 1>&2; exit 1; } + alsa_found=no 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 + @@ -1858,7 +1883,7 @@ # 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 +echo "configure:1887: checking for X" >&5 # Check whether --with-x or --without-x was given. if test "${with_x+set}" = set; then @@ -1920,12 +1945,12 @@ # First, try using that file with no special directory specified. cat > conftest.$ac_ext < 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; } +{ (eval echo configure:1954: \"$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* @@ -1994,14 +2019,14 @@ ac_save_LIBS="$LIBS" LIBS="-l$x_direct_test_library $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2030: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* LIBS="$ac_save_LIBS" # We can link X programs with no special library path. @@ -2107,17 +2132,17 @@ 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 +echo "configure:2136: checking whether -R must be followed by a space" >&5 ac_xsave_LIBS="$LIBS"; LIBS="$LIBS -R$x_libraries" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2146: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* ac_R_nospace=yes else @@ -2133,14 +2158,14 @@ else LIBS="$ac_xsave_LIBS -R $x_libraries" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2169: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* ac_R_space=yes else @@ -2172,7 +2197,7 @@ # libraries were built with DECnet support. And karl@cs.umb.edu 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 +echo "configure:2201: 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 @@ -2180,7 +2205,7 @@ ac_save_LIBS="$LIBS" LIBS="-ldnet $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2220: \"$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 @@ -2213,7 +2238,7 @@ 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 +echo "configure:2242: 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 @@ -2221,7 +2246,7 @@ ac_save_LIBS="$LIBS" LIBS="-ldnet_stub $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2261: \"$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 @@ -2261,12 +2286,12 @@ # 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 +echo "configure:2290: 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 <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2318: \"$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 @@ -2310,7 +2335,7 @@ 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 +echo "configure:2339: 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 @@ -2318,7 +2343,7 @@ ac_save_LIBS="$LIBS" LIBS="-lnsl $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2358: \"$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 @@ -2359,12 +2384,12 @@ # -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 +echo "configure:2388: 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 <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2416: \"$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 @@ -2408,7 +2433,7 @@ 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 +echo "configure:2437: 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 @@ -2416,7 +2441,7 @@ ac_save_LIBS="$LIBS" LIBS="-lsocket $X_EXTRA_LIBS $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2456: \"$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 @@ -2451,12 +2476,12 @@ # 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 +echo "configure:2480: 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 <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2508: \"$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 @@ -2500,7 +2525,7 @@ 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 +echo "configure:2529: 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 @@ -2508,7 +2533,7 @@ ac_save_LIBS="$LIBS" LIBS="-lposix $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2548: \"$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 @@ -2543,12 +2568,12 @@ # 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 +echo "configure:2572: 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 <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2600: \"$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 @@ -2592,7 +2617,7 @@ 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 +echo "configure:2621: 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 @@ -2600,7 +2625,7 @@ ac_save_LIBS="$LIBS" LIBS="-lipc $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2640: \"$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 @@ -2644,7 +2669,7 @@ # 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 +echo "configure:2673: 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 @@ -2652,7 +2677,7 @@ ac_save_LIBS="$LIBS" LIBS="-lICE $X_EXTRA_LIBS $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2692: \"$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 @@ -2703,7 +2728,7 @@ fi echo $ac_n "checking for XOpenDisplay in -lX11""... $ac_c" 1>&6 -echo "configure:2707: checking for XOpenDisplay in -lX11" >&5 +echo "configure:2732: 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 @@ -2711,7 +2736,7 @@ ac_save_LIBS="$LIBS" LIBS="-lX11 $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2751: \"$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 @@ -2801,9 +2826,9 @@ 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) 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 +echo "configure:2832: 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 @@ -2811,7 +2836,7 @@ ac_save_LIBS="$LIBS" LIBS="-l$l $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2851: \"$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 @@ -2844,9 +2869,9 @@ ;; 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) 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 +echo "configure:2875: 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 @@ -2854,7 +2879,7 @@ ac_save_LIBS="$LIBS" LIBS="-l$l $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2894: \"$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 --- tk707-0.7.21.orig/Makefile.am +++ tk707-0.7.21/Makefile.am @@ -22,8 +22,8 @@ tcl2c_SOURCES = tcl2c.c texi2help_SOURCES = texi2help.l -tk707bin_LDFLAGS = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) -tk707tcl_LDFLAGS = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) +tk707bin_LDADD = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) +tk707tcl_LDADD = $(ALSA_LIBS) $(TCLTK_LIBS) $(X_LIBS) INCLUDES = $(ALSA_CFLAGS) $(TCLTK_CFLAGS) $(X_CFLAGS) pkgdata_DATA = 707.map 727.map 7b7.map 7c7.map \ @@ -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 \ --- tk707-0.7.21.orig/config.h.in +++ tk707-0.7.21/config.h.in @@ -1,4 +1,4 @@ -/* config.h.in. Generated automatically from configure.in by autoheader. */ +/* config.h.in. Generated automatically from configure.in by autoheader 2.13. */ /* Define if the X Window System is missing or not being used. */ #undef X_DISPLAY_MISSING --- tk707-0.7.21.orig/play.c +++ tk707-0.7.21/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 --- tk707-0.7.21.orig/defs.c +++ tk707-0.7.21/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 \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 \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" +""; --- tk707-0.7.21.orig/title_defs.c +++ tk707-0.7.21/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" +""; --- tk707-0.7.21.orig/debian/control +++ tk707-0.7.21/debian/control @@ -0,0 +1,20 @@ +Source: tk707 +Section: sound +Priority: optional +Maintainer: Sam Hocevar (Debian packages) +Build-Depends: debhelper (>= 4), libasound2-dev, tk-dev, libxt-dev +Standards-Version: 3.6.1.1 + +Package: tk707 +Architecture: any +Depends: ${shlibs:Depends} +Recommends: timidity +Description: drum sequencer for a sound card or MIDI device + This program emulates the operation of Roland's TR-707 Rhythm + Composer. + . + The output is to a MIDI device, sound card or file. A + Latin-percussion instrument map emulates the Roland TR-727 and + the instrument map can be customized by the user. If you do not + have a MIDI sound card, you should install the timidity package + to emulate one.. --- tk707-0.7.21.orig/debian/changelog +++ tk707-0.7.21/debian/changelog @@ -0,0 +1,145 @@ +tk707 (0.7.21-9.2) unstable; urgency=low + + * Non-maintainer upload. + + [ Matthias Klose ] + * Fix FTBFS with ld --as-needed. (LP: #771015, closes: #641398) + + [ Andrew Shadura ] + * Build against tk-dev, not obsolete tk8.4-dev. + + -- Andrew Shadura Tue, 30 Apr 2013 20:49:11 +0200 + +tk707 (0.7.21-9.1) unstable; urgency=low + + * Non-maintainer upload. + * Fix "install-info installed leads to /usr/share/info/dir.gz in built + package": rm file in debian/rules (closes: #597409). + + -- gregor herrmann Sat, 02 Oct 2010 17:28:36 +0200 + +tk707 (0.7.21-9) unstable; urgency=low + + * debian/control: + + Set policy to 3.6.1.1. + + Use tk8.4-dev instead of tk8.3-dev. Fixes strange disappearing of the + STOP and START buttons (Closes: #205607). + + Recommend timidity and make a comment about timidity in the long + description (Closes: #229689). + * debian/menu: + + Quoted strings where appropriate. + + -- Sam Hocevar (Debian packages) Sun, 25 Jul 2004 23:44:01 +0200 + +tk707 (0.7.21-8) unstable; urgency=low + + * Fixed the real path to tk707bin in /usr/bin/tk707. + + -- Sam Hocevar (Debian packages) Sun, 1 Jun 2003 00:03:53 +0200 + +tk707 (0.7.21-7) unstable; urgency=low + + * Fixed tcl2c.c so that it outputs gcc3.3-compliant code. + * Set policy to 3.5.10. + + -- Sam Hocevar (Debian packages) Fri, 30 May 2003 17:48:30 +0200 + +tk707 (0.7.21-6) unstable; urgency=low + + * New maintainer (Closes: #129924). + * Disabled AM_MAINTAINER_MODE which isn't really needed. + * Removed alsa macros from acinclude.m4 and re-ran aclocal. + * Installed tk707bin to /usr/lib/tk707 instead of /usr/bin. + + -- Samuel Hocevar Fri, 18 Apr 2003 13:15:46 +0200 + +tk707 (0.7.21-5) unstable; urgency=low + + * QA upload. + * Apply ALSA 0.9 patches from Takashi Iwai, somewhat updated for 0.7.21. + Closes: #163318. + * aclocal.m4: Update AM_PATH_ALSA for the above. + * configure.in: Use AM_MAINTAINER_MODE for the above to avoid rebuilding + configure etc. after dpkg-source screws up timestamps (#105750). + + -- Matej Vela Sat, 5 Oct 2002 02:01:28 +0200 + +tk707 (0.7.21-4) unstable; urgency=low + + * QA upload. + * Package is orphaned (see #129924); set maintainer to Debian QA Group. + * ports.tcl (port_setup): If no ports are found, print appropriate + message and exit. Closes: #155206. + * play.c (Init707): Return correct code if option parsing fails. + getopt() already provides an error message. + * Switch to debhelper 4. + * Use make command-line options instead of patching Makefile.am. + * No need for a html subdirectory now that tk707.html is monolithic. + * debian/README.Debian: Relevant parts of INSTALL are already included + in tk707.{html,info}. + * Conforms to Standards version 3.5.7. + + -- Matej Vela Sun, 29 Sep 2002 13:40:45 +0200 + +tk707 (0.7.21-3.1) unstable; urgency=low + + * Non-Maintainer Upload. + * Don't run autotools during build. + * Remove build-dep on automake. + + -- Steve M. Robbins Sat, 13 Jul 2002 00:45:37 -0400 + +tk707 (0.7.21-3) unstable; urgency=low + + * work around automake problem (Closes: #114959) + + -- Rick Younie Mon, 8 Oct 2001 23:46:57 -0700 + +tk707 (0.7.21-2) unstable; urgency=low + + * removed alsa-headers build-dep; it's libasound1-dev's + dependency and breaks autobuilding + + -- Rick Younie Fri, 11 May 2001 06:46:37 -0700 + +tk707 (0.7.21-1) unstable; urgency=low + + * the Tcl/Tk 8.3 problems were actually a problem with my system + + -- Rick Younie Mon, 26 Mar 2001 17:25:37 -0800 + +tk707 (0.7.21-0) unstable; urgency=low + + * new upstream release + * GUI becomes dot-per-inch independent: replace bitmap images + with Tcl/Tk code + * browsable user's manual from Help menu in main window + * support for flams and accents: two levels of accents and four + possible flam + * add two original demonstration sound maps, 7c7.map, a Cuban + traditional one and 7b7.map + * window and font character sizing problems related to screen + resolution fixed to make it screen resolution independent + * add a screen size option for small screens + * using Tcl/Tk 8.0 until a problem with 8.3 is fixed + + -- Rick Younie Mon, 19 Mar 2001 20:53:57 -0800 + +tk707 (0.7.18-0) unstable; urgency=low + + * new upstream release + + -- Rick Younie Wed, 14 Mar 2001 18:37:33 -0800 + +tk707 (0.7-0) unstable; urgency=low + + * new upstream release + + -- Rick Younie Mon, 12 Mar 2001 07:03:20 -0800 + +tk707 (0.6-1) unstable; urgency=low + + * initial Debian release (Closes: #81724) + * adopted the ITP from Eduardo Marcel Macan + + -- Rick Younie Mon, 5 Mar 2001 19:07:06 -0800 --- tk707-0.7.21.orig/debian/README.Debian +++ tk707-0.7.21/debian/README.Debian @@ -0,0 +1,7 @@ +tk707 for Debian +---------------- + +My thanks to Pierre Saramito for putting in serious time fixing +some problems, several of which were specific to Debian. + + -- Rick Younie , Mon, 19 Mar 2001 20:52:44 -0800 --- tk707-0.7.21.orig/debian/copyright +++ tk707-0.7.21/debian/copyright @@ -0,0 +1,28 @@ +This package was debianized by Rick Younie on +Mon, 5 Mar 2001 19:07:06 -0800. + +It was downloaded from + http://www.vislab.usyd.edu.au/staff/chris/tk707 . Alternate site is + http://www-lmc.imag.fr/lmc-edp/Pierre.Saramito/tk707 + +ALSA 0.9 support is based on Takashi Iwai's patches from + http://www.alsa-project.org/~iwai/alsa.html + +Upstream Authors: + Chris Willing + Pierre Saramito + +Copyright (C) 2000,2001 Chris Willing and Pierre Saramito + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + On Debian GNU/Linux systems, the complete text of the GNU General + Public License can be found in `/usr/share/common-licenses/GPL'. --- tk707-0.7.21.orig/debian/rules +++ tk707-0.7.21/debian/rules @@ -0,0 +1,85 @@ +#!/usr/bin/make -f +# Sample debian/rules that uses debhelper. +# This file is public domain software, originally written by Joey Hess. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +export MAKE+=-o INSTALL.txt -o texi2help -o version.texi + +build: build-stamp +build-stamp: + dh_testdir + + # Avoid clock skews + touch configure.in \ + && touch aclocal.m4 \ + && touch configure \ + && touch `find . -name Makefile.in` + + # Add here commands to compile the package. + ./configure --prefix=/usr \ + --infodir=/usr/share/info \ + --mandir=/usr/share/man \ + --with-tcl-includes=/usr/include/tcl + $(MAKE) + + touch build-stamp + +clean: + dh_testdir + dh_testroot + rm -f build-stamp + + # Add here commands to clean up after the build process. + [ ! -f Makefile ] || $(MAKE) distclean + + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + + # Add here commands to install the package into debian/ + $(MAKE) install DESTDIR=$(CURDIR)/debian/tk707 \ + htmldir=/usr/share/doc/tk707 + $(RM) $(CURDIR)/debian/tk707/usr/share/info/dir + +# Build architecture-independent files here. +binary-indep: build install +# We have nothing to do by default. + +# Build architecture-dependent files here. +binary-arch: build install + dh_testdir + dh_testroot + dh_installchangelogs ChangeLog + dh_installdocs NEWS TODO + dh_installexamples +# dh_install + dh_installmenu +# dh_installdebconf +# dh_installlogrotate +# dh_installemacsen +# dh_installpam +# dh_installmime +# dh_installinit +# dh_installcron + dh_installinfo tk707.info +# dh_undocumented + dh_installman + dh_strip + dh_compress + dh_fixperms +# dh_makeshlibs + dh_installdeb +# dh_perl + dh_shlibdeps + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install --- tk707-0.7.21.orig/debian/compat +++ tk707-0.7.21/debian/compat @@ -0,0 +1 @@ +4 --- tk707-0.7.21.orig/debian/doc-base +++ tk707-0.7.21/debian/doc-base @@ -0,0 +1,15 @@ +Document: tk707 +Title: TK-707 Manual +Authors: Chris Willing and Pierre Saramito +Abstract: TK-707 is software emulation of the Roland TR707 MIDI drum + machine. It can output to a MIDI device, capable sound card or + through Timidity. +Section: Apps/Sound + +Format: info +Index: /usr/share/info/tk707.info.gz +Files: /usr/share/info/tk707.info* + +Format: HTML +Index: /usr/share/doc/tk707/tk707.html +Files: /usr/share/doc/tk707/*.html --- tk707-0.7.21.orig/debian/menu +++ tk707-0.7.21/debian/menu @@ -0,0 +1,2 @@ +?package(tk707):needs="X11" section="Apps/Sound" \ + title="TK-707" command="/usr/bin/tk707"