{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 }{PSTYLE "Text \+
Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 
3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" 
-1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 
-1 0 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 
255 1 2 2 2 2 2 1 1 1 3 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 12 "with(plots):" }}{PARA 7 "" 1 "" 
{TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(Maplets):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "IsRed:=false:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "GSin:=op([1,1],plot(sin,-5..5)):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "PicSinBlue:=PLOT(CURVES(G
Sin,COLOR(RGB,0,0,1),THICKNESS(2)),AXESSTYLE(NONE)):\nPicSinRed:=PLOT(
CURVES(GSin,COLOR(RGB,1,0,0),THICKNESS(2)),AXESSTYLE(NONE)):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 178 "Seconds:=PLOT(\n ANIMATE(\n
  seq(\n   seq(\n    [TEXT([0,0.05],sprintf(\"%02d:%02d\",i,j),FONT(CO
URIER,BOLD,10)),\n     VIEW(-1..1,-1..1),AXESSTYLE(NONE)],\n   j=0..59
),\n  i=0..1) \n )\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 249 "
ChangeColor:=proc()\n global IsRed:\n use Maplets:-Tools in\n  if IsRe
d then\n   Set(B_Color(foreground)=blue):\n   Set(P_Image=PicSinBlue)
\n  else\n   Set(B_Color(foreground)=red):\n   Set(P_Image=PicSinRed)
\n  end if:\n  IsRed:=not(IsRed)\n end use\nend proc:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 553 "M:=Maplet(\n Window(\n  layout=Box
Layout(inset=0,\n   [\n    [border=true,\n     BoxCell(\n      Plotter
[P_Image](PicSinBlue,\n       width=200,height=200,background=COLOR(RG
B,225/256$3)))\n    ],\n    [border=true,\n     BoxCell(\n      Plotte
r[P_S](Seconds,delay=1000,width=44,height=20,\n       background=COLOR
(RGB,200/256$3),continuous=true,play=true)\n     ),\n     BoxCell(\n  \+
    Button[B_Color](\"Change Color\",\n       onclick=Evaluate(functio
n=ChangeColor),foreground=blue\n      )\n     ),\n     BoxCell(Button(
\"Exit\",onclick=Shutdown()))\n    ]\n   ]\n  )\n )\n \n):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Display(M);" }}{PARA 6 "" 1 "" 
{TEXT -1 38 "Initializing Java runtime environment." }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{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 "11 0 0
" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }