POV-Ray Geometric Shapes

Round_Cone
type 1

// ---------------------------
object{
 Round_Cone(
  //point A, radius A:
  <0,0,0>,0.70,
  // point B, radius B:
  <0,1.2,0>, 0.40,
  0.15, // rounding radius,
  0)// merge

 pigment{
 color rgb<0.75,0.35,1>}

 scale<1,1,1>
 rotate<0,0,0>
 translate<0,0.0,0>
} //--------------------------

Round_Cone2
type 2

// ---------------------------
object{
 Round_Cone2(
  //point A, radius A:
  <0,0,0>,0.70,
  // point B, radius B:
  <0,1,0>, 0.40,
  // merge on
  0)//

 pigment{
 color rgb<0.75,0.35,1>}

 scale<1,1,1>
 rotate<0,0,0>
 translate<0,0.0,0>
} //--------------------------

Round_Cone2
type 2

// ---------------------------
object{
 Round_Cone3(
  //point A, radius A:
  <0,0,0>,0.70,
  // point B, radius B:
  <0,0.8,0>, 0.40,
  // merge on
  0)//

 pigment{
 color rgb<0.75,0.35,1>}

 scale<1,1,1>
 rotate<0,0,0>
 translate<0,0.0,0>
} //--------------------------

Notes:
All these "round cones" are declared in macros by unions.
Round_Cone is a union of a cone and two tori.
Round_Cone2 and Round_Cone3 are unions of a cone and two spheres.
So all need to be declared as "merge" by setting the merge flag to "1",
if we use transparent textures or materials!

All three shapes are declared in the include file "shapes.inc".