MathGroup Archive 1999

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

Search the Archive

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]




  • Prev by Date: Re: Dealing with submatrices
  • Next by Date: Pipes within Mathematica?
  • Previous by thread: Folding lists
  • Next by thread: Re: LiveGraphics3D: missing geometry