       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, CMYKColor[1, .6, 0, 0]}}];

David Park

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, 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}];
>
>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

```

• Prev by Date: Re: Derivatives of user-defined control-flow functions
• Next by Date: Re: Derivatives of user-defined control-flow functions
• Previous by thread: Re: Re: Thichness of Plot does not change Solved
• Next by thread: Re: Thichness of Plot does not change Solved