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

puts "========"
puts "OCC28157"
puts "========"
puts ""
#######################################################################################################################
# Setting the tolerance of a face to a small value and then fixing it leads to a face with vertex-vertex intersections
#######################################################################################################################

brunparallel 1

restore [locate_data_file bug28157_init.brep] n
whatis n
tolerance n
checkshape n
bopcheck n

restore [locate_data_file bug28157_solid.brep] s
whatis s
tolerance s
checkshape s
bopcheck s

bop s n
bopcommon r
whatis r

explode r
whatis r_1
tolerance r_1

settolerance r_1 1e-7
fixshape rr r_1
tolerance rr
checkshape rr

set Log [bopcheck rr]
if {[regexp "This shape seems to be OK" ${Log}] != 1} {
    puts "Error: there are vertex-vertex intersections"
}

checkview -display rr -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
bcb8fa43	1	puts "========"
	2	puts "OCC28157"
	3	puts "========"
	4	puts ""
	5	#######################################################################################################################
	6	# Setting the tolerance of a face to a small value and then fixing it leads to a face with vertex-vertex intersections
	7	#######################################################################################################################
	8
	9	brunparallel 1
	10
	11	restore [locate_data_file bug28157_init.brep] n
	12	whatis n
	13	tolerance n
	14	checkshape n
	15	bopcheck n
	16
	17	restore [locate_data_file bug28157_solid.brep] s
	18	whatis s
	19	tolerance s
	20	checkshape s
	21	bopcheck s
	22
	23	bop s n
	24	bopcommon r
	25	whatis r
	26
	27	explode r
	28	whatis r_1
	29	tolerance r_1
	30
	31	settolerance r_1 1e-7
	32	fixshape rr r_1
	33	tolerance rr
	34	checkshape rr
	35
	36	set Log [bopcheck rr]
	37	if {[regexp "This shape seems to be OK" ${Log}] != 1} {
	38	puts "Error: there are vertex-vertex intersections"
	39	}
	40
	41	checkview -display rr -2d -path ${imagedir}/${test_image}.png