Note: Because this demo uses inline image data, you must use Version 2.0 or higher of the Sun Microsystems' Tcl Plug-in, or the Spynergy Plug-in.



# ---------------------------------------------------------
# An animated fish demo, showing the use of inline color images
# on the canvas widget. Created by Hattie Schroeder, 1997. 
#
#  Copyright (c) 1997 Eolas Technologies Inc.
#  Freely modifiable/redistributable under the "Standard Tcl License"
#  See http://www.eolas.com/tcl/license.txt for details
# ---------------------------------------------------------


# -------------------------------------------
#  Creates each fish by creating an image and
#  image canvas object
# -------------------------------------------
 
proc make_fish { fish x y tag } {

set im [image create photo -data $fish \
		-format GIF -gamma 1 \
		-height 56 -width 79 -palette 5/5/4]
.c create image $x $y -image $im \
		-tag $tag -anchor center
}

# -------------------------------------------------
# Moves a fish from a particular starting point with 
# a specific time period.
# --------------------------------------------------



proc move_fish { fishtag period place data x1 y1 } {
if {[string match *r $fishtag]} {
	set x 10 
	} else { 
	set x -10
	}
for {set i 0} {$i < [expr $place *$period/10]} \
		{incr i $period} {
		after $i ".c move $fishtag $x 0"
}

after $i "
	.c delete $fishtag 
	make_fish {$data} $x1 $y1 $fishtag
	move_fish $fishtag $period $place {$data} $x1 $y1
	"
}


# ----------------------------------------------------
# Creates bubbles for specific fish
# ----------------------------------------------------


proc bubble { x y} {
.c create oval $x $y [expr $x+10] [expr $y+10] -outline white -tag bubble$x 
.c create oval $x [expr $y+15] [expr $x+10] [expr $y+25]  -outline white -tag bubble$x 
.c create oval [expr $x+3] [expr $y+30] [expr $x +8] [expr $y +35] -outline white -tag bubble$x 
for {set k 0} {$k < [expr $y * 100/ 5]} {incr k 100} {
	after $k ".c move bubble$x 0 -5"
	}
after $k ".c delete bubble$x"
}

proc bubbling { x y period } {
for {set i 0} {$i < [expr $period * $x] } {incr i  [expr $period * 15] } {
after $i "bubble $x $y" 
incr x -150
} 
}


# ----------------------------------------------------
# Specify image data
# ----------------------------------------------------


set leaf {
R0lGODlhEADIAPcAAAAAAADnAISEAP//////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////yH5BAEAAAAALAAAAAAQAMgA
AAj+AAEIHEiwoEABBhMeRKiwoACGDQc+jEhwIsWFFzFmtHjxIcSIHjMC4EgxZEeTJUk29PhRIcuN
KFe+BMmypcOaNHHKnOmypk2JPn+ODLpTp8GgQpH+VGqTaUKlT5FGJXpU6lSjN3321HqVZ1WsWb2G
jTlWZdmcZM8WNTs2Zdq2boVWfBv2JNu6ce3KBXp3bl++exf+FRx46GDDhcVe1cs4r2O0MAsbjkzZ
bmW3l3Nm3rl5a+epn7+GztoY8uOtg8F+Ta3YL13Cfal2jc11dlLZZdlCXa0asWqnuckybTk8eMzh
EJEnRw54t3KGz2FDfY6Qum+n1rNH1678+vTt4Lttc2c+vnh57OHJpze/Hr349t/fy1c/n3199/Tz
2y/unWr0/lx1J51sAgJ4HH8DYsVcc7gtmKBwwDEIVoQSpkXhg03t5lpvGm7YmlW80QVicKi15t1a
tPUmHVp/1dZVXIGpCFhpRdGYUACvDRQQAAA7
}

set leaf2 {
R0lGODlhGAAsAfcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/zxPAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAYACwB
AAj+AAEIHEiwoMGDCBMqXMiwIUFRDhGKghjx4USKFQFcnJhR40aMDj9yjChyZMOSJhmiBJlwZcqW
Lk/GXOjypcGaNgviZKlzJ0ycCnfytAhUok+jR28KHeoxaU+hB5fmlDqUatSlSJ0S1SrQqlKoV8F+
5dpV7NiaP4uGRZt2Zla3a+GeRUmTbVC7bUuqlPtWpEy6f/UG9jv4Y0jAhw1XFLx4Y8emTP92pHhx
8sCcdS9Pxhj55+OymPeGrlt5c+mMhBs7Rp068WqSrQuPjjt7bue+t2nnts1aMWzfrl/Lrr1VuOjY
dxkP3w0aeXLnuE8fB05a+XPouok3p37deHfsxcH+X+abXfp383m9R9dOvjxzyNzTa4evfr3q+PLv
10/fez/u/uhN9954/vX1GH7VDUjgfMV9VmBynzUVYYCwReiRhQwqhaGCPW1ooUYOdhUihh9mSNSE
Jjbn4INPsRiegtYlSGF5v4n34owLIiZfgWTluNJ52GG1nnNetcgVVSwhCZKSSyp5o1pMcsbkdlZF
yZGVEGFJH5Zcdunll2CGKeaYZJZpZkxWUinklk45+aRcSNpGnlRDIqimeD36aCNeO76no4Aw2jiX
aSna2daBOD6HaKI6EYiao4tBSpKkIVEqE2isYdrYQ5lqppqnv4GamKiSifipqaGiOqqqga2YImSJ
rhZqKG2EMmpkhjHK6GJ7ctrKZ53LEfere7Wp1Weied4Jnlm92snsrX9Cm6ue0VI7LZvXrtksgtpK
Wy2209JJLH7ibktuuW/mWmS6RKJrbbXrvquuu8rCSy+40cbp7Y/75quvvH+6CbB1AtfL78CxFYxv
wAVPiXBrDht88MI6RkyxchZn3HDBAQEAOw==
}



