Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.

Topic: Inset BezierCurve
Replies: 1   Last Post: Sep 21, 2012 4:20 AM

 Messages: [ Previous | Next ]
 Dan O'Brien Posts: 10 Registered: 4/10/10
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]

Date Subject Author
9/19/12 Dan O'Brien
9/21/12 Alexander Elkins