[occt.git] / tests / bugs / modalg_7 / bug29182_1

puts "========"
puts "OCC29182"
puts "========"
puts ""
#################################################
# BOPAlgo_PaveFiller sometimes raises exception in parallel mode
#################################################

# This is synthetic case reproducing the bug.
# Make a set of cylindrical surface patches intersecting in the same
# 3d line and run bfillds on them repeatedly 100 times.

cylinder c 0 10 0 1 0 0 10
mkface fc c pi/3 2*pi/3 -10 10

shape a C
add fc a
don a

for {set i 1} {$i <= 10} {incr i} {
  copy fc f1
  trotate f1 0 0 0 1 0 0 $i*5
  add f1 a
}

brunparallel 1
bclearobjects
bcleartools
baddcompound a

for {set i 1} {$i <= 100} {incr i} {
  puts "pass $i"
  set info [string trim [bfillds]]
  if {$info != "" && [regexp "2D curve" $info]} {
    break
  }
}

if {$i <= 100} {
  puts "Error: the bug with failure building 2D curve of edge on face is reproduced"
}
Commit	Line	Data
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	}