Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60830_4
1 puts "============="
2 puts "BUC60830"
3 puts "BUC60829"
4 puts "============="
5
6 restore [locate_data_file BUC60830-face2.brep] f
7 puts [checkshape f]
8
9 set che [checkshape f rr]
10 if { [regexp {OK} $che] != 1 } {
11     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
12     puts "Body of the script was not executed"
13 } else {
14     puts "Checking of SOURCE shape by checkshape - OK"
15     mkoffset result f 1 3
16     renamevar result_1 result
17 }
18
19 set length 81.5088
20 set 2dviewer 0