Re: Crinkled Hyperbola (ContourPlot in Manipulate)

*To*: mathgroup at smc.vnet.net*Subject*: [mg77857] Re: [mg77822] Crinkled Hyperbola (ContourPlot in Manipulate)*From*: Carl Woll <carlw at wolfram.com>*Date*: Mon, 18 Jun 2007 07:03:31 -0400 (EDT)*References*: <200706171018.GAA02522@smc.vnet.net>

Bruce Colletti wrote: >Re Mathematica 6.0 under WinXP. > >As the slider moves, a point glides along the hyperbola: > >Manipulate[ContourPlot[x^2-y^2==1,{x,-3,3},{y,-3,3},Epilog->{ >PointSize at 0.02,Point@{Cosh@h,Sinh@h}}], >{h,-1.5,1.5}] > >However, the moving point crinkles the plot, which restores itself when the mouse button is released. > >What causes the crinkling (this seems tied to ContourPlot, since no crinkling occurs when I use Plot[Sqrt[x^2-1],...])? > >Thankx. > >Bruce > > Use the option PerformanceGoal->"Quality" in ContourPlot: Manipulate[ ContourPlot[x^2 - y^2 == 1, {x, -3, 3}, {y, -3, 3}, Epilog -> {PointSize at 0.02, Point@{Cosh@h, Sinh@h}}, PerformanceGoal -> "Quality"], {h, -1.5, 1.5}] Carl Woll Wolfram Research

**References**:**Crinkled Hyperbola (ContourPlot in Manipulate)***From:*Bruce Colletti <vze269bv@verizon.net>