Bug associated with Graphics3D???

*To*: mathgroup at smc.vnet.net*Subject*: [mg105210] Bug associated with Graphics3D???*From*: Louis Talman <talmanl at gmail.com>*Date*: Tue, 24 Nov 2009 05:50:25 -0500 (EST)*Reply-to*: "Louis Talman A." <talmanl at mscd.edu>

Can anyone explain why the disk that corresponds to x = 5.1 (see the last line of the code below) isn't red---like the others? ------------------------- Rho[Psi_] = 2/(1 - Cos[Psi]); Para = ParametricPlot3D[ Rho[Psi] {Cos[Psi], Sin[Psi] Cos[Theta], Sin[Psi] Sin[Theta]}, {Psi, Pi/3, Pi}, {Theta, 0, 2 Pi}, PlotStyle -> {Specularity[0.9], Opacity[0.3]}, Mesh -> None, Axes -> None, PlotRange -> {{-1.3, 6.7}, {-3.5, 3.5}, {-3.5, 3.5}}]; Focus = Graphics3D[{PointSize[0.015], Point[{0, 0, 0}]}]; Bloid = Show[Para, Focus]; Pla[x_] := ParametricPlot3D[ x Sec[Psi] { Cos[Psi], Sin[Psi] Cos[Theta], Sin[Psi] Sin[Theta]}, {Theta, 0, 2 Pi}, {Psi, 0, ArcTan[(2 Sqrt[3])/x]}, Mesh -> None, Axes -> None, PlotStyle -> {Red, Opacity[0.6]}]; Do[Print[Show[Bloid, Pla[x]]], {x, 4.8, 5.4, 0.1}]; --------------------------- It also happens when x = 3.5, but for no other values of x generated by {x, 3.0, 6.5, 0.1}. --Lou Talman Department of Mathematical and Computer Sciences Metropolitan State College of Denver <http://clem.mscd.edu/%7Etalmanl>

**Follow-Ups**:**Re: Re: Bug associated with Graphics3D???***From:*Syd Geraghty <sydgeraghty@me.com>

**Re: Bug associated with Graphics3D???***From:*Syd Geraghty <sydgeraghty@me.com>