Creating a really simple Biconvex-like Lens in POVRay

Posted in Software

I created a macro that will generate a really simple Biconvex lens. The macro take in three arguments, Location, Radius and Overlap. It works by taking the intersection of two spheres. The resulting object is then translated to wherever you want it to go in your scene.

#macro Make_BiconvexLens(Location, Radius, Overlap)
    intersection {
        sphere { <0,0,0>, Radius translate <0,0, -R/Overlap>}
        sphere { <0,0,0>, Radius translate <0,0, R/Overlap>}
        texture { T_Glass3 }
        interior { I_Glass }
        photons { reflection on refraction on }
        translate Location
    }
#end