diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/tests | |
parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/tests')
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 Binary files differdeleted file mode 100644 index a0ff045..0000000 --- a/tkimg/tests/bmp4r.bmp +++ /dev/null diff --git a/tkimg/tests/bmp8r.bmp b/tkimg/tests/bmp8r.bmp Binary files differdeleted file mode 100644 index bef0039..0000000 --- a/tkimg/tests/bmp8r.bmp +++ /dev/null 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 Binary files differdeleted file mode 100755 index 8f2ccf9..0000000 --- a/tkimg/tests/e10n48.dt0 +++ /dev/null diff --git a/tkimg/tests/folder.bmp b/tkimg/tests/folder.bmp Binary files differdeleted file mode 100644 index b8cd319..0000000 --- a/tkimg/tests/folder.bmp +++ /dev/null diff --git a/tkimg/tests/folder.gif b/tkimg/tests/folder.gif Binary files differdeleted file mode 100644 index 9548461..0000000 --- a/tkimg/tests/folder.gif +++ /dev/null diff --git a/tkimg/tests/folder.jpg b/tkimg/tests/folder.jpg Binary files differdeleted file mode 100644 index 87a0a38..0000000 --- a/tkimg/tests/folder.jpg +++ /dev/null diff --git a/tkimg/tests/folder.png b/tkimg/tests/folder.png Binary files differdeleted file mode 100644 index 8e31c72..0000000 --- a/tkimg/tests/folder.png +++ /dev/null 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 Binary files differdeleted file mode 100644 index b94cde5..0000000 --- a/tkimg/tests/folder.ras +++ /dev/null diff --git a/tkimg/tests/folder.raw b/tkimg/tests/folder.raw Binary files differdeleted file mode 100755 index ce86e6e..0000000 --- a/tkimg/tests/folder.raw +++ /dev/null diff --git a/tkimg/tests/folder.rgb b/tkimg/tests/folder.rgb Binary files differdeleted file mode 100644 index 70c3a59..0000000 --- a/tkimg/tests/folder.rgb +++ /dev/null diff --git a/tkimg/tests/folder.tif b/tkimg/tests/folder.tif Binary files differdeleted file mode 100644 index 22a1496..0000000 --- a/tkimg/tests/folder.tif +++ /dev/null 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 Binary files differdeleted file mode 100755 index 6213cf9..0000000 --- a/tkimg/tests/hori.tga +++ /dev/null diff --git a/tkimg/tests/hori_bw.pcx b/tkimg/tests/hori_bw.pcx Binary files differdeleted file mode 100755 index 4e4f32a..0000000 --- a/tkimg/tests/hori_bw.pcx +++ /dev/null diff --git a/tkimg/tests/hori_raw.ppm b/tkimg/tests/hori_raw.ppm Binary files differdeleted file mode 100755 index a2a65dd..0000000 --- a/tkimg/tests/hori_raw.ppm +++ /dev/null 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 Binary files differdeleted file mode 100755 index 9a982c6..0000000 --- a/tkimg/tests/img.ico +++ /dev/null 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 Binary files differdeleted file mode 100644 index c1533a2..0000000 --- a/tkimg/tests/logo.pdf +++ /dev/null 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 |