puts "================"
puts "CR24849"
puts "================"
puts ""
###############################################
## Crash on Pipe creation
###############################################

pload DCAF

Open [locate_data_file bug24849_Study1_GEOM.sgd] D

GetShape D 0:1:465:1:1:2 f
GetShape D 0:1:283:1:1:2 w
explode w e
wire ww w_1

pipe result ww f 2

checknbshapes result -vertex 4 -edge 8 -wire 7 -face 7 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 31
set 2dviewer 1