📄 fish.tcl
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -