[occt.git] / tests / bugs / modalg_2 / bug419

# Original bug : 

puts "========================"
puts " OCC419 "
puts "FRA50047"
puts "========================"
puts ""

restore [locate_data_file CTO904_fra50047a.rle] a 
checkshape a

restore [locate_data_file fra50047b.rle] b 
checkshape b

bsection sec a b
checkshape -top sec

bfuse result a b
checkshape -top result

set square 508496.
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1	# Original bug :
	2
	3	puts "========================"
	4	puts " OCC419 "
	5	puts "FRA50047"
	6	puts "========================"
	7	puts ""
	8
	9	restore [locate_data_file CTO904_fra50047a.rle] a
352ffd73	10	checkshape a
f1aa2b62	11
f1aa2b62	12	restore [locate_data_file fra50047b.rle] b
352ffd73	13	checkshape b
f1aa2b62	14
f1aa2b62	15	bsection sec a b
352ffd73	16	checkshape -top sec
f1aa2b62	17
f1aa2b62	18	bfuse result a b
352ffd73	19	checkshape -top result
f1aa2b62	20
	21	set square 508496.
	22	set 2dviewer 0