set leaf3 {
R0lGODlhegDIAPcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAB6AMgA
AAj+AAEIHEiwoMGDCBMqXMiwocOHECNKnEixosWLGDNq3IjRj8ePHjmKHNkx5MGPJEGqXGmS5EWW
fhTG3AizJkqXFW3KnPnSpk6cFH3yPGlRqE+gQYXKTGq0JlKJMY0uhdj06FOqAqVObVj151WHQ7Um
HDq2q9OvXAuKHcvQLEy0adUqbbvTrUq4cQmuZYuwKoCzeLfqnUvXoN+/bwPzPWk1b1atXhXLJTs5
sWPESiNLHni3r+aFPAl/3oy5peHRfL0SJj34pmfLYFdWRk2682uWEe2CZF3XNGPcXHX75v17+Ozd
bYVTJn7a9W3bxe0yj+38efXWsKcXRd6b+/GoIZf+a8/tvSz0x7hRih//8Lz56k6Rr2ef/Pp7sm87
z6ffnarv/PrxN5FsOaVH4F8CkucedXdZtl+CzZUXnIEHIgghg/Z1t1t2D17I2YIahsehh+1JGKKI
wOlVknFwgWgdihVy1pOJLbL4IngpqjVjhgLGl52M29HYI4G0dfgiieg1CBhRTAlJH4A5MglVlAlC
GWNfU1I55GGFnajlk2aBdd9eWzbVXnRcQthVbt+dZSRzaYr5oVg2shennKUd5aSdZkKVpFU8gkkm
hpntOR5kykl1ZZWJNjpnoII22mebSGInqaSVjnnpmpm2uemdlYKq6aBI+vXplyT++Oepb0a6Iav+
qGYKq5WtejjrgbWmeqttuV64K3S9qvkrZcEyeiuWnYI2q2DJ3igdns3CGe2h005XbLUiXYstTdvy
pm23HYFbm7ibfUtuUOcqZmSswpKKrLOLuupWl3lyWqaj7yZ6L6ZE8cvnspbqe+ivj25q7bAEe4tw
wqwtfCxx8frnMJyseipdxIENW7CLEdaJl8Nh+QsxyAZrR/Kl8p48b8oqi0pxy5PKSnK6G38KJM0d
45sVzi3yjJa5Pl8WtEtAD82s0SMVjbSUMguskdI/o/x0sgCj26nGbFLNMLRXY01v1wh/3bRqTjOt
dcz1oq3itMLVXGS1joZpNtjKua0l1BlLfSf+3nlLnXaMfPft92qBC26waN3Cuiqv4C6rmsXufvVw
fAGXXaPjPiqu7rEtS8Z555srDnPhyp7698ShHz466V6ubnnUKi8usuELV64z5LSNuvWOy5U8oet1
53w7ocA3hrtuQI3e+uw0xb4880/PXN/D2aL+O/Xchl1i7VOfDn3pFNr80vFyD7gkvLkL7b3L2z/7
rNVopt8k8uuze/TLApef9b/+2sv1wOJjn2GMZTrZcUxHBKxY/f4HwMmd7137wpyqEJjAXZ1ObPzT
2APX1q7aTXBnvppZrFgXPRFGjIQZ6dz5UFhCkHmPg2Mj2JJYmLSJOShaJmQcDl1IJLjl0CRYNMTJ
D2cSxOR5cEPnOpmFkuhCnDWRZ9pDGvaWpsClxU9/VlxREWm2xSRmMSVfzFYYOdJFL46xe2cMVxrV
uMaitHF8b8xJHOdIR4jV8Y54zKMe98jHoAUEAAA7
}

set leaf4 {
R0lGODlhGAAsAfcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/2WGAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAYACwB
AAj+AAEIHEiwoMGDCBMqXGhQFMOFohw+RBgx4sSGFSVeFJjR4kYAHT1eDCnyIcmSEE+OPImSIkuN
Cl/CTChz5sGaNgviTFmTp8yYO2kGFdqTaNGbOFsOTJqTI1OXTzFG1cm0aVWoQ6kmxZqV4FWkW8F2
9RpW7E+uL4EeNctS7Vm0Kt229RlXLkmGa43exZvW5Fy+del2nNjX717CIT8eXlnx49LGjkEqRSyx
KdCljjVOjvk4slPLPj1njDw482jFpTcmVr2a8WnXkCmnNvxadmzatwHX1p2b92a4rFv77q2XONzf
WoXbNc6WefLZy52TXRwd+ePA1WHvzi5YefPt36X+f8Z+3Pp47+VBT6deHHx47eKvoy8PX/3z+PLd
Aw+ufz981P2hZVqAZpFGYIEDmieVfVB5JhmDDYoGoUsOSlahghQ6iCFSF1YIEkceTkjRhSJKpeGG
yRmI330lstcdgNB1h+FfMiqYV3jijcWii/nRuOBbPxYWJJA9EnneWFXlluRtS5bUJExPavZkkVFF
aZGVDmH54JRYdunll2CGKeaYZJZp5mhabrkklVlNud5URyKZJI48fkWnfjq+Sd6QMdJpW5/Hwbhi
nIKWeJ6KKB6KqISJKjogZsFBypiklFFqmKWAOQWgpqqRpZinnX72qaihPjiqqaUO+iGpI13HqKGH
472KqKHz2VVoi7X6VyOEQrZ3oJF+Dvdrr3cKG2CebPZX1p2/Lctnrs7uWCuc0k4bbbKAqkkstu7Z
We183uq5rbbjhhvntnM+u2e636LHrrjomktuvNSe6+O8xK7Zrnf6cktdk/sqBzC8RA7sr8D92iuk
mwovbDC+QDIMscMJS2zxwxcvGRAAADs=
}

