Re: Building lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg22347] Re: [mg22312] Building lists*From*: Hugh <hugh at his.com>*Date*: Fri, 25 Feb 2000 21:13:43 -0500 (EST)*References*: <200002240801.DAA26096@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

My first inclination would be something like this: colors = {Blue, Red, Purple, Plum, Gold, Olive, Pink, Navy, Mint, Black}; Show[Graphics[Table[{colors[[i]], Disk[{0, 0}, 220 - 20 i]}, {i, 1, 10}]], AspectRatio -> Automatic, PlotRange -> All]; and if you didn't care about the colors, something like this: Graphics[Table[{RGBColor[1 - i/10, i/10, 1 - i/20], Disk[{0, 0}, 220 - 20 i]}, {i, 1, 10}]], AspectRatio -> Automatic, PlotRange -> All]; Ooo... pretty. :-) Hugh Philipp. Tom De Vries wrote: > > Hello, > > The graphics command below builds a simple bull's eye. (I used it for a > probability question in my math class) It does what I want it to, but with > all the repetition I know that it is probably possible to do it more simply. > It isn't so long but I figured I could learn something by seeing how this > command could be duplicated in different ways. I was looking at Thread but > couldn't quite manage to get things to work out. The specific colors > aren't really important, but I did want to get each disk to be a different > color. > > Thanks for any suggestions you might have. > > Sincerely, > > Tom De Vries > > Needs["Graphics`Colors`"] > > Show[Graphics[{ > > {Blue, Disk[{0, 0}, 200]}, > {Red, Disk[{0, 0}, 180]}, > {Purple, Disk[{0, 0}, 160]}, > {Plum, Disk[{0, 0}, 140]}, > {Gold, Disk[{0, 0}, 120]}, > {Olive, Disk[{0, 0}, 100]}, > {Pink, Disk[{0, 0}, 80]}, > {Navy, Disk[{0, 0}, 60]}, > {Mint, Disk[{0, 0}, 40]}, > {Black, Disk[{0, 0}, 20]} > > }], AspectRatio -> Automatic, PlotRange -> All, > DefaultFont -> {"Times", 18}]; -- Hugh Philipp http://www.his.com/~hugh

**References**:**Building lists***From:*"Tom De Vries" <tdevries@shop.westworld.ca>