Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #1252
| From | finkh <howardfink@gmail.com> |
|---|---|
| Newsgroups | comp.soft-sys.math.mathematica |
| Subject | Re: Coordinates from Graphics3D images |
| Date | 2011-03-30 09:10 +0000 |
| Organization | Steven M. Christensen and Associates, Inc and MathTensor, Inc. |
| Message-ID | <imus25$hus$1@smc.vnet.net> (permalink) |
| References | <im23cf$1s4$1@smc.vnet.net> |
I would like to extract the surface and the accompanying texture from
moon = SphericalPlot3D[1, {u, 0, Pi}, {v, 0, 2 Pi}, Mesh -> None,
TextureCoordinateFunction -> ({#5, 1 - #4} &),
PlotStyle ->
Directive[Specularity[White, 10],
Texture[Import[
"http://finkh.files.wordpress.com/2011/03/ldem_4.png"]]],
Lighting -> {"Ambient", White}, Axes -> False, Boxed -> False,
RotationAction -> "Clip"]
This is a map of the moon with elevation data represented by a
grayscale texture taken from the Planetary Data System. When I
extract the polygons from the object the texture does not travel with
the polygons. How would I select a portion of the sphere while
preserving the shape and the texture.
Then reorient so the center of the selection is up, convert to
cartesian, listplot3d and export as stl for the rapid prototyper.
Here is what I am doing: http://finkh.wordpress.com/2011/02/01/the-south-pole-of-the-moon-shackleton-crater/
Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread
Re: Coordinates from Graphics3D images finkh <howardfink@gmail.com> - 2011-03-30 09:10 +0000
csiph-web