0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29586
1 puts "========"
2 puts "OCC29586"
3 puts "========"
4 puts ""
5 #################################################
6 # Revolution creates solid with degenerated edges shared among faces
7 #################################################
8
9 circle c1 0 -5 0 1 0 0 10
10 circle c2 0 5 0 1 0 0 10
11 mkedge e1 c1
12 mkedge e2 c2
13 wire w1 e1
14 wire w2 e2
15 mkplane f1 w1
16 mkplane f2 w2
17 bcut f12 f1 f2
18 revol r f12 0 0 0 0 0 1 180
19
20 explode r f
21
22 explode r_1 e
23
24 explode r_2 e
25
26 explode r_3 e
27
28 if {[regexp "same shapes" [compare r_1_1 r_2_1]]} { puts "Error" }
29 # Error
30
31 if {[regexp "same shapes" [compare r_3_2 r_2_2]]} { puts "Error" }
32 # Error
33
34 #testing generated
35 savehistory h
36 explode f12 v
37 generated g1 h f12_1
38 checknbshapes g1 -edge 2
39 generated g2 h f12_2
40 checknbshapes g2 -edge 1
41 generated g3 h f12_3
42 checknbshapes g3 -edge 2
43