0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws "BRepSweep_Translation...
[occt.git] / tests / bugs / modalg_7 / bug30346_1
1 puts "========"
2 puts "0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws BRepSweep_Translation::MakeEmptyVertex"
3 puts "========"
4 puts ""
5
6 pload MODELING 
7
8 plane f 0 0 0 0 1 0
9 mkface f f 0 1 0 1
10 revol r1 f 0 0 0 0 0 1 60
11 savehistory h1
12 set s1 [dump h1]
13 if { !([regexp "0 Deleted" $s1] && [regexp "6 Generated" $s1])} {
14   puts "Error: wrong history h1"
15 }
16 revol r2 f 0 0 0 0 0 1 360
17 savehistory h2
18 set s2 [dump h2]
19 if { !([regexp "6 Deleted" $s2] && [regexp "3 Generated" $s2])} {
20   puts "Error: wrong history h2"
21 }