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

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

circle c 0 0 0 0 0 1 10
mkedge e c

edgestofaces result e

checkshape result
checknbshapes result -face 1 -wire 1

if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
  puts "Error : The result is self-interfered"
}
Commit	Line	Data
e6ae74fd	1	puts "========"
	2	puts "OCC28426"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Implementation of the EdgesToFaces function
	7	#################################################
	8
	9	circle c 0 0 0 0 0 1 10
	10	mkedge e c
	11
	12	edgestofaces result e
	13
	14	checkshape result
	15	checknbshapes result -face 1 -wire 1
	16
	17	if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
	18	puts "Error : The result is self-interfered"
	19	}