# Project a 3D surface plot onto x, y, and z planes?

Posted 2 months ago
465 Views
|
|
1 Total Likes
|
 Greetings  hope I've chosen a reasonable group for this question. I'm interested in how best to "collapse" (project) a 3D list surface plot in xyz onto each of the 3 cartesian planes. Take this example from the ListSurfacePlot3D examples: data = ExampleData[{"Geometry3D", "StanfordBunny"}, "VertexData"]; ListSurfacePlot3D[data, MaxPlotPoints -> 50] I'd like to create what I would call the shadows, or projections, of this 3D object onto each of the x, y, and z planes. I thought maybe (haha) I could zero out each of the coordinates in the data list (for example, {3,2,1} ? {3,2,0}) and redo ListSurfacePlot3D (no I wasn't really expecting this to work but I tried it anyway).So what is the best way to do this? Either there is a function I can call to do this after zeroing out one of the coordinates as I was thinking, or perhaps I need to express the 3D data for object/rabbit in a different way that will then be convenient for making the projections.
 You can zero out the points in the GraphicsComplex intead of the original data: data = ExampleData[{"Geometry3D", "StanfordBunny"}, "VertexData"]; bn = ListSurfacePlot3D[data, MaxPlotPoints -> 50] bn /. GraphicsComplex[pts_, other___] :> GraphicsComplex[pts /. {x_Real, y_, _} :> {x, y, 0}, other] Alternatively, you can use Scale: Graphics3D[Scale[bn[[1]], {1, 1, 0}]]