Bikonvexe optische Linse

 //-------------------------- Linse --------  
 #declare R   = 6.0;   //Kugel-Radius
 #declare Over= 0.1;   //Kugel-Überlappung
 intersection{
  sphere{<0,0,0>,R  translate <0,0,-R+Over>}
  sphere{<0,0,0>,R  translate <0,0, R-Over>}
  texture{ T_Glass3 }
  interior{ I_Glass }
  translate < 0,1.2,0>}
 //---------------------------------- end --  

Zu den übrigen Objekten im obigen Bild,
siehe zugehörige Szenenbeschreibung für POV-Ray:
"povlens.txt" oder "povlens.pov"

Hier noch ein anderes Beispiel einer Linse:

Zu den übrigen Objekten in diesem Bild,
siehe zugehörige Szenenbeschreibung für POV-Ray:
"povlens2.txt" oder "povlens2.pov"