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 14compound h1 c1 15compound v1 c2 16 17tcopy c1 cc1 18tcopy c2 cc2 19 20bop cc1 cc2 21bopcommon int1 22 23checkshape -top int1 24 25tcopy c1 cc1 26tcopy c2 cc2 27 28bop cc1 cc2 29bopcut cut1 30 31checkshape -top cut1 32 33tcopy c1 cc1 34tcopy c2 cc2 35 36bop cc2 cc1 37bopcut cut2 38 39checkshape -top cut2 40 41compound int1 cut1 cut2 comp3 42 43checkshape -top comp3 44 45tcopy comp3 ccomp3 46tcopy h3 ch3 47 48bop ccomp3 ch3 49bopcommon int2 50 51checkshape -top int2 52 53tcopy comp3 ccomp3 54tcopy h3 ch3 55 56bop ccomp3 ch3 57bopcut cut3 58 59checkshape -top cut3 60 61tcopy comp3 ccomp3 62tcopy h3 ch3 63 64bop ch3 ccomp3 65bopcut cut4 66 67checkshape -top cut4 68 69compound int2 cut3 cut4 result 70 71checkshape -top result 72 73checkprops result -s 33196 74checkshape result 75checkview -display result -3d -path ${imagedir}/${test_image}.png 76 77