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