{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "with(Maplets):\nwith(Maplets:-Eleme
nts):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "MyDir:=\"E:\\\\Use
rs\\\\ASN\\\\Alya_V\\\\Maple\\\\Kurs\\\\Lection(10)\\\\Image\\\\\":" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "IsDay:=true:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 321 "Change:=proc()\n global IsDay:\n M
aplets:-Tools:-Set('LI'('image')=`if`(IsDay,'IE_night','IE_day')):\n M
aplets:-Tools:-Set('B'('caption')=`if`(IsDay,\" Day \",\"Night\")):\n \+
Maplets:-Tools:-Set('RBDay'('value')=`if`(IsDay,false,true)):\n Maplet
s:-Tools:-Set('RBNight'('value')=`if`(IsDay,true,false)):\n IsDay:=not
 IsDay:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 277 "Help
Info:=\n\"\\t      Day and Night\\n\n \\tHelp Help Help Help Help Help
 Help Help Help Help Help Help Help Help Help\\n\n \\tHelp Help Help H
elp Help Help Help Help Help Help Help Help Help Help Help\\n\n \\tHel
p Help Help Help Help Help Help Help Help Help Help Help Help Help Hel
p\\n\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 337 "Help:=proc()\n \+
Display(\n  Maplet(\n   Window(\n    title=\"Help\",\n    xcoord=100,y
coord=50,\n    layout=\n     BoxLayout(\n      [TextBox(\n        widt
h=35,height=10,background=COLOR(RGB,250/256,254/256,222/256),\n       \+
 wrapped=true,editable=false,value=HelpInfo\n       ),\n       Button(
\"OK\",onclick=Shutdown())\n      ]\n     )\n   )\n  )\n )\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 819 "M:=Maplet(\n Window(\n  tit
le=\"Change Image\",\n  layout=\n   BoxLayout(\n    BoxColumn(\n     B
oxRow(border=true,\n      BoxCell(\n       RadioButton[RBDay](\"Day\",
group=BG,value=true)\n      ),\n      BoxCell(\n       RadioButton[RBN
ight](\"Night\",group=BG,value=false)\n      )\n     ),\n     BoxRow(b
order=true,\n      BoxCell(\n       Label['LI'](image=IE_day,tooltip=
\"Change Day and Night\")\n      )\n     ),\n     BoxRow(\n      BoxCe
ll(\n       Button[B](\"Night\",onclick=Evaluate(function=\"Change\"))
\n      ),\n      BoxCell(\n       Button[H](\"Help\",onclick=Evaluate
(function=\"Help\"))\n      ),\n      BoxCell(\n       Button(\"Exit\"
,onclick=Shutdown())\n      )\n     )\n    )\n   )\n ),\n Image[IE_day
](cat(MyDir,\"earthmap(day).gif\")),\n Image[IE_night](cat(MyDir,\"ear
thmap(night).gif\")),\n ButtonGroup[BG](onchange=Evaluate(function=\"C
hange\"))\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Display(M)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }