3. Tour of Component Functions

3.7.6 Light through a Glass Ball

We now use BallLens in an example.

ballsys = DrawSystem[{
	LineOfRays[95,NumberOfRays->10],
	Move[BallLens[100, SurfaceRendering -> {Empty,Fill,Fill,Fill}, GraphicDesign->Solid],50],
	Boundary[{-100,-50,-100},{200,50,100}]}, Boxed->False];

Here we see the intersection points on the first lens surface.

ShowSystem[%,PlotType->Surface, RayChoice->{IntersectionNumber -> 1}];