tests/bugs/modalg_4/bug693

   1 puts "================"
   2 puts "OCC693"
   3 puts "================"
   4 puts ""
   5 ###################################################
   6 ## The boolean operations give incorrect result if one of shapes is compound
   7 ## consisting of several adjoint solids
   8 ####################################################
   9
  10 box h1 234 52 0 41 98 40
  11 box v1 241 136 20 31 31 15
  12 box h3 215 120 20 78 15 15
  13
  14 #mu4
  15 #fit
  16
  17 compound h1 c1
  18 compound v1 c2
  19
  20 tcopy c1 cc1
  21 tcopy c2 cc2
  22 bcommon int1 cc1 cc2
  23 ##########checkshape -top int1
  24 checkshape -top int1
  25
  26 tcopy c1 cc1
  27 tcopy c2 cc2
  28 bcut cut1 cc1 cc2
  29 checkshape -top cut1
  30
  31 tcopy c1 cc1
  32 tcopy c2 cc2
  33 bcut cut2 cc2 cc1
  34 ##########checkshape -top cut2
  35 checkshape -top cut2
  36
  37 compound int1 cut1 cut2 comp3
  38 ##########checkshape -top comp3
  39 checkshape -top comp3
  40 #donly comp3
  41
  42 tcopy comp3 ccomp3
  43 tcopy h3 ch3
  44 bcommon int2 ccomp3 ch3
  45 ##########checkshape -top int2
  46 checkshape -top int2
  47 #donly int2
  48
  49 tcopy comp3 ccomp3
  50 tcopy h3 ch3
  51 bcut cut3 ccomp3 ch3
  52 ##########checkshape -top cut3
  53 checkshape -top cut3
  54 #donly cut3
  55
  56 tcopy comp3 ccomp3
  57 tcopy h3 ch3
  58 bcut cut4 ch3 ccomp3
  59 ##########checkshape -top cut4
  60 checkshape -top cut4
  61
  62 compound int2 cut3 cut4 result
  63 ##########checkshape -top res
  64 checkshape -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
  75 set square 33196
  76 set 2dviewer 0