[occt.git] / tests / bugs / modalg / bug60971


puts "========"                                                                                   
puts "BUC60971"
puts "CASE 2"                                                                                   
puts "========"                                                                                   
puts ""                                                                                           

restore [locate_data_file buc60971.brep] a 
explode a
puts [checkshape a_1]
puts [checkshape a_2]

bfuse result a_2 a_3
set square 93698.1
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "BUC60971"
	4	puts "CASE 2"
	5	puts "========"
	6	puts ""
	7
	8	restore [locate_data_file buc60971.brep] a
	9	explode a
	10	puts [checkshape a_1]
	11	puts [checkshape a_2]
	12
	13	bfuse result a_2 a_3
	14	set square 93698.1
	15	set 2dviewer 0