0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29182_1
CommitLineData
56c62737 1puts "========"
2puts "OCC29182"
3puts "========"
4puts ""
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
13cylinder c 0 10 0 1 0 0 10
14mkface fc c pi/3 2*pi/3 -10 10
15
16shape a C
17add fc a
18don a
19
20for {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
26brunparallel 1
27bclearobjects
28bcleartools
29baddcompound a
30
31for {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
39if {$i <= 100} {
40 puts "Error: the bug with failure building 2D curve of edge on face is reproduced"
41}