summaryrefslogtreecommitdiffstats
path: root/tkimg/tests
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 21:51:01 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 21:51:01 (GMT)
commita780057cc1b51dd3a557549c3cf2431f09136c0d (patch)
tree717f78052c55596449b27743171d7e170c4d39a0 /tkimg/tests
parent7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff)
downloadblt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip
blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz
blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/tests')
-rw-r--r--tkimg/tests/all14
-rwxr-xr-xtkimg/tests/all.tcl54
-rw-r--r--tkimg/tests/bmp.test91
-rw-r--r--tkimg/tests/bmp4r.bmpbin876 -> 0 bytes
-rw-r--r--tkimg/tests/bmp8r.bmpbin2226 -> 0 bytes
-rw-r--r--tkimg/tests/defs278
-rwxr-xr-xtkimg/tests/dted.test803
-rwxr-xr-xtkimg/tests/e10n48.dt0bin34162 -> 0 bytes
-rw-r--r--tkimg/tests/folder.bmpbin162 -> 0 bytes
-rw-r--r--tkimg/tests/folder.gifbin79 -> 0 bytes
-rw-r--r--tkimg/tests/folder.jpgbin782 -> 0 bytes
-rw-r--r--tkimg/tests/folder.pngbin216 -> 0 bytes
-rw-r--r--tkimg/tests/folder.ps137
-rw-r--r--tkimg/tests/folder.rasbin233 -> 0 bytes
-rwxr-xr-xtkimg/tests/folder.rawbin664 -> 0 bytes
-rw-r--r--tkimg/tests/folder.rgbbin1103 -> 0 bytes
-rw-r--r--tkimg/tests/folder.tifbin1938 -> 0 bytes
-rw-r--r--tkimg/tests/folder.xbm5
-rw-r--r--tkimg/tests/folder.xpm18
-rw-r--r--tkimg/tests/gif.test41
-rwxr-xr-xtkimg/tests/hori.tgabin641 -> 0 bytes
-rwxr-xr-xtkimg/tests/hori_bw.pcxbin297 -> 0 bytes
-rwxr-xr-xtkimg/tests/hori_raw.ppmbin3010 -> 0 bytes
-rwxr-xr-xtkimg/tests/ico.test85
-rwxr-xr-xtkimg/tests/img.icobin1398 -> 0 bytes
-rw-r--r--tkimg/tests/jpeg.test75
-rw-r--r--tkimg/tests/logo.pdfbin1154 -> 0 bytes
-rwxr-xr-xtkimg/tests/pcx.test79
-rw-r--r--tkimg/tests/png.test49
-rwxr-xr-xtkimg/tests/ppm.test98
-rwxr-xr-xtkimg/tests/raw.test55
-rwxr-xr-xtkimg/tests/sgi.test65
-rwxr-xr-xtkimg/tests/sun.test52
-rw-r--r--tkimg/tests/test.ps426
-rwxr-xr-xtkimg/tests/tga.test55
-rw-r--r--tkimg/tests/tiff.test54
-rwxr-xr-xtkimg/tests/visualtests/Readme.txt28
-rwxr-xr-xtkimg/tests/visualtests/testFrom.tcl116
-rwxr-xr-xtkimg/tests/visualtests/testFull.tcl129
-rwxr-xr-xtkimg/tests/visualtests/testSmall.tcl137
-rwxr-xr-xtkimg/tests/visualtests/testTo.tcl117
-rwxr-xr-xtkimg/tests/visualtests/utils/testGUI.tcl279
-rwxr-xr-xtkimg/tests/visualtests/utils/testImgs.tcl147
-rwxr-xr-xtkimg/tests/visualtests/utils/testReadWrite.tcl287
-rwxr-xr-xtkimg/tests/visualtests/utils/testUtil.tcl59
-rw-r--r--tkimg/tests/xbm.test29
-rw-r--r--tkimg/tests/xpm.test49
47 files changed, 0 insertions, 3911 deletions
diff --git a/tkimg/tests/all b/tkimg/tests/all
deleted file mode 100644
index 08dfd5b..0000000
--- a/tkimg/tests/all
+++ /dev/null
@@ -1,14 +0,0 @@
-# This file contains a top-level script to run all of the Tcl
-# tests. Execute it by invoking "source all" when running tclTest
-# in this directory.
-#
-# SCCS: @(#) all 1.5 96/08/27 08:47:16
-
-foreach i [lsort [glob *.test]] {
- if [string match l.*.test $i] {
- # This is an SCCS lock file; ignore it.
- continue
- }
- puts stdout $i
- source $i
-}
diff --git a/tkimg/tests/all.tcl b/tkimg/tests/all.tcl
deleted file mode 100755
index 3bb3c00..0000000
--- a/tkimg/tests/all.tcl
+++ /dev/null
@@ -1,54 +0,0 @@
-# all.tcl -- -*- tcl -*-
-#
-# This file contains a top-level script to run all of the Tcl
-# tests. Execute it by invoking "source all.test" when running tcltest
-# in this directory.
-#
-# Copyright (c) 1998-2000 by Scriptics Corporation.
-# Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
-# All rights reserved.
-#
-# RCS: @(#) $Id: all.tcl,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $
-
-if {[lsearch [namespace children] ::tcltest] == -1} {
- package require tcltest
- namespace import ::tcltest::*
-}
-
-proc run_tests {} {
- set chan $::tcltest::outputChannel
-
- puts $chan "Tests running in interp: [info nameofexecutable]"
- puts $chan "Tests running with pwd: [pwd]"
- puts $chan "Tests running in working dir: $::tcltest::testsDirectory"
-
- if {[llength $::tcltest::skip] > 0} {
- puts $chan "Skipping tests that match: $::tcltest::skip"
- }
- if {[llength $::tcltest::match] > 0} {
- puts $chan "Only running tests that match: $::tcltest::match"
- }
- if {[llength $::tcltest::skipFiles] > 0} {
- puts $chan "Skipping test files that match: $::tcltest::skipFiles"
- }
- if {[llength $::tcltest::matchFiles] > 0} {
- puts $chan "Only sourcing test files that match: $::tcltest::matchFiles"
- }
-
- set timeCmd {clock format [clock seconds]}
- puts $chan "Tests began at [eval $timeCmd]"
-
- # source each of the specified tests
- foreach file [lsort [::tcltest::getMatchingFiles]] {
- set tail [file tail $file]
- puts $chan $tail
- if {[catch {source $file} msg]} {
- puts $chan $msg
- }
- }
-
- # cleanup
- puts $chan "\nTests ended at [eval $timeCmd]"
- ::tcltest::cleanupTests 1
- return
-}
diff --git a/tkimg/tests/bmp.test b/tkimg/tests/bmp.test
deleted file mode 100644
index 9c7db98..0000000
--- a/tkimg/tests/bmp.test
+++ /dev/null
@@ -1,91 +0,0 @@
-# This file is a Tcl script to test out BMP reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set bmpdata \
-{Qk12AgAAAAAAADYAAAAoAAAAEAAAAAwAAAABABgAAAAAAEACAABtCwAAbQsAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2dnZ2dnZ2dnZAAAAgP/w
-gP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/w
-gP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/wgP/wgP/w
-gP/wgP/wgP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/wgP/wgP/wgP/wgP/w
-gP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/w
-gP/wgP/wAAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/w
-AAAA2dnZ2dnZ2dnZAAAAgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wgP/wAAAA2dnZ
-2dnZ2dnZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2dnZ2dnZ2dnZ
-2dnZAAAAgP/wgP/wgP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ
-AAAAgP/wgP/wgP/wgP/wAAAA2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZAAAA
-AAAAAAAAAAAA2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ}
-
-catch {image delete i}
-test bmp-1.1 {} {
- image create photo i -file folder.bmp
- i data -format bmp
-} $bmpdata
-test bmp-1.2 {} {
- catch {image delete i}
- image create photo i -data $bmpdata
- set data [i data -format bmp]
-} $bmpdata
-test bmp-1.3 {} {
- i blank
- i put $bmpdata
- set data [i data -format bmp]
-} $bmpdata
-test bmp-1.4 {} {
- i blank
- i put $bmpdata -format bmp
- set data [i data -format bmp]
-} $bmpdata
-if {[info tclversion] < 8.0} {
- return
-}
-
-test bmp-2.0 {Binary I/O with BMP images} {
- i blank
- set f [open folder.bmp r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
-
-test bmp-2.1 {Save with given aspect ratio} {
- i blank
- i put $bmpdata -format bmp
- i write folder_out.bmp -format {bmp -resolution {300 100}}
- set f [open folder_out.bmp r]
- fconfigure $f -translation binary
- binary scan [read $f] x38i2 xyres
- set return [read $f]
- close $f
- set xyres
-} {2925 975}
-
-test bmp-2.2 {Save with constant resolution of 300 dpi} {
- i blank
- i put $bmpdata -format bmp
- i write folder_out.bmp -format {bmp -resolution {300 i}}
- set f [open folder_out.bmp r]
- fconfigure $f -translation binary
- binary scan [read $f] x38i2 xyres
- set return [read $f]
- close $f
- set xyres
-} {11811 11811}
-
-test bmp-2.3 {Save with given resolution of x 100dpi and y 50dpi} {
- i blank
- i put $bmpdata -format bmp
- i write folder_out.bmp -format {bmp -resolution {100 50 i}}
- set f [open folder_out.bmp r]
- fconfigure $f -translation binary
- binary scan [read $f] x38i2 xyres
- set return [read $f]
- close $f
- set xyres
-} {3937 1969}
-catch {file delete folder_out.bmp}
diff --git a/tkimg/tests/bmp4r.bmp b/tkimg/tests/bmp4r.bmp
deleted file mode 100644
index a0ff045..0000000
--- a/tkimg/tests/bmp4r.bmp
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/bmp8r.bmp b/tkimg/tests/bmp8r.bmp
deleted file mode 100644
index bef0039..0000000
--- a/tkimg/tests/bmp8r.bmp
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/defs b/tkimg/tests/defs
deleted file mode 100644
index 9b1f95b..0000000
--- a/tkimg/tests/defs
+++ /dev/null
@@ -1,278 +0,0 @@
-# This file contains support code for the Tcl test suite. It is
-# normally sourced by the individual files in the test suite before
-# they run their tests. This improved approach to testing was designed
-# and initially implemented by Mary Ann May-Pumphrey of Sun Microsystems.
-#
-# Copyright (c) 1994-1996 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# SCCS: @(#) defs 1.29 96/12/08 18:33:59
-
-if ![info exists VERBOSE] {
- set VERBOSE 0
-}
-if ![info exists TESTS] {
- set TESTS {}
-}
-
-# Check configuration information that will determine which tests
-# to run. To do this, create an array testConfig. Each element
-# has a 0 or 1 value, and the following elements are defined:
-# unixOnly - 1 means this is a UNIX platform, so it's OK
-# to run tests that only work under UNIX.
-# macOnly - 1 means this is a Mac platform, so it's OK
-# to run tests that only work on Macs.
-# pcOnly - 1 means this is a PC platform, so it's OK to
-# run tests that only work on PCs.
-# nonPortable - 1 means this the tests are being running in
-# the master Tcl/Tk development environment;
-# Some tests are inherently non-portable because
-# they depend on things like word length, file system
-# configuration, window manager, etc. These tests
-# are only run in the main Tcl development directory
-# where the configuration is well known. The presence
-# of the file "doAllTests" in this directory indicates
-# that it is safe to run non-portable tests.
-# fonts - 1 means that this platform uses fonts with
-# well-know geometries, so it is safe to run
-# tests that depend on particular font sizes.
-
-catch {unset testConfig}
-if {$tcl_platform(platform) == "unix"} {
- set testConfig(unixOnly) 1
-} else {
- set testConfig(unixOnly) 0
-}
-if {$tcl_platform(platform) == "macintosh"} {
- set testConfig(macOnly) 1
-} else {
- set testConfig(macOnly) 0
-}
-if {$tcl_platform(platform) == "windows"} {
- set testConfig(pcOnly) 1
-} else {
- set testConfig(pcOnly) 0
-}
-set testConfig(nonPortable) [file exists doAllTests]
-
-# If there is no "memory" command (because memory debugging isn't
-# enabled), generate a dummy command that does nothing.
-
-if {[info commands memory] == ""} {
- proc memory args {}
-}
-
-proc print_verbose {name description script code answer} {
- puts stdout "\n"
- puts stdout "==== $name $description"
- puts stdout "==== Contents of test case:"
- puts stdout "$script"
- if {$code != 0} {
- if {$code == 1} {
- puts stdout "==== Test generated error:"
- puts stdout $answer
- } elseif {$code == 2} {
- puts stdout "==== Test generated return exception; result was:"
- puts stdout $answer
- } elseif {$code == 3} {
- puts stdout "==== Test generated break exception"
- } elseif {$code == 4} {
- puts stdout "==== Test generated continue exception"
- } else {
- puts stdout "==== Test generated exception $code; message was:"
- puts stdout $answer
- }
- } else {
- puts stdout "==== Result was:"
- puts stdout "$answer"
- }
-}
-
-# test --
-# This procedure runs a test and prints an error message if the
-# test fails. If VERBOSE has been set, it also prints a message
-# even if the test succeeds. The test will be skipped if it
-# doesn't match the TESTS variable, or if one of the elements
-# of "constraints" turns out not to be true.
-#
-# Arguments:
-# name - Name of test, in the form foo-1.2.
-# description - Short textual description of the test, to
-# help humans understand what it does.
-# constraints - A list of one or more keywords, each of
-# which must be the name of an element in
-# the array "testConfig". If any of these
-# elements is zero, the test is skipped.
-# This argument may be omitted.
-# script - Script to run to carry out the test. It must
-# return a result that can be checked for
-# correctness.
-# answer - Expected result from script.
-
-proc test {name description script answer args} {
- global VERBOSE TESTS testConfig
- if {[string compare $TESTS ""] != 0} then {
- set ok 0
- foreach test $TESTS {
- if [string match $test $name] then {
- set ok 1
- break
- }
- }
- if !$ok then return
- }
- set i [llength $args]
- if {$i == 0} {
- # Empty body
- } elseif {$i == 1} {
- # "constraints" argument exists; shuffle arguments down, then
- # make sure that the constraints are satisfied.
-
- set constraints $script
- set script $answer
- set answer [lindex $args 0]
- foreach constraint $constraints {
- if {![info exists testConfig($constraint)]
- || !$testConfig($constraint)} {
- if $VERBOSE then {
- puts stdout "++++ $name SKIPPED"
- }
- return
- }
- }
- } else {
- error "wrong # args: must be \"test name description ?constraints? script answer\""
- }
- memory tag $name
- set code [catch {uplevel $script} result]
- if {$code != 0} {
- print_verbose $name $description $script \
- $code $result
- } elseif {[string compare $result $answer] == 0} then {
- if $VERBOSE then {
- print_verbose $name $description $script \
- $code $result
- puts stdout "++++ $name PASSED"
- }
- } else {
- print_verbose $name $description $script \
- $code $result
- puts stdout "---- Result should have been:"
- puts stdout "$answer"
- puts stdout "---- $name FAILED"
- }
-}
-
-proc dotests {file args} {
- global TESTS
- set savedTests $TESTS
- set TESTS $args
- source $file
- set TESTS $savedTests
-}
-
-# If the main window isn't already mapped (e.g. because the tests are
-# being run automatically) , specify a precise size for it so that the
-# user won't have to position it manually.
-
-if {![winfo ismapped .]} {
- wm geometry . +0+0
- update
-}
-
-# The following code can be used to perform tests involving a second
-# process running in the background.
-
-# Locate wish executable
-
-lappend auto_path [file dirname [pwd]]
-
-package require Img
-
-set wish [list [info nameofexecutable]]
-if {$wish == "{}"} {
- set wish {}
- puts "Unable to find wish executable, skipping multiple process tests."
-}
-
-# Create background process
-
-proc setupbg {{args ""}} {
- global wish fd bgData
- if {$wish == ""} {
- error "you're not running wish so setupbg should not have been called"
- }
- if {[info exists fd] && ($fd != "")} {
- cleanupbg
- }
- set fd [open "|$wish -geometry +0+0 -name wish $args" r+]
- puts $fd "puts foo; flush stdout"
- flush $fd
- if {[gets $fd data] < 0} {
- error "unexpected EOF from \"$wish\""
- }
- if [string compare $data foo] {
- error "unexpected output from background process \"$data\""
- }
- fileevent $fd readable bgReady
-}
-
-# Send a command to the background process, catching errors and
-# flushing I/O channels
-proc dobg {command} {
- global fd bgData bgDone
- puts $fd "catch [list $command] msg; update; puts \$msg; puts **DONE**; flush stdout"
- flush $fd
- set bgDone 0
- set bgData {}
- tkwait variable bgDone
- set bgData
-}
-
-# Data arrived from background process. Check for special marker
-# indicating end of data for this command, and make data available
-# to dobg procedure.
-proc bgReady {} {
- global fd bgData bgDone
- set x [gets $fd]
- if [eof $fd] {
- fileevent $fd readable {}
- set bgDone 1
- } elseif {$x == "**DONE**"} {
- set bgDone 1
- } else {
- append bgData $x
- }
-}
-
-# Exit the background process, and close the pipes
-proc cleanupbg {} {
- global fd
- catch {
- puts $fd "exit"
- close $fd
- }
- set fd ""
-}
-
-proc makeFile {contents name} {
- set fd [open $name w]
- fconfigure $fd -translation lf
- if {[string index $contents [expr [string length $contents] - 1]] == "\n"} {
- puts -nonewline $fd $contents
- } else {
- puts $fd $contents
- }
- close $fd
-}
-
-proc removeFile {name} {
- global tcl_platform
- if {$tcl_platform(platform) == "macintosh"} {
- catch {rm $name}
- } else {
- catch {exec rm -f $name}
- }
-}
diff --git a/tkimg/tests/dted.test b/tkimg/tests/dted.test
deleted file mode 100755
index 3b694a3..0000000
--- a/tkimg/tests/dted.test
+++ /dev/null
@@ -1,803 +0,0 @@
-# This file is a Tcl script to test out DTED reading.
-# Note, that the DTED parser only supports reading.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set dteddata \
-{VUhMMTAxMDAwMDBFMDQ4MDAwME4wMzAwMDMwMDAwMDZVICAgICAgICAgICAg
-ICAwMTIxMDEyMTAgICAgICAgICAgICAgICAgICAgICAgICBEU0lVICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgIERURUQwQVVTIEtBUlRTRSBNNzQ1ICAgICAgICAwMUE5NzEwMDAwMDAw
-MDAgICAgICAgICAgICAgICAgICAgICAgICBTUEVDWERMTVMwMTk2MTFNU0xX
-R1M4NCAgICAgICAgICA5NzEwICAgICAgICAgICAgICAgICAgICAgIDQ4MDAw
-MC4wTjAxMDAwMDAuMEU0ODAwMDBOMDEwMDAwMEU0OTAwMDBOMDEwMDAwMEU0
-OTAwMDBOMDExMDAwMEU0ODAwMDBOMDExMDAwMEUwMDAwMDAwLjAwMzAwMDMw
-MDAxMjEwMTIxMDAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICBBQ0MwMDM1MDAwNjAwNDkwMDA4ICAgMSAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgMTAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
-ICAgICAgICCqAAAAAAAAAAKKAoYChgKGAm8CZwJsAmMCVgJeAlkCTwJMAkgC
-IQIeAhwCJAI6AjYCKwIiAj4CPAI6AikCKwIwAhsCIQISAgcCAgH0AfoB8wIQ
-Ae8CAgHqAeUB6AHiAd8B2wHbAdgB2AHWAeECHwIAAigCQQI8AkQCPwI0AjkC
-KQI5AjICIgI7Ak4CRwJIAkcCTgJxAn0CfQJxAkYCWAJ2AoACYgJyAm0CagJD
-AogCoQKyAo4CoQKNAp8CiwKBAn8ClwKRApMCPwI9AfABvQHGAdcBzwHNAdQB
-yAHPAXQBmgGrAXcBuAG4AaQBxwHbAd0BywHEAcIBzQHCAAA6yaoAAAEAAQAA
-AmgCgQJ7AnMCeQJzAmICZgJhAl4CWQJTAk4CJwJIAkQCJwInAjoCNQIzAj4C
-NwIpAhwCIgIqAhgCGwIGAf0B/QIGAgsCEwISAhMCCgH/Ag0CAQHgAeEB3gHb
-AdsB2AHWAdYB1QIOAjICKgI6AkECPwI3Aj8CRwIhAi4CEQIyAkACRgJCAkgC
-QAJFAkkChQI+Ai0CbwJhAm4CfgJSAlUCdwJDAloCiQKXApMCgAJ3AnYCdgJ4
-AnYCgQKnAp0CmwJbAncCDAHLAb4B3gHzAcwB7AHUAccBmAF7AasBegGbAa8B
-qgGwAdYBrwHMAa0B4AHGAdYAADYmqgAAAgACAAACggJbAn8CdwJsAm4CagJg
-AlQCWwJYAlICNgIrAkkCOwIwAjECQwJIAkMCKwIgAhYCEgIQAg4CCQICAhYC
-DwIjAiECBwIcAhICCwH9AgAB/QHhAeAB4AHcAdwB2wHYAdYB1gHVAdUCGwI5
-Aj4COwI8Ai8CMAIUAh4CIAIgAicCOwI7AkACQgI6Aj4CSwKDAjQCPAJ2AnsC
-dgKEApcCfQKIAlcCawKAAnwCbAJzAn8CYgJsAnACigKOAo4CqAKLAloB+gH8
-Ac0BzQH0AfgB5QH4AeEBrgHLAY8BpQGRAZIBhAGKAYwBkAHZAdMB5wHnAeAB
-5QAAODWqAAADAAMAAAKDAnECVwJyAnECZwJlAk8CXgJSAlMCMQIuAk4CQwJU
-AjoCRQJFAjkCOAIsAiICHgIeAi8CFAIJAiICMAImAiICIwIPAhwCFAIXAgUC
-CgHqAeIB4QHgAd0B3AHbAdgB1gHWAdQB1AHnAi0COgIuAjgCKQIWAf4CLwIu
-AhwCGAI/AjQCPwJAAjoCOgJGAmMCawJbAlICfQJ6AngCdQKIAjACRQKBAm8C
-WAI+AnECcAJ6AncCigKWAqICiwKdAocCKQIZAe4B4wHaAeAB7wHvAfYB5gHe
-AboBlAGWAaAB8QG8AbYBzAGuAdQB2wHgAd8B6gHvAAA45qoAAAQABAAAAngC
-XQJVAlICbgJnAmgCYAJeAlICMQIuAkwCRAJVAmICUQJXAk4CRgJSAjsCMgIn
-AiYCLAIwAhICMAInAiYCJgImAhwCGwITAhYCCAHoAeUB4wHiAeAB3gHcAdoB
-1wHWAdoB1wHVAdECJgI2AiMCNwIWAhcB+QIcAiQCBgIGAjICKQI6AjgCPgJF
-AkYCYQJHAioCZwJ2AoECZQJpAoACJgIcAnECfgJLAjQCZgJ7AoQCjQKAAqYC
-pgKVAqgCsgJrAlUCAAHrAf0CDgHgAeUB8wHuAeUB2QGpAbAB1wHoAgUB3wIT
-AesBswHeAiQB7wHxAfQAADcYqgAABQAFAAACawKAAnsCXAJJAmECVgJJAjkC
-NAI3AkICZgJRAloCXwJXAlICXQJYAlMCUAJLAkYCRAIqAiECJwIwAhUCHAIl
-Ah0CCgHzAesB6QHoAecB5gHkAeIB4QHeAdwB2QHYAdYB3QHaAdUB0wH3AiEC
-JAI1AjQCKQH9AiICKAILAhsCOAI5Ai8CHwI7AkICTgJPAiwCagJ8AmwCaQJz
-Al8CbgJRAmYCVAJjAj0CZAJ1AnsCjgKVApsCoQKwArICrQKOAm4CiAIZAeUB
-3QHnAdgB6gHVAfUB5gHjAZgBpAGwAgECBgINAhMCGwHdAfkCAAHuAe4CBgAA
-OcSqAAAGAAYAAAJ/AoECcQJyAlACRgJCAjwCPwJQAkQCcQJ1Am0CawJeAmMC
-YQJdAlkCVwJTAkcCQgItAiYCMwIhAi0CEwIGAf4B8wHxAe4B6gHqAegB5gHp
-AfIB/gH9Ad8B3AHZAdcB1wHXAdgB1AHTAdAB5wIbAioCLwIzAfoCHAIyAiYC
-FAH+AjMCOgI4AjsCQgJJAj4CMwI4AoECWAJjAmYCXQJxAnkCegIpAisCMwJG
-AnYCfwKNAqQCrQKgAqkCrQLIArIClAKPAm8B4wHDAdQB3gHiAdgB7gHWAdUB
-gwGpAe4B+QH9AdgCDgHsAgcB6AH3AeAB9AHuAABDBqoAAAcABwAAAoUCfAJ4
-AnICXAJdAkYCRgJIAlYCSQJOAl8CYQJSAl4CXQJeAlsCQgJCAkECMAIjAgcC
-BgIDAioCFwISAgEB+wHvAe0B6wHqAesB6QHxAeoB/QIDAfcB6wHdAdkB1gHU
-AdcB1gHUAdIB0AH9AioCHwIsAiQB8AIXAiACOAI4AgQCGAI9AkICSAJEAkQC
-OQIoAk0CZwJOAlYCTwJiAngCagI3Ai4CEQIYAkQCeQKBApEClwKjAqgCkwKz
-Ap0CrgJlApMCeQH8AcIBwgHCAckB1gHnAdIBugGFAeAB8AHLAdgCCAIEAd8B
-4AILAeQB1QHYAeQAAD1iqgAACAAIAAACgQJ6AmwCYAJNAkkCTgJWAksCLgIv
-AkICRAJOAkoCMAI/Aj0CTQJAAk0CGwIVAggCBgIBAgAB/QHzAe0CBwH0AewB
-6wHqAe4B7AHqAfMB9AH+Af0B8AH6AeUB2AHWAdQB1AHSAdIBzgHOAc0CGgIX
-AiACEwHnAgECBQIsAjwCIAIXAjYCMwI7AkcCQQInAiYCPQJYAlcCTgJOAm4C
-gAJmAhwCDgIiAhICRAKAApcCmgKfAnACewJzAn8CegK5An0CdAJ2AhUBzgG3
-Ab8B1AHdAeIB2wG7Aa0B3wGnAd0B7gIHAdoB1QH1Ad8B1AHOAeUB1QAAPo2q
-AAAJAAkAAAJYAmwCXQJJAkoCTgJQAjUCMwIsAiwCJgImAjMCMwInAiYCOQIb
-AjACEgIOAhACBwIEAf4B/gH7AfYB8wHwAfIB9AHxAe4B7wHtAe4B9QIHAgkB
-/wHvAfgB6gHhAdsB1AHTAdIB0QHOAc4BzAH9AiECDAH0AeUB4wHqAgcCMwIw
-AfYCEwIkAi4CNQJCAhICJQI6Ak4CTgJBAl0CYAJ1AmwCVQISAhECEgItAm4C
-mQKDAp4CjwJ7AqgCXAKBAqcCcwJwAmsCTgHJAbcB0wHMAd8B1AHHAdUBqwGr
-Ae4B9AH+AgcBzgHwAhQB4gHbAdIB5gHXAABBXaoAAAoACgAAAkoCSAJXAlUC
-QQI5AjUCMgIvAi0CKQImAiMCIgIfAhsCFwIYAhICEwIMAgwCCAIHAgUB/gH/
-AfwB/AH4AfYB9gH2AfMB8gHwAe8CAQIAAhECCAH3AgYCAgIHAfIB5gHVAdMB
-0QHOAc0BzAHMAeQCHgIKAeQB4AHdAd0B+QIIAhECDAH8Ag4CMQI4AjkCAwIn
-AjwCOQJEAjkCWAJRAmICfQJeAgcCHgIMAiwCggKYAocCqgJ5Am4CwQIyArIC
-wgLAAisCbAI6AdUBswG4AbgBzAHOAdIBxAGZAaQB7AH2AggCBQHHAg0B2AHI
-Ab4B2AHQAdUAADpgqgAACwALAAACSAJFAkICQAI8AjkCNQIyAi8CLAIpAiYC
-IwIgAh4CGQIXAhYCEgIPAg0CDAIKAgYCBQIBAgEB/wH+AfwB+gH8AfoB9AH3
-AfMB9AIKAgYCEQIJAgcCBQH8AggB6wH+Ad8B0wHQAc8BzQHNAc0B0gIPAgQB
-3QHoAdkB1AHyAgECBwHwAgECFAIqAjACNgIcAjQCSQIwAjQCNgJFAk4CUQJm
-AnYCPQICAlsCUAKIAoACdQKmAloCXgJ9AgsCRwJHAssCXQJuApMB3wGzAaoB
-pwG9AckB1gGhAZ4B5wHkAfYB/QH6AcACAgHLAcwB3AHbAcsBzgAAOWGqAAAM
-AAwAAAJHAkQCQQI+AjsCOAI1AjICLwIrAigCJgIjAiACHgIaAhcCFAIRAg4C
-DQINAg4CCAIGAgICBQIFAgEB/QH8AhsCEwIGAf8B/gISAhYCEAIRAgMB8QHo
-AecB6AHbAdoB2wHVAesBzQHNAcsByAHMAegB3AHdAeEB1gHZAegB+AICAfQB
-7AIdAh0CKAH7Ah4COgJCAiwCKQJOAicCOgJNAkkCgQIcAgcCawJ8AncChQJ0
-AlICIwH7Af8B/QH4Af0CNwILApkClwHmAbMBtwGuAaIBnQGaAa0BlQHYAecB
-6AH1AfUBvQHUAccB0gHcAdEBzAHMAAA84qoAAA0ADQAAAkUCRAJBAj4COgI4
-AjUCMgIuAisCKAImAiICHwIcAhkCFgITAhECDQINAhECDgIHAgcCBQIHAgkB
-/gH9AgYCEAIIAgwCGwIcAhICBAH5AfAB6QHmAeQB4AHfAd0B2gHXAdcB1gHV
-Ac0BywHKAcoBzAHPAdUB1gHRAd0B5wH7AfoCBQHvAgQCHgIXAgoCLQI4AjQC
-MAImAlMCSwIjAi4CDgKDAlECRAJyAosCcgJzAm0CYwIPAj4COwJtApQB6gIn
-AkQCfwJ9AeUBzAHWAcsBvAGyAb0B0QHWAcwB3QHkAekB8gHFAcMBuAHpAdAB
-ywHMAdQAADqmqgAADgAOAAACQgJFAj4CPAI6AjgCNgIyAi4CLAIoAiMCHwId
-AhwCGAIZAhkCGAIYAk8CSgI3AiYCJgIIAggCGQITAgYCFQISAhICHwIeAhIC
-AAH0Ae8B6QHmAeQB4gHiAeAB3QHbAdcB2AHWAdUB0AHJAcoBygHKAcoBywHN
-Ac4B2gHjAfEB+QIAAfwCDwITAgYCIQIhAioCPwIjAhoCOgJWAjoCRQI5AkgC
-UgIOAlgCfAJoAmkCWgJLAfUCSgJjApoCwQH2ApACgwKSAlQBwQHgAe8B7wHy
-AdkBvgHLAdoB3AHiAd0B+QHkAcIBtwGyAcUBxQHIAawBrgAAPASqAAAPAA8A
-AAJAAjoCPgI7Aj0CMwIxAjICLQIqAiYCJAIhAh8CHAIgAlMCJQI0Ak8CTAI/
-AjACJAIZAhICDQINAggCDQIGAhwCEwIJAgcCFQH7AfMB7wHqAecB5QHkAeIB
-4AHeAdoB2AHXAdcB1QHRAcgBzAHIAcgByAHIAcwBywHLAeAB4wH7Af8CAAHp
-AfACFgIXAhkCIgI8AhwCGwIlAjsCSAJOAiQCKwJbAhUCPgJsAk8CYgJIAgUC
-WgJ8AnICnwKdAgEB4AHlAdEBzQH1AfoB7wHyAkECKQHaAccB3AHWAdsB6wHY
-Ac4ByAGzAbABsgGuAasBygG4AAA8jqoAABAAEAAAAkUCOgI+AjcCNwI1AjAC
-LQIvAikCJgIkAiICIwInAjwCTQJDAkQCVQJSAlgCSAJIAhgCCgIFAgUCBAIE
-Af4B/gH8AfwB+gH3AfIB8QHuAeoB6AHmAeUB4gHgAdwB2QHYAdUB1AHRAdAB
-yAHGAcgBxgHGAccBxwHKAckB0wHiAfEB+gH0AdsCAgITAhoCJAIpAi8CHwII
-AiUCKgIuAjwCQwIzAf8CEgJcAlQCXAISAkkB8AJMAmkCdAKHAloCMQJkAiwC
-HQHYAnsCsAIYAj8CZAKqAhoB2AHjAdUByQHdAdABtQG6AcwBvQG+AcwBzAHT
-Ac0AAD9IqgAAEQARAAACTQJJAkkCQAIxAi8CMQIvAi0CKgIoAicCJgIiAjAC
-WQJmAmICTgI8AjoCNwI0AhICDQIHAgMCAQIAAgEB/gH8AfsB+AH2AfQB8gHv
-Ae4B6gHoAeUB5AHiAeAB2wHXAdYB0gHRAdABywHFAcUBxgHGAcYBxgHGAcsB
-ywHLAdgB8AIAAhkCAQIOAhcCIgIrAjUCIwIWAgACIQIFAikCMAI8AjACGQIT
-Ak8CVwJVAgwCTAIEAlkCawJsAoQCgAJeAp8CdQJrAeACbwKPAqYCrwLGAsEC
-FgHxAecB0wHWAcUBuAHMAdABzAHuAegB0wHTAeEB4QAAPUuqAAASABIAAAJP
-AkwCSgJAAjsCLwItAi8CMAIvAi4CLAInAjkCPgJXAmICVgI7Ai4CIwIbAhgC
-EQIOAgcCBQICAgAB/gH9AfwB+gH3AfUB8gHxAe4B7AHqAekB5QHjAeEB3wHZ
-AdsB4AHcAdkB1QHRAcMBxAHEAcUBxQHFAcUByAHJAc4B4wH2AhsCGwHkAg0C
-DQIcAiYCJwIbAh0B4QHfAeACJQIeAgQB6wIMAhUCOwI5AlAB8wH7AfICXQJr
-AmsCfwKNAoMCmgKAAmQCNwKYAm4CuwK7AsYCowKNAhMB7gHhAcQB2AHSAdkB
-1gH/AfgB/gH+AbsBygHcAABD56oAABMAEwAAAlACTQJJAkECPAJEAjsCNwI5
-AjUCMgIvAigCLwI3AjwCWAJiAl4CSQJXAiACEgIOAg4CCAIGAgQCAQH/Af0B
-+wH7AfsB9AHzAfMB8AHxAeoB6AHmAeUB4wHjAeQB5AHlAdsB2QHVAdIBwgHE
-AcQBxAHEAcQBxAHHAcgB2QHzAhwCGgIjAfwB8gIHAhECFwIbAhUB3AHgAd8B
-3wHkAeIB7AH8AewCEwHzAfgB8wH0AgAB+gItAngCdQJoAm8CgQKKAp4CYgJ7
-AnYClwKjAq0CvgKnAmECFgHtAdcByQHXAdIB3wHWAfgB+wH/AfkBwwHtAeoA
-AEnOqgAAFAAUAAACUwJOAkQCQgJJAkoCPwI8AjgCNQIxAi4CKwIpAikCKQIt
-AjwCQwIsAh8CFwISAg0CDQIIAgYCAwICAgACAQIBAf4B/wIIAg0CBQH8AfYB
-8QHwAfQB8QHxAe8B9AH0AfQB7AHaAdQB1QHCAcEBwQHDAcMBxAHFAcgByQHp
-Af8CCgIAAg4B/QIIAhQCEAIXAhcB2gIJAfMB4QHvAeAB4wIVAfUB8wI7AfYB
-8QH1Ah0CMgIsAlgCdQJzAl8CegKCAnIClQKKAoICnQKCAn8CiQKcApwCKAH7
-AecByQHWAdwB0gHaAe0B9AIBAgcCBwHdAhwB6gAAPcWqAAAVABUAAAJSAkoC
-RAJUAk8CTgJHAj4COAI1AjECLQIpAiYCJAIjAiMCJAImAiACGQIVAhACDwIP
-AhECEAIMAg0CCQISAhICCgIZAhoCHAIYAhICAQH/AgcCBwH5AgEB/gHtAeIB
-2AHgAd8B1QHVAcoBwwHDAcIBwgHCAcQBxgHKAd4B9QH6Af4CCQHUAgcCDwIO
-Ah8CEQH7AeAB1QHYAhsCRAH9AicB9gH+AjoCBgIWAjsCJAJWAjsCWwJlAlsC
-WwJiAmkCZwKBAnYCoQJ2AoQCdgJ9AroCigJMAfAB4wHHAeABxQHdAdsB8gHz
-Af0CAAIEAhUCIQH9AAA2NKoAABYAFgAAAk4CTAJJAlsCWAJRAkgCRQI4AjQC
-MQIuAioCJgIjAiECIQIfAhwCGgIXAhMCGAIbAioCKwIwAi0CJgIpAicCLQIn
-Ah8CJQIfAhwCFgISAgoCAQH+Af4B8wHzAdkB8AHqAdAB0QHNAckBzwHAAcEB
-wQHBAcEBwwHDAcgByAHhAgcB+gIKAfkB2AIBAgcCGwISAfUCCAHsAdIB4gH3
-AhACOgH9AhwCMAI3AksCSAITAnYCMwJmAmwCYgJcAl0CYQJiAmgCbgKNAm8C
-awJwAnYCngJUAhYB5AHXAcsB4QHbAd8B5QHrAfEB+QHzAgMCCAImAiQAADaE
-qgAAFwAXAAACUAJOAmkCbAJiAl4CWgJTAkUCMwIwAi0CKgImAiMCIAIfAh0C
-HAIZAhYCGgJJAjgCRQJDAj0CPQI6AjECMAIvAikCEwIcAh0CFwIIAgICAgII
-Af0B8wHjAdkB+QHnAdoB7QHmAesB4AHfAcUBwQHBAcEBwAHHAcMBxgHGAecB
-7gH1AfgB+wHbAf0CCgIUAg0CCwIOAgwB8gHYAdcCMwI6AiMCLAJWAjgCHQJQ
-AhUCcgI5AmwCWQJiAmICXQJiAmMCZgJuAnsCZwJoAmwCcQKIAjsB8AHhAdEB
-0wHjAcYB3QHdAeAB5wHiAfkCCAIPAgEB9wAAOSSqAAAYABgAAAJXAlMCZQKY
-AncCjAKPAncCdgJQAj4CMwIrAigCJQIhAh0CHQIcAhgCLAInAkwCSQJEAjoC
-MgInAi8CMAInAhwCGwIVAgUCEgIGAgQB/QHyAfQB5QHeAfUB8gHiAewB/gH6
-AfQB6wHnAeEBzwHAAcABvwG/AcABwgHDAcUB1gHmAfAB+wHsAdUB5gIEAgcB
-9gHmAg8CFgHnAdkB1AJFAlICGAI2AnsCTQJOAlACGwJPAl4CTwJYAmICYgJr
-AmsCcAJbAlYCagJjAmUCiAKcAoUCOQHwAdIB3AHhAd0B1AHHAdcB5QHbAfYC
-BgIJAg0B6gHyAAA+/6oAABkAGQAAAmQCXQJ/Ap4CgAKUApMCiAKEAnQCfgJs
-AmQCUwIsAiMCHQIcAiMCTgJFAkcCSgI9AkQCKgIlAiMCGgISAh8CHwIcAggB
-/QIIAf0CAwHxAe0B5gIBAfMB4AHxAfQB+gH+AfkB8QHoAeYB2wHXAcgBwQG/
-Ab8BwAHBAcUBxQHGAfAB6QICAgQB+gHHAcUB5gHpAewCBwIDAdQB0gHWAkAC
-NwJEAjoCUwI2AjMCWAJNAmQCYQJFAlwCSwJlAnECVgJgAkICTAJhAl8CfAKK
-AqMCegJGAegCAgIFAf4B6AHRAeABxwHbAewB7AHwAfEB6gH/AgQAAEEMqgAA
-GgAaAAACbwJgAncClwKZApgCjwKPAoYCfwJZAlACSwJNAkQCKQIhAh0CTQJT
-AlgCTgJTAkUCRAIqAjoCOgIwAgsCCAIIAg8CBAH1AfQCBQH6Af0CBgHuAecB
-5QIJAgICAwH+AfQB9wHsAeUB3gHXAdIBwQHAAb8BvgHAAcEBxAHDAcQB8AHn
-AfUCCAIMAewB+gHDAecB5wH+AgABzwIAAf0CLgIuAkgCRAJWAjECHgJXAmAC
-VgJjAlACVAImAlMCXQI8Aj0CTQJZAl0CcgKKAoQCmwJxAjgB4AISAioCFgH7
-Ad4B4AHTAcoB4gHWAdQB4AHeAfMCAwAAPjqqAAAbABsAAAJwAm0CbQJ+ApkC
-lAKTAokChgKJAnsCfgJ1AkkCOQI+AisCMAI+AicCQwJKAjkCSwJFAjsCMAIz
-AhwCJQInAiYB/gIKAiACHAIbAhcCCAIHAfMB/AH+AgYCBwH+AfoB9AHwAecB
-4QHdAdsB2gHWAb4BvgG9AcABwQHCAcQBxAHfAdUB5AHxAhkCAwH+AcQBzAHJ
-AfkB/gHMAgIB5gINAiYCTQJEAlcCMgJOAk4CWgJeAlsCRQJDAh4CLAIzAjAC
-WQJDAlYCUwJwAowCjAJ2Am4CYQHeAgYCBAH+AgsB2wHaAeAB0gHWAekB/QHq
-AdsB8gH6AAA+caoAABwAHAAAAnACbAJmAnwCgQKLApQCigJwAmICeQJrAnQC
-aAJEAisCOgIqAhoCFwIWAjwCMAJDAkICQwI7AjkCIQIVAhQCEAIUAiUCIQIM
-AgcB/gIEAfACBAIIAhECCQH9AfsB9QHvAesB4wHeAd8B2wHZAdUBvAG/Ab0B
-vQG/AcABwwHDAcMBxQHTAesCDwH7AgAB1gHUAckCAwHwAcwB3gHjAjUCJAI9
-AkUCVwIyAi0CNAJGAmYCXwJMAiICHwJGAjoCNQJMAk0CRQJhAoUCfwKGAmIC
-agJJAd8B6wH6AisB+gHpAd4B4AHzAdcB6AH1AgkCFgHlAfwAADwVqgAAHQAd
-AAACbgJsAmQCcAJ3AnMCbwKHAokCdAJsAkoCaAJWAj8COAIjAh8CGgImAhYC
-EQI3Ah0CPAI9AjoCMwI5AjACMAImAgcCDwIFAgIB9gHzAfMCDgISAgkCAQH/
-AfUB9AHsAekB5gHiAd4B2wHaAdoB2AHDAb8BvQG9Ab0BvgHCAcEBwgHDAd0B
-8AIHAggB/AHAAdEB1AH0AfQB0gHWAegCHgIbAigCTwJYAjoCLwImAkUCWwJD
-AkkCGwI8AjECTQI+AkQCWQJYAk0CeAJ/AmYCXwJ7AgcB6AIJAh0CDwIEAfEB
-6gHvAfYB7gHqAesCBQIZAf0B8gAAOuiqAAAeAB4AAAJtAmgCYgJiAmICcAJw
-AmACaQJ0AmECXQI/AkECNwIpAiECIgIxAjECKgISAg4CGwIfAj8CMgI6AjoC
-NgIwAhoCCAIiAggCCgIIAhcCCAH+Af0B+gH0AfQB6gHqAeoB6gHlAeMB3wHc
-AdMB1gHYAdQBwAG9AbsBvQHAAcABwgHDAcIB3gHxAfoB/gH7AcEB1AHPAdYB
-zAHtAeIB/gIUAiUCJgJEAksCRQJPAjACQwJYAjICNwIQAi0CMAJEAlMCUwJg
-AlgCWQJdAmwCVgJiAnoB/QHwAfQB7gH7AgwB+AH6AfkB+AHeAd8B8wHtAhYB
-+AIdAABAkqoAAB8AHwAAAmwCaAJhAloCXgJcAl0CZwJWAlwCVwJNAkYCPQIy
-AjoCIgIvAjICLAIvAiYCDgIUAhECJQI5AjoCOQIwAiMCJAIhAhgCFgIQAgwC
-BwIDAf8B+gHyAfEB6gHqAeMB4AHfAeYB5AHfAdwB2AHUAckBwwG9AbwBvQG8
-Ab4BwAHBAcEBwgHRAegB9QH0Ae4BwwHZAcsB3wHLAcwB5QH7AhMCJgI0AjUC
-OgJOAlUCOAJvAkQCNAIcAgsCIAImAjwCSQJcAmgCWAJxAk0CUwJkAnkCewIp
-AgECFwIMAfIB+QIFAf4CDgH1AfYB7gH3AeYCFAIRAekAADsiqgAAIAAgAAAC
-bAJiAmQCYgJZAlwCWAJTAlMCUQJIAkgCPwI7AjYCJgInAjUCMwIwAi8CKwIl
-Ag0CDAIPAhwCNgIyAjACIgIZAhcCEwIOAggCCgIEAf8B+gH3AfUB9QH0Ae0B
-6wHpAeIB1AHhAd4B3AHYAccBwQG8AbwBvAG7AbsBuwHAAcEBwgHBAcQB7AH0
-Ae4B4wHQAcIByQHdAc0B0QIIAfoCCgIZAgwCMAI3AkkCYQJiAnoCdQIsAiMC
-CAIQAjICPQJQAlkCbAJhAoQCbwJgAl0CbQJ8AmACBgJXAjgCCAH3AfgCCAIN
-AgcB/QHxAfkCCgIcAiYB6QAAOOCqAAAhACEAAAJsAm0CaAJjAloCWgJZAlMC
-UAJQAkwCSQJDAjcCKgItAjsCOQI2AjICLgIrAicCIgIaAgkCCQIZAhoCGQIX
-AhQCFAIOAg4CCgIHAgIB/gH+AfwB9wH2AfIB7AHqAeUB4wHiAd4B2gHJAcQB
-wQHAAb0BuwG7AbkBugG8Ab4BvgHAAcABwQHYAeEB0QG7Ab8ByAHzAewB5AHd
-AiMCKQIMAfsCNAIcAlICWAJgAm0CgAKCAk0COwIHAiQCJQI4AloCTAJbAncC
-hwJ5AnQCXwJjAnoCeAIxAngCgAIeAfwCAQIFAhECAwICAe8B+gIBAfoCIgHm
-AAA436oAACIAIgAAAn0ChgJkAl0CUgJPAlcCVAJOAk4CSgJEAjgCLgIsAkIC
-VQJKAjwCNAIwAigCJwIkAh4CEgIEAg8CEQIVAhACEAINAgICCAIGAggCAgH/
-AfwB+AHxAe8B7AHrAeMB4AHYAcsBygHIAccBxAHKAdMB0AG6AbkBuAG4AboB
-ugG6Ab0BvgG+AcABxAG7AbwBvwH6AgAB6QHsAekCFAIHAgoB9wIoAjoCWAJT
-AlkCYgJ2AoUCTQIqAgwCDgIeAjgCVAJKAk8CgAKFApACigJxAmgCbQJXAlYC
-bgKBAkgCCgIbAfkCCQISAgMB8gIFAg0CCgIhAeAAADXEqgAAIwAjAAACYgJp
-AmECUwJPAkoCRgJHAkwCPgI5AjYCMgJEAloCbAJmAlsCWAJTAkACMgIrAhwC
-HQIaAgYB/wIQAhMCDwINAgsCCAIGAgICAwH+AfkB9gH1AeoB6QHpAdYB1gHV
-AdgBywHPAdYB1gHXAc8B0wHVAbgBtwG2AbYBtgG3AbcBuwG7AboBugG4AbkB
-1QHtAfoCCgHqAesB8gH0AfEB+wHwAggCOgJHAksCWAJHAlECeAI6AisCHAIJ
-AhICQgIxAkACRAJqAoUChQJ2AnECdgJZAjACOAItAjQCVQIpAh0CAwIDAg0C
-CwIDAggCFAIWAiMB2wAANz6qAAAkACQAAAJgAlwCVwJXAlwCTQJJAkQCPwI9
-AjkCOQJmAm0CcAJMAkoCRwJDAjMCMwJCAjUCIgIeAhsCHAH+Af8CEAIKAgoC
-CQIHAf4CAAH/Af8B/AH1AfAB8wHeAdoB3AHXAd0B4AHbAd4B3wHdAdsB4wHa
-AeoBtwG3AbcBtgG2AbcBtQG3AbkBuwG6AboBzgHdAfIB+gIDAfEB7gH+AeoB
-6AHpAfICHQIuAjICJgJZAhECIAJ2Ai4CLQIhAg0CHgIpAhICTQJJAksCZAJ8
-AngCfAJzAiECKQIpAiYCEgIdAkICQAIRAf4CCQIVAh0CIAIdAiACIAHTAAA6
-aqoAACUAJQAAAmMCXQJZAloCegJ5AkkCRAJBAkQCcgJYAlkCYQJLAkMCMwIt
-AiECJgIcAhMCEgIOAhsCHAIaAggB/gH7Af0B/gIJAgcCAgH8AfQB/gH5AfUB
-4AHiAeAB6gHpAegB5wHkAe0B/QH/AfEB6AH4AeQB6AHHAbYBtgG2AbYBtgG1
-AbUBugG6AbgBugG9AeIB7wHyAfIB6wHpAfQB4wHgAecCBAI2AiICJQJPAlUC
-BgJjAmwCIwIoAhwCCgISAgwCNQJeAkkCYAJoAoAChAJ2AhMCOAImAg4CLQID
-AgICJQIUAgMCBAIKAhICFwIaAhACFgIXAdQAADqdqgAAJgAmAAACbAJjAlwC
-XQJvAlwCSwJ7AoICbAJsAnYCTQJEAjUCPwJTAkkCXQJcAkICQgJSAkcCEgIM
-Af4CBAICAfsB9QH0AfEB8QHvAf4B9wHoAfQB5wHkAewB8AHsAfEB8wHyAf8B
-/gIDAgMB/QH6AfQB8QHpAewBtgG2AbYBtgG1AbUBtQG2AbwBvAG7Ab4B5AHs
-AfUB7QHgAeUB5wHXAeUB6gIBAgYCDgIdAlECOAIFAmMCaQIuAiQCCAH0AgAC
-HAI+AlgCbgJ7AnoCZwJ4AmoCZQHsAiACEgIkAfACHAIEAgEB9wH7Ag0CEgIP
-Ag4CDwIJAhwB2gAAQaSqAAAnACcAAAJnAmACXwJhAlgCXAJMAmQCdQJpAlkC
-TwJDAlQCcQJrAmgCYgJOAkwCSwJPAkMCHQIVAigCLwIlAhsCEwIAAfQB8gHv
-AekB6QHpAegB5gHiAfQB9gH1Af4B/QIJAf4CCAIHAgICBAH6AfgB8QH6AfUB
-8AG1AbYBtgG1AbUBtAGzAbQBuwG3AbwBvgHQAeUB8gHdAeYB5AHfAdYB3AHn
-AhcB8wH+AjgCSQIPAfQCVAJdAkwCHwIVAh4CKQIyAjICQwJ2AmECbAJgAnEC
-dAJiAnoB3QImAgQB5wILAf0B+AHzAfICAgIAAgYCCAINAggCFwHWAAA/+qoA
-ACgAKAAAAmkCZAJhAlsCVwJVAlMCWAJwAlcCdgJYAnYCbAJ2Am0CaAJhAjoC
-NQIrAiQCJgIYAkMCSQIxAiYCOAI1AiYCFQIIAgICAAH+Ae4B6AHrAfYB+QH5
-AggCCgIJAggCDgICAgcB9gIAAf0B8wH7AfgB9gHmAboBtQG1AbUBtQG1AbUB
-tAG6AbUBuwG/AccB1wHmAd8B9gHlAcwB1gHQAeAB5wHlAhcCPQI8AjQB/QI9
-AkoCWwITAgECKQImAjoCJgI/AoUCVAJOAm8CbAJgAmYCbgHbAhoB8gHhAewB
-9AHvAeoB6gHwAfQB+gIFAf4CDQIPAdEAAD7nqgAAKQApAAACbQJnAmACWwJX
-AlYCWAJaAl8CZgJ4AnACfQJ5AnACWQJTAkYCRwI8AkkCRwI5AkYCQAJFAkUC
-PQI6AjMCMgIvAiYCHAIfAiYCHAINAgoCCwILAg0CAQH/Af4B9AINAfwB/wH3
-Af4B9QHzAfQB9AH0AecB6gG2AbUBtQG0AbQBtAG0AbMBtQG7AcIBvgHTAdoB
-4AHxAd8B1AHZAcsBzwHWAdsCEgITAicCEwHrAgUCTQIxAf8B/AITAj8CPgI2
-AkcCawJNAngCdgKHAlcCTQIaAdUB/gHhAdwB4AHrAeoB6QHlAf8B8AH0AfgC
-AQIIAg0B2QAAQPiqAAAqACoAAAJwAmoCYgJpAlgCWAJdAmICWwKAAoMCeQJp
-Al0CTQJEAkwCYgJfAk4CQQJAAk0COgI2AjkCOwI6AjACHwIWAgYCBwICAf0B
-/wIGAhcCGwH7AfwB/QHnAdsB3QHdAfQB9wHgAf4B/gH+AfwB9QHqAfMB6gHU
-AbcBtQG0AbMBswGzAbMBsgGzAbgBwQG9AcwBywHgAecB2gHaAeABywHHAc8B
-1gHvAgwCAwHaAfsCMgI4AfoCCwI+AlUCVAJMAkACQQJVAkICYgJzAm4CQgIz
-AdQB4QHbAdwB2wHfAeAB5QHpAe8B6wHpAfEB7gIBAgICBwHMAABG5KoAACsA
-KwAAAm8CaQJyAmwCYQJnAmoCaAJsApMCigKAAmQCZQJiAnACbAJsAmUCXwJY
-AkUCKQIlAiICGwIOAg8CDwIEAfwB+AH1AfAB7QHqAegB/QH+AeoB5gHfAdYB
-1gHRAc8BzQHPAdEB6QHvAfMB3gH1Ac4B3AHYAcoBygG0AbMBswGzAbMBsQGx
-AbQBuwG7AdYB1AHDAd4B1gHHAdEB4AHJAccBzQHTAggB3gHOAdYCDQIVAiAC
-FAIrAi0CRQJNAjYCMwI+AlwCOgJvAmQCXgI6AhoBygITAgcB0QHXAdsB4QHb
-AeQB5AHmAeEB7QH0AfMCBQHkAdYAAEnqqgAALAAsAAACbgJsAoACcAJ1AnQC
-dQJ9ApICiwJ5AnYCYgJ8AmMCUwJhAlkCYgJeAlMCSgIyAjICMQJBAisCLQIB
-AfsCAAImAg4CBwH+AfYB6gHlAeUB5QHhAecB5wHfAdwB3QHWAc4BzAHQAcoB
-1AHSAdsB2QHKAckBuAG1AbUBswGxAbEBrwGwAbABsgG8AbYBwQHFAdYBzwHJ
-Ad4B3AHuAccBxwHMAdsB3gHPAeYB2QHWAfMB6AH3AiwCKwIXAjkCKgI3AkcC
-VwI5AmICTAJlAgoB2wHMAjACBwHfAd4B1gHhAeIB3gHbAeMB7AH8AgAB/gIQ
-AdsB0wAASviqAAAtAC0AAAJ0AnUCiQKMAn0CgAKWApgCjgKAAowCewJqAm4C
-YwI8Aj4COQJAAk4CPwJOAkcCQAIwAhsCDQIBAgcCDQIIAjACIAIpAh4CHwH1
-AekB6wHtAfsB/gH+AgYB8gIHAfIB4QHrAdoBzAHCAcIBwgHVAcEBvQG5AbQB
-swGzAbIBsAGuAa8BrgGuAbYBuAG6AbsBvwHAAdgB4wHrAdsBxwHHAdAB2gHN
-AegCDQIUAd8B2QH0AiQCJQI7AjACJAIiAi8COgJEAkQCRQIpAkwB3QHGAdgC
-DQI1AhAB5QHZAdYB1gHaAeYB7QH2AgQCCAIJAgwB0AHIAABCHqoAAC4ALgAA
-AooCdgKjAqwCqAKlAp0CkQKKAnwCigKIAnUCTwJJAj4CLwIlAjICOAJGAiAC
-EgIWAgsCCQIMAhECOAIyAhICNQIyAigCKQIdAhUB6QIQAg0CEAIYAhQB/gHm
-AgMCDAIFAf8B/gH7AeQB1AHDAb8BvAG/Ab4BvQGzAbMBswGwAa4BrgGuAa0B
-sgG3AbkBuQG6AcwB7gHsAdkB1AHHAcgB1gHHAe4B8wIKAiECCQHsAiMCMAI/
-Aj0CKAI9AlECQwIxAjkCPAJBAhkCXAHGAdYB4QIHAlsCBwISAeAB4AHgAekB
-8gHvAfcB+AIDAhcCCwHaAdEAADwQqgAALwAvAAACgwJyAnkCegJ7AoECnQKA
-AmkCZgJpAnYCYgJgAkUCPwI3AjECHwIdAhkCGgI5AhsCGQInAiUCIwI/AjAC
-MAIwAjICJAIRAfsB9AIUAh4CHQIXAhEB/gH7AggCEgIJAgwB/wH/AfYB5QHW
-AdUBwAG+AcQBwgHVAcQBswGxAbABrgGtAa0BrQG2AbUBuAG4AbgBwgHTAdsB
-0QHRAckB0AHHAccB0QHUAeACCgIjAkICCQI7AlACSQImAi4CVwJNAj0CSgJE
-AmQB/QIaAcIB2gIZAfECMgHrAfwCHAIPAdkB2wHjAekB9AH5Af0CCQIHAdsB
-2gAAPg2qAAAwADAAAAKTAngCbAJtAnYCcAJ0An0CdQJWAlkCVwJOAkYCOgI0
-AiwCJgIgAiMCJAI0AjoCKAJIAkACRQIxAkQCNwI6AiQCJgIbAf0CBQH+AhwC
-JgIcAhsCFgISAfkCDAIMAfcB+gHzAfgB4wHhAd8BwwG/AcEB1gHWAeoB2gG3
-AbIBsgGuAa0BrAGsAa0BsgG2AbYBtQG8AccB3wHMAcIBxwHHAdEByAHRAeAC
-CgIOAiECSAIVAkECXgJBAjcCQwJPAmYCVQJdAmACfwH9AeUBwgHcAhEB5QHp
-AeAB9AH5Af4B4QHpAegB9AIGAggCEgIIAgUB2wHXAAA/QqoAADEAMQAAAocC
-dQJoAmQCYgJiAmgCZQJgAl8CTwJNAkUCQgI3AjECKgImAi8CNgI4AjwCTwJO
-AkECOwI/Aj4COAIlAi0CIQIFAfkCHgIYAhICIAIQAhUCHAIaAhICAwHeAdYB
-1QHOAcwBzAHLAc4BwgHAAb8BxAH0Ae0B6gHnAc4BtQGxAa4BrQGsAasBqwGy
-AbcBtAG2AbsB0AHaAcQBzwHUAeUB8gHRAd8B9AIRAf4CIgJAAi8CRQJNAj4C
-NgJYAkgCZwJkAl4CdwJnAfIBxwG/AecB4gHsAdoB6wHlAeQB3gHdAfkB7wHr
-AfQCAAH/AfUB/gHTAcoAAEOmqgAAMgAyAAACigJyAmQCYQJfAmICWQJTAk8C
-TwJGAkYCPgI8AjQCLQImAkcCQQIwAiYCJAIwAk4CQQJIAiYCMAIvAh8CDwII
-AiUCHgIjAiQCJgIUAfIB+wHrAekB7wHYAdYB0wHRAc4BywHKAccBxAHCAcEB
-wAHiAdwB+gH1AesB3QG2AbABrQGsAasBqgGqAbYBtQGzAbUBuQHCAcQBwwHb
-AdsB5QHjAdwB2AH0AgICIgIKAiICLQIrAj8CRwJIAlgCWAJaAmoCSQJYAk4B
-1QHEAcAB3wHtAc4B0AHjAdMB6gHYAdQB6QHeAegB8AH0AfkB9AHzAe8BzAAA
-RhWqAAAzADMAAAKJAnQCdQJmAm0CagJiAlsCVwJPAkUCPgI8AjoCMQIwAiYC
-RAI4AiUCHAIaAhICFgI7AkoCRAI+AjwCGwIwAi0CMAIhAhgCGgIBAeUB4QHg
-AeAB2wHaAdYB1AHRAc8BzQHMAcgByAHFAcMBwgHIAf4B5QH7AfQB7QHzAbkB
-rgGtAawBqwGqAakBtwGxAbIBtQG3AbsBwwHNAckByAHQAdYCAQHxAgECFgIh
-AjYCFwIiAiYCPQJOAkgCTgJSAlsCagI5AkUCOQHVAbkBvQHXAcwBvQHEAeAB
-ygHjAcoB6gHXAdQB3AHhAeQBzAHNAdoB3wHkAABDqKoAADQANAAAAoECfQJ3
-AnMCbQJpAmICXAJYAk4CSQJEAjwCNQIwAi8CMwIzAiQCHQIZAhYCEgIVAg4C
-OgJIAkMCPQI6AjkCHAIWAgUB7gHqAecB5AHiAd8B3QHbAdkB1gHUAdIB0QHQ
-Ac0BzAHJAckByQH0AfoB/gHtAfUB6wHmAfABtgGtAawBqwGqAaoBqQGpAbIB
-sgG1AbYBuQG7AbgBuwG/AccB4wHeAgQCEwIkAhUCLgIeAh4CMQI7AkECOQIn
-Ak4CYwJnAicCKQH2AcsBuAHMAckBugHAAb0BwQHNAdsBvwHVAcsB3AHrAc8B
-4AHKAcwBzwHqAgsAAETzqgAANQA1AAACdgJ1AmsCZgJsAmcCYgJeAlgCVQJM
-AkoCQAJBAjoCMAInAiMCIQIdAhoCFQITAhACDwILAjoCMQI7AikCHAIbAf0B
-9AHtAeoB6AHlAeIB4AHeAdwB2wHbAeoB6gHcAd4B0wHUAc4B0wHeAf4B/gH+
-AfsB7gHzAc8B7gG2AawBrAGrAaoBqQGpAakBrgGwAbMBtQG3AbUBswG3Ab0B
-ygHOAdQB6gH+AjACHgImAiMCMAI5AjsCRwI0AiUCQAJlAmECJAIgAdQB3AG1
-Ab0BtgG1AbcBvgG4AcABxAG4Ab8BzAHWAdkBzAHjAdIBxwHNAfQCCQAAR7Sq
-AAA2ADYAAAKeApcCmQJ3AmACYwJhAl0CfgJsAloCWAJKAjoCOAIuAigCJgIi
-Ah4CGQIWAhMCEQIPAgsCBwIIAgYCHQITAgAB9AHxAe0B6wHoAeYB6QHpAewB
-9gH+Af4B+QHzAfQB5wHgAecB3wHnAf4B9AH+AfAB6AHsAeoB6gHDAbYBrQGr
-AaoBqQGpAakBqAGwAbABsQG0AbQBswG2AbkBvwHCAcMBzAHZAgMCJAIsAhsC
-GwIyAjQCHAI/Aj0CMwImAkkCKgIvAfMB3gH/AbMBtwGzAbMBtQG4AbcBuwGz
-Ac8BxAG4Ab0BwQHfAcUBxQHCAfUB9AHfAABIc6oAADcANwAAArICjgKcAogC
-cAJXAlYCWQJYAnYCdAJsAkMCNwIzAi0CKgImAiICHQIaAhYCFAISAg8CDAIH
-AgQCAgH/AfsB+QH0AfEB7gHsAfACBAH6AfoB/gIAAf8B9QHwAd8B8gHhAfIC
-CAH+Af0B/gHoAfYB6QHcAeoB7gHzAc0BugGuAasBqgGpAagBqAGqAbEBsgGy
-AbQBsgGxAbMBzAHqAdQB/gILAhwB4QIbAjACFgIfAhsCGgISAjACPwIwAkIC
-CQIsAjgB4AIEAccBtAGxAbABrgGyAbUBuAG8AbgBuwHCAdYB0gHQAdYBwQHM
-AcgB2AH+AfoAAEdiqgAAOAA4AAAChAJ1Am8CawJeAlgCZwJUAk0CTQJNAmkC
-SgI4AjUCLwIsAigCIgIeAhsCGwIaAhICEAIMAggCBQIBAf4B+gH3AfQB8QHw
-AgcCEgIFAhQCEAIHAgQCAAHtAfMB5AH9AecB/wH7Af4B/wIEAfEB+QH0AfEB
-zAHYAeoB6AG+Aa0BqwGpAakBqAGoAaoBsQGvAbABsgGwAa8BsQHKAd8B2QH4
-AfYCHAHqAggCJAIZAhMCEAIJAhICJQI0AiYCEAHfAhECAAHaAfMBvgG4Aa4B
-rgGrAbABsAG0Ab8BuAG1AbIBwAHgAcEBxQHBAbwBygHZAgQB5AAAQXGqAAA5
-ADkAAAKGAnMCagJiAmgChwKIAnQCWwJKAkQCQAI9AjkCNgIwAiwCKAIkAiAC
-HAI7Aj0CGAIQAgsCCAIEAgEB/gH4AfYB9AH0AgsCIAIbAhwCGwIcAhICEgIU
-AgsCDQIGAggB4wILAgUCCwICAgEB/QH1AdcB6gHPAc0B3gHEAbMBrAGqAakB
-qAGnAacBqgGyAa4BrwGxAa4BrgGuAbMBvgHcAccB3AIaAgkCDwIoAhcCDgIE
-AgICHwIvAjoCJgJLAhACAgHOAeoB4gG+AbgBsgGqAakBrgGsAbABvQGxAbQB
-rgG1AcYBwQG0AcYBwQHJAg0B/wHvAAA4eKoAADoAOgAAAoACdAJqAmUCkwJg
-AlYCUgJOAkoCRgJBAjwCNgIzAi8CLAIoAiQCIQInAkUCRAI1AjMCDAIHAgQC
-AAH9AfkB+QIQAggCIAIWAicCGgIeAhwCEAILAhQCEQIOAgkCEgH8Ag8CCAII
-Af4B/gH+AegB5QHXAdwBwwHBAbsBugGuAakBqAGoAacBpwGpAbABrgGuAbAB
-rwGtAa4BsgG3AcABvQHaAeAB/gIcAisCCQIGAfQCEgIKAhgCSAIwAk0B/AH2
-AccB9wHXAcABuAG6AasBqAGpAa4BrgGwAa8BuAGrAbwBtAHWAd8B0QHWAc8B
-7QHdAfkAAD4OqgAAOwA7AAACdgJtAmgCZAJhAl0CWAJUAk8CSwJIAkICQAI6
-AjgCMAIrAicCIwInAk4CRQIyAiYCMgIgAgcCBAIBAgAB+gIqAjMCMQIzAicC
-LAImAicCHgIcAhwCFQIRAhMCEgH9AekCEgIBAf4B9AH2AfgB+QHMAcIBwgHJ
-Ac8B6wHHAawBqgGoAacBpgGmAakBrwGtAa4BsQGuAasBrQGuAbMBvgHEAdAB
-zAHqAfsCIgIaAfgB7AIKAf0CGwJFAkMCRgH0AeAB3QIGAeABygG7Ac8BsAGo
-AagBqAGpAakBrwGwAakBsgHQAcQB2QHjAeUB4AHqAcwB6wAAQGCqAAA8ADwA
-AAJ5AnECbwJrAmYCXwJbAlcCUgJOAkgCRAJYAmICNgIvAisCJgIlAkQCOQIm
-AhwCHwIMAhICCwIWAh0CGgIQAgoCGwIvAiwCJgIZAiYCJQIhAiACHAIhAhMC
-FQIJAfgB8gIGAggB/QH+AfQB6gHnAc4B2wHLAcsB9AHzAdUBrAGpAacBpgGl
-AaUBqQGtAa0BrgGwAa4BqgGsAa4BtAHNAcEBxAHgAdUCCwIdAhIB/gHpAgIB
-+gIeAjoCLgIrAhQB5AHiAdYB/QHRAbkBsgGuAakBpAGlAacBqQGuAa0BqQGs
-AbIBzQG1Ab0B7AHdAdoBxgHWAAA94aoAAD0APQAAAnUCdQJ3AmoCZgJiAl4C
-WQJYAlICSwJMAmwCWgIxAjACKwI2AkYCOAJDAkQCPAIdAhMCIwIbAhwCMgIc
-AgkB9gH6AgUCHQIOAhgCEgIhAhwCEgIUAhsCHAIcAgsCAwH9AgYCCAH+AfkB
-1wHTAecB9AHZAdUBzwHvAdUBxQGsAakBqAGmAaUBpAGnAaoBrAGuAa8BrgGo
-AawBrgG/AewB4wHzAfUB6QISAhkCAgIEAekB/QIBAhECIwJRAfQB1wHMAc4B
-1gHnAbABrwGuAa4BqAGlAaQBpAGpAa4BqwGpAawBsAGqAakBvQHkAdQB0gHJ
-AfAAAD9iqgAAPgA+AAACgAJ4AnICbAJrAmUCYQJlAmICWgJbAlgCVgI3AjIC
-LwI3AlECOQI9AicCJQIdAhsCHQJWAjECEgImAhIB/gH0AegB4wH8AfoCIAIb
-AhwB/gIcAf8CAAIWAhYCDgIJAgQCCAIKAgQCAAHdAfcB1QH7AecB6wHPAfcB
-7QHAAa4BqwGnAaYBpQGkAaQBqwGsAa4BrgGuAagBqwG7AeUB/gIWAhECFAII
-AgcCBwIOAfsB7gH0AfwCFwIdAjAB6QHMAb0BxAHgAcIBrQGsAakBrgGrAaQB
-pAGoAaYBrgGnAagBrwGuAakBrQHBAcABwgHGAc0B1gAAQB2qAAA/AD8AAAJ+
-AncCdAJxAnACagJ8AoUCdAJjAmUCbgJKAjMCMwIzAk4CPwJcAjACMAIwAiAC
-NwJYAjACLAIUAg4CBwHzAh8CKQIDAeAB6gIEAf0B9QHrAhQCFAH0AgkCFQIS
-AhICCgINAgQCAQH+Af4B/gH0AfUB6wH4AdcB7AHuAcoBrgGpAagBpQGkAaMB
-owGpAakBrgGrAakBpwGsAb4CCAH3AfQB7gHvAeUB3QILAgcB8wHpAfUB+wIe
-AhEB+wHfAcQBwQHCAcgBrgGrAakBqQGuAasBowGkAaUBpAGrAakBqgGwAa0B
-pgGzAbUB2wHNAd0BzwHWAABFB6oAAEAAQAAAAn4CegJ/AoAChwKLAo4ChQJ2
-AnsCcAJTAjkCNwI1AkECWgJeAkICSAJTAjkCMAJAAlQCJAIPAg8CBwH4AhgC
-LwIaAgAB7wHdAfQB8AHnAeIB+wH7AeIB6AISAggCDwIIAggCAgH+AeoB/QIC
-AfsB/gH1AfQB8wHrAeIBxQGtAakBpwGlAaQBowGjAaYBpwGtAakBqQGmAawB
-twHnAcwB0wH4AdkB1QHWAg8CEwICAeEB5wH4AhMCFQIpAeMBvgHGAbIBsgGr
-AakBpAGnAa0BqgGjAaQBpAGpAaQBqQGsAa4BqQGwAbYBsgHNAeQB6gHSAdUA
-AEeUqgAAQQBBAAACgwKgAqgCngKTApMCigJ7AnUCeAJXAk0COwI4AjoCTAJN
-AlcCWQJfAmMCYgJDAlsCQAIhAhgB/gIWAhsCIgIOAhICLQH3AekB2wHuAeYB
-5wHhAfwB2gHfAgUCCQIEAgICAAIAAf8B/wH/Af0B+gHzAfcB9gHyAfMB7QHM
-AbQBqAGoAaUBpAGiAaIBpQGnAakBpwGmAaQBqwGvAbwBwgG4AcUBxAG6AfgB
-+AIIAgQB3gH0AgMCIQIVAhsB8gG+AbcBrgGuAagBpQGfAZ8BqQGpAaMBowGl
-AaYBqAGnAawBqwGkAbABpAGtAd0B7AHlAcgB0QAASIeqAABCAEIAAAKpAqQC
-ngKgApgCjAJ6AnQCYgJwAk0CRAI+AkACZQJiAnsCWQJoAk4CRwJYAiwCRAJB
-Ah8CCAISAk4CRAIbAioCEgIqAfEB+wHeAeIB7wHgAdkB3wHrAdUB5wIGAfYB
-4AH+AesCAwH9AfYB+wHvAfQB7gH0AekB7wH0Ae8B0QGoAaYBpQGkAaIBoQGk
-AaYBqQGkAaQBpAGqAa0BsQG0Aa0BswG1AbkB8gIMAhkB/wH4AfUB/wIlAf8C
-DwH3AcQBrgGuAa0BpwGiAakBnwGkAaUBoAGjAaQBpAGlAaoBqgGoAbEBqgGk
-Aa0B0wHqAccBwwHPAABNH6oAAEMAQwAAAp8CqAKYAp4CmAKLAooCgQJsAlsC
-TQJDAj0CYAJsAl8CgAJ2AmsCOgIyAkACOQImAigCDgIjAjwCUQI6AiwCOgI6
-AjUB/gIaAekB2wHjAecB4QHiAdoB2wHjAeUB7AHyAfAB4AIHAfQB8wH1AeoB
-8QHWAfQB9AH0AeoB3QHLAagBpwGlAaQBogGhAaIBpAGlAaEBpQGjAakBqwGu
-AbABqQGuAbgBygH4Ag4CFgIHAeQB1AIAAf0B/gHsAcEBtgGpAcIBpAGlAZ8B
-owGaAZ4BngGfAaABpAGoAaMBpAGpAaUBrgGkAacBrgHjAeIBwgHUAcUAAExY
-qgAARABEAAACnwKaAqAChQKDAoQCdQJmAlgCVgJNAkICQgKAAmoCfQJ5AnYC
-TwIxAicCHAIbAhcCEgImAlICTQI5Ak8CMAI6AkICOQIIAjYB6AHWAdsB4gHw
-AhIBzAHJAdkB6QHjAeUB2AHbAeoB5QH3AfQBzQHYAdUB6wHqAeEB1gHbAewB
-rQGnAaQBpAGiAaABoAGiAaIBogGfAZ8BpgGrAa4BqQGpAbYBzAHoAfUCBwIS
-AfMB+AHmAdoB4wHyAdoBvAGvAagBtAGjAaQBnwGdAZ4BnwGfAaQBpwGmAacB
-oAGiAaYBpAGkAaQBqQGrAbgBtAHAAeABuAAAS6OqAABFAEUAAAKAAoAChQKP
-AnkCcgJhAlcCVAJRAkgCRQJKAmoCgAKCAnoCTgI6AkwCTwI5AjICJQIqAjoC
-QgIlAiUCLAJEAiwCOgI5AjsCPAHpAdcB2QHgAd8B2AHMAdIBxwHGAcgB1QHR
-Ad8B4AHyAekBywHHAcYB8gHMAdkB2wHMAcwB6gHgAagBpAGkAaIBoAGfAaAB
-nwGgAZ4BnwGnAakBqgGpAaoBuAHXAd4B9wIgAgQB8QH2AckB/AHEAc4B4AG2
-AawBqAGuAaABoQGgAZoBoAGkAaQBpAGkAaQBpgGhAZ8BpAGkAZ8BpAGkAa4B
-rgHKAdUBywGzAABLGaoAAEYARgAAAoACdAJ2AnECYwJiAloCVQJQAkwCSQJH
-AlUCbAJ1AnYCaAJsAlQCRQJDAlYCQAJRAlsCLgJEAiUCGwIfAjUCJQIfAjoC
-KAIrAfYB2QHSAdgB1gHMAc8CBQHWAeYB0QHBAcwB0gHHAd8BzAHVAcYBxAHD
-AcoBygHJAdkByQHpAeEBqgGkAaQBoQGgAZ8BnwGeAZ4BnQGeAaMBqAGqAaQB
-rgINAggCDAIYAhEB4wHiAfgB6AHuAb8B+wInAcEBpwGjAakBnQGfAZoBmwGi
-AaMBogGjAaIBogGlAZ8BnwGfAZ8BnwGkAakBpAHoAe0BzgHJAbgAAEa3qgAA
-RwBHAAACdQJtAmoCZQJhAl0CWAJVAlACTQJKAkoCWAJ9AmQCXwJlAk8COwIw
-AjcCQAIxAjkCOAIuAiwCDgIJAhECFAIyAgoCCgIuAjMB8AHWAdEB1QHbAc0B
-3wISAfQCCgHaAcwBvwHBAcIBwAG7AbwBuAG5AbYBuAHCAckBywHCAdYB1gG/
-AaQBowGiAaABnwGfAZ8BnwGdAZ0BogGmAakBpAGtAdwCHAIYAh0CFwILAdgB
-yQHGAbgB8gIXAhsB6wGoAZ8BogGgAZoBrQGfAaQBngGeAaABoQGgAaMBnwGf
-AZ8BnwGfAaEBowGwAdkB7AHJAa0BzgAAQqWqAABIAEgAAAJ2Am8CaQJlAmEC
-XQJaAlUCUQJOAkwCTQJsAmgCYgJTAksCOQJOAmACMAIlAiMCHAIbAhkCFAJJ
-AjwCIAICAhECGwH/AiQCLAH3AdsB0AHNAdABzAHOAgQCEgHxAdYB7QHRAc8B
-xQHJAcEBuAHHAeoBwwG2AbABtgHJAb8BzAHMAeABpAGkAaEBoAGeAZ0BnwGg
-AZ0BnAGkAaQBpwGkAasByAHYAiACAwHlAd8BwwGyAd4B9AH6AhICIgIKAcYB
-pwGeAZkBmgGpAZ8BoAGaAZsBoAGjAaEBnwGeAZ8BnwGfAZ8BnwGfAbEBvQHg
-AbkBpwG+AABE6qoAAEkASQAAAnQCcAJqAmYCYgJeAloCVgJRAk4CTQJhAmIC
-WAJaAkYCTwJPAmkCYQJiAkQCRQI6AlgCVAJNAlcCOQJBAiUCEQIAAfwCCAIm
-AhgB4AHQAc0BzAHMAc8B3gIcAg0B6wHpAcUB2QHTAekB7AHxAfQB7gHNAdEB
-0wGtAbYBwwHgAcoB4QGtAaQBoQGgAZ4BngGeAZ8BoAGbAZsBoQGkAaUBqAG3
-AcQB/gHrAckB1AGqAbMB4QIXAggCIAIXAfEB0AGnAZ0BmQGnAagBoAGfAZsB
-nQGiAaQBnwGfAZ8BmwGeAZ8BnwGfAaEBnwGmAbUBtQGkAaQAAEawqgAASgBK
-AAACdQJwAmsCZwJiAl8CWwJXAlICTgJuAlQCVwJOAksCVwJnAngCcAJrAmIC
-WgJSAkcCRAJDAjgCLwJPAjkCNwIzAiACPgH1AggCGgHgAdIBzAHMAcwBzAHR
-Ae8CCAHrAdAB+wH9AdkB1gH+AfQB8gH2AdAB6AHsAbcBrAG0AcQBvgHfAcsB
-pAGhAZ8BngGeAZ0BngGfAZkBnQGfAaEBpAGpAcUB1gHnAfQB6gG5AbkB4AH7
-Af0B9QIhAggB9gG6AbgBoQGYAbUBvwGoAZ4BnwGaAZ8BnQGcAZoBmgGbAZ0B
-nwGfAaABoAGiAagBoAGiAaQBpAAASpGqAABLAEsAAAJ0Am8CawJmAmICXgJc
-AlcCVAJXAmkCWQJOAl8CUAJVAnYCdwJwAlcCVwI+Aj0CNAIjAiwCIgIjAjIC
-HgIlAjsCJgIVAfwCIQI6AecB0QHOAcwBzAHMAdAB3wH/AgcB1AIIAgcCCAHz
-Af4B9QH+AfYB7AHqAdoBwwHBAawBrgG9AeABygGtAaEBnwGeAZ4BnQGeAZ4B
-mgGZAZ0BoAGkAagB4AHoAc0B/wHtAagB1QHoAf4B4QHuAe0CHQHnAbsBtwGh
-AZcBwwHLAbcBpQGuAZoBmgGbAZoBmwGaAZ0BnwGgAZ8BoAGjAa8B1wGlAaMB
-pAGlAABIyKoAAEwATAAAAnICbgJqAmYCYgJhAl0CWAJVAm8CWwJOAk0CSgJQ
-AmACXwJXAmgCVQJYAkkCUAJKAkwCSAJWAg0CEAIQAhUCFwIRAiYB/gIPAigB
-6gHXAdABzQHMAdQB0AHbAf4CCAHQAewCCQIGAf4B/gH2AfQB/gH0AfYB3wHq
-AeABuAGvAbgByQHIAdgBowGeAZ4BnQGcAZwBngGgAZgBngGfAaEBqAHqAccB
-9AIXAgEBsQHdAekB1AHWAd0B9AIPAhwByQG6AaIBlQG7AaQBoAGkAZ8BmQGb
-AZoBmgGdAZ4BnQGgAaIBoAGhAbEBywHRAbEBpwGnAakAAEc2qgAATQBNAAAC
-bwJrAmkCZQJhAl8CXAJYAlUCZAJVAkwCSQJEAkECZQJUAk0CUwI6AjoCLAIt
-AisCOAJKAikCDgIwAhMB/AH4AggCDAH0AhICMAIOAd4B0gHQAc0B0AHWAeIC
-BAH0AdUCBAISAg4CBgH/AgEB/gH2AesB8QHxAe4B7wHnAa4BrwGzAcEB4wGl
-AZ8BnQGcAZ0BnAGaAZsBmQGaAZwBnwGkAeoBqgHMAeoB5wGxAaYBvQHbAdgB
-5gH2AhACJgHQAcoBrwGWAaABmAGZAZ4BmgGaAZoBnwGfAaEBoQGdAZ8BpAGi
-AaQBwgHDAeoBtgGsAakBqwAARbiqAABOAE4AAAJvAmoCZgJlAmECXgJaAlcC
-UwJQAk4CSwJHAkMCQAI+AloCVQJCAkQCPgJbAkECMQIcAjICEgIlAkQCFAIa
-AjoCBAHuAfMB6gH7AgsB5wHaAdIBzwHUAd8B4wISAgUB1QHpAhICCAHxAfUB
-/QH4AeMB0QHLAeoB4AHoAe4ByAGuAa4BuAHLAb0BoQGeAZsBnAGcAZoBngGg
-AZoBmwGaAaMBsgGtAeoB2gHOAbMB5QH3AeAB4QH5Af0CGQIzAeIB1gGoAa4B
-uwGWAZUBlgGaAZsBmgGgAaEBogGkAZ8BoQGkAaQBpwHgAd0B+wHCAa4BrQGw
-AABJPaoAAE8ATwAAAnICbwJoAmgCYgJgAlwCWAJTAk8CTgJKAkYCQwI+AjsC
-OgJSAlYCVwJEAmwCUgJNAikCJQJMAk0CTgIyAjoCPwIcAg4CDgHuAg0CBgHw
-AdoB0QHRAdQB8gH3AhEB9gHjAd0B6gIQAggB4AHzAeIBzQHXAcsBxAHrAcsB
-4AHhAdUBsAGtAcEBxQHGAZ8BngGcAZsBmgGcAZsBoAGfAZkBngGpAa4CAQHR
-AdEBsQHmAf4B9gHuAekB7gIBAjcCCgG1AZkCBQHSAaABmwGZAZ4BmwGcAZ8B
-pAGjAaUBowGlAaUBqgGpAcIB7wH+AccBvQG4AbMAAEY/qgAAUABQAAACjQKF
-AnkCewJqAl8CWwJYAlQCUQJNAkkCRAJCAkECOgI3AjYCOQJDAmICZgJiAl8C
-VgJVAlACTAJDAkkCPAI6AjYCOgIbAf0B6AHuAfIB3AHUAdEB1QH4AgoCCQH0
-AdoB4AHrAfwB6QH9AdEB2QH5AekB7AHXAcAB5gHTAdkB0gG7AagBrAG3AdEB
-wQGaAZsBnAGbAZkBlQGUAZcBlwGVAaIBqQHVAa4BqwGhAcAB4wH+AfYB8wHo
-AgQCGAIhAZUB1AHYAd8BqAGfAZoBoAGeAZ4BngGhAaQBpgGmAakBqQGvAa4B
-vgHJAd8B/gHFAcQBvgAAS3uqAABRAFEAAAJ1AnECbgJqAmUCYQJnAmICYgJT
-Ak0CSQJGAkMCQQI7AjUCNQI2AjQCPQJhAlcCUQJYAjgCMAIpAjACRAJEAkIC
-FQIkAiYB/gHpAecB/QHqAdYB0QHYAe4B+QH/AeEBzAHYAeoCDQIIAfQB4gH2
-Af4B+QHyAd8ByQG1AbkBwgHlAdkBqQGkAbABxgHWAbkBqAGgAZ4BlgGXAZQB
-lAGWAZUBmAGpAbgBpwGjAbwB2gH7AfwB+QHxAeACCAH0AgIBlQHkAbEB7QGr
-AaQBnAGiAZ8BoAGgAaIBpgGoAagBrAGtAbMBvAHBAfwB5wHzAdkB1gHNAABM
-FKoAAFIAUgAAAnUCbwJrAmcCYwJgAl4CXgJZAlQCTgJKAkcCQwJBAj0CMwI1
-AjMCMAItAiwCXQJOAkMCQgJFAioCIAIlAiwCRwI6AggCEgIKAfQB5gH8AeoB
-3AHYAdsB8QHqAfsB8AHMAe4B6AH0AfoB6gHyAf4B/gH0Ae0ByQHiAbwB3gG6
-Ad0B0wGyAaQBowGuAb0BywHBAb0BwwGSAZQBlwGVAZUBlAGWAZ8BqAGgAbsB
-2AH0Af4B+wHiAeoB1wHjAd0B5AGjAegBzAHjAbQBqAGdAaABnwGkAaMBpQGp
-AasBrAGyAcMB0QHgAcsCBQHpAg8B8gHgAdYAAE14qgAAUwBTAAACdAJwAmwC
-ZwJlAmECXQJbAlgCVAJPAksCSAJEAkACPQI4AjQCMwIwAi0CKgImAlQCXQJV
-Ak8COwIvAhwCIwI6AjECLwIRAhEB/AHmAf4B8gHpAd4B9AH4AeAB3wHgAc8B
-3AISAhoCCAHiAfQB/gH5Ad8B0AHjAd8BwwHpAbgBwwG5AaYBqgGiAaIBqwHL
-AbYBxAG+AZQBmAGXAZUBlQGVAZQBlgGZAaYB2QHUAeoB6QHrAc0B1gHMAb0B
-2QGhAbkBzAHuAfMBvgGmAaABpAGjAacBqAGqAa4BtAGuAa4B4QHqAfMB7gHp
-AfACBwIHAe8B8gAASreqAABUAFQAAAJ1AnECbgJqAmYCYQJdAloCVgJSAk8C
-TAJIAkUCPwI9AjkCNQIwAjECKwIoAiQCIQI3AlcCWQJOAjoCRAIcAg8CEwIb
-AhUCKgIHAegB7AHnAfcB7AIHAgwB4AHcAdUB0AHkAhYCEgIGAd0CCAH+AfsB
-9AHvAe4B4AHRAeMB4AGrAawBuQHBAbEBowGfAawBqQGwAa0BkgGXAZYBlQGU
-AZQBlAGVAZcB0QHJAfkB7wHKAdkB1QHDAaQB1QGnAa8BwgHmAiUB6QG2AbgB
-pwGlAakBqwGuAb0BugHYAbcBtQHNAfQB/gHgAgYB8AH+AesCBQIxAABFoaoA
-AFUAVQAAAngCcwJvAmwCZwJiAl4CWwJWAlMCTwJLAkcCQwI/AjwCOgI0AjEC
-KwIrAikCIwIgAh4CIwJXAlMCUAJHAkMCPQIsAiIB/gH0AgwB7wHgAegB6AHy
-AfQCAwHlAd4B1QHSAd8CCwIDAfYB5QH9Ag8CBQH2AfQB8AHwAeEB4QHTAbUB
-sQHZAcwB0QG9AZ8BnwGfAZ8BngGXAZQBlQGVAZUBlAGTAZMBmwG8Ae0B/gHR
-AcUBtgHRAaIBrAGSAaEB1QHqAewCJwHgAc8BvwGoAaoBrwGzAbcB3AHbAesB
-wQHqAboB0AHVAgsCEgIUAfMB8QI8AjsAAEd+qgAAVgBWAAACewJ0Am0CaQJp
-AmMCYAJcAlcCUwJQAksCRwJEAkECPAI4AjUCMAIuAjACJgIiAh8CHAIbAlIC
-TAJNAjoCSAI+AkACJQIwAhAB/AICAesB4wHfAfQB+QIRAgIB7QHkAdYB5QH3
-AfQB6QHsAhcCGwH5AeoB5AHqAe8B9AHqAdQBtgHMAdIBtwHSAccBrwGgAZ8B
-ngGaAZUBlAGVAZUBlQGUAZQBkwGXAdEB/AH4AbcBlQGWAZMBmgGSAZQBtAHZ
-Ad8B2gHxAgwCCQHGAbUBswG1AbgBwgHrAeABxQHMAcwBzAHKAdAB5AH7AfoB
-4AIcAiwCGAAAR0mqAABXAFcAAAJ7AncCcgJuAmgCZgJlAl0CWAJTAlECSwJH
-AkUCQAI9AjoCNwIzAjACLwIoAiICHAIcAhoCGgJLAj8CMAI6AjsCJgIpAiIC
-LQIvAf0B+wHgAdsB8wH0Af0CGgIFAegB3gHmAfQCBAH0AfUCBQIpAhAB9AHn
-AewB6gHwAesB4AG7Ad8B0wHSAdUBtAGjAcMBrAHBAcIBlQGXAZYBlgGVAZUB
-lAGTAZIBrgHfAcoBrQGYAaoBmAGUAbsBkQHLAcsByAHPAd4B6AIIAe8BxQHV
-Ac0BxwHLAfwB3QHWAd8B4gIWAgcCDQHoAgIB2gHvAf8B/QH+AABG1aoAAFgA
-WAAAAoQCgAJ7AngCdQJsAmkCZwJfAlUCTwJNAkgCRAJAAjwCOAI1AjMCLgIs
-AicCIwIfAh0CHAIZAh0CQAJFAiICNgI6AhICFAInAiQCBQHlAesB3QHgAfMB
-9AIcAg8B9AHoAhICAAISAgwCBgIRAhQCDwH1AfQB1QHqAeoB6gHdAcIB5QG/
-AeABwgGpAa4BxAHCAbkBwAGfAZgBlQGWAZYBlQGUAZMBkwGSAcYBswHBAZkB
-sQGkAZ0BngGoAbMB5AHgAeQB/gH2AhsCEwHWAeACBAIFAegB6gHlAekCBgH2
-AiICDAIiAhICIwIHAfEB6gHsAfIAAD4KqgAAWQBZAAACfAJ7AnUCcQJxAnAC
-bAJnAmECXQJZAlICSwJHAk4CSQJCAjUCMAIsAiYCIgIgAiACHQIaAhcCFQIy
-Aj4CHgIdAikCNAISAggCJgIrAhcB6gHfAegB9wHtAgQCDgH1AhYCEQIXAiAC
-EAIYAf0CDAIKAfIB4QHPAdMB4QHlAdkBzAHcAdMB3gHLAdsBxQG5AbgBwgHD
-Ab8BnAGVAZcBlgGVAZQBkwGSAZIBnAGwAbEBkAGmAaUBygHeAcYB3wHbAf4B
-9gILAgQCHQHzAc8B9QH3AiECBwHtAfYCHQIwAhMCFwIXAhMCFAJKAkAB/wII
-AkUCGgAAOgCqAABaAFoAAAJ/AnoCdwJzAm8CbAJoAmMCXwJbAlUCUwJPAkQC
-RAJFAkECOwIvAicCJgIhAiICIAIeAhsCFgITAhECHwI9AjECDQIbAhQCIQIK
-AioCJgIRAfcB2QHhAeEB7wH/Ae0CDwIGAhYCEgIQAhIB/wIMAfoB8wHhAeoB
-1gHkAegB4wHkAd8B1QHbAcEBywHSAcwBzAHJAcYBvQGcAZYBlgGVAZQBlAGR
-AZEBkQGVAZwBnAGUAa4BuQHyAeABzwH0AcICCAIIAgMCFgIHAe0B4AH+AeQB
-+wIXAgYCFgIYAjwCFwICAgwCDAIlAi0CNwInAlQCZQJaAAA4uqoAAFsAWwAA
-An4CeAJ4AnMCbgJrAmYCYgJeAlsCVwJRAk0CQwI/AjwCNQIxAjgCMAIwAioC
-KAInAhwCGQIUAhECDwINAh8COgI3AiMCCAIcAgkCCAIGAgICFgHcAdcB5AH2
-AeoB/QIVAfMCAQIAAgsCEgH9AfMB7wHaAfIB4gHCAeEB5AHgAeoB4QHgAcMB
-uQHSAdYBygHIAcYBwwHCAaMBlwGWAZUBkwGTAZEBkAGQAZIBlwGVAZABrgHU
-Af4B8AHjAfIBxwHpAd0B6gICAfUB7gHqAeoB6gITAhsCDQIwAgsCHQIOAfMB
-/AIDAisCKQIpAj0CWAJ9AmoAAD2nqgAAXABcAAACfQJ6AnQCcgJuAmkCZQJg
-Al0CWAJTAlICTwJIAkECPAI5Aj4COgI1AjECMQIsAigCIQIZAhQCEAINAgwC
-CwI6AjkCOQIvAfwB/gIDAewB5QHtAegB1gHUAe0B4AIBAgkB8gHyAeoB8wIS
-AhICAQHgAgQB7AHYAcoB4AHlAeUB6AHlAeAB1gHgAdgB0QHHAccBwgHCAb0B
-qQGfAZUBkwGTAZIBkQGQAZABkQGSAZIBkAGjAb4B5AHbAf4B6QHqAdECCgHg
-Ae4B7gHuAeAB7QH5AgwCEgImAiUB/gIXAe0CCgIOAj4CHAIcAkQCMAI/Ak4C
-cAAAQSeqAABdAF0AAAJ8AnkCdgJuAmwCZwJjAmACXQJaAlgCUwJJAkECRAJA
-AkACPQI6AjcCMwIwAiwCJwIlAiECGQIRAg0CCgIIAggCNAIrAh0CHAInAioC
-JgIIAfIB4gHZAdQB0QHtAfEB+wIQAewB8AHoAggCCAIGAgACBwHoAd8BywHV
-AdYB5AHnAeEB5AHYAeAB1gHXAccBxQHGAbgBqAGzAbUBnAGUAZMBkgGQAZAB
-kAGQAZABjgGSAcIBxwG6AcwCAwH3AfMCCAIBAgcB6gH7AfUB6gHoAgYCAAIM
-AiICCAIYAgUB/AIZAi4COAImAjoCWQJVAkwCbAJkAAA5tKoAAF4AXgAAAncC
-dgJyAm8CbAJlAmICXwJbAlQCUAJJAkwCSgJGAkMCQAI9AjsCNwI1AjACLQIq
-AiYCJAIgAhsCDQIJAgcCBgI0AhsCDwItAicCKwIpAf4CCwHuAegB3wHTAd8B
-8QHrAfUB6gHpAeYCCAHgAfgCAwH2Af0B6gHWAcEB0gHXAeAB4AHjAdEB4AHa
-Ac4BxgHCAcEBvgG3Ab0BuQGgAZUBlAGTAZIBkAGQAZABkAGRAbUBrgHYAeAB
-xAIBAgIB6QIJAfgB9gHzAgUB/AHqAfMCBwH5Af8CCgIbAfMB9AH+AhoCQwI/
-Ak0CTAJJAmsCUQJsAk0AAEGyqgAAXwBfAAACdgJsAmwCbAJrAmYCYgJdAlkC
-WwJYAlMCTwJKAkYCRAJAAj4COgI4AjUCMQIuAioCJgIjAiECHAIZAgoCBgID
-AgQCFwIpAgwCGgImAisCEQImAhsB/gHrAdQB0gHeAeMB8QHyAesB3wIEAekB
-3gIIAf8CAAH+AdUBxwG/AcIB4QHJAeUB0QHfAdwB1QHIAbMBwgHGAcABvQG4
-AagBmgGVAZUBkwGQAZABkAGQAaoB6gH5Af4CAQHsAfACBAH0AgECCAH+AfQB
-+QHxAesB9QIKAfUB8wH7AgYCAQIFAgMCHAIqAiwCNwIzAmICVwJcAloCSwAA
-PWKqAABgAGAAAAKGAoACegJxAmwCcwJ4AmYCYAJbAlgCVgJOAksCSQJFAj8C
-PgI5AjUCNAIxAi4CKgImAiMCHwIcAhQCEgIHAgMCAQIAAgECLQICAhgCJwIm
-AiECGQH5AeAB5QHRAcwB3wHoAfQB4QHfAfgB3AHWAe4B9QH1AfIB7QHcAcAB
-0QHcAb4B4AHdAeAB2AHJAcUBvQHBAcUBwgG8AawBoAGaAZcBlgGUAZEBkAGQ
-AZABswG7AeMB5QIKAgsB4AIGAgoCAgIIAgMB/AHsAd8B7AH+AggB9gH3Ae4B
-9AIWAfgB+gHrAkwCHAIjAjgCWwI5AkcCKwJmAABAZaoAAGEAYQAAAqICkAKK
-AogCeAJvAnMCcwJqAlMCVQJPAk4CSgJGAkACOQI1AjYCMAIvAjECLgIrAiYC
-JQIgAhwCGgIWAhICAwIAAf4B/AH7AgECBAIcAiYCHAIcAhwCFQIEAeAB0QHO
-AcwB2wH4AdcB2AHZAd4B5wHUAdgB4QH3AfgBywG2AcIBtgHdAeAB4gHbAdYB
-yQHJAbMBugG+AbgBtwGwAZ0BmQGXAZUBkwGSAZEBkAGSAacBtQHHAfwCEQH6
-Af4CEwINAgcB+QH3Ae0B9AH8AgMCCwH1AeQB/gHqAhsCBwHoAgYCWgJEAi0C
-PQJwAkkCAwJxAmwAAECVqgAAYgBiAAACmwKKApECbAJnAmICXgJaAlcCUwJO
-AkoCRwJDAj8CPwI5AjYCMwIwAi0CKgIoAisCJgIkAiICHgIaAhUCDwIMAgIB
-/QH6AfkB9wH3AfoCHgIdAgkCAwIPAg8CDAHsAdcB1QHHAcoBzAHHAcMB0gHR
-AcwBvgHJAccB3AHhAcABswG0Aa4BrgHKAdcB1AHWAccBpgGjAaMBnwGkAbIB
-owGZAZcBlQGTAZIBkQGQAZMBvQHYAeYCAQIKAhACEAISAhkB/wHpAewB5AHp
-AgoCCAITAgoB7wHmAdoCDQIVAdUCAQIUAhoCPwJZAkICBwJGAlICWgAAO6aq
-AABjAGMAAAKYApMCcwJqAmYCYgJfAlsCVwJTAk8CSwJGAkMCPwI9AjoCNwI0
-AjACLQIqAiYCJQIlAiMCIQIdAhoCFwISAg4CAQH8AfkB+AH2AfMB8QHvAfQC
-GQIWAfoCEgHzAfkB3wHbAdoBxwHIAcIBwgHBAcQBvwG+AbwBuQG5AbwBswGz
-AbEBrgGqAakBqQGpAakBpgGkAaIBoQGeAZ0BnQGcAZoBmAGVAZQBkQGQAZAB
-kgH0AdkB+wIZAhwCGwIRAhoCCQIHAd8B5wHVAegCBQISAhUCEgH0AfYB9AID
-AfoB4AHWAegCKgJZAmwCUwIhAkUCLgI7AAA/96oAAGQAZAAAAn0CdQJwAmsC
-ZwJjAl8CWwJXAlMCTwJMAkgCRAJAAj0COgI2AjQCMAItAioCJgIkAiICIAIg
-AhwCFwIVAhICDQIJAf0B+gH4AfQB8gHvAe4B7AHqAfkB+AHvAfIB6AHiAdsB
-2gHWAdYB1QHMAcgBwAHDAccBxgG+AbgBuQG0AbIBsAGuAasBqQGnAaYBqAGn
-AaQBogGgAZ0BnAGbAZsBmAGWAZcBlAGSAZABkAGVAfUB8gH/AgACJgIiAiEC
-HAHyAfIB+AHqAfYB9QH+AgoCHwItAhoCDAHnAe8B5wH9Ad0CHAI2AkkCTAIX
-AisCMAIiAgcAAEOKqgAAZQBlAAACdgJyAm4CagJnAmQCXwJcAlgCUwJQAkwC
-SAJEAkACOgI2AjUCMgIxAi4CKgImAiMCIQIdAhsCGwIYAhUCEgIOAgoCAQH8
-AfcB9AHwAe8B7QHqAegB5gHmAegB5wHlAeEB4AHcAdoB1QHUAdUBzwHIAcwB
-ygHHAcMBvgG4AbUBswGxAa8BrAGqAakBqAGnAaYBpAGhAZ8BnQGcAZoBmAGX
-AZUBlQGTAZIBkAGOAZABtAIBAcwCEwInAhQCKwIPAgkB7QHsAekCAAIDAg0C
-BwIPAjICLwIlAfkB+AG+AbgB7AIRAiYCKAIjAd8CHgIYAjACHQAAPXGqAABm
-AGYAAAJ1Am4CbAJqAmYCYgJcAlsCVgJSAk4CSgJGAkICNAIzAjACNAIxAi4C
-LQIqAiYCIgIgAhwCGQIXAhcCFAISAg8CCgIFAgYCAAH0AfEB7gHrAekB5gHl
-AeMB4QHfAeQB4gHgAd8B2gHXAdYB1QHSAc4BzAHIAcUBwQG7AbYBtAGzAbMB
-sAGuAawBqgGpAagBpgGkAaEBnwGeAZsBmgGZAZcBlgGVAZMBkgGPAY0BjQGa
-AcgBuAHlAiACCwITAhgB/wH6AfUB6gH4AhsCBQH4AhICKQIjAhECAQH+AdoB
-1AHxAfECJgIRAg0B0gIkAeACJgHsAABA5qoAAGcAZwAAAmwCaQJnAmYCZAJi
-AlgCVQJSAk4CTAJHAkQCPQI6AjoCLAIvAjACLQIqAikCJgIiAiACHAIYAhYC
-EwISAhICDgILAggCBgIDAgEB/gH1AewB6AHlAeQB4gHgAd4B2wHgAeAB3QHa
-AdcB1QHUAdIBzgHMAccBxQG9AbwBtwG1AbMBswGxAa4BrgGrAakBpwGmAaYB
-ogGgAZ4BnAGbAZkBmAGWAZUBkwGRAY8BjgGNAYwBlAGuAdYCBAH4AgoCEQHe
-AekBzgHqAgoCHwHvAhQCLgIqAjACHQIAAeMB6QHFAdwB6gIRAfYCGgHbAh8B
-ywINAasAAD9bqgAAaABoAAACZgJkAmQCYgJcAlgCUgJQAk4CSwJGAj4COQI5
-AlQCTAJEAjoCLAIpAiYCJgIkAiECHgIaAhcCFQISAhACDgIMAgoCBgIGAgMB
-/gH8AfoB9gHsAeUB4wHgAd8B4AHaAdkB1wHaAdkB1wHYAdUBzwHNAcQBxAG9
-Ab0BugG3AbUBtAGzAbABrQGsAakBqAGnAaYBqAGjAZ8BnwGdAZsBmgGZAZcB
-lQGTAZEBjwGOAYwBiwGLAfkB9wH/AdcCFgH+AeoB6gHKAfkCCQIUAe8CGgIf
-AhsCNAIPAhAB/QHtAcoBrwHfAegB8QImAcQB2wG+AdEBnwAARFiqAABpAGkA
-AAJdAlkCUgJcAlECTwJUAkkCRAJBAkMCQAJPAlcCUwJLAkwCRwI9AiYCJAIl
-AiICHwIcAhkCFgISAhACDwIMAgkCBwIFAgICAQH/Af0B+gH3AfUB8wHoAeQB
-3QHaAdsB1wHTAdUB0QHUAdYBzgHIAcgBxQHCAb0BuwG5AbcBtQGzAbIBsAGt
-AasBqQGoAaYBpgGmAaIBoAGeAZwBmgGZAZgBlwGVAZMBkQGQAY4BjAGLAYsB
-3wHdAekB4QIRAeQB4wHBAeUCCAISAfcB/wISAhwCBwIyAggB8wH9AgYB3wG5
-AbsB9AHzAiYCMwHAAcQBogGaAABCs6oAAGoAagAAAncCcQJsAlECgQJ9AnoC
-cgJwAmUCYgJcAlcCUwJOAk4CSQJJAkECPAIkAiICIQIeAhsCGgIUAhICDwIM
-AgoCCAIEAgICAAH9Af0B+gH5AfYB9AHwAe8B7AHhAdsB1gHVAdEB0AHQAcwB
-ygHHAcYBxAHCAb8BvQG6AbkBtwG2AbQBsQGuAawBqgGpAagBpwGlAaQBoAGf
-AZ4BnwGbAZkBlwGXAZUBkwGSAZEBjgGMAYsBjAHCAcgBvQHlAhUB0gHdAewB
-5gHzAhcB/AH8AgQCGwH3AhcCMgH7AeAB7QHOAdYB+AH0AeECHAJYAegBogGQ
-AZwAAEe1qgAAawBrAAACiAKTAoQCgAKFAoACeAJ0Am4CZgJhAl8CVwJTAk4C
-SgJFAkQCQgI9AioCIQIdAhwCHQIXAhMCEQINAgsCCQIGAgMCAQH+AfsB+AH1
-AfIB8wHyAe8B7QHqAekB5wHVAdMB0QHPAc0BzAHJAccBxQHDAcEBvwG9AbsB
-ugG4AbUBtAGxAa8BrQGrAaoBqQGoAaUBrAGlAaABnAGcAZoBmgGZAZgBlwGX
-AZEBkAGPAY0BiwGLAZABuAHGAgoCFQHQAdEB7AINAgcCDAIAAegCFwIcAfEC
-HAIZAfgB/wHbAegB6gHkAdIB6QIFAiECCQGeAa0BnAAARBeqAABsAGwAAAKV
-Ao4ChwKFAoMCegJ2AnACbAJkAmACWAJdAlMCTwJJAkcCQgI+Aj0CPgIkAh8C
-GwIXAhgCEgIQAg0CCgIIAgUCAgH/Af0B+QH3AfQB8QHuAewB6QHnAekB4AHl
-AdYB1AHRAc8BzAHLAckBxwHFAcMBwQG+Ab0BuwG5AbgBtQGzAbIBrwGuAawB
-qwGrAacBpAGsAaoBpAGeAZwBpQGgAZ0BmwGXAZQBkQGRAY8BkAGMAYsBiwHC
-AfECHAITAeQBsgHVAfECHAH/AegB7wIaAgAB7gIFAjYCEwH+AfsB/gHpAd0B
-1gHXAfcCGQIQAZoBuwGhAABIMqoAAG0AbQAAApQCnwKUAowCfwJ2AngCdAJv
-AmoCYgJOAkgCTQJMAkkCRgI7AjwCOAI7AikCHwIcAhoCEgISAg8CDQIJAgcC
-BAIBAf4B/AH4AfUB9AHxAe0B6gHlAeMB4AHdAdoB1wHUAdEBzwHMAcoByAHG
-AcUBwgHCAcABvQG7AbkBuAG2AbQBsQGwAa4BrgGtAbABtAHAAa8BrQGpAaYB
-oAGjAaEBnwGcAZoBlAGSAZEBkAGNAY8BiwGcAewCEAIgAf4B+gGzAe0CBQIh
-AhYB5QHxAhsB/AH5AiACNwIdAg8B7AH7AdUB6wGeAaMBngGtAagBnwG3AacA
-AEeMqgAAbgBuAAACmQKVAokChQJ+AnYCewJ0AmkCbAJkAlQCSQJFAkkCSQJE
-AkICNAIsAjICIQIfAhwCGwIVAhICEAINAgkCBgIDAgAB/QH6AfgB9AHxAe8B
-7QHoAeUB4wHfAdwB2gHXAdUB0gHPAc0BywHJAccBxQHEAcMBwQG/AbwBuwG5
-AbgBvQHTAbwB3gHCAdUBwwHKAdIBwQHFAbEBqQGlAaQBogGfAZ4BmgGXAZIB
-kAGQAY0BkAGLAacB6QImAg0B5gH4AcABzAH1Ah8CDAHjAfQB8wHtAhACBQIo
-AiECEgHuAdABsQHEAaoBoQGcAaQBmgGdAa0BsAAASHGqAABvAG8AAAKTAo0C
-jQKCAn8CcQJ2AmgCaQJsAmMCVAJUAkQCQgJEAkACPgI/AjYCJQI6AicCHAIb
-AhUCEgIPAgwCCQIGAgMCAAH+AfoB9wH0AfEB7gHrAekB5gHiAd8B3QHbAdgB
-1gHTAdABzQHMAcoByAHHAcQBwwHEAcAB5wG/Ac4BxAHhAb4B2gHVAdoB0QHC
-AdoB2wHQAc4BywGxAakBpgGjAaEBnwGcAZkBlAGQAY4BjQGKAYoBpAHyAhsB
-9wHSAgABsAHdAgQCDwH2AfQB1wHCAbwCCAIBAhwCNwIcAiYCAwIDAcwB1QG7
-AZ8CDgHFAaYBqAG0AABGZqoAAHAAcAAAApQCjgKHAn8ChQJyAmwCZgJgAlsC
-WAJYAlgCTwI/AkICOgI8AjoCKgIvAjUCMAInAiUCFgISAg4CDAIJAgYCAwH/
-Af0B+gH3AfQB8AHuAesB6AHlAeMB4AHdAdsB2AHVAdQB0AHOAcwBygHJAcgB
-xQHyAfIB8QHlAdsB6wHBAd4BugHlAdcB4AHUAdYB2wHRAcwBzwHQAdABrAGm
-AaMBoAGeAZwBmgGXAZUBjgGMAYsBiAG/AeoB+wHSAcIB1AG2AewCCAIbAe4B
-+AH+Af4B6AH6AgoCJAIlAhwCGwInAhUBwgGbAZoBngGkAesBugGiAaQAAEwC
-qgAAcQBxAAACpAKYAo0CgQJ7AncCbQJmAmICXAJZAmYCWwJTAj8COAI2AjMC
-MAI6AjoCMAIwAi0CIwIlAiACIQIMAgkCBQIDAf4B/AH5AfYB8wHwAe0B6gHo
-AeUB4wHgAd0B2wHYAdYB1AHSAdABzgHMAfYB7AHIAe0CBAH5AecB9AHuAcYB
-3QG9AeUB4gHhAdwB3QHaAdcBvAHDAcsBuAG9AakBoQGgAZ8BnAGaAZgBkgGN
-AYsBiwGNAaMB3gH2AeQB1gG7AbsB1QH6AhYCEAILAg0CFAIMAfMCFQIkAiAC
-MAIYAhwB/gG4AdwB6wHDAaQBqAGqAaMBoQAASXGqAAByAHIAAAKlAqcCpwKD
-An8CdgJwAmkCYgJdAl0CVgJPAlgCTQJGAjoCMwJEAjoCNQI3AjQCLQIhAh8C
-HAIfAhwCCAIFAgIB/gH7AfgB9QHzAfAB7QHrAeoB5gHjAeEB3gHcAdoB2AHW
-AdMB0AHVAdUB3wHTAc0B7AH+AgYB7AHwAd0B3QHgAcIB5gHlAeIB4QHYAc4B
-xgG0AakBtwGwAbABqgGfAZ8BnQGbAZgBlgGUAYwBigGKAYkBjQGyAdoB3QHW
-AagB1gHZAfsCBwIUAhcCHAIYAg8B4QIdAkYCKwJDAi8CIAH/Aa8B6gHyAhYB
-qQH0AcQBywGvAABJdqoAAHMAcwAAApwClQKPApUCjgKAAnYCawJoAmgCXgJV
-AlMCUAJYAkUCOgJBAkQCNwI0AjgCNgIsAiICHAIbAhkCGQIUAgUCAgH/AfwB
-+QH1AfQB8QHvAewB6gHnAeQB4gHeAdwB3wHaAdcB1AHRAdsB6wHXAc0B1gHf
-AekB+AHmAe8B4AHrAd8BxQHzAfgB7gHmAeABwgG1AcgB1gGkAaIBowGeAZcB
-lwGbAZoBmgGZAZYBiwGKAYgBiQGMAbEBzgHiAcEBwgHgAeoCDgH4AhQCCQH9
-AeABtwIBAhACSwI9AkkCKQILAawBwgHiAhECFgG9Ah8CAwHzAecAAEnfqgAA
-dAB0AAACpwKcApQCmQKKAoAChgJ7AnwCcAJqAlkCTgJJAk8CQwJHAkcCPwI8
-AjcCIgIkAioCJwIjAhcCEwIVAhMCDgICAf4B+wH5AfYB9AHxAe4B6wHrAegB
-5AHiAeEB3QHcAdkB1gHWAewB6QHgAekB3QHNAfQB8QIBAe0B6gHfAewBxgHK
-AfIB8QHtAdABwQGzAbkB0wHLAbkBywGgAakBogGjAZoBmQGZAZYBlQGMAYoB
-iQGKAYsBmgHPAf0ByAHEAecB/gIWAfMCAQISAh8CGgHKAfcCFgJMAksCGwId
-AhEBnAGVAfMCGwIWAh8CMAIlAhYCSwAARuCqAAB1AHUAAAKVAqQCngKTAoAC
-iAKdAogCgAJsAmMCWAJPAkYCPwJHAkcCSgJCAj4CKQIwAiECKQIjAiMCHQIX
-Ag8CCgILAg0B/QH6AfgB9QHzAfEB7wHrAesB7wHlAeMB4AHjAdsB2gHqAfkB
-+gHqAfAB8wHiAc8B7wHzAeoB+AHkAcwB0wHVAcUB6gH1AdwBzgHMAcgBswHm
-AbgBtAHVAcwBxQHFAbABlAGRAZYBlQGTAYsBiQGJAYsBigGnAd4B5QG3AcwB
-3wIMAhUB4AH+AiUCMgInAh4BzQImAj0COgISAfQB8wGtAZUB6gHwAhgCNAHB
-AiECKQItAABK6KoAAHYAdgAAApECqgKeAokCgwKIAowCigKCAnECZgJbAlIC
-SQJHAk4CTgJIAjECLAI2AjUCKAIcAhkCEgISAg0CCAIPAgMCAgIAAfsB+AH1
-AfIB8QHvAewB6gHwAfcB/gIBAfkB+QH1AgMCAwINAfoB/QIHAeAB0wHdAfQB
-9AHhAdEB3QHHAeoBywHwAdoB0gHBAc4B1gHNAdsB2AG9AdEB0gGwAb4BxQGr
-AZABkAGOAYwBiwGIAYcBiQGMAa4B1gHuAbIB2QH3AfoCGAHSAggCHAI1AhgC
-DQHFAjoCQQIZAhEBsgGVAZUBygHwAiQCGgIcAcICIQInAjAAAEQ3qgAAdwB3
-AAACjQKdAocCdQKAAooCgwKAAokCdAJjAl0CVwJTAkkCSgJEAjYCNgJOAjYC
-MAIgAiYCJAImAiECFgIUAhICDQIEAhMCAAIIAggCBwHzAfEB7wHyAfcCAQIB
-Af0CAQIDAf8B9AIFAf4CDAILAg8B8wHVAesB8wHyAeoB0QHWAdQB+QHTAdYB
-2QHMAdYB5AHgAccB5QHVAdMB1gHRAbkBxQGwAZYBpwGVAZABjQGKAYYBhgGG
-AYgBrAHEAe8BlQH4AggB6gIcAcwB2AIhAjEB0QG5AggCMQIyAaIBnQGsAekB
-9wIPAfwCKAIcAiIBwgIbAioCIQAAP8OqAAB4AHgAAAKTAoUCfQJsAn0CjwKI
-AnkCcQJ6AnMCbQJWAlMCRAI/AjoCPQI8AlECRAI1AjACJgIhAh8CHAIVAhMC
-DgIDAggCCgH+AgoCDAIgAhECDAHxAe8B8QH4AfoB/gIDAfMB7wHnAggCAQII
-Af0B+QHsAdYB8wHzAewB5QHRAcwB9gINAdUB4AHRAd8B8QHRAd8ByAHfAdAB
-2QHbAcgB1QG8AaQBsQGmAZUBlQGRAYgBhgGEAYMBhQGpAcgB4wGkAeUB+QIB
-AjACAwHqAhYCLQIWAgQBmgH2AhwBlgHcAfQCBQH7Af4CEAInAh0CHgHEAgIB
-8wISAABBQg==}
-
-test dted-1.1 {} {
- catch {image delete i}
- image create photo i -file e10n48.dt0
- i data -format dted
-} {}
-test dted-1.2 {} {
- catch {image delete i}
- image create photo i -data $dteddata
- set data [i data -format dted]
-} {}
-test dted-1.3 {} {
- i blank
- i put $dteddata
- set data [i data -format dted]
-} {}
-test dted-1.4 {} {
- i blank
- i put $dteddata -format dted
- set data [i data -format dted]
-} {}
-if {[info tclversion] < 8.0} {
- return
-}
-
-test dted-2.0 {Binary I/O with DTED files} {
- i blank
- set f [open e10n48.dt0 r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/e10n48.dt0 b/tkimg/tests/e10n48.dt0
deleted file mode 100755
index 8f2ccf9..0000000
--- a/tkimg/tests/e10n48.dt0
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.bmp b/tkimg/tests/folder.bmp
deleted file mode 100644
index b8cd319..0000000
--- a/tkimg/tests/folder.bmp
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.gif b/tkimg/tests/folder.gif
deleted file mode 100644
index 9548461..0000000
--- a/tkimg/tests/folder.gif
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.jpg b/tkimg/tests/folder.jpg
deleted file mode 100644
index 87a0a38..0000000
--- a/tkimg/tests/folder.jpg
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.png b/tkimg/tests/folder.png
deleted file mode 100644
index 8e31c72..0000000
--- a/tkimg/tests/folder.png
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.ps b/tkimg/tests/folder.ps
deleted file mode 100644
index 895af4b..0000000
--- a/tkimg/tests/folder.ps
+++ /dev/null
@@ -1,137 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%Title: folder.ps
-%%Creator: Jan Nijtmans
-%%BoundingBox: 0 615 16 627
-%%Pages: 1
-%%DocumentFonts:
-%%EndComments
-%%EndProlog
-%%Page: 1 1
-% remember original state
-/origstate save def
-% build a temporary dictionary
-20 dict begin
-% define space for color conversions
-/grays 16 string def % space for gray scale line
-/npixls 0 def
-/rgbindx 0 def
-% lower left corner
-0 615 translate
-% size of image (on paper, in 1/72inch coords)
-15.98400 12.02400 scale
-% define 'colorimage' if it isn't defined
-% ('colortogray' and 'mergeprocs' come from xwd2ps
-% via xgrab)
-/colorimage where % do we know about 'colorimage'?
- { pop } % yes: pop off the 'dict' returned
- { % no: define one
- /colortogray { % define an RGB->I function
- /rgbdata exch store % call input 'rgbdata'
- rgbdata length 3 idiv
- /npixls exch store
- /rgbindx 0 store
- 0 1 npixls 1 sub {
- grays exch
- rgbdata rgbindx get 20 mul % Red
- rgbdata rgbindx 1 add get 32 mul % Green
- rgbdata rgbindx 2 add get 12 mul % Blue
- add add 64 idiv % I = .5G + .31R + .18B
- put
- /rgbindx rgbindx 3 add store
- } for
- grays 0 npixls getinterval
- } bind def
-
- % Utility procedure for colorimage operator.
- % This procedure takes two procedures off the
- % stack and merges them into a single procedure.
-
- /mergeprocs { % def
- dup length
- 3 -1 roll
- dup
- length
- dup
- 5 1 roll
- 3 -1 roll
- add
- array cvx
- dup
- 3 -1 roll
- 0 exch
- putinterval
- dup
- 4 2 roll
- putinterval
- } bind def
-
- /colorimage { % def
- pop pop % remove 'false 3' operands
- {colortogray} mergeprocs
- image
- } bind def
- } ifelse % end of 'false' case
-% define the colormap
-/cmap 9 string def
-% load up the colormap
-currentfile cmap readhexstring
-ffffff 000000 f0ff80
-pop pop % lose return values from readhexstring
-% rlecmapimage expects to have 'w h bits matrix' on stack
-/rlecmapimage {
- /buffer 1 string def
- /rgbval 3 string def
- /block 384 string def
-
- % proc to read a block from file, and return RGB data
- { currentfile buffer readhexstring pop
- /bcount exch 0 get store
- bcount 128 ge
- { % it's a non-run block
- 0 1 bcount 128 sub
- { currentfile buffer readhexstring pop pop
-
- % look up value in color map
- /rgbval cmap buffer 0 get 3 mul 3 getinterval store
-
- % and put it in position i*3 in block
- block exch 3 mul rgbval putinterval
- } for
- block 0 bcount 127 sub 3 mul getinterval
- }
-
- { % else it's a run block
- currentfile buffer readhexstring pop pop
-
- % look up value in colormap
- /rgbval cmap buffer 0 get 3 mul 3 getinterval store
-
- 0 1 bcount { block exch 3 mul rgbval putinterval } for
-
- block 0 bcount 1 add 3 mul getinterval
- } ifelse
- } % end of proc
- false 3 colorimage
-} bind def
-16 12 8 % dimensions of data
-[16 0 0 -12 0 12] % mapping matrix
-rlecmapimage
-020003010800
-010081010202028101000600
-8200010204028101000500
-0c010200
-81010209028101000100
-81010209028101000100
-81010209028101000100
-81010209028101000100
-81010209028101000100
-81010209028101000100
-81010209028101000100
-0c010200
-%
-showpage
-% stop using temporary dictionary
-end
-% restore original state
-origstate restore
-%%Trailer
diff --git a/tkimg/tests/folder.ras b/tkimg/tests/folder.ras
deleted file mode 100644
index b94cde5..0000000
--- a/tkimg/tests/folder.ras
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.raw b/tkimg/tests/folder.raw
deleted file mode 100755
index ce86e6e..0000000
--- a/tkimg/tests/folder.raw
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.rgb b/tkimg/tests/folder.rgb
deleted file mode 100644
index 70c3a59..0000000
--- a/tkimg/tests/folder.rgb
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.tif b/tkimg/tests/folder.tif
deleted file mode 100644
index 22a1496..0000000
--- a/tkimg/tests/folder.tif
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/folder.xbm b/tkimg/tests/folder.xbm
deleted file mode 100644
index 6a519f6..0000000
--- a/tkimg/tests/folder.xbm
+++ /dev/null
@@ -1,5 +0,0 @@
-#define folder_width 16
-#define folder_height 12
-static char folder_bits[] = {
- 0x78,0x00,0x86,0x55,0x02,0x01,0xff,0x5f,0x01,0x30,0x01,0x50,0x01,0x10,0x01,
- 0x50,0x01,0x10,0x01,0x50,0x01,0x30,0xff,0x1f};
diff --git a/tkimg/tests/folder.xpm b/tkimg/tests/folder.xpm
deleted file mode 100644
index 44ba7ae..0000000
--- a/tkimg/tests/folder.xpm
+++ /dev/null
@@ -1,18 +0,0 @@
-/* XPM */
-static char * folder[] = {
-"16 12 3 1",
-" s None c None",
-". c #000000",
-"# c #f0ff80",
-" .... ",
-" .####. ",
-" .######. ",
-"............. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-"............. "}; \ No newline at end of file
diff --git a/tkimg/tests/gif.test b/tkimg/tests/gif.test
deleted file mode 100644
index 27f38b1..0000000
--- a/tkimg/tests/gif.test
+++ /dev/null
@@ -1,41 +0,0 @@
-# This file is a Tcl script to test out GIF reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set gifdata \
-{R0lGODlhEAAMAJEAANnZ2QAAAPD/gP///yH5BAEAAAAALAAAAAAQAAwAAAIghINhyycvVFsB
-QtmS3rjaH1Hg141WaT5ouprt2HHcUgAAOw==}
-
-test gif-1.1 {} {
- catch {image delete i}
- image create photo i -file folder.gif
-} i
-test gif-1.2 {} {
- catch {image delete i}
- image create photo i -data $gifdata
- i data -format gif
-} $gifdata
-test gif-1.3 {} {
- catch {image delete i}
- image create photo i
- i put $gifdata
- i data -format gif
-} $gifdata
-test gif-1.4 {} {
- i blank
- i put $gifdata -format gif
- i data -format gif
-} $gifdata
-
-test gif-2.0 {Binary I/O with GIF images} {
- i blank
- set f [open folder.gif r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/hori.tga b/tkimg/tests/hori.tga
deleted file mode 100755
index 6213cf9..0000000
--- a/tkimg/tests/hori.tga
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/hori_bw.pcx b/tkimg/tests/hori_bw.pcx
deleted file mode 100755
index 4e4f32a..0000000
--- a/tkimg/tests/hori_bw.pcx
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/hori_raw.ppm b/tkimg/tests/hori_raw.ppm
deleted file mode 100755
index a2a65dd..0000000
--- a/tkimg/tests/hori_raw.ppm
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/ico.test b/tkimg/tests/ico.test
deleted file mode 100755
index 2da8d67..0000000
--- a/tkimg/tests/ico.test
+++ /dev/null
@@ -1,85 +0,0 @@
-# This file is a Tcl script to test out ICO reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set icodata \
-{AAABAAEAICAAAAEACACoCAAAFgAAACgAAAAgAAAAQAAAAAEACAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAD/AYCAAAH//wABAP//AQAAgAEAgAABAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAA////////////////////////////////////////////////////////////////
-////////////////////////////////////////////////////////////////////////
-////////////////////////////////////////////////////////////////////////
-/////////wYGBgYGBgYGBgYGBgYGBgYGBgYGBgYGBgb/////////BgYGBgYGBgYGBgYGBgYG
-BgYGBgYGBgYGBv////////8GBgYGBv8GBgYGBgYGBgYGBgYGBgYGBgYG/////////wMDAwMD
-/wMDAwMDAwMFBQUFBQUFBQMDAwP/////////AwMDAwP/AwMDAwMDAwUFBQUFBQUFAwMDA///
-//////8DAwMDAwH/AwMDAwMDBQUFBQUFBQUDAwMD/////////wMDAwMDAf8BAQMDAwMFBQUF
-BQUFBQMDAwP/////////AwMDAwMB/wEBAwMDAwUFBQUFBQUFAwMDA/////////8DAwMDAwEB
-/wEBAwMDAwUFBQUFBQMDAwMD/////////wMDAwMDAwH//wEBAwMDAwUFBQUDAwMDAwP/////
-////AwMDAwMDAQH//wEDAwMDAwUFAwMDAwMDA/////////8DAwMDAwMBAQH/AQEDAwMDAwMD
-AwMDAwMD/////////wMDAwMDAwMBAQH/AQMDAwMDAwMDAwMDAwP/////////AwMDBAQDAwMB
-Af8BAQMDAwMDAwMDAwMDA/////////8DAwMEBAMDAwEB//8BAwMDAwMDAwMDAwMD////////
-/wMDAwMDAwMDAQEB/wEBAwMDAwMDAwMDAwP/////////AwMDAwMDAwMDAQH//wEBAwMDAwMD
-AwMDA///////////////////////AQH/AQH///////////////////////////////////8B
-Af8BAQH//////////////////////////////////wEBAf8BAQH/////////////////////
-/////////////wEBAf8BAQH/////////////////////////////////AQEBAf8BAQH/////
-/////////////////////////////wEBAf//AQL/////////////////////////////////
-AgEBAf8BAf///////////////////////////////////wEBAf8B////////////////////
-//////////////////8BAf//////////////////////////////////////////////////
-///////////////////////////AAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AA
-AAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAH+fgfP/54DP//nAP/
-/+QD///5Af///gH////B////8f//////}
-
-test ico-1.1 {} {
- catch {image delete i}
- image create photo i -file img.ico
- i data -format ico
-} $icodata
-test ico-1.2 {} {
- catch {image delete i}
- image create photo i -data $icodata
- set data [i data -format ico]
-} $icodata
-test ico-1.3 {} {
- i blank
- i put $icodata
- set data [i data -format ico]
-} $icodata
-test ico-1.4 {} {
- i blank
- i put $icodata -format ico
- set data [i data -format ico]
-} $icodata
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-test ico-2.0 {Binary I/O with ICO images} {
- i blank
- set f [open img.ico r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/img.ico b/tkimg/tests/img.ico
deleted file mode 100755
index 9a982c6..0000000
--- a/tkimg/tests/img.ico
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/jpeg.test b/tkimg/tests/jpeg.test
deleted file mode 100644
index 659c007..0000000
--- a/tkimg/tests/jpeg.test
+++ /dev/null
@@ -1,75 +0,0 @@
-# This file is a Tcl script to test out GIF reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set jpegdata \
-{/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRof
-Hh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwh
-MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAAR
-CAAMABADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA
-AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkK
-FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWG
-h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl
-5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREA
-AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
-NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
-hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk
-5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDpdJ8Naj4g0ay1q9uNDnu763S5E0+kyPNA
-HUMqRyC4BQJnClNpyN33iWOxaHWtN1ux0vU9QtL9J7GaXzorNoJN8TQrlv3jKc+aScAcjj0r
-xTTvjd4l0fSbHTYLLSXitbaOGN5IZCxVVAGcSAZwPSuw+Hnj7VfHfjgDU4LOH7Hps5j+yoy5
-3SQZzuZv7g6Y71wUKeK9t7z913/rYLo//9k=}
-
-set jpegdata2 \
-{/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRof
-Hh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwh
-MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAAR
-CAAMABADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA
-AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkK
-FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWG
-h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl
-5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREA
-AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
-NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
-hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk
-5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDpdJ8Nah4g0ay1q9n0Se7vrdLkTT6VI80A
-dQypHILgFAmcKU2nI3feJY7Foda07WrHS9T1C0v0nsZpfOis2gk3xNCuW/eMpz5pJwByOPSv
-FdP+NviXR9KsNNgstJeK2to4UeSKQttVQBnEgGcD0rsPh3481Xx343I1OCzh+xadcGP7KjLn
-dJBnO5m/uDpjvXFRhinW95+67/1sF0f/2Q==}
-
-catch {image delete i}
-test jpeg-1.1 {} {
- image create photo i -file folder.jpg
- i data -format jpeg
-} $jpegdata
-test jpeg-1.2 {} {
- image delete i
- image create photo i -data $jpegdata
- set data [i data -format jpeg]
-} $jpegdata2
-test jpeg-1.3 {} {
- i blank
- i put $jpegdata
- set data [i data -format jpeg]
-} $jpegdata2
-test jpeg-1.4 {} {
- i blank
- i put $jpegdata -format jpeg
- set data [i data -format jpeg]
-} $jpegdata2
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-test jpeg-2.0 {Binary I/O with JPEG images} {
- i blank
- set f [open folder.jpg r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/logo.pdf b/tkimg/tests/logo.pdf
deleted file mode 100644
index c1533a2..0000000
--- a/tkimg/tests/logo.pdf
+++ /dev/null
Binary files differ
diff --git a/tkimg/tests/pcx.test b/tkimg/tests/pcx.test
deleted file mode 100755
index 14f7355..0000000
--- a/tkimg/tests/pcx.test
+++ /dev/null
@@ -1,79 +0,0 @@
-# This file is a Tcl script to test out PCX reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set pcxdata \
-{CgUBCAAAAABRAAsALAEsAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAADUgABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAADB/wDE/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDC/wDE
-/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDH/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDC/wDE
-/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDH/wDC/wDC/wDC/wDE
-/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC/wDC/wDE/wDC/wDC/wDC
-/wDH/wDC/wDC/wDB/8H/ygDJ/8QAwf/HAMH/AML/AML/zADC/wDC/wDC/8YAwf/FAMn/AML/
-ygDJ/8QAwf/HAMH/AML/AML/zADC/wDC/wDC/8YAwf/FAMn/AML/ygDJ/8QAwf/HAMH/AML/
-AML/zADC/wDC/wDC/8YAwf/FAMn/AMH/wf/KAMn/wwDB/wDB/8IAwf/CAMH/AMP/AML/wwDB
-/8IAwf/CAMH/wgDF/wDD/8IAwf8Awv/CAML/AMb/AML/AML/ygDJ/8MAwf8Awf/CAMH/wgDB
-/wDD/wDC/8MAwf/CAMH/wgDB/8IAxf8Aw//CAMH/AML/wgDC/wDG/wDC/wDC/8oAyf/DAMH/
-AMH/wgDB/8IAwf8Aw/8Awv/DAMH/wgDB/8IAwf/CAMX/AMP/wgDB/wDC/8IAwv8Axv8Awv8A
-wf/B/8oAyf8Awf8Awv/CAML/wgDB/wDD/wDC/8wAxf8Aw/8Awv8Aw/8Awv8Axv8Awv8Awv/K
-AMn/AMH/AML/wgDC/8IAwf8Aw/8Awv/MAMX/AMP/AML/AMP/AML/AMb/AML/AML/ygDJ/wDB
-/wDC/8IAwv/CAMH/AMP/AML/zADF/wDD/wDC/wDD/wDC/wDG/wDC/wDB/8H/ygDJ/84Awv8A
-wv/MAML/AML/AML/xgDB/8UAyf/CAMH/ygDJ/84Awv8Awv/MAML/AML/AML/xgDB/8UAyf/C
-AMH/ygDJ/84Awv8Awv/MAML/AML/AML/xgDB/8UAyf/CAMH/ygDJ/8gAwf/CAMH/wgDB/8IA
-wv/GAMH/wgDB/8IAwv8Aw/8Awf/DAMH/wgDB/8IAwf/CAMP/AML/AML/AML/ygDJ/8gAwf/C
-AMH/wgDB/8IAwv/GAMH/wgDB/8IAwv8Aw/8Awf/DAMH/wgDB/8IAwf/CAMP/AML/AML/AML/
-ygDJ/8gAwf/CAMH/wgDB/8IAwv/GAMH/wgDB/8IAwv8Aw/8Awf/DAMH/wgDB/8IAwf/CAMP/
-AML/AML/AMH/wf/KAMn/AMH/wgDE/8MAyf/LAML/AMb/AMn/AMn/AML/ygDJ/wDB/8IAxP/D
-AMn/ywDC/wDG/wDJ/wDJ/wDC/8oAyf8Awf/CAMT/wwDJ/8sAwv8Axv8Ayf8Ayf8Awf/B/8oA
-yf/LAML/AML/AML/yQDB/8IAwv8Awv8Awv/DAMH/wgDB/8IAwf/CAMn/AML/ygDJ/8sAwv8A
-wv8Awv/JAMH/wgDC/wDC/wDC/8MAwf/CAMH/wgDB/8IAyf8Awv/KAMn/ywDC/wDC/wDC/8kA
-wf/CAML/AML/AML/wwDB/8IAwf/CAMH/wgDJ/wDB/8H/ygDJ/8sAwf/CAMH/zQDB/8IAwf8A
-wf8Awv8Awv/FAMH/wgDB/8MAxf8Awv8Awv/KAMn/ywDB/8IAwf/NAMH/wgDB/wDB/wDC/wDC
-/8UAwf/CAMH/wwDF/wDC/wDC/8oAyf/LAMH/wgDB/80Awf/CAMH/AMH/AML/AML/xQDB/8IA
-wf/DAMX/AML/AMH/wf/KAMn/AMH/AML/wgDC/8IAxf8Awv/MAML/AMb/AML/AMb/AMn/AML/
-ygDJ/wDB/wDC/8IAwv/CAMX/AML/zADC/wDG/wDC/wDG/wDJ/wDC/8oAyf8Awf8Awv/CAML/
-wgDF/wDC/8wAwv8Axv8Awv8Axv8Ayf8Awf/B//8A0QDC//8A0QDC//8A0QDB/8H/AMH/wgDB
-/8IAwf8Awv8Awv8Awf/CAMH/wgDB/8IAwf8Awv8Awv8Awf/CAMH/wgDB/8IAwf8Awv8Awv8A
-wf/CAMH/wgDB/wDC/wDC/wDC/wDB/8IAwf/CAMH/AML/AML/AML/AMH/wgDB/8IAwf8Awv8A
-wv8Awf/CAMH/wgDB/8IAwf8Awv8Awv8Awf/CAMH/wgDB/8IAwf8Awv8Awv8Awf/CAMH/wgDB
-/wDC/wDC/wDC/wDB/8IAwf/CAMH/AML/AML/AML/AMH/wgDB/8IAwf8Awv8Awv8Awf/CAMH/
-wgDB/8IAwf8Awv8Awv8Awf/CAMH/wgDB/8IAwf8Awv8Awv8Awf/CAMH/wgDB/wDC/wDC/wDC
-/wDB/8IAwf/CAMH/AML/AML/AMH/}
-
-
-test pcx-1.1 {} {
- catch {image delete i}
- image create photo i -file hori_bw.pcx
- i data -format pcx
-} $pcxdata
-test pcx-1.2 {} {
- catch {image delete i}
- image create photo i -data $pcxdata
- set data [i data -format pcx]
-} $pcxdata
-test pcx-1.3 {} {
- i blank
- i put $pcxdata
- set data [i data -format pcx]
-} $pcxdata
-test pcx-1.4 {} {
- i blank
- i put $pcxdata -format pcx
- set data [i data -format pcx]
-} $pcxdata
-if {[info tclversion] < 8.0} {
- return
-}
-
-test pcx-2.0 {Binary I/O with PCX images} {
- i blank
- set f [open hori_bw.pcx r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/png.test b/tkimg/tests/png.test
deleted file mode 100644
index 2c80222..0000000
--- a/tkimg/tests/png.test
+++ /dev/null
@@ -1,49 +0,0 @@
-# This file is a Tcl script to test out PNG reading and writing.
-# It is organized in the standard fasion for Tcl tests.
-#
-
-if {[string compare tests [info procs test]] == 1} {
- source defs
-}
-
-catch {image delete i}
-
-set pngdata \
-{iVBORw0KGgoAAAANSUhEUgAAABAAAAAMCAIAAAGTgppAAAAABGdBTUEAAYagMeiWXwAAAHxJ
-REFUKJGVUMERgDAIC54D+HMDmanbuI0zxQ38uYE+uALW66N5UUISqJCE4X52ACBZS2umPkCS
-pPjAdZYJCUJy3Q57LLK7vURChdEfeWulqh4dRLa6zhJEE+B0N2OcEFtGVXNYvrQV9JwauH7G
-76f+WCQGurv2MCwYvuEFQANGc3uOMFYAAAAASUVORK5CYII=}
-
-test png-1.1 {} {
- image create photo i -file folder.png
- i data -format png
-} $pngdata
-test png-1.2 {} {
- catch {image delete i}
- image create photo i -data $pngdata
- set data [i data -format png]
-} $pngdata
-test png-1.3 {} {
- i blank
- i put $data
- set data [i data -format png]
-} $pngdata
-test png-1.4 {} {
- i blank
- i put $data -format png
- set data [i data -format png]
-} $pngdata
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-test png-2.0 {Binary I/O with PNG images} {
- i blank
- set f [open folder.png r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
-
diff --git a/tkimg/tests/ppm.test b/tkimg/tests/ppm.test
deleted file mode 100755
index bb7cde5..0000000
--- a/tkimg/tests/ppm.test
+++ /dev/null
@@ -1,98 +0,0 @@
-# This file is a Tcl script to test out PPM reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set ppmdata \
-{UDYKODIgMTIKMjU1Ct/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b3wAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////////////////////////wAAAP8A
-AP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/
-AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD//wD//wD//wD//wD//wD//wD/
-/wD//wD//wAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP//AP//AP//AP//AP//
-AP//AP//AP//AP//AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
-/////////////////////////////////wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8A
-AAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA
-/wAA/wAA/wAAAAD//wD//wD//wD//wD//wD//wD//wD//wD//wAAAP8A//8A//8A//8A//8A
-//8A//8A//8A//8A/wAAAP//AP//AP//AP//AP//AP//AP//AP//AP//AAAAAN/b39/b3wAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////////////////////////////
-/wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/
-AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD//wD//wD//wD//wD/
-/wD//wD//wD//wD//wAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP//AP//AP//
-AP//AP//AP//AP//AP//AP//AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAP///////////////////////////////////wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8A
-AP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA
-/wAA/wAA/wAA/wAA/wAAAAD//wD//wD//wD//wD//wD//wD//wD//wD//wAAAP8A//8A//8A
-//8A//8A//8A//8A//8A//8A/wAAAP//AP//AP//AP//AP//AP//AP//AP//AP//AAAAAN/b
-39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////////////////////
-/////////wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/
-AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD//wD//wD/
-/wD//wD//wD//wD//wD//wD//wAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP//
-AP//AP//AP//AP//AP//AP//AP//AP//AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAP///////////////////////////////////wAAAP8AAP8AAP8AAP8AAP8A
-AP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA
-/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD//wD//wD//wD//wD//wD//wD//wD//wD//wAAAP8A
-//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP//AP//AP//AP//AP//AP//AP//AP//AP//
-AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////////////
-/////////////////wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/
-AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD/
-/wD//wD//wD//wD//wD//wD//wD//wD//wAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A
-/wAAAP//AP//AP//AP//AP//AP//AP//AP//AP//AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAP///////////////////////////////////wAAAP8AAP8AAP8A
-AP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA
-/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAAAAD//wD//wD//wD//wD//wD//wD//wD//wD/
-/wAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP//AP//AP//AP//AP//AP//AP//
-AP//AP//AAAAAN/b39/b3wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////
-/////////////////////////wAAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAAAAAAD/
-AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA
-/wAAAAD//wD//wD//wD//wD//wD//wD//wD//wD//wAAAP8A//8A//8A//8A//8A//8A//8A
-//8A//8A/wAAAP//AP//AP//AP//AP//AP//AP//AP//AP//AAAAAN/b39/b3wAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAN/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b
-39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b39/b3w==}
-
-
-test ppm-1.1 {} {
- catch {image delete i}
- image create photo i -file hori_raw.ppm
- i data -format ppm
-} $ppmdata
-test ppm-1.2 {} {
- catch {image delete i}
- image create photo i -data $ppmdata
- set data [i data -format ppm]
-} $ppmdata
-test ppm-1.3 {} {
- i blank
- i put $ppmdata
- set data [i data -format ppm]
-} $ppmdata
-test ppm-1.4 {} {
- i blank
- i put $ppmdata -format ppm
- set data [i data -format ppm]
-} $ppmdata
-if {[info tclversion] < 8.0} {
- return
-}
-
-test ppm-2.0 {Binary I/O with PPM images} {
- i blank
- set f [open hori_raw.ppm r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/raw.test b/tkimg/tests/raw.test
deleted file mode 100755
index fd73679..0000000
--- a/tkimg/tests/raw.test
+++ /dev/null
@@ -1,55 +0,0 @@
-# This file is a Tcl script to test out RAW reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set rawdata \
-{TWFnaWM9UkFXCldpZHRoPTE2CkhlaWdodD0xMgpOdW1DaGFuPTMKQnl0ZU9yZGVyPUludGVs
-ClNjYW5PcmRlcj1Ub3BEb3duClBpeGVsVHlwZT1ieXRlCtnZ2dnZ2dnZ2QAAAAAAAAAAAAAA
-ANnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gAAAANnZ
-2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ
-2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-ANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ
-2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAA
-APD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/
-gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/
-gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/
-gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/
-gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAANnZ2dnZ2dnZ2Q==}
-
-test raw-1.1 {} {
- catch {image delete i}
- image create photo i -file folder.raw
- i data -format "raw -useheader true -nomap true -nchan 3"
-} $rawdata
-test raw-1.2 {} {
- catch {image delete i}
- image create photo i -data $rawdata
- set data [i data -format "raw -useheader true -nomap true -nchan 3"]
-} $rawdata
-test raw-1.3 {} {
- i blank
- i put $rawdata
- set data [i data -format "raw -useheader true -nomap true -nchan 3"]
-} $rawdata
-test raw-1.4 {} {
- i blank
- i put $rawdata -format raw
- set data [i data -format "raw -useheader true -nomap true -nchan 3"]
-} $rawdata
-if {[info tclversion] < 8.0} {
- return
-}
-
-test raw-2.0 {Binary I/O with RAW images} {
- i blank
- set f [open folder.raw r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/sgi.test b/tkimg/tests/sgi.test
deleted file mode 100755
index 33b2c7e..0000000
--- a/tkimg/tests/sgi.test
+++ /dev/null
@@ -1,65 +0,0 @@
-# This file is a Tcl script to test out SGI reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set sgidata \
-{AdoBAQADABAADAADAAAAAAAAAP8AAAAAbm8gbmFtZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAEJQAABAoAAAPvAAAD1AAAA7kAAAOe
-AAADgwAAA3QAAANWAAADNQAAAyAAAARFAAAELgAABBMAAAP4AAAD3QAAA8IAAAOnAAADjAAA
-A3kAAANgAAADQAAAAycAAARKAAAENwAABBwAAAQBAAAD5gAAA8sAAAOwAAADlQAAA34AAANq
-AAADSwAAAy4AAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAA
-AAcAAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcAAAAF
-AAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcD2QQACdkAA9kE
-AAnZAAPZBAAJ2QCD2dkABPCBAAjZAIPZ2QAE/4EACNkAg9nZAASAgQAI2QCC2QAG8IEAB9kA
-gtkABv+BAAfZAILZAAaAgQAH2QANAAPZAA0AA9kADQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB
-AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB
-AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB
-AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB
-AAuAgQAD2QANAAPZAA0AA9kADQAD2QA=}
-
-test sgi-1.1 {} {
- catch {image delete i}
- image create photo i -file folder.rgb
- i data -format sgi
-} $sgidata
-test sgi-1.2 {} {
- catch {image delete i}
- image create photo i -data $sgidata
- set data [i data -format sgi]
-} $sgidata
-test sgi-1.3 {} {
- i blank
- i put $data
- set data [i data -format sgi]
-} $sgidata
-test sgi-1.4 {} {
- i blank
- i put $data -format sgi
- set data [i data -format sgi]
-} $sgidata
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-
-test sgi-2.0 {Binary I/O with SGI images} {
- i blank
- set f [open folder.rgb r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/sun.test b/tkimg/tests/sun.test
deleted file mode 100755
index cf09491..0000000
--- a/tkimg/tests/sun.test
+++ /dev/null
@@ -1,52 +0,0 @@
-# This file is a Tcl script to test out SUN reading and writing.
-# It is organized in the standard fasion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set sundata \
-{WaZqlQAAABAAAAAMAAAAGAAAAkAAAAACAAAAAAAAAACACNmACwCAINmAAgCAAP/wgAD/8IAA
-//CAAP/wgAIAgBrZgAIAgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAIAgBTZgCYAgAjZgAIA
-gAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAgCACNmAAgCA
-AP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IACAIAI2YACAIAA
-//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAIAgAjZgAIAgAD/
-8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAgCACNmAAgCAAP/w
-gAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IACAIAI2YACAIAA//CA
-AP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAIAgAjZgAIAgAD/8IAA
-//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAP/wgAD/8IAA//CAAgCACNmAJgCACNk=}
-
-test sun-1.1 {} {
- catch {image delete i}
- image create photo i -file folder.ras
- i data -format sun
-} $sundata
-test sun-1.2 {} {
- catch {image delete i}
- image create photo i -data $sundata
- set data [i data -format sun]
-} $sundata
-test sun-1.3 {} {
- i blank
- i put $data
- set data [i data -format sun]
-} $sundata
-test sun-1.4 {} {
- i blank
- i put $data -format sun
- set data [i data -format sun]
-} $sundata
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-test sun-2.0 {Binary I/O with SUN images} {
- i blank
- set f [open folder.ras r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/test.ps b/tkimg/tests/test.ps
deleted file mode 100644
index c882478..0000000
--- a/tkimg/tests/test.ps
+++ /dev/null
@@ -1,426 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: Tk Canvas Widget
-%%For: Jan Nijtmans,,,,
-%%Title: Window .c
-%%CreationDate: Sun Mar 5 10:20:51 2000
-%%BoundingBox: 163 296 450 497
-%%Pages: 1
-%%DocumentData: Clean7Bit
-%%Orientation: Portrait
-%%EndComments
-
-%%BeginProlog
-50 dict begin
-
-% This is a standard prolog for Postscript generated by Tk's canvas
-% widget.
-% RCS: @(#) $Id: test.ps,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $
-
-% The definitions below just define all of the variables used in
-% any of the procedures here. This is needed for obscure reasons
-% explained on p. 716 of the Postscript manual (Section H.2.7,
-% "Initializing Variables," in the section on Encapsulated Postscript).
-
-/baseline 0 def
-/stipimage 0 def
-/height 0 def
-/justify 0 def
-/lineLength 0 def
-/spacing 0 def
-/stipple 0 def
-/strings 0 def
-/xoffset 0 def
-/yoffset 0 def
-/tmpstip null def
-
-% Define the array ISOLatin1Encoding (which specifies how characters are
-% encoded for ISO-8859-1 fonts), if it isn't already present (Postscript
-% level 2 is supposed to define it, but level 1 doesn't).
-
-systemdict /ISOLatin1Encoding known not {
- /ISOLatin1Encoding [
- /space /space /space /space /space /space /space /space
- /space /space /space /space /space /space /space /space
- /space /space /space /space /space /space /space /space
- /space /space /space /space /space /space /space /space
- /space /exclam /quotedbl /numbersign /dollar /percent /ampersand
- /quoteright
- /parenleft /parenright /asterisk /plus /comma /minus /period /slash
- /zero /one /two /three /four /five /six /seven
- /eight /nine /colon /semicolon /less /equal /greater /question
- /at /A /B /C /D /E /F /G
- /H /I /J /K /L /M /N /O
- /P /Q /R /S /T /U /V /W
- /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
- /quoteleft /a /b /c /d /e /f /g
- /h /i /j /k /l /m /n /o
- /p /q /r /s /t /u /v /w
- /x /y /z /braceleft /bar /braceright /asciitilde /space
- /space /space /space /space /space /space /space /space
- /space /space /space /space /space /space /space /space
- /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
- /dieresis /space /ring /cedilla /space /hungarumlaut /ogonek /caron
- /space /exclamdown /cent /sterling /currency /yen /brokenbar /section
- /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
- /registered /macron
- /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
- /periodcentered
- /cedillar /onesuperior /ordmasculine /guillemotright /onequarter
- /onehalf /threequarters /questiondown
- /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
- /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex
- /Idieresis
- /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
- /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
- /germandbls
- /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla
- /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex
- /idieresis
- /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide
- /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn
- /ydieresis
- ] def
-} if
-
-% font ISOEncode font
-% This procedure changes the encoding of a font from the default
-% Postscript encoding to ISOLatin1. It's typically invoked just
-% before invoking "setfont". The body of this procedure comes from
-% Section 5.6.1 of the Postscript book.
-
-/ISOEncode {
- dup length dict begin
- {1 index /FID ne {def} {pop pop} ifelse} forall
- /Encoding ISOLatin1Encoding def
- currentdict
- end
-
- % I'm not sure why it's necessary to use "definefont" on this new
- % font, but it seems to be important; just use the name "Temporary"
- % for the font.
-
- /Temporary exch definefont
-} bind def
-
-% StrokeClip
-%
-% This procedure converts the current path into a clip area under
-% the assumption of stroking. It's a bit tricky because some Postscript
-% interpreters get errors during strokepath for dashed lines. If
-% this happens then turn off dashes and try again.
-
-/StrokeClip {
- {strokepath} stopped {
- (This Postscript printer gets limitcheck overflows when) =
- (stippling dashed lines; lines will be printed solid instead.) =
- [] 0 setdash strokepath} if
- clip
-} bind def
-
-% desiredSize EvenPixels closestSize
-%
-% The procedure below is used for stippling. Given the optimal size
-% of a dot in a stipple pattern in the current user coordinate system,
-% compute the closest size that is an exact multiple of the device's
-% pixel size. This allows stipple patterns to be displayed without
-% aliasing effects.
-
-/EvenPixels {
- % Compute exact number of device pixels per stipple dot.
- dup 0 matrix currentmatrix dtransform
- dup mul exch dup mul add sqrt
-
- % Round to an integer, make sure the number is at least 1, and compute
- % user coord distance corresponding to this.
- dup round dup 1 lt {pop 1} if
- exch div mul
-} bind def
-
-% width height string StippleFill --
-%
-% Given a path already set up and a clipping region generated from
-% it, this procedure will fill the clipping region with a stipple
-% pattern. "String" contains a proper image description of the
-% stipple pattern and "width" and "height" give its dimensions. Each
-% stipple dot is assumed to be about one unit across in the current
-% user coordinate system. This procedure trashes the graphics state.
-
-/StippleFill {
- % The following code is needed to work around a NeWSprint bug.
-
- /tmpstip 1 index def
-
- % Change the scaling so that one user unit in user coordinates
- % corresponds to the size of one stipple dot.
- 1 EvenPixels dup scale
-
- % Compute the bounding box occupied by the path (which is now
- % the clipping region), and round the lower coordinates down
- % to the nearest starting point for the stipple pattern. Be
- % careful about negative numbers, since the rounding works
- % differently on them.
-
- pathbbox
- 4 2 roll
- 5 index div dup 0 lt {1 sub} if cvi 5 index mul 4 1 roll
- 6 index div dup 0 lt {1 sub} if cvi 6 index mul 3 2 roll
-
- % Stack now: width height string y1 y2 x1 x2
- % Below is a doubly-nested for loop to iterate across this area
- % in units of the stipple pattern size, going up columns then
- % across rows, blasting out a stipple-pattern-sized rectangle at
- % each position
-
- 6 index exch {
- 2 index 5 index 3 index {
- % Stack now: width height string y1 y2 x y
-
- gsave
- 1 index exch translate
- 5 index 5 index true matrix tmpstip imagemask
- grestore
- } for
- pop
- } for
- pop pop pop pop pop
-} bind def
-
-% -- AdjustColor --
-% Given a color value already set for output by the caller, adjusts
-% that value to a grayscale or mono value if requested by the CL
-% variable.
-
-/AdjustColor {
- CL 2 lt {
- currentgray
- CL 0 eq {
- .5 lt {0} {1} ifelse
- } if
- setgray
- } if
-} bind def
-
-% x y strings spacing xoffset yoffset justify stipple DrawText --
-% This procedure does all of the real work of drawing text. The
-% color and font must already have been set by the caller, and the
-% following arguments must be on the stack:
-%
-% x, y - Coordinates at which to draw text.
-% strings - An array of strings, one for each line of the text item,
-% in order from top to bottom.
-% spacing - Spacing between lines.
-% xoffset - Horizontal offset for text bbox relative to x and y: 0 for
-% nw/w/sw anchor, -0.5 for n/center/s, and -1.0 for ne/e/se.
-% yoffset - Vertical offset for text bbox relative to x and y: 0 for
-% nw/n/ne anchor, +0.5 for w/center/e, and +1.0 for sw/s/se.
-% justify - 0 for left justification, 0.5 for center, 1 for right justify.
-% stipple - Boolean value indicating whether or not text is to be
-% drawn in stippled fashion. If text is stippled,
-% procedure StippleText must have been defined to call
-% StippleFill in the right way.
-%
-% Also, when this procedure is invoked, the color and font must already
-% have been set for the text.
-
-/DrawText {
- /stipple exch def
- /justify exch def
- /yoffset exch def
- /xoffset exch def
- /spacing exch def
- /strings exch def
-
- % First scan through all of the text to find the widest line.
-
- /lineLength 0 def
- strings {
- stringwidth pop
- dup lineLength gt {/lineLength exch def} {pop} ifelse
- newpath
- } forall
-
- % Compute the baseline offset and the actual font height.
-
- 0 0 moveto (TXygqPZ) false charpath
- pathbbox dup /baseline exch def
- exch pop exch sub /height exch def pop
- newpath
-
- % Translate coordinates first so that the origin is at the upper-left
- % corner of the text's bounding box. Remember that x and y for
- % positioning are still on the stack.
-
- translate
- lineLength xoffset mul
- strings length 1 sub spacing mul height add yoffset mul translate
-
- % Now use the baseline and justification information to translate so
- % that the origin is at the baseline and positioning point for the
- % first line of text.
-
- justify lineLength mul baseline neg translate
-
- % Iterate over each of the lines to output it. For each line,
- % compute its width again so it can be properly justified, then
- % display it.
-
- strings {
- dup stringwidth pop
- justify neg mul 0 moveto
- stipple {
-
- % The text is stippled, so turn it into a path and print
- % by calling StippledText, which in turn calls StippleFill.
- % Unfortunately, many Postscript interpreters will get
- % overflow errors if we try to do the whole string at
- % once, so do it a character at a time.
-
- gsave
- /char (X) def
- {
- char 0 3 -1 roll put
- currentpoint
- gsave
- char true charpath clip StippleText
- grestore
- char stringwidth translate
- moveto
- } forall
- grestore
- } {show} ifelse
- 0 spacing neg translate
- } forall
-} bind def
-
-%%EndProlog
-%%BeginSetup
-/CL 2 def
-%%EndSetup
-
-%%Page: 1 1
-save
-306.0 396.0 translate
-0.9606 0.9606 scale
--148 -104 translate
-0 209 moveto 297 209 lineto 297 0 lineto 0 0 lineto closepath clip newpath
-gsave
-2 195 translate
-/TkPhoto {
- gsave
- 32 dict begin
- /tinteger exch def
- /transparent 1 string def
- transparent 0 tinteger put
- /olddict exch def
- olddict /DataSource get dup type /filetype ne {
- olddict /DataSource 3 -1 roll
- 0 () /SubFileDecode filter put
- } {
- pop
- } ifelse
- /newdict olddict maxlength dict def
- olddict newdict copy pop
- /w newdict /Width get def
- /crpp newdict /Decode get length 2 idiv def
- /str w string def
- /pix w crpp mul string def
- /substrlen 2 w log 2 log div floor exp cvi def
- /substrs [
- {
- substrlen string
- 0 1 substrlen 1 sub {
- 1 index exch tinteger put
- } for
- /substrlen substrlen 2 idiv def
- substrlen 0 eq {exit} if
- } loop
- ] def
- /h newdict /Height get def
- 1 w div 1 h div matrix scale
- olddict /ImageMatrix get exch matrix concatmatrix
- matrix invertmatrix concat
- newdict /Height 1 put
- newdict /DataSource pix put
- /mat [w 0 0 h 0 0] def
- newdict /ImageMatrix mat put
- 0 1 h 1 sub {
- mat 5 3 -1 roll neg put
- olddict /DataSource get str readstring pop pop
- /tail str def
- /x 0 def
- olddict /DataSource get pix readstring pop pop
- {
- tail transparent search dup /done exch not def
- {exch pop exch pop} if
- /w1 exch length def
- w1 0 ne {
- newdict /DataSource pix x crpp mul w1 crpp mul getinterval put
- newdict /Width w1 put
- mat 4 x neg put
- /x x w1 add def
- newdict image
- /tail tail w1 tail length w1 sub getinterval def
- } if
- done {exit} if
- tail substrs {
- anchorsearch {pop} if
- } forall
- /tail exch def
- tail length 0 eq {exit} if
- /x w tail length sub def
- } loop
- } for
- end
- grestore
-} bind def
-
-
-
-%%0 -12 translate
-gsave
-16 12 scale
-/DeviceRGB setcolorspace
-
-<<
- /ImageType 1
- /Width 16
- /Height 12
- /BitsPerComponent 8
- /DataSource currentfile /ASCIIHexDecode filter
- /ImageMatrix [16 0 0 -12 0 12]
- /Decode [0 1 0 1 0 1]
->>
-1 TkPhoto
-010101FFFFFFFF010101010101010101000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000
-0000000101FFFFFFFFFFFF0101010101010101000000000000000000F0FF80
-F0FF80F0FF80F0FF80000000000000000000000000000000000000000000
-00000000000001FFFFFFFFFFFFFFFF01010101010101000000000000F0FF80
-F0FF80F0FF80F0FF80F0FF80F0FF80000000000000000000000000000000
-000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF010101000000000000
-000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF010101000000
-F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF0101
-01000000F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
-FF010101000000F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80F0FF80000000000000000000000000FFFFFFFFFFFFFFFFFF
-FFFFFFFF010101000000F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80F0FF80F0FF80000000000000000000000000FFFFFFFFFFFF
-FFFFFFFFFFFFFF010101000000F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80F0FF80F0FF80F0FF80000000000000000000000000FFFFFF
-FFFFFFFFFFFFFFFFFFFF010101000000F0FF80F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80000000000000000000000000
-FFFFFFFFFFFFFFFFFFFFFFFFFF010101000000F0FF80F0FF80F0FF80F0FF80
-F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80F0FF80000000000000000000
-000000FFFFFFFFFFFFFFFFFFFFFFFFFF010101000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000
-000000000000>
- grestore
-grestore
-restore showpage
-
-%%Trailer
-end
-%%EOF
diff --git a/tkimg/tests/tga.test b/tkimg/tests/tga.test
deleted file mode 100755
index 46a0e1f..0000000
--- a/tkimg/tests/tga.test
+++ /dev/null
@@ -1,55 +0,0 @@
-# This file is a Tcl script to test out TGA reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set tgadata \
-{AAAKAAAAAAAAAAAAUgAMABgg0d/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAA
-iP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA
-/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kA
-AACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP//
-AQAAAN/b3wDf29+JAAAAiP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAA
-AIj/AP8AAAAAiAD//wEAAADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/
-AAAAAAAAiP//AAAAAACI/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8A
-AAAAiAD/AAAAAACI/wAAAAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29+JAAAA
-iP///wAAAACIAAD/AAAAAIgA/wAAAAAAiP8AAAAAAACI//8AAAAAAIj/AP8AAAAAiAD//wEA
-AADf298A39vfiQAAAIj///8AAAAAiAAA/wAAAACIAP8AAAAAAIj/AAAAAAAAiP//AAAAAACI
-/wD/AAAAAIgA//8BAAAA39vfAN/b34kAAACI////AAAAAIgAAP8AAAAAiAD/AAAAAACI/wAA
-AAAAAIj//wAAAAAAiP8A/wAAAACIAP//AQAAAN/b3wDf29/PAAAAAN/b39Hf298=}
-
-
-test tga-1.1 {} {
- catch {image delete i}
- image create photo i -file hori.tga
- i data -format tga
-} $tgadata
-test tga-1.2 {} {
- catch {image delete i}
- image create photo i -data $tgadata
- set data [i data -format tga]
-} $tgadata
-test tga-1.3 {} {
- i blank
- i put $tgadata
- set data [i data -format tga]
-} $tgadata
-test tga-1.4 {} {
- i blank
- i put $tgadata -format tga
- set data [i data -format tga]
-} $tgadata
-if {[info tclversion] < 8.0} {
- return
-}
-
-test tga-2.0 {Binary I/O with TGA images} {
- i blank
- set f [open hori.tga r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
diff --git a/tkimg/tests/tiff.test b/tkimg/tests/tiff.test
deleted file mode 100644
index 00b18f3..0000000
--- a/tkimg/tests/tiff.test
+++ /dev/null
@@ -1,54 +0,0 @@
-# This file is a Tcl script to test out TIFF reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-set tiffdata \
-{TU0AKgAAAkgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AADw/4Dw/4Dw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw
-/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw
-/4Dw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw
-/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw
-/4AAAAAAAAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4AAAAAA
-AAAAAAAAAAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAA
-AAAAAADw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4Dw/4AAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgEAAAMAAAAB
-ABAAAAEBAAMAAAABAAwAAAECAAMAAAADAAAC9gEDAAMAAAABAAEAAAEGAAMAAAABAAIAAAER
-AAQAAAABAAAACAESAAMAAAABAAEAAAEVAAMAAAABAAMAAAEWAAMAAAABAAwAAAEXAAQAAAAB
-AAACQAEaAAUAAAABAAAC/AEbAAUAAAABAAADBAEcAAMAAAABAAEAAAEoAAMAAAABAAIAAAAA
-AAAACAAIAAgSwAAAAAQAABLAAAAABAAA}
-
-test tiff-1.1 {} {
- catch {image delete i}
- image create photo i -file folder.tif
-} i
-test tiff-1.2 {} {
- catch {image delete i}
- image create photo i
- i put $tiffdata
- i data -format {tiff -byteorder bigendian}
-} $tiffdata
-test tiff-1.3 {} {
- i blank
- i put $tiffdata -format tiff
- i data -format {tiff -byteorder bigendian}
-} $tiffdata
-
-if {[info tclversion] < 8.0} {
- return
-}
-
-test tiff-2.0 {Binary I/O with TIFF images} {
- i blank
- set f [open folder.tif r]
- fconfigure $f -translation binary
- set return [catch {i put [read $f]} msg]
- close $f
- lappend return $msg
-} {0 {}}
-
diff --git a/tkimg/tests/visualtests/Readme.txt b/tkimg/tests/visualtests/Readme.txt
deleted file mode 100755
index 9add1b5..0000000
--- a/tkimg/tests/visualtests/Readme.txt
+++ /dev/null
@@ -1,28 +0,0 @@
- Description of the tests
- ========================
-
-testFull.tcl: Read and write full images
-testFrom.tcl: Read and write images with option "-from"
-testTo.tcl: Read and write images with option "-to"
-testSmall.tcl: Read and write images with sizes from 1x1 to 4x4
-
-Each test performs the following operations:
-
-For each image format "fmt":
- 1. Draw the test canvas, store it in a photo image
- and write it to a file in format "fmt".
-
- 2. Read the image from file in different ways and display it.
-
-
-The following ways to read image data are tested:
-Read from file 1: image create photo -file $fileName
-Read from file 2: set ph [image create photo] ; $ph read $fileName
-Read as binary 1: image create photo -data $imgData
-Read as binary 2: set ph [image create photo] ; $ph put $imgData
-Read as uuencoded string: set ph [image create photo] ; $ph put $imgData
-
-The following ways to write image data are tested:
-Write to file: $ph write $fileName -format $fmt
-Write to uuencoded string: $ph data -format $fmt
-
diff --git a/tkimg/tests/visualtests/testFrom.tcl b/tkimg/tests/visualtests/testFrom.tcl
deleted file mode 100755
index 3a3c60f..0000000
--- a/tkimg/tests/visualtests/testFrom.tcl
+++ /dev/null
@@ -1,116 +0,0 @@
-package require Tk
-
-proc initPackages { args } {
- global gPkg
-
- foreach pkg $args {
- set retVal [catch {package require $pkg} gPkg(ext,$pkg,version)]
- set gPkg(ext,$pkg,avail) [expr !$retVal]
- }
-}
-
-initPackages img::bmp img::gif img::ico img::jpeg img::pcx \
- img::png img::ppm img::raw img::sgi img::sun \
- img::tga img::tiff img::xbm img::xpm img::window
-
-set retVal [catch {package require Img} version]
-if { $retVal } {
- error "Trying to load package Img: $version"
-}
-
-cd [file dirname [info script]]
-
-source [file join "utils" "testUtil.tcl"]
-source [file join "utils" "testGUI.tcl"]
-# We get the global variable ui_enable_tk from above Tcl module.
-
-source [file join "utils" "testImgs.tcl"]
-source [file join "utils" "testReadWrite.tcl"]
-
-if { $argc != 1 } {
- set testMode [expr $modeFile | $modeBin | $modeUU]
-} else {
- set testMode [lindex $argv 0]
-}
-
-PH "Image Read/Write (Using -from option)"
-
-P "This test tries to store the content of a canvas window in image files"
-P "using all file formats available in the tkImg package."
-P "After writing we try to read the image back into a photo by using the"
-P "auto-detect mechanism of tkImg. If that fails, we use the \"-format\" option."
-P ""
-if { $ui_enable_tk } {
- P "Set the environment variable UI_TK to 0 before running this test,"
- P "to run this test in batch mode without displaying the images."
- P ""
-}
-
-if { $tcl_platform(platform) eq "windows" && $ui_enable_tk } {
- catch { console show }
-}
-
-ui_init "testFrom.tcl: Read/Write (Using -from option)" "+320+30"
-SetFileTypes
-
-drawTestCanvas $version
-
-P ""
-set sep ""
-if { $ui_enable_tk } {
- set sep "\n\t"
-}
-set count 1
-set phCanvas [getCanvasPhoto .t.c]
-foreach elem $fmtList {
- set ext [lindex $elem 0]
- set fmt [lindex $elem 1]
- set opt [lindex $elem 2]
- catch { file mkdir out }
- set fname [file join out testFrom$ext]
- set msg "Image $count: $fname Format: $fmt $sep (Options: $opt)"
- P $msg
-
- PN "\t"
- writePhotoFile $phCanvas $fname "$fmt $opt" 0
- if { $testMode & $modeFile } {
- set ph [readPhotoFile2 $fname "$fmt $opt" -1 -1 -from 140 50 200 110]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.1: $fname Format: $fmt $sep (Read from file 2)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeBin } {
- set str [writePhotoFile $phCanvas $fname "$fmt $opt" 0 -from 140 50 200 110]
- set ph [readPhotoBinary1 $fname "$fmt $opt"]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.2: $fname Format: $fmt $sep (Read as binary 1)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeUU } {
- set str [writePhotoString $phCanvas "$fmt $opt" 0 -from 140 50 200 110]
- if { $str eq "" } {
- set ph [createErrImg]
- } else {
- set ph [readPhotoString $str "$fmt $opt" -1 -1]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- }
- set msg "Image $count.3: $fname Format: $fmt $sep (Read as uuencoded string)"
- ui_addphoto $ph $msg
- }
-
- P ""
- incr count
-}
-
-PS
-P "End of test"
-
-P ""
-P "Package tkImg: $version"
-ui_show
diff --git a/tkimg/tests/visualtests/testFull.tcl b/tkimg/tests/visualtests/testFull.tcl
deleted file mode 100755
index d07056f..0000000
--- a/tkimg/tests/visualtests/testFull.tcl
+++ /dev/null
@@ -1,129 +0,0 @@
-package require Tk
-
-proc initPackages { args } {
- global gPkg
-
- foreach pkg $args {
- set retVal [catch {package require $pkg} gPkg(ext,$pkg,version)]
- set gPkg(ext,$pkg,avail) [expr !$retVal]
- }
-}
-
-initPackages img::bmp img::gif img::ico img::jpeg img::pcx \
- img::png img::ppm img::raw img::sgi img::sun \
- img::tga img::tiff img::xbm img::xpm img::window
-
-set retVal [catch {package require Img} version]
-if { $retVal } {
- error "Trying to load package Img: $version"
-}
-
-cd [file dirname [info script]]
-
-source [file join "utils" "testUtil.tcl"]
-source [file join "utils" "testGUI.tcl"]
-# We get the global variable ui_enable_tk from above Tcl module.
-
-source [file join "utils" "testImgs.tcl"]
-source [file join "utils" "testReadWrite.tcl"]
-
-if { $argc != 1 } {
- set testMode [expr $modeFile | $modeBin | $modeUU]
-} else {
- set testMode [lindex $argv 0]
-}
-
-PH "Image Read/Write (Full Images)"
-
-P "This test tries to store the content of a canvas window in image files"
-P "using all file formats available in the tkImg package."
-P "After writing we try to read the image back into a photo by using the"
-P "auto-detect mechanism of tkImg. If that fails, we use the \"-format\" option."
-P ""
-if { $ui_enable_tk } {
- P "Set the environment variable UI_TK to 0 before running this test,"
- P "to run this test in batch mode without displaying the images."
- P ""
-}
-
-if { $tcl_platform(platform) eq "windows" && $ui_enable_tk } {
- catch { console show }
-}
-
-ui_init "testFull.tcl: Read/Write (Full Images)" "+320+30"
-SetFileTypes
-
-drawTestCanvas $version
-
-P ""
-set sep ""
-if { $ui_enable_tk } {
- set sep "\n\t"
-}
-set count 1
-set phCanvas [getCanvasPhoto .t.c]
-foreach elem $fmtList {
- set ext [lindex $elem 0]
- set fmt [lindex $elem 1]
- set opt [lindex $elem 2]
- catch { file mkdir out }
- set fname [file join out testFull$ext]
- set msg "Image $count: $fname Format: $fmt $sep (Options: $opt)"
- P $msg
-
- PN "\t"
- writePhotoFile $phCanvas $fname "$fmt $opt" 0
- if { $testMode & $modeFile } {
- set ph [readPhotoFile1 $fname "$fmt $opt"]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.1: $fname Format: $fmt $sep (Read from file 1)"
- ui_addphoto $ph $msg
-
- set ph [readPhotoFile2 $fname "$fmt $opt" -1 -1]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.2: $fname Format: $fmt $sep (Read from file 2)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeBin } {
- set ph [readPhotoBinary1 $fname "$fmt $opt"]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.3: $fname Format: $fmt $sep (Read as binary 1)"
- ui_addphoto $ph $msg
-
- set ph [readPhotoBinary2 $fname "$fmt $opt" -1 -1]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.4: $fname Format: $fmt $sep (Read as binary 2)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeUU } {
- set str [writePhotoString $phCanvas "$fmt $opt" 0]
- if { $str eq "" } {
- set ph [createErrImg]
- } else {
- set ph [readPhotoString $str "$fmt $opt" -1 -1]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- }
- set msg "Image $count.5: $fname Format: $fmt $sep (Read as uuencoded string)"
- ui_addphoto $ph $msg
- }
-
- P ""
- incr count
-}
-
-PS
-P "End of test"
-
-P ""
-P "Package tkImg: $version"
-ui_show
diff --git a/tkimg/tests/visualtests/testSmall.tcl b/tkimg/tests/visualtests/testSmall.tcl
deleted file mode 100755
index 565e518..0000000
--- a/tkimg/tests/visualtests/testSmall.tcl
+++ /dev/null
@@ -1,137 +0,0 @@
-package require Tk
-
-proc initPackages { args } {
- global gPkg
-
- foreach pkg $args {
- set retVal [catch {package require $pkg} gPkg(ext,$pkg,version)]
- set gPkg(ext,$pkg,avail) [expr !$retVal]
- }
-}
-
-initPackages img::bmp img::gif img::ico img::jpeg img::pcx \
- img::png img::ppm img::raw img::sgi img::sun \
- img::tga img::tiff img::xbm img::xpm img::window
-
-set retVal [catch {package require Img} version]
-if { $retVal } {
- error "Trying to load package Img: $version"
-}
-
-cd [file dirname [info script]]
-
-source [file join "utils" "testUtil.tcl"]
-source [file join "utils" "testGUI.tcl"]
-# We get the global variable ui_enable_tk from above Tcl module.
-
-source [file join "utils" "testImgs.tcl"]
-source [file join "utils" "testReadWrite.tcl"]
-
-if { $argc != 1 } {
- set testMode [expr $modeFile | $modeBin | $modeUU]
-} else {
- set testMode [lindex $argv 0]
-}
-
-PH "Image Read/Write (Different sizes)"
-
-P "This test tries to store the content of a canvas window in image files"
-P "using all file formats available in the tkImg package."
-P "After writing we try to read the image back into a photo by using the"
-P "auto-detect mechanism of tkImg. If that fails, we use the \"-format\" option."
-P ""
-if { $ui_enable_tk } {
- P "Set the environment variable UI_TK to 0 before running this test,"
- P "to run this test in batch mode without displaying the images."
- P ""
-}
-
-if { $tcl_platform(platform) eq "windows" && $ui_enable_tk } {
- catch { console show }
-}
-
-ui_init "testSmall.tcl: Read/Write (Different small sizes)" "+320+30"
-SetFileTypes
-
-P ""
-set sep ""
-if { $ui_enable_tk } {
- set sep "\n\t"
-}
-set count 1
-foreach elem $fmtList {
- set ext [lindex $elem 0]
- set fmt [lindex $elem 1]
- set opt [lindex $elem 2]
- catch { file mkdir out }
- set prefix [file join out testSmall]
-
- P "Format $fmt :"
- for { set w 1 } { $w <=4 } { incr w } {
- for { set h 1 } { $h <=4 } { incr h } {
- P "Creating a photo of size: $w x $h"
- set ph [image create photo -width $w -height $h]
- set imgData {}
- for { set y 1 } { $y <= $h } { incr y } {
- set imgLine {}
- for { set x 1 } { $x <= $w } { incr x } {
- set col 0
- if { $x % 2 == 1 && $y % 2 == 1 ||
- $x % 2 == 0 && $y % 2 == 0 } {
- set col 255
- }
- set val [format "#%02x%02x%02x" $col $col $col]
- lappend imgLine $val
- if { $fmt eq "xbm" } {
- $ph put -to [expr $x-1] [expr $y-1] $val
- $ph transparency set [expr $x-1] [expr $y-1] [expr $col]
- }
- }
- lappend imgData $imgLine
- }
- set zoom 8
- if { $fmt ne "xbm" } {
- $ph put $imgData
- }
- set fname [format "%s_w%d_h%d%s" $prefix $w $h $ext]
- # Write the image to a file and read it back again.
- writePhotoFile $ph $fname "$fmt $opt" 1
- set ph [readPhotoFile1 $fname "$fmt $opt"]
- if { $ph eq "" } {
- set ph [createErrImg]
- set zoom 1
- }
- # Write the image to a uuencoded string and read it back again.
- set str [writePhotoString $ph "$fmt $opt" 1]
- if { $str eq "" } {
- set ph [createErrImg]
- set zoom 1
- } else {
- set ph [readPhotoString $str "$fmt $opt" -1 -1]
- if { $ph eq "" } {
- set ph [createErrImg]
- set zoom 1
- }
- }
- # Write the image to a uuencoded string and read it back again.
- set zw [expr [image width $ph] * $zoom]
- set zh [expr [image height $ph] * $zoom]
- set zoomPh [image create photo -width $zw -height $zh]
- $zoomPh copy $ph -zoom $zoom $zoom
- image delete $ph
- set msg "Image: $fname Format: $fmt $sep (Width: $w Height: $h)"
- ui_addphoto $zoomPh $msg
- P ""
- }
- }
-
- P ""
- incr count
-}
-
-PS
-P "End of test"
-
-P ""
-P "Package tkImg: $version"
-ui_show
diff --git a/tkimg/tests/visualtests/testTo.tcl b/tkimg/tests/visualtests/testTo.tcl
deleted file mode 100755
index 2ac23f2..0000000
--- a/tkimg/tests/visualtests/testTo.tcl
+++ /dev/null
@@ -1,117 +0,0 @@
-package require Tk
-
-proc initPackages { args } {
- global gPkg
-
- foreach pkg $args {
- set retVal [catch {package require $pkg} gPkg(ext,$pkg,version)]
- set gPkg(ext,$pkg,avail) [expr !$retVal]
- }
-}
-
-initPackages img::bmp img::gif img::ico img::jpeg img::pcx \
- img::png img::ppm img::raw img::sgi img::sun \
- img::tga img::tiff img::xbm img::xpm img::window
-
-set retVal [catch {package require Img} version]
-if { $retVal } {
- error "Trying to load package tkImg: $version"
-}
-
-cd [file dirname [info script]]
-
-source [file join "utils" "testUtil.tcl"]
-source [file join "utils" "testGUI.tcl"]
-# We get the global variable ui_enable_tk from above Tcl module.
-
-source [file join "utils" "testImgs.tcl"]
-source [file join "utils" "testReadWrite.tcl"]
-
-if { $argc != 1 } {
- set testMode [expr $modeFile | $modeBin | $modeUU]
-} else {
- set testMode [lindex $argv 0]
-}
-
-PH "Image Read/Write (Using -to option)"
-
-P "This test tries to store the content of a canvas window in image files"
-P "using all file formats available in the tkImg package."
-P "After writing we try to read the image back into a photo by using the"
-P "auto-detect mechanism of tkImg. If that fails, we use the \"-format\" option."
-P ""
-if { $ui_enable_tk } {
- P "Set the environment variable UI_TK to 0 before running this test,"
- P "to run this test in batch mode without displaying the images."
- P ""
-}
-
-if { $tcl_platform(platform) eq "windows" && $ui_enable_tk } {
- catch { console show }
-}
-
-ui_init "testTo.tcl: Read/Write (Using -to option)" "+320+30"
-SetFileTypes
-
-drawTestCanvas $version
-
-P ""
-set sep ""
-if { $ui_enable_tk } {
- set sep "\n\t"
-}
-set count 1
-set phCanvas [getCanvasPhoto .t.c]
-foreach elem $fmtList {
- set ext [lindex $elem 0]
- set fmt [lindex $elem 1]
- set opt [lindex $elem 2]
- catch { file mkdir out }
- set fname [file join out testTo$ext]
- set msg "Image $count: $fname Format: $fmt $sep (Options: $opt)"
- P $msg
-
- PN "\t"
- writePhotoFile $phCanvas $fname "$fmt $opt" 0
- if { $testMode & $modeFile } {
- set ph [readPhotoFile2 $fname "fmt $opt" 200 100 \
- -from 140 50 200 110 -to 10 30]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.1: $fname Format: $fmt $sep (Read from file 2)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeBin } {
- set str [writePhotoFile $phCanvas $fname "$fmt $opt" 0 -from 140 50 200 110]
- set ph [readPhotoBinary2 $fname "$fmt $opt" 200 100 -to 10 30]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- set msg "Image $count.2: $fname Format: $fmt $sep (Read as binary 2)"
- ui_addphoto $ph $msg
- }
- if { $testMode & $modeUU } {
- set str [writePhotoString $phCanvas "$fmt $opt" 0 -from 140 50 200 110]
- if { $str eq "" } {
- set ph [createErrImg]
- } else {
- set ph [readPhotoString $str "$fmt $opt" 200 100 -to 10 30]
- if { $ph eq "" } {
- set ph [createErrImg]
- }
- }
- set msg "Image $count.3: $fname Format: $fmt $sep (Read as uuencoded string)"
- ui_addphoto $ph $msg
- }
-
- P ""
- incr count
-}
-
-PS
-P "End of test"
-
-P ""
-P "Package tkimg: $version"
-ui_show
diff --git a/tkimg/tests/visualtests/utils/testGUI.tcl b/tkimg/tests/visualtests/utils/testGUI.tcl
deleted file mode 100755
index 4ddc825..0000000
--- a/tkimg/tests/visualtests/utils/testGUI.tcl
+++ /dev/null
@@ -1,279 +0,0 @@
-# Set this variable to 0, if Tk should not be used for testing.
-if { [info exists env(UI_TK)] && $env(UI_TK) == 0 } {
- set ui_enable_tk 0
-} else {
- set ui_enable_tk 1
-}
-
-proc bmpFirst {} {
- return {
- #define first_width 16
- #define first_height 16
- static unsigned char first_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x04, 0x1c, 0x06,
- 0x1c, 0x07, 0x9c, 0x3f, 0xdc, 0x3f, 0x9c, 0x3f, 0x1c, 0x07, 0x1c, 0x06,
- 0x1c, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc bmpLast {} {
- return {
- #define last_width 16
- #define last_height 16
- static unsigned char last_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x38, 0x60, 0x38,
- 0xe0, 0x38, 0xfc, 0x39, 0xfc, 0x3b, 0xfc, 0x39, 0xe0, 0x38, 0x60, 0x38,
- 0x20, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc bmpLeft {} {
- return {
- #define left_width 16
- #define left_height 16
- static unsigned char left_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x80, 0x01,
- 0xc0, 0x01, 0xe0, 0x0f, 0xf0, 0x0f, 0xe0, 0x0f, 0xc0, 0x01, 0x80, 0x01,
- 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc bmpRight {} {
- return {
- #define right_width 16
- #define right_height 16
- static unsigned char right_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x80, 0x01,
- 0x80, 0x03, 0xf0, 0x07, 0xf0, 0x0f, 0xf0, 0x07, 0x80, 0x03, 0x80, 0x01,
- 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc bmpPlay {} {
- return {
- #define play_width 16
- #define play_height 16
- static unsigned char play_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x00, 0xe0, 0x00,
- 0xe0, 0x01, 0xe0, 0x03, 0xe0, 0x07, 0xe0, 0x03, 0xe0, 0x01, 0xe0, 0x00,
- 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc bmpHalt {} {
- return {
- #define halt_width 16
- #define halt_height 16
- static unsigned char halt_bits[] = {
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x18, 0x30, 0x0c,
- 0x60, 0x06, 0xc0, 0x03, 0x80, 0x01, 0xc0, 0x03, 0x60, 0x06, 0x30, 0x0c,
- 0x18, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- }
-}
-
-proc ui_initToolhelp { w { bgColor yellow } { fgColor black } } {
- global ui_helpWidget
-
- # Create Toolbar help window with a simple label in it.
- if { [winfo exists $w] } {
- destroy $w
- }
- toplevel $w
- set ui_helpWidget $w
- label $w.l -text "??" -bg $bgColor -fg $fgColor -relief ridge
- pack $w.l
- wm overrideredirect $w true
- if {[string equal [tk windowingsystem] aqua]} {
- ::tk::unsupported::MacWindowStyle style $w help none
- }
- wm geometry $w [format "+%d+%d" -100 -100]
-}
-
-proc ui_showToolhelp { x y str } {
- global ui_helpWidget
-
- $ui_helpWidget.l configure -text $str
- raise $ui_helpWidget
- wm geometry $ui_helpWidget [format "+%d+%d" $x [expr $y +10]]
-}
-
-proc ui_hideToolhelp {} {
- global ui_helpWidget
-
- wm geometry $ui_helpWidget [format "+%d+%d" -100 -100]
-}
-
-proc ui_button { btnName bmpData cmd helpStr } {
- set imgData [image create bitmap -data $bmpData]
- eval button $btnName -image $imgData -command [list $cmd] -relief flat
- bind $btnName <Enter> "ui_showToolhelp %X %Y [list $helpStr]"
- bind $btnName <Leave> { ui_hideToolhelp }
- bind $btnName <Button> { ui_hideToolhelp }
-}
-
-proc ui_init {title {winPos "+0+0"} } {
- global ui_enable_tk ui_curImgNo ui_noImgs ui_top
-
- catch {wm withdraw .}
- if { $ui_enable_tk } {
- set ui_top .testWindow
- ui_initToolhelp .testToolhelp
- toplevel $ui_top
- wm title $ui_top $title
- wm geometry $ui_top $winPos
- frame $ui_top.imgfr -bg lightgrey
- frame $ui_top.menufr -relief raised -bg lightgrey
-
- label $ui_top.imgfr.img -bg white
- text $ui_top.imgfr.txt -height 2 -width 60 -state disabled
- pack $ui_top.imgfr.txt -side top
- pack $ui_top.imgfr.img -side top
-
- ui_button $ui_top.menufr.quit [bmpHalt] ui_exit "Quit test (Esc)"
- pack $ui_top.menufr.quit -in $ui_top.menufr -side left
- pack $ui_top.menufr $ui_top.imgfr -side top -pady 2 -anchor w
- bind $ui_top <Key-Escape> ui_exit
- wm protocol $ui_top WM_DELETE_WINDOW ui_exit
-
- P "Visual: [winfo screenvisual $ui_top]"
- P "Depth: [winfo depth $ui_top]"
- }
- set ui_curImgNo 0
- set ui_noImgs 0
-}
-
-proc showimg { imgNo } {
- global ui_enable_tk ui_strings ui_top ui_photos
-
- if { $ui_enable_tk } {
- $ui_top.imgfr.img config -image $ui_photos($imgNo)
-
- $ui_top.imgfr.txt configure -state normal
- $ui_top.imgfr.txt delete 1.0 end
- $ui_top.imgfr.txt insert end $ui_strings($imgNo)
- $ui_top.imgfr.txt configure -state disabled
- update
- }
-}
-
-proc ui_addimg { poImg str { chanMap {} } } {
- global ui_enable_tk ui_curImgNo ui_noImgs ui_strings ui_images ui_photos
-
- set ui_strings($ui_curImgNo) $str
- set ui_images($ui_curImgNo) $poImg
- if { $ui_enable_tk } {
- set ui_photos($ui_curImgNo) [image create photo]
- $poImg img_photo $ui_photos($ui_curImgNo) $chanMap
- showimg $ui_curImgNo
- }
- incr ui_curImgNo
- set ui_noImgs $ui_curImgNo
-}
-
-proc ui_addphoto { phImg str } {
- global ui_enable_tk ui_curImgNo ui_noImgs ui_strings ui_images ui_photos
-
- set ui_strings($ui_curImgNo) $str
- set ui_images($ui_curImgNo) "none"
- if { $ui_enable_tk } {
- set ui_photos($ui_curImgNo) $phImg
- showimg $ui_curImgNo
- }
- incr ui_curImgNo
- set ui_noImgs $ui_curImgNo
-}
-
-proc show_first {} {
- global ui_curImgNo ui_noImgs
-
- set ui_curImgNo 0
- showimg $ui_curImgNo
-}
-
-proc show_last {} {
- global ui_curImgNo ui_noImgs
-
- set ui_curImgNo [expr ($ui_noImgs -1)]
- showimg $ui_curImgNo
-}
-
-proc show_play {} {
- global ui_curImgNo ui_noImgs
-
- while { $ui_curImgNo < [expr ($ui_noImgs -1)] } {
- incr ui_curImgNo
- showimg $ui_curImgNo
- }
-}
-
-proc show_prev {} {
- global ui_curImgNo
-
- if { $ui_curImgNo > 0 } {
- incr ui_curImgNo -1
- showimg $ui_curImgNo
- }
-}
-
-proc show_next {} {
- global ui_curImgNo ui_noImgs
-
- if { $ui_curImgNo < [expr ($ui_noImgs -1)] } {
- incr ui_curImgNo 1
- showimg $ui_curImgNo
- }
-}
-
-proc ui_show {} {
- global ui_enable_tk ui_curImgNo ui_noImgs ui_strings ui_top
-
- PrintMachineInfo
-
- set ui_noImgs $ui_curImgNo
- incr ui_curImgNo -1
- if { $ui_enable_tk } {
- if { $ui_noImgs > 0 } {
- set fr $ui_top.menufr
- ui_button $fr.first [bmpFirst] show_first "Show first image"
- ui_button $fr.prev [bmpLeft] show_prev "Show previous image (<-)"
- ui_button $fr.next [bmpRight] show_next "Show next image (->)"
- ui_button $fr.last [bmpLast] show_last "Show last image"
- ui_button $fr.play [bmpPlay] show_play "Play image sequence (p)"
- pack $fr.first $fr.prev $fr.next $fr.last \
- -in $fr -side left -padx 0
- pack $fr.play -in $fr -side left -padx 0
-
- bind $ui_top <Key-Right> show_next
- bind $ui_top <Key-Left> show_prev
- bind $ui_top <Key-p> show_play
- }
- } else {
- ui_exit
- }
-}
-
-proc ui_delete {} {
- global ui_enable_tk ui_noImgs ui_strings ui_images ui_photos ui_top
-
- for { set i 0 } { $i < $ui_noImgs } { incr i } {
- if { $ui_enable_tk } {
- image delete $ui_photos($i)
- }
- if { [info commands $ui_images($i)] != {} } {
- deleteimg $ui_images($i)
- }
- set ui_strings($i) {}
- }
- if { $ui_enable_tk } {
- destroy $ui_top.imgfr
- destroy $ui_top.menufr
- }
-}
-
-proc ui_exit {} {
- ui_delete
- if { [info commands memcheck] != {} } {
- memcheck
- }
- exit
-}
diff --git a/tkimg/tests/visualtests/utils/testImgs.tcl b/tkimg/tests/visualtests/utils/testImgs.tcl
deleted file mode 100755
index 1144365..0000000
--- a/tkimg/tests/visualtests/utils/testImgs.tcl
+++ /dev/null
@@ -1,147 +0,0 @@
-proc unsupportedImg {} {
-return {
-R0lGODlhAAEAAeMAAP////8AAP9VVf+qqv85Of9ycv/Hx/+Ojv8dHf/j4///
-/////////////////////ywAAAAAAAEAAQAE/hDISau9OOvNu/9gKI5kaZ5o
-qq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6n9CodEqtWq/YrHbL7Xq/
-4LB4TC6bz+i0es1uu9/wuHxOr9vv+Lx+z+/7/4CBgoOEhYaHiImKi4yNjo+Q
-kZKTlJWWl5iZmpucnZ6foKGio6SlpqeoqaqrrK2ur7CxsrO0tba3uLm6u7y9
-vr/AwcLDxMXGx8jJysvMzc7P0NHS09TV1tfY2drb3N3e3+Dh4uPk5ebn6Onq
-6+zt7u/w8fLz9PX291sBAR36/fsU/vqh0GeK4A2DABBqCPhvAsOGJRSKkoiD
-YgaCFi2O0OiJIw2P/hUwQnQ4MmJJUCBlpCQpgaLGhxcf+mvBsGVIgTclzmy5
-M2fDgBxgYgBKEmdRmScBEl3YcyXPpzcvID051Sm/qT4t9OQpUujRhDJjhtW6
-cyxXpGK9kq1pFaHOkkaLDk2qIi5XqUkzbgULd6/duzlj8gWIF8Tfv4OP0iXL
-UmnUuVQXD8wbeS5eum8xj+SImK/kxlcFP177QaFpiJ2hjn7BubDr1YwdiwZs
-+XLpz6BfJybt4bRs1bNzu0it+7dx3SDdftZrGDfYDb6DQ9/8E/XyvjPMFhcO
-HLlk5UEr3+5dNa7HttRzp3Tp/ATa2PCPx09ePfx2puTLW8dPPnZ0/vKx/vAS
-e7XBNt939U13n3QMKthggYQ9J1eDVm2kWXwBppZZcMQN2Fx+Hz54n0gGTlji
-Cp0ROOKA1FGWHmQQ2tdfiLyFdlmLfbk41GTsiffVWhv61CKQNWI4XV5ZFWfX
-Ukwx6dmNNaWlFgldRQkkViy9F5WWVzrpmXZQWqkUlmOytZeQPUJ2pprE0ejl
-lWftF+dsb6LpIpdS0lenYv/sWUiFEuIT6IyCAgooOnjaeag4iZbpp6CQRirp
-pJRWaumlmGaq6aacdurpp6CGKuqopJZq6qmopqrqqqy26uqrsMYq66y01mrr
-rbjmquuuvPbq66/ABivssMQWa+yxyCar7LLMQzbr7LPQRivttNRWa+212Gar
-7bbcduvtt+CGK+645JZr7rnopqvuuuy26+678MYr77z01mvvvfjmq+++/Pbr
-77/hRAAAOw==}
-}
-
-proc errorImg {} {
-return {
-R0lGODlhAAEAAeMAAP////8AAP9VVf+qqv85Of9ycv/Hx/+Ojv8dHf/j4///
-/////////////////////ywAAAAAAAEAAQAE/hDISau9OOvNu/9gKI5kaZ5o
-qq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6n9CodEqtWq/YrHbL7Xq/
-4LB4TC6bz+i0es1uu9/wuHxOr9vv+Lx+z+/7/4CBgoOEhYaHiImKi4yNjo+Q
-kZKTlJWWl5iZmpucnZ6foKGio6SlpqeoqaqrrK2ur7CxsrO0tba3uLm6u7y9
-vr/AwcLDxMXGx8jJysvMzc7P0NHS09TV1tfY2drb3N3e3+Dh4uPk5ebn6Onq
-6+zt7u/w8WwD9PImCQUEAfv8AQQFBuz0G0iwoMF+Ai4MOMiQHwIBAEM0nChA
-wIAVBvRNRHAAxMKJ/gcfRkQCsmTBhBY+mgwZ0MPKhh3vCXiJoCUHlS8J1jyS
-cyXKCjh7Dvy5QahBBAlIGEAwkMCBAUkB0Js58OJNoyeN0Ns6QGMArmDDgi3A
-j+iEBGC9igV7QADTfgU6jOVXYC1XAV73IRgRtEDUCwkODOWAlqtau/TavqW7
-hGoAEirNYnD8YWk/mx5UWiXsOEBcj/12Es77+QNlD5b5YTZyWkTkDq09OCYQ
-QjNofn8JLxaQm0PnzbD5hZitJDYIA2WD7wuRYPHqDbZBOC7NwSttEY6RmhYO
-ornqJMZBJPfNHYTgfTEz8wPeIQG/6xzOB9A+wqvkDOHj80vPuryI8Rvk/scB
-gHKth51/GizGXneXyYagS/vcJ4SAHRCI34MdeHXbVyLIt6AF8sFHQogOLieC
-hkhQOGCEyj12oInq7fMhdAZu4BwKi/U2GYbkwdifj8Ox2KOLQQJJo4yu1ZgB
-cvuIWIJ81F1oZIvg8ThBWxVZQJWEFaiYAYoxchiChxuQhSQK7ulF5YlWAuFl
-eAbQ89wFXgJm4ZFiggDml20WGYCOWvZpp5BHvClogIdWIB9/V535QZr+rBip
-CmQiOuUGi1Z56QR1WkqkB5D+ueGMfKKHZ5QmMBkAl5wmelY/gE7YZ6ca0CrB
-AIuhiiepFiTg1V67snBnoJsqlGtx6yG25wi0/mYUWqwZRLcBPlVxYGYAc5bw
-FrC1JuqsQ9AG0VlJJziG2AAV6RQuBirVZVcBbhHEa6vFMiuouYilOxB9mq5U
-rlH8btjTvPR+mkKd464UcIo5/ZsTRyUEZZJf29X7osF09gRxE4Za7ClIBFh0
-gsQMPXTAusRi7LDKXa4UMsFEdMxyxSp3NSxfSk5gwLUL09wCwhjaTCgUMq8s
-5aopSAsUuCNcC/MHDg15NKsM12vrjsWai4LSSw/9Adcn3EyBiloTPaurWM8s
-wbYoB5uB0yKoSvWGurZcL9tme3xwn3KPnPMFeEukJqV/Z1xv309cXYEBFc0N
-QJ1wR1z44mKXKmoK/l6hDPnkVavt6Zo26tU2u5xTEPkHmaL5HugJiu6E4mMf
-2mm7kjuagXfzMRc1CtcymnaB+9T9o+fdekyrV9k2mqcGUIbgle+648a6Bshz
-jLbdxD+eKKROfl16BZkft3sJ1wqPPairMwF7wdNr0DvOtmugavcbeGX+Bqpe
-LrUH7zd2fezGQ1vgRvWB03Ugf0+rAO4847MPDLBzJejU1ZpXm+8pcHz860cC
-JbBAbrWPeYxBlt4Mlz3FVY+AqAuhAzX4qMX0rHjZo8AJIUgCCV5vfhWMHwdy
-1J3FMDA+Ptyg9kYoARwOoXGN2w0Sl8jEJS7mAoxDohKRmDwJWIeJXULi/hWR
-CD0KyOchS6ziAudzMgwcIC/Lw0AUk1iWMNbvPVjkAVZAohCTzCt/BKmASebm
-w2ppIAEJC9lT0JWwF6bEjvhjSA/mOJE6loRgaOyHHksyN/nIqwMH6GND7kcB
-khkEkgfpQRNHScpS3meNphRAFYtIyiymUgBddCUTV+lFTe6LYpV5ZUVoicol
-LsMAWGrjAWhpj2Ia85jITKYyl8nMZjrzmdCMpjSnSc1qWvOa2MymNrfJzW56
-85vgDKc4x0nOcprznOhMpzrXyc52uvOd8IynPOdJz3ra8574zKc+98nPfvrz
-nwANqEAHStCCGvSgCE2oQhfK0IY69KEQjahEJidK0Ypa9KIYzahGN8rRjnr0
-oyANqUhHStKSmvSkKE2pSlfKgggAADs=}
-}
-
-proc pwrdLogo {} {
-return {
-R0lGODlhggDIAPUAAP//////zP//mf//AP/MzP/Mmf/MAP+Zmf+ZZv+ZAMz/
-/8zM/8zMzMyZzMyZmcyZZsyZAMxmZsxmM8xmAMwzM8wzAJnM/5nMzJmZzJmZ
-mZlmmZlmZpkzZpkzM5kzAGaZzGZmzGZmmWZmZmYzZmYzMzNmzDNmmTMzmTMz
-ZgAzmQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH+BSAtZGwtACH5BAEKAAIALAAA
-AACCAMgAAAb+QIFwSCwaj8ikcslsOp/QqFT6qEYkWElly+1WJNOweKysVrNa
-r3rN9kbIcHhkfqXY2/i8Hg+O+417gYKDg29/f4SJbBOKexRiCJEPaGlbfVCN
-axMJCXkGA6CMmXkRZpSjX1KoXJ8Dopqgsa6rtIKGmKutnW2tsga1wHkPqqgJ
-sXi9sQa7wc1ew1GrscxqE76vztlcU5WKELHYXrLU2uXco62/bMag5OXa55mt
-4V3K7/db8Y3H66Dq+O/0KfLXBhzAewITheo3wN3BYJegPBgFqmDFh+UiPpmY
-acA/L98GQKgV4QABAgW6AdTohOM+hxVa0XpAAIDNmwcwQovicuD+yGrtVtW8
-SRRAgYc7JVL86YUdKgkBikqNcBBBGHT0KhDMJEEqAAwfPmCoGeCgGKxAZzVC
-UJRBiRRw4aJ4AKCnuauZEtCTuZboAhBxA6c4sYEAwLOZINALqigCUQyCI6fA
-QAEf4kYTwllTS6jrTcCSI2+wjBeY00SebZoILfmEB4Sla336GIhCVAALVrOO
-3OEeyyfNGA8aymC3ZBL4fjsJtjkrngM2ixsXPGLlZVqnBXleMF0wioNJowGb
-Pcg2AAW6u8N9DTA8rlrC9wxNr763WTEqMzW3ZfOD+rjV1WKMAc5VMEZ+mC0U
-SFQX/AfXCYJsMptz6bBxYC3f0PbceQ7+wmWfHhOEZFBaDa2RAX4CelSbTaD9
-F6AgInLmRS9rnCCZEwgq8glMakAnnYMDxcKUF5sNUGNkJuAom4xteEZfdx8O
-IkuB/HghGQgtLVlgF9BB5uCLhPRCZYlqSPZBlrRcpIdqHcqzFRufZHUjmtIY
-qQddXv6H3D7xqaGiGh3M2YRdHWm4Rk1PGvddkzluMSIsWQUa2UbwGepFV9w5
-GOUWERQwVFmLVLkGBEN2IWlgJbyHikh6QOefi13Q5FWOIVm6BY8jRHYmcGmW
-eigAbW7RQQgYFLtAUQgwtCUeuQomnjTLdvVjdyiMYGNkJ3yggE05rcGXIs0G
-9iwqBJICwKv+HbKWgU2GrdHnIChMqio6rQJwbbqhedYukQoqEm9gSc6blx4E
-ZIqvZCjou8aAo9wLF5YCY6ZHAHkeLBgJdAGwbxef+DqIvBFrA0CLFgfWAVsA
-dNvFZqiAzGtyACRacgUFcKuGMTzucWpcxODjWMmRfTcUoXGOsjNcPd8TgcFA
-w4XcTSpZY2sgR6c67jsHVNx0B6ndzGQiJAi2KxSNBpN104FVAJ3GahgwdSDh
-Ii1F2cAcgG7TQttklzXL7hF3CglpcwDJQJNAwU1qQPB2IP/yPDdAB8h8sAeO
-GdV233s0nkLAUdBdCwKSpwvhUFEvzjiqgWcTQegdVsfuzZjv4ez+FFT5zDpc
-t3uYMaEeNzK7FLX7drvDu1VA1j2/RxH8PbcTHlrCNi3vzNFhSF/O7XezNgJd
-G2ezM+fKH6S5d5NBWZPnqOw8dtLv/A1gByVkn2/K+ITteGzth0aCBxg4H/QB
-oLqH/eSGv3IMUDAe6MACiCeZEQAAfauI2xgOcrQHVcCB3XGAyu7ROPCxDxjJ
-6oIHGliBECigO917R+MgVsBaHGCDFThOBTDQIONsAIK0aNz6PliLmvVEMr1h
-QA21h5EY3q+FtBgaF8aXggp04Fy7WRRGxDXBbAwFAA0YAQnG950nys9kRTQi
-AZEolKJ8gHjV2UDMWLMnjJzKgzxMok3+FFAsEBCuN+uSnBTdGJcdxrGMUAxN
-bxoArNCogQI4zMSp4KCNobzFkBU4lv62YJKTPLB+RyQjKobCQAtWwCZRHMGx
-bAKQATLSiqB8nhNxM50TQCeF2fjXCU7pjJowjToVcMwQtVcTGGrjXywMQwgE
-x8pJ0mWXoXHgJTGZAj9GYZjZ8BEbK+CAr0xHAzZJZCbsBwdoOqNLrHkNIb8o
-mGoC4CDcJIM3mwHO0LymJuQMDAPYVsoxhsEE2nCMA1izhXnG80FR8aU2wgZH
-KYggnwDYJyRt8kjWnEBvFGwmHA6aja4cIDQQ+uQad6NMbSoScBPVxuEOwMQU
-dJFNu1HjMvH+Eag4gCkYhytASb/jJONg85wRdWk5AkCAAwLoCyhlTeUwMks4
-vDQYPPWp0yqg0ts5BpblCKYYjgoMT1UwBchR6XSeihEMxKGN3wTAVZGTMUVx
-9SF+2FQw6CLGwJA1ldrrClThEQe1AqMrEmAicsxpHMPR8z5wsGst8MpEPMJV
-kMabazbS+g4ARMB9hi0ka3pTE4wwthwEOABkK7AuyUISOpaFwwcE60ICVDCy
-UdyCp0JLBhCwJ5+m5Q1nDxu0LQTgKA+xChlM8NqKnlO2nd0NcroSwqrAwTX3
-eCBwaXuxCrAVI7odQwp6a8W8Cga1kzUebnMLh+neIxLjw64huxL+RvdIwbvv
-kEAB/oac4PKTANZLDhn8A5CeNte9xylJGFMxBvriowBHay9z49IBQh1EOU9Y
-TXskcN8Bm7QyXDBwRnbbxOQoNC7IuSliI4xTtEq3wvg4gMO+E4KgxiWjEnjA
-bYpIBriAR3MkNrHTKLA2xLE2DCY9cAgC852mRqYLCBgKi6W7x3uIgMdMlXGA
-PLDFh3YYsFPwT5HfcbQLKjluD1XsYsXwlimXo8pPDKRD/wplKXQ5I8WtwAjT
-1oFt/XMw9LvxeXNcDo1VAoEKFHNoSizhu+CYzo3klgQ6QJ/eHOvNJfYoKj4M
-Vmdk7DNurYAFAIDMyFQzjIxObnSehBz+DFDaOCfBtBiWijUANDQw1fH0tCLj
-QIHCZgqgabQzuqI1uVRAw6xRY3xfbWZSl5qBENIqa55bRPM2AcMAoZhkKsAB
-m3TSpKEOI4KXQOD2mPrHYZacrvc7bSVUGyAFWOB1I7lRSwewiN1Owrfru2rk
-wLOBAeizb/6cAtI6gwIEmFZ1qvnFCJy7iI+QArrsfW8C5Ok7xwwaARQNDFiv
-+yAUYECegLrqFGzA1R6OQnoIrg0auvhwJ+QxxjMOhbTtt4Rn7A1tOX6YObv4
-5BVAgQmqg6gTw9wLUzA5zFHwnZq1SNYnz3lcbi4stQXSy0F3OYiJ7piRJx0K
-dyM6F+QqdTX+SCE9GX2HpwgQgLIB4N9Vv3pckO6MbOKhslXvgtLJ3gyztwE6
-DPfzE5AMELezgS67hvna+YAAeQvC7msgbtojHAW6s4HqqwD8GuI8+Fs04W5s
-RzwqFK+GaDceCqcGuiXWNoc2lOQA8qa8F0A7+FxCgT6a/wJ0AtB5NUjgJBJA
-5MLZIPpYrbTqjmdCc5tE5i5IXvJeqP3U61L6gDth94fvPRdqpjLP0P72tN9u
-1Y1/7EjzHqoQjXCOhM8Frhe/5NZPPvaJvwfub4Etcb/3E7KXeqCO3+9cMD9Q
-4S9nJdyRD8rfQk3sEvvFQ5/2WjZkTfAk9gZ8tid9xvN86IN2aff+BMRTgF/n
-XNZTM5WQEgq4B3A3eHM3bmfHU2kWKyfxQghyAAVQgiWoB11Bf2XmbRxYep+k
-gi1XfWDkgsYDg6Qhg0NHgxXQdxr4eD+mgynWg0xwai8HhEK4BImigzQYXSwo
-GErogsZWBMvmDAnUASRwhTzXOFm4hVp0hV5IAh0QhmIYhvsVhUQwhYkghlc4
-Ajz3bGhjHCewhVnYhV8IhmMYhtS1BmY4BLXFBmI4AoDIc284iIQIF1ZDb2PX
-AYEoiIXYiI7YR2LgP484iZQoUWFAhJWYiY7oTMeniZ74iJyIg584imgTirpH
-iqjYNB+WiqyIL6vYirCoHpEIhyZQi7v+YQJhETrpgS4m0Em1aItI8ous8Ysy
-cwLC2B2zuBsfcBMVBxfLeBO1tjnWZAIjkwIlUI2C4WSfFhmeZhPRSI1zZCY3
-kRvTIQZu6Iym5mmJQo0LUAImME+YmAILwB3L2CCe1hrYKBmedgLzJBnUGI3o
-aEfFtBujZhzLGD/l1kflZk3cCCzzBCwLUGlw1j/xeI8X4FlxQY0XAALxeJDN
-lJCConSh8YwDGRgXGRgA0IzXuIyetoz+81AKsADR2I16lpE2IZPi+BYgkI+h
-UZDKeC7x+JGg8Y+hMUopcBMYxZOC4WkxGRpEOZLXpo7G4ZOs4ZFO2R8lsC1B
-6WkNcpESCWfDH+CO+jgyDCkYGimWunIuy9iMyQN102GVobGTkBaXUHSNkqiN
-zWiRICmNSJmW0XGO9rR+3ZE7J1ACJQCYZ+SMt3iM2agbveiPjGmWwGgcBTWA
-sXiZg3lPmLmZw4iInPmZuOOZoMmZlXkIogUCuTOaUmWarEkEH4CagAmLptia
-tDkEr5mamjibtbmbRZCLuEmIusmbwokEr3mYlBicw5mcTMCRg6iczmmatxmb
-LvOc1AmdqDmV1ZmdwhmW6aGd3vmdSxAEADs=}
-}
diff --git a/tkimg/tests/visualtests/utils/testReadWrite.tcl b/tkimg/tests/visualtests/utils/testReadWrite.tcl
deleted file mode 100755
index df8422b..0000000
--- a/tkimg/tests/visualtests/utils/testReadWrite.tcl
+++ /dev/null
@@ -1,287 +0,0 @@
-# Some constants
-set modeFile 0x01
-set modeBin 0x02
-set modeUU 0x04
-set modeFileStr "File IO"
-set modeBinStr "Binary IO"
-set modeUUStr "UUencoded IO"
-
-# The list of file formats to be tested.
-# First entry specifies the file extension used to create the image filenames.
-# Second entry specifies the image format name as used by the Img extension.
-# Third entry specifies optional format options.
-
-set fmtList [list \
- [list ".bmp" "bmp" ""] \
- [list ".gif" "gif" ""] \
- [list ".ico" "ico" ""] \
- [list ".jpg" "jpeg" ""] \
- [list ".pcx" "pcx" ""] \
- [list ".png" "png" ""] \
- [list ".ppm" "ppm" ""] \
- [list ".raw" "raw" "-useheader true -nomap true -nchan 3"] \
- [list ".rgb" "sgi" ""] \
- [list ".ras" "sun" ""] \
- [list ".tga" "tga" ""] \
- [list ".tif" "tiff" ""] \
- [list ".xbm" "xbm" ""] \
- [list ".xpm" "xpm" ""] ]
-
-
-# Load image data directly from a file into a photo image.
-# Uses commands: image create photo -file "fileName"
-proc readPhotoFile1 { name fmt } {
- PN "File read 1: "
-
- set sTime [clock clicks -milliseconds]
- set retVal [catch {image create photo -file $name} ph]
- if { $retVal != 0 } {
- P "\n\tWarning: Cannot detect image file format. Trying again with -format."
- P "\tError message: $ph"
- set retVal [catch {image create photo -file $name -format $fmt} ph]
- if { $retVal != 0 } {
- P "\tERROR: Cannot read image file with format option $fmt"
- P "\tError message: $ph"
- return ""
- }
- }
- set eTime [clock clicks -milliseconds]
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-# Load image data directly from a file into a photo image.
-# Uses commands: set ph [image create photo] ; $ph read "fileName"
-# args maybe "-from ..." and/or "-to ..." option.
-proc readPhotoFile2 { name fmt width height args } {
- PN "File read 2: "
-
- set sTime [clock clicks -milliseconds]
- if { $width < 0 && $height < 0 } {
- set ph [image create photo]
- } else {
- set ph [image create photo -width $width -height $height]
- }
- set retVal [catch {eval {$ph read $name} $args} errMsg]
- if { $retVal != 0 } {
- P "\n\tWarning: Cannot detect image file format. Trying again with -format."
- P "\tError message: $errMsg"
- set retVal [catch {eval {$ph read $name -format $fmt} $args} errMsg]
- if { $retVal != 0 } {
- P "\tERROR: Cannot read image file with format option $fmt"
- P "\tError message: $errMsg"
- return ""
- }
- }
- set eTime [clock clicks -milliseconds]
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-# Load binary image data from a variable into a photo image.
-# Uses commands: image create photo -data $imgData
-proc readPhotoBinary1 { name fmt args } {
- PN "Binary read 1: "
-
- set sTime [clock clicks -milliseconds]
- set retVal [catch {open $name r} fp]
- if { $retVal != 0 } {
- P "\n\tERROR: Cannot open image file $name for binary reading."
- return ""
- }
- fconfigure $fp -translation binary
- set imgData [read $fp [file size $name]]
- close $fp
-
- set retVal [catch {image create photo -data $imgData} ph]
- if { $retVal != 0 } {
- P "\n\tWarning: Cannot detect image file format. Trying again with -format."
- P "\tError message: $ph"
- set retVal [catch {image create photo -data $imgData -format $fmt} ph]
- if { $retVal != 0 } {
- P "\tERROR: Cannot create photo from binary image data."
- P "\tError message: $ph"
- return ""
- }
- }
- set eTime [clock clicks -milliseconds]
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-# Load binary image data from a variable into a photo image.
-# Uses commands: set ph [image create photo] ; $ph put $imgData
-# args maybe "-to ..." option.
-proc readPhotoBinary2 { name fmt width height args } {
- PN "Binary read 2: "
-
- set sTime [clock clicks -milliseconds]
- set retVal [catch {open $name r} fp]
- if { $retVal != 0 } {
- P "\n\tERROR: Cannot open image file $name for binary reading."
- return ""
- }
- fconfigure $fp -translation binary
- set imgData [read $fp [file size $name]]
- close $fp
-
- if { $width < 0 && $height < 0 } {
- set ph [image create photo]
- } else {
- set ph [image create photo -width $width -height $height]
- }
- set retVal [catch {eval {$ph put $imgData} $args} errMsg]
- if { $retVal != 0 } {
- P "\n\tWarning: Cannot detect image file format. Trying again with -format."
- P "\tError message: $errMsg"
- set retVal [catch {eval {$ph put $imgData -format $fmt} $args} errMsg]
- if { $retVal != 0 } {
- P "\tERROR: Cannot create photo from binary image data."
- P "\tError message: $errMsg"
- return ""
- }
- }
- set eTime [clock clicks -milliseconds]
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-# Load uuencoded image data from a variable into a photo image.
-# Uses commands: set ph [image create photo] ; $ph put $imgData
-proc readPhotoString { str fmt width height args } {
- PN "String read: "
-
- set sTime [clock clicks -milliseconds]
- if { $width < 0 && $height < 0 } {
- set ph [image create photo]
- } else {
- set ph [image create photo -width $width -height $height]
- }
- set retVal [catch {eval {$ph put $str} $args}]
- if { $retVal != 0 } {
- P "\n\tWarning: Cannot detect image string format. Trying again with -format."
- set retVal [catch {eval {$ph put $str -format $fmt} $args}]
- if { $retVal != 0 } {
- P "\tERROR: Cannot read image string with format option: $fmt"
- return ""
- }
- }
- set eTime [clock clicks -milliseconds]
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-proc writePhotoFile { ph name fmt del args } {
- PN "File write: "
-
- set sTime [clock clicks -milliseconds]
- set retVal [catch {eval {$ph write $name -format $fmt} $args} str]
- set eTime [clock clicks -milliseconds]
-
- if { $retVal != 0 } {
- P "\n\tERROR: Cannot write image file $name (Format: $fmt)"
- P "\tError message: $str"
- return ""
- }
- if { $del } {
- image delete $ph
- }
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $str
-}
-
-proc writePhotoString { ph fmt del args } {
- PN "String write: "
-
- set sTime [clock clicks -milliseconds]
- set retVal [catch {eval {$ph data -format $fmt} $args} str]
- set eTime [clock clicks -milliseconds]
- if { $retVal != 0 } {
- P "\n\tERROR: Cannot write image to string (Format: $fmt)"
- P "\tError message: $str"
- return ""
- }
- if { $del } {
- image delete $ph
- }
- PN "[format "%.2f " [expr ($eTime - $sTime) / 1.0E3]]"
- return $str
-}
-
-proc createErrImg {} {
- set retVal [catch {image create photo -data [unsupportedImg]} errImg]
- if { $retVal != 0 } {
- P "FATAL ERROR: Cannot load uuencode GIF image into canvas."
- P " Test will be cancelled."
- exit 1
- }
- return $errImg
-}
-
-proc getCanvasPhoto { canvId } {
- PN "Canvas photo: "
- set sTime [clock clicks -milliseconds]
- set retVal [catch {image create photo -format window -data $canvId} ph]
- set eTime [clock clicks -milliseconds]
- if { $retVal != 0 } {
- P "\n\tFATAL ERROR: Cannot create photo from canvas window"
- exit 1
- }
- P "[format "%.2f secs" [expr ($eTime - $sTime) / 1.0E3]]"
- return $ph
-}
-
-proc delayedUpdate {} {
- update
- after 200
-}
-
-proc drawInfo { x y color font } {
- set size 10
- set tx [expr $x + $size * 2]
- .t.c create rectangle $x $y [expr $x + $size] [expr $y + $size] -fill $color
- .t.c create text $tx $y -anchor nw -fill black -text "$color box" -font $font
- delayedUpdate
-}
-
-proc drawTestCanvas { imgVersion} {
- toplevel .t
- wm title .t "Canvas window"
- wm geometry .t "+0+30"
-
- canvas .t.c -bg gray -width 240 -height 220
- pack .t.c
-
- P "Loading uuencoded GIF image into canvas .."
- set retVal [catch {image create photo -data [pwrdLogo]} phImg]
- if { $retVal != 0 } {
- P "FATAL ERROR: Cannot load uuencode GIF image into canvas."
- P " Test will be cancelled."
- exit 1
- }
-
- .t.c create image 0 0 -anchor nw -tags MyImage
- .t.c itemconfigure MyImage -image $phImg
-
- P "Drawing text and rectangles into canvas .."
- .t.c create rectangle 1 1 239 219 -outline black
- .t.c create rectangle 3 3 237 217 -outline green -width 2
- delayedUpdate
-
- set font {-family {Courier} -size 9}
-
- drawInfo 140 10 black $font
- drawInfo 140 30 white $font
- drawInfo 140 50 red $font
- drawInfo 140 70 green $font
- drawInfo 140 90 blue $font
- drawInfo 140 110 cyan $font
- drawInfo 140 130 magenta $font
- drawInfo 140 150 yellow $font
-
- .t.c create text 140 170 -anchor nw -fill black -text "Created with:" -font $font
- delayedUpdate
- .t.c create text 140 185 -anchor nw -fill black -text "Tcl [info patchlevel]" -font $font
- .t.c create text 140 200 -anchor nw -fill black -text "Img $imgVersion" -font $font
- update
-}
diff --git a/tkimg/tests/visualtests/utils/testUtil.tcl b/tkimg/tests/visualtests/utils/testUtil.tcl
deleted file mode 100755
index aa82d67..0000000
--- a/tkimg/tests/visualtests/utils/testUtil.tcl
+++ /dev/null
@@ -1,59 +0,0 @@
-proc P { str } {
- catch {puts $str ; flush stdout}
-}
-
-proc PN { str } {
- catch {puts -nonewline $str ; flush stdout}
-}
-
-proc PP { str } {
- P ""
- P $str
- P ""
-}
-
-proc PS { } {
- P ""
- P "------------------------------------------------------------"
- P ""
-}
-
-proc PH { str } {
- P ""
- P "Test: $str"
- PS
-}
-
-proc PF { floatVal { prec 4 } } {
- set fmtStr "%.${prec}f"
- return [format $fmtStr $floatVal]
-}
-
-proc PSec { msg sec } {
- P [format "%s: %.4f seconds" $msg $sec]
-}
-
-proc PrintMachineInfo {} {
- global tcl_platform
-
- P "Machine specific information:"
- P "platform : $tcl_platform(platform)"
- P "os : $tcl_platform(os)"
- P "osVersion : $tcl_platform(osVersion)"
- P "machine : $tcl_platform(machine)"
- P "byteOrder : $tcl_platform(byteOrder)"
- P "wordSize : $tcl_platform(wordSize)"
- P "user : $tcl_platform(user)"
- P "hostname : [info hostname]"
- P "Tcl version : [info patchlevel]"
- P "Visuals : [winfo visualsavailable .]"
-}
-
-proc SetFileTypes { } {
- global fInfo env
-
- set fInfo(suf) ".tga"
- set fInfo(fmt) "targa"
- set fInfo(vsn) "int"
- set fInfo(modfmt) 0
-}
diff --git a/tkimg/tests/xbm.test b/tkimg/tests/xbm.test
deleted file mode 100644
index a2307fa..0000000
--- a/tkimg/tests/xbm.test
+++ /dev/null
@@ -1,29 +0,0 @@
-# This file is a Tcl script to test out XBM reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-catch {image delete i}
-
-test xbm-1.1 {} {
- image create photo i -file folder.xbm
- i data -format xbm
-} {#define InlineData_width 16
-#define InlineData_height 12
-static char InlineData_bits[] = {
- 0x78, 0x00,
- 0x86, 0x55,
- 0x02, 0x01,
- 0xff, 0x5f,
- 0x01, 0x30,
- 0x01, 0x50,
- 0x01, 0x10,
- 0x01, 0x50,
- 0x01, 0x10,
- 0x01, 0x50,
- 0x01, 0x30,
- 0xff, 0x1f};
-}
diff --git a/tkimg/tests/xpm.test b/tkimg/tests/xpm.test
deleted file mode 100644
index 38230d2..0000000
--- a/tkimg/tests/xpm.test
+++ /dev/null
@@ -1,49 +0,0 @@
-# This file is a Tcl script to test out GIF reading and writing.
-# It is organized in the standard fashion for Tcl tests.
-#
-
-if {[string compare test [info procs test]] == 1} {
- source defs
-}
-
-catch {image delete i}
-
-set xpmdata \
-{/* XPM */
-static char * InlineData[] = {
-"16 12 3 1",
-" s None c None",
-". c #000000",
-"# c #f0ff80",
-" .... ",
-" .####. ",
-" .######. ",
-"............. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-".###########. ",
-"............. "};}
-
-test xpm-1.1 {} {
- image create photo i -file folder.xpm
- i data -format xpm
-} $xpmdata
-test xpm-1.2 {} {
- catch {image delete i}
- image create photo i -data $xpmdata
- set data [i data -format xpm]
-} $xpmdata
-test xpm-1.3 {} {
- i blank
- i put $data
- set data [i data -format xpm]
-} $xpmdata
-test xpm-1.4 {} {
- i blank
- i put $data -format xpm
- set data [i data -format xpm]
-} $xpmdata