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

puts "=========="
puts "BUC60649"
puts "BUC60657"
puts "=========="
puts ""

restore [locate_data_file buc60649a.brep] a 
puts [checkshape a]

set che [checkshape a rr]
if { [regexp {OK} $che] != 1 } {
    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
    puts "Body of the script was not executed"
} else {
    puts "Checking of SOURCE shape by checkshape - OK"
    mkoffset result a 1 1
    renamevar result_1 result
}
set length 271.473
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "=========="
	2	puts "BUC60649"
	3	puts "BUC60657"
	4	puts "=========="
	5	puts ""
	6
	7	restore [locate_data_file buc60649a.brep] a
	8	puts [checkshape a]
	9
	10	set che [checkshape a rr]
	11	if { [regexp {OK} $che] != 1 } {
	12	puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
	13	puts "Body of the script was not executed"
	14	} else {
	15	puts "Checking of SOURCE shape by checkshape - OK"
	16	mkoffset result a 1 1
	17	renamevar result_1 result
	18	}
	19	set length 271.473
	20	set 2dviewer 0