{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "Blue Emphasis" -1 256 "Times" 0 0 0 0 255 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "Grey Emphasis" -1 257 "Times" 1 12 96 52 84 1 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "Maroon Emphasis" -1 258 "Times" 1 12 128 0 128 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "Purple Emphasis" -1 259 "Times" 1 12 102 0 230 1 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "Dark Red Emphasis" -1 260 "T imes" 1 12 128 0 0 1 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "Green Emphasis" -1 261 "Times" 1 12 0 128 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "Red Emphasis " -1 262 "Times" 1 12 255 0 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 267 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{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 "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 128 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 3 0 3 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 128 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "Maple O utput" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Time s" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 258 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 {PARA 3 "" 0 "" {TEXT -1 54 "Enhancing Maple's colours - addin g extra named colours" }}{PARA 0 "" 0 "" {TEXT -1 37 "by Peter Stone, \+ Nanaimo, B.C., Canada" }}{PARA 0 "" 0 "" {TEXT -1 19 "Version: 27.3.2 007" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " ;" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 51 "load extra colours and util ity routines for colours" }}{PARA 0 "" 0 "" {TEXT -1 111 "The extra co lours and utility routines for colours considered in this worksheet ar e stored in the Maple m-file " }{TEXT 257 9 "colours.m" }{TEXT -1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 128 "This file can be read into a Maple \+ session by a command similar to the one that follows, where the file p ath gives its location." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "r ead \"K:\\\\Maple/procdrs/colours.m\";" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 30 "Utility routines for colours: " } {TEXT 0 32 "ShowColours,convert(..,RGB) etc." }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 135 "Reference: \"C omputer Graphics, Principles and Practice\" by Foley, van Dam, Feiner, and Hughes,\n Addison Wesley, Second Edition, 1990." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 18 "ShowColours: usage" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 0 "" }{TEXT 264 18 "Calling Sequence:\n" }}{PARA 0 "" 0 "" {TEXT -1 26 " ShowColours( clr, n ) " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 11 "Parameters:" }}{PARA 0 "" 0 " " {TEXT -1 2 " " }}{PARA 0 "" 0 "" {TEXT -1 98 " clr - a co lour, which can be a named colour or be specified in RGB, HSV or HLS f ormat. " }}{PARA 0 "" 0 "" {TEXT -1 76 " This argumen t may also be a positive integer, or \"all\". " }}{PARA 0 "" 0 "" {TEXT -1 98 " n - a positive integer giving the number of c olours 'similar' to clr to be displayed. " }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}{PARA 256 "" 0 "" {TEXT -1 12 "Description:" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 14 "The procedure " }{TEXT 0 11 "ShowColours" }{TEXT -1 40 " displays colours available for plots . ." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 21 "lighten,darken: usage" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 263 18 "Calling Sequence:\n" }}{PARA 0 "" 0 "" {TEXT -1 42 " lighten( clr )\n lighten( clr, t ) " }} {PARA 0 "" 0 "" {TEXT -1 40 " darken( clr )\n darken( clr, t ) \+ " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 11 "Par ameters:" }}{PARA 0 "" 0 "" {TEXT -1 2 " " }}{PARA 0 "" 0 "" {TEXT -1 101 " clr - a colour, which can be a named colour or be s pecified in RGB, HSV or HLS format. " }}{PARA 0 "" 0 "" {TEXT -1 88 " t - a parameter which evaluates to a floating point nu mber between 0 and 1. " }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}{PARA 256 " " 0 "" {TEXT -1 12 "Description:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 15 "The procedures " }{TEXT 0 14 "lighten,dar ken" }{TEXT -1 102 " lighten and darken by an amount which can be cont rolled using the 2nd optional parameter if desired. " }}{PARA 0 "" 0 " " {TEXT -1 57 "When the colour is given in terms of its HLS components , " }{TEXT 0 7 "lighten" }{TEXT -1 33 " changes the lightness componen t " }{TEXT 265 1 "L" }{TEXT -1 4 " to " }{XPPEDIT 18 0 "L*`'`" "6#*&% \"LG\"\"\"%\"'GF%" }{TEXT -1 8 ", where " }{XPPEDIT 18 0 "L*`'` = t +( 1-t)*L" "6#/*&%\"LG\"\"\"%\"'GF&,&%\"tGF&*&,&F&F&F)!\"\"F&F%F&F&" } {TEXT -1 8 ", while " }{TEXT 0 6 "darken" }{TEXT -1 33 " changes the l ightness component " }{TEXT 266 1 "L" }{TEXT -1 4 " to " }{XPPEDIT 18 0 "L*`'`" "6#*&%\"LG\"\"\"%\"'GF%" }{TEXT -1 8 ", where " }{XPPEDIT 18 0 "L*`'` = (1-t)*L" "6#/*&%\"LG\"\"\"%\"'GF&*&,&F&F&%\"tG!\"\"F&F%F &" }{TEXT -1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 14 "The parameter " } {TEXT 267 1 "t" }{TEXT -1 27 " has the default value of " }{XPPEDIT 18 0 "1/3" "6#*&\"\"\"F$\"\"$!\"\"" }{TEXT -1 2 ". " }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 259 16 "How to activate:" }{TEXT 256 1 "\n" }{TEXT -1 163 "To ma ke procedures active open the appropriate subsection, place the cursor anywhere after the prompt [ > and press [Enter].\nYou can then close up the subsection." }}{PARA 0 "" 0 "" {TEXT 259 4 "Note" }{TEXT -1 242 ": In order for a procedure in this list to work it may be necessa ry for a preceding procedure to be active, that is, if you load select ively, you should be aware of possible depedencies on preceding proced ures as you go down through the list." }}{PARA 0 "" 0 "" {TEXT -1 27 " For example, the procedure " }{TEXT 0 11 "ShowColours" }{TEXT -1 36 " \+ requires the conversion procedures " }{TEXT 0 15 "convert(..,RGB)" } {TEXT -1 2 ", " }{TEXT 0 15 "convert(..,HSV)" }{TEXT -1 2 ", " }{TEXT 0 15 "convert(..,HLS)" }{TEXT -1 17 " to be active. " }}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 48 "type(..,colour), type(..,color): implemen tation " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 478 "`type/colour` := proc(cc)\n if type(cc,function) a nd member(op(0,cc),\{'COLOR','COLOUR'\}) then\n if member(op(1,cc ),\{'RGB','HSV','HLS'\}) and nops(cc)=4 \n and type([op(2..4,cc )],list(numeric)) then true\n elif op(1,cc)='HUE' and nops(cc)=2 \+ \n and type(op(2,cc),numeric) then true\n else false end i f;\n else \n try\n `plot/color`(cc);\n true;\n \+ catch: false;\n end try;\n end if;\nend proc:\n`type/color ` := eval(`type/colour`):" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 64 "convert(..,RGB), convert(..,HSV),conver t(..,HLS): implementation" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6790 "`convert/RGB` := proc(cc)\n loc al h,s,v,synOK,clr,i,f,p,q,t,l,r,g,b;\n\n if type(cc,\{list,set\}) t hen \n return map('procname',cc)\n end if;\n\n clr := cc;\n\n if type(clr,function) and member(op(0,clr),\{'COLOR','COLOUR'\}) th en\n if member(op(1,clr),\{'RGB','HSV','HLS'\}) and nops(clr)=4 \+ \n and type([op(2..4,clr)],list(numeric)) then synOK := true\n \+ elif op(1,clr)='HUE' and nops(clr)=2 \n and type(op(2,clr) ,numeric) then synOK := true\n else synOK := false end if;\n el se\n synOK := false\n end if; \n\n if synOK then\n if op (1,clr)='RGB' then\n\011 r := max(min(evalf(op(2,clr)),1.),0.); \n\011 g := max(min(evalf(op(3,clr)),1.),0.);\n \011 b := max(min(evalf(op(4,clr)),1.),0.);\n return COLOR(RGB,r,g,b); \n elif op(1,clr)='HUE' then\n h := evalf(op(2,clr));\n \+ h := h-floor(h);\n clr := COLOR(HSV,h,0.9,1.0)\n e nd if;\n end if;\n\n if not synOK then\n try\n clr := `plot/color`(clr);\n return clr; \n catch: error \"unable to convert %1 to an RGB colour\",clr;\n end try;\n en d if;\n\n Digits := 8;\n if op(1,clr)='HSV' then\n\011 h := ev alf(op(2,clr));\n h := h-floor(h);\n\011 s := max(min(evalf(o p(3,clr)),1.),0.);\n \011 v := max(min(evalf(op(4,clr)),1.),0.);\n \+ h := h*6;\n i := floor(h);\n\011 \011\011f := h-i;\n\011 \+ \011 p := v*(1-s);\n\011 \011 q := v*(1-s*f) ;\n\011 \011 t := v* (1-s*(1-f));\n \n \011\011 if i=0 then\n COLOR('RGB',v,t ,p)\n\011\011\011 elif i=1 then\n\011\011\011 COLOR('RGB',q,v,p )\n elif i=2 then\n COLOR('RGB',p,v,t)\n elif i=3 th en\n COLOR('RGB',p,q,v)\n elif i=4 then\n COLOR(' RGB',t,p,v)\n\011\011\011 else # i=5 then\n COLOR('RGB',v,p, q)\n end if;\n else # op(1,clr)='HLS'\n\011 h := evalf(op(2 ,clr));\n h := h-floor(h);\n\011 l := max(min(evalf(op(3,clr) ),1.),0.);\n \011 s := max(min(evalf(op(4,clr)),1.),0.);\n h : = h*6;\n p := `if`(l<=.5,l+l*s,l+s-l*s);\n q := 2*l-p;\n \+ t := p-q;\n if s=0 then\n COLOR('RGB',l,l,l);\n el se\n if h<1 then\n COLOR('RGB',p,q+t*h,q)\n \+ elif h<2 then\n COLOR('RGB',q+t*(2-h),p,q)\n elif \+ h<3 then\n COLOR('RGB',q,p,q+t*(h-2))\n elif h<4 th en \n COLOR('RGB',q,q+t*(4-h),p)\n elif h<5 then\n \+ COLOR('RGB',q+t*(h-4),q,p)\n else\n COLO R('RGB',p,q,q+t*(6-h))\n end if;\n end if;\n end if;\ne nd proc: # `convert/RGB`\n\n`convert/HSV` := proc(cc)\n local clr,sy nOK,r,g,b,h,s,v,d,l,u,t;\n\n if type(cc,\{list,set\}) then \n r eturn map('procname',cc)\n end if;\n\n clr := cc;\n if type(clr, function) and member(op(0,clr),\{'COLOR','COLOUR'\}) then\n if me mber(op(1,clr),\{'RGB','HSV','HLS'\}) and nops(clr)=4 \n and ty pe([op(2..4,clr)],list(numeric)) then synOK := true\n elif op(1,c lr)='HUE' and nops(clr)=2 \n and type(op(2,clr),numeric) then s ynOK := true\n else synOK := false end if;\n else\n synOK \+ := false\n end if;\n\n if synOK then\n if op(1,clr)='HSV' the n\n\011 h := evalf(op(2,clr));\n h := h-floor(h);\n\011 s := max(min(evalf(op(3,clr)),1.),0.);\n \011 v := max(m in(evalf(op(4,clr)),1.),0.);\n return COLOR('HSV',h,s,v);\n \+ elif op(1,clr)='HUE' then\n\011 h := evalf(op(2,clr));\n \+ h := h-floor(h);\n return COLOR('HSV',h,0.9,1.0);\n \+ end if;\n end if;\n\n if not synOK then\n try clr := `plot/co lor`(clr);\n catch: error \"unable to convert %1 to an HSV colour \",clr;\n end try;\n end if;\n\011\n Digits := 8;\n if op(1 ,clr)='RGB' then\n\011 r := max(min(evalf(op(2,clr)),1.),0.);\n \011 g := max(min(evalf(op(3,clr)),1.),0.);\n \011 b := max(min (evalf(op(4,clr)),1.),0.);\n\n v := max(r,g,b); \n d := v-m in(r,g,b);\n if d=0 then # r = g = b\n return COLOR('HS V',evalf(2/3),0.,r);\n end if;\n\n s := d/v; \n\011 if v=r then\n\011\011 h := (g-b)/d;\011# between yellow & magenta \n\011 elif v=g then\n\011\011 h := 2+(b-r)/d;\011# between \+ cyan & yellow\n\011 else\n\011\011 h := 4+(r-g)/d;\011# betw een magenta & cyan\n end if;\n h := h/6;\n\011 if h<0 th en h := h+1. end if;\n COLOR('HSV',h,s,v);\n else # op(1,clr)=H LS\n\011 h := evalf(op(2,clr));\n h := h-floor(h);\n\011 \+ l := max(min(evalf(op(3,clr)),1.),0.);\n \011 s := max(min(evalf(op (4,clr)),1.),0.);\n u := 2*l;\n d := `if`(u<1,u*s,(2-u)*s); \n t := u+d;\n v := t/2;\n s := `if`(v<>0,d/v,0.);\n \+ COLOR('HSV',h,s,v);\n end if;\nend proc: # `convert/HSV`\n\n`conv ert/HLS` := proc(cc)\n local clr,synOK,r,g,b,h,s,l,d,u,v,m;\n\n if type(cc,\{list,set\}) then \n return map('procname',cc)\n end \+ if;\n\n clr := cc;\n if type(clr,function) and member(op(0,clr),\{ 'COLOR','COLOUR'\}) then\n if member(op(1,clr),\{'RGB','HSV','HLS '\}) and nops(clr)=4 \n and type([op(2..4,clr)],list(numeric)) \+ then synOK := true\n elif op(1,clr)='HUE' and nops(clr)=2 \n \+ and type(op(2,clr),numeric) then synOK := true\n else synOK := false end if;\n else\n synOK := false\n end if;\n\n if syn OK then\n if op(1,clr)='HLS' then\n\011 h := evalf(op(2,cl r));\n h := h-floor(h);\n\011 l := max(min(evalf(op(3,c lr)),1.),0.);\n \011 s := max(min(evalf(op(4,clr)),1.),0.);\n \+ return COLOR(HSV,h,l,s);\n elif op(1,clr)='HUE' then\n\011 \+ h := evalf(op(2,clr));\n h := h-floor(h);\n ret urn COLOR('HLS',h,0.55,1.0);\n end if;\n end if;\n\n if not s ynOK then\n try clr := `plot/color`(clr);\n catch: error \"u nable to convert %1 to an HLS colour\",clr;\n end try;\n end if ;\n\011\n Digits := 8;\n if op(1,clr)='RGB' then\n\011 r := ma x(min(evalf(op(2,clr)),1.),0.);\n\011 g := max(min(evalf(op(3,clr) ),1.),0.);\n \011 b := max(min(evalf(op(4,clr)),1.),0.);\n\n # compute the lightness\n v := max(r,g,b);\n m := min(r,g,b); \n u := v+m;\n d := v-m;\n l := u/2;\n\n if d=0 th en # r = g = b\n return COLOR('HLS',evalf(2/3),l,0.);\n \+ end if;\n\n # compute the HLS saturation\n s := `if`(l<=.5, d/u,d/(2-u));\n\n # compute the hue\n\011 if v=r then\n\011 \011 h := (g-b)/d;\011# between yellow & magenta\n\011 elif \+ v=g then\n\011\011 h := 2+(b-r)/d;\011# between cyan & yellow\n \011 else\n\011\011 h := 4+(r-g)/d;\011# between magenta & c yan\n end if;\n h := h/6;\n if h<0 then h := h+1. end i f;\n COLOR('HLS',h,l,s);\n else # op(1,clr)=HSV\n\011 h := \+ evalf(op(2,clr));\n h := h-floor(h);\n\011 s := max(min(evalf (op(3,clr)),1.),0.);\n \011 v := max(min(evalf(op(4,clr)),1.),0.); \n d := s*v;\n m := v-d;\n u := v+m;\n l := u/2;\n \n # compute the HLS saturation\n if d=0 then\n s := 0.\n else\n s := `if`(l<=.5,d/u,d/(2-u));\n end if; \n COLOR('HLS',h,l,s); \n end if;\nend proc: # `convert/HLS`" } }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 27 "ShowColours: implementation" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2853 "ShowColours := proc(ff)\n \+ local i,clrs,clrnames,cc,ci,t,h,pp,rect,txt,start,finish,\n jF, jS,jM,n,c1,k,j,under,over,ord;\n\n clrnames := map(op,[indices(`plot /colortable`)]);\n cc := [];\n for i to nops(clrnames) do\n c i := clrnames[i];\n if not StringTools[IsUpper](ci) then\n \+ t := COLOR(RGB,op(`plot/colortable`[ci]));\n h := convert( t,HSV);\n cc := [op(cc),[op(2..4,h),ci,t]]\n end if;\n \+ end do;\n ord := proc(_u,_v)\n if op(1,_u)1 d o\n jM := trunc((jF+jS)/2);\n if not ord(h,cc[jM ]) then jF := jM \n else jS := jM end if;\n end do; \n end if;\n\n if nargs>=2 and type(args[2],posint) then \n \+ k := iquo(min(args[2],n),2);\n else\n k := 5;\n \+ end if;\n under := min(n+jF-k,n);\n start := max(jF-k,1) ;\n finish := min(jF+k,n);\n over := max(jF+k-n,1);\n end \+ if;\n\n pp := NULL;\n j := 1;\n if under1 then\n for i from 1 to over do\n rect := plots[po lygonplot]([[0,1-j],[1,1-j],[1,-j],[0,-j]],\n style=patch nogrid,color=op(4,cc[i]));\n txt := plots[textplot]([1.2,0.5-j ,op(4,cc[i])],color=black,align=RIGHT);\n pp := pp,plots[displ ay]([rect,txt]);\n j := j+1;\n end do;\n end if;\n pl ots[display]([pp],axes=NONE);\nend proc: # ShowColours" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 31 "lighten, darken: implementation" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2775 " lighten := proc(cc::\{color,list(color),set(color)\})\n local c,r,c2 ,drw,optn,p1,p2;\n\n if type(cc,\{list,set\}) then \n return ma p('procname',cc,args[2..nargs])\n end if;\n\n if op(1,cc)='HLS' th en\n c := cc;\n else\n c := convert(cc,'HLS'); \n end \+ if; \n\n Digits := 8;\n if nargs>1 and type(args[2],numeric) the n\n r := evalf(args[2]);\n if r>1 or r<0 then\n erro r \"expecting the 2nd argument to evaluate to a floating point number \+ between 0 and 1, but received %1\",args[2];\n end if;\n else\n \+ r := evalf(1/3);\n end if;\n\n if nargs=2 and not type(args[2 ],numeric) then\n optn := args[2]\n elif nargs=3 then\n op tn := args[3]\n end if;\n\n drw := false;\n if assigned(optn) th en\n if type(optn,`=`) then \n if op(1,optn)=draw then dr w := op(2,optn) end if;\n if drw<>true then drw := false end i f;\n elif optn=draw then drw := true;\n end if;\n end if; \+ \n \n # increase the 'L' component towards 1\n c2 := COLOR(HLS, op(2,c),r+(1-r)*op(3,c),op(4,c));\n if drw then\n p1 := plots[p olygonplot]([[0,0],[1,0],[1,1],[0,1]],color=c);\n p2 := plots[pol ygonplot]([[0,0],[1,0],[1,-1],[0,-1]],color=c2);\n print(plots[di splay]([p1,p2],axes=NONE));\n end if;\n if op(1,cc)='RGB' then\n \+ convert(c2,'RGB')\n elif op(1,cc)='HSV' then\n convert(c2,H SV)\n else c2 end if;\nend proc: # of lighten\n\ndarken := proc(cc:: \{color,list(color),set(color)\})\n local c,r,c2,drw,optn,p1,p2;\n\n if type(cc,\{list,set\}) then \n return map('procname',cc,args [2..nargs])\n end if;\n\n if op(1,cc)='HLS' then\n c := cc;\n else\n c := convert(cc,'HLS'); \n end if; \n\n Digits \+ := 8;\n if nargs>1 and type(args[2],numeric) then\n r := evalf( args[2]);\n if r>1 or r<0 then\n error \"expecting the 2n d argument to evaluate to a floating point number between 0 and 1, but received %1\",args[2];\n end if;\n else\n r := evalf(1/3) ;\n end if;\n\n if nargs=2 and not type(args[2],numeric) then\n \+ optn := args[2]\n elif nargs=3 then\n optn := args[3]\n en d if;\n\n drw := false;\n if assigned(optn) then\n if type(op tn,`=`) then \n if op(1,optn)=draw then drw := op(2,optn) end \+ if;\n if drw<>true then drw := false end if;\n elif optn= draw then drw := true;\n end if;\n end if;\n\n # decrease the 'L' component towards 0\n c2 := COLOR(HLS,op(2,c),(1-r)*op(3,c),op( 4,c));\n if drw then\n p1 := plots[polygonplot]([[0,0],[1,0],[1 ,1],[0,1]],color=c);\n p2 := plots[polygonplot]([[0,0],[1,0],[1,- 1],[0,-1]],color=c2);\n print(plots[display]([p1,p2],axes=NONE)); \n end if;\n if op(1,cc)='RGB' then\n convert(c2,'RGB')\n e lif op(1,cc)='HSV' then\n convert(c2,HSV)\n else c2 end if;\nen d proc: # of darken" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 63 "`plot/color`: implementation (replacement for default version) " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1197 "`plot/color` := proc(t)\n local h,l,s,u,d,w,v;\n if type(t,function) and (op(0,t)='COLOUR' or op(0, t)='COLOR') then\n if member(op(1,t),\{'HLS','HSV'\}) then \n \+ if nops(t)=4 and type([op(2..4,t)],list(numeric)) then\n \+ h := op(2,t);\n h := h-floor(h);\n if op(1,t) ='HSV' then\n COLOUR('HSV',h,op(3..4,t))\n el se # convert HLS to HSV\n\011 l := max(min(op(3,t),1),0); \n \011 s := max(min(op(4,t),1),0);\n u := 2 *l;\n d := `if`(u<1,u*s,(2-u)*s);\n w := u +d;\n v := w/2;\n s := `if`(v<>0,d/v,0.); \n COLOUR('HSV',h,s,v);\n end if\n el se error \"invalid HSV or HLS COLOUR data\"\n end if\n el if op(1,t)='HUE' then\n if nops(t)=2 and type(op(2,t),numeric) then\n h := op(2,t);\n h := h-floor(h);\n \+ COLOUR('HUE',h);\n else error \"invalid HUE COLOUR data \"\n end if;\n else t end if;\n elif member(t,map(op,\{ind ices(`plot/colortable`)\})) then\n COLOUR('RGB',op(`plot/colortab le`[t]))\n else error \"invalid color specification\"\n end if\nen d proc: # of `plot/color`" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 52 "`plot/colortable`: replacement for defa ult version " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7389 "`plot/colortable` := \n table(\n # colours retained from default table\n [gold=[.800,.498,.196],\n blue=[0., 0.,1.], \n magenta=[1.,0.,1.],\n white=[1.,1.,1.],\n pink=[1.,. 753,.796],\n cyan=[0.,1.,1.],\n sienna=[.557,.42,.137],\n aquama rine=[.439,.859,.576],\n maroon=[.557,.137,.42],\n yellow=[1.,1.,0 .],\n green=[0.,1.,0.],\n navy=[.137,.137,.557],\n khaki=[.624,. 624,.373],\n grey=[.753,.753,.753],\n gray=[.753,.753,.753],\n r ed=[1.,0.,0.],\n plum=[.918,.678,.918],\n black=[0,0,0],\n turqu oise=[.678,.918,.918],\n brown=[.647,.165,.165],\n tan=[.859,.576, .439],\n wheat=[.961,.871,.702],\n coral=[1.,.498,0.],\n\n GOLD= [.800,.498,.196],\n BLUE=[0.,0.,1.], \n MAGENTA=[1.,0.,1.],\n W HITE=[1.,1.,1.],\n PINK=[1.,.753,.796],\n CYAN=[0.,1.,1.],\n SIE NNA=[.557,.42,.137],\n AQUAMARINE=[.439,.859,.576],\n MAROON=[.557 ,.137,.42],\n YELLOW=[1.,1.,0.],\n GREEN=[0.,1.,0.],\n NAVY=[.13 7,.137,.557],\n KHAKI=[.624,.624,.373],\n GREY=[.753,.753,.753],\n GRAY=[.753,.753,.753],\n RED=[1.,0.,0.],\n PLUM=[.918,.678,.918 ],\n BLACK=[0,0,0],\n TURQUOISE=[.678,.918,.918],\n BROWN=[.647, .165,.165],\n TAN=[.859,.576,.439],\n WHEAT=[.961,.871,.702],\n \+ CORAL=[1.,.498,0.],\n\n # more colours\n bright_gold=[.851,.851,.0 98],\n brass=[.710,.651,.259],\n grey_bronze=[.549,.471,.325],\n \+ cool_copper=[.851,.529,.098],\n bronze=[.651,.490,.239],\n spicy_ pink=[1.,.11,.682],\n dark_chocolate=[.42,.259,.149],\n scarlet=[. 549,.0902,.0902],\n light_tan=[.922,.78,.62],\n silver=[.902,.91,. 98],\n light_grey=[.804,.804,.804],\n old_gold=[.812,.710,.231],\n mandarin_orange=[.894,.471,.2],\n neon_pink=[1.,.431,.78],\n ne on_blue=[.302,.302,1.],\n copper=[.722,.451,.2],\n light_green=[.5 65,.933,.565],\n very_dark_brown=[.361,.251,.200],\n\n # even more colours\n alice_blue=[.941,.973,1.],\n alizarin_crimson=[.889,.15 ,.21],\n antique=[.981,.922,.845],\n cyan_aquamarine=[.47, .93, .6 5],\n medium_aquamarine=[.4,.804,.667],\n aureoline_yellow=[1.,.66 ,.14],\n azure=[.942,1.,1.],\n banana=[.89,.81,.34],\n beige=[.6 4,.58,.5],\n bisque=[1.,.898,.772],\n blanched_almond=[1.,.923,.80 4],\n light_blue=[0,.45,1.],\n pale_blue=[.678,.847,.902],\n med ium_blue=[0.,0.,.804],\n blue_violet=[.541,.169,.886],\n brick=[.6 1,.4,.12],\n brown=[.5,.165,.165],\n brown_oadder=[.86,.16,.16],\n brown_ochre=[.53,.26,.12],\n burlywood=[.871,.722,.529],\n burn t_sienna=[.54,.21,.06],\n burnt_umber=[.54,.2,.14],\n cadet=[.372, .62,.628],\n cadmium_lemon=[1.,.89,.01],\n cadmium_orange=[1.,.38, .01],\n deep_cadmium_red=[.89,.09,.05],\n light_cadmium_red=[1.,.0 1,.05],\n cadmium_yellow=[1.,.6,.07],\n light_cadmium_yellow=[1.,. 69,.06],\n carrot=[.93,.57,.13],\n cerulean=[.02,.72,.8],\n char treuse=[.498,1.,0.],\n chocolate=[.823,.412,.118],\n chrome_oxide_ green=[.4,.5,.08],\n cinnabar_green=[.38,.7,.16],\n cobalt=[.24,.3 5,.67],\n cobalt_green=[.24,.57,.25],\n deep_cobalt_violet=[.57,.1 3,.62],\n cold_grey=[.5,.54,.53],\n pinkish_coral=[1.,.498,.314], \n coral_pink=[.941,.502,.502],\n cornflower_blue=[.392,.584,.929] ,\n cornsilk=[1.,.973,.863],\n light_cyan=[.333,1.,1.],\n orange =[1.,.549,0.],\n deep_pink=[1.,.0784,.576],\n deep_ochre=[.45,.24, .1],\n dim_grey=[.333333,.333333,.333333],\n dodger_blue=[.118,.56 5,1.],\n eggshell=[.99,.9,.79],\n emerald_green=[0.,.79,.34],\n \+ english_red=[.83,.24,.1],\n firebrick=[.698,.133,.133],\n flesh=[1 .,.49,.25],\n flesh_ochre=[1.,.34,.13],\n floral=[1.,.98,.941],\n \+ forest_green=[.133,.545,.133],\n gainsboro=[.863,.863,.863],\n g eranium_lake=[.89,.07,.19],\n gold_yellow=[1.,.843,0.],\n gold_och re=[.78,.47,.15],\n goldenrod=[.855,.647,.126],\n dark_goldenrod=[ .722,.525,.043],\n light_goldenrod=[.98,.98,.823],\n pale_goldenro d=[.933,.91,.667],\n dark_green=[0.,.3927,0.],\n pale_green=[.596, .984,.596],\n green_yellow=[.678,1.,.184],\n redish_umber=[1.,.24, .05],\n honeydew=[.941,1.,.941],\n hot_pink=[1.,.412,.706],\n in dian_red=[.69,.09,.12],\n indigo=[.03,.18,.33],\n ivory_black=[.16 ,.14,.13],\n pale_khaki=[.941,.902,.549],\n light_khaki=[.741,.718 ,.42],\n lamp_black=[.18,.28,.23],\n lavender=[.93,.902,.98],\n \+ lawn_green=[.486,.988,0.],\n lemon_chiffon=[1.,.98,.804],\n light_ beige=[.961,.961,.863],\n light_goldenrod=[.933,.867,.51],\n mediu m_grey=[.667,.667,.667],\n dark_grey=[.58,.58,.58],\n light_salmon =[1.,.628,.478],\n lime_green=[.196,.804,.196],\n linen=[.98,.941, .902],\n deep_madder_lake=[.89,.18,.19],\n manganese_blue=[.01,.66 ,.62],\n maroon_red=[.69,.188,.377],\n mars_orange=[.59,.27,.08], \n mars_yellow=[.89,.44,.1],\n melon=[.89,.66,.41],\n midnight_b lue=[.098,.098,.439],\n mint=[.74,.99,.79],\n misty_rose=[1.,.894, .882],\n moccasin=[1.,.894,.71],\n deep_naples_yellow=[1.,.66,.07] ,\n navajo=[1.,.871,.678],\n navy_blue=[0.,0.,.502],\n old_lace= [.992,.961,.902],\n olive=[.23,.37,.17],\n drab_olive=[.42,.557,.1 37],\n dark_olive_green=[.333,.42,.184],\n orange_red=[1.,.271,0.] ,\n orchid=[.855,.439,.839],\n dark_orchid=[.6,.196,.8],\n mediu m_orchid=[.729,.333,.827],\n papaya_whip=[1.,.937,.835],\n peach=[ .44,.26,.26],\n peach_puff=[1.,.855,.726],\n peacock=[.2,.63,.79], \n permanent_green=[.04,.79,.17],\n permanent_red_violet=[.86,.15, .27],\n peru=[.804,.522,.247],\n light_pink=[1.,.804,.871],\n pl um=[.867,.628,.867],\n light_plum=[.918,.678,.918],\n powder_blue= [.69,.878,.902],\n prussian_blue=[.18,.18,.31],\n purple=[.4,0,.9] ,\n medium_purple=[.628,.126,.941],\n slate_blue_purple=[.576,.439 ,.859],\n raspberry=[.53,.15,.34],\n raw_sienna=[.78,.38,.08],\n \+ raw_umber=[.45,.29,.07],\n red_brick=[.8,.196,.196],\n rose_madde r=[.89,.21,.22],\n rosy_brown=[.737,.561,.561],\n royal_blue=[.255 ,.412,.882],\n saddle_brown=[.545,.271,.0745],\n salmon=[.98,.502, .447],\n sandy_brown=[.957,.643,.377],\n sap_green=[.19,.5,.089], \n sea_green=[.180,.545,.341],\n dark_sea_green=[.561,.737,.561], \n light_sea_green=[.126,.698,.667],\n medium_sea_green=[.235,.702 ,.443],\n seashell=[1.,.961,.933],\n sepia=[.37,.15,.07],\n rich _sienna=[.628,.322,.177],\n sky_blue=[.529,.808,.922],\n deep_sky_ blue=[0.,.749,1.],\n light_sky_blue=[.529,.808,.98],\n slate_blue= [.416,.353,.804],\n dark_slate_blue=[.282,.239,.545],\n light_slat e_blue=[.518,.439,1.],\n medium_slate_blue=[.482,.408,.933],\n sla te_grey=[.439,.502,.565],\n dark_slate_grey=[.184,.31,.31],\n ligh t_slate_grey=[.467,.533,.6],\n smoke=[.961,.961,.961],\n spring_gr een=[0.,1.,.498],\n medium_spring_green=[0.,.98,.604],\n steel_blu e=[.274,.51,.706],\n light_steel_blue=[.69,.769,.871],\n terre_ver te=[.22,.37,.06],\n thistle=[.847,.749,.847],\n titanium=[.99,1.,. 94],\n tomato=[1.,.388,.278],\n turquoise=[.251,.878,.816],\n tu rquoise_blue=[0.,.78,.55],\n dark_turquoise=[0.,.808,.82],\n mediu m_turquoise=[.282,.82,.8],\n pale_turquoise=[.686,.933,.933],\n ul tramarine=[.07,.04,.56],\n ultramarine_violet=[.36,.14,.43],\n dar k_brown=[.37,.15,.02],\n venetian_red=[.83,.1,.12],\n violet=[.56, .37,.6],\n dark_violet=[.58,0.,.827],\n violet_red=[.816,.126,.565 ],\n medium_violet_red=[.78,.0824,.522],\n pale_violet_red=[.859,. 439,.577],\n light_viridian=[.43,1.,.44],\n warm_grey=[.5,.5,.41], \n yellow_brown=[.86,.58,.44],\n yellow_green=[.604,.804,.196],\n \+ light_yellow=[1.,1.,.878],\n yellow_ochre=[.89,.51,.09],\n zinc= [.87,.84,.89]]): # of `plot/colortable`" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 15 "For reference: " }} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 29 "`plot/color`: default version" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 353 "`plot/color` := proc(t)\nop tion `Copyright (c) 1992 by the University of Waterloo. All rights res erved.`;\n if type(t, function) and (op(0, t) = 'COLOUR' or op(0, t ) = 'COLOR') then t\n elif member(t, map(op, \{indices(`plot/colort able`)\})) then COLOUR('RGB', op(`plot/colortable`[t]))\n else erro r \"invalid color specification\"\n end if\nend proc:" }}}{PARA 0 " " 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}} }{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT 0 11 "ShowColours" }{TEXT -1 55 ": how to view the colours of the enhanced colour system" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 15 "Example 1 - red" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "ShowColours(red,29);" }} {PARA 13 "" 1 "" {GLPLOT2D 431 742 742 {PLOTDATA 2 "6gn-%)POLYGONSG6%7 &7$$\"\"!F)F(7$$\"\"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBG$\"$*))! \"$$\"#:!\"#$\"#@F:-%&STYLEG6#%,PATCHNOGRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/ Q1alizarin_crimson6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6%7&F0F-7$F+$F:F)7$F (FR-F26&F4$\"#pF:$\"\"*F:$FFF:F=-FB6&7$FE$!#:F/Q+indian_redFJFKFL-F$6% 7&FSFQ7$F+$F7F)7$F(F_o-F26&F4F+$F,F:$\"\"&F:F=-FB6&7$FE$!#DF/Q2light_c admium_redFJFKFL-F$6%7&F`oF^o7$F+$!\"%F)7$F(F`p-F26&F4$\"#$)F:$F,F/FZF =-FB6&7$FE$!#NF/Q-venetian_redFJFKFL-F$6%7&FbpF_p7$F+$FHF)7$F(Fbq-F26& F4$\"#*)F:F;$\"#AF:F=-FB6&7$FE$!#XF/Q,rose_madderFJFKFL-F$6%7&FcqFaq7$ F+$!\"'F)7$F(Fdr-F26&F4Ffq$\"#=F:$\"#>F:F=-FB6&7$FE$!#bF/Q1deep_madder _lakeFJFKFL-F$6%7&FfrFcr7$F+$!\"(F)7$F(Fgs-F26&F4$\"$P(F7$\"$h&F7F^tF= -FB6&7$FE$!#lF/Q+rosy_brownFJFKFL-F$6%7&FisFfs7$F+$!\")F)7$F(Fjt-F26&F 4$\"#WF:$\"#EF:FauF=-FB6&7$FE$!#vF/Q&peachFJFKFL-F$6%7&F\\uFit7$F+$!\" *F)7$F(F]v-F26&F4$\"$T*F7$\"$-&F7FdvF=-FB6&7$FE$!#&)F/Q+coral_pinkFJFK FL-F$6%7&F_vF\\v7$F+$!#5F)7$F(F`w-F26&F4$FeoF/$\"$l\"F7FfwF=-FB6&7$FE$ !#&*F/Q&brownFJFKFL-F$6%7&FbwF_w7$F+$!#6F)7$F(Fbx-F26&F4$\"\")F/$\"$'> F7FixF=-FB6&7$FE$!$0\"F/Q*red_brickFJFKFL-F$6%7&FdxFax7$F+$!#7F)7$F(Fe y-F26&F4$\"$)pF7$\"$L\"F7F\\zF=-FB6&7$FE$!$:\"F/Q*firebrickFJFKFL-F$6% 7&FgyFdy7$F+$!#8F)7$F(Fhz-F26&F4$\"#')F:$\"#;F:F_[lF=-FB6&7$FE$!$D\"F/ Q-brown_oadderFJFKFL-F$6%7&FjzFgz7$F+$!#9F)7$F(F[\\l-F26&F4$\"$\\&F7$ \"$-*FapFb\\lF=-FB6&7$FE$!$N\"F/Q(scarletFJFKFL-F$6%7&F]\\lFj[l7$F+$Fi nF)7$F(F^]l-F26&F4F+F(F(F=-FB6&7$FE$!$X\"F/Q$redFJFKFL-F$6%7&F_]lF]]l7 $F+$!#;F)7$F(F\\^l-F26&F4FfqFXFdoF=-FB6&7$FE$!$b\"F/Q1deep_cadmium_red FJFKFL-F$6%7&F^^lF[^l7$F+$!#F)7$F(Faal-F26&F4$\"#aF:$\"\"#F/$\"#9F:F=-FB6&7$FE$!$&=F/Q,bur nt_umberFJFKFL-F$6%7&FcalF`al7$F+$!#?F)7$F(Ffbl-F26&F4F+$\"$)QF7$\"$y# F7F=-FB6&7$FE$!$&>F/Q'tomatoFJFKFL-F$6%7&FhblFebl7$F+$!#@F)7$F(Ficl-F2 6&F4Fep$\"#CF:FgpF=-FB6&7$FE$!$0#F/Q,english_redFJFKFL-F$6%7&F[dlFhcl7 $F+$!#AF)7$F(Fjdl-F26&F4F+F^dlFdoF=-FB6&7$FE$!$:#F/Q-redish_umberFJFKF L-F$6%7&F\\elFidl7$F+$!#BF)7$F(Fiel-F26&F4F+$\"#MF:$\"#8F:F=-FB6&7$FE$ !$D#F/Q,flesh_ochreFJFKFL-F$6%7&F[flFhel7$F+$!#CF)7$F(F\\gl-F26&F4$\"# PF:F8$\"\"(F:F=-FB6&7$FE$!$N#F/Q&sepiaFJFKFL-F$6%7&F^glF[gl7$F+$FjoF)7 $F(F_hl-F26&F4F+$\"$)\\F7$\"$9$F7F=-FB6&7$FE$!$X#F/Q.pinkish_coralFJFK FL-F$6%7&F`hlF^hl7$F+$!#EF)7$F(Fail-F26&F4F+$\"$r#F7F(F=-FB6&7$FE$!$b# F/Q+orange_redFJFKFL-F$6%7&FcilF`il7$F+$!#FF)7$F(Fbjl-F26&F4F+$\"$G'F7 $\"$y%F7F=-FB6&7$FE$!$l#F/Q-light_salmonFJFKFL-F$6%7&FdjlFajl7$F+$!#GF )7$F(Fe[m-F26&F4FfalF;$\"\"'F:F=-FB6&7$FE$!$v#F/Q-burnt_siennaFJFKFL-F $6%7&Fg[mFd[m7$F+$!#HF)7$F(Ff\\m-F26&F4$\"$h$F7$\"$^#F7$\"$+#F7F=-FB6& 7$FE$!$&GF/Q0very_dark_brownFJFKFL-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curv e 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curv e 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16 " "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "C urve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35 " "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41" "C urve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47" "Curve 48" "Curve 49" "Curve 50" "Curve 51" "Curve 52" "Curve 53" "Curve 54 " "Curve 55" "Curve 56" "Curve 57" "Curve 58" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 2" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ShowColours(chocolate,2 5);" }}{PARA 13 "" 1 "" {GLPLOT2D 464 650 650 {PLOTDATA 2 "6U-%)POLYGO NSG6%7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBGF+ $\"#\\!\"#$\"#DF7-%&STYLEG6#%,PATCHNOGRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/Q& flesh6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6%7&F0F-7$F+$F7F)7$F(FO-F26&F4$\" $G'!\"$$\"$A$FU$\"$x\"FUF:-F?6&7$FB$!#:F/Q,rich_siennaFGFHFI-F$6%7&FPF N7$F+$FUF)7$F(F^o-F26&F4$\"$f)FU$\"$w&FU$\"$R%FUF:-F?6&7$FB$!#DF/Q$tan FGFHFI-F$6%7&F_oF]o7$F+$!\"%F)7$F(Fbp-F26&F4$\"#;F7$\"#9F7$\"#8F7F:-F? 6&7$FB$!#NF/Q,ivory_blackFGFHFI-F$6%7&FdpFap7$F+$FEF)7$F(Fgq-F26&F4$\" #')F7$\"#eF7$\"#WF7F:-F?6&7$FB$!#XF/Q-yellow_brownFGFHFI-F$6%7&FhqFfq7 $F+$!\"'F)7$F(F[s-F26&F4$\"#`F7$\"#EF7$FCF7F:-F?6&7$FB$!#bF/Q,brown_oc hreFGFHFI-F$6%7&F]sFjr7$F+$!\"(F)7$F(F_t-F26&F4$\"#PF7$\"#:F7$\"\"#F7F :-F?6&7$FB$!#lF/Q+dark_brownFGFHFI-F$6%7&FatF^t7$F+$!\")F)7$F(Fdu-F26& F4$\"#fF7$\"#FF7$\"\")F7F:-F?6&7$FB$!#vF/Q,mars_orangeFGFHFI-F$6%7&Ffu Fcu7$F+$!\"*F)7$F(Fiv-F26&F4F+$\"#QF7$F,F7F:-F?6&7$FB$!#&)F/Q/cadmium_ orangeFGFHFI-F$6%7&F[wFhv7$F+$!#5F)7$F(F[x-F26&F4$\"$%*)FU$\"$r%FU$Fit F/F:-F?6&7$FB$!#&*F/Q0mandarin_orangeFGFHFI-F$6%7&F]xFjw7$F+$!#6F)7$F( F_y-F26&F4$\"#XF7$\"#CF7$F,F/F:-F?6&7$FB$!$0\"F/Q+deep_ochreFGFHFI-F$6 %7&FayF^y7$F+$!#7F)7$F(Fcz-F26&F4$\"#UF7$\"$f#FU$\"$\\\"FUF:-F?6&7$FB$ !$:\"F/Q/dark_chocolateFGFHFI-F$6%7&FezFbz7$F+$!#8F)7$F(Fh[l-F26&F4$\" $B)FU$\"$7%FU$\"$=\"FUF:-F?6&7$FB$!$D\"F/Q*chocolateFGFHFI-F$6%7&Fj[lF g[l7$F+$!#9F)7$F(F]]l-F26&F4$\"$X&FU$\"$r#FU$\"$X(FcpF:-F?6&7$FB$!$N\" F/Q-saddle_brownFGFHFI-F$6%7&F_]lF\\]l7$F+$FhnF)7$F(Fb^l-F26&F4F+$\"$h *FU$\"$L*FUF:-F?6&7$FB$!$X\"F/Q)seashellFGFHFI-F$6%7&Fc^lFa^l7$F+$!#;F )7$F(Fd_l-F26&F4$\"#yF7F^wF]vF:-F?6&7$FB$!$b\"F/Q+raw_siennaFGFHFI-F$6 %7&Ff_lFc_l7$F+$!#F)7$F(F[cl-F26&F4F+$\"$b)FU$\"$E(FUF:-F?6&7$FB$!$&=F/Q+peach_puffFG FHFI-F$6%7&F]clFjbl7$F+$!#?F)7$F(F^dl-F26&F4$\"$A(FU$\"$^%FUFdxF:-F?6& 7$FB$!$&>F/Q'copperFGFHFI-F$6%7&F`dlF]dl7$F+$!#@F)7$F(Fael-F26&F4$\"$/ )FU$\"$A&FU$\"$Z#FUF:-F?6&7$FB$!$0#F/Q%peruFGFHFI-F$6%7&FcelF`el7$F+$! #AF)7$F(Fffl-F26&F4F+$\"$)\\FUF(F:-F?6&7$FB$!$:#F/Q&coralFGFHFI-F$6%7& FhflFefl7$F+$!#BF)7$F(Fggl-F26&F4$\"#)*F7$\"$T*FU$\"$-*FUF:-F?6&7$FB$! $D#F/Q&linenFGFHFI-F$6%7&FiglFfgl7$F+$!#CF)7$F(F\\il-F26&F4$\"$+)FUF[g l$\"$'>FUF:-F?6&7$FB$!$N#F/Q%goldFGFHFI-F$6%7&F^ilF[il7$F+$F\\pF)7$F(F _jl-F26&F4Fi_l$\"#ZF7FftF:-F?6&7$FB$!$X#F/Q+gold_ochreFGFHFI-%*AXESSTY LEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20 " "Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "C urve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39 " "Curve 40" "Curve 41" "Curve 42" "Curve 43" "Curve 44" "Curve 45" "C urve 46" "Curve 47" "Curve 48" "Curve 49" "Curve 50" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 3" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ShowColours( brick,23);" }}{PARA 13 "" 1 "" {GLPLOT2D 428 759 759 {PLOTDATA 2 "6Q-% )POLYGONSG6%7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&% $RGBG$\"#*)!\"#$\"#mF7$\"#TF7-%&STYLEG6#%,PATCHNOGRIDG-%%TEXTG6&7$$\"# 7F/$!\"&F/Q&melon6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6%7&F0F-7$F+$F7F)7$F( FQ-F26&F4F5$\"#^F7$\"\"*F7F<-FA6&7$FD$!#:F/Q-yellow_ochreFIFJFK-F$6%7& FRFP7$F+$!\"$F)7$F(F]o-F26&F4$\"$A*F^o$\"#yF7$\"#iF7F<-FA6&7$FD$!#DF/Q *light_tanFIFJFK-F$6%7&F_oF\\o7$F+$!\"%F)7$F(Fbp-F26&F4F+$\"$\\&F^oF(F <-FA6&7$FD$!#NF/Q'orangeFIFJFK-F$6%7&FdpFap7$F+$FGF)7$F(Fcq-F26&F4$\"# **F7$FXF/$\"#zF7F<-FA6&7$FD$!#XF/Q)eggshellFIFJFK-F$6%7&FdqFbq7$F+$!\" 'F)7$F(Ffr-F26&F4$\"#$*F7$\"#dF7$\"#8F7F<-FA6&7$FD$!#bF/Q'carrotFIFJFK -F$6%7&FhrFer7$F+$!\"(F)7$F(F[t-F26&F4F+$\"$)*)F^o$\"$s(F^oF<-FA6&7$FD $!#lF/Q'bisqueFIFJFK-F$6%7&F]tFjs7$F+$!\")F)7$F(F^u-F26&F4$\"$r)F^o$\" $A(F^o$\"$H&F^oF<-FA6&7$FD$!#vF/Q*burlywoodFIFJFK-F$6%7&F`uF]u7$F+$!\" *F)7$F(Fcv-F26&F4$\"$\")*F^oFbo$\"$X)F^oF<-FA6&7$FD$!#&)F/Q(antiqueFIF JFK-F$6%7&FevFbv7$F+$!#5F)7$F(Ffw-F26&F4F+$\"\"'F/$\"\"(F7F<-FA6&7$FD$ !#&*F/Q/cadmium_yellowFIFJFK-F$6%7&FhwFew7$F+$!#6F)7$F(Fix-F26&F4$\"#k F7$\"#eF7$\"\"&F/F<-FA6&7$FD$!$0\"F/Q&beigeFIFJFK-F$6%7&F[yFhx7$F+$!#7 F)7$F(F^z-F26&F4$\"#hF7$\"\"%F/$FEF7F<-FA6&7$FD$!$:\"F/Q&brickFIFJFK-F $6%7&F`zF]z7$F+$!#8F)7$F(Fb[l-F26&F4$\"$^)F^oFgu$\"#)*F^oF<-FA6&7$FD$! $D\"F/Q,cool_copperFIFJFK-F$6%7&Fd[lFa[l7$F+$!#9F)7$F(Fe\\l-F26&F4$\"# XF7$\"#HF7F]xF<-FA6&7$FD$!$N\"F/Q*raw_umberFIFJFK-F$6%7&Fg\\lFd\\l7$F+ $FgnF)7$F(Fh]l-F26&F4F+Fcu$\"$y'F^oF<-FA6&7$FD$!$X\"F/Q'navajoFIFJFK-F $6%7&Fi]lFg]l7$F+$!#;F)7$F(Fh^l-F26&F4F+F8$\"#9F7F<-FA6&7$FD$!$b\"F/Q1 aureoline_yellowFIFJFK-F$6%7&Fj^lFg^l7$F+$!#F)7$F(Fabl-F26&F4F+$\"$P*F^o$\" $N)F^oF<-FA6&7$FD$!$&=F/Q,papaya_whipFIFJFK-F$6%7&FcblF`bl7$F+$!#?F)7$ F(Fdcl-F26&F4F+F8F]xF<-FA6&7$FD$!$&>F/Q3deep_naples_yellowFIFJFK-F$6%7 &FfclFccl7$F+$!#@F)7$F(Fcdl-F26&F4F+$\"$%*)F^o$\"#rF7F<-FA6&7$FD$!$0#F /Q)moccasinFIFJFK-F$6%7&FedlFbdl7$F+$!#AF)7$F(Ffel-F26&F4Fgp$\"$r%F^o$ \"$D$F^oF<-FA6&7$FD$!$:#F/Q,grey_bronzeFIFJFK-F$6%7&FhelFeel7$F+$!#BF) 7$F(Fifl-F26&F4$\"$h*F^oFcu$\"$-(F^oF<-FA6&7$FD$!$D#F/Q&wheatFIFJFK-%* AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Cu rve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve \+ 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Cur ve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 3 8" "Curve 39" "Curve 40" "Curve 41" "Curve 42" "Curve 43" "Curve 44" " Curve 45" "Curve 46" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 4" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 23 "ShowColours(banana,25);" }}{PARA 13 "" 1 "" {GLPLOT2D 460 547 547 {PLOTDATA 2 "6U-%)POLYGONSG6%7&7$$\"\"!F)F(7$$\" \"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBG$\"$\\&!\"$$\"$r%F7$\"$D$F 7-%&STYLEG6#%,PATCHNOGRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/Q,grey_bronze6\"%+ ALIGNRIGHTG-F26&F4F)F)F)-F$6%7&F0F-7$F+$!\"#F)7$F(FQ-F26&F4$\"$h*F7$\" $r)F7$\"$-(F7F<-FA6&7$FD$!#:F/Q&wheatFIFJFK-F$6%7&FSFP7$F+$F7F)7$F(F`o -F26&F4$\"$#**F7FV$\"$-*F7F<-FA6&7$FD$!#DF/Q)old_laceFIFJFK-F$6%7&FaoF _o7$F+$!\"%F)7$F(Fbp-F26&F4F+$\"#)*FR$\"$T*F7F<-FA6&7$FD$!#NF/Q'floral FIFJFK-F$6%7&FdpFap7$F+$FGF)7$F(Feq-F26&F4F+$\"#pFR$\"\"'FRF<-FA6&7$FD $!#XF/Q5light_cadmium_yellowFIFJFK-F$6%7&FfqFdq7$F+$!\"'F)7$F(Fgr-F26& F4$\"$d&F7$\"#UFR$\"$P\"F7F<-FA6&7$FD$!#bF/Q'siennaFIFJFK-F$6%7&FirFfr 7$F+$!\"(F)7$F(F\\t-F26&F4$\"$A(F7$\"$D&F7$\"#VF7F<-FA6&7$FD$!#lF/Q/da rk_goldenrodFIFJFK-F$6%7&F^tF[t7$F+$!\")F)7$F(Fau-F26&F4$\"$b)F7$\"$Z' F7$\"$E\"F7F<-FA6&7$FD$!#vF/Q*goldenrodFIFJFK-F$6%7&FcuF`u7$F+$!\"*F)7 $F(Ffv-F26&F4F+$\"$t*F7$\"$j)F7F<-FA6&7$FD$!#&)F/Q)cornsilkFIFJFK-F$6% 7&FhvFev7$F+$!#5F)7$F(Fiw-F26&F4$\"$7)F7$\"$5(F7$\"$J#F7F<-FA6&7$FD$!# &*F/Q)old_goldFIFJFK-F$6%7&F[xFhw7$F+$!#6F)7$F(F^y-F26&F4F+$\"$V)F7F(F <-FA6&7$FD$!$0\"F/Q,gold_yellowFIFJFK-F$6%7&F`yF]y7$F+$!#7F)7$F(F_z-F2 6&F4$\"$L*F7$\"$n)F7$\"#^FRF<-FA6&7$FD$!$:\"F/Q0light_goldenrodFIFJFK- F$6%7&FazF^z7$F+$!#8F)7$F(Fd[l-F26&F4$\"#*)FR$\"#\")FR$\"#MFRF<-FA6&7$ FD$!$D\"F/Q'bananaFIFJFK-F$6%7&Ff[lFc[l7$F+$!#9F)7$F(Fi\\l-F26&F4F`x$ \"$^'F7$\"$f#F7F<-FA6&7$FD$!$N\"F/Q&brassFIFJFK-F$6%7&F[]lFh\\l7$F+$Fj nF)7$F(F\\^l-F26&F4F+Fi[l$F,FRF<-FA6&7$FD$!$X\"F/Q.cadmium_lemonFIFJFK -F$6%7&F]^lF[^l7$F+$!#;F)7$F(F[_l-F26&F4F+Fgp$\"$/)F7F<-FA6&7$FD$!$b\" F/Q.lemon_chiffonFIFJFK-F$6%7&F]_lFj^l7$F+$!#F)7$F(F^bl-F26&F4$\"$T(F7$\"$=(F7F^sF<-FA6&7$FD $!$&=F/Q,light_khakiFIFJFK-F$6%7&F`blF]bl7$F+$!#?F)7$F(Facl-F26&F4FVFV F]wF<-FA6&7$FD$!$&>F/Q,light_beigeFIFJFK-F$6%7&FcclF`cl7$F+$!#@F)7$F(F `dl-F26&F4F+F+$\"$y)F7F<-FA6&7$FD$!$0#F/Q-light_yellowFIFJFK-F$6%7&Fbd lF_dl7$F+$!#AF)7$F(Fael-F26&F4$\"\"&F/Ffel$\"#TFRF<-FA6&7$FD$!$:#F/Q*w arm_greyFIFJFK-F$6%7&FcelF`el7$F+$!#BF)7$F(Fdfl-F26&F4$\"$C'F7Fifl$\"$ t$F7F<-FA6&7$FD$!$D#F/Q&khakiFIFJFK-F$6%7&FfflFcfl7$F+$!#CF)7$F(Fggl-F 26&F4$\"$^)F7F\\hl$FhpF7F<-FA6&7$FD$!$N#F/Q,bright_goldFIFJFK-F$6%7&Fi glFfgl7$F+$F\\pF)7$F(Fihl-F26&F4F+F+F(F<-FA6&7$FD$!$X#F/Q'yellowFIFJFK -%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Cu rve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve \+ 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Cur ve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 3 8" "Curve 39" "Curve 40" "Curve 41" "Curve 42" "Curve 43" "Curve 44" " Curve 45" "Curve 46" "Curve 47" "Curve 48" "Curve 49" "Curve 50" }}}} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 17 "Example 5 - green" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "ShowColours(chartreuse,21);" }}{PARA 13 "" 1 "" {GLPLOT2D 461 752 752 {PLOTDATA 2 "6M-%)POLYGONSG6%7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+$!\"\" F)7$F(F.-%'COLOURG6&%$RGBG$\"$C'!\"$F5$\"$t$F7-%&STYLEG6#%,PATCHNOGRID G-%%TEXTG6&7$$\"#7F/$!\"&F/Q&khaki6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6%7& F0F-7$F+$!\"#F)7$F(FO-F26&F4$\"$^)F7FT$\"#)*F7F:-F?6&7$FB$!#:F/Q,brigh t_goldFGFHFI-F$6%7&FQFN7$F+$F7F)7$F(F\\o-F26&F4F+F+F(F:-F?6&7$FB$!#DF/ Q'yellowFGFHFI-F$6%7&F]oF[o7$F+$!\"%F)7$F(Fjo-F26&F4$\"#**FPF+$\"#%*FP F:-F?6&7$FB$!#NF/Q)titaniumFGFHFI-F$6%7&F\\pFio7$F+$FEF)7$F(F]q-F26&F4 $\"\"%F/$\"\"&F/$\"\")FPF:-F?6&7$FB$!#XF/Q3chrome_oxide_greenFGFHFI-F$ 6%7&F^qF\\q7$F+$!\"'F)7$F(Far-F26&F4$\"#UFP$\"$d&F7$\"$P\"F7F:-F?6&7$F B$!#bF/Q+drab_oliveFGFHFI-F$6%7&FcrF`r7$F+$!\"(F)7$F(Ffs-F26&F4$\"$/'F 7$\"$/)F7$\"$'>F7F:-F?6&7$FB$!#lF/Q-yellow_greenFGFHFI-F$6%7&FhsFes7$F +$!\")F)7$F(F[u-F26&F4$\"$L$F7Ffr$\"$%=F7F:-F?6&7$FB$!#vF/Q1dark_olive _greenFGFHFI-F$6%7&F]uFjt7$F+$!\"*F)7$F(F^v-F26&F4$\"$y'F7F+FbuF:-F?6& 7$FB$!#&)F/Q-green_yellowFGFHFI-F$6%7&F`vF]v7$F+$!#5F)7$F(F_w-F26&F4$ \"#AFP$\"#PFP$\"\"'FPF:-F?6&7$FB$!#&*F/Q,terre_verteFGFHFI-F$6%7&FawF^ w7$F+$!#6F)7$F(Fdx-F26&F4$\"$)\\F7F+F(F:-F?6&7$FB$!$0\"F/Q+chartreuseF GFHFI-F$6%7&FfxFcx7$F+$!#7F)7$F(Fey-F26&F4$\"$'[F7$\"$))*F7F(F:-F?6&7$ FB$!$:\"F/Q+lawn_greenFGFHFI-F$6%7&FgyFdy7$F+$!#8F)7$F(Fhz-F26&F4$\"#Q FP$\"\"(F/$\"#;FPF:-F?6&7$FB$!$D\"F/Q/cinnabar_greenFGFHFI-F$6%7&FjzFg z7$F+$!#9F)7$F(F]\\l-F26&F4$\"#BFPFfw$\"#FPFcq$\"#*)F7F:- F?6&7$FB$!$X\"F/Q*sap_greenFGFHFI-F$6%7&Fa]lF_]l7$F+$!#;F)7$F(Fb^l-F26 &F4$\"$T*F7F+Fg^lF:-F?6&7$FB$!$b\"F/Q)honeydewFGFHFI-F$6%7&Fd^lFa^l7$F +$!#F)7$F( Fial-F26&F4$\"$l&F7$\"$L*F7F^blF:-F?6&7$FB$!$&=F/Q,light_greenFGFHFI-F $6%7&F[blFhal7$F+$!#?F)7$F(F\\cl-F26&F4$\"$L\"F7$\"$X&F7FaclF:-F?6&7$F B$!$&>F/Q-forest_greenFGFHFI-F$6%7&F^clF[cl7$F+$!#@F)7$F(F_dl-F26&F4F_ tF]tF_tF:-F?6&7$FB$!$0#F/Q+lime_greenFGFHFI-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Cur ve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 2 8" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" " Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curv e 41" "Curve 42" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Exa mple 6" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "ShowColours(sea_green,19);" }}{PARA 13 "" 1 "" {GLPLOT2D 512 835 835 {PLOTDATA 2 "6I-%)POLYGONSG6%7&7$$\"\"!F)F(7$$\" \"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBGF($\"%FR!\"%F(-%&STYLEG6#% ,PATCHNOGRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/Q+dark_green6\"%+ALIGNRIGHTG-F2 6&F4F)F)F)-F$6%7&F0F-7$F+$!\"#F)7$F(FM-F26&F4F(F+F(F8-F=6&7$F@$!#:F/Q& greenFEFFFG-F$6%7&FOFL7$F+$!\"$F)7$F(Ffn-F26&F4$\"#VFNF+$\"#WFNF8-F=6& 7$F@$!#DF/Q/light_viridianFEFFFG-F$6%7&FhnFen7$F+$F7F)7$F(Fio-F26&F4$ \"#CFN$\"#dFN$\"#DFNF8-F=6&7$F@$!#NF/Q-cobalt_greenFEFFFG-F$6%7&FjoFho 7$F+$FCF)7$F(F]q-F26&F4$\"\"%FN$\"#zFN$\"#F)7$F(Fbbl-F 26&F4$F,FN$\"#mFN$\"#iFNF8-F=6&7$F@$!$&=F/Q/manganese_blueFEFFFG-%*AXE SSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "C urve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26 " "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "C urve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" }}}} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 7" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "ShowCol ours(peacock,27);" }}{PARA 13 "" 1 "" {GLPLOT2D 512 835 835 {PLOTDATA 2 "6Y-%)POLYGONSG6%7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+$!\"\"F)7$F(F.-%'COL OURG6&%$RGBG$\"$E\"!\"$$\"$)pF7$\"$n'F7-%&STYLEG6#%,PATCHNOGRIDG-%%TEX TG6&7$$\"#7F/$!\"&F/Q0light_sea_green6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6 %7&F0F-7$F+$!\"#F)7$F(FQ-F26&F4$\"$#GF7$\"##)FR$\"\")F/F<-FA6&7$FD$!#: F/Q1medium_turquoiseFIFJFK-F$6%7&FSFP7$F+$F7F)7$F(F`o-F26&F4$\"$U*F7F+ F+F<-FA6&7$FD$!#DF/Q&azureFIFJFK-F$6%7&FaoF_o7$F+$!\"%F)7$F(F`p-F26&F4 $\"$'oF7$\"$L*F7FgpF<-FA6&7$FD$!#NF/Q/pale_turquoiseFIFJFK-F$6%7&FbpF_ p7$F+$FGF)7$F(Fcq-F26&F4$\"$%=F7$\"#JFRFiqF<-FA6&7$FD$!#XF/Q0dark_slat e_greyFIFJFK-F$6%7&FdqFbq7$F+$!\"'F)7$F(Fer-F26&F4$\"$L$F7F+F+F<-FA6&7 $FD$!#bF/Q+light_cyanFIFJFK-F$6%7&FgrFdr7$F+$!\"(F)7$F(Ffs-F26&F4F(F+F +F<-FA6&7$FD$!#lF/Q%cyanFIFJFK-F$6%7&FhsFes7$F+$!\")F)7$F(Fet-F26&F4F( $\"$3)F7FXF<-FA6&7$FD$!#vF/Q/dark_turquoiseFIFJFK-F$6%7&FgtFdt7$F+$!\" *F)7$F(Ffu-F26&F4$\"$s$F7$\"#iFR$\"$G'F7F<-FA6&7$FD$!#&)F/Q&cadetFIFJF K-F$6%7&FhuFeu7$F+$!#5F)7$F(F[w-F26&F4$\"\"#FR$\"#sFRFZF<-FA6&7$FD$!#& *F/Q)ceruleanFIFJFK-F$6%7&F]wFjv7$F+$!#6F)7$F(F^x-F26&F4$\"#pFR$\"$y)F 7$\"$-*F7F<-FA6&7$FD$!$0\"F/Q,powder_blueFIFJFK-F$6%7&F`xF]x7$F+$!#7F) 7$F(Fcy-F26&F4$\"$y'F7$\"$Z)F7FgxF<-FA6&7$FD$!$:\"F/Q*pale_blueFIFJFK- F$6%7&FeyFby7$F+$!#8F)7$F(Ffz-F26&F4F($\"$\\(F7F+F<-FA6&7$FD$!$D\"F/Q. deep_sky_blueFIFJFK-F$6%7&FhzFez7$F+$!#9F)7$F(Fg[l-F26&F4$FawF/$\"#jFR $\"#zFRF<-FA6&7$FD$!$N\"F/Q(peacockFIFJFK-F$6%7&Fi[lFf[l7$F+$FjnF)7$F( F[]l-F26&F4$\"$H&F7Fjt$\"$A*F7F<-FA6&7$FD$!$X\"F/Q)sky_blueFIFJFK-F$6% 7&F\\]lFj\\l7$F+$!#;F)7$F(F]^l-F26&F4F_]lFjt$\"#)*FRF<-FA6&7$FD$!$b\"F /Q/light_sky_blueFIFJFK-F$6%7&F_^lF\\^l7$F+$!#F)7$F(Ffal-F26&F4$\"$=\"F7$\"$l&F7F+F< -FA6&7$FD$!$&=F/Q,dodger_blueFIFJFK-F$6%7&FhalFeal7$F+$!#?F)7$F(Fibl-F 26&F4$\"$R%F7$\"$-&F7F]blF<-FA6&7$FD$!$&>F/Q+slate_greyFIFJFK-F$6%7&F[ clFhbl7$F+$!#@F)7$F(F\\dl-F26&F4$\"\"$FR$\"#=FR$\"#LFRF<-FA6&7$FD$!$0# F/Q'indigoFIFJFK-F$6%7&F^dlF[dl7$F+$!#AF)7$F(Fael-F26&F4$\"$n%F7$\"$L& F7$\"\"'F/F<-FA6&7$FD$!$:#F/Q1light_slate_greyFIFJFK-F$6%7&FcelF`el7$F +$!#BF)7$F(Fffl-F26&F4F)$\"#XFRF+F<-FA6&7$FD$!$D#F/Q+light_blueFIFJFK- F$6%7&FhflFefl7$F+$!#CF)7$F(Fggl-F26&F4Fcx$\"$p(F7$\"$r)F7F<-FA6&7$FD$ !$N#F/Q1light_steel_blueFIFJFK-F$6%7&FiglFfgl7$F+$FjoF)7$F(Fjhl-F26&F4 $\"$#RF7$\"$%eF7$\"$H*F7F<-FA6&7$FD$!$X#F/Q0cornflower_blueFIFJFK-F$6% 7&F[ilFihl7$F+$!#EF)7$F(F^jl-F26&F4$\"#CFR$\"#NFR$\"#nFRF<-FA6&7$FD$!$ b#F/Q'cobaltFIFJFK-F$6%7&F`jlF]jl7$F+$!#FF)7$F(Fc[m-F26&F4$\"$b#F7$\"$ 7%F7$\"$#))F7F<-FA6&7$FD$!$l#F/Q+royal_blueFIFJFK-%*AXESSTYLEG6#%%NONE G" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" " Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" " Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21 " "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "C urve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40 " "Curve 41" "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "C urve 47" "Curve 48" "Curve 49" "Curve 50" "Curve 51" "Curve 52" "Curve 53" "Curve 54" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 16 "Exa mple 8 - blue" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ShowColours(navy,25);" }}{PARA 13 "" 1 "" {GLPLOT2D 482 688 688 {PLOTDATA 2 "6U-%)POLYGONSG6%7&7$$\"\"!F)F(7$$\" \"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBGF)F)F)-%&STYLEG6#%,PATCHNO GRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/Q&black6\"%+ALIGNRIGHTGF1-F$6%7&F0F-7$F +$!\"#F)7$F(FH-F26&F4$\"'LLL!\"'FMFMF5-F:6&7$F=$!#:F/Q)dim_greyFBFCF1- F$6%7&FJFG7$F+$!\"$F)7$F(FZ-F26&F4$\"#eFIFinFinF5-F:6&7$F=$!#DF/Q*dark _greyFBFCF1-F$6%7&FfnFY7$F+$!\"%F)7$F(Feo-F26&F4$\"$n'FenFjoFjoF5-F:6& 7$F=$!#NF/Q,medium_greyFBFCF1-F$6%7&FgoFdo7$F+$F@F)7$F(Ffp-F26&F4$\"$` (FenFjpFjpF5-F:6&7$F=$!#XF/Q%grayFBFCF1-F$6%7&FgpFep7$F+$FOF)7$F(FfqFh pF5-F:6&7$F=$!#bF/Q%greyFBFCF1-F$6%7&FgqFeq7$F+$!\"(F)7$F(Fbr-F26&F4$ \"$/)FenFgrFgrF5-F:6&7$F=$!#lF/Q+light_greyFBFCF1-F$6%7&FdrFar7$F+$!\" )F)7$F(Fcs-F26&F4$\"$j)FenFhsFhsF5-F:6&7$F=$!#vF/Q*gainsboroFBFCF1-F$6 %7&FesFbs7$F+$!\"*F)7$F(Fdt-F26&F4$\"$h*FenFitFitF5-F:6&7$F=$!#&)F/Q&s mokeFBFCF1-F$6%7&FftFct7$F+$!#5F)7$F(Feu-F26&F4F+F+F+F5-F:6&7$F=$!#&*F /Q&whiteFBFCF1-F$6%7&FguFdu7$F+$!#6F)7$F(Fdv-F26&F4$\"#=FIFiv$\"#JFIF5 -F:6&7$F=$!$0\"F/Q.prussian_blueFBFCF1-F$6%7&FfvFcv7$F+$!#7F)7$F(Fgw-F 26&F4$\"$-$FenF\\xF+F5-F:6&7$F=$!$:\"F/Q*neon_blueFBFCF1-F$6%7&FiwFfw7 $F+$!#8F)7$F(Fhx-F26&F4$\"$P\"FenF]y$\"$d&FenF5-F:6&7$F=$!$D\"F/Q%navy FBFCF1-F$6%7&FjxFgx7$F+$!#9F)7$F(F[z-F26&F4$\"#)*FenF`z$\"$R%FenF5-F:6 &7$F=$!$N\"F/Q.midnight_blueFBFCF1-F$6%7&F]zFjy7$F+$FTF)7$F(F^[l-F26&F 4F(F($\"$-&FenF5-F:6&7$F=$!$X\"F/Q*navy_blueFBFCF1-F$6%7&F_[lF][l7$F+$ !#;F)7$F(F^\\l-F26&F4F(F(FgrF5-F:6&7$F=$!$b\"F/Q,medium_blueFBFCF1-F$6 %7&F`\\lF]\\l7$F+$!#F)7$F(Fa_ l-F26&F4$\"$;%Fen$\"$`$FenFgrF5-F:6&7$F=$!$&=F/Q+slate_blueFBFCF1-F$6% 7&Fc_lF`_l7$F+$!#?F)7$F(Fd`l-F26&F4$\"$#GFen$\"$R#Fen$\"$X&FenF5-F:6&7 $F=$!$&>F/Q0dark_slate_blueFBFCF1-F$6%7&Ff`lFc`l7$F+$!#@F)7$F(Fial-F26 &F4$\"$=&FenFbzF+F5-F:6&7$F=$!$0#F/Q1light_slate_blueFBFCF1-F$6%7&F[bl Fhal7$F+$!#AF)7$F(Fjbl-F26&F4$\"$#[Fen$\"$3%Fen$\"$L*FenF5-F:6&7$F=$!$ :#F/Q2medium_slate_blueFBFCF1-F$6%7&F\\clFibl7$F+$!#BF)7$F(F_dl-F26&F4 $\"$w&FenFbz$\"$f)FenF5-F:6&7$F=$!$D#F/Q2slate_blue_purpleFBFCF1-F$6%7 &FadlF^dl7$F+$!#CF)7$F(Fbel-F26&F4$\"#$*FI$\"$-*Fen$FazFIF5-F:6&7$F=$! $N#F/Q)lavenderFBFCF1-F$6%7&FdelFael7$F+$F_oF)7$F(Fffl-F26&F4$Fd^lF/F) $\"\"*F/F5-F:6&7$F=$!$X#F/Q'purpleFBFCF1-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Cur ve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 2 2" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" " Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curv e 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41 " "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47" "C urve 48" "Curve 49" "Curve 50" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 9 "Example 9" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "ShowColours(maroon,29);" }}{PARA 13 "" 1 "" {GLPLOT2D 482 688 688 {PLOTDATA 2 "6gn-%)POLYGONSG6%7&7$$\" \"!F)F(7$$\"\"\"F)F(7$F+$!\"\"F)7$F(F.-%'COLOURG6&%$RGBG$\"$T&!\"$$\"$ p\"F7$\"$'))F7-%&STYLEG6#%,PATCHNOGRIDG-%%TEXTG6&7$$\"#7F/$!\"&F/Q,blu e_violet6\"%+ALIGNRIGHTG-F26&F4F)F)F)-F$6%7&F0F-7$F+$!\"#F)7$F(FQ-F26& F4$\"#()FR$\"#%)FR$\"#*)FRF<-FA6&7$FD$!#:F/Q%zincFIFJFK-F$6%7&FSFP7$F+ $F7F)7$F(F`o-F26&F4$\"$G'F7$\"$E\"F7$\"$T*F7F<-FA6&7$FD$!#DF/Q.medium_ purpleFIFJFK-F$6%7&FaoF_o7$F+$!\"%F)7$F(Fdp-F26&F4$\"\"'F/$\"$'>F7$\" \")F/F<-FA6&7$FD$!#NF/Q,dark_orchidFIFJFK-F$6%7&FfpFcp7$F+$FGF)7$F(Fiq -F26&F4$\"#eFRF($\"$F)F7F<-FA6&7$FD$!#XF/Q,dark_violetFIFJFK-F$6%7&Fjq Fhq7$F+$!\"'F)7$F(F[s-F26&F4$\"#OFR$\"#9FR$\"#VFRF<-FA6&7$FD$!#bF/Q3ul tramarine_violetFIFJFK-F$6%7&F]sFjr7$F+$!\"(F)7$F(F`t-F26&F4$\"$H(F7$ \"$L$F7F_rF<-FA6&7$FD$!#lF/Q.medium_orchidFIFJFK-F$6%7&FbtF_t7$F+$!\") F)7$F(Fcu-F26&F4$\"#cFR$\"#PFRFipF<-FA6&7$FD$!#vF/Q'violetFIFJFK-F$6%7 &FeuFbu7$F+$!\"*F)7$F(Ffv-F26&F4$\"#dFR$\"#8FR$\"#iFRF<-FA6&7$FD$!#&)F /Q3deep_cobalt_violetFIFJFK-F$6%7&FhvFev7$F+$!#5F)7$F(F[x-F26&F4$\"$Z) F7$\"$\\(F7F`xF<-FA6&7$FD$!#&*F/Q(thistleFIFJFK-F$6%7&F]xFjw7$F+$!#6F) 7$F(F^y-F26&F4$\"$=*F7$\"$y'F7FcyF<-FA6&7$FD$!$0\"F/Q+light_plumFIFJFK -F$6%7&F`yF]y7$F+$!#7F)7$F(Faz-F26&F4$\"$n)F7FdoFfzF<-FA6&7$FD$!$:\"F/ Q%plumFIFJFK-F$6%7&FczF`z7$F+$!#8F)7$F(Fb[l-F26&F4F+F(F+F<-FA6&7$FD$!$ D\"F/Q(magentaFIFJFK-F$6%7&Fd[lFa[l7$F+$!#9F)7$F(Fa\\l-F26&F4$\"$b)F7$ \"$R%F7$\"$R)F7F<-FA6&7$FD$!$N\"F/Q'orchidFIFJFK-F$6%7&Fc\\lF`\\l7$F+$ FjnF)7$F(Ff]l-F26&F4$\"$d&F7$\"$P\"F7$\"#UFRF<-FA6&7$FD$!$X\"F/Q'maroo nFIFJFK-F$6%7&Fg]lFe]l7$F+$!#;F)7$F(Fj^l-F26&F4F+$\"#6FR$\"$#oF7F<-FA6 &7$FD$!$b\"F/Q+spicy_pinkFIFJFK-F$6%7&F\\_lFi^l7$F+$!#F)7$F(Febl-F26&F4F+$ \"$J%F7FealF<-FA6&7$FD$!$&=F/Q*neon_pinkFIFJFK-F$6%7&FgblFdbl7$F+$!#?F )7$F(Ffcl-F26&F4F+$\"$%yFep$\"$w&F7F<-FA6&7$FD$!$&>F/Q*deep_pinkFIFJFK -F$6%7&FhclFecl7$F+$!#@F)7$F(Fidl-F26&F4F+$\"$7%F7$\"$1(F7F<-FA6&7$FD$ !$0#F/Q)hot_pinkFIFJFK-F$6%7&F[elFhdl7$F+$!#AF)7$F(F\\fl-F26&F4$\"#`FR $\"#:FR$\"#MFRF<-FA6&7$FD$!$:#F/Q*raspberryFIFJFK-F$6%7&F^flF[fl7$F+$! #BF)7$F(Fagl-F26&F4$\"#pFR$\"$)=F7$\"$x$F7F<-FA6&7$FD$!$D#F/Q+maroon_r edFIFJFK-F$6%7&FcglF`gl7$F+$!#CF)7$F(Ffhl-F26&F4F+$\"$/)F7$\"$r)F7F<-F A6&7$FD$!$N#F/Q+light_pinkFIFJFK-F$6%7&FhhlFehl7$F+$F^pF)7$F(Fiil-F26& F4$\"$f)F7Fh\\l$\"$x&F7F<-FA6&7$FD$!$X#F/Q0pale_violet_redFIFJFK-F$6%7 &FjilFhil7$F+$!#EF)7$F(F[[m-F26&F4F+$\"$`(F7$\"$'zF7F<-FA6&7$FD$!$b#F/ Q%pinkFIFJFK-F$6%7&F][mFjjl7$F+$!#FF)7$F(F^\\m-F26&F4$\"#')FRFcfl$\"#F FRF<-FA6&7$FD$!$l#F/Q5permanent_red_violetFIFJFK-F$6%7&F`\\mF]\\m7$F+$ !#GF)7$F(Fa]m-F26&F4FZ$\"\"(FR$\"#>FRF<-FA6&7$FD$!$v#F/Q.geranium_lake FIFJFK-F$6%7&Fc]mF`]m7$F+$!#HF)7$F(Fd^m-F26&F4$\"$*))F7Fcfl$\"#@FRF<-F A6&7$FD$!$&GF/Q1alizarin_crimsonFIFJFK-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "C urve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "C urve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22 " "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "C urve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41 " "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47" "C urve 48" "Curve 49" "Curve 50" "Curve 51" "Curve 52" "Curve 53" "Curve 54" "Curve 55" "Curve 56" "Curve 57" "Curve 58" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 50 "Examples of plots using the enhanced colour system" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 9 "Example 1" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "plot([x^2,x+1],x=-2..2,color=[purpl e,cadmium_orange],\n thickness=2);" }}{PARA 13 "" 1 "" {GLPLOT2D 363 303 303 {PLOTDATA 2 "6'-%'CURVESG6$7S7$$!\"#\"\"!$\"\"%F*7$$!3MLLL $Q6G\">!#<$\"3A!e4#)QZ)eOF07$$!3bmm;M!\\p$=F0$\"3'*[e7a'***!#=$\"3mq\"))\\%))R#***Fbo7$$!3E++++ 0\"*H\"*Fbo$\"3ND5!QdEbL)Fbo7$$!35++++83&H)Fbo$\"3yo4Oxt$3)oFbo7$$!3\\ LLL3k(p`(Fbo$\"3[Bt(zL,1o&Fbo7$$!3Anmmmj^NmFbo$\"3%37I_u2IS%Fbo7$$!3)z mmmYh=(eFbo$\"39$[s$3d(yW$Fbo7$$!3+,++v#\\N)\\Fbo$\"3W.`jPjd$[#Fbo7$$! 3commmCC(>%Fbo$\"3'*4!*RKWoh6\"F bo7$$!3t*****\\#=/8DFbo$\"3CH$*>9#z`J'!#>7$$!3=mmm;a*el\"Fbo$\"38sw$4j *)>u#Fbr7$$!3komm;Wn(o)Fbr$\"37a/+x'ova(!#?7$$!3IqLLL$eV(>F]s$\"3gBHSG 34)*Q!#B7$$\"3)Qjmm\"f`@')Fbr$\"3[xsBc\")3LuF]s7$$\"3%z****\\nZ)H;Fbo$ \"3)*)*GqVMScEFbr7$$\"3ckmm;$y*eCFbo$\"3SBo$=Oul/'Fbr7$$\"3f)******R^b J$Fbo$\"3+&>/'3\")G*4\"Fbo7$$\"3'e*****\\5a`TFbo$\"3q1NSD.>D$)Fbo$\"3$*4F1'4l>#pFbo7$$\"3M*******pfa<*F bo$\"3:3Cjqg!*=%)Fbo7$$\"39HLLeg`!)**Fbo$\"3))y\"p6+56'**Fbo7$$\"3w*** *\\#G2A3\"F0$\"3EMgH-EF0$\"3?')3\"\\D2*fOF07$$\"\"#F*F+-%'COLOURG6&%$RGBG$F,!\"\" F*$\"\"*F_[l-F$6$7S7$F($F_[lF*7$F.$!3PLLLLQ6G\"*Fbo7$F4$!3]lmmT.\\p$)F bo7$F9$!3LLLL$))Qj^(Fbo7$F>$!3IKLL$=Kvl'Fbo7$FC$!3hnmmTs!G!eFbo7$FH$!3 iLLL3yO5]Fbo7$FM$!3_*****\\nU)*=%Fbo7$FR$!3)RLL$3WDTLFbo7$FW$!3'4++]d( Q&\\#Fbo7$Ffn$!3:mmmm&4`i\"Fbo7$F[o$!3GKLLLQW*e)Fbr7$F`o$\"3HI#******* H,Q!#@7$Ffo$\"3Q(*******\\*3q)Fbr7$F[p$\"3!********p=\\q\"Fbo7$F`p$\"3 _mmm\"fBIY#Fbo7$Fep$\"3yKLLLO[kLFbo7$Fjp$\"3.KLLL&Q\"GTFbo7$F_q$\"3+** ***\\s]k,&Fbo7$Fdq$\"3WJLLLvv-eFbo7$Fiq$\"3'3++]sgam'Fbo7$F^r$\"3G+++v \"ep[(Fbo7$Fdr$\"3#QLLLe/TM)Fbo7$Fir$\"39LLLeDBJ\"*Fbo7$F_s$\"3Immm;kD !)**Fbo7$Fes$\"3Mmm;f`@'3\"F07$Fjs$\"3y****\\nZ)H;\"F07$F_t$\"3YmmmJy* eC\"F07$Fdt$\"3')******R^bJ8F07$Fit$\"3f*****\\5a`T\"F07$F^u$\"3o**** \\7RV'\\\"F07$Fcu$\"3k*****\\@fke\"F07$Fhu$\"3/LLL`4Nn;F07$F]v$\"3#*** ****\\,s`$=F07$Fgv$\"3$*******pfa<>F07$F\\w$\"3#HL Leg`!)*>F07$Faw$\"3w****\\#G2A3#F07$Ffw$\"3;LLL$)G[k@F07$F[x$\"3#)**** \\7yh]AF07$F`x$\"3xmmm')fdLBF07$Fex$\"3bmmm,FT=CF07$Fjx$\"3FLL$e#pa-DF 07$F_y$\"3!*******Rv&)zDF07$Fdy$\"3ILLLGUYoEF07$Fiy$\"3_mmm1^rZFF07$F^ z$\"34++]sI@KGF07$Fcz$\"34++]2%)38HF07$Fhz$\"\"$F*-F[[l6&F][l$\"\"\"F* $\"#QF)$F[elF)-%*THICKNESSG6#Fiz-%+AXESLABELSG6$Q\"x6\"Q!Ffel-%%VIEWG6 $;F(Fhz%(DEFAULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 " " {TEXT -1 9 "Example 2" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "plot([sin(x),cos(x)],x=0..10,color= [chartreuse,dark_violet],\n thickness=2);" }}{PARA 13 "" 1 "" {GLPLOT2D 449 262 262 {PLOTDATA 2 "6'-%'CURVESG6$7bp7$$\"\"!F)F(7$$\"3 GLLL3x&)*3\"!#=$\"3s-w#GX,x3\"F-7$$\"3emmm;arz@F-$\"3#omk:3'\\i@F-7$$ \"3v***\\7y%*z7$F-$\"3[5PuXZBxIF-7$$\"3[LL$e9ui2%F-$\"3Y%>(=1EKkRF-7$$ \"3nmmm\"z_\"4iF-$\"3!et=0V)zc;***F-7$$\"3%om;zR'ok;FL$\"3y v)3Dkbf&**F-7$$\"3OLL3_(>/x\"FL$\"3YD_%>A89!)*F-7$$\"33++D1J:w=FL$\"3: bBEMvRP&*F-7$$\"3+n;HdG\"\\)>FL$\"3IhFB$p@Z:*F-7$$\"3oLLL3En$4#FL$\"3) 4J8vCkQm)F-7$$\"3#pmmT!RE&G#FL$\"3A'y&=(*>UavF-7$$\"3D+++D.&4]#FL$\"3[ Ywmr_5xfF-7$$\"3?+++]jB4EFL$\"3I(*3>8(\\c2&F-7$$\"3;+++vB__d.-P@F-7$$\"3pL$eky#*4-$FL$\"3$yDI)*QxI?\"F-7$$\"3&om;z*ev:JFL$\" 3Wz2mE\")Q$e#!#>7$$\"3>+]7.%Q%GKFL$!350zC#HiOn)Fhs7$$\"3_LLL347TLFL$!3 =h!o%p'p?)>F-7$$\"3#QLL3xxlV$FL$!3)Q!=Q-hD2HF-7$$\"3nLLLLY.KNFL$!3:ewW !prf!QF-7$$\"33++D\"o7Tv$FL$!3ku9$eu6$\\dF-7$$\"3?LLL$Q*o]RFL$!3(3plbv SmB(F-7$$\"3m++D\"=lj;%FL$!3ivrBn3'fa)F-7$$\"3S++vV&R4hG(*F-7$$\"3CML$e9Ege%FL$!31\"HW$[$o-#* *F-7$$\"3hL3FW;ANYFL$!39FK4$yS-(**F-7$$\"3'QL3F9UV&f@v**F -7$$\"3/+](=7O*))[FL$!3t'*RX0*fX%)*F-7$$\"3emm;/T1&*\\FL$!3-8VK[r7.'*F -7$$\"3Vm;/^7I0^FL$!3yAnMw#zzB*F-7$$\"3=nm\"zRQb@&FL$!3e`.(*3Iog()F-7$ $\"3:++v=>Y2aFL$!3Ys&>3\"*p+o(F-7$$\"3Znm;zXu9cFL$!3[e$[XTIw>'F-7$$\"3 yLLe9i\"=s&FL$!3-OkE/nXB`F-7$$\"34+++]y))GeFL$!3]kkp&Q6$)Q%F-7$$\"3k++ DcljLfFL$!3@f)\\\\\")QZU$F-7$$\"3H++]i_QQgFL$!3S^C@eLiBCF-7$$\"3U+](=- N(RhFL$!3bg=t\\!)eH9F-7$$\"3b++D\"y%3TiFL$!3YAva:!4)3UFhs7$$\"3G+]P4kh `jFL$\"3!R40^s)GPqFhs7$$\"3+++]P![hY'FL$\"3XJ%4'pkV>=F-7$$\"3KmmT5FEnl FL$\"3+L>G5&>F!GF-7$$\"3iKLL$Qx$omFL$\"3CT&opXrtv$F-7$$\"3Y+++v.I%)oFL $\"3Wf1etUibcF-7$$\"3?mm\"zpe*zqFL$\"3]yt\"GgV5:(F-7$$\"3;,++D\\'QH(FL $\"3#39p/6J>Z)F-7$$\"3%HL$e9S8&\\(FL$\"3)*e%p:c@IO*F-7$$\"3%om;/6E.g(F L$\"3G#GQ,f:+o*F-7$$\"3s++D1#=bq(FL$\"3mi/mI`***))*F-7$$\"3yL3xc/%pv(F L$\"3-&*Q\"z)>&H&**F-7$$\"3#om\"H2FO3yFL$\"37Rn1sjf*)**F-7$$\"3')*\\7y &\\yfyFL$\"33dZj2;$)****F-7$$\"3\"HLL$3s?6zFL$\"35k:3O1j$)**F-7$$\"3!* )\\i!R:/lzFL$\"3]=Q%4&=RQ**F-7$$\"3yl;zpe()=!)FL$\"3)p4G%=sNk)*F-7$$\" 3mK3_+-rs!)FL$\"31/@4\\7uh(*F-7$$\"3a***\\7`Wl7)FL$\"3Ntx1m7%3j*F-7$$ \"3cL$e*[ACI#)FL$\"3K&3#QS:X+$*F-7$$\"3enmmm*RRL)FL$\"35TM/J;9q))F-7$$ \"3%zmmTvJga)FL$\"3%zM2T<%R*p(F-7$$\"3]MLe9tOc()FL$\"37=j(GL%R(>'F-7$$ \"3oo;H#e0I&))FL$\"3kJvTvOB6aF-7$$\"31,++]Qk\\*)FL$\"3#*>#pz1xXd%F-7$$ \"3#)omT5ASg!*FL$\"3#>%*p`)4mjNF-7$$\"3![LL3dg6<*FL$\"3A!Q?&pE24DF-7$$ \"3K,+voTAq#*FL$\"3ee82`ARR:F-7$$\"3%ymmmw(Gp$*FL$\"3]#p#QF@pz\")\\F-7$$\"3-++v=JN[6FL$\"3o=?q+5!**4%F-7$FP$\"3+t3,J- \"y<$F-7$FU$\"3q>L0(eB.>#F-7$FZ$\"3SZ6Vkb\")z6F-7$F^o$\"3,YT:!3;$=7Fhs 7$Fho$!3;6wAM'=_P*Fhs7$F]p$!3W'>%G%[-I)>F-7$Fbp$!3>[j&3pMj+$F-7$Fgp$!3 A=<\"y&H\"Q-%F-7$F\\q$!3935X8r,)F-7$F`r$!3*\\+[h#o@9\"*F-7$Fe r$!3MtjR\">XK\\*F-7$Fjr$!3MW*)*H*)))*o(*F-7$$\"3!p;H2B6O(HFL$!3u6CUjEC f)*F-7$F_s$!3SeP8ekOF**F-7$$\"3/+v=UVPoIFL$!3!Qq=qO2K(**F-7$Fds$!3k[o% f\\im***F-7$$\"3_L3_]r4sJFL$!3o._5RxM&***F-7$Fjs$!3%*HJ([x7B'**F-7$$\" 3'o;HdlzZG$FL$!3W+\\hRCm(*)*F-7$F_t$!3d\"3%)4!>g,)*F-7$Fdt$!35@VD#pk!o &*F-7$Fit$!3+j)e%R$4uC*F-7$F^u$!3#pNi#\\x,#=)F-7$Fcu$!3&=TYkyB:!pF-7$F hu$!3oq=QsH$H>&F-7$$\"33++]iB0pUFL$!3kJV^!**e&*G%F-7$F]v$!3jW,)=\"G*4M $F-7$Fbv$!3\\-B$o@**QJ#F-7$Fgv$!3g\"G!\\%=o-E\"F-7$Faw$!3)[v\"4=!>oz#F hs7$F[x$\"3Dyw)eQ(4OqFhs7$F`x$\"33K5%*)R9jv\"F-7$Fex$\"3Kb#p\"*)fD*y#F -7$Fjx$\"3KKH#e%Q!)GQF-7$F_y$\"3*G#)GFIq=#[F-7$$\"3nLLLe,]6`FL$\"3%3]A 'Rn3RcF-7$Fdy$\"3n&\\\"4%e9WS'F-7$Fiy$\"3#o.%y')**)y%yF-7$Fcz$\"3k?%3d Z&p&)*)F-7$Fhz$\"3%[m(=&\\t_R*F-7$F][l$\"3S`(e+1e=q*F-7$$\"3!3](=U,1*3 'FL$\"3POVgy!o@\")*F-7$Fb[l$\"3?OF='R'G(*)*F-7$$\"3-+Dc,*4/>'FL$\"3y=. a![%*p&**F-7$Fg[l$\"3K.D]P!R6***F-7$$\"3S+DJ&f]tH'FL$\"39Bl$)Rn**)***F -7$F\\\\l$\"3i]>U]v?v**F-7$$\"39+vVBA))4kFL$\"3XZG?in%)>**F-7$Fa\\l$\" 3Qa_W#f*3L)*F-7$Ff\\l$\"3/uO]\"R1#*f*F-7$F[]l$\"3[]$GizisE*F-7$F`]l$\" 3set'G([0Z#)F-7$Fe]l$\"3+SUKkq^$F-7$Fd^l$\"36F\")R0=W4D F-7$Fi^l$\"3%=K0VQ'=z9F-7$Fc_l$\"3_g0t]0JgXFhs7$F]`l$!3!f!3\\2YV>dFhs7 $Fg`l$!3UytSB+[T;F-7$Faal$!3ccs%y.1?p#F-7$Ffal$!3WQ:&f\\_Wn$F-7$F[bl$! 34I:]k@Uk2[yF-7$F_cl$!3[!f]hz8 B*))F-7$Fdcl$!3\\0:8YSYV$*F-7$Ficl$!3w8Z?x76!o*F-7$F^dl$!3E*))p/=.3))* F-7$Fcdl$!39O>!>93Y)**F-7$$\"3%4]7`**)4A%*FL$!3;m=u:T'*****F-7$Fhdl$!3 g?$[DTOu)**F-7$$\"39nTg_9sF&*FL$!3CO'*Gk*fq%**F-7$F]el$!3)=6adNZ*y)*F- 7$Fbel$!3E#>$4#o_>n*F-7$Fgel$!3C,!e%4X>m$*F-7$F\\fl$!3QCXw!H:2R)F--Faf l6&Fcfl$\"#e!\"#F($\"$F)Fffl-%*THICKNESSG6#\"\"#-%+AXESLABELSG6$Q\"x6 \"Q!F_[n-%%VIEWG6$;F(F\\fl%(DEFAULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 3" }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "plot([seq(BesselJ(i,x), i=0..5)],x=0..10,\n color=[emerald_green,burnt_sienna,mars_yellow, purple,\n light_cadmium_red,sap_green],thickness=2);" }}{PARA 13 " " 1 "" {GLPLOT2D 449 262 262 {PLOTDATA 2 "6+-%'CURVESG6$7hn7$$\"\"!F)$ \"\"\"F)7$$\"+S&)G\\a!#6$\"+\"pxD***!#57$$\"+3x&)*3\"F2$\"+#HF.(**F27$ $\"+ilyM;F2$\"+S$)HL**F27$$\"+;arz@F2$\"+kKd\"))*F27$$\"+!y%*z7$F2$\"+ %*H)ov*F27$$\"+XTFwSF2$\"+-Q*))e*F27$$\"+\"z_\"4iF2$\"+vz8f!*F27$$\"+S &phN)F2$\"+p03H$)F27$$\"+*=)H\\5!\"*$\"+QV:JuF27$$\"+[!3uC\"FY$\"+xzGs kF27$$\"+J$RDX\"FY$\"+[,V\"Q&F27$$\"+)R'ok;FY$\"+kc[$=%F27$$\"+1J:w=FY $\"+!oKo&HF27$$\"+3En$4#FY$\"+I&[?q\"F27$$\"+/RE&G#FY$\"+6hY^jF/7$$\"+ D.&4]#FY$!+ulg&)[F/7$$\"+vB_Y2aFY$!+oAQjQF/7$$\"+yXu9cFY$\"+R&*3*=$F/7$$ \"+\\y))GeFY$\"+[uD15F27$$\"+i_QQgFY$\"+!y'=6;F27$$\"+!y%3TiFY$\"+pU76 @F27$$\"+O![hY'FY$\"+.*[sa#F27$$\"+#Qx$omFY$\"+CR+>GF27$$\"+y)Qjx'FY$ \"+Mxn9HF27$$\"+u.I%)oFY$\"+)=n^(HF27$$\"+N&H@)pFY$\"+&Gv%**HF27$$\"+( pe*zqFY$\"+<0'\\*HF27$$\"+5=\"p=(FY$\"+z2ddHF27$$\"+C\\'QH(FY$\"+xI=() GF27$$\"+8S8&\\(FY$\"+@$[*pEF27$$\"+0#=bq(FY$\"+>TbNBF27$$\"+2s?6zFY$ \"+z/&*=>F27$$\"+IXaE\")FY$\"+tU/49F27$$\"+l*RRL)FY$\"+A@=&p)F/7$$\"+` <.Y&)FY$\"+Zr4OHF/7$$\"+8tOc()FY$!+!*f\"\\w#F/7$$\"+\\Qk\\*)FY$!+@zk$y (F/7$$\"+p0;r\"*FY$!+#GDTI\"F27$$\"+lxGp$*FY$!+Q`,6$\"+**yR$3\"F2 7$FC$\"+Ro%\\a\"F27$FH$\"+0q4'*>F27$$\"+oMrU^F2$\"+-4G([#F27$FM$\"+Z\\ MdHF27$$\"+m6m#G(F2$\"+y&*>0MF27$FR$\"+!3qQ#QF27$FW$\"+C7!ob%F27$Fgn$ \"+ll1+^F27$F\\o$\"+B^X3bF27$$\"+kGhe:FY$\"+akRacF27$Fao$\"+e)eXv&F27$ $\"+vIb<sy&F27$$\"+_(>/x\"FY$\"+BKO3eF27$$\"+HkGB=FY$\"+4\\* z\"eF27$Ffo$\"+Oo9;eF27$$\"+#)H`I>FY$\"+t'HB!eF27$$\"+dG\"\\)>FY$\"+7* =lx&F27$$\"+KFHR?FY$\"+QW$)QdF27$F[p$\"+sUU*o&F27$$\"+c#o%*=#FY$\"+9KT ubF27$F`p$\"+F)QZU&F27$Fep$\"+z,fo\\F27$Fjp$\"+3f)>O%F27$F_q$\"++MxgOF 27$$\"+'y#*4-$FY$\"+(Q')=J$F27$Fdq$\"+eGsZHF27$$\"+-%Q%GKFY$\"+^yr)\\# F27$Fiq$\"+K%fp.#F27$F^r$\"+.&z%R;F27$Fcr$\"+\\`TR7F27$Fhr$\"+[#**yu(F /7$F]s$\"+)*=FaJF/7$Fbs$!+.\"\\@J)!#77$Fgs$!+tq()3ZF/7$Fat$!+jBtp7F27$ Fft$!+Er-V>F27$F[u$!+-6lJDF27$F`u$!+!>!)Q&HF27$$\"+Ah$*))[FY$!+NE&FY$ !+M2``MF27$$\"+d,]6`FY$!+*>(fgMF27$$\"+P5[f`FY$!+m:&*fMF27$F_v$!+]#f;X $F27$$\"+[K56bFY$!+6@03MF27$Fdv$!+qW@ILF27$$\"+8i\"=s&FY$!+W>I:KF27$Fi v$!+(*z9nIF27$F^w$!+JIf*o#F27$Fcw$!+yYGHAF27$Fhw$!+(GVQj\"F27$F]x$!+:z !y/\"F27$Fgx$!+$phi'RF/7$Fay$\"+saz@>F/7$F[z$\"+di$p3)F/7$F`z$\"+2@QS8 F27$Fez$\"+o)RZ#=F27$Fjz$\"+'==.@#F27$F_[l$\"++(3i]#F27$$\"+ZACI#)FY$ \"+Mg@1EF27$Fd[l$\"+%Qcvn#F27$$\"+ee)*R%)FY$\"+kjX?FF27$Fi[l$\"+_A(Gt# F27$$\"+K&*>^')FY$\"+iwI:FF27$F^\\l$\"+G+`oEF27$$\"+!e0I&))FY$\"++!30g #F27$Fc\\l$\"+$f'R4DF27$Fh\\l$\"+z6^>AF27$F]]l$\"+-%)yv=F27$Fb]l$\"+)z R&Q9F27$Fg]l$\"+9Nq+(*F/7$F\\^l$\"+oK[\"F^gl7$F>$\"+D*pa\"fF^gl7$FC$\"+ <@587F/7$FH$\"+?2R[?F/7$FM$\"+z'>im%F/7$FR$\"+&=u7B)F/7$FW$\"+1BFa7F27 $Fgn$\"+qTx/IFF27$Ffo$\"+%HWKC$F27$F [p$\"+#HEGt$F27$F`p$\"+O`V7TF27$Fep$\"+2C#>Y%F27$Fjp$\"+vtm6ZF27$$\"+E g(=#GFY$\"+v4A\"z%F27$F_q$\"+\\nSU[F27$$\"+J7htHFY$\"+l*)*f&[F27$F`el$ \"+qTXj[F27$$\"+TVPoIFY$\"+4*3Z'[F27$Fdq$\"+^@rf[F27$Fhel$\"+/l^A[F27$ Fiq$\"+\"yV&\\ZF27$F^r$\"+4]&)fYF27$Fcr$\"+Pv%\\a%F27$F]s$\"+=gV$=%F27 $Fgs$\"+vN-hPF27$Fat$\"+U>t+KF27$Fft$\"+jtx*e#F27$F[u$\"+[1#H*=F27$F`u $\"+Zt4?7F27$Feu$\"+-6VF[F/7$Fju$!+ey:\"p#F/7$F_v$!+k***G!*)F/7$Fdv$!+ Wz90:F27$Fiv$!+gIle?F27$F^w$!+b'=?]#F27$Fcw$!+(R9b#GF27$$\"+3kh`jFY$!+ 5a\"p&HF27$Fhw$!+*y,E0$F27$$\"+4FEnlFY$!+.$oFY$!+qs1%HF27$F[z$!+>oVlEF27$F`z$!+R5G7BF27$F ez$!+J^$>'=F27$Fjz$!+h*o,O\"F27$F_[l$!+Hh[AzF/7$Fd[l$!+iX^pAF/7$Fi[l$ \"+\\[bfMF/7$F^\\l$\"+jy(*f))F/7$Fc\\l$\"+Bh9R8F27$Fh\\l$\"+z\\9)y\"F2 7$F]]l$\"+.vU6@F27$Fb]l$\"++\"3DO#F27$$\"+[oi\"o*FY$\"+(f@fW#F27$Fg]l$ \"+o8o/DF27$$\"+30O\"*)*FY$\"+i$p*RDF27$F\\^l$\"+PJIYDF2-Fa^l6&Fc^l$\" #*)Ff^l$\"#WFf^l$F+!\"\"-F$6$7hnF\\_l7$F>$\"+Zt8^@!#87$FH$\"+3zZ'R\"F^ gl7$FM$\"+q&p\"o[F^gl7$FR$\"+M)RM;\"F/7$FW$\"+%=[dC#F/7$Fgn$\"+b8YlOF/ 7$F\\o$\"+Ym#fe&F/7$Fao$\"+cp9d!)F/7$Ffo$\"+t=_)4\"F27$F[p$\"+q*3AW\"F 27$F`p$\"+a8WtUF27$Fgs$\"+\"ea)yUF27$F\\t$\"+eRdAVF27$Fat$\"+utlUVF27$$\"+iB0 pUFY$\"+p\\,RVF27$Fft$\"+$[*e7VF27$$\"+WG))yWFY$\"+$zK.E%F27$F[u$\"+dX o#=%F27$F`u$\"+\"p#GuRF27$Feu$\"+aUzcOF27$Fju$\"+AoIKKF27$F_v$\"+2_4$z #F27$Fdv$\"+s?$zD#F27$Fiv$\"+rNUa;F27$F^w$\"+UR=K5F27$Fcw$\"+\\Js$=%F/ 7$Fhw$!+GX:XDF/7$F]x$!+<>p;$)F/7$Fgx$!+h=**)R\"F27$Fay$!+ffe`=F27$F[z$ !+IaVqAF27$F`z$!+*G*RuDF27$$\"+3hK+wFY$!+#)o<'p#F27$Fez$!+@iG\"z#F27$$ \"+1FO3yFY$!+ff)y&GF27$Fjz$!+6d.)*GF27$$\"+Q:/lzFY$!+4[X3HF27$$\"+pe() =!)FY$!+Oif6HF27$$\"+*>5F2)FY$!+f_[2HF27$F_[l$!+dY;'*GF27$Fb]m$!+)GwU& GF27$Fd[l$!+`^['y#F27$Fj]m$!+T$[7p#F27$Fi[l$!+zl%4d#F27$F^\\l$!+!*pzjA F27$Fc\\l$!+:<(3\">F27$Fh\\l$!+v?hR9F27$F]]l$!+\\UjV(*F/7$Fb]l$!+(*>h@ XF/7$Fg]l$\"+nrU0aF^gl7$F\\^l$\"+Jz$z$eF/-Fa^l6&Fc^l$\"\"%Fd^nF)$\"\"* Fd^n-F$6$7hnF\\_l7$F>$\"+i$oX'e!#:7$FH$\"+>QOIr!#97$FM$\"+>vv'z$F[_n7$ FR$\"+O7+E7F^gl7$FW$\"+R\"oq)HF^gl7$Fgn$\"+LIJIeF^gl7$F\\o$\"+_r?U5F/7 $Fao$\"+T\"Q#Q$*FY$!+(QeAu#F27$F]]l$!+&G+at#F27$$\"+A-\"\\Z*FY $!+63n-FF27$Fb]l$!+&3$oXEF27$F^]n$!+J,.pDF27$Fg]l$!+j%G:Z#F27$F\\^l$!+ ho-'>#F2-Fa^l6&Fc^lF*$F+Ff^l$\"\"&Ff^l-F$6$7WF\\_l7$F>$\"+ra\")y7!#;7$ FH$\"+Ffc5HFd[o7$FM$\"+!z!3lBFh[o7$FR$\"+G()[I5F[_n7$FW$\"+[QajJF[_n7$ Fgn$\"+E^BptF[_n7$F\\o$\"+:VHT:F^gl7$Fao$\"+fQ@jHF^gl7$Ffo$\"+K\"=&>_F ^gl7$F[p$\"+5$)41()F^gl7$F`p$\"+vi8,8F/7$Fep$\"+G'pM&>F/7$Fjp$\"+'*H4< GF/7$F_q$\"+@]4tQF/7$Fdq$\"+c:BR]F/7$Fiq$\"+))>L'p'F/7$Fcr$\"+-\"\\QL) F/7$F]s$\"+f*=-0\"F27$Fgs$\"+6\\@k7F27$Fat$\"+5%4)>:F27$Fft$\"+)pT$zPF27$Fdhm$\"+!oD\"QPF27$Fhw$\"+oP/R PF27$F\\im$\"+rFyBPF27$F]x$\"+r9)Gp$F27$Fbx$\"+JkHUOF27$Fgx$\"+VdLtNF2 7$Fay$\"+REU,MF27$F[z$\"+&zBa9$F27$F`z$\"+j&fF%GF27$Fez$\"+%zWyY#F27$F jz$\"+v-)30#F27$F_[l$\"+@>v?F27$F\\^l$!+#G:1M#F2-Fa^l6&Fc^l$\"#>Ff^l$Fb goFd^n$F`^n!\"$-%+AXESLABELSG6$Q\"x6\"Q!F`bp-%*THICKNESSG6#\"\"#-%%VIE WG6$;F(F\\^l%(DEFAULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 4" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "plots[polygonplot]([[0,0],[1,0],[1,1],[0,1]],\n color=violet ,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 333 120 120 {PLOTDATA 2 "6% -%)POLYGONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$RGB G$\"#c!\"#$\"#PF5$\"\"'!\"\"-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "plots[polygo nplot]([[0,0],[1,0],[1,1],[0,1]],\n color=deep_madder_lake,axes=no ne);" }}{PARA 13 "" 1 "" {GLPLOT2D 327 121 121 {PLOTDATA 2 "6%-%)POLYG ONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$RGBG$\"#*)! \"#$\"#=F5$\"#>F5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 9 "Example 5" }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "plot3d(x*y*exp(-x^2-y^2) ,x=-3..3,y=-3..3,\n color=spicy_pink,lightmodel=light4);" }} {PARA 13 "" 1 "" {GLPLOT3D 375 314 314 {PLOTDATA 3 "6%-%%GRIDG6&;$!\"$ \"\"!$\"\"$F)F&X,%)anythingG6\"6\"[gl'!%\"!!#\\bm\":\":3E8265AEDDF6D39 53EA1C0085FAAA1FB3EBDFA265D01D6ED3ED61D93F460CFB93EEC7107D9642C643EFFC 65578BBFDCA3F0EB0250C98E6B23F196DEBAABFCEA73F21DA1B480B5D743F24BCBD591 392CE3F22E5753504CFAE3F16CB1685ACAD988000000000000000BF16CB1685ACAD98B F22E5753504CFAEBF24BCBD591392CEBF21DA1B480B5D74BF196DEBAABFCEA7BF0EB02 50C98E6B2BEFFC65578BBFDCABEEC7107D9642C64BED61D93F460CFB9BEBDFA265D01D 6EDBEA1C0085FAAA1FBBE8265AEDDF6D3953EA1C0085FAAA1FB3EC1203569FFE89A3ED CEC3B7DF0F1123EF556727F52714A3F0B70F0AA56D3043F1EA83B0DC8CF513F2D9BD37 9FAFD723F3888F3A433BC1A3F41395D8CCA33E53F440204E28261603F423B50374C616 63F35FDDAC30E0B008000000000000000BF35FDDAC30E0B00BF423B50374C6166BF440 204E2826160BF41395D8CCA33E5BF3888F3A433BC1ABF2D9BD379FAFD72BF1EA83B0DC 8CF51BF0B70F0AA56D304BEF556727F52714ABEDCEC3B7DF0F112BEC1203569FFE89AB EA1C0085FAAA1FB3EBDFA265D01D6ED3EDCEC3B7DF0F1123EF86C495989F4203F12049 A6570D2DF3F272C01192429583F39E335349650AC3F49008FBB85AC973F54B7C3E1BF8 5F43F5D16B7DBECF9BE3F60E52377587B183F5ECA59ED3AA3FA3F5291F71C1FABC3800 0000000000000BF5291F71C1FABC3BF5ECA59ED3AA3FABF60E52377587B18BF5D16B7D BECF9BEBF54B7C3E1BF85F4BF49008FBB85AC97BF39E335349650ACBF272C011924295 8BF12049A6570D2DFBEF86C495989F420BEDCEC3B7DF0F112BEBDFA265D01D6ED3ED61 D93F460CFB93EF556727F52714A3F12049A6570D2DF3F2A95DD50152FF93F411850E44 182323F531933354DE8963F6271FE106120213F6E91AB5E6BC8E43F7575CA800CD71C3 F78EDB66571A7883F76B72D86B114303F6B667183750AA98000000000000000BF6B667 183750AA9BF76B72D86B11430BF78EDB66571A788BF7575CA800CD71CBF6E91AB5E6BC 8E4BF6271FE10612021BF531933354DE896BF411850E4418232BF2A95DD50152FF9BF1 2049A6570D2DFBEF556727F52714ABED61D93F460CFB93EEC7107D9642C643F0B70F0A A56D3043F272C01192429583F411850E44182323F55FC21041027AD3F688FB83FF4008 93F77B8AF025030D63F83A81280FF30EA3F8B993FE00D53763F900793C2DD50093F8D3 691112217523F819E6FC980A4E18000000000000000BF819E6FC980A4E1BF8D3691112 21752BF900793C2DD5009BF8B993FE00D5376BF83A81280FF30EABF77B8AF025030D6B F688FB83FF40089BF55FC21041027ADBF411850E4418232BF272C0119242958BF0B70F 0AA56D304BEEC7107D9642C643EFFC65578BBFDCA3F1EA83B0DC8CF513F39E33534965 0AC3F531933354DE8963F688FB83FF400893F7B709C89D4D76D3F8A805FC7CE978D3F9 5F5CED566AB7B3F9ED543A0A1208A3FA1E87F5D0286803FA05182958FBF883F93AF09F EBF93EC8000000000000000BF93AF09FEBF93ECBFA05182958FBF88BFA1E87F5D02868 0BF9ED543A0A1208ABF95F5CED566AB7BBF8A805FC7CE978DBF7B709C89D4D76DBF688 FB83FF40089BF531933354DE896BF39E335349650ACBF1EA83B0DC8CF51BEFFC65578B BFDCA3F0EB0250C98E6B23F2D9BD379FAFD723F49008FBB85AC973F6271FE106120213 F77B8AF025030D63F8A805FC7CE978D3F99985A4F687C9A3FA5358BAD6C22153FADC75 1C7B258443FB14BB5E6E7C1BA3FAF8548A0DF6E383FA302B5011752028000000000000 000BFA302B501175202BFAF8548A0DF6E38BFB14BB5E6E7C1BABFADC751C7B25844BFA 5358BAD6C2215BF99985A4F687C9ABF8A805FC7CE978DBF77B8AF025030D6BF6271FE1 0612021BF49008FBB85AC97BF2D9BD379FAFD72BF0EB0250C98E6B23F196DEBAABFCEA 73F3888F3A433BC1A3F54B7C3E1BF85F43F6E91AB5E6BC8E43F83A81280FF30EA3F95F 5CED566AB7B3FA5358BAD6C22153FB193245A4F9F803FB8ACFDFA40B6B63FBCA9F6297 8BE753FBA1E8943C15CA53FAF8180914069FD8000000000000000BFAF8180914069FDB FBA1E8943C15CA5BFBCA9F62978BE75BFB8ACFDFA40B6B6BFB193245A4F9F80BFA5358 BAD6C2215BF95F5CED566AB7BBF83A81280FF30EABF6E91AB5E6BC8E4BF54B7C3E1BF8 5F4BF3888F3A433BC1ABF196DEBAABFCEA73F21DA1B480B5D743F41395D8CCA33E53F5 D16B7DBECF9BE3F7575CA800CD71C3F8B993FE00D53763F9ED543A0A1208A3FADC751C 7B258443FB8ACFDFA40B6B63FC152AAA3BF81CC3FC41F68D1C195563FC25618372A585 03FB61E28AD078F7E8000000000000000BFB61E28AD078F7EBFC25618372A5850BFC41 F68D1C19556BFC152AAA3BF81CCBFB8ACFDFA40B6B6BFADC751C7B25844BF9ED543A0A 1208ABF8B993FE00D5376BF7575CA800CD71CBF5D16B7DBECF9BEBF41395D8CCA33E5B F21DA1B480B5D743F24BCBD591392CE3F440204E28261603F60E52377587B183F78EDB 66571A7883F900793C2DD50093FA1E87F5D0286803FB14BB5E6E7C1BA3FBCA9F62978B E753FC41F68D1C195563FC75FFE8906A0843FC54CC4569756883FB9B14ADCEE5DDC800 0000000000000BFB9B14ADCEE5DDCBFC54CC456975688BFC75FFE8906A084BFC41F68D 1C19556BFBCA9F62978BE75BFB14BB5E6E7C1BABFA1E87F5D028680BF900793C2DD500 9BF78EDB66571A788BF60E52377587B18BF440204E2826160BF24BCBD591392CE3F22E 5753504CFAE3F423B50374C61663F5ECA59ED3AA3FA3F76B72D86B114303F8D3691112 217523FA05182958FBF883FAF8548A0DF6E383FBA1E8943C15CA53FC25618372A58503 FC54CC4569756883FC368B2FC6F960A3FB769652DF22F7E8000000000000000BFB7696 52DF22F7EBFC368B2FC6F960ABFC54CC456975688BFC25618372A5850BFBA1E8943C15 CA5BFAF8548A0DF6E38BFA05182958FBF88BF8D369111221752BF76B72D86B11430BF5 ECA59ED3AA3FABF423B50374C6166BF22E5753504CFAE3F16CB1685ACAD983F35FDDAC 30E0B003F5291F71C1FABC33F6B667183750AA93F819E6FC980A4E13F93AF09FEBF93E C3FA302B5011752023FAF8180914069FD3FB61E28AD078F7E3FB9B14ADCEE5DDC3FB76 9652DF22F7E3FAC3D6A24ED82218000000000000000BFAC3D6A24ED8221BFB769652DF 22F7EBFB9B14ADCEE5DDCBFB61E28AD078F7EBFAF8180914069FDBFA302B501175202B F93AF09FEBF93ECBF819E6FC980A4E1BF6B667183750AA9BF5291F71C1FABC3BF35FDD AC30E0B00BF16CB1685ACAD98800000000000000080000000000000008000000000000 0008000000000000000800000000000000080000000000000008000000000000000800 0000000000000800000000000000080000000000000008000000000000000800000000 0000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000000000 00000BF16CB1685ACAD98BF35FDDAC30E0B00BF5291F71C1FABC3BF6B667183750AA9B F819E6FC980A4E1BF93AF09FEBF93ECBFA302B501175202BFAF8180914069FDBFB61E2 8AD078F7EBFB9B14ADCEE5DDCBFB769652DF22F7EBFAC3D6A24ED82210000000000000 0003FAC3D6A24ED82213FB769652DF22F7E3FB9B14ADCEE5DDC3FB61E28AD078F7E3FA F8180914069FD3FA302B5011752023F93AF09FEBF93EC3F819E6FC980A4E13F6B66718 3750AA93F5291F71C1FABC33F35FDDAC30E0B003F16CB1685ACAD98BF22E5753504CFA EBF423B50374C6166BF5ECA59ED3AA3FABF76B72D86B11430BF8D369111221752BFA05 182958FBF88BFAF8548A0DF6E38BFBA1E8943C15CA5BFC25618372A5850BFC54CC4569 75688BFC368B2FC6F960ABFB769652DF22F7E00000000000000003FB769652DF22F7E3 FC368B2FC6F960A3FC54CC4569756883FC25618372A58503FBA1E8943C15CA53FAF854 8A0DF6E383FA05182958FBF883F8D3691112217523F76B72D86B114303F5ECA59ED3AA 3FA3F423B50374C61663F22E5753504CFAEBF24BCBD591392CEBF440204E2826160BF6 0E52377587B18BF78EDB66571A788BF900793C2DD5009BFA1E87F5D028680BFB14BB5E 6E7C1BABFBCA9F62978BE75BFC41F68D1C19556BFC75FFE8906A084BFC54CC45697568 8BFB9B14ADCEE5DDC00000000000000003FB9B14ADCEE5DDC3FC54CC4569756883FC75 FFE8906A0843FC41F68D1C195563FBCA9F62978BE753FB14BB5E6E7C1BA3FA1E87F5D0 286803F900793C2DD50093F78EDB66571A7883F60E52377587B183F440204E28261603 F24BCBD591392CEBF21DA1B480B5D74BF41395D8CCA33E5BF5D16B7DBECF9BEBF7575C A800CD71CBF8B993FE00D5376BF9ED543A0A1208ABFADC751C7B25844BFB8ACFDFA40B 6B6BFC152AAA3BF81CCBFC41F68D1C19556BFC25618372A5850BFB61E28AD078F7E000 00000000000003FB61E28AD078F7E3FC25618372A58503FC41F68D1C195563FC152AAA 3BF81CC3FB8ACFDFA40B6B63FADC751C7B258443F9ED543A0A1208A3F8B993FE00D537 63F7575CA800CD71C3F5D16B7DBECF9BE3F41395D8CCA33E53F21DA1B480B5D74BF196 DEBAABFCEA7BF3888F3A433BC1ABF54B7C3E1BF85F4BF6E91AB5E6BC8E4BF83A81280F F30EABF95F5CED566AB7BBFA5358BAD6C2215BFB193245A4F9F80BFB8ACFDFA40B6B6B FBCA9F62978BE75BFBA1E8943C15CA5BFAF8180914069FD00000000000000003FAF818 0914069FD3FBA1E8943C15CA53FBCA9F62978BE753FB8ACFDFA40B6B63FB193245A4F9 F803FA5358BAD6C22153F95F5CED566AB7B3F83A81280FF30EA3F6E91AB5E6BC8E43F5 4B7C3E1BF85F43F3888F3A433BC1A3F196DEBAABFCEA7BF0EB0250C98E6B2BF2D9BD37 9FAFD72BF49008FBB85AC97BF6271FE10612021BF77B8AF025030D6BF8A805FC7CE978 DBF99985A4F687C9ABFA5358BAD6C2215BFADC751C7B25844BFB14BB5E6E7C1BABFAF8 548A0DF6E38BFA302B50117520200000000000000003FA302B5011752023FAF8548A0D F6E383FB14BB5E6E7C1BA3FADC751C7B258443FA5358BAD6C22153F99985A4F687C9A3 F8A805FC7CE978D3F77B8AF025030D63F6271FE106120213F49008FBB85AC973F2D9BD 379FAFD723F0EB0250C98E6B2BEFFC65578BBFDCABF1EA83B0DC8CF51BF39E33534965 0ACBF531933354DE896BF688FB83FF40089BF7B709C89D4D76DBF8A805FC7CE978DBF9 5F5CED566AB7BBF9ED543A0A1208ABFA1E87F5D028680BFA05182958FBF88BF93AF09F EBF93EC00000000000000003F93AF09FEBF93EC3FA05182958FBF883FA1E87F5D02868 03F9ED543A0A1208A3F95F5CED566AB7B3F8A805FC7CE978D3F7B709C89D4D76D3F688 FB83FF400893F531933354DE8963F39E335349650AC3F1EA83B0DC8CF513EFFC65578B BFDCABEEC7107D9642C64BF0B70F0AA56D304BF272C0119242958BF411850E4418232B F55FC21041027ADBF688FB83FF40089BF77B8AF025030D6BF83A81280FF30EABF8B993 FE00D5376BF900793C2DD5009BF8D369111221752BF819E6FC980A4E10000000000000 0003F819E6FC980A4E13F8D3691112217523F900793C2DD50093F8B993FE00D53763F8 3A81280FF30EA3F77B8AF025030D63F688FB83FF400893F55FC21041027AD3F411850E 44182323F272C01192429583F0B70F0AA56D3043EEC7107D9642C64BED61D93F460CFB 9BEF556727F52714ABF12049A6570D2DFBF2A95DD50152FF9BF411850E4418232BF531 933354DE896BF6271FE10612021BF6E91AB5E6BC8E4BF7575CA800CD71CBF78EDB6657 1A788BF76B72D86B11430BF6B667183750AA900000000000000003F6B667183750AA93 F76B72D86B114303F78EDB66571A7883F7575CA800CD71C3F6E91AB5E6BC8E43F6271F E106120213F531933354DE8963F411850E44182323F2A95DD50152FF93F12049A6570D 2DF3EF556727F52714A3ED61D93F460CFB9BEBDFA265D01D6EDBEDCEC3B7DF0F112BEF 86C495989F420BF12049A6570D2DFBF272C0119242958BF39E335349650ACBF49008FB B85AC97BF54B7C3E1BF85F4BF5D16B7DBECF9BEBF60E52377587B18BF5ECA59ED3AA3F ABF5291F71C1FABC300000000000000003F5291F71C1FABC33F5ECA59ED3AA3FA3F60E 52377587B183F5D16B7DBECF9BE3F54B7C3E1BF85F43F49008FBB85AC973F39E335349 650AC3F272C01192429583F12049A6570D2DF3EF86C495989F4203EDCEC3B7DF0F1123 EBDFA265D01D6EDBEA1C0085FAAA1FBBEC1203569FFE89ABEDCEC3B7DF0F112BEF5567 27F52714ABF0B70F0AA56D304BF1EA83B0DC8CF51BF2D9BD379FAFD72BF3888F3A433B C1ABF41395D8CCA33E5BF440204E2826160BF423B50374C6166BF35FDDAC30E0B00000 00000000000003F35FDDAC30E0B003F423B50374C61663F440204E28261603F41395D8 CCA33E53F3888F3A433BC1A3F2D9BD379FAFD723F1EA83B0DC8CF513F0B70F0AA56D30 43EF556727F52714A3EDCEC3B7DF0F1123EC1203569FFE89A3EA1C0085FAAA1FBBE826 5AEDDF6D395BEA1C0085FAAA1FBBEBDFA265D01D6EDBED61D93F460CFB9BEEC7107D96 42C64BEFFC65578BBFDCABF0EB0250C98E6B2BF196DEBAABFCEA7BF21DA1B480B5D74B F24BCBD591392CEBF22E5753504CFAEBF16CB1685ACAD9800000000000000003F16CB1 685ACAD983F22E5753504CFAE3F24BCBD591392CE3F21DA1B480B5D743F196DEBAABFC EA73F0EB0250C98E6B23EFFC65578BBFDCA3EEC7107D9642C643ED61D93F460CFB93EB DFA265D01D6ED3EA1C0085FAAA1FB3E8265AEDDF6D395-%&COLORG6&%$RGBG$\"\"\"F )$\"#6!\"#$\"$#oF(-%+AXESLABELSG6%%\"xG%\"yGQ!F/-%+LIGHTMODELG6#%(LIGH T_4G" 1 2 0 1 10 0 2 1 6 1 2 1.000000 39.000000 -58.000000 0 0 "Curve \+ 1" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 1 ";" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT 0 47 "convert(..,RGB),convert( ..,HSV),convert(..,HLS)" }{TEXT -1 10 ": example " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 354 "c1 := cinna bar_green;\nplots[polygonplot]([[0,0],[1,0],[1,1],[0,1]],color=c1,axes =none);\nc2 := convert(c1,RGB);\nplots[polygonplot]([[0,0],[1,0],[1,1] ,[0,1]],color=c2,axes=none);\nc3 := convert(c2,HSV);\nplots[polygonplo t]([[0,0],[1,0],[1,1],[0,1]],color=c3,axes=none);\nc4 := convert(c2,HL S);\nplots[polygonplot]([[0,0],[1,0],[1,1],[0,1]],color=c4,axes=none); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c1G%/cinnabar_greenG" }}{PARA 13 "" 1 "" {GLPLOT2D 165 73 73 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"! F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$RGBG$\"#Q!\"#$\"\"(!\"\"$\" #;F5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c2G-%'CO LOURG6&%$RGBG$\"#Q!\"#$\"\"(!\"\"$\"#;F+" }}{PARA 13 "" 1 "" {GLPLOT2D 168 72 72 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"!F)F(7$$\"\" \"F)F(7$F+F+7$F(F+-%'COLOURG6&%$RGBG$\"#Q!\"#$\"\"(!\"\"$\"#;F5-%*AXES STYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c3G-%&COLORG6&%$HS VG$\")5KaE!\")$\")dG9xF+$\"\"(!\"\"" }}{PARA 13 "" 1 "" {GLPLOT2D 175 66 66 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$ F(F+-%'COLOURG6&%$HSVG$\")5KaE!\")$\")dG9xF5$\"\"(!\"\"-%*AXESSTYLEG6# %%NONEG" 1 2 0 1 10 0 2 8 1 1 2 1.000000 45.000000 45.000000 0 0 "Curv e 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c4G-%&COLORG6&%$HLSG$\")5Ka E!\")$\")+++VF+$\"))p!ziF+" }}{PARA 13 "" 1 "" {GLPLOT2D 168 66 66 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-% 'COLOURG6&%$HSVG$\")5KaE!\")$\"+QdG9x!#5$\"+:+++qF8-%*AXESSTYLEG6#%%NO NEG" 1 2 0 1 10 0 2 8 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1 " }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 349 "c1 := red_brick;\nplots[pol ygonplot]([[0,0],[1,0],[1,1],[0,1]],color=c1,axes=none);\nc2 := conver t(c1,RGB);\nplots[polygonplot]([[0,0],[1,0],[1,1],[0,1]],color=c2,axes =none);\nc3 := convert(c2,HSV);\nplots[polygonplot]([[0,0],[1,0],[1,1] ,[0,1]],color=c3,axes=none);\nc4 := convert(c2,HLS);\nplots[polygonplo t]([[0,0],[1,0],[1,1],[0,1]],color=c4,axes=none);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c1G%*red_brickG" }}{PARA 13 "" 1 "" {GLPLOT2D 162 65 65 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$ F(F+-%'COLOURG6&%$RGBG$\"\")!\"\"$\"$'>!\"$F6-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c2G-%'COLOURG6&%$RGBG$\"\")!\"\"$\" $'>!\"$F," }}{PARA 13 "" 1 "" {GLPLOT2D 158 64 64 {PLOTDATA 2 "6%-%)PO LYGONSG6#7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$RGBG$\" \")!\"\"$\"$'>!\"$F6-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 6 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c3G-%&COLORG6&%$HSVG$\"\"!F*$\")++]v!\")$\"\")!\"\" " }}{PARA 13 "" 1 "" {GLPLOT2D 153 66 66 {PLOTDATA 2 "6%-%)POLYGONSG6# 7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$HSVGF($\")++]v!\" )$\"\")!\"\"-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 8 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %#c4G-%&COLORG6&%$HLSG$\"\"!F*$\")++!)\\!\")$\")qDkgF-" }}{PARA 13 "" 1 "" {GLPLOT2D 152 66 66 {PLOTDATA 2 "6%-%)POLYGONSG6#7&7$$\"\"!F)F(7$ $\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$HSVGF($\"+z****\\v!#5$\"+&)****** zF5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 8 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT 0 14 "lighten,darken" }{TEXT -1 11 ": examples " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "convert(g reen,HLS);\ndarken(green,draw);\ndarken(%,draw);\nlighten(%,draw);\nli ghten(%,.8,draw);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG $\")LLLL!\")$\")+++]F)$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 184 102 102 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+ 7$F(F+-%'COLOURG6&%$HSVG$\")LLLL!\")$\")+++5!\"(F6-F$6$7&F'F*7$F+$!\" \"F)7$F(F=-F06&F2F3$\")(*******F5$\")qmmmF5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")LLLL!\")$ \")MLLLF)$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 191 86 86 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-% 'COLOURG6&%$HSVG$\")LLLL!\")$\")(*******F5$\")qmmmF5-F$6$7&F'F*7$F+$! \"\"F)7$F(F>-F06&F2F3$\")+++5!\"($\")YWWWF5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")LLLL!\")$ \")BAAAF)$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 195 88 88 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-% 'COLOURG6&%$HSVG$\")LLLL!\")$\")+++5!\"($\")YWWWF5-F$6$7&F'F*7$F+$!\" \"F)7$F(F?-F06&F2F3F6$\")&H'H'*F5-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")LLLL!\")$\")[\"[ \"[F)$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 202 87 87 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6&%$ HSVG$\")LLLL!\")$\")+++5!\"($\")&H'H'*F5-F$6$7&F'F*7$F+$!\"\"F)7$F(F?- F06&F2F3$\")S2u?F5F6-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")LLLL!\")$\")I'H'*)F)$\")+++5!\" (" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "convert(coral,HLS);\nlighten(coral,draw);\nlighten(%, draw);\ndarken(%,draw);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6& %$HLSG$\")+++$)!\"*$\")+++]!\")$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 188 93 93 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\" \"F)F(7$F+F+7$F(F+-%'COLOURG6&%$HSVG$\")+++$)!\"*$\")+++5!\"(F6-F$6$7& F'F*7$F+$!\"\"F)7$F(F=-F06&F2F3$\")qmmm!\")F6-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Cur ve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")+++$)!\" *$\")nmmm!\")$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 191 88 88 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-% 'COLOURG6&%$HSVG$\")+++$)!\"*$\")qmmm!\")$\")+++5!\"(-F$6$7&F'F*7$F+$! \"\"F)7$F(F@-F06&F2F3$\")SWWWF8F9-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")+++$)!\"*$\")yxxx !\")$\")+++5!\"(" }}{PARA 13 "" 1 "" {GLPLOT2D 188 100 100 {PLOTDATA 2 "6%-%)POLYGONSG6$7&7$$\"\"!F)F(7$$\"\"\"F)F(7$F+F+7$F(F+-%'COLOURG6& %$HSVG$\")+++$)!\"*$\")SWWW!\")$\")+++5!\"(-F$6$7&F'F*7$F+$!\"\"F)7$F( F@-F06&F2F3$\")+jH'*F8F9-%*AXESSTYLEG6#%%NONEG" 1 2 0 1 10 0 2 9 1 1 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&COLORG6&%$HLSG$\")+++$)!\"*$\")_=&=&!\")$\")+++ 5!\"(" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "plot(x^2,x=-2..2,thickness=2,color=darken(magenta,.25 ));" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVES G6#7S7$$!\"#\"\"!$\"\"%F*7$$!3MLLL$Q6G\">!#<$\"3A!e4#)QZ)eOF07$$!3bmm; M!\\p$=F0$\"3'*[e7a'***!# =$\"3mq\"))\\%))R#***Fbo7$$!3E++++0\"*H\"*Fbo$\"3ND5!QdEbL)Fbo7$$!35++ ++83&H)Fbo$\"3yo4Oxt$3)oFbo7$$!3\\LLL3k(p`(Fbo$\"3[Bt(zL,1o&Fbo7$$!3An mmmj^NmFbo$\"3%37I_u2IS%Fbo7$$!3)zmmmYh=(eFbo$\"39$[s$3d(yW$Fbo7$$!3+, ++v#\\N)\\Fbo$\"3W.`jPjd$[#Fbo7$$!3commmCC(>%Fbo$\"3'*4!*RKWoh6\"Fbo7$$!3t*****\\#=/8DFbo$\"3CH$*>9#z` J'!#>7$$!3=mmm;a*el\"Fbo$\"38sw$4j*)>u#Fbr7$$!3komm;Wn(o)Fbr$\"37a/+x' ova(!#?7$$!3IqLLL$eV(>F]s$\"3gBHSG34)*Q!#B7$$\"3)Qjmm\"f`@')Fbr$\"3[xs Bc\")3LuF]s7$$\"3%z****\\nZ)H;Fbo$\"3)*)*GqVMScEFbr7$$\"3ckmm;$y*eCFbo $\"3SBo$=Oul/'Fbr7$$\"3f)******R^bJ$Fbo$\"3+&>/'3\")G*4\"Fbo7$$\"3'e** ***\\5a`TFbo$\"3q1NSD.>D$)Fbo$\"3 $*4F1'4l>#pFbo7$$\"3M*******pfa<*Fbo$\"3:3Cjqg!*=%)Fbo7$$\"39HLLeg`!)* *Fbo$\"3))y\"p6+56'**Fbo7$$\"3w****\\#G2A3\"F0$\"3EMgH-EF0$\"3?')3\"\\D2*fOF07$$ \"\"#F*F+-%'COLOURG6&%$HSVG$\")LLL$)!\")$\"+++++5!\"*$\"+++++v!#5-%*TH ICKNESSG6#Fiz-%+AXESLABELSG6$Q\"x6\"Q!F^\\l-%%VIEWG6$;F(Fhz%(DEFAULTG " 1 2 0 1 10 2 2 8 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }} }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "lighten([aquamarine,coral,cyan],.7);\nconvert(%,RGB);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7%-%&COLORG6&%$HLSG$\")U)p(Q!\")$\")++Z*)F*$ \")g!H)fF*-F%6&F'$\")+++$)!\"*$\")+++&)F*$\")+++5!\"(-F%6&F'$\")+++]F* F4F6" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7%-%&COLORG6&%$RGBG$\")++<$)! \")$\")++x&*F*$\")++G()F*-F%6&F'$\")+++5!\"($\")++%\\)F*$\"(+++(F3-F%6 &F'F6F1F1" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 ";" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }