a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2" |
2 | puts "TODO OCC12345 ALL: Faulty : mistakes are found in SOURCE shape by checkshape command" |
3 | puts "TODO OCC12345 ALL: Faulty BUC60782" |
a87752f3 |
4 | |
5 | puts "========================" |
6 | puts "BUC60782" |
7 | puts "CASE 2" |
8 | puts "========================" |
9 | puts "" |
10 | puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). " |
11 | puts "" |
12 | |
13 | restore [locate_data_file buc60782b.brep] a |
14 | set che [checkshape a] |
15 | if { [regexp {Faulty} $che ] == 1 } { |
16 | puts "Faulty BUC60782 (case 2): Source shape is invalid" |
17 | } else { |
18 | puts "BUC60782 OK (case 2): Sourse shape is correct" |
19 | } |
20 | |
21 | set che [checkshape a rr] |
22 | if { [regexp {OK} $che ] != 1} { |
23 | puts "Faulty : mistakes are found in SOURCE shape by checkshape command" |
24 | puts "Body of the script was not executed" |
25 | } else { |
26 | puts "Checking of SOURCE shape by checkshape - OK" |
27 | if [catch { mkoffset result a 1 10 } catch_result] { |
28 | puts "Faulty BUC60782: mkoffset works wrongly" |
29 | renamevar a result |
30 | } else { |
31 | puts "OK BUC60782: offset is created" |
32 | tpcompound result |
33 | } |
355c1551 |
34 | set square 0 |
35 | set 2dviewer 0 |
a87752f3 |
36 | } |