0024328: Revolution of a wire generates two interfered faces.
[occt.git] / tests / bugs / modalg_5 / bug24328
1 puts "================"
2 puts "OCC24328"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Revolution of a wire generates two interfered faces
7 #######################################################################
8
9 vertex v1 23.500000 11.123000 0
10 vertex v2 22.000000 11.140900 0
11 vertex v3 20.500000 11.180700 0
12 edge e1 v1 v2
13 edge e2 v2 v3
14 wire w e1 e2
15 revol r w 0 0 0 1 0 0 360
16
17 set info [bopcheck r]
18
19 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
20     puts "Error : Revolution works wrong"
21 } else {
22     puts "OK: Revolution works properly"
23 }