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


puts "========================"
puts " OCC183 "
puts "(case 1)"
puts "========================"
puts ""

restore [locate_data_file f1] b1 
puts [checkshape b1]

restore [locate_data_file f4] b2
puts [checkshape b2]

bcommon result b1 b2
puts [checkshape result]

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