Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Oblique light' topicStudent Support Forum > General > "Oblique light"

Next Comment >Help | Reply To Topic
Author Comment/Response
Matthias
06/04/13 07:27am

Hello,

i want to lighten an 3d structure with oblique light.

The structure consists of grooves and i want to use the light to show the grooves in paralell stripes in gray scales.

How can i install the light source? It should be no spot but more a paralell shining lightsource from an angle at abou 20.

I hope i made the problem clear.

Here is how it looks at the moment. In the End it should look more like a barcode.

Thanks for your help,

Matthias

MaxZwerteExtr = {{0, 1, 0}, {0, 2, 0}, {1, 1, -1}, {1, 2, -1}, {2,
1, -1}, {2, 2, -1}, {3, 1, -1}, {3, 2, -1}, {4, 1, -0.5`}, {4,
2, -0.5`}, {5, 1, 0}, {5, 2, 0}, {6, 1, -1}, {6, 2, -1}, {7,
1, -1}, {7, 2, -1}, {8, 1, -1}, {8, 2, -1}, {9, 1, -1}, {9,
2, -1}, {10, 1, 0}, {10, 2, 0}, {11, 1, -1}, {11, 2, -1}, {12,
1, -0.75`}, {12, 2, -0.75`}, {13, 1, -0.5`}, {13, 2, -0.5`}, {14,
1, -0.25`}, {14, 2, -0.25`}, {15, 1, 0}, {15, 2, 0}, {16,
1, -0.25`}, {16, 2, -0.25`}, {17, 1, -0.5`}, {17, 2, -0.5`}, {18,
1, -0.75`}, {18, 2, -0.75`}, {19, 1, -1}, {19, 2, -1}, {20, 1,
0}, {20, 2, 0}};

ZwerteExtrPlot[p_] :=
ListPlot3D[p, Mesh -> 11, ViewPoint -> {0, 1, 100},
ImageSize -> Large, InterpolationOrder -> 1,
AxesLabel -> {Y, "", Z}, LabelStyle -> Directive[Blue, Medium],
AspectRatio -> 1]
ZwerteExtrPlot[MaxZwerteExtr]

URL: ,

Subject (listing for 'Oblique light')
Author Date Posted
Oblique light Matthias 06/04/13 07:27am
Re: Oblique light Bill Simpson 06/05/13 11:09am
Re: Re: Oblique light Matthias 06/08/13 09:42am
Re: Oblique light Matthias 06/08/13 09:46am
Next Comment >Help | Reply To Topic