{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 14 "with(Maplets):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "s_info:=\"Color Exchanger is a simple examp le\":\ns_0:=\" \":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "PicPo ints:=op([1,1],plot(sin,-2*Pi..2*Pi)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "F_Color:=COLOR(RGB,1,0,0):\nB_Color:=COLOR(RGB,0.5,0. 6,0.7):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "Pic:=PLOT(CURVES (PicPoints,F_Color,THICKNESS(2)),AXESSTYLE(NONE)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 159 "ConvertToCOLOR:=proc(s)\n local ns:\n ns:= substring(s,2..-1):\n map2(substring,ns,[1..2,3..4,5..6]);\n map(conve rt,%,decimal,hex)/255;\n COLOR(RGB,op(%));\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "Select:=proc()\n local r:\n Displa y(\n Maplet(\n ColorDialog[CD](\n onapprove = Shutdown([CD]),\n \+ oncancel = Shutdown()\n )\n )\n ):\n op(%):\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 417 "SetColor:=proc()\n local c: \n global Pic,F_Color,B_Color:\n c:=Select();\n if Maplets:-Tools:-Get (RBMI_F) then\n F_Color:=ConvertToCOLOR(c):\n Maplets:-Tools:-Set(L_ BF(foreground)=F_Color):\n Pic:=PLOT(CURVES(PicPoints,F_Color,THICKNE SS(2)),AXESSTYLE(NONE))\n else\n B_Color:=c:\n Maplets:-Tools:-Set(L _BF(foreground)=B_Color):\n Maplets:-Tools:-Set(P(background)=c):\n e nd if:\n Maplets:-Tools:-Set(P(value)=Pic):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "ChangeF:=proc()\n Maplets:-Tools:-S et(L_BF(caption)=\"Foreground\",L_BF(foreground)=F_Color)\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "ChangeB:=proc()\n Maplets :-Tools:-Set(L_BF(caption)=\"Background\",L_BF(foreground)=B_Color)\ne nd proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "ChangeI:=proc( )\n `if`(Maplets:-Tools:-Get(CBMI),s_info,s_0):\n Maplets:-Tools:-Set( L_Info(caption)=%):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1036 "M:=Maplet(\n Window(title=\"Color Exchanger\",\n menubar=MB ,\n layout=BoxLayout(\n BoxColumn(border=true,caption=\"Plotter\", \n BoxRow(border=true,inset=0,\n BoxCell(Label[L_Info](s_info)) \n ),\n BoxCell(\n Plotter[P](\n width=200,height=200,b ackground=B_Color,value=Pic)\n ),\n BoxRow(border=true,\n Bo xCell(Label[L_BF](\n \"Background\",foreground=B_Color,font=Font( \"courier\",bold,12)),halign=right),\n BoxCell(Button(\"Set Color \",onclick=A_SetColor))\n )\n )\n )\n ),\n Action[A_SetColor](Ev aluate(function=SetColor)),\n MenuBar[MB](\n Menu(\"&File\",\n Chec kBoxMenuItem[CBMI](value=true,\"&Info\",onclick=A_Info),\n MenuSepar ator(),\n MenuItem(\"&Close\",Shutdown())),\n Menu(\"&Edit\",\n R adioButtonMenuItem[RBMI_F](\n value=false,\"&Foreground\",group=BG, onclick=A_F),\n RadioButtonMenuItem[RBMI_B](\n value=true, \"&Bac kground\",group=BG,onclick=A_B)\n )\n ),\n Action[A_Info](Evaluate(fu nction=ChangeI)),\n Action[A_F](Evaluate(function=ChangeF)),\n Action[ A_B](Evaluate(function=ChangeB)),\n ButtonGroup[BG]()\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 "" }}}{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 "" }}}{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 " " }}}{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 "" }}}{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 "15 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }