Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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]
>
>
>
>





  • Prev by Date: Re: Kernel exits (for lack of memory)
  • Next by Date: List & Plot: do they parse options differently?
  • Previous by thread: Inset BezierCurve
  • Next by thread: creating a graphic in a text cell