Re: fill circle while using circle command
- To: mathgroup at smc.vnet.net
- Subject: [mg74251] Re: fill circle while using circle command
- From: "dimitris" <dimmechan at yahoo.com>
- Date: Thu, 15 Mar 2007 19:07:15 -0500 (EST)
- References: <etb5pe$kfr$1@smc.vnet.net>
Why to use the Graphics command?
You can achieve what you want with simple graphics programming.
Before presenting the code, I will break it in its steps so that
you understand the procedure.
To this end Copy/Paste the following in a notebook (as a whole cell)
and execute the commands.
Print["here is your circle"]
g = ParametricPlot[{Cos[y], Sin[y]}, {
y, 0, 2*Pi}, Axes -> False, PlotStyle -> Thickness[0.01],
AspectRatio ->
1];
Print["look at the InputForm of g"]
Print["InputForm\[Implies] " InputForm[g]]
Print["the circle is constructed by connecting\nwith
Line the following points"]
Cases[g, {(x_)?NumberQ, (y_)?NumberQ}, Infinity]
Print["wrap the list of points to Polygon"]
Polygon@%%
Print["the resulting shape"]
Show[Graphics[%%], AspectRatio -> 1]
Note we have full access in this way.
Indeed see the output of the complete code, below:
Block[{$DisplayFunction = Identity}, g = ParametricPlot[{Cos[y],
Sin[y]}, {y, 0, 2*Pi}, Axes -> False,
PlotStyle -> Thickness[0.02]]];
Show[{g, g /. Line[x_] :> {GrayLevel[0.7], Polygon[x]}}, AspectRatio -
> 1];
Best Regards
Dimitris
=CF/=C7 Tony Harris =DD=E3=F1=E1=F8=E5:
> Hello,
>
> I sure would appreciate it if someone can tell me how to fill a circle
> while using the Graphics command, "circle".
>
> Here is what I used to generate a circle centered at (2,0) with a radius
> of 1.
> Show[Graphics[Circle[{2, 0}, 1]]];
>
>
>
> I tried many things that failed but it looks like it should be easy.
> Thanks to anyone who can assist.
>
>
>
> T Harris