{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 "Warni
ng" -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 39 "with(Maplets):\nwith(Maplets
[Elements]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "p:=plot([(c
os(a)),(sin(a)),a=Pi/2..Pi/2+2*Pi],\n adaptive=false,numpoints=18):" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "p:=op([1,1],p):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 9 "SIZE:=20:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "PNT:=p[1]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
108 "Text:=PLOT(TEXT(PNT,\"Proverka\",COLOR(RGB,1,0,1),\n FONT(TIMES,B
OLD,SIZE)),AXESSTYLE(NONE),VIEW(-2..2,-2..2)):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 161 "Resize:=proc()\n local size:\n size:=parse(Ma
plets:-Tools:-Get(DDB)):\n Maplets:-Tools:-Set(P=subs(SIZE=size,Text))
:\n Maplets:-Tools:-Set(P(`stop`)=true):\nend proc:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 284 "Move:=proc()\n local i,size:\n global MT
ext:\n size:=parse(Maplets:-Tools:-Get(DDB)):\n MText:=NULL:\n for i f
rom 2 to 18 do\n  MText:=MText,subs([PNT=p[i],SIZE=size],Text)\n end d
o:\n Maplets:-Tools:-Set(P=display(eval([MText]),insequence=true)):\n \+
Maplets:-Tools:-Set(P(play)=true)\nend proc:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 40 "#plots[display](Move(),insequence=true);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 574 "M:=Maplet(\n Window(\n  lay
out=BoxLayout(\n   BoxColumn(\n    BoxRow(\n     BoxCell(\n      Plott
er[P](background=grey,value=Text,continuous=false,delay=50)\n     )\n \+
   ),\n    BoxRow(\n     BoxCell(halign=right,Label(halign=right,\"Siz
e:\")),\n     BoxCell(\n      DropDownBox[DDB](width=50,halign=center,
\"20\",[\"20\",\"36\",\"52\"]\n      )\n     ),\n     BoxCell(halign=l
eft,\n      Button(\"Resize Text\",onclick=A_Resize)),\n     BoxCell(
\n      Button(\"Move Text\",onclick=A_Move)\n     )\n    )\n   )\n  )
\n ),\n Action[A_Resize](Evaluate(function=Resize)),\n Action[A_Move](
Evaluate(function=Move))\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "Display(M):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart
:" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "58 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }