80eeb3ce |
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] |
44fafc47 |
13 | if { !([regexp "0 Deleted" $s1] && [regexp "3 Generated" $s1])} { |
80eeb3ce |
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] |
44fafc47 |
21 | if { !([regexp "0 Deleted" $s2] && [regexp "7 Generated" $s2])} { |
80eeb3ce |
22 | puts "Error: wrong history h2" |
23 | } |