puts "============"
puts "OCC24667"
puts "============"
puts ""
###############################################################################################
# BRepOffsetAPI_MakePipe::FirstShape() and LastShape() return shapes not from result
###############################################################################################

pload QAcommands

vertex v1 0 0 0
vertex v2 0 0 100
vertex v3 0 -50 0

edge e v1 v2
wire w e
OCC24667 r w v3

compound r r_f r_l result

checkprops result -l 100 
checkshape result 
checksection result

# Analysis of "nbshapes result"
checknbshapes result -vertex 2 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 5
checkview -display result -2d -path ${imagedir}/${test_image}.png