puts "============================================================="
puts "OCC26568 - Modeling Algorithms - Crash when creating pipe"
puts "============================================================="
puts ""
################################
# Exception when creating pipe
################################

box b 10 10 10
explode b f
circle c 0 0 0 0 1 0 10
mkedge e c
wire w e
pipe result w b_1

checkshape result

checknbshapes result -solid 1 -shell 1 -face 3 -wire 3 -edge 7 -vertex 4

set tolres [checkmaxtol result]

if { ${tolres} > 2.e-7} {
   puts "Error: bad tolerance of result"
}
