tests/bugs/modalg_7/bug29182_1

   1 puts "========"
   2 puts "OCC29182"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # BOPAlgo_PaveFiller sometimes raises exception in parallel mode
   7 #################################################
   8
   9 # This is synthetic case reproducing the bug.
  10 # Make a set of cylindrical surface patches intersecting in the same
  11 # 3d line and run bfillds on them repeatedly 100 times.
  12
  13 cylinder c 0 10 0 1 0 0 10
  14 mkface fc c pi/3 2*pi/3 -10 10
  15
  16 shape a C
  17 add fc a
  18 don a
  19
  20 for {set i 1} {$i <= 10} {incr i} {
  21   copy fc f1
  22   trotate f1 0 0 0 1 0 0 $i*5
  23   add f1 a
  24 }
  25
  26 brunparallel 1
  27 bclearobjects
  28 bcleartools
  29 baddcompound a
  30
  31 for {set i 1} {$i <= 100} {incr i} {
  32   puts "pass $i"
  33   set info [string trim [bfillds]]
  34   if {$info != "" && [regexp "2D curve" $info]} {
  35     break
  36   }
  37 }
  38
  39 if {$i <= 100} {
  40   puts "Error: the bug with failure building 2D curve of edge on face is reproduced"
  41 }