LiveGraphics3D: missing geometry
- To: mathgroup at smc.vnet.net
- Subject: [mg18142] LiveGraphics3D: missing geometry
- From: Clara <cnoemia at ccg.uc.pt>
- Date: Fri, 18 Jun 1999 00:51:44 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Hi all! I am doing a scholar work in mathematica 2.0 and I use the applet LiveGraphics3D to display my graphics in an web browser. My problem is the applet do not show the graphic properly (some geometry is missing). Do you know about this problem? Have you any solution for it? Thanks in advance for any help. The code I am using is the following: Needs["Graphics`ContourPlot3D`"] f[x_,y_,z_]= x+y-3z-4; g[x_,y_,z_]= x^2+y^2-z^2; g1=ContourPlot3D[f[x,y,z],{x,-4,3},{y,-4,3},{z,-4,3}, PlotPoints->2, Boxed->False,DisplayFunction->Identity]; g2=ContourPlot3D[g[x,y,z],{x,-3,3},{y,-3,3},{z,-3,3}, PlotPoints->5, Boxed->False,SphericalRegion->False, FaceGrids->None,DisplayFunction-> Identity]; g3= Show[g1,Graphics3D[{FaceForm[ SurfaceColor[RGBColor[0.502,1.000,1.000]]], Cases[g2,_Polygon,Infinity]}],DisplayFunction->$DisplayFunction] NumberForm[InputForm[Graphics3D[SurfaceGraphics[g3]]],5]