Best way to draw a raster image onto a curved surface
- To: mathgroup at smc.vnet.net
- Subject: [mg82044] Best way to draw a raster image onto a curved surface
- From: "Andrew Moylan" <andrew.j.moylan at gmail.com>
- Date: Wed, 10 Oct 2007 04:28:36 -0400 (EDT)
Here is one way to draw a raster image onto a curved surface: (* get raster data *) dat = ExampleData[{"TestImage", "Lena"}, "Data"]/255.; (* interpolate RGB values *) rgbinterps = ListInterpolation[#, {{0, 1}, {0, 1}}, InterpolationOrder -> 1] & /@ Transpose[dat, {2, 3, 1}]; ParametricPlot3D[{Sin[x] Cos[y], Sin[x] Sin[y], Cos[x]}, {x, 1, 2}, {y, 4, 5}, ColorFunction -> (RGBColor @@ Through[rgbinterps[#4, #5]] &), PlotPoints -> 75, Mesh -> None] Is there a superior way?