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

puts "TODO 0027524 ALL: Error: pcurve deviation is greater than shape tolerance" 
puts "========="
puts "CR27524"
puts "========="
puts ""
###############################
## Incorrect result of "checkshape" command
###############################

set aTol 1.0e-7
set aShapeToler 0.0069791772900578497

restore [locate_data_file bug27524.brep] aS

checkshape aS

explode aS E
explode aS F
set log [xdistef aS_3 aS_1]
regexp {Max Distance = +([-0-9.+eE]+);} ${log} full aDist

if { $aDist > $aShapeToler + $aTol } {
  puts "Error: pcurve deviation is greater than shape tolerance"
}
Commit	Line	Data
cba287d6	1	puts "TODO 0027524 ALL: Error: pcurve deviation is greater than shape tolerance"
	2	puts "========="
	3	puts "CR27524"
	4	puts "========="
	5	puts ""
	6	###############################
	7	## Incorrect result of "checkshape" command
	8	###############################
	9
	10	set aTol 1.0e-7
	11	set aShapeToler 0.0069791772900578497
	12
	13	restore [locate_data_file bug27524.brep] aS
	14
	15	checkshape aS
	16
	17	explode aS E
	18	explode aS F
	19	set log [xdistef aS_3 aS_1]
	20	regexp {Max Distance = +([-0-9.+eE]+);} ${log} full aDist
	21
	22	if { $aDist > $aShapeToler + $aTol } {
	23	puts "Error: pcurve deviation is greater than shape tolerance"
	24	}