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

puts "========"
puts "OCC29183"
puts "========"
puts ""
#################################################
# Result of general fuse of shell and edge 
# produces a shape with too large tolerance
#################################################

set MaxTol 30

restore [locate_data_file bug29183_shapes.brep] ss
bclearobjects
bcleartools
baddcompound ss
bfillds
bbuild r

regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r] full toler

if {$toler > $MaxTol} {
  puts "Error: Tolerance after fusing is too large"
}

checknbshapes r -m "Fusing result" -edge 18 -face 7

smallview 
don r
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
Commit	Line	Data
	1	puts "========"
	2	puts "OCC29183"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Result of general fuse of shell and edge
	7	# produces a shape with too large tolerance
	8	#################################################
	9
	10	set MaxTol 30
	11
	12	restore [locate_data_file bug29183_shapes.brep] ss
	13	bclearobjects
	14	bcleartools
	15	baddcompound ss
	16	bfillds
	17	bbuild r
	18
	19	regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r] full toler
	20
	21	if {$toler > $MaxTol} {
	22	puts "Error: Tolerance after fusing is too large"
	23	}
	24
	25	checknbshapes r -m "Fusing result" -edge 18 -face 7
	26
	27	smallview
	28	don r
	29	fit
	30	checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png