1puts "================" 2puts "OCC693" 3puts "================" 4puts "" 5################################################### 6## The boolean operations give incorrect result if one of shapes is compound 7## consisting of several adjoint solids 8#################################################### 9 10box h1 234 52 0 41 98 40 11box v1 241 136 20 31 31 15 12box h3 215 120 20 78 15 15 13 14#mu4 15#fit 16 17compound h1 c1 18compound v1 c2 19 20tcopy c1 cc1 21tcopy c2 cc2 22bcommon int1 cc1 cc2 23##########checkshape -top int1 24checkshape -top int1 25 26tcopy c1 cc1 27tcopy c2 cc2 28bcut cut1 cc1 cc2 29checkshape -top cut1 30 31tcopy c1 cc1 32tcopy c2 cc2 33bcut cut2 cc2 cc1 34##########checkshape -top cut2 35checkshape -top cut2 36 37compound int1 cut1 cut2 comp3 38##########checkshape -top comp3 39checkshape -top comp3 40#donly comp3 41 42tcopy comp3 ccomp3 43tcopy h3 ch3 44bcommon int2 ccomp3 ch3 45##########checkshape -top int2 46checkshape -top int2 47#donly int2 48 49tcopy comp3 ccomp3 50tcopy h3 ch3 51bcut cut3 ccomp3 ch3 52##########checkshape -top cut3 53checkshape -top cut3 54#donly cut3 55 56tcopy comp3 ccomp3 57tcopy h3 ch3 58bcut cut4 ch3 ccomp3 59##########checkshape -top cut4 60checkshape -top cut4 61 62compound int2 cut3 cut4 result 63##########checkshape -top res 64checkshape -top result 65 66##########set che [checkshape -top res] 67########## 68##########set err [lindex $che [expr [llength $che] - 7]] 69##########if { $err == "Faulty"} { 70########## puts "Faulty OCC693" 71##########} else { 72########## puts "OCC693 OK " 73##########} 74 75checkprops result -s 33196 76checkshape result 77checkview -display result -2d -path ${imagedir}/${test_image}.png 78