tests/bugs/modalg_4/bug693_1

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3
   4 puts "================"
   5 puts "OCC693"
   6 puts "================"
   7 puts ""
   8 ###################################################
   9 ## The boolean operations give incorrect result if one of shapes is compound
  10 ## consisting of several adjoint solids
  11 ####################################################
  12
  13 box h1 234 52 0 41 98 40
  14 box v1 241 136 20 31 31 15
  15 box h3 215 120 20 78 15 15
  16
  17 compound h1 c1
  18 compound v1 c2
  19
  20 tcopy c1 cc1
  21 tcopy c2 cc2
  22
  23 bop cc1 cc2
  24 bopcommon int1
  25
  26 checkshape -top int1
  27
  28 tcopy c1 cc1
  29 tcopy c2 cc2
  30
  31 bop cc1 cc2
  32 bopcut cut1
  33
  34 checkshape -top cut1
  35
  36 tcopy c1 cc1
  37 tcopy c2 cc2
  38
  39 bop cc2 cc1
  40 bopcut cut2
  41
  42 checkshape -top cut2
  43
  44 compound int1 cut1 cut2 comp3
  45
  46 checkshape -top comp3
  47
  48 tcopy comp3 ccomp3
  49 tcopy h3 ch3
  50
  51 bop ccomp3 ch3
  52 bopcommon int2
  53
  54 checkshape -top int2
  55
  56 tcopy comp3 ccomp3
  57 tcopy h3 ch3
  58
  59 bop ccomp3 ch3
  60 bopcut cut3
  61
  62 checkshape -top cut3
  63
  64 tcopy comp3 ccomp3
  65 tcopy h3 ch3
  66
  67 bop ch3 ccomp3
  68 bopcut cut4
  69
  70 checkshape -top cut4
  71
  72 compound int2 cut3 cut4 result
  73
  74 checkshape -top result
  75
  76 set square 33196
  77 set 3dviewer 1
  78