#!/usr/bin/wish -f
global countries is1 sc
wm title . "Eu Tool V0.0"
wm minsize . 50 50
frame .f -bg grey -bd 2;# to hold canvas and scrollbars
pack .f
frame .f.sub -bg red -bd 2 ;# to hold canvas
pack .f.sub -in .f
canvas .f.sub.c -relief sunken -width 15c -height 15c
pack .f.sub.c -in .f.sub -side left -fill y -padx 2
set w .f.sub.c
frame .info
pack .info
frame .info.sub1
pack .info.sub1 -padx 4 -pady 4 -ipadx 4 -ipady 4
set is1 .info.sub1
label $is1.labcountry -text "Country" -justify right
entry $is1.country -relief sunken -textvariable sc
pack $is1.labcountry $is1.country -side left -padx 4 -pady 3 -ipadx 2 -ipady 2
bind $is1.country <Return> {highLightCountry $w $sc}
#
# buttons
#
frame .b -bg grey
pack .b -fill x
button .b.quit -text Quit -command {exit 0}
button .b.clear -text Clear -command {clearCanvas .f.sub.c}
pack .b.quit .b.clear -side right -padx 4 -pady 4
$w create polygon \
1.33039 0.57027 1.36029 0.59123 1.34591 0.50223 1.34591 0.44262 \
1.33314 0.41707 1.32797 0.37687 1.30972 0.35746 1.27992 0.3532 \
1.2565 0.33617 1.24296 0.32417 1.21179 0.32979 1.19902 0.34469 \
1.17347 0.34469 1.14416 0.36309 1.12876 0.34895 1.14792 0.34043 \
1.14154 0.31488 1.11386 0.31488 1.10109 0.29998 1.07054 0.29423 \
1.03341 0.29185 1.02019 0.32766 1.02019 0.34895 1.02861 0.38514 \
1.02861 0.41158 1.00742 0.39152 0.98251 0.38164 0.98251 0.4043 \
0.96484 0.39152 0.94359 0.41876 0.93879 0.48524 0.88614 0.51518 \
0.88614 0.60021 0.88852 0.64209 0.91374 0.65977 0.89988 0.68344 \
0.99688 0.72716 0.96694 0.81694 1.07471 0.82592 1.25673 0.82354 \
1.30943 0.73852 1.21301 0.62593 1.33039 0.57027 \
-fill green -tag germany
$w bind germany <Button-1> {showName Germany}
$w create polygon \
0.88852 0.64209 0.91374 0.65977 \
0.89988 0.68344 0.86993 0.67863 0.88852 0.64209\
-fill bisque4 -tag luxemburg
$w bind luxemburg <Button-1> {showName Luxemburg}
$w create polygon \
1.07471 0.82592 1.25673 0.82354 1.30943 0.73852 1.34288 0.75019 \
1.37815 0.7365 1.407 0.71653 1.47287 0.73372 1.49383 0.78462 \
1.47272 0.80309 1.44708 0.80309 1.45028 0.83194 1.43395 0.86727 \
1.4038 0.88484 1.36853 0.87852 1.34449 0.90247 1.30046 0.89721 \
1.24831 0.88074 1.21782 0.85586 1.16335 0.85278 1.128 0.86965 \
1.0867 0.86067 1.07471 0.82592\
-fill PeachPuff2 -tag austria
$w bind austria <Button-1> {showName Austria}
$w create polygon \
0.94359 0.41876 0.93879 0.48524 0.88614 0.51518 0.88614 0.60021 \
0.83344 0.54989 0.7526 0.55649 0.78826 0.53219 0.81711 0.51936 \
0.8091 0.50333 0.81711 0.48249 0.83314 0.4841 0.85719 0.48249 \
0.81391 0.46486 0.8123 0.44402 0.82513 0.41998 0.85858 0.41876 \
0.94359 0.41876\
-fill LemonChiffon1 -tag netherlands
$w bind netherlands <Button-1> {showName Netherlands}
$w create polygon \
0.7526 0.55649 0.83344 0.54989 0.88614 0.60021 0.88852 0.64209 \
0.86993 0.67863 0.82833 0.65084 0.82994 0.61554 0.8091 0.62035 \
0.79948 0.64439 0.77864 0.64119 0.76843 0.608 0.7113 0.57265 \
0.72895 0.55783 0.7526 0.55649\
-fill honeydew1 -tag belgium
$w bind belgium <Button-1> {showName Belgium}
$w create polygon \
1.03341 0.29185 1.02069 0.26129 1.0011 0.24153 0.99344 0.20518 \
1.00786 0.17953 1.01245 0.13976 1.03672 0.11381 1.08481 0.10259 \
1.10084 0.08175 1.128 0.07808 1.1345 0.11221 1.10565 0.13305 \
1.10227 0.16311 1.11847 0.17793 1.14251 0.16992 1.14837 0.18824 \
1.12328 0.22121 1.07951 0.22954 1.0816 0.28052 1.07054 0.29423 \
1.03341 0.29185\
-fill LavenderBlush1 -tag denmark
$w bind denmark <Button-1> {showName µ¤Âó}
$w create polygon \
1.1345 0.23724 1.11366 0.24045 1.11045 0.25648 1.12488 0.2709 \
1.13129 0.28533 1.14412 0.27571 1.14893 0.25327 1.1345 0.23724\
-fill LavenderBlush1 -tag fyn
$w bind fyn <Button-1> {showName Fyn}
$w create polygon \
1.22587 0.20198 1.20182 0.21159 1.20022 0.22602 1.21465 0.23884 \
1.19862 0.24846 1.18259 0.23724 1.1874 0.22281 1.16976 0.20999 \
1.15854 0.23243 1.16335 0.26129 1.18099 0.27892 1.20022 0.27251 \
1.16656 0.30296 1.21304 0.28373 1.20984 0.2677 1.22747 0.26129 \
1.23388 0.23564 1.21946 0.2164 1.23709 0.20999 1.22587 0.20198\
-fill LavenderBlush1 -tag sjaelland
$w bind sjaelland <Button-1> {showName Sjaelland}
$w create polygon \
0.7113 0.57265 0.76843 0.608 0.77864 0.64119 0.79948 0.64439 \
0.8091 0.62035 0.82994 0.61554 0.82833 0.65084 0.86993 0.67863 \
0.89988 0.68344 0.99688 0.72716 0.96694 0.81694 0.93413 0.82874 \
0.91169 0.87183 0.88614 0.89721 0.88764 0.9153 0.90688 0.91183 \
0.9181 0.92972 0.93879 0.93433 0.94535 0.98102 0.92743 1.00315 \
0.94695 1.03552 0.97115 1.04193 0.97115 1.07444 0.89749 1.1253 \
0.78253 1.09298 0.73405 1.11632 0.73405 1.16902 0.65142 1.16664 \
0.62636 1.13811 0.58628 1.12689 0.55583 1.13212 0.51255 1.1186 \
0.51255 1.09002 0.4869 1.11059 0.46701 1.10438 0.47889 1.08842 \
0.49011 1.04834 0.51255 1.00346 0.51095 0.9698 0.49812 0.90408 \
0.49331 0.88965 0.47728 0.88804 0.45965 0.87682 0.45645 0.85759 \
0.47272 0.84689 0.45484 0.83515 0.43721 0.83996 0.41156 0.83675 \
0.41797 0.82553 0.40515 0.83194 0.36988 0.81751 0.34584 0.81591 \
0.33109 0.80558 0.32981 0.78866 0.31699 0.77584 0.31076 0.75468 \
0.3234 0.73897 0.34744 0.73737 0.36508 0.72614 0.38752 0.73416 \
0.41156 0.76141 0.4324 0.74378 0.46767 0.74378 0.48317 0.7523 \
0.48209 0.71492 0.46767 0.69248 0.4628 0.67625 0.49331 0.67004 \
0.51736 0.68287 0.57026 0.68126 0.59396 0.69003 0.60552 0.68126 \
0.5943 0.67325 0.60552 0.65401 0.64239 0.62195 0.66039 0.58881 \
0.7113 0.57265 -fill SlateBlue1 -tag france
$w bind france <Button-1> {showName France}
$w create polygon \
0.96694 0.81694 0.93413 0.82874 0.91169 0.87183 0.88614 0.89721 \
0.88764 0.9153 0.90688 0.91183 0.9181 0.92972 0.93879 0.93433 \
0.98863 0.91156 0.99825 0.89125 1.03191 0.89927 1.0472 0.93433 \
1.08 0.89285 1.128 0.86965 1.0867 0.86067 1.07471 0.82592 0.96694 0.81694\
-fill RoyalBlue1 -tag switzerland
$w bind switzerland <Button-1> {showName Switzerland}
$w create polygon \
1.30046 0.96185 1.30046 0.89721 1.24831 0.88074 1.21782 0.85586 \
1.16335 0.85278 1.128 0.86965 1.08 0.89285 1.0472 0.93433 1.03191 \
0.89927 0.99825 0.89125 0.98863 0.91156 0.93879 0.93433 0.94535 \
0.98102 0.92743 1.00315 0.94695 1.03552 0.97115 1.04193 0.97115 \
1.07444 0.99504 1.07239 1.02229 1.05475 1.0406 1.0379 1.07038 \
1.04193 1.11526 1.05636 1.13771 1.08361 1.13931 1.11246 1.15534 \
1.1333 1.16934 1.16664 1.20182 1.1894 1.22907 1.21184 1.26915 \
1.22467 1.3509 1.27596 1.35891 1.28879 1.37174 1.28879 1.38616 \
1.2952 1.39097 1.30482 1.40861 1.30642 1.41662 1.33046 1.41983 \
1.36413 1.42944 1.38817 1.41983 1.40901 1.42624 1.42664 1.41181 \
1.44107 1.39739 1.42824 1.38136 1.43145 1.3525 1.44588 1.29319 \
1.44748 1.27556 1.45229 1.25793 1.45069 1.24991 1.46832 1.27075 \
1.47313 1.28037 1.46832 1.30762 1.49076 1.3493 1.5132 1.37975 \
1.53244 1.39739 1.52923 1.4054 1.5132 1.39739 1.49236 1.39578 \
1.4603 1.42784 1.43786 1.44387 1.44267 1.46311 1.42344 1.47433 \
1.39618 1.49383 1.3876 1.49677 1.37695 1.49517 1.3513 1.48395 \
1.33688 1.47112 1.32886 1.47112 1.31123 1.48395 1.2984 1.50478 \
1.30161 1.51921 1.31443 1.53364 1.31283 1.54806 1.32726 1.56987 \
1.33367 1.56987 1.31631 1.56089 1.2968 1.53524 1.28237 1.50959 \
1.27596 1.48074 1.25032 1.44067 1.23108 1.43105 1.21665 1.44067 \
1.20223 1.43105 1.19261 1.37013 1.18139 1.33006 1.14933 1.31243 \
1.12048 1.29319 1.0804 1.28037 1.06758 1.25953 1.06918 1.2451 \
1.05475 1.24831 1.03231 1.2451 1.01147 1.23228 0.98903 1.23869 \
0.96819 1.27235 0.9698 1.30046 0.96185\
-fill SteelBlue1 -tag italy
$w bind italy <Button-1> {showName Italy}
$w create polygon \
1.06557 1.12849 1.04794 1.1365 1.05275 1.15253 1.03672 1.16376 \
1.0271 1.18139 1.03031 1.20223 1.05275 1.22627 1.07038 1.23429 \
1.08481 1.21665 1.07359 1.20543 1.08641 1.17978 1.0832 1.13811 \
1.07198 1.10284 1.06557 1.12849 \
-fill SteelBlue1 -tag sardinia
$w bind sardinia <Button-1> {showName Sardinia}
$w create polygon \
1.06076 1.24551 1.02389 1.26154 1.00786 1.25512 1.01588 1.2407 \
0.99985 1.25673 1.00786 1.26955 1.01909 1.28077 1.0271 1.31123 \
1.01588 1.33046 1.00786 1.31924 1.01428 1.34008 1.00786 1.36573 \
1.02389 1.38496 1.04794 1.38657 1.04794 1.37214 1.05916 1.37214 \
1.06878 1.37855 1.07679 1.36733 1.07519 1.34329 1.0832 1.31924 \
1.07679 1.2984 1.09282 1.2952 1.09282 1.27276 1.07359 1.2439 \
1.06076 1.24551\
-fill SteelBlue1 -tag corsica
$w bind corsica <Button-1> {showName Corsica}
$w create polygon \
0.73405 1.16902 0.65142 1.16664 0.62636 1.13811 0.58628 1.12689 \
0.55583 1.13212 0.51255 1.1186 0.51255 1.09002 0.4869 1.11059 \
0.46701 1.10438 0.44042 1.10765 0.41316 1.09803 0.33302 1.09002 \
0.26409 1.09322 0.21921 1.082 0.17913 1.07559 0.15509 1.08681 \
0.13585 1.09803 0.11341 1.09322 0.08776 1.10765 0.05988 1.13252 \
0.05731 1.15253 0.06532 1.17337 0.0783 1.18494 0.0783 1.19581 \
0.08502 1.20701 0.11982 1.19742 0.13265 1.21195 0.12143 1.22948 \
0.15348 1.2137 0.18875 1.21098 0.22753 1.21993 0.21528 1.24551 \
0.19196 1.26314 0.19148 1.2952 0.16586 1.34868 0.14066 1.3513 \
0.17432 1.39618 0.16474 1.41863 0.17753 1.45389 0.15348 1.47313 \
0.16344 1.50077 0.19837 1.5132 0.23203 1.53404 0.23684 1.55808 \
0.26942 1.57201 0.29615 1.56581 0.31218 1.54847 0.33943 1.54366 \
0.35866 1.54686 0.37149 1.53885 0.40355 1.53083 0.434 1.53244 \
0.45805 1.52603 0.49011 1.48916 0.50774 1.4587 0.543 1.43786 \
0.57667 1.40741 0.58468 1.38336 0.56545 1.38336 0.55423 1.36573 \
0.55904 1.34008 0.57506 1.31123 0.60552 1.27596 0.67765 1.2439 \
0.7017 1.23108 0.72735 1.19742 0.73405 1.16902 \
-fill LightSkyBlue1 -tag spain
$w bind spain <Button-1> {showName Spain}
$w create polygon \
0.08502 1.20701 0.11982 1.19742 0.13265 1.21195 0.12143 1.22948 \
0.15348 1.2137 0.18875 1.21098 0.22753 1.21993 0.21528 1.24551 \
0.19196 1.26314 0.19148 1.2952 0.16586 1.34868 0.14066 1.3513 \
0.17432 1.39618 0.16474 1.41863 0.17753 1.45389 0.15348 1.47313 \
0.16344 1.50077 0.12784 1.5148 0.107 1.50704 0.08264 1.50975 \
0.06692 1.5132 0.06692 1.49717 0.08662 1.46992 0.0851 1.41992 \
0.05269 1.40376 0.04609 1.36573 0.05731 1.34649 0.05089 1.34329 \
0.0722 1.28558 0.08502 1.2070\
-fill SlateGray2 -tag portugal
$w bind portugal <Button-1> {showName Portugal}
$w create polygon \
0.29218 0.00863 0.32019 0.0 0.35225 0.00481 0.38271 0.0 0.39335 \
0.00621 0.38591 0.03847 0.36508 0.06893 0.34744 0.07214 0.35225 \
0.07855 0.33589 0.08944 0.35706 0.09618 0.43721 0.10259 0.434 \
0.12183 0.42439 0.15549 0.40355 0.18755 0.38676 0.20037 0.38676 \
0.21159 0.42118 0.21961 0.4742 0.24333 0.4869 0.2677 0.52698 \
0.30777 0.56224 0.34784 0.573 0.37687 0.55743 0.38151 0.5382 \
0.3783 0.51896 0.3783 0.54544 0.38644 0.57186 0.39593 0.58435 \
0.41876 0.56402 0.44632 0.57506 0.45204 0.61834 0.44402 0.65142 \
0.4601 0.63117 0.51936 0.59813 0.54513 0.60232 0.55463 0.62796 \
0.55302 0.63764 0.57027 0.56705 0.60913 0.49171 0.61073 0.42599 \
0.62035 0.38591 0.61233 0.36027 0.63317 0.33462 0.6492 0.30577 \
0.65081 0.28012 0.65561 0.25743 0.65349 0.26249 0.64439 0.28813 \
0.62997 0.30897 0.60111 0.33783 0.58028 0.37149 0.57867 0.38591 \
0.56104 0.40515 0.55302 0.42091 0.53135 0.37719 0.55231 0.33302 \
0.54501 0.29935 0.52257 0.28974 0.50494 0.34725 0.47146 0.3218 \
0.45204 0.33141 0.43441 0.31218 0.42158 0.32821 0.41196 0.33622 \
0.4296 0.36668 0.41677 0.40475 0.40682 0.40194 0.38311 0.4167 \
0.34693 0.39874 0.34784 0.38431 0.34784 0.36828 0.33182 0.37469 \
0.30617 0.39578 0.29185 0.3795 0.29014 0.36027 0.30617 0.33783 \
0.31098 0.29455 0.30617 0.28333 0.26609 0.29218 0.2158 0.24846 \
0.26191 0.24165 0.24045 0.26569 0.20037 0.27363 0.16548 0.24966 \
0.16831 0.2323 0.16072 0.24004 0.11381 0.20157 0.10419 0.20638 \
0.08817 0.22081 0.09458 0.21279 0.08175 0.22722 0.07694 0.24325 \
0.1074 0.24646 0.06733 0.29218 0.00863\
-fill LightSteelBlue1 -tag gb
$w bind gb <Button-1> {showName "Great Britain"}
$w create polygon \
0.216 0.02244 0.18875 0.03847 0.18394 0.07374 0.17432 0.10099 \
0.14707 0.13144 0.18394 0.109 0.19676 0.07053 0.22241 0.04008 0.216 0.02244\
-fill LightSteelBlue1 -tag hebrides
$w bind hebrides <Button-1> {showName Hebrides}
$w create polygon \
0.17432 0.27327 0.22081 0.27571 0.23363 0.29655 0.25287 0.30937 \
0.25768 0.33502 0.22753 0.36309 0.20592 0.32898 0.1449 0.34693 \
0.12155 0.32417 0.1497 0.29185 0.17432 0.27327\
-fill LightCyan1 -tag nirelanda
$w bind nireland <Button-1> {showName "Northern Ireland"}
$w create polygon \
0.22753 0.36309 0.20592 0.32898 0.1449 0.34693 0.12155 0.32417 \
0.1497 0.29185 0.12155 0.27807 0.10539 0.29495 0.10219 0.31098 \
0.08295 0.32701 0.09637 0.34272 0.07654 0.34624 0.06372 0.35586 \
0.04609 0.35265 0.02525 0.35105 0.01135 0.36547 0.02756 0.3783 \
0.02756 0.41158 0.0525 0.41677 0.07604 0.42056 0.03486 0.45524 \
0.03232 0.47146 0.04769 0.47146 0.08502 0.46248 0.04929 0.47769 \
0.02044 0.47929 0.0 0.4966 0.0 0.51135 0.03166 0.50814 0.03654 \
0.51995 0.01616 0.52417 0.01616 0.53853 0.04609 0.53219 0.07013 \
0.53379 0.15669 0.51295 0.19676 0.50974 0.21133 0.4966 0.22562 \
0.42799 0.21921 0.39914 0.22753 0.36309\
-fill SpringGreen1 -tag eire
$w bind eire <Button-1> {showName Eire}
set countries {germany luxemburg austria netherlands belgium \
denmark fyn sjaelland france switzerland italy sardinia \
corsica spain portugal gb hebrides nireland eire}
foreach c $countries { $w scale $c 0 0 300 300 }
proc showName {c} {
global is1
$is1.country delete 0 end
$is1.country insert end $c
}
# given a country flash that in canvas
proc highLightCountry { w tn } {
set old_colour [lindex [$w itemconfig $tn -fill] 4]
$w itemconfigure $tn -fill yellow
after 5000 "$w itemconfigure $tn -fill $old_colour; bell"
}
proc clearCanvas {w} {
foreach id [$w find all] {$w delete $id }
}
本文地址：http://com.8s8s.com/it/it33783.htm