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?