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


puts "========================"
puts " OCC183 "
puts "(case 5)"
puts "========================"
puts ""

restore [locate_data_file so4] b1 
puts [checkshape b1]

restore [locate_data_file so2] b2
puts [checkshape b2]

bcommon result b1 b2
puts [checkshape result]

set check_square 1
set square 198.863
set 2dviewer 0
Commit	Line	Data
	1
	2	puts "========================"
	3	puts " OCC183 "
	4	puts "(case 5)"
	5	puts "========================"
	6	puts ""
	7
	8	restore [locate_data_file so4] b1
	9	puts [checkshape b1]
	10
	11	restore [locate_data_file so2] b2
	12	puts [checkshape b2]
	13
	14	bcommon result b1 b2
	15	puts [checkshape result]
	16
	17	set check_square 1
	18	set square 198.863
	19	set 2dviewer 0
	20