set leaf5  {
R0lGODlheACvAPcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAB4AK8A
AAj+AAEIHEiwoMGDCBMqXMiwocOHECNKnEixosWLGDNq3Mixo8ePIEOKHEmypMmTKFOqXMmyJUE8
eFy6hIkRZsyGN2VutJlzIk+cNHVm5NnTZ1CFP4UOtXmR6cKkH4uWdFrxKFKqHaVOtSoRa0KvO1mC
BTm2ZsuyHtFS5IpSLc6HbJtqPen2Kty4VefS1cuw7kC8a3X6PTgYQOGnfPfmhQg4YuO9ib8+fjkZ
qNLKCDEb1mxX6GHKjCNbviyacGmBn00r3XyacmvOmVuPTI36tWyDtEPC/mv7NujVrI069s0bOOvb
h3f/Bp46ufLaxo937b3YONS7w6tb3w079/PZ3GX+eycOHjln2rnLTxfvO73I5t3Dk38Pf7j5+brr
h74fXXr2/6H1R9R6AGIX3YD2JRigT/RdBxR77AWWn4N9xRchgxN+pp+BXdEHHWI5hVcgh1Hd5BZV
8t0lWlHfFeRVUCcelaJDfrGIH289ORVjiBaq+JZrS+UI42Mo9khjZTbeGByOtSVWJIQ+9uXiaXxh
heJfsfFoXpRPAUnjVUKGiKVpWhL44I9NwgWml4aNiZuMM1bopFWFVUmnjG5OWaaCcoLIppSSCflS
nn/G6eeaTH6ZpaBj4mUlf2cimqaiZDKK2odvWsrloYEuB+iiiboIaqgkSpolqV12iuqllf555Ir+
RMJJpaljzXUdfLDOuSeaZLpa1ouGSjbakrxm6qujXOE6bGfEftorqnYmaSZiw9ZJa7KmNvvqssJO
WqyevmarbIXVYqZruKqu2iena1p7LYusgutqpNme6m662pr4rLrkstvpvaeSCuO+3u7nr72anSuw
vsbOS2/AfgJM8KPxHtterLlqixS7yTIsr6ebEvxvwpwCW/Gq4+I78qyB7vqhVmClDHG7JLcMrcfz
yiwywiyPmi/OKAfbcMQ1z2xym0PzW+/HNJemcMGbnQy1xuuqzDOlRncstcY6J91y0VnbiGnQkFpd
KdgTax0101NXPfPXPYc95dhTo/c0mBIn/aj+iUlKZXe0D+bN9N50U/j30pkKXuidfOvpt3Jq1Yjg
t4MzXnhch5udONp6W762upm/vSjnlVvaMcyQNyY5hV9xfCfUtaYOuJyKLxzmz6hfPDuItRdMOLC5
G7U73qTjeDuTwO/8sNejx5344jElz/zybDevps22466829Nv7jzbv5++/cEOe3/92+FL2z35SrvW
u/Rpwl8++22bj7XX6VdPNff620/5zbeTX/s0Vz/HFQ92lhNgARG3QOMdUHvIE9/6GLg/A37PYkBS
YAUpuLr3STB+H5wfB5E0OWfhL4EhHKDoROjACwIwgyls4ApVeJwHyo8pGgzd+NxnwxDiMIb+GyRg
EJvkQfWB0IgsnKEMa+hCBAaQccGb1g5beL7nQa9ZrNPhBKl4P/eVDoux0x0Fufg//2SPcFNU4hCZ
WMXq5Y9fWuyfBRkjujfWL45JZGMbyQbD421RjR08Tx1R6Ec5jjBXyRnkEwuZxwmubo1b4xoUgQhJ
Qz5ScbHjIRJBFjJDRtCFYSRj28YzvJXtcZSyyuFzIkfC6BUvlA7U33jo18dTUm1vQMRjHn8ISsxN
Upayo+UnbQlLIm5yiVu8pCCnh8tjVjKJJETm1opZQ2CKkVr9SqTj0qbKazKrM9r0Yue6Kbx+YTOc
xuNmLoOJzXbm7VdQZCY7x/ikPcIzTI/+iyKfhEisdyILn/L0Jj/r2Ua0xFOccyunMAl6P4MCFKGc
3NZCZUXH+aUwi8RpZcmWqTQ0gm6e9KRoQQHjUVQKdKCvG6leSnpLkKKUkRuzaCqtqdCJwjSmBXyS
M3XpSZamKqczdRhPWehTnFZQpzSV4ksbWTFWplOoGdXouyq6wKB+dC1SVRlHWVccIgITq6V60x8H
ZcZeEQWmQ01ot5iKNK4e0adpjSgntbkjPdbNpd9UjSdFFURewhWva43NWAdV17PmDLCCzSvdpFQX
mjjWc3LlX2D1ulfCTgZBkO3qdAy2wkQ2NikM1SxnJao8z14WtCKl4WCBaisIRQYqoX2jpmpZm1gV
vZahGpQsAe+5n4x562hKNadY1ZhGMHo1su0Mq2gru8uUOmiVW6otZUmbV7+qdbTKXSxbP0tI5np3
uch1zm27y9bZgve8yN0m7+YG3BEdabLDDRzt2Ku2zdp3usUt69nmmF7idhZjr9JVM2+qW+Gi97p4
Oyc+Uxrc98Z3jPFT1ekY7F7lZrVdEu6bpjopoIFRtpnmDbFYWiTiiQQEAAA7
}

set leaf6 {
R0lGODlhEADIAPcAAAAAAADnAISEAP//////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////yH5BAEAAAAALAAAAAAQAMgA
AAj+AAEIHEiwoMGDAgUgNChA4UKCDR9CdCgRQMSKFilKvFiR48OGGheCxOhRZMmDIEOiPMlw5EaX
JllOhLky5ceUKgfilJnRJsKdOXvi/Am05lCjPgsCPbmUadOWRaHuRJp05lSpVa1m1RkVK02tPLt6
DSr0K9ibW8/GNKv1Jdu2aMly5TlXbsK3VjvirauX7l2/QvvaDex2cFqle/8aTkw4ruDHbkkC7il5
MOW+lTNj3hyZM1rNnUN/9hyz8mLAh+GutXt0dWG6V4m2Hrs6bOyxQZfKvl13du+0TVUGx/01eEjj
iIf/7mqcY3OKzx1GV6w8ukLrZYdj3z6d+/PsT71uNwevWzxy89q7q/+OPvz68e3Lvz8/Pz37+u7v
64ePXzf5q9P9d1SAAsL0HXX+IXjbeMvNxqCCDiIHlm8SNmiWchNe+FRyYkHI0oYc+ubhboclGOJb
JmZYG1kdThgXbCKq5dqLr0HmWGE2ohVAQAAAOw==
}




