tests/bugs/modalg_7/bug28245

   1 puts "========"
   2 puts "OCC28245"
   3 puts "========"
   4 puts ""
   5 #################################################################################################
   6 # Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces
   7 #################################################################################################
   8
   9 circle c1 0 0 0 0 0 1 10
  10 circle c2 10 0 0 0 0 1 10
  11 circle c3 5 9 0 0 0 1 10
  12
  13 mkedge e1 c1
  14 mkedge e2 c2
  15 mkedge e3 c3
  16
  17 wire w1 e1
  18 wire w2 e2
  19 wire w3 e3
  20
  21 mkplane f1 w1
  22 mkplane f2 w2
  23 mkplane f3 w3
  24
  25 bclearobjects
  26 bcleartools
  27 baddobjects f1 f2 f3
  28 bfillds
  29 bcbuild rx
  30
  31 bcadd res f1 1 -m 1
  32 bcadd res f2 1 f3 0 -m 1
  33 bcadd res f3 1 f1 0 -m 2
  34
  35 bopcheck res
  36 if {![regexp "This shape seems to be OK" [bopcheck res]]} {
  37   puts "Error: Result of Cells Builder algorithm is invalid"
  38 }
  39 checkview -display res -2d -path ${imagedir}/${test_image}-1.png
  40
  41 bcremoveint res
  42 if {![regexp "This shape seems to be OK" [bopcheck res]]} {
  43   puts "Error: Result of Cells Builder algorithm becomes invalid after removal of internal boundaries on faces"
  44 }
  45 checkview -display res -2d -path ${imagedir}/${test_image}-2.png