puts "========="
puts "OCC23958"
puts "========="
puts ""
#################################################################################
# Section of shell by plane is incomplete
#################################################################################

pload DATAEXCHANGEKERNEL

# shell
restore [locate_data_file bug23958_bug948-shape.brep] a

# plane
plane p 10.62752 0 0 1 0 0
mkface f p

# check that everything is Ok
checkshape a
tolerance a
bopargcheck a f -S #F

# build section
bsection result a f

# check total length of result
set length 1.21473

set 2dviewer 1
