Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Derivatives of user-defined control-flow functions
  • Next by Date: Re: How to explain functions' linearity to Mathematica 5 ?
  • Previous by thread: Re: Thichness of Plot does not change Solved
  • Next by thread: Re: Re: Thichness of Plot does not change Solved