set gfish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AKmo+EewoMGDCBMqRMJQocOHEKlAnFiQIRIVfvwMJGgRCUGBFEMmpCJR5Eg/FqVJ80OwWUck
zVSu1Giyps2WzZr5kWYxp8+XMGXKLHmz6EMqPnn29OmyY06hQ40qVEHUpJ+fTplmjQm1o1SpHaVh
Zcg0Z0+oMl9u/FpTRdixZc0yRKsSqLS1X/E+dJsSbtyUaO3eZftP71HAcsn+natSK2KfbKmGRMk4
MczFSBqPzaw5Z+SQKpRytiy2bF/HistWvWlY4c7HSzGX9ltWZWuHkgvmfrhTtObYpucGv1xbJU2K
VG8nxJi2clPiTxPPfg49qWiRJA0qp9LVOXCuvlH+V3/aUbn23SpaU+ltnPLo58XD0x5O1jxBqqvv
+yHJPCoV2Kk9VVeA8MVFnWf2DbSWZKFldFdoMqXn3m8ENlfdd5ZBVhhu9yHEnjQScWfcgO99Z+Fw
BmY1WGGtKXjePx+yJKJQwJlIIoqYJXUci9p1qNtHQm0UWIA2ioYjjlG9mN4/2SFEVUYb9ddYjRWK
9R2GBUY40kAkVSXZavgJVWBixY1JZo5csbRXkwax+RFJMh04H1dm1nmmcRDhp52bhe03o5xnWmck
aikqplJ+CLmJX1VdrjclgUVeSeCdIObJp4sFNRqnpNWdSCiatuW5W6YHafrohVUOOielCfK5oZP+
jloJaaqcFnpZqGvmp9yms3Z646dIrogbf4kuxyuqvqpK5nRZVpqrrgode6SAytrZLKKlurrkQRAG
6i14tYLq7HnEfmSYYSJ+G2mvtgqopm5rETXqfXr1pi6t7KIZ07tMFusjt9rFWee6yLabVJTL/Qhr
Qezdm2y401aq3JK3pUfVShQWzJSnqwKqkXlcYkvvfUgNjK/G9F3G41EgYWfyw/mmnNO2R/Eb0svx
cToedTDZ96ZNfBE56a+bGSgaEiKXWtRW1h4t88bXgVZU0MBu/JJ4AR66I2FTAbjz0UIDNy7XEL3V
NNhP60R2SGYzTa2dWyW9dqanXQ11huJpOPdCRH9aBl3G41m0d02Obvb3bFh6NjjhSdlNp9/VLc7a
jFt1BtRlPkuOm4OxWQ5UM5lrvmZsTH5ckeCik62o3HMDEBAAADs=
}

set gfish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDCAUiWZiwoUODKqg8nJgwosKFSAaq8ONHBUaKDyWCBLnRj7STzTAubCbQpDSM
fkSOLEhF5syGVE7qlJZSJZJmQIFilOYn6M2jFHPuRNkTY1ChQ4PaREp1oMqlPKGufOozqJ+jVFRU
JejxKlaeTp82/Qn05cexN1W4NYs1rVq7c5GIhTtSbt6FZ+1y3dos796Hh6s+PalyMWPCg7c+RjK1
YWKkjvM6Fhy0ceG5XyeGHUtFrVa2Qeea1vx56OWKBEeTZHoXcmHOnSXPJUrxcMTXCDfqNN1UrWri
aSefDI3zcE2QQ7PWhnxcuta2u5cDRxh2e8GygJH+C85uvXhrwDsra4wt2/Ja1NMXRy+fHLTL5epV
+P7nXaDY08SZlxsSw0WGHUYSKaVdTR0dtJd3ew0I34DTFUjheUh05NdJ+hFlkljt8SciRA9m5Vl8
kVl4HYbL6ZTgTsyR5R9Zvpl0IYoDqihgU1hJdB9v+rHHn1hBxlYgbjvySNuKWmHlX3ozDlSTRBZB
dKRtTF635I5OwfggRyFKGaZBLmV5o5b0Qdali2EmmFhN/f1TZpJmronjWp9JMyVNlT3nkFJm1ole
mvA1xmaD7L05Jk1MIcnZfHcWh9+eYobYnUN+BZokpAYayKafM14GJ6aNYrnpoJGuqSelUho0qmX+
pU4oKIFbProSfsBdFtGiZMUq3oScninpSbCxx6uUvi52Kq2ExqcTcH2CmhCgdC6ro60/6RTcdzLt
WqSRJpqK7bW21ffatwK11+1lczpaLqqdXnhSZee2ShNBNmo6bq3vsrXcd/VG+d2T8RasZLOdPisj
REPClpPBs5ILrG68pQstlZZtJOGvFfI7sb9E6anfdrti+t97HKfoMYqyoXtQTIipcJqs1q5soHo4
4fwdyqad2KTNFIKV1FW/frwllxjFuS1F0U3XL4Epn8YXpjEt6VOhRPes5kJKT/3PwxJinTWKk3Xt
dVEzO01rynl5ndTGzh7tWdtuTwQ33B5LhmBE3SPhNrd1XWGnJ98jBSig1ScSpTPhCKmNGm0+Sbc4
4xXNTBjk8x1LOabvXS7dUByZvXlCKmm0kUQDaj4SAKPTpCjfAQEAOw==
}


set bfish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AEmQ+EewoMGDCBMWHKiwocOHCBlCnEiQhBMnEiNmpMjxn8COB+WIvOhEpMmTKE1iBMmyZcqX
ME9ubEkzoZN/MXO+vFlT4cyJJXWmtESUKEqePZN6FDq0aNGUShdy/EiiqdGXT0VmlRnVI0WBWJ1a
CovyKlelP33+C3ryqtm2Y+HCRJsWIcaqZcWGFfv2JNqvInHmdQqTb9yXdb9SDMqWqeOYFP1WTEyw
8ePLkCFKnogXs07COidu9urTs1C+OikLDjw5ocWTF03nlQs5MUrXFwU2vtlZdl85v6EqvN26auyB
Ml/L1nrYZHDhCM8a3L1W5XLa2FNHF5nxI/Xen5/+O2/O3LHHjCa7VzzrWG9Ow+SFgh/p2uJKj5b3
AhfPHPR1+gsNtJF9px3G32P+aXfQRQcRGN54/8EnFFL4UVhhfk1BuNxW+8WHUncWZUQShoMl6Nlv
B1oo4HQkMeXehvEdONOAGJH433vweQhbRLjZeGNMqE3I43A/HvjfRw0SGSGHP344ZIM3uqVjkxpF
tGR2s4UmEFjEGTTjlRpaNSV3EkEn1YJglicmf1aa5JqXUTYXnJSZQenmm5XFiaWawdU1mpdbnshh
kGvGZ9udPjGkHI6EmlhiSpSl11Fshb3FpGxINgRgR/OF6elyqnHHEpdZZnidapXR1Olz/F2qUldc
Dq2qo3gvpncfrPWRVaqp+0mHa2l7GVZpqb9CZCOhumqIKq4+IkieURYWq1CzLj471rLFdoqZsHJI
O6kclApalLctLbocuT2ZO6FK2KLbkLoxhegurvCyNi8AAQEAOw==
}

