http://www.sfu.ca/~pkarimia/courses/cmpt770graphics/lab4/
http://www.sfu.ca/~pkarimia/courses/cmpt770graphics/lab4/caustic-simple.pbrt
change -> "mycausticphotonmap" to "photonmap"
if you want the glass to be tinted you can add the following line
under Material "glass" which changes the transmissive property of the
a material (this makes green glass):
add -> "color Kt" [0.7 1 0.7 ]
If you want a "softer" or more organic material you may need
subsurface scattering. This is not a simple addition to pbrt but some
people have done it:
http://www.pbrt.org/gallery.php
Specifically this shows a nice jade dragon
http://www.pbrt.org/gallery/01F12.jpg
Kevin
a quick search also turned up this gpl renderer that supposedly has a
subsurface photon mapping solution:
http://www.artofillusion.org/
http://www.artofillusion.org/artgallery
Kevin