Re: Building Lists
- To: mathgroup at smc.vnet.net
- Subject: [mg22365] Re: Building Lists
- From: Jacqueline Zizi <jazi at club-internet.fr>
- Date: Fri, 25 Feb 2000 21:14:25 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Tom,
You have one constant (centre (0,0)) and 2 parameters: list of colors and
thickness.
eye [list__, thickness_] :=
Show[Graphics[MapThread[List, {list, Map [Disk[{0, 0}, #] &, thickness]}],
AspectRatio -> Automatic]];
Instances:
eye [{Blue, Red, Purple, Plum, Gold, Olive, Pink, Navy, Mint, Black},
{200, 180, 160, 140, 120, 100, 80, 60, 40, 20}]
eye [{Blue, Red, Purple, Plum, Gold, Olive, Pink, Navy, Mint, Black},
{200, 180, 160, 140, 110, 100, 90, 80, 30, 20}]
I hope this helps
Jacqueline Zizi