set bfish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDCBMqXJgwQACGEAmuWfOnosWLGC9GjPhwI8OJFCuGzIhxpEWPBh3+64jSIMiL
JkmKJNkyZc2CL2HKLLnz5sqOIIOCRLhGoFCdPJPSbMnyT8inQQ9O/FeUYsyYTjNizfrn5kOuE50O
lXr0qtazJEP+9PjwZdioLo9ytYi17s6wf1hudCt2atygdJXORCvz5UaVOYWSzTk4MFLBd4tCBAoW
rkTAjxtrdryTrl+FlKGOHSg389zNqDtTXIgYbN/LmE2bJdxZJ2ijeK2KpNoXL+TZkGuLVJswMUyq
uu/+Tiu84j+YxBcnH/78NG3rW7diHKj1s0CguoH+a98MHHpt7mm9k846vrxv7IXHdxWoer5e+eQF
l2/OfybZ2rNBxVlq/QFoH0EB4BcgZ/sVKNxqKSmY1EgUBmedg4EdlKCBSFWYX4MYTtSRXhvW1yGD
g01HoGklFaXXQCUqd2JjT80EooXUIYighDPmN+CFN4qF3EoFxRhfj/D9aFeL2Q314ntHpijblDhC
uV1cDtaoJJUsemalc6Qxxp+WPpb5Y5QnSYShlFu2iSOTEKq5JplJmmlefy5d+KBm7r2Jn0Z5mqQi
c3WeFqSeS+FkqFgm9ukmoZ0Vx56NvBU2oKAsyvflSS8aNSl7yFnpIZ+Z7imTpMlZdZlSmF56XXqW
iUr1qaqrouiqbH9itVB4lBY5aqt2Mmpimgrxyp5kMBq36KOeARhdsbPmiFOqmS35aosRyRUesrCR
eiaim863l3FQEeUtgV8K9axHqb7llLnLroioRuK2pK5i/wE7r7xg+jTtR+5pGqm//mJ2KKIEJwzY
VQJnlPDDuEH5J6AQVxzqxFdarPHGHHfs8ccgh8zQiypxHBAAADs=
}



set ofish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AGEY+EewoMGDCA0CWMiwocOGCSNKlKhi4MSL/x5q3LgQo0eEKmB8jMix5MORKFNmNMmSo8qJ
Fke2nLnxJUIDIlHS3AnRpsGYHgfyHArAZ0EDQGHCWArGjNOnUKNKnVrTJ9KPKlRomcq1K1eNPnNO
ZAhDKpizZtCeXcu2LVuoJ22GvMgwqtu7ePFGdfhSBcaFT/XmHbw2LVqnPTEaMFOwIl0ANgwXJtxW
cmW3Tzt6VOGUIE6MkTETtmz5LebMmmE+3dz0bunJrWMLPo04dUTOnQ34jQgjdunXan3nBd4UbtGJ
uBlfRdjbcFoblGeLHg71ou7V/yz21rK07Fob2S/+R5dOvXrEgas/LwYTWeTWpgIHEx8u/7DT4rfN
E/TeVMs//sG5Nt54kk1102LpicSfGf4ZIKAK4g1IYHFRxYSgeQM5eN9uoUno4X2UTYWUgdllh5MN
u6kAnWkeCngYgV5V95lYBdmwYogtvlgfhTEyth+N2cFwo2zTEZkjizz2GCR4P3U3YYDl4Whfjz6G
RKOVvekIm2zzFQaii5VR6aNuBB3XHYRpfRlggSESN5+YPv6DW0Y/auUckl92qWWEtCnpWVFmHGdi
aO+RVySOZnToJZVHASooQVo0peihlLb5m5gKlRnnP1sFZiif0Xm6qJ9lFgVAZwTxSB+UrA7WqZrs
SXqlkKn/5OblqkbmOhqsUo0o1ayaOeWdqJUiGSqxsRb0a0GJeQqrsVLiKWqa2Ckb1UELGdDRentK
Vqihl4ZZXHGcIbQssxCNCxWUke64JZSkXZuQvNgyZIOQ+L3b7pFEUnvuvE7tlhAA2nr2aqtF6vka
iRJVO3BPIukJrbu+6dcwqh45tC7Fu/bpkcMfaXzfsxK/JStGGKOk7UN2vVtebQ2lPJHMH63MEZxS
lTTSpikR5fOjRo3189CJBV0v0UQb/TDSPCktE9MtOf001FVJHTLVcVk9NdYMaa0S1117/TXUYmu9
nGdJlV1mQAAAOw==
}

set ofish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDBQEoXMiwIUOEEBEagBGxYkSHGDMqtFjRgAqOIAdqHOkw5EEYH01eJMlSo8qX
EFvKzKjSAMyDM3M+NAnD5k2ROoP+8wmSKMyMZpIqXcq0qVMwMKIajWhgqkmMTrNqzapFRUqLVX86
XAqmrNmzaM2aKbuWLVMYCy1SfNmQadq7ePEyjRsR5UAzVhEyVKo2r+HCd5VurJgy6deKCgmjbZuW
8mG2k20shujxn9LACSNLPmuZtGnDpcGYsSHXptLHOEUnTYwas2q9tGEjfA0ZgF3auG8LrzwZ89yD
Klw7Bv2XbN7Uti+ntSF87XGCYZUOhdj0MnTp0cv+2qTONioMLVAF+lyqW+Bs59/DS48PZuJaM1r+
wVit2mZPz59Z9ZR84D1noFoUadGWGdc1RZQBT9FXIHFnqTDcWTYpWJ5+yjFV1YCHzTbhiKsJZOFs
Nq23lXPeUSYheKXZkJIKNvSUonsrSiahiCNeaJgNrBVE0X85svhigS4eWFaNU0XVXJFJhsijkkdC
JVVBTAJYJHCJTRnccKXxaN5jUTUGpZKTvRilj++BoYJ5AgFgoopbfpmmd2qtWV1XTv4jp2NP5pjZ
fUjWphd6q4UVpxl+EgVlmF7iieagYORHkG+NBrpimlUiZien+BFkhpx+inomaUqhByOFPqI6W3Py
cm6m5VIf/pZnpwTqead4AJYqa1OaQhqpoZ+6qtp+jPrJF45LFUSWi6Olhmt8ImoX57KzJmWQGSq8
dx+kxZ12qKequWiTQgbImu1utl4YZrh5qWrbs2spi+0/3WrLXYTi9liWvMMBCEaNmt37ZEUgksul
mm7h5xMA6UZkrcTw9Rsikvpda7CpySI8Wp6FoqbYTiDp67FWE0r77agkm2Syx2OxSGy5IzfEHMIh
jfRoUyTd/FNsQQVN6s8rCW10Q0QLdvTS6iYNNNM5Od0b1CxJfRXVLlmtEtYYab0110h7nTPYTYsN
EtZED212QYqq5/NNAQEAOw==
}

