[occt.git] / tests / bugs / modalg_4 / bug780_1


puts "========"
puts "OCC780"
puts "SAM1239"
puts "(case 1)"
puts "========"
puts ""
#########################################
## Fuse and common between two faces are wrong (SAM1239)
#########################################

restore [locate_data_file OCC780.brep] f 
explode f f
checkshape f_1
checkshape f_2

bcommon result f_1 f_2

set square 6283.19
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========"
	3	puts "OCC780"
	4	puts "SAM1239"
	5	puts "(case 1)"
	6	puts "========"
	7	puts ""
	8	#########################################
	9	## Fuse and common between two faces are wrong (SAM1239)
	10	#########################################
	11
	12	restore [locate_data_file OCC780.brep] f
	13	explode f f
352ffd73	14	checkshape f_1
352ffd73	15	checkshape f_2
f1aa2b62	16
	17	bcommon result f_1 f_2
	18
	19	set square 6283.19
	20	set 2dviewer 0