/* Makes glasses with/without media and dispersion  */

#declare MdyaGlas = material { texture { pigment { rgbt 1 }
                                                         finish { ambient 0 diffuse 0
                                                                    reflection { AReflmin,AReflmax falloff AReflfal }
                                                                 }
                                                                         }
                                            interior { ior Index
                                                         #if(GlCrom = yes)
                                                               dispersion 1 + 1/Abbe dispersion_samples DispSmps
                                                         #end
                                                         #if(GlMdya = yes)
                                                               media { scattering {1,color rgb MdyCol extinction 0 }
                                                                          method 3 intervals MdyInt samples MdySmp }
                                                         #end
                                                       }
                                            }