[occt.git] / tests / mkface / edges_to_faces / A8

puts "========"
puts "OCC28426"
puts "========"
puts ""
#################################################
# Implementation of the EdgesToFaces function
#################################################

restore [locate_data_file bug26917_dom-8092.brep] s
eval compound [explode s e] c

edgestofaces result c

checkshape result
checknbshapes result -face 661 -wire 691

if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
  puts "Error : The result is self-interfered"
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
e6ae74fd	1	puts "========"
	2	puts "OCC28426"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Implementation of the EdgesToFaces function
	7	#################################################
	8
	9	restore [locate_data_file bug26917_dom-8092.brep] s
	10	eval compound [explode s e] c
	11
	12	edgestofaces result c
	13
	14	checkshape result
	15	checknbshapes result -face 661 -wire 691
	16
	17	if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
	18	puts "Error : The result is self-interfered"
	19	}
	20
	21	checkview -display result -2d -path ${imagedir}/${test_image}.png