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

surface {
        diff dark_plum          // dark plum
}
ring { center 0 0 0 normal 0 0 1 radius 1000 }

//      outside surface

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

//      inside surface

surf {
        diff red
        shine 20 white
}



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