Source

<<Graphics`Shapes`

f[360, {-40, 0, 70}, {0, -100, 0}, 280] ;

<<Graphics`Shapes`

f[360, {-40, 0, 70}, {0, -100, 0}, 300, {0, 100, 0}, 450] ;