Re: fill circle while using circle command 2

*To*: mathgroup at smc.vnet.net*Subject*: [mg74259] Re: fill circle while using circle command 2*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Thu, 15 Mar 2007 19:11:36 -0500 (EST)*References*: <etb5pe$kfr$1@smc.vnet.net>

Of course you can avoid the graphics programming! But I think it can have much fun! Needs["Graphics`Colors`"] Block[{$DisplayFunction = Identity}, g = ParametricPlot[{Cos[y], Sin[y]}, {y, 0, 2*Pi}, Axes -> False]]; fil[opts___] := Show[{g, Graphics[g /. Line[x_] :> {opts, Polygon[x]}]}, AspectRatio -> 1] fil[]; fil[Red]; fil[Blue]; And fil[Hue[#/13]] & /@ Range[1, 10, 0.5]; SelectionMove[EvaluationNotebook[], All, GeneratedCell];; FrontEndTokenExecute["CellGroup"] FrontEndTokenExecute["OpenCloseGroup"] Double click above the graphic to get an animation! Anyway as David Park showed me you can use something more easy to understand! Needs["Graphics`Colors`"] circlepoints = Table[{Cos[y], Sin[y]} // N, {y, 0, 2 Pi, 2Pi/100}]; Show[Graphics[ {LightCoral, Polygon[circlepoints], Black, AbsoluteThickness[2], Line[circlepoints]}], AspectRatio -> Automatic]; 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