Re: Inset BezierCurve
- To: mathgroup at smc.vnet.net
- Subject: [mg128177] Re: Inset BezierCurve
- From: "Alexander Elkins" <alexander_elkins at hotmail.com>
- Date: Fri, 21 Sep 2012 04:14:05 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <k3c1ag$etp$1@smc.vnet.net>
The problem appears to be that if the VertexColors option is used anywhere
in the graphics, as both ContourPlot and DensityPlot do, then bezier curves
are not drawn. For a simple example, without any VertexColors both the Line
and the BezierCurve is drawn:
Graphics[{Thick, BezierCurve[{{-.3, -1}, {.2, -.5}, {-.8, .5}, {-.3, 1}}],
Line[{{0, -1}, {0, 1}}],
Polygon[{{2, -2}, {6, -2}, {4, Sqrt[3]}}/4, VertexColors -> {}]}]
With some VertexColors only the Line drawn:
Graphics[{Thick, BezierCurve[{{-.3, -1}, {.2, -.5}, {-.8, .5}, {-.3, 1}}],
Line[{{0, -1}, {0, 1}}],
Polygon[{{2, -2}, {6, -2}, {4, Sqrt[3]}}/4,
VertexColors -> {Red, Green, Blue}]}]
Hope this helps...
"Dan O'Brien" <danobrie at gmail.com> wrote in message
news:k3c1ag$etp$1 at smc.vnet.net...
> Can others verify that the second plot below produces *straight lines
> *instead of BezierCurves in the the Epilog? Bug?
>
> In[326]:= $Version
>
> Out[326]= "8.0 for Microsoft Windows (64-bit) (October 7, 2011)"
>
> bezcurves =
> Graphics[{{White, Rectangle[{-.4, -.3}, {.4, .3}]}, {Black,
> AbsoluteThickness[1.5],
> BezierCurve[{{-.3, -1}, {.2, -.5}, {-.8, .5}, {-.3, 1}}],
> BezierCurve[{{.3, -1}, {.8, -.5}, {-.2, .5}, {0.3, 1}}]}}];
> contplot = ContourPlot[y, {x, 0, 1}, {y, 0, 1}];
> densplot = DensityPlot[y, {x, 0, 1}, {y, 0, 1}];
>
> Plot[Sin[x], {x, 0, 30},
> Epilog -> {Inset[contplot, Scaled[{.94, .60}], Automatic,
> Scaled[.2]],
> Inset[bezcurves, Scaled at {.2, 0}, Automatic, Scaled at 0.1]},
> Frame -> True, PlotRangeClipping -> False]
>
> Plot[Sin[x], {x, 0, 30},
> Epilog -> {Inset[densplot, Scaled[{.94, .60}], Automatic,
> Scaled[.2]],
> Inset[bezcurves, Scaled at {.2, 0}, Automatic, Scaled at 0.1]},
> Frame -> True, PlotRangeClipping -> False]
>
>
>
>