1puts "==========" 2puts "BUC60712" 3puts "==========" 4puts "" 5puts "==================================" 6puts "It takes visual check for this BUG" 7puts "==================================" 8 9# 10# OCC22070: Grid Tests: CHL set, detected problems 11# Problems: 12# The shape buc60712a.brep is self-interferred. 13# thus it can not be used as the argument for Boolean Operation Algorithm. 14# 15# Proposals: 16# The Case chl/902/F3 should be removed or rewritten: 17 18restore [locate_data_file buc60712a.brep] a 19checkshape a 20 21restore [locate_data_file buc60712b.brep] b 22checkshape b 23 24# Recompute "a" shape 25explode a f 26 27bop a_1 a_2 28bopfuse r12 29 30bop a_3 a_4 31bopfuse r34 32 33bop r12 r34 34 35bopfuse r 36 37# Start boolean operation 38bop r b 39bopsection result 40 41# Check result 42regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num 43# Resume 44if { $num != 0 } { 45 puts " Faulty BUC60712: Result shape is INcorrect !!! " 46} else { 47 puts "BUC60712 OK: Result shape is correct " 48} 49checkprops result -l 1.88145 50checkshape result 51checksection result 52checkview -display result -2d -path ${imagedir}/${test_image}.png 53