[occt.git] / tests / bugs / modalg_6 / bug28661_1

puts "============"
puts "OCC28661"
puts "============"
puts ""
#######################################################################
# BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
#######################################################################

restore [locate_data_file bug27769_W5_slot.brep] pr
restore [locate_data_file bug27769_A4_slot.brep] sp
wire sp sp

mksweep sp
addsweep pr
buildsweep r

explode r f
mksurface s1 r_1
set info [dump s1]

set check [regexp "SphericalSurface" $info]

if { ${check} == 1 } {
   puts "OK: The basic surface is spherical surface."
} else {
   puts "Faulty: The basic surface is not spherical surface."
}

set info1 [errorsweep]

set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error]

checkreal "Accuracy" $error 0 1.e-10 0

setsweep -FR
buildsweep r1
Commit	Line	Data
107f794f	1	puts "============"
	2	puts "OCC28661"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
	7	#######################################################################
	8
	9	restore [locate_data_file bug27769_W5_slot.brep] pr
	10	restore [locate_data_file bug27769_A4_slot.brep] sp
	11	wire sp sp
	12
	13	mksweep sp
	14	addsweep pr
	15	buildsweep r
	16
	17	explode r f
	18	mksurface s1 r_1
	19	set info [dump s1]
	20
	21	set check [regexp "SphericalSurface" $info]
	22
	23	if { ${check} == 1 } {
	24	puts "OK: The basic surface is spherical surface."
	25	} else {
	26	puts "Faulty: The basic surface is not spherical surface."
	27	}
	28
	29	set info1 [errorsweep]
	30
	31	set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error]
	32
	33	checkreal "Accuracy" $error 0 1.e-10 0
	34
	35	setsweep -FR
	36	buildsweep r1