|
|
Inset BezierCurve
Posted:
Sep 19, 2012 4:55 AM
|
|
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]
|
|
