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