set rainfish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AA38G0iwoMGDAwEoXMiwoUOGCCNKPGhA4ESEDzNqfHixI0WPBDeKHAmypMmRKEmajFgRJEoM
MGPKTAlgpU2DNGXqnLnxJkWLFxvGzLhzp0ifHzsKhUm0qM6eSAkC7Wig6EOnT49GbelRgtWrWIdq
9cn1YtWvDsOKZYiB482pE706Bas2bduMZqeWlSh3rt26S+/iZckA7sSzYekmDix4sEEDDBhINUyQ
gVqmfxezXeu4IOKBe2sCMNAXQ+msjLFm5gzxoEyKYCUjRr0ZcG2eDl3HnPzPAEOBMiuexr3wcmOF
fhsa1HmQreS+w2kjv7zaaG7mk4vDlNDbOObbqlP+W0+t1zeA4AO9Hz8/NLl29Tsl/zRtkbT3zNOl
s4evUz5ogWdJxUB0aOWHWYEG8odBZAdFhoFnA94HXoLfvadgRf71xuCDoEngoHGpWVghhepVVF5h
HP4T2YfUTUhhiPBBlmFvFXEoI4u27bfWeDoe6B2GjwFn44oSviiiiN/9uBdo6U1mWYtIupickjP2
RlCK3UHZ43E8hbclVpHBxRWWsynIZZLulWiYRVj+YyZx+5E4IlZuBldlSzBJ9SZrRcqJoZ1rNjnQ
k3uK596XGAAV3JpCDkSgeoYiWJRuD1LGZpZ7nqnllgihhxCbj0IKnpdfdvrapzVmyieIRpq6m0SA
YxYa6XhZwRogSLKOWiBPFz1ZUq660jZTR4Wt9KZiCLbW601mIqufsofZFGyycq4HbVQYzQpntdYu
hO1Ezj6rmVvfStRUsjkqV65S1c35bG7remQeTfR6G29J9eZ770r56ruvS/3S9C++AaM08E0Fk3vw
SQmrG1VN5TbsMFIABAQAOw==
}

set yfish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP/9CxBAoMGDCBMqXMiwocOHBR9KNBighcWLGC9GnMhx4MCNHQ9WzHgR4UiMIR1aBJnyIEmU
Bl+ubJlQI8uOBWWWjKmzxc2UOz0C/dezBc+iRmkSLflTItKZJ5EqRdl0IcGnGpdiTRoyI8WJV7cK
3DqzK9WqCaM+HUiWIFqFXj9OJGuRbVuuc2G+dUk37NOCFffyZSpYa1u1PXOWfUhSIEHGdDWKVbu3
sUTEd7HahdnQslCFmDMjVewZruXHaSOrNvpYZlOZqd1mBBzZr07HOn/ClhuVtE/Dom8DJwmyJ8LZ
w1cnjzva90vHzmmvxmj7NNbQQXFnXd6XO+vppT/+lsWM/Tb26uChf6b4PPLY3eXJimQZ2jv8++B3
Bjbp03Lt957lF9R+7CFmn2sAxnWgZo4tVWBUCW4V0W6bpcdeXR+pFeF1G2JYoXIiZWdbh2stN5h8
V5mG12YTqkYiV8q5VVN21L1Y1FEKxueajMdx5qOLJEakY243SWWjcS9q5+KKB+Io34vSrYbaiXX9
6J6NR5bYI4Ugepelkak996WY3jlXmnBp1TddiwgiSWV2YXo1nZPIobklZwsJqGBi3OUZnop60lkj
hTMq2JmeMApHpp94HiqgR0j+WSicDCEqHoJaEegopZtKCeV7hQ3XUX6PYXfUqI06JaWZPlaEKqdI
EKnWGqYOvuqhWX2xOt6tqsJ6GV2QctmSoS0N6WF9RE3FK03GvmnUsq8qFadkjdYprVbXgoZcYCDJ
Bq1Z2TY05ViFhkvuPwEBADs=
}

set rainfish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDAgEoXMiwoUOGCCMaNCCx4sGHGDM+tDiRIsePGkOK/CjQI8mIIlOOPMkSoUoA
GGLKnJnyowGTLQmGnMmTpsqcQP/t7MkTo8yGHG8G1ZmRaE+jMZFaxAlUpNOiDolSlbj1pNWrRx8S
lWCzK0exWcFGFas1KU6lEptiSKuW7VibAw0wMCtU7tyGatcCvkq2Itx/DPZe1OiTYeC/g8HyLSiz
61DBCx/bBcsgItyZi+k2zhx4M08JMyUYACCU4GHQBaFidVxa9EyKDDAv7Moztu2wtOtG7qnaAOjV
u/8d/tfb9NPhV3+flkk2N8SJs4M7lf5cu1qKqAX+L8/9ODr0o6MVlsdQ0uf49dvP/00P87HqkqiX
D0wMvztprNnVF5gEigkUE0Xj3dQffUSpl155BOKEQWIdGbegbgICF2B5id1nIGIFCpSYheVlCJmD
jW34WGIUGqhXgiTW5l93M67IokcY3ESVjiWimOJoNQZ2o4Hs6bdXjGD9ByCQKqp15EDsKVeQXuRp
5uOSugUpGUFRSukakkkqORtwVy4oYUlU7dWbeWL6RKaJC1JW0pRqynRkfG3iWWZ/JsWk3I4x5qUn
nINeOFNnH3rpGnN+UuYfoQ16t2BhfuqnHGyOPmhlnnwyN6dBvYGqZZicwofap6LKtBiNm+55oY6K
CB3I15WlBghpeWhKFBOiKGUoaaS/4kqSXhb5WiuGtwbGEq9xyTaoq8qyNNlAjLEZrFpLFevXo8eO
lm2zznKb7JusfdtruLaOu5G553JHrrXXsQtutZqKKy9JL+Xb0LT3MqVvvv2e9a++AQs88E8Fa3vw
SjmxVm5VCzvE7kJLRSyxuQpla7FU3wYEADs=
}



