# Original bug : pro5363
# Date : 07mar97

box b 100 100 40
nexplode b f
profile rev S b_4 F 50 20 Y 50 C 10 180 Y -50 C 10 180
revol rev2 rev 0 0 50 0 1 0 360

bcut result b rev2

set square 41187.4
