Re: Re: Thichness of Plot does not change Solved

*To*: mathgroup at smc.vnet.net*Subject*: [mg51084] Re: [mg51052] Re: Thichness of Plot does not change Solved*From*: "David Park" <djmp at earthlink.net>*Date*: Mon, 4 Oct 2004 06:17:45 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Actually, what is needed is an extra pair of {}. ImplicitPlot[{x^2 + y^2 == 4}, {x, -Pi, Pi}, PlotStyle -> {{AbsoluteThickness[2], CMYKColor[1, .6, 0, 0]}}]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Philippe [mailto:philippe.morel at ezct.net] To: mathgroup at smc.vnet.net Here is the trick: to get the internal structure of the graphic and to use replacement rules: if your plot is: myPlot=ImplicitPlot[{x^2 + y^2 == 4}, {x, -Pi, Pi}, PlotStyle -> {CMYKColor[1, .6, 0, 0]}] Then type: myPlotFromTheInside = FullForm[Graphics[myPlot]]; Then the replacement rule like this: myPlotFromTheInside /. {CMYKColor[a_, b_, c_, d_], Line[e_]} -> {CMYKColor[a, b, c, d], AbsoluteThickness[5], Line[e]}; Then: Show[Graphics[%]]; It works!!! Also usefull for any options that you can add this way to your plot Philippe On 27 Sep 04 14:21:31 -0400 (EDT), San wrote: >Hi, to all > >I am facing problem in changing Thickness of plots, plotted using >Standard packages. >I have tried with following statement. > ><<Graphics`ImplicitPlot`; >ImplicitPlot[{x^2 + y^2 == 4}, > {x,-Pi, Pi}, > PlotStyle -> {CMYKColor[1, .6, 0, 0], > AbsoluteThickness[2]}]; > >Now set AbsoluteThickness[...] to any value it does not affect the >graph. >I have also tried with Thickness[...] but the result was same. > >This problem is mainly with standard packages. Like >ImplicitPlot, FilledPlot, PolarPlot, InequalityPlot > >Does anyone has any clue to solve this problem. > >San