0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws "BRepSweep_Translation...
[occt.git] / tests / bugs / modalg_7 / bug30346_2
1 puts "========"
2 puts "0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws BRepSweep_Translation::MakeEmptyVertex"
3 puts "========"
4 puts ""
5
6 pload MODELING 
7
8 sphere s 1
9 mkface f1 s 0 2*pi 0.785398163397448 1.5707963267949
10 prism r1 f1 0 0 2 
11 savehistory h1
12 set s1 [dump h1]
13 if { !([regexp "0 Deleted" $s1] && [regexp "2 Generated" $s1])} {
14   puts "Error: wrong history h1"
15 }
16 #
17 mkface f2 s 0 5 0.785398163397448 1.5707963267949
18 prism r2 f2 0 0 2
19 savehistory h2
20 set s2 [dump h2]
21 if { !([regexp "0 Deleted" $s2] && [regexp "6 Generated" $s2])} {
22   puts "Error: wrong history h2"
23 }