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.

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

```

• Prev by Date: Re: fill circle while using circle command 2
• Next by Date: Re: Multiple regressions
• Previous by thread: Re: fill circle while using circle command
• Next by thread: HTML Problem with piecewise defined functions