093bfc49 |
1 | puts "========" |
2 | puts "CR24033" |
3 | puts "========" |
4 | puts "" |
5 | ######################################### |
6 | ## All the orientation as a result of BRepAlgoAPI_Common is set to INTERNAL |
7 | ######################################### |
8 | |
9 | polyline f1 0 0 0 0 1 0 1 1 0 1 0 0 0 0 0 |
10 | mkplane f1 f1 |
11 | polyline f2 0 1 0 0 2 0 1 2 0 1 1 0 0 1 0 |
12 | mkplane f2 f2 |
13 | polyline f3 0 2 0 0 3 0 1 3 0 1 2 0 0 2 0 |
14 | mkplane f3 f3 |
15 | |
16 | polyline f4 1 0 0 1 1 0 2 1 0 2 0 0 1 0 0 |
17 | mkplane f4 f4 |
18 | polyline f5 1 1 0 1 2 0 2 2 0 2 1 0 1 1 0 |
19 | mkplane f5 f5 |
20 | polyline f6 1 2 0 1 3 0 2 3 0 2 2 0 1 2 0 |
21 | mkplane f6 f6 |
22 | |
23 | polyline f7 2 0 0 2 1 0 3 1 0 3 0 0 2 0 0 |
24 | mkplane f7 f7 |
25 | polyline f8 2 1 0 2 2 0 3 2 0 3 1 0 2 1 0 |
26 | mkplane f8 f8 |
27 | polyline f9 2 2 0 2 3 0 3 3 0 3 2 0 2 2 0 |
28 | mkplane f9 f9 |
29 | |
30 | sewing s f1 f2 f3 f4 f5 f6 f6 f7 f8 f9 |
31 | |
32 | box b -1 1 -1 2 1 2 |
33 | |
34 | bop s b |
35 | bopcommon r |
36 | explode r |
37 | |
38 | explode r_1 |
39 | set info_f [whatis r_1_1] |
40 | if { [regexp {INTERNAL} ${info_f}] } { |
41 | puts "Faulty : Wrong orientation of the face" |
42 | } else { |
43 | puts "Correct orientation of the face" |
44 | } |
45 | |
46 | explode r_1_1 e |
47 | set info_e [whatis r_1_1_1] |
48 | if { [regexp {INTERNAL} ${info_e}] } { |
49 | puts "Faulty : Wrong orientation of the edge" |
50 | } else { |
51 | puts "Correct orientation of the edge" |
52 | } |
53 | |
54 | explode r_1_1 v |
55 | set info_v [whatis r_1_1_1] |
56 | if { [regexp {INTERNAL} ${info_v}] } { |
57 | puts "Faulty : Wrong orientation of the vertex" |
58 | } else { |
59 | puts "Correct orientation of the vertex" |
60 | } |