Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
3d097a032This file is pinned to the selected release. Download the original to open it in your design tool.
puts "========"
puts "OCC21670"
puts "========"
puts ""
###################################
# BOP section produces bad result
###################################
smallview
restore [locate_data_file bug21633_SECC19_1_IZQ.brep] a
explode a f
mksurface s a_1
mkface f s
restore [locate_data_file bug21670-bug_prj_wire.brep] w
explode w
prism p w_1 0 0 -1
donly f p
fit
puts "Checking f: [bopcheck f] [checkshape f] [tolerance f]"
puts "Checking p: [bopcheck p] [checkshape p] [tolerance p]"
bsection result f p
set bug_info [explode result]
if {[llength $bug_info] != 1} {
puts "ERROR: OCC21670 is reproduced. Result of bsection command is set of shapes."
}
checkview -screenshot -2d -path ${imagedir}/${test_image}.png