1.0 1.0 1.0 point /color

{ /v /u /face color 0.6 0.6 200.0 } sphere
0.2 uscale 0.75 0.0 0.0 translate /s1

s1

{ /self /depth /n
  n 20.0 subf
  {
    n 20.0 subf depth 0.05 addf self self apply
    s1 n rotatez 0.0 0.0 depth translate
    union
  }
  { }
  if
} /spin

% Create cyan sphere wheel
2000.0 1.0 spin spin apply

% Create scene to render
/scene

% Define directional light source
0.0 0.0 2.0 point
0.1 1.0 0.1 point pointlight /l1
0.0 0.0 1.0 point
0.1 0.1 1.0 point pointlight /l2

%*****************
% RENDER!!
%******      
0.4 0.4 0.4 point % ambient light
[ l1 l2 ]            % light source array
scene             % scene to render
0                 % tracing depth
80.0              % field of view
1024 768          % image width and height
"pointlight2.ppm"     % output file
render