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

MathGroup Archive 2007

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

Search the Archive

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



  • 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