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