{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 24 "with(Maplets[Elements]):" }}} {EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "FontFamily: =table(\n [\"courier\"=courier,\n \"helvetica\"=helvetica,\n \"symbo l\"=symbol,\n \"times\"=times]\n):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "FontBold:=table(\n [true=bold,\n false=nobold]\n) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "FontItalic:=table(\n [ true=italic,\n false=noitalic]\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "FontSize:=table(\n [\"8\"=8,\"10\"=10,\"12\"=12,\"14 \"=14,\"16\"=16]\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 413 "Fo ntSequence:=NULL:\nfor f in [\"times\",\"courier\",\"helvetica\",\"sym bol\"] do\n for b in [true,false] do\n for i in [true,false] do\n \+ for s in [\"8\",\"10\",\"12\",\"14\",\"16\"] do\n remove(a->evalb(( a=nobold) or (a=noitalic)),\n [f,FontBold[b],FontItalic[i],FontSiz e[s]]):\n Font[cat(FontFamily[f],FontBold[b],FontItalic[i],FontSize [s])](op(%)):\n FontSequence:=FontSequence,%:\n end do:\n end do : \n end do:\nend do:" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "GetFont:=proc(f,b,i,s)\n cat(FontFamily[f],FontB old[b],FontItalic[i],FontSize[s]):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 238 "ChangeFont:=proc()\n local f,b,i,s:\n f:=Maplet s:-Tools:-Get(DDB_Font);\n b:=Maplets:-Tools:-Get(CB_Bold);\n i:=Maple ts:-Tools:-Get(CB_Italic);\n s:=Maplets:-Tools:-Get(DDB_Size);\n Maple ts:-Tools:-Set(TB_Text(font)=GetFont(f,b,i,s));\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1387 "M:=Maplet(\n Window(\n title=\"F ont Exchanger\",resizable=false,\n layout=GridLayout(\n inset=5,\n \+ GridRow(\n GridCell(height=5,\n TextBox[TB_Text](\n widt h=25,height=10,font=timesnoboldnoitalic14,\n \"\335\362\356\362 \+ \362\345\352\361\362 \355\340\365\356\344\350\362\361\377 \342 TextBox .\\\n \321 \357\356\354\356\371\374\376 DropDownBox \350 \344\360\363 \343\350\365 \375\353\345\354\345\355\362\356\342\\\n \363\357\360\340 \342\353\345\355\350\377 \341\363\344\345\354 \354\345\355\377\362\374 \365\340\360\340\352\362\345\360\350\361\362\350\352\350\\\n \370\360 \350\364\362\340. \317\356\361\352\356\353\374\352\363 \375\353\345 \354\345\355\362 Font \355\345 \354\345\355\377\345\362\\\n \361\342 \356\350\365 \361\342\356\351\361\362\342, \362\356 \355\363\346\355 \356 \347\340\360\340\355\345\345 \357\356\344\343\356\362\356\342\350 \362\374\\\n \342\340\360\350\340\355\362\373 \370\360\350\364\362\356 \342 \350 \357\356\354\345\361\362\350\362\374 \342 Maplet.\"\n ) \n ),\n GridCell(\n halign=left,valign=top,\n DropDownBo x[DDB_Font](\n \"times\",[\"courier\",\"helvetica\",\"symbol\",\" times\"],\n onchange=A_Change\n )\n )\n ),\n GridRow( \n GridCell(\n halign=left,valign=top,\n BoxLayout(inset=0, \n BoxCell(Label(\"Bold:\")),BoxCell(CheckBox[CB_Bold](onchange=A _Change))\n )\n )\n ),\n GridRow(\n GridCell(\n hali gn=left,valign=top,\n BoxLayout(inset=0,\n BoxCell(Label(\"It alic:\")),BoxCell(CheckBox[CB_Italic](onchange=A_Change))\n )\n \+ )\n ),\n GridRow(\n GridCell(\n halign=left,valign=top,\n \+ BoxLayout(inset=0,\n BoxCell(Label(\"Size:\")),\n BoxCel l(DropDownBox[DDB_Size](\"14\",[\"8\",\"10\",\"12\",\"14\",\"16\"],onc hange=A_Change))\n )\n )\n ),\n GridRow(\n GridCell(vali gn=bottom,\n Button[B_Exit](\"Exit\",onclick=Shutdown())\n )\n \+ )\n )\n ),\n Action[A_Change](Evaluate(function = ChangeFont)),\n F ontSequence\n ):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Maplets:-Display(M);" }{TEXT -1 0 "" }}}{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 }{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 }{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 }{EXCHG } {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 "" }}} {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 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "157 0 0" 0 } {VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }