[occt.git] / tests / bugs / modalg / bug1243_2

puts "================"
puts "OCC1243"
puts "================"
puts "Bad solid created from face with command 'revol'"
puts ""

restore [locate_data_file OCC1243-2.brep] f1 
checkshape f1

revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0

set tolerance [maxtolerance result]
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

set max_tolerance 1.00000e-06

if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
    puts "OCC1243 - Error"
} else {
    puts "OCC1243 - OK"
}

set square 3.06024e+06
set 2dviewer 0
Commit	Line	Data
61c421bf	1	puts "================"
	2	puts "OCC1243"
	3	puts "================"
	4	puts "Bad solid created from face with command 'revol'"
	5	puts ""
	6
	7	restore [locate_data_file OCC1243-2.brep] f1
	8	checkshape f1
	9
	10	revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
	11
	12	set tolerance [maxtolerance result]
	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	set max_tolerance 1.00000e-06
	18
	19	if { ${MaxFaceTolerance} > ${max_tolerance} \|\| ${MaxEdgeTolerance} > ${max_tolerance} \|\| ${MaxVertexTolerance} > ${max_tolerance} } {
	20	puts "OCC1243 - Error"
	21	} else {
	22	puts "OCC1243 - OK"
	23	}
	24
	25	set square 3.06024e+06
	26	set 2dviewer 0