More accuracy in Disk
- To: mathgroup at smc.vnet.net
- Subject: [mg33796] More accuracy in Disk
- From: Lorenzo Pesce <fish at chem.northwestern.edu>
- Date: Tue, 16 Apr 2002 03:51:26 -0400 (EDT)
- Organization: Northwestern University, Evanston, IL, US
- Sender: owner-wri-mathgroup at wolfram.com
Hi to all, I am trying to plot a series of disks but I do not manage to make mathematica plot my disks with higher accuracy (some of the small ones look really bad). How can I alter the number of points in a graphic of this sort to have more precise disks? TableDisk = Table[Disk[{Random[Real, {-200, 200}], Random[Real, {-200, 200}]}, RandomNormal[10, 1]], {n, 40}]; Show[ Graphics[ TableDisk], Frame -> True, AspectRatio -> 1, PlotRange -> {{-200, +200}, {-200, +200}}, PlotRegion -> {{0, 1}, {0, 1}}, ImageSize -> {500, 500} ] Thanks a lot, Lorenzo