fish.tcl

一个使用TCL脚本写的动画！是一个很好的TCL脚本学习资料。

# ---------------------------------------------------------
# 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//////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////