//¤@­Ó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 }

       }

//==========================================================