#macro Glass_01( G_R, // radius of glass
                 G_H, // height of glass
               ) //------------------------

difference{
 cylinder{<0,      0,0>,<0,G_H   ,0>,G_R }
 cylinder{<0,G_R*.05,0>,<0,G_H+.1,0>,G_R*.9}
} // end of difference


#end // end of macro
//-----------------------------------------
//-----------------------------------------


global_settings{max_trace_level 10}
//-----------------------------------------
union{

 object{ Glass_01( 1, // radius of glass
                   3, // height of glass
                ) //-----------------------
        material{
         texture{
          pigment{ rgbf<.98,.98,.98,0.85>*1}
          finish { ambient 0.0
                   diffuse 0.15
                   reflection 0.2
                   specular 0.6
                   roughness 0.005
                  // phong 1
                  // phong_size 400
                   reflection { 0.03, 1.0 fresnel on }
                //   conserve_energy
                 }
          } // end of texture

          interior{ ior 1.5
                    fade_power 1001
                    fade_distance 0.5
                    fade_color <0.8,0.8,0.8>
                  } // end of interior


        } // end of material
  } // end glass

// water
intersection{
 cylinder{<0,0,0>,<0,0.30*0.75,0>,0.14
        material{
         texture{
          pigment{ rgbf<.93,.95,.98,0.9>*0.95}
          normal { ripples 1.35 scale 0.0125 turbulence 0.3 translate<-0.05,0,0> rotate<0,-20,0>}
          finish { ambient 0.0
                   diffuse 0.15
                   reflection 0.2
                   specular 0.6
                   roughness 0.005
                  // phong 1
                  // phong_size 400
                   reflection { 0.2, 1.0 fresnel on }
                   conserve_energy
                 }
           } // end of texture

          interior{ ior 1.33
                    fade_power 1001
                    fade_distance 0.5
                    fade_color <0.8,0.8,0.8>
                } // end of interior
        } // end of material
   } //

 cylinder{<0,0.14*0.051,0>,<0,1,0>,0.54*0.90 *0.999 //<0,0.14*0.051,0>,<0,1,0>,0.14*0.90 *0.999
        material{
         texture{
          pigment{ rgbf<.93,.95,.98,0.825>*0.99}
         //  normal { ripples 0.5 scale 0.025 turbulence 0.1 translate<-0.05,0,0> rotate<0,-20,0>}
          finish { ambient 0.0
                   diffuse 0.15
                   reflection 0.2
                   specular 0.6
                   roughness 0.005
                  // phong 1
                  // phong_size 400
                   reflection { 0.17, 1.0 fresnel on }
                   conserve_energy
                 }
           } // end of texture

          interior{ ior 1.33
                    fade_power 1001
                    fade_distance 0.5
                    fade_color <0.8,0.8,0.8>
                } // end of interior
        } // end of material
         } //
 }// end water
  translate< -5,0,-3 >
} //------------------------------------------------------