[occt.git] / tests / bugs / heal / bug24549

puts "============"
puts "OCC24549"
puts "============"
puts ""
#######################################################################
## Faulty shape after IGES translation with xstep.cascade.unit set to M
#######################################################################

pload DATAEXCHANGEKERNEL IGES

param xstep.cascade.unit M

igesread [locate_data_file bug24549_Hull_B.igs] result *

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1

puts "MaxTolerance = $MaxTol_1"

set MaxTol 0.001

if { ${MaxTol_1} > ${MaxTol} } {
    puts "Faulty : bad tolerance"
} else {
    puts "OK : good tolerance"
}
Commit	Line	Data
630ab8c7	1	puts "============"
	2	puts "OCC24549"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	## Faulty shape after IGES translation with xstep.cascade.unit set to M
	7	#######################################################################
	8
bd651bbb	9	pload DATAEXCHANGEKERNEL IGES
630ab8c7	10
	11	param xstep.cascade.unit M
	12
	13	igesread [locate_data_file bug24549_Hull_B.igs] result *
	14
	15	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
	16
	17	puts "MaxTolerance = $MaxTol_1"
	18
	19	set MaxTol 0.001
	20
	21	if { ${MaxTol_1} > ${MaxTol} } {
	22	puts "Faulty : bad tolerance"
	23	} else {
	24	puts "OK : good tolerance"
	25	}