[occt.git] / tests / bugs / modalg_6 / bug28189_7

puts "========"
puts "OCC28189"
puts "========"
puts ""
#################################################
# Result of Boolean operation is non-manifold wire
#################################################

polyline p1 0 0 0 1 0 0
polyline p2 0 0 0 1 0 0

orientation p1 R
orientation p2 F

bfuse result1 p1 p2
explode result1

if {![regexp "REVERSED" [whatis result1_1]]} {
  puts "Error: Incorrect orientation of wire"
}

bcommon result2 p2 p1
explode result2

if {![regexp "FORWARD" [whatis result2_1]]} {
  puts "Error: Incorrect orientation of wire"
}
Commit	Line	Data
77a11d3d	1	puts "========"
	2	puts "OCC28189"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Result of Boolean operation is non-manifold wire
	7	#################################################
	8
	9	polyline p1 0 0 0 1 0 0
	10	polyline p2 0 0 0 1 0 0
	11
	12	orientation p1 R
	13	orientation p2 F
	14
	15	bfuse result1 p1 p2
	16	explode result1
	17
	18	if {![regexp "REVERSED" [whatis result1_1]]} {
	19	puts "Error: Incorrect orientation of wire"
	20	}
	21
	22	bcommon result2 p2 p1
	23	explode result2
	24
	25	if {![regexp "FORWARD" [whatis result2_1]]} {
	26	puts "Error: Incorrect orientation of wire"
	27	}