[occt.git] / tests / bugs / iges / bug12567

puts "============"
puts "OCC12567"
puts "============"
puts ""
######################################################
# Swapped first/last vertices or incorrect curve orientation after reading IGES file
######################################################

igesbrep [locate_data_file bug12567.igs] a *

set tolerance [ maxtolerance a ]

regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance

if { $MaxFaceTolerance > 1e-7 || $MaxEdgeTolerance > 1e-7 || $MaxVertexTolerance > 1e-7 } {
    puts "Faulty : Tolerance of shape is more then 1e-7"
} else {
    puts "Tolerance of shape is <= then 1e-7"
}

view 1 -2D- 728 450 400 400
pcurve a
2dfit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
5c09f8e0	1	puts "============"
	2	puts "OCC12567"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Swapped first/last vertices or incorrect curve orientation after reading IGES file
	7	######################################################
	8
	9	igesbrep [locate_data_file bug12567.igs] a *
	10
	11	set tolerance [ maxtolerance a ]
	12
	13	regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
	14	regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
	15	regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
	16
	17	if { $MaxFaceTolerance > 1e-7 \|\| $MaxEdgeTolerance > 1e-7 \|\| $MaxVertexTolerance > 1e-7 } {
	18	puts "Faulty : Tolerance of shape is more then 1e-7"
	19	} else {
	20	puts "Tolerance of shape is <= then 1e-7"
	21	}
	22
	23	view 1 -2D- 728 450 400 400
	24	pcurve a
	25	2dfit
	26
	27	checkview -screenshot -2d -path ${imagedir}/${test_image}.png