[occt.git] / tests / bugs / xde / bug660

puts "================"
puts "OCC660"
puts "================"
puts ""
#######################################################
## Surfaces types changed while reading IGES, causing problems with 2d mapping
#######################################################

set filepath [locate_data_file D44-11325-6.igs]
if [catch { igesbrep $filepath a 6425 } res] {
   puts "Faulty OCC660: here is reading problem"
}

renamevar a_1 a

mksurface result a

set info [dump result]

if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } {
   puts "Faulty OCC660"
}

set 2dviewer 1
Commit	Line	Data
352ffd73	1	puts "================"
	2	puts "OCC660"
	3	puts "================"
	4	puts ""
	5	#######################################################
	6	## Surfaces types changed while reading IGES, causing problems with 2d mapping
	7	#######################################################
	8
5d1833ef	9	set filepath [locate_data_file D44-11325-6.igs]
5d1833ef	10	if [catch { igesbrep $filepath a 6425 } res] {
352ffd73	11	puts "Faulty OCC660: here is reading problem"
	12	}
	13
	14	renamevar a_1 a
	15
	16	mksurface result a
	17
	18	set info [dump result]
	19
	20	if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } {
	21	puts "Faulty OCC660"
	22	}
	23
	24	set 2dviewer 1