set yfish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDCBMqXJgwQACGEBu2mEixIsWHESNinJgRosUWGAd+vNjxoMN/ASiWRJhyZAuC
LjmuNKlyJsGWMWHGfBlypcOKNgXuBCp057+XPkXWnDm04kOcQ20+tMi0KVCoTU9mnEq0I9amRa2C
7KkwJFWvP8WCPKp2rUauSyOCbLuWLlKGWs9qXPs1Ztq2W8PGLauyr8u/gCGe/IjXItysdgeb3Kg3
4cfHQw2LJWuZcWfGmh1HdtpQqWeDhlFiHm2Vs2rBXW/6hT0S8WaUjn9yNjowNFLIkXEXJp3XqO2R
tBmzpoq1YObbbA/7vt28+HKSxq/LhEpW+0XNq4H+OxbYUqvp65SRR1e7nmTBp+nRJ3drt7373j29
33VJvr79lGQBOJ9/9m0X3GVu9WeWdgt6Np16TglYFEo6LdfgWQ96llt6uy1GYIG/BbeeedEF6CGB
OYEIlnAJhoWaQxmON995iUFV4V34sYZRagNGJRiNBr2k44A0stejTDkOqVmRYjFZmYpG8gallECd
5mRiVIoI5UEpHsmielN2eRhC/DmXU2j9jQYiiTdKRiSaRxpVm0JgmokcnGHStVCddjKXpX4MWcml
hmICGuiTgxJlXJ5WyYUoanMZKB2jKx4a20ItpalejF16dOmeSM52nJ4ZPWpZSlfyxKmpdH4Kam9D
Z646kWuWIunojrFqWRKrdF5JIV20OorjrvNdmFlQpiHLUZ3QIRudszw9KZqMzipV7Xc96fZli9WK
1K2Lzr0XrLMBAQA7
}


set rfish {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP/9CxBAoMGDCBMqXMiwocOHBR9KFPinosWLGC+uWTNRYkGCHRVmXJOxJMmKGzmGZBhxJUKT
JUdq3OhSIcia/2L+OakTJcaUOG3W1MnTYlGfRlOqVJlQqVOmLVci/SmTqsad/zjSbKoUKcmBIUFO
tXqVrM+nC7tu9GkQwMQAKI+WnWvUKlqua/PSJOhW4s61RGHS3ZlUqUK1f1UG6OsQcE/CVevSdXq4
a2KBixs7fiwXsuTPcYEidHp2YGaGnh+PBZ26deKtBkkTVsw4oWvOglnLvSswJWSSTGtT/Ks68uCj
nUlrPRu67UviFgEUv43crEyaRU+KPt17c0UA4FX+J7feWXLW7K+dny8PXnpP76urB44/m3bO8t/D
Ey0vP+7xwMAd5NZt04lnVn+rmXRQZgQW+B5ZgGln3UhMCTQgfg7G1B9PEg42UlT/XJihhrlNxSF9
70W1GAABwDdidRtKhqBJIIJXkIuslTibV591mONPKoIXG34Y0tfhiTx6CCRCi2FH5IQIRokiUSA2
6RuFuxmXmpRbFrkGiCG+x5+W6E1mYpF/2WbSlTq2ViZoPk4H20E/oekal3AmyJlobb1W3HhmBmqn
ggI6iCOeY8VpKEL6/TlfnoK+iJWA7hn4aKL/NchcXRWG6Fall5IZqIxibjlpWyyCSuGDB45KZFbT
v82WUHuhtvmmqQkaBhxznVrY6EyWjoqrmxXuumOvFoY54aqZYppop8buiqyvqnqZpbBI7gRmtLI+
5F+pokKq3UYg5sWrRADg+OOdkW4k5EERnouuqsC2Oexv7gpn7rh8OtSee0+tSaK4/8IrIb/TLkQr
vVq2KmPBsdV38Er/Bjswpvni9dScFP/acL3xrSEcV0EpRKu9mSr1bskde6xnUlSpPDLLE/3LcKgy
z0xzzTa/mBLEOwdl89BEFw100EIbrXTRSAe99NMrNy01ZlVOzVBAAAA7
}

