#old revolrib4
pcone c1 4 3 5
pcone c2 2 1 3
ttranslate c2 0 0 5
bfuse s c1 c2

vertex v1 0 -3 5
vertex v2 0 -1 8
edge e1 v1 v2
wire w e1
plane pl 0 -3 5 -1 0 0

featrf s w pl 0 0 0 0 0 1 0.2 0.2 1 1
featperform rf result


set square 213.845
