Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Overlaid parametric plots are too faint

• To: mathgroup at smc.vnet.net
• Subject: [mg123682] Re: Overlaid parametric plots are too faint
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 15 Dec 2011 04:55:49 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201112141100.GAA10153@smc.vnet.net>

Graphics[{
  EdgeForm[{Black, Thin}],
  Table[{
    Hue[k/12],
    Disk[{0, 0}, 1, (30 k + {-15, +15}) Degree]},
   {k, 0, 11}]},
 Frame -> True]


Bob Hanlon

On Wed, Dec 14, 2011 at 6:00 AM, Chris Young <cy56 at comcast.net> wrote:
> I'm trying to get a fast, sharp plot of a disk divided into color
> sectors, to be used to illustrate complex mappings. Based on some
> experimenting, it seems to me that doing lots of parametric plots is
> sharper and faster than using mesh functions and color functions. The
> only problem is, each time the whole disk seems to get overlaid onto
> the plots that are already there, causing the sectors to get very faint.
>
> Here's a brightly colored single sector:
>
> Show[
>  Table[
>  ParametricPlot[
>   {
>    Through[{Re, Im}[u Exp[(- 15 =B0 + 30 =B0 v ) I]]]
>    },
>   {u, 0, 1}, {v, 0, 1},
>
>   Mesh -> None,
>   BoundaryStyle -> None,
>   PlotStyle -> Red
>   ],
>  {k, 0, 11}
>  ],
>  PlotRange -> 1.1
>  ]
>
>
> And here's how they fade out when they're overlaid:
>
> Show[
>  Table[
>  ParametricPlot[
>   {
>    Through[{Re, Im}[u Exp[(- 15 \[Degree] + (k + v) 30 \[Degree]) I]]=
]
>    },
>   {u, 0, 1}, {v, 0, 1},
>
>   Mesh -> None,
>   MeshStyle -> None,
>   BoundaryStyle -> None,
>   MeshShading -> None,
>   PlotStyle -> Hue[k/12, 1, 1]
>   ],
>  {k, 0, 11}
>  ],
>  PlotRange -> 1.1
>  ]

• References:
  • Overlaid parametric plots are too faint
    • From: Chris Young <cy56@comcast.net>