set rfish_r {
R0lGODlhTwA4APcAAAAAAAAAMwAAZgAAmQAAzAAA/zMAADMAMzMAZjMAmTMAzDMA/2YAAGYAM2YA
ZmYAmWYAzGYA/5kAAJkAM5kAZpkAmZkAzJkA/8wAAMwAM8wAZswAmcwAzMwA//8AAP8AM/8AZv8A
mf8AzP8A/wAzAAAzMwAzZgAzmQAzzAAz/zMzADMzMzMzZjMzmTMzzDMz/2YzAGYzM2YzZmYzmWYz
zGYz/5kzAJkzM5kzZpkzmZkzzJkz/8wzAMwzM8wzZswzmcwzzMwz//8zAP8zM/8zZv8zmf8zzP8z
/wBmAABmMwBmZgBmmQBmzABm/zNmADNmMzNmZjNmmTNmzDNm/2ZmAGZmM2ZmZmZmmWZmzGZm/5lm
AJlmM5lmZplmmZlmzJlm/8xmAMxmM8xmZsxmmcxmzMxm//9mAP9mM/9mZv9mmf9mzP9m/wCZAACZ
MwCZZgCZmQCZzACZ/zOZADOZMzOZZjOZmTOZzDOZ/2aZAGaZM2aZZmaZmWaZzGaZ/5mZAJmZM5mZ
ZpmZmZmZzJmZ/8yZAMyZM8yZZsyZmcyZzMyZ//+ZAP+ZM/+ZZv+Zmf+ZzP+Z/wDMAADMMwDMZgDM
mQDMzADM/zPMADPMMzPMZjPMmTPMzDPM/2bMAGbMM2bMZmbMmWbMzGbM/5nMAJnMM5nMZpnMmZnM
zJnM/8zMAMzMM8zMZszMmczMzMzM///MAP/MM//MZv/Mmf/MzP/M/wD/AAD/MwD/ZgD/mQD/zAD/
/zP/ADP/MzP/ZjP/mTP/zDP//2b/AGb/M2b/Zmb/mWb/zGb//5n/AJn/M5n/Zpn/mZn/zJn//8z/
AMz/M8z/Zsz/mcz/zMz/////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAKwALAAAAABPADgA
AAj+AP8JHEiwoMGDCBMqXJgwQACGEAmuWfOnosWLGC9GjPhwI8OJFCuGzIhxpEWPBh3+64jSIMiL
JkmKJNkyZc2CL2HKLLnz5sqOIIOCRLhGoFCdPJPSbMnyT8inQQ9O/FeUYsyYTjNizfrn5kOuE50O
lXr0qtazJEP+9PjwZdioLo9ytYi17s6wf1hudCt2atygdJXORCvz5UaVOYWSzTk4MFLBd4tCBAoW
rkTAjxtrdryTrl+FlKGOHSg389zNqDtTXIgYbN/LmE2bJdxZJ2ijeK2KpNoXL+TZkGuLVJswMUyq
uu/+Tiu84j+YxBcnH/78NG3rW7diHKj1s0CguoH+a98MHHpt7mm9k846vrxv7IXHdxWoer5e+eQF
l2/OfybZ2rNBxVlq/QFoH0EB4BcgZ/sVKNxqKSmY1EgUBmedg4EdlKCBSFWYX4MYTtSRXhvW1yGD
g01HoGklFaXXQCUqd2JjT80EooXUIYighDPmN+CFN4qF3EoFxRhfj/D9aFeL2Q314ntHpijblDhC
uV1cDtaoJJUsemalc6Qxxp+WPpb5Y5QnSYShlFu2iSOTEKq5JplJmmlefy5d+KBm7r2Jn0Z5mqQi
c3WeFqSeS+FkqFgm9ukmoZ0Vx56NvBU2oKAsyvflSS8aNSl7yFnpIZ+Z7imTpMlZdZlSmF56XXqW
iUr1qaqrouiqbH9itVB4lBY5aqt2Mmpimgrxyp5kMBq36KOeARhdsbPmiFOqmS35aosRyRUesrCR
eiaim863l3FQEeUtgV8K9axHqb7llLnLroioRuK2pK5i/wE7r7xg+jTtR+5pGqm//mJ2KKIEJwzY
VQJnlPDDuEH5J6AQVxzqxFdarPHGHHfs8ccgh8zQiypxHBAAADs=
}


# -----------------------------------------------------
# Create the canvas and the leaves in the background. 
# ------------------------------------------------------

canvas .c -height 600 -width 600 \
		-background black
pack .c


set im [image create photo -data $leaf \
	-format GIF -gamma 1 \
	-height 200 -width 16 -palette 5/5/4]

.c create image 50 500 -image $im -tag leaf -anchor center

set im [image create photo -data $leaf2 \
		-format GIF -gamma 1 \
		-height 300 -width 24 -palette 5/5/4]
.c create image 100 500 -image $im -tag leaf \
		-anchor center


set im [image create photo -data $leaf6 \
		-format GIF -gamma 1 \
		-height 200 -width 16 -palette 5/5/4]
.c create image 125 500 -image $im -tag leaf \
		-anchor center

set im [image create photo -data $leaf6 \
		-format GIF -gamma 1 \
		-height 200 -width 16 -palette 5/5/4]
.c create image 160 500 -image $im -tag leaf \
		-anchor center

set im [image create photo -data $leaf \
		-format GIF -gamma 1 \
	-height 200 -width 16 -palette 5/5/4]
.c create image 215 500 -image $im -tag leaf \
		-anchor center

set im [image create photo -data $leaf5 \
	-format GIF -gamma 1 \
	-height 175 -width 120 -palette 5/5/4]
.c create image 285 525 -image $im -tag leaf \
	-anchor center

set im [image create photo -data $leaf5 \
		-format GIF -gamma 1 \
		-height 175 -width 120 -palette 5/5/4]
.c create image 400 525 -image $im -tag leaf \
		-anchor center

set im [image create photo -data $leaf \
		 -format GIF -gamma 1 \
		 -height 200 -width 16 -palette 5/5/4]
.c create image 415 500 -image $im -tag leaf \
		-anchor center

set im [image create photo -data $leaf4 \
		-format GIF -gamma 1 \
		-height 300 -width 24 -palette 5/5/4]
.c create image 500 500 -image $im -tag leaf \
		-anchor center


set im [image create photo -data $leaf \
		-format GIF -gamma 1 \
		-height 200 -width 16 -palette 5/5/4]
.c create image 550 500 -image $im -tag leaf \
		-anchor center


# ------------------------------------------------------
# Create and move the fish. The procedure is called 
# for each fish because each fish is placed at 
# different location and moves at a different speed. 
# ------------------------------------------------------


make_fish $gfish 700 300 g
make_fish $rainfish 750 50 rain
make_fish $bfish 600 100 b
make_fish $yfish 600 420 y
make_fish $rfish 700 500 re
make_fish $ofish 800 320 o
make_fish $gfish_r -200 100 gr
make_fish $ofish_r -150 320 or
make_fish $rainfish_r 0 50 rainr
make_fish $bfish_r -100 140 br
make_fish $yfish_r -200 430 yr
make_fish $rfish_r 0 450 rr


move_fish  g     300 700 "$gfish"    700 300
move_fish  gr    200 800 "$gfish_r" -200 100
move_fish  rain  175 750 "$rainfish" 750 50
move_fish  y     260 600 "$yfish"    600 420 
move_fish  b     300 600 "$bfish"    600 100
move_fish  re    400 700 "$rfish"    700 500
move_fish  o     200 800 "$ofish"    800 320
move_fish  or    250 850 "$ofish_r" -150 320
move_fish  rainr 500 800 "$rainfish_r" 0 50
move_fish  br    400 800 "$bfish_r"  -100 140
move_fish  yr    450 900 "$yfish_r"  -200 430
move_fish  rr    250 800 "$rfish_r"  0 450
move_fish  y     200 600 "$yfish"  600 420
 
# -------------------------------------------------
# Place some bubbles 
# --------------------------------------------------

bubbling 620 275 300
bubbling 620 450 400