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

puts "========"
puts "OCC27769"
puts "========"
puts ""
#################################################
# BRepOffsetAPI_MakePipeShell produces a face 
# based on degenerated toroidal surfaces
#################################################

restore [locate_data_file bug27769_W5_slot.brep] w
restore [locate_data_file bug27769_A4_slot.brep] e

wire p e
mksweep p
addsweep w
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."
}
Commit	Line	Data
b969ebe7	1	puts "========"
	2	puts "OCC27769"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# BRepOffsetAPI_MakePipeShell produces a face
	7	# based on degenerated toroidal surfaces
	8	#################################################
	9
	10	restore [locate_data_file bug27769_W5_slot.brep] w
	11	restore [locate_data_file bug27769_A4_slot.brep] e
	12
	13	wire p e
	14	mksweep p
	15	addsweep w
	16	buildsweep r
	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	}