MathGroup Archive 2000

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

Search the Archive

Re: Building Lists


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




  • Prev by Date: Re: Saving as HTML -- Page width problems
  • Next by Date: linux question
  • Previous by thread: Re: Building lists
  • Next by thread: Re: Building lists