f1aa2b62 |
1 | |
2 | puts "========================" |
3 | puts " OCC605" |
4 | puts "========================" |
5 | puts "" |
6 | ############################## |
7 | ## No any faces in result of pipe command. |
8 | ############################## |
c8ea5b8e |
9 | pload ALL |
f1aa2b62 |
10 | |
11 | restore [locate_data_file OCC605a.brep] w1 |
c8ea5b8e |
12 | settolerance w1 1.e-7 |
352ffd73 |
13 | checkshape w1 |
f1aa2b62 |
14 | restore [locate_data_file OCC605b.brep] w2 |
352ffd73 |
15 | checkshape w2 |
f1aa2b62 |
16 | |
17 | if { [catch {pipe result w2 w1 } catch_result] } { |
18 | puts "Faulty OCC605: function PIPE works with exception." |
19 | } else { |
20 | explode result f |
21 | set nom 0 |
22 | set j 1 |
23 | repeat 20 { |
24 | if { [regexp {FACE} [whatis result_$j]] != 1 } { |
25 | break |
26 | } else { |
27 | set nom [expr $nom + 1] |
28 | } |
29 | incr j |
30 | } |
31 | if { $nom == 0 } { |
32 | puts " Faulty OCC605: Result of PIPE operation is incorrect !!! " |
33 | } else { |
34 | puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! " |
35 | } |
36 | } |
37 | |
58cf74e0 |
38 | checkprops result -s 20.6253 |
39 | checkshape result |
5747059b |
40 | checkview -display result -2d -path ${imagedir}/${test_image}.png |