You will want something like that:

#version unofficial megapov 0.7

#include "colors.inc"
#include "glass.inc"

global_settings{ 
        max_trace_level 100
        adc_bailout 1/32
        photons{
                count 20000
                autostop 0
                jitter .4
        }
}

camera{
        location <0,10,-10>
        look_at <0,2,0>
        angle 30
}

light_source{<10,100,0>
        color White
        spotlight
        radius 2
        falloff 2.1
        point_at <0,2,0>

        // or use the following for a cylindrical light, but gets somehow too 
bright
        /*cylinder
        radius 10
        falloff 15
        point_at <0,2,0>*/
}

plane{y,0
        pigment{Red}}

// this is acutally not a realistical lens but just a scaled sphere
// - you will probably want to use an intersection between two spheres

sphere{<0,0,0>,1
        scale <1,0.05,1>
        rotate z*-40
        translate <0,2,0>
        texture{T_Glass3}
        interior{I_Glass}
        photons{
                          target                                
                          reflection off
                                refraction on
                          ignore_photons
                          }   

}

// EOF

Note that it *requires* the unofficial version 'MegaPOV'. I guess you 
already got it but in case you do not go to 
http://nathan.kopp.com/patched.htm

- Micha

Post a reply to this message