0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / modalg_6 / bug28189_6
1 puts "========"
2 puts "OCC28189"
3 puts "========"
4 puts ""
5 #################################################
6 # Result of Boolean operation is non-manifold wire
7 #################################################
8
9 vertex v1 0 0 0
10 vertex v2 1 0 0
11 vertex v3 1 1 0
12 vertex v4 0 1 0
13 edge e1 v1 v2
14 edge e2 v3 v2
15 edge e3 v3 v4
16 edge e4 v1 v4
17
18 compound e1 e2 e3 e4 edges
19 edgestowire result edges
20
21 if {![regexp "WIRE" [whatis result]]} {
22   puts "Error: Wire is not created"
23 }
24
25 explode result
26
27 if {![regexp "FORWARD" [whatis result_1]]} {
28   puts "Error: Incorrect orientation of edges in wire"
29 }
30
31 if {![regexp "REVERSED" [whatis result_2]]} {
32   puts "Error: Incorrect orientation of edges in wire"
33 }
34
35 if {![regexp "FORWARD" [whatis result_3]]} {
36   puts "Error: Incorrect orientation of edges in wire"
37 }
38
39 if {![regexp "REVERSED" [whatis result_4]]} {
40   puts "Error: Incorrect orientation of edges in wire"
41 }