244587f4 |
1 | puts "============" |
2 | puts "OCC23402" |
3 | puts "============" |
4 | puts "" |
5 | ################################################## |
6 | # Issue in BRepAlgoAPI_Common - SOLID and FACE |
7 | ################################################## |
8 | |
9 | polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0 |
10 | mkplane sf l |
11 | prism s sf 5 0 0 |
12 | polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2 |
13 | mkplane f1 w1 |
14 | bop s f1 |
15 | bopcommon c1 |
16 | ttranslate c1 0 0 5 |
17 | polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3 |
18 | mkplane f2 w2 |
19 | bop s f2 |
20 | bopcommon c2 |
21 | ttranslate c2 0 0 5 |
22 | polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4 |
23 | mkplane f3 w3 |
24 | bop s f3 |
25 | bopcommon c3 |
26 | ttranslate c3 0 0 5 |
27 | |
28 | regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1 |
29 | regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2 |
30 | regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3 |
31 | |
32 | if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } { |
33 | puts "Error : c1 and c2 should be indeticall" |
34 | } else { |
35 | puts "OK : c1 and c2 are identicall" |
36 | } |
37 | |
38 | mu4 |
39 | fit |
40 | |
41 | set 2dviewer 1 |