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


puts "========"
puts "OCC357"
puts "BUC60970"
puts "========"

restore [locate_data_file buc60970a.brep] a
checkshape a
## small/brep/OCC358a.brep - second shape
restore [locate_data_file OCC358a.brep] b 
checkshape b

if { [catch { pipe result a b } catch_result] } {
    puts "$catch_result"
}

set square 44761.1
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========"
	3	puts "OCC357"
	4	puts "BUC60970"
	5	puts "========"
	6
	7	restore [locate_data_file buc60970a.brep] a
352ffd73	8	checkshape a
a87752f3	9	## small/brep/OCC358a.brep - second shape
a87752f3	10	restore [locate_data_file OCC358a.brep] b
352ffd73	11	checkshape b
a87752f3	12
	13	if { [catch { pipe result a b } catch_result] } {
	14	puts "$catch_result"
	15	}
	16
	17	set square 44761.1
	18	set 2dviewer 0
	19
	20