[occt.git] / tests / bugs / moddata / bug469

puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"

puts "========================"
puts " OCC469 "
puts "========================"
puts ""
######################################################
## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
######################################################

restore [locate_data_file OCC469.brep] a 
explode a

checkshape a_1
checkshape a_2

bfuse result a_1 a_2
puts [checkshape result]

set check_square 1
set square 10
set 2dviewer 0
Commit	Line	Data
	1	puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
	2	puts "TODO OCC12345 ALL: TEST INCOMPLETE"
	3
	4	puts "========================"
	5	puts " OCC469 "
	6	puts "========================"
	7	puts ""
	8	######################################################
	9	## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
	10	######################################################
	11
	12	restore [locate_data_file OCC469.brep] a
	13	explode a
	14
	15	checkshape a_1
	16	checkshape a_2
	17
	18	bfuse result a_1 a_2
	19	puts [checkshape result]
	20
	21	set check_square 1
	22	set square 10
	23	set 2dviewer 0