MathGroup Archive 2012

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

Search the Archive

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]






  • Prev by Date: Re: How to solve the integrate problem
  • Next by Date: Re: Linear combinations of Expectation of EmpiricalDistribution
  • Previous by thread: Re: Kernel exits (for lack of memory)
  • Next by thread: Re: Inset BezierCurve