5 #########################################
6 ## All the orientation as a result of BRepAlgoAPI_Common is set to INTERNAL
7 #########################################
9 polyline f1 0 0 0 0 1 0 1 1 0 1 0 0 0 0 0
11 polyline f2 0 1 0 0 2 0 1 2 0 1 1 0 0 1 0
13 polyline f3 0 2 0 0 3 0 1 3 0 1 2 0 0 2 0
16 polyline f4 1 0 0 1 1 0 2 1 0 2 0 0 1 0 0
18 polyline f5 1 1 0 1 2 0 2 2 0 2 1 0 1 1 0
20 polyline f6 1 2 0 1 3 0 2 3 0 2 2 0 1 2 0
23 polyline f7 2 0 0 2 1 0 3 1 0 3 0 0 2 0 0
25 polyline f8 2 1 0 2 2 0 3 2 0 3 1 0 2 1 0
27 polyline f9 2 2 0 2 3 0 3 3 0 3 2 0 2 2 0
30 sewing s f1 f2 f3 f4 f5 f6 f6 f7 f8 f9
39 set info_f [whatis r_1_1]
40 if { [regexp {INTERNAL} ${info_f}] } {
41 puts "Faulty : Wrong orientation of the face"
43 puts "Correct orientation of the face"
47 set info_e [whatis r_1_1_1]
48 if { [regexp {INTERNAL} ${info_e}] } {
49 puts "Faulty : Wrong orientation of the edge"
51 puts "Correct orientation of the edge"
55 set info_v [whatis r_1_1_1]
56 if { [regexp {INTERNAL} ${info_v}] } {
57 puts "Faulty : Wrong orientation of the vertex"
59 puts "Correct orientation of the vertex"