5 ################################################################
6 # BRepBuilderAPI_MakeFace adds wire with aribitary orientation
7 ################################################################
9 polyline p 2.02 -1.4 -3.75 -2.93 -1.87 1.72 -5. -0.18 0.39 2.02 -1.4 -3.75
13 # Verify orientation of shapes
14 set bug_info [whatis p]
15 if {[lindex $bug_info 5] != "FORWARD"} {
16 puts "ERROR: Input data is incorrect."
18 set bug_info [whatis w]
19 if {[lindex $bug_info 5] != "FORWARD"} {
20 puts "ERROR: Input data is incorrect."
22 set bug_info [whatis f]
23 if {[lindex $bug_info 5] != "FORWARD"} {
24 puts "ERROR: Input data is incorrect."
27 # Explode face (f) and verify wire orientation
29 set wire_name_list [explode f w]
31 while {$while_count < [llength $wire_name_list]} {
32 set bug_info [whatis [lindex $wire_name_list $while_count]]
33 if {[lindex $bug_info 5] != "FORWARD"} {
34 puts "ERROR: OCC24954 is reproduced. Wire [lindex $wire_name_list $while_count] has REVERSED orientation."
36 puts " [lindex $wire_name_list $while_count] has FORWARD orientation."
38 set while_count [expr {$while_count + 1}]
41 # Explode face (f) and verify edge orientation
43 set edge_name_list [explode f e]
45 while {$while_count < [llength $edge_name_list]} {
46 set bug_info [whatis [lindex $edge_name_list $while_count]]
47 if {[lindex $bug_info 5] != "FORWARD"} {
48 puts "ERROR: OCC24954 is reproduced. Edge [lindex $edge_name_list $while_count] has REVERSED orientation."
50 puts " [lindex $edge_name_list $while_count] has FORWARD orientation."
52 set while_count [expr {$while_count + 1}]