//¤@­Óclip½d¨Ò
//==========================================================
//      outside surface

surf {
        diff 0 .5 1
        shine 20 white
}
cone { apex -2.5 0 2 apex_radius 0
       base -2.5 0 0 base_radius 1
        clip { apex  -2 -2 1
               base  -2  2 1
               radius .5
               outside }
}

//      inside surface

surf {
        diff red
        shine 20 white
}



cone { apex  -2 -2 1
       base  -2  2 1
       radius .5
        clip {    apex -2.5 0 2 apex_radius 0
                  base -2.5 0 0 base_radius 1
               inside }
}

surf {
        diff 0 .5 1
        shine 20 white
}

sphere {
       center 2.5 0 1
       radius 1
       clip {
              center 2.5 0 1
              normal 0 0 -1
              outside }
       }

surf {
        diff red
        shine 20 white
}

sphere {
       center 2.5 0 1
       radius .99
       clip {
              center 2.5 0 1
              normal 0 0 -1
              inside }
       }
//==========================================================