### bitmaps.tcl

# Chess piece bitmaps used by Scid.

# Some of the piece images used here were generated from freeware chess
# fonts available in TrueType format at the En Passant website
# "Chess Fonts" page, http://www.enpassant.dk/chess/fonteng.htm

# For when tcl-8.6 has png support
# scan [info patchlevel] {%f} tmp
# if { [catch { package require img::png } ] && $tmp < 8.6 }

set boardStyles {}

# Size 20 is only used in Material search window, not for boards.
# It has two special extra images, wm20 and bm20, which contain a
# bishop and knight, for indicating a minor piece.

image create photo wm20 -data {
R0lGODlhFAAUAMIAAH9/f7+/vz8/PwAAAP///////////////yH5BAEKAAcALAAAAAAUABQA
AANweLp8cCG02cSwNB8RSACctgBAR3iDqJDd5wlidBLCHGb1CQzzx+yPDYAWyJ1gixpSwOLM
CClFESSRup7RImF42zxP0Vpg0EE6SGjSCqxTKYxHN4RJ6sYETHxVNa3vM2gDQyBoGkNbhIdq
FHRBZyAaCQA7}

image create photo bm20 -data {
R0lGODlhFAAUAMIAAH9/f7+/vwAAAD8/P////////////////yH5BAEKAAcALAAAAAAUABQA
AANneLp8cCG02YQYgupj+5CbEgyYAAQCuJHlNYZo1wHDo7VyOjSAebQxS69R25UCvVlmMXIp
TrmhSGgB4S5LzoVQegK+YJtWwLWEFjnzGVL7ftYQMoGQggerZ3CrLealoxomXxJIX1kNCQA7
}

image create photo p20 -data {
R0lGODlh8AAUAMIAAH9/fz8/P7+/vwAAAP///////////////yH5BAEKAAcALAAAAADwABQA
AAP+eLrc/jDKSau9OOvNu/8VAIBkJAhl2ohqe5xuCgTBGL/oQaMwJew30KwWhAkGA0Vv8gvk
LALRUxJ9BTSAk40qFXWzkKZWCmQit5Uo2GdDW4ZuiFQ9koZ33mxZAjhjBidJFDNIRBgBhRQD
Q4t9NH0NP3o1BEgEYjNTDix/SIITfQOIcROIooOFpouekV6PlQMEQ2qaK6QSsZUholGit5GA
BJeAuMIixgDCnwrJAbKLsMPNsiY0VxeeyxGhnoZm2cTb4OMrP88C0X3NVWF+2CLaELnCUTRm
6CfDtQuUwv7G1xb8iHUkmSV1lZy0GpErSZR9DbJVUOULCUQl3VRdPDL+rtsKRM8MxuqDjlcr
FBIflkomK+CdLP8I2Ivg5NIOmxIe5RnygOSzhDKlLGqg01LCGjMhUHQpj1AhmfEYmHIy8JSJ
jlZXAHIUDWRBojWcFnK1zZk/bw9oBLt09lcuMcpA7eS0CU8WVyIeMTBHD9ARdMjkjPt14BhF
QEkddDuhSm7MqIUrrgJ0ZhSDvJIr+7o14x9dB3z9zTtCE3A+nHxiUpNXsFKgXj+mHPN3pKa/
z5cH48LqJJwDVWoT8enYDis4W9k4cjzjliWk0p5ZBn5QcKdvOardXqqXN1nJVjFpxMTNgJw4
4zypj3V6kRlxecYl7g0+mZtewcLQ/vYMjTb+U6lh5fXfJtmVNcpOj/xnGzL/kHaeO/AZ1xtN
AaY3nHk9dZOHKnH0th43M1D4T2KXzebEbKKVFcoMhDEz1y8cvUjIPo3AU2MmNI0zYGEU2eiJ
a3JUqF9PFT6nnnd5GHMdRrScQMeSC3Q23oCdxXaEapAdMI+Sisy1I0YyQslMgOi48iU34AzY
yxlQJTfUA1hRoJMXYmJkHESOLIXIl1v+A5mAMgE2IkS9qLUGdDH9gIt0fprAaHQRxHeHeIfV
eEc2CuV0Z6TrNVYcVrdEodp0ZY36WVVsPrPYb/HxmVFykfrYyJfLddTeCx15MZ8ovJlEVHx1
zoNillrWICgh2zxpeluLfbZVnllK9pefNiiaSopPWLrVD0BZoqnbboOhBexxEQF7bXxuGfdg
rlTEJxt9YDh1n0Dj7rOmjhtVmmmG6E2ArlRpapGmYsDa6+2qlwYcxAWHyrHwwxAX1h47EVds
8cUYZ6xxBwkAADs=
}

# little empty image and question mark
image create photo e20 -height 20 -width 20
image create photo q20 -data {
R0lGODlhFAAUAKUjAAICBQECCAIFFRIEAgUKKikKBQgRRx4UDQwdSA0fRxkk
Mx8mVmEYC1szFGxBGkZMcn5jOi55tIFjTDaNu7J0LLR4NrZ+P5eEgEejw3WU
uIWYpr6RX7+XP7Syq5fB0JHI0bLO1bHP1dbTv///////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////yH5BAEKAD8ALAAAAAAUABQAAAY/
wJ9wSCwaj8ikcslsOp9HyQGgyDgrBE0HEvg0GZFhYdK8eISiAQb6cyDYjQQI
yhGE2JYFez/cPPYUBnyDhEpBADs=
}

set x 0
foreach p {wp wn wb wr wq wk bp bn bb br bq bk} {
  image create photo ${p}20 -width 20 -height 20
  ${p}20 copy p20 -from $x 0 [expr $x + 19] 19
  incr x 20
}

### Process custom chess pieces

if {[file isdirectory $scidPiecesDir]} {
  ::splash::add "User Pieces: reading $scidPiecesDir"
  set pwd [pwd]
  cd $scidPiecesDir
  foreach i [glob -nocomplain *] {
      if {[ catch {source $i}]} {
        ::splash::add "Loading file $i failed"
      } else {
        ::splash::add "Loaded file $i"
      }
  }
  cd $pwd
} else {
  ::splash::add "User Pieces: no such directory $scidPiecesDir"
}

# To test images use -
#    toplevel .l1
#    pack [label .l1.label -image [image create photo -data $pieceImageData(Alpha,80) ] -background red]

