Re: Re: Thichness of Plot does not change Solved

*To*: mathgroup at smc.vnet.net*Subject*: [mg51094] Re: [mg51052] Re: Thichness of Plot does not change Solved*From*: DrBob <drbob at bigfoot.com>*Date*: Mon, 4 Oct 2004 06:18:12 -0400 (EDT)*References*: <30vizpbpwizo@legacy> <200410030947.FAA10646@smc.vnet.net>*Reply-to*: drbob at bigfoot.com*Sender*: owner-wri-mathgroup at wolfram.com

Here's the same basic idea: Needs["Graphics`"] Show@Block[{$DisplayFunction = Identity}, Graphics[ImplicitPlot[{x^2 + y^2 == 4}, {x, -Pi, Pi}] /. { e_Line} -> {Blue, AbsoluteThickness[5], e}] ] Bobby On Sun, 3 Oct 2004 05:47:18 -0400 (EDT), Philippe <philippe.morel at ezct.net> wrote: > 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 > > > > -- DrBob at bigfoot.com www.eclecticdreams.net

**References**:**Re: Thichness of Plot does not change Solved***From:*philippe.morel@ezct.net (Philippe)