80eeb3ce |
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 | } |