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