b7a3c470 |
1 | puts "TODO #23659 Mandriva2010: Error : The square of result shape is" |
0e94a94e |
2 | |
3 | puts "==============" |
4 | puts " BUC60409 " |
5 | puts " FUSE " |
6 | puts "==============" |
7 | |
8 | restore [locate_data_file buc60409a.brep] c |
9 | restore [locate_data_file buc60409b.brep] s |
10 | |
11 | set che [checkshape c] |
12 | if { [regexp {Faulty} $che ] == 1 } { |
13 | puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" |
14 | puts "Body of the script was NOT executed" |
15 | renamevar c result |
16 | } else { |
17 | puts "BUC60409 OK (shape 1): Source shape is valid" |
18 | set che [checkshape s] |
19 | if { [regexp {Faulty} $che ] == 1 } { |
20 | puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" |
21 | puts "Body of the script was NOT executed" |
22 | renamevar s result |
23 | } else { |
24 | puts "BUC60409 OK (shape 2): Source shape is valid" |
25 | bfuse result c s |
26 | } |
27 | } |
28 | set square 39.0894 |
29 | set 2dviewer 0 |