Re: Thichness of Plot does not change Solved
- To: mathgroup at smc.vnet.net
- Subject: [mg51191] Re: Thichness of Plot does not change Solved
- From: gupta_san41 at hotmail.com (San)
- Date: Thu, 7 Oct 2004 05:26:29 -0400 (EDT)
- References: <30vizpbpwizo@legacy>, <unb9do1uctmn@legacy>
- Sender: owner-wri-mathgroup at wolfram.com
Thanks Philippe
I had tried your trick with the following statements-
=======================================================
ln[1]:= Clear[minX, maxX, minY, maxY, G1];
minX = -5; maxX = 5; minY = -5; maxY = 5;
G1 = ImplicitPlot[{x^2 + y^2 == 3},
{x, -Pi, Pi},
PlotStyle -> {CMYKColor[1, .6, 0, 0]},
PlotPoints -> 50,
DisplayFunction -> Identity];
FF = FullForm[Graphics[G1]];
FF /. {CMYKColor[a_, b_, c_, d_], Line[e_]} ->
{CMYKColor[a, b, c, d],
Thickness[0.007], Line[e]};
Show[Graphics[%]];
=======================================================
But it displays as error -
=======================================================
Graphics::gprim:
Graphics[List[List[List[],List[List[\[LeftSkeleton]1
\[RightSkeleton],List[\[LeftSkeleton]1
\[RightSkeleton]]]],List[]]],List[\[LeftSkeleton]1
\[RightSkeleton],\[LeftSkeleton]26\[RightSkeleton]]]
was encountered where a Graphics primitive or
directive was expected.
=======================================================
What i am doing wrong?
I am using mathematika 4.1.
Please help me i am very new to Mathemtika. I will really appreciate
it.
San