if {$png_image_support} {
# Large Merida1 contributed by R.A.
# https://pixabay.com/en/chess-pieces-set-symbols-game-26774/

lappend boardStyles Merida1

set pieceImageData(Merida1,25) {
[encoded data, 12397 characters]
8RIMP7sinQAAAABJRU5ErkJggg==
}
set pieceImageData(Merida1,30) {
[encoded data, 15704 characters]
}
set pieceImageData(Merida1,35) {
[encoded data, 18557 characters]
pybcX/AFX/AFX/AFX/D/Gf4fjFcaJzchpA8AAAAASUVORK5CYII=
}
set pieceImageData(Merida1,40) {
[encoded data, 21791 characters]
eQFwwFcy/eYAAAAASUVORK5CYII=
}
set pieceImageData(Merida1,45) {
[encoded data, 24940 characters]
}
set pieceImageData(Merida1,50) {
[encoded data, 27558 characters]
}
set pieceImageData(Merida1,55) {
[encoded data, 32032 characters]
NdRQQw3/Uv4PKyWfyRxXI7EAAAAASUVORK5CYII=
}
set pieceImageData(Merida1,60) {
[encoded data, 34569 characters]
}
set pieceImageData(Merida1,65) {
[encoded data, 37884 characters]
gg==
}
set pieceImageData(Merida1,70) {
[encoded data, 41272 characters]
lH1LxzkAAAAASUVORK5CYII=
}
set pieceImageData(Merida1,75) {
[encoded data, 45661 characters]
oECBAgUKFChQoECBAgX/T/k/2bhqDA9OIdgAAAAASUVORK5CYII=
}
set pieceImageData(Merida1,80) {
[encoded data, 48660 characters]
}
set pieceImageData(Merida1,85) {
[encoded data, 51975 characters]
5P+J/wGXoejcUlbhowAAAABJRU5ErkJggg==
}
set pieceImageData(Merida1,90) {
[encoded data, 55667 characters]
}
set pieceImageData(Merida1,95) {
[encoded data, 59213 characters]
rkJggg==
}
set pieceImageData(Merida1,100) {
[encoded data, 62216 characters]
SUVORK5CYII=
}
set pieceImageData(Merida1,105) {
[encoded data, 66143 characters]
TkSuQmCC
}
set pieceImageData(Merida1,110) {
[encoded data, 69762 characters]
}
set pieceImageData(Merida1,115) {
[encoded data, 73997 characters]
}
set pieceImageData(Merida1,120) {
[encoded data, 77231 characters]
oVAoFAqFQqFQKBQKhUKhUCiUSvH/vYtjGYS/ydUAAAAASUVORK5CYII=
}
set pieceImageData(Merida1,125) {
[encoded data, 80003 characters]
RU5ErkJggg==
}
set pieceImageData(Merida1,130) {
[encoded data, 83776 characters]
AAAAAElFTkSuQmCC
}
set pieceImageData(Merida1,135) {
[encoded data, 88627 characters]
QmCC
}
set pieceImageData(Merida1,140) {
[encoded data, 91938 characters]
cl9d5QAAAABJRU5ErkJggg==
}
set pieceImageData(Merida1,145) {
[encoded data, 95314 characters]
}
set pieceImageData(Merida1,150) {
[encoded data, 98714 characters]
RU5ErkJggg==
}
set pieceImageData(Merida1,155) {
[encoded data, 102102 characters]
BEEQBEEQBEEQBEEQBEEQRAX2fyTBqEUPTqshAAAAAElFTkSuQmCC
}
set pieceImageData(Merida1,160) {
[encoded data, 105709 characters]
}

# Paul's chess pieces (Paul_C), http://www.bibelkanon.net/ are too good to leave out
# Sorry Paul, your site seems down, and don't have your details for a proper credit

lappend boardStyles Paul's

set pieceImageData(Paul's,25) {
[encoded data, 12166 characters]
YII=
}
set pieceImageData(Paul's,30) {
[encoded data, 15554 characters]
RK5CYII=
}
set pieceImageData(Paul's,35) {
[encoded data, 19327 characters]
b+TlHI7O0Tk6R+foHJ2jP5v+H7Ot+QF4HLZyAAAAAElFTkSuQmCC
}
set pieceImageData(Paul's,40) {
[encoded data, 22638 characters]
rkJggg==
}
set pieceImageData(Paul's,45) {
[encoded data, 26642 characters]
TkSuQmCC
}
set pieceImageData(Paul's,50) {
[encoded data, 30954 characters]
q20AAAAASUVORK5CYII=
}
set pieceImageData(Paul's,55) {
[encoded data, 34650 characters]
}
set pieceImageData(Paul's,60) {
[encoded data, 38808 characters]
Upe61KUudalLXd4q8v8AdMAbSknDLZoAAAAASUVORK5CYII=
}
set pieceImageData(Paul's,65) {
[encoded data, 43890 characters]
qS2s8QAAAABJRU5ErkJggg==
}
set pieceImageData(Paul's,70) {
[encoded data, 48202 characters]
rkJggg==
}
set pieceImageData(Paul's,75) {
[encoded data, 53049 characters]
}
set pieceImageData(Paul's,80) {
[encoded data, 58058 characters]
JfgLSPmCIZJO2DIAAAAASUVORK5CYII=
}
set pieceImageData(Paul's,85) {
[encoded data, 62139 characters]
PcVSpbwhBwAAAABJRU5ErkJggg==
}
set pieceImageData(Paul's,90) {
[encoded data, 67144 characters]
tdRSSy211FJLLbXUUksttdem/T/ztim1YNmV7AAAAABJRU5ErkJggg==
}
set pieceImageData(Paul's,95) {
[encoded data, 72303 characters]
}
set pieceImageData(Paul's,100) {
[encoded data, 78832 characters]
}
set pieceImageData(Paul's,105) {
[encoded data, 83314 characters]
RyYllgAAAABJRU5ErkJggg==
}
set pieceImageData(Paul's,110) {
[encoded data, 88473 characters]
jkpQPAAAAABJRU5ErkJggg==
}
set pieceImageData(Paul's,115) {
[encoded data, 95310 characters]
}
set pieceImageData(Paul's,120) {
[encoded data, 101486 characters]
SUVORK5CYII=
}
set pieceImageData(Paul's,125) {
[encoded data, 106876 characters]
AABJRU5ErkJggg==
}
set pieceImageData(Paul's,130) {
[encoded data, 112420 characters]
AABJRU5ErkJggg==
}
set pieceImageData(Paul's,135) {
[encoded data, 119350 characters]
jDLKKKOMMsooo4wyyujC0/8PZbMt2wtW0/kAAAAASUVORK5CYII=
}
set pieceImageData(Paul's,140) {
[encoded data, 125048 characters]
AAAAAElFTkSuQmCC
}
set pieceImageData(Paul's,145) {
[encoded data, 131277 characters]
}
set pieceImageData(Paul's,150) {
[encoded data, 139601 characters]
J8gTQjPaAAAAAElFTkSuQmCC
}
set pieceImageData(Paul's,155) {
[encoded data, 146146 characters]
}
set pieceImageData(Paul's,160) {
[encoded data, 153692 characters]
g4ODg4ODg8NVxP8PdU1LZjTeeUwAAAAASUVORK5CYII=
}

lappend boardStyles Merida2
set pieceImageData(Merida2,25) {
[encoded data, 17155 characters]
rkJggg==
}
set pieceImageData(Merida2,30) {
[encoded data, 21316 characters]
8a/jG3MAAAAASUVORK5CYII=
}
set pieceImageData(Merida2,35) {
[encoded data, 25112 characters]
AAAAAElFTkSuQmCC
}
set pieceImageData(Merida2,40) {
[encoded data, 29638 characters]
QmCC
}
set pieceImageData(Merida2,45) {
[encoded data, 34383 characters]
QmCC
}
set pieceImageData(Merida2,50) {
[encoded data, 38909 characters]
}
set pieceImageData(Merida2,55) {
[encoded data, 44092 characters]
Qf7WIyxQAQAAnACLFTY+QQXw6AAAAABJRU5ErkJggg==
}
set pieceImageData(Merida2,60) {
[encoded data, 48837 characters]
TkSuQmCC
}
set pieceImageData(Merida2,65) {
[encoded data, 53947 characters]
rkJggg==
}
set pieceImageData(Merida2,70) {
[encoded data, 59053 characters]
}
set pieceImageData(Merida2,75) {
[encoded data, 64313 characters]
lFFGGWWUUUYZZbxo/H8jnw/Y5jT+pQAAAABJRU5ErkJggg==
}
set pieceImageData(Merida2,80) {
[encoded data, 69131 characters]
EolEIpFIJBKJRCKRSCTL+C/t3Y9Tamlj6wAAAABJRU5ErkJggg==
}

#   Merida: Armando H. Marroquin.

lappend boardStyles Merida3

set pieceImageData(Merida3,25) {
[encoded data, 14308 characters]
f8qf8qf8Kf+z8r8ABVbokewgW84AAAAASUVORK5CYII=
}
set pieceImageData(Merida3,30) {
[encoded data, 18169 characters]
}
set pieceImageData(Merida3,35) {
[encoded data, 21024 characters]
8VAd/sE/+Af/4B/8g/+r+F+rpMorQ9XqswAAAABJRU5ErkJggg==
}
set pieceImageData(Merida3,40) {
[encoded data, 25477 characters]
jDHGC4K/AYZGbSySs6vgAAAAAElFTkSuQmCC
}
set pieceImageData(Merida3,45) {
[encoded data, 29200 characters]
}
set pieceImageData(Merida3,50) {
[encoded data, 33872 characters]
zdu8zdu8/V9t/wfqGMCWUkeZjQAAAABJRU5ErkJggg==
}
set pieceImageData(Merida3,55) {
[encoded data, 38252 characters]
yqiMyqiMyqiMWP4fdSwxy5pU1hAAAAAASUVORK5CYII=
}
set pieceImageData(Merida3,60) {
[encoded data, 42851 characters]
wzZswzZsw/bvav8PFQIJ/oketoIAAAAASUVORK5CYII=
}
set pieceImageData(Merida3,65) {
[encoded data, 47523 characters]
hz70oQ996EMf+tCH/1P4f+j48JaSleoAAAAAAElFTkSuQmCC
}
set pieceImageData(Merida3,70) {
[encoded data, 52341 characters]
rkJggg==
}
set pieceImageData(Merida3,75) {
[encoded data, 57159 characters]
YcKECRMmTJgwYcKECRMmTHwx/B9kAkyD9yO5qgAAAABJRU5ErkJggg==
}
set pieceImageData(Merida3,80) {
[encoded data, 62415 characters]
}


# Fantasy: based by Maurizio Monge <maurizio.monge@gmail.com>
# http://linuz.sns.it/~monge/wiki/index.php/Chess_pieces

lappend boardStyles Fantasy

set pieceImageData(Fantasy,25) {
[encoded data, 19783 characters]
ARDQaw8YszwHAAAAAElFTkSuQmCC
}
set pieceImageData(Fantasy,30) {
[encoded data, 25696 characters]
RK5CYII=
}
set pieceImageData(Fantasy,35) {
[encoded data, 31463 characters]
AABJRU5ErkJggg==
}
set pieceImageData(Fantasy,40) {
[encoded data, 37948 characters]
}
set pieceImageData(Fantasy,45) {
[encoded data, 44895 characters]
o8eFSEj8u+4AAAAASUVORK5CYII=
}
set pieceImageData(Fantasy,50) {
[encoded data, 52341 characters]
jRxfV7w6Ygfr5x2vhsEsGlWe/wVGRVPV+Oe5vgAAAABJRU5ErkJggg==
}
set pieceImageData(Fantasy,55) {
[encoded data, 60225 characters]
QmCC
}
set pieceImageData(Fantasy,60) {
[encoded data, 68328 characters]
4/wn2/yP21b9jzbu/x/jx4iOU3uREAAAAABJRU5ErkJggg==
}
set pieceImageData(Fantasy,65) {
[encoded data, 76942 characters]
8c7jncc7j3ce7zzeeVT38f8CxY6XkH8FzNsAAAAASUVORK5CYII=
}
set pieceImageData(Fantasy,70) {
[encoded data, 85775 characters]
4vGLxy8ev3j84vGLx/8vH/8vZmOcUdgaUvkAAAAASUVORK5CYII=
}
set pieceImageData(Fantasy,75) {
[encoded data, 95484 characters]
7ae3n95+evvp7ae313X7/wE8PpVpOFlfFwAAAABJRU5ErkJggg==
}
set pieceImageData(Fantasy,80) {
[encoded data, 104974 characters]
RU5ErkJggg==
}

lappend boardStyles Usual

set pieceImageData(Usual,25) {
[encoded data, 13359 characters]
RU5ErkJggg==}
set pieceImageData(Usual,30) {
[encoded data, 17263 characters]
rFk+AAAAAElFTkSuQmCC}
set pieceImageData(Usual,35) {
[encoded data, 21350 characters]
Ozv1f5BB2Nz5/7fM8zf9TX/T32RJ+n9wSKqd+n+75gAAAABJRU5ErkJggg==}
set pieceImageData(Usual,40) {
[encoded data, 26474 characters]
Gmn0EOgP4BfO9VBo4QIAAAAASUVORK5CYII=}
set pieceImageData(Usual,45) {
[encoded data, 31293 characters]
lVmZlVkJmfwP/p0H9AzyMhwAAAAASUVORK5CYII=}
set pieceImageData(Usual,50) {
[encoded data, 36966 characters]
RK5CYII=}
set pieceImageData(Usual,55) {
[encoded data, 43554 characters]
QTfoBt2gG3SD/tfS/wdr3SyySnp5UwAAAABJRU5ErkJggg==}
set pieceImageData(Usual,60) {
[encoded data, 49410 characters]
AAAASUVORK5CYII=}
set pieceImageData(Usual,65) {
[encoded data, 56303 characters]
ZuGjPPXKiAAAAABJRU5ErkJggg==}
set pieceImageData(Usual,70) {
[encoded data, 62769 characters]
/+9xwhbO66XLAAAAAElFTkSuQmCC}
set pieceImageData(Usual,75) {
[encoded data, 69723 characters]
gyXmAAAAAElFTkSuQmCC}
set pieceImageData(Usual,80) {
[encoded data, 76372 characters]
8QAAAAAAAAAAAAAAAAAAAADwR34AFYM48zjdYdkAAAAASUVORK5CYII=}

# Berlin pieces from Chessx (ported by stevenaaus)

lappend boardStyles Berlin

set pieceImageData(Berlin,25) {
[encoded data, 7076 characters]
rkJggg==}

set pieceImageData(Berlin,30) {
[encoded data, 8662 characters]
/D9nvJ1V/ZvsSgAAAABJRU5ErkJggg==}

set pieceImageData(Berlin,35) {
[encoded data, 10553 characters]
4IADDjjggAMOOOCAA//l+H9QoygjQvHwaQAAAABJRU5ErkJggg==}

set pieceImageData(Berlin,40) {
[encoded data, 12810 characters]
rkJggg==}

set pieceImageData(Berlin,45) {
[encoded data, 14823 characters]
fvjhhx9++OGHH3744YcffvjhLf4fVT0+Jth8ypcAAAAASUVORK5CYII=}

set pieceImageData(Berlin,50) {
[encoded data, 16592 characters]
jDDCCCOMMMIII4wwwggjjDDCCKMq8f8BVCl5RDQEu/YAAAAASUVORK5CYII=}

set pieceImageData(Berlin,55) {
[encoded data, 18544 characters]
SsH/Bz2GTnxS/qadAAAAAElFTkSuQmCC}

set pieceImageData(Berlin,60) {
[encoded data, 20801 characters]
DBgwYMCAAQMGDBgwYMCAAQMGrhv8f40G7PYj0xV/AAAAAElFTkSuQmCC}

set pieceImageData(Berlin,65) {
[encoded data, 23485 characters]
vgAAAABJRU5ErkJggg==}

set pieceImageData(Berlin,70) {
[encoded data, 25986 characters]
RK5CYII=}

set pieceImageData(Berlin,75) {
[encoded data, 28609 characters]
6wAAAABJRU5ErkJggg==}

set pieceImageData(Berlin,80) {
[encoded data, 30683 characters]
GxvO66jsVSkAAAAASUVORK5CYII=}

# Burnett pieces from Scidb (ported by stevenaaus)

lappend boardStyles Burnett

set pieceImageData(Burnett,25) {
[encoded data, 14518 characters]
rkJggg==
}

set pieceImageData(Burnett,30) {
[encoded data, 18971 characters]
RU5ErkJggg==
}

set pieceImageData(Burnett,35) {
[encoded data, 23973 characters]
YII=
}

set pieceImageData(Burnett,40) {
[encoded data, 29097 characters]
Y/j7w/8C+jpjsT8PdQcAAAAASUVORK5CYII=
}

set pieceImageData(Burnett,45) {
[encoded data, 34587 characters]
ATrfdDQm8zVrAAAAAElFTkSuQmCC
}

set pieceImageData(Burnett,50) {
[encoded data, 40626 characters]
9+2+3bf7dt/u2327b/ftvt23/zz7fzWf1muh5/XdAAAAAElFTkSuQmCC
}

set pieceImageData(Burnett,55) {
[encoded data, 46665 characters]
04ZxXHFyAAAAAElFTkSuQmCC
}

set pieceImageData(Burnett,60) {
[encoded data, 52826 characters]
RK5CYII=
}

set pieceImageData(Burnett,65) {
[encoded data, 30561 characters]
SUVORK5CYII=
}

set pieceImageData(Burnett,70) {
[encoded data, 66673 characters]
qI3aqI3aqI3aqI3aqI3aqI1w+38BIg77oWPP160AAAAASUVORK5CYII=
}

set pieceImageData(Burnett,75) {
[encoded data, 73993 characters]
PQAAAABJRU5ErkJggg==
}

set pieceImageData(Burnett,80) {
[encoded data, 81313 characters]
jN4AAAAASUVORK5CYII=
}

# Spatial pieces from Chessx (ported by stevenaaus)

lappend boardStyles Spatial

set pieceImageData(Spatial,25) {
[encoded data, 15921 characters]
AAAAAElFTkSuQmCC}

set pieceImageData(Spatial,30) {
[encoded data, 20374 characters]
RK5CYII=}

set pieceImageData(Spatial,35) {
[encoded data, 25376 characters]
87wW0/oXcvcCKtTTc7EAAAAASUVORK5CYII=}

set pieceImageData(Spatial,40) {
[encoded data, 30683 characters]
3/BpkLtP0hbOkVH59X+MBI4lpt8FqQAAAABJRU5ErkJggg==}

set pieceImageData(Spatial,45) {
[encoded data, 35807 characters]
+G+yf3sTg74PwQAAAABJRU5ErkJggg==}

set pieceImageData(Spatial,50) {
[encoded data, 42090 characters]
AAAASUVORK5CYII=}

set pieceImageData(Spatial,55) {
[encoded data, 47885 characters]
ZVKShnXC75QEYokMRNwYq7H9yeN/1uP/A72sNY+Tho7rAAAAAElFTkSuQmCC}

set pieceImageData(Spatial,60) {
[encoded data, 54229 characters]
MCGJRf6dD+D/2fU3CdNDjmkhvrUAAAAASUVORK5CYII=}

set pieceImageData(Spatial,65) {
[encoded data, 60146 characters]
RK5CYII=}

set pieceImageData(Spatial,70) {
[encoded data, 67710 characters]
ZzMfmLn5/TYAAAAASUVORK5CYII=}

set pieceImageData(Spatial,75) {
[encoded data, 74603 characters]
tsd5dYsfxPflBMtu988nsM5fanr5/wEvNpwG5wSKYQAAAABJRU5ErkJggg==}

set pieceImageData(Spatial,80) {
[encoded data, 82533 characters]
jyrxfJnZRN+lNIDltZXX/wAG5FXEFwIYWwAAAABJRU5ErkJggg==}


# Copied with minor modifcations from HGM's Gigatron pieces.
# http://www.talkchess.com/forum/viewtopic.php?t=65905

lappend boardStyles Ascii

set pieceImageData(Ascii,25) {
[encoded data, 7869 characters]
6WeP75k9s2f21Nr/AzRtiyqzm+eMAAAAAElFTkSuQmCC
}

set pieceImageData(Ascii,30) {
[encoded data, 11102 characters]
SUVORK5CYII=
}

set pieceImageData(Ascii,35) {
[encoded data, 6527 characters]
4P8BKizTfw5g3fkAAAAASUVORK5CYII=
}

set pieceImageData(Ascii,40) {
[encoded data, 7991 characters]
u0fWAAAAAElFTkSuQmCC
}

set pieceImageData(Ascii,45) {
[encoded data, 9455 characters]
oKCgoKCgoKCgoKCgoAgc/w/jeXaasOPzowAAAABJRU5ErkJggg==
}

set pieceImageData(Ascii,50) {
[encoded data, 10980 characters]
Dz0cJ0abM6asAAAAAElFTkSuQmCC
}

set pieceImageData(Ascii,55) {
[encoded data, 12566 characters]
GAwGg8FgMBgMBoPBYDAYDAaDEYH/D8Q3lGf2R8NMAAAAAElFTkSuQmCC
}

set pieceImageData(Ascii,60) {
[encoded data, 14274 characters]
g8FgMBgMBoPBYDAYDAaDwWD0av4/B9orveY+ckQAAAAASUVORK5CYII=
}

set pieceImageData(Ascii,65) {
[encoded data, 17080 characters]
W+ZrEHOVSgAAAABJRU5ErkJggg==
}

set pieceImageData(Ascii,70) {
[encoded data, 5673 characters]
AAAAAAAAAAAAAAAAAAAAAHXufwEbcVMDYLqm1wAAAABJRU5ErkJggg==
}

set pieceImageData(Ascii,75) {
[encoded data, 7137 characters]
}

set pieceImageData(Ascii,80) {
[encoded data, 7503 characters]
AAAAAAAAIMr+Hytupp2IJdz/AAAAAElFTkSuQmCC
}

set pieceImageData(Ascii,90) {
[encoded data, 8235 characters]
AAAAAAAAAAAApv4faCvOwEm2EN4AAAAASUVORK5CYII=
}

set pieceImageData(Ascii,100) {
[encoded data, 9089 characters]
0BsM5xVtWi8AAAAASUVORK5CYII=
}

} ;# end $png_image_support

#   Alpha: Eric Bentzen.

lappend boardStyles Alpha

set pieceImageData(Alpha,25) {
R0lGODlhLAEZAOfoAAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
RkdHR0hISElJSUtLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVVVVZW
VldXV1lZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2RkZGVlZWZm
ZmdnZ2hoaGlpaWpqamtra25ubm9vb3BwcHJycnNzc3h4eHp6ent7e3x8fH19
fX9/f4CAgIGBgYODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6O
jo+Pj5GRkZKSkpSUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+f
n6CgoKOjo6SkpKWlpaampqenp6mpqaqqqqurq62tra6urq+vr7CwsLGxsbKy
srOzs7S0tLW1tba2tre3t7i4uLm5ubu7u7y8vL29vb6+vr+/v8DAwMHBwcPD
w8TExMXFxcbGxsfHx8nJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NLS0tTU1NXV
1dbW1tfX19jY2NnZ2dra2tvb29zc3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk
5OXl5ebm5ufn5+jo6Onp6erq6uvr6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz
8/T09PX19fb29vf39/j4+Pn5+fr6+vv7+/z8/P39/f7+/v//////////////
////////////////////////////////////////////////////////////
/////////////////////yH5BAEKAP8ALAAAAAAsARkAAAj+AP8JHEiwoMGD
CBMqXMiwocOHECNKnEixosWLGDNq3Mixo8ePIEOKHEmypMmTKFOqXPmQgpoK
LDsiiElQwEUCAAbQ3Ohgp0AYEyyycMYipoSCEBRMDBAAgE8ABSwKAOB0JYKo
NXVKBDDVogIQCSoKYKLMzYGKBAYYiEi1aluBbxtWqaZUoIBXdSiulQoggFiq
AbBSBHAWYtzDVB3G/Vcg8cQFFi3UMufrw8QOmc6hI3fJw0QCVoBZ0eoQBzAb
Ar0AKyGQja+qDDcY6TnwBuuJYSs2Bby0LQAPLwZTtfnQt3HfDnEWhgs74gOL
adBJxyPRRrM1gKSjgwYjYoJC2gv+5W44BB2WESPyoEuCHpG55guHEBdIZP7C
BAwKF1gB+d+ABTMVhxxbDFDCQ1tYlBFRY77Zt9BxEBZHAEEA7MUQAg0shwIE
Ay1Ql0NkaAcHRAVMEc0viUSimXTGPOeQA5xoJx0ntDHUg4w4ogMOfAkJ4IoL
A0lATI0JHWCGMuKk0oIBcqBTyAAfbPJNNHA0oNiADk0FwBJ5cOHbI0o8hNNx
DiY0AIS+kbaQlgPhpCZCBCjBCza6GHEAFKRoUgEFhlBDjSIWOBTBJueIQsFD
G1iyoowr+uEXQwUgIh03ImQjnSKCKXSAHObkiM41RyjUBBIDNWDNJHu1gY4M
A8Vwxnj+AhFgx6LVuBALOsKAcIyMjpR5kJY5CQjhVCqokqlCvr1yIFVvJkTA
CXtEK+0eLTRL4aP/7KYVbwI1dew/VixzRANOQBMFIUaYssMrlmyAgSOzWMkQ
A5Cg00lQDTkByqIyxoiON4cydEOn0zwhgBPRoGMODoplUcLDEJcQxUKNBDIQ
C+eMg8I/DTSDjhgDeZHLhARxMA6OtfRwzhOZ4HgOqwwBa61BAWgABJoH9OUM
kWYyq8k2raiwGEMjxGH00XGk8CBsZ/aV7WJNkTxQAcncTJUP0qDASyN2jDLm
AKuAwVAHqmh3ywgMAfCJIPxKV84V2oEhdUJNotPNIgQkwo3+dHMoxoqnIyo0
QGACWSFdIwGcId0iAhUQQLNGeNpEJja0jY7YaxqHbUIAxEAFhH5RZYsODbUV
wBbO7HFBWzMbhCaPBhFAcpq+rSWAtRpgwyBVjfyBhxDSjODbG4UsVAAEI8Tg
Aw0iTLD5QQBQEEY56GSzjDXkEENGI9pB0vpAZWinjQHXaEeG34A3hIEICOwh
3TcnFCMdLgNIsPFBL3g6yQZ+eJrEQgYYQNO4IsCloekfWkrFFCzEOd/8QggN
ulKEGBK1140JIQ+4hgd8swJqiIALmDBOI97gkEmgAxUQIUAlpgAgBeCgDJnR
DipgV5ALPEM65GAFOaTzjICl7W/+OQocADfBBVNoJxja+cYPYHEBhCDAFjlS
RgBokaNlMECCc8scV5jFHACsYgvP+5VvcBABLKXtgBd6nW+ySJBGDMI3AbhF
FCqBBN98YBokaEgBeLEdNibEAjwYyAD4kKNT0LAgPwiGJfQgBz1YIhhAKA4Q
cSTEhQjhHJ3ylDn+oJAdiANH4aiANXBkjok1ZIDfIwhOnjdAAOTiCoekEAa0
sIdEDCINLYil69B4RjXGkgPKeIJv+tAIYSSgLQqARRy+dRARZLIGuLnBJ3E0
CV0OpANtYIQlGNGGDhhmkjKqpEIKMAxPaac7ZlrDorwhDRMooxsy8sNytOg0
iezON8j+YEIYEaIESaghC2MQhB2sSSFeLmRMAbDADYrQAw+MyVcE4YE0iACA
B7xgEMVIhg4cigBPZCJADLmDdhoxz4ZQoBHe8FQdCPqPOOAoDt9Mnx4FQYxC
SCEGK2ABEeTwimUwkyALeIMs2DCDF/jACECIAQzMkApC+PEgY2rLT3sGoWrk
AKQL8YAVtrpVHEAUIQpggFjHyoAPMcQEf+jFNG6RClk4QxmRCMJTCZIEasRi
G8VIBSY4EQtpKGMXopAXQ1CwDe2Ig3QPSUAqzImOMkyVIAMIgyImO9kwpJJC
eRCFZjcriio8xAFAIMQuuhGObwzjEVLIwGPhkgNMSMMc5lD+hTjOcQ1QJGG1
BTUORHYDoW2AgKVLcIRwhbvMhwxgF95IrnK9wYvLCgQLesBBzigQAAKgoA3U
aYgOtHCBqeygA1CBQRoEu5AO+AJHzgiOQ9TAWHR8gaX/IEAYABCGuSKEAmhg
g373y4Yr9IchIDCGdC6Bgj/skBtdcIgUiIGOc7zXCCeLRhj2CT004fYfOXvd
MijgXLu05atiVCOIBzKEIlAlDuHQxDFJgDmGTMFqaDAHM1bHADzYdyA+UIan
sJGFK64JGO2FQ4cRwIZFNOAQZnlIFJjBWFgAiSEJoIN0RnEDROzQExmAFUIG
oIRZSKcbkSgfOoDRhcsywJcjRqD+GvtwgwsLYExnzomWEQIsETPkC1igSgcM
0QOqzGAPWE0IHJwAmCSggCoUSEQIGOIBbTC2HD9gyAMyac5PHBILp0AFKlhx
DFAEqgKeOAYrNH2KKySEAYVtbyis6T7t8MsYuD0AOBhrDsvQ83UUVGMCqEDh
f4BOzcf5aStfN+ICAGIVyE52skthVjozQtnQXoUPGGIBJlj72thmQh4B6IFu
e/vbHsgADQlwBGzHwEIFgAG2j/BUCGSCE/COt7w50YeSGqQAO8h2tv9rJnD7
m4EI8aVjFMJbNAmAwlEFjNQOUPB6xk7gwRKcBvz97Rv7euIU7za/fSKShOOa
4yAPucgRR07ykpv85ChPucpXznKOBAQAOw==
}

set pieceImageData(Alpha,30) {
[encoded data, 4697 characters]
1FiN1niN2JiN2riN3NiN3ggTAQEAOw==
}

set pieceImageData(Alpha,35) {
[encoded data, 5673 characters]
sjqrtFqrtnqruJqrurqrvBoRAQEAOw==
}

set pieceImageData(Alpha,40) {
[encoded data, 6649 characters]
kBzJkjzJlAwTAQEAOw==
}

set pieceImageData(Alpha,45) {
[encoded data, 7686 characters]
hR4QADs=
}

set pieceImageData(Alpha,50) {
[encoded data, 8296 characters]
+7if+7q/+7zf+77/+8Af/MI//MRf/MZ//Mif/Mq//P8QEAA7
}

set pieceImageData(Alpha,55) {
[encoded data, 9760 characters]
QQ52kIMBAQA7
}

set pieceImageData(Alpha,60) {
[encoded data, 10675 characters]
F9jAB0ZwghW8YAY32MEPhnCEJTxhClfYwhfG8HwDAgA7
}

set pieceImageData(Alpha,65) {
[encoded data, 12078 characters]
CAA7
}

set pieceImageData(Alpha,70) {
[encoded data, 13054 characters]
1V711XoJCAA7
}

set pieceImageData(Alpha,75) {
[encoded data, 14091 characters]
5VzW5V3m5V725V8G5mAW5mEm5mI25mNG5mRW5mW+5IAAADs=
}

set pieceImageData(Alpha,80) {
[encoded data, 15494 characters]
R/u0V/u1Z/u2d/u3h/u4l/u5p/u6t/u7x/u81/u95/u+9/u/3/qAAAA7
}

set boardStyles [lsort -nocase $boardStyles]

###  Reset the images for pieces of a certain size

proc setPieceData {font size} {
  # Stops memory leaking (?)
  catch {image delete e$size}
  image create photo e$size -height $size -width $size

  set x 0
  if {[info exists ::pieceImageData($font,$size)]} {
    image create photo tempPieces$font$size -data $::pieceImageData($font,$size)
    foreach p {wp wn wb wr wq wk bp bn bb br bq bk} {
      catch {image delete $p$size}
      image create photo $p$size -width $size -height $size
      # Sub-sample the image from the relevant region of the master
      $p$size copy tempPieces$font$size -from $x 0 [expr $x + $size - 1] [expr $size - 1]
      incr x $size
    }
    image delete tempPieces$font$size
  } else {
    foreach p {wp wn wb wr wq wk bp bn bb br bq bk} {
      catch {image delete $p$size}
      image create photo $p$size -width $size -height $size
      # Create the image by magnifying the one half the size
      if {[catch {
        # probably better to have a blank image than program fail
        $p$size copy $p[expr {$size/2}] -zoom 2 2
      }]} {
        ::splash::add "Error creating $font piece size $size" error
      }
      incr x $size
    }
  }
}

### Check and load the current piece set

if {[lsearch -exact $boardStyles $boardStyle] == -1} {
  if {[lsearch -exact $boardStyles Merida1] > -1} {
    set boardStyle Merida1
  } else {
    set boardStyle [lindex $boardStyles 0]
  }
}

foreach size $boardSizes {
  setPieceData $boardStyle $size
}

### Textures for white and black squares

set textureSquare {LightWood3 Stipple Slate Smooth Marble Salmon Ed_brown Ed_blue Ed_wood1 Ed_wood2}

image create photo emptySquare -format gif -data {
R0lGODlhUABQALMAAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8A
AP8AAP8AAP8AAP8AAP8AACH5BAEAAAAALAAAAABQAFAAAwRdEMhJq7046827
/2AojmRpnmiqrmzrvnAsz3Rt33iu73zv/8CgcEgsGo/IpHLJbDqf0Kh0Sq1a
r9isdsvter/gsHhMLpvP6LR6zW673/C4fE6v2+/4vH7P7/v/gFgRADs=
}

### to test images &&&
# toplevel .l1
# pack [label .l1.label -image BrownMarble-l]
# pack [label .l1.label2 -image BrownMarble-d]

image create photo Ed_wood1-l -data {
[encoded data, 8479 characters]
kURYVCtkF04bHam0hlG0YEFCR224E847N/ihQ3rlqbQDgAeEAAA7
}

image create photo Ed_wood1-d -data {
[encoded data, 5734 characters]
ZYD5WdQUhfzqMYaBDkyQKJwRBAA7
}

image create photo Ed_brown-l -data {
R0lGODlhUABQAOMNAN7OpefOpefOrefWre/Wre/ere/etfferffetffntffn
vf/ntf/nvf///////////ywAAAAAUABQAAAE/lAtlRCqN9uNzOFZpYRWZTIX
KpIYxmZLIs0JI08mTIJdiaC2BWKkqSGEKslxpCpuKsiftEZTSGQ838bjAeVG
wlxpZFy1nj4i+QIeKcnEs8bCJXQOBvRwrudrXVsccmEZawlCIHl5CAUIBAZ2
jwd2WZWWiT2Zl4KcRHh4kY4FBKSkBXl2jT0fdJmLeY1cH7J3XHSzm6dzHpGQ
p6SQBKOSqK2MW7OfxbF4js7Mr7jN0aiAkKKRpdrXoV2LqrZ2vs7izcQI5j3M
teiQXYh3j9ulw/IGjeWZ4uSjjuG1yYody5Pu3yMsFn7ZM1XKV6h9qsrV4cbt
To99AZ1506jMDiEL/vJCulv4zOK/kY7k4csELtmqf8fEdVNyK+SvkZF+XaST
ilwwinaauXJpqyCohM4QguwHLBKolQObpZMUEti0dhtilZRKcBm7Mh1GjUtV
7Nq6Ov7wBdPZLesttEV36qLUSAw3sVxLepsKNGVKWMailqPrlq1JpcKsPnLm
L12tXpMggfo5iR07eRwXIa24zgUvkj3P8hV2Da3Yc5TQklSFlWlpCx8w4CQV
s0O3Wal69ZTpszJg3ZM+aTpKOp/mz00xr/x3M7HGZ5DLmvuJGWvMphy1VHUu
rGQofJEl1h6J1idDWy1nlxZKp17DhWZR4XTnuA5xRqorEua19pwtnsEk/kdA
ZboxFVJ2cA2IGUWuiafbe5lt4d5790Bmk2KWdRXZfbz405Ms6tEGDSUgBXia
T6eFh9JGWMlkVoS72SaZNonp50OFAjaWX1O+sUdQWI4c1dUz0hVY42gcbHfP
Y/zIEx5jmiHlYUnPpechfMTkdlw9FEmD0oKOJTJdXrdYpNt8tznpwmkLonMZ
Z/5Yx0EXK2EUyEAPNRYjVVEGSIsi7cS4klasBPLLWbC10hF/QpI15ZrUWaTo
eqWFkkkFSP6YyXTRSbnYQ3nIhllqhRpkW1SaceXkf25+ww85ckEnGQf49NOF
Mcup1RYu+D1p6SLNNPcinr3J4xl2Q25GXK2W/iFJjFARveqgjFkmhRRVw3Xl
IrZFFTNqReHw15BRTn2ZSI1y7gUUuHnxOSC74mLXk4fmPlLAmlPe6ipw9jDG
G2j0gWrTa59++Utlog475ES+gkhkue4CpWJQizipkmTX4PsuJUJ18y2BOj4s
Cqz2hjfqmycrpwFKhMoHCigkLambtAGvu/FbM59cF62wnkTgjIy6PLN+GGM7
rbj0vmttQip/d5dI0W1cNCM5TcnbWTmvmloOy5zp9V+mEH3zoFaTvZE5Eys8
h7DuejjhXV/S5zLRA7mV9IzZ7ZIS1NyY7FC1pPiaWU7rGfOf17b8SATV/ZWS
Fo08Riwiyl0qwitH/hbnbQDXk9DokLjURf1XZCDFgw2CZcpHnn8loFAi5K6Z
XJxq3zKmqz3gWDckbVYJpAeO9CzIt9IuPrkRUDdrZmVOJ2sCiJJNYwNnp6m1
yGZUO5nn57ytuP5ZgDH25fDJP8rH5W3aApmY1oHZFfyL8Yn+rEB0Wq0yXGlj
d8wWRjwWKWFV+1Rt7AQYbuiMZHVS0NSixIfPVStc3GoLYQZosRV57XYVYc8O
8NGU8d2lMexomZ5AB6oNGWmBrFgEYmZDMvzYwyjs6MtCRsWWvtmsbm5amXt8
QanoCEUo6uqFrqQ3syHKi0o9OFZ/4LctKMGmYlYDWs5eNJgv2es5hZJN/ufG
VRYFgVBTBnFI/uCHCwEuhHTVO8CaoKaXySiNNd5QSXJGEp6j7C8dbDKXKlQh
KgoBMGlSUk0e5UWRVvFMhh1KnBq3YJPBWQ17cgRfij4GqA1Mw1eggdXKasQt
N4atI3ubR8pgkgU8kLA3y9CY4yYCNYFxEmqki0UaeZC+b9XpP310IDkYgiXw
baNH9CuUH1hZRwGeAg9r5OQIIde397xQIBrUDCACApzKWUdU53PbQga5vhfl
Tkqc0IIsiagj8cgmlOd50Lfm2B0SPXFOWrAkFCNnrjtq4Hxiqxc5VxEYDXKA
V8ccntmyADzHkS1PzckbLbESzQ/cMhvFBGM84utxonAJ6WfcwwSZNrKcbbKR
NYGoQIUidTbLLeMaGnRBu6Skqw7xzka3qkQjSfUSzKnNkjX9EHSShkF08YAV
Iu2cO6BUxnjAaaHB8pZ3goHRmFQknH3iTiCPciKVKWpSRHrYaViWDfRkYWf4
gyKIjIRFrO4pbu8hTj2jJBxGxmlMNKSQcFwVR9sYpoJa0yVIr3XPkGVpdWws
X1Z3AzcFBi6uaykrf+akVkxCzjnBKl0i+dWgKXruWeowFjI+1kp2SqqJ8YIP
gU6zVWaSq09qrYqJggcjqkVxi4gzLOQGoMeQRAAAOw==
}

image create photo Ed_brown-d -data {
R0lGODlhUABQAMIIALWEa62Ea62EY6V7Y6WEY617Y7WMa5x7YywAAAAAUABQ
AAAD/lgUEhNrkCHpnPbV6fCtVFZ1HSVonqQ42XcpMLYNJ7gpoBzuaYcTq9wI
NXOUZp+hq3IyCpeyT5P41JySs2sypQv1iKUS8PURt8BFmsRZiYm8lAOvFdY4
Obs0V4W/a2YSW2d5Qn51ZHxKVYdDV2wTbjYicnAbdU51c3h7Y3ZogIApO5Q6
SX5LcKKAjC6ZIliVhF+bOEdRf0diOBksm6CChDaqvrdCqQO7na54xpqxpced
zKpnhiqZxEQXXdC/vFSgoURTEZ2KiRRH4qJY2bbhhWsg5C1BZ9ncTG+I1LLf
0kH2nBqi7piiJVPeQTmW0FgZNe30BXuFjlY/ahhYCUt3/g2ICAdT/MExcyMi
u41UpsFpeLKDHFjF6oSM6bCapEoQQN58GIxSTTPF0sTTU4mDPZoTfMbJc1LF
zXgnVQZT9jTL0lGSgAXlCczmPSsQQ7xMRKDL1Z3N9g1BKfVYQX9Br97KV9TT
wipIOKqSc4DMD7TPAOfFhBbmn4jOipnl9IaijwlXBmsbVInUt7UiEUckYcfc
XCS14A2l3BJctEZj1OFpoKZEZGdru7y1+HWtDyO+SqJhAW9P2ro5q0iNIADI
O09T6CWOTfGZTj//MiSEvLGP3bxUtR4uOpAZUQgFer0h52ZXiGXbwz0kMDNv
PZ2wLLUGh3AQKpIc6Xn881GR/nh2j8VyUGAYyRcBSYr9UEBjikRGFyIo8dIO
DOKlB9WCgkDzFlR1eYUTWPjdAhSDnzUjRVYMPkVdOc0xF+JvKqLjzQaMecJc
Y8O4V9tPpsXF22kedcVVTVWh9aJaGeYnDpGoNHfXOn+p9USSvOW4HFskStaW
iDGSheMcU1G00GZhWSlRk0xRVh2K56xpTYsP/VibWSAoBdtGP2a025Kz/EXn
aQMoheYTGGJpnG6KoaAAXXylKJeUI/1m3aRfEtSMnWraB1uAYioR2n/RxbfU
WNoNGF0NfzJSQ2HXAWJnkx5ECZo0SF5zY5qf/LnFgmxVqMQj/oyICjSpBYYr
rClZ/oWgmKE5ugR8pIGATaeeQqhhpREmAp2AQ9aUQmRH1pWoWwcZpmM3gqhG
7WId/ioBa3JuhaJ128rbaYGEtirnHKAOuB6b2eIFFUgHstmVTXcUalCESUJa
LHVgkmsKDcStg+uawwZ2W1hwTRYptL7OmAawUiICgYCvKPwtwReLlENor9k7
LWy59Tmob0/gFhCk0jraLp3mTOSyngvYcxyfPP8L5CTiYkfDc8kCtoSgF/+Z
B6bC2RVexSwyxtNZxnasg2VfGFIxbth+UQGpVbcIx1g8UJWcFQQfxbBQhPgU
V6apHMqAPE0AUVx4Hoet7VN6M5k1vMU2BK88bbkZdaBOt1ZeShAgcUYG1JA0
hac8J4/9ynFeZ04xLorSaqHnpqPKK+VW/etr4wmXTWS2UqBdJB8DqTtpgCpt
GXaxwaV3oi7efTH4tN0Oj7AAMXj3jWsd2s4iC1XebmUfC7yGqhDgchTj3EEu
YuLPdD8QAViRJj+vkiPOJvS4BH3v8Yop5qOLjWjiDDQfytlZm4yRuMYJzCDd
gBHXzqMplMGOX0mripnEEgvSve58FFwKF2RlLnRRhBKJM0YCAAA7
}

image create photo Salmon-l -data {
[encoded data, 6283 characters]
YcwBQQAAOw==}

image create photo Salmon-d -data {
[encoded data, 5246 characters]
gGWcFuBASMASg5WQlLII0BFtFMRGL+MnE1ckaBAEADs=}

image create photo Stipple-l -data {
R0lGODlhUgBSAOMOAKqVVaqVaqqqar+qar+qgL+/gL+/ldS/ldS/qtTUqtTU
v+rUv+rU1Orq1P///////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAsAAAA
AFIAUgAABP7QHEMqMdjebDHtkyZ9lXSIXEdex2kVrUbE82ggLdZO+2R6vArC
xsPgfDsdcekqjpC53yyRMFKNCkThRp0grpLEUIIYwrrchFdRTfPABvChfNii
D+hKYH8JAAAYAnwEAwECFH6HFH8DBoUBenwHAn8XjwN6AnoAARl/mgSDA5wz
BJUuJR2EMqsEoKwirRcVja6soJgEBRW7MgYFmJgfjQaaGFsex8fIu8m8ydDR
HgXMyBTOJdLay0ZxPHg3OEYtCEI9J2NHU94mCmFAQwkV5CYE4upxN0UKLe4/
HwkWKMg2xsOFL6gQpjIRwp7AZjegHeRnAY+LZknmLViAag+kUP6DPPYZJAhS
gZIVUAILyaeAyGIk+SAKEGxPrT0CTtok8UuVT1gpVgTlyRPWs58bVChFQWOG
DxUSWu2o+DRb0yhQUTlFZYNni142hpRhSOZHD7NP6hzxUvbcWoboivAo9/bI
kLPXxobxgfCXPh3iDob4sUuvRR1iPBgeyyIEjAm75ige06uSIwCHQBIz1cnR
x0iWOH3wM4tUKMyeAMwyZEEm59aqd7WcpQfTCUEyPn48gUlRyp8CbBMKrkH3
vFChoiInhCo4sQEDkF2gtmUXM1i9Nkg3mOEXtQzfNWQff618ee3SH6fLMQeK
ZLLstxwpe++9mm/54GvhG0XstzFqWP7ABl54cCTEAgGuo48FXwxUQQL8JEHG
AuXMIFATapDRCx7uCBFhFC74oZtpIu6CEiF7bDHKR4/QQiJJpKzEImmLfGZT
BS/SlN0K2WGH1FAd7MhKLrq8QMIWSlk33oYGbfeBRNrRlhYvSGRjTTbHbHAN
Rkro4kN3X5IhzyxlmEEBHSf80l52cySApD3glFJmmlPQsBcH73yAQ4Do4FDh
DIYFyAVkeAxRp1+SCVYCHWGUcycGiR26RZzhYCROHAWBlgktJiHim0mgeUoN
SK3ZKAypJ9BU6mqQUICbptB95soArxhwIwmfDfORq8hR4BJ0uXgG3S+YfOZC
Idlo0qouzv5lViQHvbz5wk9PZqMKtEcZ1dN03GY5S5ajbjUOFDo4oQ575fJF
RH8gSjBpDCOMIeFd6ZY7aRZiZngAG5DedwO/9iRGhhn7pnOHAv4g5AWEFBQM
GA52tPGFwIsAkAtrpzlFybIxZeYHIBVfPGIAMTAyE6cfUaLaBCJqSsvLsxA5
JC8WyFxkMLrgLMsqueSSHSbj8VzkKsBoCY01V5pnndHbJGONX9dMBx7TTUvT
WKT2iNPLXVXMs2cJ7eGwgUUulLntEV1fUMWYZEzFghoVzrEBAhQVrHaGW7AR
WYaACSGoBPxErDY/HiDcMN9lTVHOvYaCgSRriESnR1LGyJaUqv6IcOsaa5Zn
ENzjjZioiYlAu/IZbr3koonMOreuQc+28HJx7JPXTEgjr7QSHS6OTA77CCI0
pWXN0gXbUEVCCW/QyxkYr1UNK9Aw1T+EUR/FE14y0Zh71IT5ZQ0nwKA9WYRN
PAEVGVIBIBoTI1YfwezHX0UB5rvR6H914JHYxIaaHgAMK8IArYgUnJOFYHM9
kwRnPPeKAupkM364ySsUCICV9SZnrWhg7YjTAditxha9A8VnZmcLIvWOZ5k7
1XJaJRG/0IwoQJnGNnSBLZ4sTTwydNoyokQPE+znUjuo0HzQpY80iaVcbmIH
febBnhMQ6iv5EEcL2nCfOYiNAApowP4CmFjFGBQIFRByQbno8KAGNOAa+zqH
2hDEIHyNbYplM+OfNraJERnjRCvaxYpcBCoSkeIyrWoRIWL0Ghz1MTajUE1R
kAKLYMViWkFipO1aEZQdpQ5ITPHKUKIiDLdBjyv1AJtytMQbJnLle6QES5Xa
gyggAsGJ22NBEY0AqMHQA3o6mEFkbsACOEFGC0VszOHSkQX5JOYMBjNUOPIy
mCvAgF9p8IDACuUrMi7TmPlDw2iM0SsUXe5TQxMAN2kyGo45i4W24tjQaLUa
Z+HmZM3oDeZQpKraiLME7Pxfa2xxLJrUIlbB8ueukLMs5ECnn9ChhSM/IK0V
GGVoT0LSqP5smC2asQIsvEBSREuwIRCxK11PBMK61OWecSlBXiASH/mOuNIm
DKg9OwhIhSCkhkmlzzENukYYYTpFNtoDYcA8jF4ARRECQMhPPUgJak5jTlpw
MIA1WhWORPhHUqVkgv+LqstMgxKHss5mHiTBZlLhOg++bHTBoEB0VBizogmt
aFCzEp7OowuMGq0OT+sJlDS6LbBwaQR59ZXTykQQT6JpURCjShvM0bUzeRKm
YAsM2DLE2KjZpUhlyBDdHNUXwHWts1wYZmT6si95DKpwXaMmYtIUqTa9oQ3D
IKAGjMErz9EGaLXVowYtMDq1Uo42q3BVdD7wioTuszWv2pTM6v5ZztctpxGG
UFWxILFcR1r1ZdIthiByIoIepQIFrHDo8qzlC1/4lpHjTYoMdvCuV6JRGTmQ
JbmUUFIpPKF7thwpfev1jy/YRX6QYlT7ApaDOd0vHPtDgxgKrBCyhQNi+hNL
+zJwI9pJIlWQOJbtXCWaQNSTgBnG8G1rFro9ChBjO8OF7nj7G1mo7mWwA4Um
ZMyzYv2GdTBOyQln3OIrIe1ZC7Go0YaMtB9H7VtCPtoynqalyDSGMVlrkg/S
FkRT1sOHV5xPT/izqIiw4LKAkZtTFpUFxT2Tyoar5TdccFSwQTMxHBoMwpw4
xERt1s3z0wuSfCaepaiXW9jxbtDI+/7nFPSoGZRkBSSIQxPdIOskyDLojaHL
zmLE6lcirDRAbbViV9gqoY6wsTiNm4LGJFqsv5Wleb1SSiQzj1eq1gCdqMIc
x4QJeFeWiPemMb3rAa8GgQWfLEUavq4Atn5iuI8YACTgL/wCTfqAsPowlZhk
q8Vsc4LBfJA6hQRD+QW3+bNFtcIBtrIi3KWWElH0CNzwUtLG+3yqcW7H41Cz
c3bSNej/igVvGwtHWa1Y9OpWWK0jMXRodcXOXIWyFERDMrwwFOxSJDSvL03l
MeXSb0S49xf6RsbiGmdpD9eCtQUwYAFojBBlOFShOFAspldUwMkdlUZWQkpv
fjODtl37oGeTs80UuJgnC0NBJEOMpujLMg3RVzPcpafkf7LBKqt4OzpanPeh
YZ0kjiVX1tnC2LewC3uOd4YNUgapobnEEii9BQQjoX15UIq7MyxSkcCYZ9bq
qMGlYFDLD1ixYWbXk5hNWoq/gC0CADs=}

image create photo Stipple-d -data {
R0lGODlhUgBSAOMKAGpqQIBqQIBqVYCAVYCAapWAapWVapWVgJWVlaqVlf//
/////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAsAAAA
AFIAUgAABP7wFGIkIeXYfG6eWDEN3FRimqeZKdqF4kCsLrutwSUEgTDsAsIg
AAgKAUXCLjAY8kgCJJTnWzaJOSH22vtRC9FiwelzNsu/8xndbAt8wqrsHG+n
y2y7uw6nK9N3fkIyF4SFTReJiouMh4mGg5CNjZCGcygmIhlNmpokmWMZM5kd
H6AHnJ2hoDKlJqOmITNCmySyISQVY5wSiDKagxxCFxYev728u4jAvMidxkxO
TAQ80VZeXddLPtXcT0pU2DLb2EHb1FTg0+RtkXqE7XaH8IiR7u/28vb78e+f
I/UwAPKUKsYyg/+UJRpThmDCSA5h6BMBg+Kzi7gwWlQFrNMnDP4gY1zsCGxD
RRAfaFGEMYziL4ArU2JaiNKlrFSFSFosJisImUIAsgBp8wRM0EHfrlUrVHQI
mqZBiRbhcubbEABV2USLBoabwDsClHVh+MbOVk5Dhny1puxNWCU72pWNRs9f
u2F48c6pZ8mfO72PCjnKp6eiYZYWX2aSBQyWrBckbbEMCYrYxlmUVzTblRIh
hzYrSGomMbqzMmHJdGpAhIPL1ifi1FXNFlVaFdjarIZjF9RbtqS70bAp+3df
mTpzhgOqoqMfITlu1ERHMxgkXxI4DYL8KvCR5F2POC/mdHN7dZhjVMbw4DJV
Kfe0Es4xtaxY/a8ieq0SSVp7+pT90f7Ck03OdNTLTJYJOAIKLYFnIGQ86YJH
F1oYAQRS63RB1YZDacHEGBqa4WFydMEmohnUUeHTG3QNEtccPazjVFnj9LCi
U2h5UQ8TMrplToVCXedXP4PMo1dhdu0FT5H5fCWPXbc8I5GUjb0yWZXdeRIS
eyhtV+V6rwQozAwSaJJCgFcWc8KYpuSnX5kVkXbDnCyIUAYRYRn1oRk/XZUD
iFPxiYWdvXl4mzVSTLAFGT8cNQYSVeABXR7L+TJppdNJZwcelcIhxx+c4hGY
YJXU0+UklJB6JCGnorrIknsxU1AHsx6kZX4GeTRrkRKgcgxBmIjXnpmh0OBC
MjQlw+qBq/6RCYKz/aFkgIL1jdCCTAOs8BQ8PSBlBI4VYgjjU98S55SLfYT4
oo5XlCtHWZLCu6kaoV5RqTVg/RHIvubYy6k1oAbAEHmRwIFce20gFEQMx81j
MCC42AGCxAMvs4dNK90i0ZYhKcalB4owYwJ5Xf4Xk0tWmqLBCyvboMJGItGw
5rUy1wxzsXTWIGcBAsNF4xsgfmgoOBN+GEUWP/xsYQ8jpIOjOI9iRZakmt7Z
rhr6uqVFGn+cFWla/Gb9w9aegs3E1wA/KaQ+gk2yNmH4jMrIXWpTXFOul939
0UaojMIefhvZ8k8rjIniGEW01oKrRyWA5sxJTRyQAAL/lanlyv6OL9iJMwkk
wJnlMWw1lWzYxIEbbrVtIRvp1zBqhaHlrM4nINFB/ORxe9hOaajN3fjt2C72
Tq8aiQU0sETZtRPRyMYPhNCWtipvnalXJmvyf1fmAibKXGJny38P7Wdy4r9E
aQGaAJZHYOI0QzjtTIq91NKbcy4kwYrThLs1Uen6dGK3XjACOsblhmk4wUUG
NBGFwDEbcr0ILmBrl9ECuKKhyMBG0diaAWcUlqxISkNEa1GShnSJuv1lhEgq
YZGcoyS7celujPnYlU62GBhyDEswk2HKzISMlv3Kb80YRmhUgbmd/XAlRswW
6DbnqxJkyBo/44FAasOnKNxJN1AsGv52FKih2pxjdkrTA6eUZCFLdWp4/Bpb
IEDFBzReah2DqUs/YhIQ7iiCL0byRfmsM7dSXeIQngGWQz5xPkIOQz6cMIB/
EIarYHxgPlqKlsUQhBqZ5IdahLTBr0CgGZlgohWJ6wzNVjIarMWhXHsx1xvQ
5QbhWGphXFtDcvpAOxolbZZg8wbtZjQOK/yLDjGSwxP+VZauDFMN2YBLNnQ0
xhbCgw33mN7a9Eg3aG5KmnKcZoO2KT+PzdCGtwIc9sDpJRqSLDVjWuKZYnER
OLWsBrCwQbFuBk831bNMRPkQGJqiNPxlgWiy1FHo9mTLVcYGoLcM4EC/lsuq
SedSv0wL2v7ceMaxRfRstxSVL1a4wjpW4o59OWQJC2MeI8lto2p7BsFohUiO
KAZvE5OMIpfBR1W8VFjhyUQSGzeSXYzGBQk6ASjFx5L+1GcDnDwftKJj0li+
YziUMmU1s0k75NxDSNSQ4Bq20s8g2KiXcbERN4jDIq92lRpac8vZ3MJBnwnM
dm0sRDEBcpdT4sJcceUDNrHjok/cUqRjw1h6bvERkOVkezRxZMhykqXFOmix
BCNEmXplGSKC4rI7G4UFejUGy1GgADPtKc6m9YFpcVZ7YJiHHshCDx9ULDpk
Ue1edPCwWObBtbdUhh4hyCJ7Je1TagUEj4TJoq5xA5lp6EpcrMy2TAwaN5cc
ReF1vENN1V7VL/zoKFULQ0Px/I2cetMY805WzpLpMCbWeWSwUKaZIBgLBgeY
abYQcKA2oaSIaKpIDxFA302uxFPdQui5rhabKpqLQk9jV4KxuIb+4TKhtcMd
ROnVxn09VI0TTmO9LGpKJ+nFYB42hkebF499TG8hRXqW8Zr0j0NurCAkQ1mA
ChKfFw/uezK+SYv5qgkDyOl9GQCyUj1RpU62TwVv2t717pkz0B6oww/rg77q
wEoqQ/mZfUkOGZ/jv4CMLQIAOw==}

image create photo Ed_wood2-l -data {
[encoded data, 6893 characters]
Ow==
}

image create photo Ed_wood2-d -data {
[encoded data, 7198 characters]
AQA7
}

image create photo Slate-l -data {
R0lGODlhUgBSAOMMALe3t7+/v8HBwcXFxcbGxsfHx8rKysvLy8zMzM7OztDQ
0NHR0f///////////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACwAAAAAUgBS
AAAE/hChYJYtaZkQClqHkRTWEGQJJSmGgYxflWRtKM5TMFj8hwgF12/wSiBu
CSHphfAkJS1DYTBL7BAmy6RJcrUkzcVMIzIQkmXOwMVbKNDJYDNafdKgx2NU
OjjMdhonYgILBQJHGkRoYhYtcBJiJhwVbVYVEklrR3VVR06QWANrLWuFFlaC
ggUYC1hClHVfOBlHHEw8VhhVLrsGfkaKfJStjhsCh0SngIRkxZokrUWyRkVW
h5uQcZx6UQdrQWgGaxmttKIUAqViNGQJBDcDq8lJM+/R5CWH4WyII1JB3cqg
YTVAwC9e9YhMondJAw1HoRSJsXEg2qlGxcp4YNQk3p5e/pC+jOJEaocoXzp2
jGnlpxiQbAQI+AGjp0iIRXmo0dyFYsYGcAYIWaJExcyfM0nS0cHnU9SCAJEc
9QxqSIgYhAludtIChocUMAVOhGu0yN0vLDLDrSQmQlAZOlw1RVHEidFcE2ve
IWwi4CGsqxPraBWn6YUYSKOQbBpjRMZVE9IEZzVz8iRCKbR4gen0a51UyqKC
OLHE+IWIPHSgZN63tpFhbntaTSkZVIeaoknsZTrGOxinONXwgmEj4iplGfhe
SwBIJIaPaZliVvEmY8+qYzc+sv2QKFl3AGqmfdSjIQYpHPrwjEEQc5zadZ1m
w0Xj6cZVKKJq6fgiTod8cU8w/pKEFn0Z0cwHrC11mBGNlUHdLul40AJgjVCR
g4QvmAAQc0wt0opQp3HTYHXgnIIJFhImVdxhYlGhCVfREFacOz6ZFkQPnjSl
RTRN0LRYC6twt48QR+SHiyBFBdlGR6HR0gkUEyIoDgEYoXBYTXlsNkIHK9WH
Q5HqWMGOFaWQw80UCO4Dxg6UECYGBqbttccNr4W2oohrqoAcPV5ugstXPu3B
xAlSFURMjGXSJEcVWsjIHU3FiUOKI8S8cONX61yJxUFObNBYDEVdUaQP1HyK
SSdBvTgGL1cmQgFZlmDkgyEdwCoOqPw1RsZhmMX4HJENenKSV0X46Y4J7Ljy
JVXq/tWQiQyWveQTOXAcBs4cXWErhAnFSanXkQ098QWKrwiJQ5niSEgFQ/fQ
YtqrG5RASwD1AbkRfMNm4FSUORk2ZLFBVZjRDC2RMyFD42BxFQqW6SXKurEU
VB1D0/igRzzV9GcwZgDSw9YxuHzasYGtNLcHAdid0tQoCBbh2cNRKFXNBKeI
cwhmfE5oF3yNuUeFa9sR9irPBc1DpigouELMtbQwAyS9PzLcnLUzFikGvVpQ
u95TFGhdWtJfmEjtZf1dtEEZLxRsSDooCFqLBfoYoVcUAA9bs4JZV4Lqc1mU
t4Bc2Z22ASCZ7SEIFuYoVXSvtX1ym4ylnqilYa2INSEv/pRKCqoe1IJJSV/R
XIv0CMmEpYNXeelwqqR0q0YD1qUSHPYUXehj99U3pkA4HaTwmka+GUsqIOsY
D4fkFNNFYVwij2FXY+nJ3BBCCFiX5xMB7rnsOWONAXSJp91lNcveTjGI5kpl
lhloJlCVQw9wF6STmCf+yqJSvLJhgATBeJyuNyS7skPyXgewbrUgZUD6BzCK
ZRgSJKF91DjAGezCnwk4bQDvKNoaxtEunkQiGXoIgUdiE6M9mYkJmHBLz2KB
hAVgrxH7mcsUYIeVyVQhUYGijUOYUAH9vWJg7aPDuiowrhhQyQhBgpQATgeH
QBXMSCSRRnGCsER/PEweLBOT/j8qMMTDYI9NVNICUDzAngDoo2NmkF4tCuSy
JfHpUPaJ2MXYQgkflGCDTULdVFChLwjCxieHs0qp2kDIQhKSQYDpioEuJgqk
tC1NfSSiIGSHBEk96Uv+0ls5KuWQQZbDEzvCkRlCUA0GGQwIg0DCAVY5mHc8
BIVQ4s/TKBAUAbROMw0ERMu88pb9TctDroyFBMsQzIwVpAMPi4doQqMAOhKJ
JoU4RCs+hDGd2YBRVlpJa1YVuPVZiQyikQN+uLNBmWEGAQoIyzByYEYBnKEl
ejGmZaTSk0z9BgdCIEkFNwA1L5xkfOnkEndKYkaKkcKWcShaEBLzkeT10peS
GVAi/qpmSXxqwJaUMlH5KskBAjyKAGTUS0xGikFf2GwUrFylL37jt0AA4j44
mELJfOiV3MDHFzaIocFmkhAkOMUVIYhJGpxXDDo+7IQyUol8uOMQcdzUJ2GR
ED0ZpVKRZG+VNjzWKIRqn0ZBTApeEEczF5O2rHhDJYw6jHu68ctd/OyFzaiW
O8qwuBG2rRdSG6jgzuCCF1JrSfNYyjXREL1knHU+K2UPQ1n3pRrF4WxTedX1
GLEO1GBMDMEkGCkfkQ7zYI8N71OLQ0nRteR0jnII0gCVbDCX/vhvqnVQ2URr
dhImIBITbOWdDP44HEe9A3uT+Wx+WmCL30z1VIcyUU5k/nuiOZXkJReDXCaK
1k6hTFcqf+uacSDnBTKoppmGvAhqWjC3L6ruUwlIR608thwdSBRVG0HTdtSw
xP31x51wKaBiuDEOXsgXc/xMbWXdSVlC4haE/CACdnExh2cVoz30vEgd+iuR
x/hPS6ML70AfxYM39CyDecFgDuc2px/kc2HpmyBbJuEGKI2OFMGURUUjh5+S
jCIAv7BBHxyaC4AEbxdhvCF4HtVQ0EThs/o5TfF4iCMJuIeSqlRCAnvCQlZV
rlYYOViVc5MhyeanJlYJ2T1XSslN1kYsbUMblQsy0H96JiM+41KlmCQJhopP
tmNeIjSMs5LLvSYD6mxEfS3A/tqgfrYpOjvwGo4RmYquyGPiPU1TxheLLOuM
dEQcJmvd6RM/EAAqOlFebrKDQdXVBJGxvbO4jGSRV6ElKCp2RElHLIIHfRqd
HcyruLBnGq15rmBPAhQOFgCeLGPUEw58jxVM8zPhZe0PxMwOAg4gDUkgVMzi
e99wLBYAABBu1IJ7WZngtFZMsWWD8JggogNV21g6i8oe+pD/qhoieV23cIng
XM82+E6J5SSjsHGuVPBQkx7YohUkdbYBv5yTUBcQyigLB4vFtoeDlPTUYAUs
Ugb3DTtukgvthkKJKttN+ggMOaciUzd5Bj/QcvoxoWkpjISHmg5obynhUEfD
g4VX/mXz0BALpYuQ+uOB4TKVhzNyoXsp2Yu5QLJ3GpBVImYAABpIs0iECIv6
3vyBKSh0Rm1tqgx+8a+Ms9brafr3O4PY2UYpY+J3+9g7wnPPh+jzI8iT3Shs
OTwJpQVAyt02fM20iums6xxPxqd2msje1t7Bbj9kFROsfS8BCQsU+0PXGgyt
vD+muudYbdASYxAoMD/KdIkv0uPEFqsHriyejXkWy+lj0hURATLb9YKe71RL
DwgAAN6mxQw1MS11HADUJ+O4gkenWR02g0ccLImTkTmMkt1KRhq9+DqC6Y2F
wcHx7ojxXdp0BosBPhJYc+2eS9ggdFlniAepcoiA4UoON+a7bGKyhzAU0Ozo
8VPOlNUyRbJbXoAJFJFRaOAHC8Ie4EAmXVI2f+MhVPE3FcEny7FE1YMDEQAA
Ow==}

image create photo Slate-d -data {
R0lGODlhUgBSAOMMAHp6eoKCgoODg4eHh4iIiImJiYyMjI2NjY6Ojo+Pj5GR
kZKSkv///////////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACwAAAAAUgBS
AAAE/nClZQxCNOAVwsKJEYrJFUrGkSYDYQSDhJkLFQ7WJBsxuiiIyqxFCAgI
iQJGlawNApNEwIJQCJMYg2RSUZFKnV7t8xEUqIIBIlH6UoMVtjZUnBYGbNbn
WUNoCgUUcBcIgWwUIgZIcS8wFmM/IyFnhRVfISByOHIGAnYDB2w9L1ECCwUC
QRRqIxI1jCIXEk8dWpAsWiY8Fpd5JZxrmpY4pzUsUBwTgBMIOBe2vle/H41r
G7MF0cEjoSU0r0HW2S8CqWrGPaaIjM6BH8HSJqKpQd4o2b5wlgebkDOEspo9
6URsCwVECVyIAnQuBBsX73Q4STVCCDUJZwBZSpGo0xRI/kAI5SGgppbDXDbW
lRjAco0ELwfeGXsFaxKID3fOWMoTJ5yqMRtGsFzAMgWMGIc+hGJkRlZCAqEA
SmNSgZo1gNtEbMkTrB4kJ3REIQmRZqdETTE84CKxpRMqKii2MeHah9AtePqa
eegoASqbZn7NAo2DrGOcus6GbcvjatgTHC54sFToLAhSHwm6sZkrmUoUWTji
/P2yw9UNDXJ8hVJBEgdLTnHO/ZNXoltbEopYDsgYbNNnh+F2PmNmmC2kHDKn
HSRDFIcnWq8TQbxRrjqrXjbzPCb0SOsIknMkupRlLNjFQTyJ5OE3ZyOgcrh3
Unu06lx9AGGkbWyjhUd+TIgU/hLOIQgQAB5sUeRzx34o8HLGIZhYpkYjoVkG
w4IV4OGYJUj4tA4I+wn2izWMsMdTGkpUdcIrePgRQIprPKGTTnj0QQkGo5Sn
D3/tPajjSimSpZUMULCAywYBSejdWDkYcMZ8vrVCBiFKSMUJIEFt9IZk10gx
gYZY+nMHS9l8wNUzVTUYozUXeSOET/IU8GJSQTzoZlHocDELMTroc0cmGxEy
Sk9OFjQgj6KNR+aQOwo6hSo8tfGgV8Y4CU+gYBCXSwgdgMAnQJQwRk1RSHLH
RWihEbfGk5Ya5E0z3VjKaRRV1SOQCLJ504ZIXBH0yCHI2eOfLSQUZFEhnriD
2zm7/mQRi1Y8ZFPmMzO8SaKDeIIzWhQkFbYHCc80NWAXN8yBZzOJrLGTd5WU
cOMMlFAxEDMoRDaGFChh8uZuVNDHFZ/ROoHBRwn1o8tHL4D1gQZOWhLmVnh+
GUOtA7pUUTydsBjPLE7Ye9ImzaAQRVGKZPiaL9S1d9LGaO6W1RM6BJpJjZao
s0VwePzVhxr6KAKfMWhZ9EuCkoXm6zZ+VMrKbuisxlh4o/lWoyDzSfjRViyk
MbNunxFTZyzMqFNBvMbuU4IMPraBlAZ96MDYwFO4zdg0/AXlUlyc8NHYi9+i
cAATNV78jAcLUFRCZJZ01dm9+4knEdbhjEr4I3eI4lCk/j1oagkyzTAzQFmf
41CmR0qAcVRnupoA0F99FpnmRjbgxgIcbitZgwDMtCsQG3+eEsYYuxTBszCJ
D8cF225eukh/hcdYkAQvzgFDpbAgRfsLEWe1i2m7RCsVMrvpljgPcKyCwucC
4NYMBr2ToIIKbAsix4FDj+rbzQ3XSkp9FarrWi7WSwIrdMAnPnHiNG27XKtO
kQaj1cliV0BKwnBSpdW5ZhNiABp5VJSD9UALNfzR1M/G5qRsrO8vLjHEBF91
hQtMCAYJEFsLeNDAXeQOZd5pyXxUwC/YvUNFolKdCQrDo2qVDoajcMQw7oC8
Dm7mC5+CzeLApopx9Ksmk1si/hciqAYCoK2C4ZqeJDixFBY0RBsHPIVHklA0
hlTISGzM0OgmVC4v2igRVSoCRXgwP/cFwQise5yZYnERtkRjQjyYzzC4kIpE
iE4ifGzLMb5EOETJgXNw0dVXNsnJ8tCKKGP5zCOmEMq4bIUoCEPGE90QJXmI
xBX3YoaqbKDJQXoHbVroogoWYx4KmEEC6VvP3zijkAC9qmd+qkUn0vemHJjA
QJ9xYS5jJ5pocKIGConGARRSskBS50W62U1GyKQARb4BVExyEi6IshwvzM00
crvFFg84RliSUCPcsY9rylInHlUEXXpAwlIi8zKSVdNVCULZrhbzT150Cme+
Yeho/gQSMtwV53N4DN0ZjNa4VV5MoeuRg8ZE2Ur3oawl07wcpwJAACQRII8V
MJBMZ8jDsqRgmO9TKNUyIAZM/GVBcyHRIhbgRZ78rQJKjFlUHhKloaCLNdw0
QjAZoUiu1aUzSMlZfOS1FdzIKUXVZMxRhVCUv/wtMyRoTUwjk5RR8SReiYTj
MXuDtfL4xmwq1cQESEKTjnDLkaDTCa14kkMJCnJol4HlzkAkGncKJQvn4IfR
aBUV8GwkVbryacNeEQX8PQSWE/VeXy5xVHXFQmuIAA+ICEvay8bNcUCjg27w
4UUvDMM/00MISIG2Cmh0xhrT0AW51jWHnoWoaL1BK3hQ/loNhYZVHhfREXIM
ojotmUxcGcKeIroKLlMEjS3zahDqeBGgepSzk64ITkw5xBIYkMh5LfCHszQU
2weeQjZCCIMnLuGfI8hHcdVEkw1z0D5ruAYnAkqtYuV7g2oNgXaPc5cj12Ug
zLoNa5sgX5/e8wMlVEkJOevkBuhzDQVEzQVFIUk6S2ZdC6SPBg4pIBLGcAZ1
YMWFecvmFWyIQhaiimQB6IYXQOFBXGnEidXcbl1srIR31EO2RlNtI2LhsuoC
RVCtreYuK9GwhLL2H4Rbn5OhhiBFxIhgLRkEXGIJ0hWs0ky+7MDcGAGQMKcC
zt6piFCKNSerFEI3+dlJKHjb/uZkMc44VdkS2xBAj9LZwrZQvWto6nID5xhu
wqmp1FmoMTQ+Ds0X7whzIArRBgpskyMVOIIcQlEEGQi4XssSHpqAW9fM0EpC
pTpI0sgwguHMEDYKMVERqhCRubVEXyRRl9yUVMYzyUpnICBcldxzmxz671S2
MJMopKO+A8CDFsFks60vx53Z3E5Pfg7P4pKwkvg0GUo8bgHR7vpbAZPLy2ni
9Z1LVzGwVFor5SNforAqUIyOi1Et1hIKr4gkdMtNpCnBNbVQeCgI25YAFkXq
1WRwsVjNED2b7cOC8zGDtlGQVNzxkWfHaJHehoc2ZZUE1mxyVaSWg2SBoE9d
emuV/heUTnOsNZQT0UNP+YzISb9sJkhBPKFrXKuzwisyazOUCaG8giaQZQMA
GFmtz/0DKJvR2ZhQlGeVUvMlU3eQFmw7pkyMS6CTQ+186mJa0eQi1S74z27D
erE4VO6JoUkf91IUmKnNNc0GFQ0+MpOz9kZpNAwao0OqCq1bgSMvstSLEZq8
vRDYNlLaaQ8OoGoJc6IMa43tBhw8kQVgCIHEcnJEubaQUwj1pj2um0wLJzzz
XqOagHph7OuThfByuOM1DcpHagpyALVsJO+6kZBqhly2XEhzi4gHZ7a/ZRia
pOZXCXGfYSVx24foeEOv6NAPDf8EyHbAHVc1Amflx4i/IruZv8IxMGWGJHA+
GAkihWIACkAzzNIIfQZaA2EDI3YBEQAAOw==}

image create photo Ed_blue-l -data {
R0lGODlhUABQAKEEAN7n997n/97v/+fv/ywAAAAAUABQAAAC/lwmd2mo3th6
Es5IM953CoAAB/BFTfCRRwSqA1gGJLic6faNBvgyMzJovIA7WUn00tVEgmRT
Rsy1jkZaMPZhxK4iXtO0I1ZhwAckeBVCJUwvDo3+sp/B2gKpDHeiJl0OaIUH
KFRBd1eTkIJH12Y3eGcDIFnohGTYU0c2RvfkhpLWF0eExCVWF6RJlPa1hkoo
NATEesonyvcJteL4tQq60sTgdDprWmaguJgUEopr/CcpqLxlyHkyI0MS+0kj
iUJmedySbWzUAO3tMK6QUpN5bN5tSQ0l+smhF56WyzvLaGNegpUVW3F4wDFm
LBu9BKRK8dI3bM3CVg4PCgCm7Je1/oQwlpABZMZCsBYrsjUZeNIMnWPlVEDr
ckVBx46cunRCJilmGIZFyjA8yRBaQhl3wD1oE01jEYVEyYUYgUgpUVLdMJTb
wW9N1ZUYH1xlUvAITGKzvAkU+A5iuG2Thh3cVsJXEhopuoJ61wLNryw7uuRU
RBTbr1YBvMkc03fqC1J/buKx2Zbk0jHgpKgFNDbeVLApDbY7zK3LZllYrX0m
baUTmKY3I4pZ2bZrwJ6P47koeGKx4XNIXmILVupoG3ZVsfnVMqIbV51G48p8
wq5ZFLoseDwPp/yVhV6voP5wNPYVWXi5nIXXOB4F1GVl/B7/1tarJU9+jS+E
Ri3jw/WX/nRnZ3GYRn/l5h9YABYhYGorTCfGN2ZZIlxsmcjRjE1G+GGcSRPq
5NVirPBkTwUDirbFgPhoVJI9JAbyUTkXEVgMjBjpVEc1bkGk1GXNZCUXP1uB
Igcc1XBWEDik3aVTSjOGUFmNgpz01IHZaDZQG2UcImVyiqU4W2E9MvbPMt6I
YB8/5iz4BZgurWngULZI5cxdRjlhD3qntMOLkUQFw8tpiNzo5S90nYMQQUMG
OeiPaPZiR1wA+hOFlkrK2NMIXKEDFlghpVlhGoP2oJ4JJOaWxWMhZIGhXnOR
eo0ekrkQ6hCCchPDJKnJWqorAkElxYVDQPngMhjBJIohGu7p/lmcC5qSEkiY
9NGORWp8lF9TeTwpK0ScHPZIY+aYsgu3uoizSyNOadhRD8Uxgs4FIAqLnUKM
lOUKaYui5U4/SmkhlzvB0bKvvbU8FKRP4fQDS8FARiomo7Xokg5gLHwLnrLx
PhkIM5TwSui45P3QLHTiXIqJliBLs5aJECi0mJUvPhGSwfcQVjJLy0Lnmmrc
AlMeQRUJGcpf9BTWEHvSgvdpOqo8KyS7t6S1TUloIYonrjUq8463Zz7tQEtj
vkTOTKdaNeVuP3Kj9DRFKAm2oOUIduVTkjnS3tuKTnDNrVHZlJgFV13l7CSn
IUws4M0qSstQ1qnz7ZtzdcK4mXAt/mraSW2B8SHTspVtG5NTscOFHXPbBgNv
Y7rd3h+CCUXFUkhpumqhneyzYnbeXTY7N5+znrppDl9iOb+Wzf57tq3txXJT
tR23LDppNmKbTNHvN5tuUvDWF/Mr2w4kfwbQLO85y61sB/h4c8+wnd3NpYPi
V2MOkWixsJvKkSj6AEndvBGrCHJRxpW76HkBP/9IhqrmVJL69OMxXsKMUwpU
pygFxlOp2FeLHFSqDiBjRvTIB0MepMGXcFAdARHOh/bBocWAxErJoZA2Ujgi
ZMHjNZ5IWOI2pQrg7CgOKlHDXVbyjmjx6UaeGxiSINCsRcWHO0tDojB8hK21
iEqCUVrT/uMmBDssYWlNW0KF89KyQBSBMVHZkw6kXlOKVtlGclgrBsKq5sWh
8ORhoYAFAlUwHnpxUAwqSdScpGUC1TjDPoX6oaj69BRIuTA7ZNrOKHDxkUhk
yktAJJ6lhPApPFKAfcCbgquwoDcpdLJdpUPVr2KFkpxUoS9qa0RArOPFGdQK
hXow5a8y0T6BuWhtyRof0PA2i95oSzs9Qlm1BBGITaIkFCM5ihSXsL5t9QQt
iMuBt44yLJhJrELt2g66YNaydQDkTvWyC3c62DOEvNFQ6FxmiGhkI4UZERdq
+1OMYqSF29goRsDsWMP0dktHQMGffGlGHoBXiSXiIx6zac7IXwhxSZM1FGIu
iVbU4CG/l30PFjLbA/jmUbUI8ksQX3yXz+D1S44o7XtFc1RKGZE0njxkHE3b
WpDEiRep5ctTVaNOTlExrFdE41Jew0kFxVbQrpXteuBAG4ia05KgSKIAADs=
}

image create photo Ed_blue-d -data {
R0lGODlhUABQAKEEAGuEtXOEtXOMtXOMvSwAAAAAUABQAAAC/lSMp8nrDZ+M
dCoQrsxYdhMAYKh43HaImfF9B8WWarokGCggSYjPwu0grWovUi4w0JUaKtjr
qMSVeA8cNBchRprTphWZSC5ZDY6yOFiky94VxifTenY/atEdrXJP3Hz0D3UX
6McAGFQEcYUoJ3aVtiawtjKiiACJFqmQNDgp0ZinASRFcZNFIio1IbpIgzpU
R2VDZySXArJaF0jjh3eS+Eoo+EV7JFdBSUNkbCBWs2mhoZsjqfMM+lJ6MV1l
bUH9kC3IyhuFOzrLHJTrdiq+MLPo0vEWu0TLswPUqu5iBNERy9KdcH3eaUN0
iRixEeKk3WhT4c6TV/PIqaMkRUSh/jgx/hxo1rGSL381mGWcKE0ILXoxwgVZ
NS+UzGJEYI6E83CfLkQCbzEEwnIHz48ZdhUF+KbMIU5YgNUrVubXuadjkO2r
eIaJhnYtRzYF1uLEypg/aLpQJGnPBgQVh6ZNeTDGKy0et6VyxXZupUx3nR4J
d8XSLHxDw364RVjGXiEisIrVakWJRhOrBJ3VtkXIxmSSF4HKGs1MPl9MR90r
SDaYZ8Kmoca9lzclr3r6YudrWq0KXZQTH4AkF1gZg9+e02pCaxKkPbu0PqWL
xFfdC+MmJcqpjIzsksND6nWXi507puVS2Rk5HF1H1kAxz2P5hrtnhEZiIHI/
9lEg6x4W/sp/VnpZfGCsxkuAT1TH1HFmONBIaGSoIdFkCo5QWx8JJYagHQ+y
QUcPVsBTkA3uPIgNhf6FppmBAF2EGGLsnKFYVaQhMZQqQ6l3IIHgGMOTSBtx
QtWCEMA3RpBlTUANkQEdRVVHOm7IDhwuHnMkhU0aMohqpS3TI4wJBvclUchB
IolEIonh3CPHAZmlmDiO5spyBiXIx1Kk6GZlnHlRNRl/P/ai0DqU4LVdi/09
uRZHDQXjGkVOcancNG0iU6Uz3ISJTTzMVcMmhAQC1tpUHb4o3Die+clkUN/B
NtAQMSWVmU+j5WmCiLGy5uaMTd4URUIE7QTaV+D5GBVGdDj2/qdpnbzT5k0E
ZuIqSrOShGOkGn22IlArUctPHKctyO1tW610EhWqiiqmQjPQ02dRnDSoT1hG
XqRbrRFiKptcshl1lZCu2crYtu1h8Yu2XLWj0GNuYWbPBgGCplYqxbQFZl3R
ecsbers1aKgi93nUoGIeVeSYuq61m6JmoXC4W7siYsffHL6d0pp5Z7gcVUOn
6UIxVOhE61lqp/qFa72yHORosCHStlw26G46NJhPwsfopL59MQh1YCiBJnTL
dtJME9TYlYSS4/nzSVHXSQd0Qbt6Z492E6834NPjkIVemR6x0t5DR+h94yUN
0LfhnonM9zcZDpWE6J+rKfwm1D4fz2IgwXUvOiBVHJsMITpAbF7hcGbu4jWJ
UIo7zJHRVO7VLD7AwlZdDsRr8+zuDq2htqbpU2SLzwU7JyEWy/li1W+S97jb
u6anpPJLM68KjEnZG+YedSzttAXWTz9B5LvR7Tix0rpb3o1IusXXxTQtlvY2
9D3OvuyI6akX6WuxJOc/0OjUEMUMo4qtjhklZjgqlFf6g5+fLYRo4Yse5rh2
jm4AyxbcuFREQqI2yUEnZ/phCqj0YhqqFW9ZnXrOdrrAFYmxamKu6orbYveo
Cp2gAAA7
}

image create photo LightWood3-l -data {
[encoded data, 4453 characters]

}
image create photo LightWood3-d -data {
R0lGODlhUABQAIQdAKyKZLSWbKyKdLSSZLSWfKyKbKySdLSWdLSSfKyOZKySbLSafKyObKyO
dLySdLSadLySbLSKZLyWbLyWfLSKbLSSdLyWdLySfLSOZLSSbLyafLSObLSOdP//////////
/ywAAAAAUABQAAAF/mBlHeJBWpU5qqaTogeKZlXmHDea5vGJq4/e6MZiVUSlVep1ZLacFgth
9SOZroGrccmyOAgHDVVVIUbBsWkTtzO9YuU3uLLQTq+3iQlMmBD+gAd9fIJaK2IHDyV3PSJf
NXEZBxAWASIwZGV9CAQXg4V6LQQVo25+I1J9fn6Dq3VTBA9/VxNLRw40KTZLmLUjRyS3SDEI
LidtUTEuN00uwxacemATdQengzJuR0NPkLk0uLgZ4zTlGxkbGwYbFRsc7g0cHPEcDAzy9/YM
Gw0NNfHqKnA4wiEXQXny3CEcR0pQBQQPbdFQ4G3NEQM02JAAty2YtiZvBEEkBQwBRG0Z/kEG
W6PlY4qPByQB27iRhgVJbGrEjIFz2UsrVkoVOmKppdFmcTwu+wXhmBcULqCCg5BkSAkHxqLc
cAAj2QhZK2L9QBGkCNUcMICRGvVLQpwj32JagosDHBxIaUuElJJoxARUV1bocLSLaiSkt3yW
IVIO5BHDhyEFcHbiF7JJeF9CXQaHDbObVpAojjrYpw6oQGNkcwEuAwwHD7xeaYPY2dKNw2ro
wEoiqrBJMV/K5DZ7xxJjzEQQMHbSUJluxnB7g2AD3Th23qo3xnWTqhdebyoUxWmFK5YauB4L
LOesHcMmMrGfO2e94vz76dDNH7fv3D4DCmSgQDoMCNjEBhTF/kVOOQwWNBBczaTHDSRqVcQg
OTXQtyADRDE0jiUZ2QCHTD9EWN5dGwXgWhw3nTbDYOh9AyGG41CVQQAqjnOTeDQ0NZZeuGGG
CRGOuOAWCipW0FR6kOTQI3rqxVSOCTmiZwlkbkAGIw9bwbGaGjti1sRcmDFkjErNGFSklCoU
dUuJKy2xiw9sULKNMzZVIIFrKto4I2tWuGaDjzIh8ZKN6dkwmYdK1lCdDscsJkxUB0xG14Eb
7ENBApluQEGnoO7Tn6fpgJoABQDYQwEDn+5TAKobAIBBAbSKGgGB4xRUkaPvvKNffhmsWkCm
FDSwQQEMGItsOsOKmp+u9ylQEA3s/mTAwTrtCDRQLukQJFADNHAY7jcBuldgPRtkAR9DT1DH
I7s1eVPXTmVIkktMN5B5Y4rJBEevG/BakgVO6D2R6DC8ZfXGCANboAcqei3h42yV0oXLTqBB
TMVxykTxFhGN9FBFV4YCSVsSLAqhJ2BkpJVNxT8wU9w2bz4HqRNIoDDKm3dZRoQDELEicmCp
fScN0by4ccJyB1ygDcTB1FKVzF0JkgxlJEwjyAOhrFBHHXxdofUC/WqG8Ge+uFG1yDeoUYEv
MhyhBxNjTBEENV38RLQJc3sMB9B5rcR3IXv8ModFtCjz3BdFv4TG0EGdgYZYezjwcNIhY+IQ
KWEHA1m3/thB6FswZlyikQgIVJGaNdYAuZKMjvY3YIGlaugoF5KQCZeu67UjrbXG2pOpPa/u
g4607nRLYTulGo8fheMakO2FC14oHiQUJdkYQ9IjJNAR2L2TbKkCUCBAqddlOF+A57g3bfXV
W2hd/DJi+P66720vvfQkIAjXNw7Kj/zYgSAGtc9R5NgAdeBXDndV7wb529X2GKKAFGUHGI2p
lwv81MDrMAQCKgLRgpKEGUqM4wADyJEEJhGABTpAYN2ZX/3mF4fkNEZKTuIR717ooQ+xhjpJ
spS9yBFCBWagKUfUTo7gpyQM7SCDR3ALBhvFQRJlwC1DnAFDVigCFckgF+LQ/gUqsnCzGkDg
HBd7kkyWIQkOtscFi4LAkhzYG93URSriQYWIuNiXFpAAR5VywJ5wuAKsDONEKvMMGypxCT0Z
RwlJE0EuABOEIFgGFRNqAdRe5gYiEaeReKhCI0VAlUz4QG97EEKlbuQjwTSykC/JmTYagRwU
OcdLxMlcLP1iiET4UmRuWQnL/vijUCqtCBrpwWeqMbhfsmyYIsuCUYAimMcdYAGxaabHqBA3
waQyEWWZgB6kwZeHiWwMe9PANwNzt0ToQQNkC8w0yhILrdXzCuoMgwa4VpYHqFMWQcAmOPNZ
CDB5IXHgDIU0zACGslxBFmFQmzWySTZsSiEIk4sN/tiKsIB/noFrETWBQ43iMBVYgJ4RtQAz
RWpJiMJTLPEEKUejAFAiwJOfEV2AQAvhzaaUgJ9oCIUziSabMYxhAv6cKDL3edJ9ynMEGiAA
2R6gUYyWJQcS6NMKq4cBdCxwQXvygiWg0a9e8s2qsXhANZA6hZN+pRDZpJwKGDQADNj1rhuI
AAZihQEK3BUDEdArAPKaV3QMYABfDYAF7LqgsHCNZfmUxU9+8Yu/DSADdtUrYF+FrGLRYx78
mEc/hLePeqDLUxSIAAMCq9e8JoC1G+iqBy9WqUVp8YwD2EBdAZsAwPZ1eLV7ED0q0IAE3aNb
6KgBQhQij354igHDqgAD/qQX2noQN1lHoEi2pHtdBTBAWveIx3TtUQHpYTdBHNBugsohvdtl
h34GIG95ObS85WXAAHGikPbWw6HQ+Q4+4IIeQ0h4IwHfCz7bbce2MOKoDZ5lYAi83Tek9w2D
3ChA7c1u9bJXYS98qEbkiAmD1dJD9zLKXjuZSwV5JDAGa2+EanSUhm60Cxo7sij0GuKCdIKD
8cxIfiFqzH4lsKOUpACEWNGjkkzgFgi8cJXhmBeIymAJrEwmGDNwZMEuyMAtPuclVK2En9oj
CS6qq09wuHLOXkJbj0lSBiMYR6KaUkqZiKg3okQmGyajohXyxFEm4JOUnpPMk77gDrm5hRO1
/sMaQxXhJ+pMDgskQGdIbNU1QsDJjjjTmQMcyY8ge4sSnKIWqIBpJTwY2laq80In40Ka9cqy
Y/4YYtcQCQdnshkOwOCySCUBByOYQ3RQIMeC2egmWNWTjohIna1sszxE4PUavkCEWiCasjFj
XUdEqocqV4obVzryhxPFoOO0gSuUIQICnumRUTv6mFyZgdWYHCIWxgBHjpTzFYFzREcZpnpA
sYVwQmNGMTGwTyDOkRwvm8QlIrbhNSId9CQMlzA+Upkd2aAubgCBPYljq1d2cppP2MIWgpAS
WaWxjmd4GAk1wV2QOGOFHVAt69iOYJVo4/+SSJ902LVAe01ABkbV/r70wU/mEU5Bpoo3rGNR
YFWu6hR0WaWp5zIgAc6aFXCHp3Xj0e5YAkAWrcY+dgAAoABnTxWtKIB2tkdAPCEMBsl5pJMN
JrFGgMbJh3kkRxwhNgBYvCKNQRTDu6s8RyI8IQObuMCYLxqBlWjROChNjkpcVo5fZTh19kTE
K16egSAcIQIX6MDquOVKPRI8depSIxyBmBwSYHgSIYBY2avwiNRptlz4dETAX7GJCLxQ473Q
7AKnYGCsvHtiQy/4D/Fd+V/FF40HqW9L7ClHkh88FsXx5NylfgeAvKLAmuLxG+Ei9JKRU5AK
M0MgKh7wcc/CwADvyxVKs2ICi6U0B1bb/koBMeUZkFtDVx89Rx8gkUFMBnck8CDXgyS4cTFj
5Wk9UBTdMQk8Z1d5dXYRYHYAEFhol3YcaHZkhyqrEgFiV1r0sA8V8ComyHYAsCqr0jz6kSu6
YgDiA1gdyAAYICuppVqqtVexxQ4UUXP7sSA2UjuAZYIhCF0AcEWlp3hUti+A9wY+RkZExGL7
hmJH5H/RVAl9URYMUylMJjKSgGyB5oUvFAWKxQLe0QU4sgL7YgKbl3+YplgqQiWqwTASUElU
cgMrtCeEdiRYeFJi2GcdEYGCkkd2iE45J4ecRCUipwUgw1KAkTth2AOxwQOSYElEY0lvSCVp
UTqU8EuhdwV+UuZQsZFN8odJvUQFfPgAsAYxhHY9thFowOAmOVQd22AYfnMXZYFpquQlc8VI
dfECqdgWPzE6fvRIcGQFxGY2qKYZfqRSnaMncKIFOxBMn9EXIQAAOw==
}

image create photo Marble-l -data {
[encoded data, 7503 characters]
UEv4T4MngtMEHB1kFGQ5aa3OmGQdUGUgPWGA3E6QLmAQCAA7
}

image create photo Marble-d -data {
[encoded data, 11468 characters]
AIuH02whIAA7
}

image create photo Smooth-d -data {
[encoded data, 4636 characters]
WeVkAYEAADs=
}

image create photo Smooth-l -data {
R0lGODlhUgBSAKUtAMDDvMHDvMHDvcHEvcLEvsLFvsPFvsPFv8TFv8PGv8TG
v8TGwMXGwMTHwMXHwMXHwcbHwcXIwcbIwcbIwsfIwsbJwsfJwsfJw8jJw8fK
w8jKw8jKxMnKxMjLxMnLxMnLxcrLxcnMxcrMxcrMxsvMxsrNxsvNxsvNx8vO
x8zOx83PyM3Qyc7Qyf//////////////////////////////////////////
/////////////////////////////////ywAAAAAUgBSAAAG/sBIJUKMNI7C
SiajZJZKoVDnQr14NpvPaKRSrb4r1hIwKA8A5EEhkTi62e1GpEBnF5Fu+f3N
1leGfxFRHR0ZE4cTGlRZHygmKJAlIksJdGVoZWtxfHFzdQl7Rm53cKVFfw2B
UVgXiImHFxoaJiUmJiIeSxlsdL0FanB5wUdwRH9DQkhFEXCfoMunUUsUGBhV
F0oeHlskHxsWx8wNpc5xzQV5R39LyMzPRefF0MbSGdTY2IcZsiAguK0SAr1R
oMCAgU3EeKFLt44JvHdEzo2DaOxPPQsXKFC4YKFjBkIfQnzQUEGCHj1GFiyo
I6zAwVJ5GrazYySiQnmnjHUIQWUC/gUJG2N9JORB5LcJfBooSKCSwJqWLvuk
q1jBDZ1R7ippooisAiFsESYAxajBgiwNHbSRFDVRKdMGLN2sLHBAah6qVhee
PPJUWU4hSzpW0AhhggVrijTsUyQhwgK+dZ7GFeXyQLrL6T7piXOVZpJTujJY
kAABgoTRpzF6vNC4Wak2ffYMI/ImITlNmyFPPNWuSWDSD4BKOD2Bo5ILNiu9
bruHYAIHe8fZjtfGiDnYoAIl+YNFFgYKE0w/CP4gbIUJ5/nyEsZczoNxCh4c
G2L7wAEDzmESS7i7ouiOHHAgywbgDefAgcEhQhtc63HSCVtyzCdKAgbZdwBB
dSEkXVue/v3REYAbDPiTgQs4kKBYEby3UoPTKXOXhMQcZCGGdmHWXxIdeBcg
BrJMMN4DBx4oAYpAujWMbQVA6MZ8Vb2h0gEIMMDAfS/ZKEoRAXWARQYcbMCj
Bj4iWF5jYkG335loLujXMiex8eSTBtV4Fx4RBKTBBktg8aWPJQJZ559ybYLQ
JmqixCZtbi5wAJxV2mZMEYcMJ0sGPGJgFklHABnckBPU9F6ETbaVDqELQgPH
AgkooNJs42gCTQPjwZLRYa10tMwhYaGYoh+oJDcqQlcuIyd/CbnKZqzFWWCY
pYYhU16ndTaWInR4+TrqXTUJqyGxExm7zHhEdITIcI2hNNyf/kR8ymRevx6J
rTtoHrmcHEgg2MC4YpV3JayjNPCYMsc0M8Awrk2FkqAKOPhaJ/WaeG+nQ4Kr
ZL//8lqBwMUUe5mptSks5x6wykcEuWwxxepSUj2UQBnydIzVggxPp99USqZY
npkyJ9ymZkh+cgdv81iXh4ol4mwjZrumdATKynXynlZ2neMqfUAHXV2mRxR9
dHSjqOSASooeUAABBmRIkL8KlUNQL/YJEfTboKopsXUZC70wUxjap9wBB+b1
ixqfaEKHhZ8FW1FOMk0r8USsYkeOc/fVRRffOI/9dy+8KES4dtke/qhvQ8xt
Hc89r2FQQRQaFDYDpR24cgBmZJI5/hxSMmCYBfMw+ShgTEA7shGXL0S3Vluh
yvTq46lkgABkYAJMKSpBoNGHuwN9CCDs/NEYOIc0YMZV9ErddIZu2sdA8mJj
4vxWiUpPAfURILdMINfzXgE2w4GDyve4Zf4L+8SbHN6mNLbYfa8PUpFAFT5k
K/9kAEsBuR8Di4ONCjhAduwL3FYg44tKGMSAvtAMTDxEhY5QYGRLkAWnSDM9
WiniK0PIRGSIR0OpWOJ/dPhg7ELYv2CQkCMWOGGdCiGL8xwCAkHkiAa+pI0l
RABwr+nFS9AhFeIBThOZKAPjYAKTkR1CI+/DHSHSwhqguG8jWPDGB0bywP61
CmrEQNVL/qqIuQAmSRgIdBey5BcBQsiijJ3yiQU4sEYQhEQEhcjKbZwxxQ22
SoO9gFAwZhYyWBTBj4zhVAUwwoF+jEAEI4BCBy62sOANwxm0CeE5JJnHURGE
CHwkxBLkB4tq+AMEJzgBCp4QAlKqAXDrI1jKiHDDHk5MZmeq3iASmasLVIMD
W0jBIyLRATakQQ3BrOIwPQFF7ByzZtlaxzF4KYU/LCJAuDxBF8DwhQRk4Jpn
SANu8NiJOobiXe1gSxLYwQ5yTqEKV8jCFtYJBjHswhLxlJ2GZmPPUr2LldX5
jCqkUAhXKOICjHAEJHY5iV3Y8X/ukhdNwpEMQw3PFBVJxRBW/rGBViACTMWR
BS1sgQt2iOM2+pEIQ5owE4pQhyLRCME0qnGNbGxjBN34RjgGUpCDtAt8MeHp
Q0x1E89AowL1uMf9jLiYfvxDLFSjjUriQoyoUDJxNqFNcjoD1GNcJCMb+dBQ
QjKSkoSvDUtpSl/KataNbYddyvjpVXXCk1b8JCiKGWNRvKGspOQVLnv11+CG
hRfdBLaqXNHJFIYglvfF4lJoUQt9OKgcyMasMlu7jGbUtNfB8k4whFlWLITy
x8Y8pmmTjOiEhtmxUuImIrrpUG9CM5rSnCZ/qrFABliTFQAyZ0HOoVbJZAa1
iHKGiu/gnG9EAxzhEMc4y10re2Lj/h74yGepjLMPfpgWNf7YQTvz6c4SwSMe
8pgHPUhhUCXo+aAXoTd1M1JAhq7Foewq4UMBEpFYJBCkE0FLPft1kItGAaNx
yMg+NFqoew3MwC6JiFxfM9EKd7WiGjXjmOtykqKiNKU4bYsPvMnREnfUox8F
yQFDakyRULahNEEoaG1iiqIYNSw8mMsrW+rSnoBkojGFhcEuGxRWHvozur1J
US62Ep3shKcM6KnGfXLAn8qVtTiEalikMlxyjLeqlDnKbUSIlAQmValLNUlT
w8FVeUG1GTnVSM3wukzUmvaqPc7KGre7VSB19Z5qZUXQ2DJpkQftLdrsUVmH
wbSzwjIy/mkVqbKQbVeRHxIvSls1XfoSl5zLBUF07UqlAePFwLRZ2jnBYyAe
08+V7IUvCegLD5+iV8WogjE7aIxmt0bTFhdm5AjwGmI++jXS/IWVQMCBZTRx
2ZqSmeuPyU1k0SLzOFDlZqa5SHzvQAnn2IQQovVta4Vyz834m6pzkw7dblN3
PoVFL375692pnUqjqW2kpiHhaTxjw9oGdwA4v+1VhXPD3JA2MceUCGz2GVvZ
FJ4wcndwdgxvuHbWpN19OkRTv35NTaRztwXkTXIJoJzfZCg4zbWNc4YqOehs
xm5dszyKkNv45ABuOZrPjg21S/RVJQRnnvoOUHWkJ+ZOdxCD/hhgda1zwOtA
+JrotRB3Dj9c/XiqvQhwDyn8wwO6TXY88yVvActrnjy7vgD3wY+PYkeP/fB3
mmN4T4ZqT9v4oOf2ByiqAOqbO3aOoMASMpA3Tuy0OSdIhT9cUIZ5XANIFylA
lxOQAAZU6BZVihEgClECKdTACu3uwgvA8InAyKDgHMlDDxoAhKp0XBt+aMKR
EZEkiEBiXJcoiyY+0Oiaj4wzIPNLKd5+h7kfvRd90sI+EqWMFDgjRrPACMV4
AoBSXA8di4nFXw5g2Xms0R4vKWNAhuV9hPyAIUOAyAdO8o1xMdkczVHHEEJ0
9BL3AJZEBJgESOjBSZ4ESqJESlFUZkcUgll8NXuRRE+iwlSwxH6zFGfFYUsi
kE67BAUMSA6YZ0NbkUofpxWshEwbokwU9UDN9EzRNE27VE0rg0PZdB0Pwk0i
BArTFmn+MU5QUE73g1HolEsEBQbW9D03aBt+UUx5NDFBAAA7
}

### Process user textures
# They must be of form wood_l.jpg, wood_d.jpg , or steel_l.png , steel_d.png (for eg).
# Individual image types may be supported with (for eg) "package require img::bmp"
# but only gifs, pngs and jpgs are currently supported.

set user_textures 0
set jpg_loaded 0
if {[file isdirectory $scidTexturesDir]} {
  ::splash::add "User Textures: processing $scidTexturesDir"
  set pwd [pwd]
  cd $scidTexturesDir
  foreach i [glob -nocomplain *_l.*] {
    set base [string range [file rootname $i] 0 end-2]
    set ext  [file extension $i]
    if {[string match .jp* $ext] && !$jpg_loaded} {
      if {[ catch {package require img::jpeg}]} {
	::splash::add "Loading package img::jpeg failed"
      } else {
	::splash::add "Loaded package img::jpeg"
      }
      set jpg_loaded 1
    }
    set j ${base}_d$ext
    if {[file isfile $j]} {
      # Overwrite the lastmost predefined tile
      set k [lindex $textureSquare end-$user_textures]
      if {[catch {
	image create photo temptexture -file $i
	image create photo temptexture -file $j
      }]} {
	::splash::add "   Texture $base unhandled."
	continue
     }
      image create photo ${k}-l -file $i
      image create photo ${k}-d -file $j
      ::splash::add "   Adding texture $base"
      incr user_textures
      if {$user_textures == 10} {
	::splash::add "   10 user textures found (max)."
        break
      }
    }
  }
  cd $pwd
} else {
  ::splash::add "User Textures: no such directory $scidTexturesDir"
}

### end of bitmaps.tcl

