Inset BezierCurve
- To: mathgroup at smc.vnet.net
- Subject: [mg128144] Inset BezierCurve
- From: Dan O'Brien <danobrie at gmail.com>
- Date: Wed, 19 Sep 2012 04:54:58 -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
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@{.2, 0}, Automatic, Scaled@0.1]},
Frame -> True, PlotRangeClipping -> False]
Plot[Sin[x], {x, 0, 30},
Epilog -> {Inset[densplot, Scaled[{.94, .60}], Automatic,
Scaled[.2]],
Inset[bezcurves, Scaled@{.2, 0}, Automatic, Scaled@0.1]},
Frame -> True, PlotRangeClipping -> False]