RE: Waterfall Plot Plea for Help
- To: mathgroup at smc.vnet.net
- Subject: [mg38927] RE: [mg38921] Waterfall Plot Plea for Help
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 20 Jan 2003 00:45:14 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Bruce, Picking up from Allan Hayes suggestion... http://forums.wolfram.com/mathgroup/archive/1998/May/msg00424.html ...you could do something like this. First we extract the graphics primitives for a surface without displaying it. surface = First[ParametricPlot3D[{x, y, Cos[x]}, {x, 0, \[Pi]/2}, {y, 0, \[Pi]/2}, DisplayFunction -> Identity]]; Then we display the surface with a blank EdgeForm to get rid of the polygon edges and then extract the Polygons from the surface and draw the lines from two of the sides. Show[Graphics3D[ {EdgeForm[], surface, surface /. Polygon[{a_, b_, c_, d_}] :> {Line[{a, b}], Line[{c, d}]}}], ImageSize -> 450]; With the DrawGraphics package from my web site, we could do this in one statement and add a watery color to the surface. Needs["DrawGraphics`DrawingMaster`"] Draw3DItems[ {SurfaceColor[ColorMix[LightSkyBlue, PaleGreen][0.3]], EdgeForm[], surface = ParametricDraw3D[{x, y, Cos[x]}, {x, 0, \[Pi]/2}, {y, 0, \[Pi]/2}], surface /. Polygon[{a_, b_, c_, d_}] :> {White, Line[{a, b}], Line[{c, d}]}}, NeutralLighting[0.3, 0.7, 0.0, -30°], Background -> Linen, ImageSize -> 450]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Bruce Detterich [mailto:bruce.detterich at ieee.org] To: mathgroup at smc.vnet.net Searches of past discussion yielded a couple of threads on the topic of waterfall plots a couple of years ago, but nothing too helpful. I'm just looking for hints as to which fundamental plot command to start from.