puts "========"
puts "0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws BRepSweep_Translation::MakeEmptyVertex"
puts "========"
puts ""

pload MODELING 

plane f 0 0 0 0 1 0
mkface f f 0 1 0 1
revol r1 f 0 0 0 0 0 1 60
savehistory h1
set s1 [dump h1]
if { !([regexp "0 Deleted" $s1] && [regexp "6 Generated" $s1])} {
  puts "Error: wrong history h1"
}
revol r2 f 0 0 0 0 0 1 360
savehistory h2
set s2 [dump h2]
if { !([regexp "6 Deleted" $s2] && [regexp "3 Generated" $s2])} {
  puts "Error: wrong history h2"
}
