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

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

restore [locate_data_file bug28426_edges_18.brep] c

edgestofaces result c

checkshape result
checknbshapes result -face 5 -wire 5

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 bug28426_edges_18.brep] c
	10
	11	edgestofaces result c
	12
	13	checkshape result
	14	checknbshapes result -face 5 -wire 5
	15
	16	if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
	17	puts "Error : The result is self-interfered"
	18	}
	19
	20	checkview -display result -2d -path ${imagedir}/${test_image}.png