pload MODELING

# 45 deg cone - bad edge
polyline poly1 0 0 10 0 0 0 10 0 0 0 0 10
wire wire1 poly1

# 30 deg cone - edge seems as valid but too big tolerance
#polyline poly1 0 0 10 0 0 0 5 0 0 0 0 10
#wire wire1 poly1

# 90 deg sphere - bad edge
# circle cir 0 0 0 10
# mkedge edge1 cir 0 pi/2
# trotate edge1 0 0 0 1 0 0 90
# polyline poly1 0 0 10 0 0 0 10 0 0
# wire wire1 edge1 poly1

# 60 deg sphere - bad edge
# circle cir -5 0 0 10
# mkedge edge1 cir 0 pi/3
# trotate edge1 0 0 0 1 0 0 90
# polyline poly1 0 0 sqrt(3)/2*10 0 0 0 5 0 0
# wire wire1 edge1 poly1
# erase cir

mkplane plane1 wire1
revol cone1 plane1 0 0 0 0 0 1 270
explode cone1 E
blend fillet_cone cone1 1 cone1_7
explode fillet_cone E
tolsphere fillet_cone_7
tolsphere fillet_cone_5
erase cone1
checkshape fillet_cone
axo; fit