a87752f3 |
1 | puts "=============" |
2 | puts "BUC60878" |
3 | puts "=============" |
4 | |
5 | #restore BUC60878-wire5.brep a |
6 | ###############dtext 0 -10 0 "THE CASE IS INCORRECT" |
7 | #mkoffset r a 1 4 |
8 | #tpcompound res |
9 | #checkshape res |
10 | |
11 | restore [locate_data_file BUC60878-wire5.brep] a |
352ffd73 |
12 | checkshape a |
a87752f3 |
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 4 |
21 | renamevar result_1 result |
22 | } |
23 | |
58cf74e0 |
24 | checkprops result -l 107.351 |
25 | checkshape result |
26 | checksection result |
5747059b |
27 | checkview -display result -2d -path ${imagedir}/${test_image}.png |