Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60878_2
1 puts "============="
2 puts "BUC60878"
3 puts "============="
4
5 #restore BUC60878-wire3.brep a
6 #########dtext -10 -10 -60 "THE CASE IS INCORRECT"
7 #mkoffset r a 1 0.25
8 #tpcompound res
9 #checkshape res
10
11 restore [locate_data_file BUC60878-wire3.brep] a 
12 puts [checkshape a]
13
14 set che [checkshape a rr]
15 if { [regexp {OK} $che] != 1 } {
16     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
17     puts "Body of the script was not executed"
18 } else {
19     puts "Checking of SOURCE shape by checkshape - OK"
20     mkoffset result a 1 0.25
21     renamevar result_1 result
22 }
23
24 set length 11.2406
25 set 2dviewer 0