56c62737 |
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 | } |