Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60878_1
CommitLineData
a87752f3 1puts "============="
2puts "BUC60878"
3puts "============="
4
5#restore BUC60878-wire1.brep a
6#########dtext -10 -10 -60 "THE CASE IS INCORRECT"
7#mkoffset r a 1 0.5
8#tpcompound res
9#checkshape res
10
11restore [locate_data_file BUC60878-wire1.brep] a
12puts [checkshape a]
13
14set che [checkshape a rr]
15if { [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.5
21 renamevar result_1 result
22}
23
24set length 370.796
25set 2dviewer 0