[occt.git] / tests / bugs / modalg_7 / bug30346_2

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

pload MODELING 

sphere s 1
mkface f1 s 0 2*pi 0.785398163397448 1.5707963267949
prism r1 f1 0 0 2 
savehistory h1
set s1 [dump h1]
if { !([regexp "0 Deleted" $s1] && [regexp "2 Generated" $s1])} {
  puts "Error: wrong history h1"
}
#
mkface f2 s 0 5 0.785398163397448 1.5707963267949
prism r2 f2 0 0 2
savehistory h2
set s2 [dump h2]
if { !([regexp "0 Deleted" $s2] && [regexp "6 Generated" $s2])} {
  puts "Error: wrong history h2"
}
Commit	Line	Data
	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	}