[occt.git] / tests / boolean / bfuse_simple / L1

puts "BUC60476"
puts { Precision management doesn't follow the rule of tolerance (Tol(V) > Tol(E) > Tol(F) }
puts ""

box b1 10 10 10
box b2 5 5 5 10 10 10
updatetolerance b1 1
updatetolerance b2 1
puts [maxtolerance b1]
puts [maxtolerance b2]

bfuse result b1 b2

puts [set tolerance [maxtolerance result]]
set MinFaceTolerance [ lindex $tolerance 14 ]
set MinEdgeTolerance [ lindex $tolerance 18 ]
set MinVertexTolerance [ lindex $tolerance 24 ]
puts ""
if {  $MinEdgeTolerance > $MinVertexTolerance } {
puts { Error: The rule of tolerance Tol(V) > Tol(E) > Tol(F) is not observed . Tolerance min on vertex > Tolerance min on edge }
}
puts { The rule of tolerance Tol(V) > Tol(E) > Tol(F) is observed .} 

checkprops result -s 1050
checkview -display result -2d -otherwise { b1 b2 } -s -path ${imagedir}/${test_image}.png
Commit	Line	Data
40093367	1	puts "BUC60476"
	2	puts { Precision management doesn't follow the rule of tolerance (Tol(V) > Tol(E) > Tol(F) }
	3	puts ""
	4
	5	box b1 10 10 10
	6	box b2 5 5 5 10 10 10
	7	updatetolerance b1 1
	8	updatetolerance b2 1
	9	puts [maxtolerance b1]
	10	puts [maxtolerance b2]
	11
	12	bfuse result b1 b2
	13
	14	puts [set tolerance [maxtolerance result]]
	15	set MinFaceTolerance [ lindex $tolerance 14 ]
	16	set MinEdgeTolerance [ lindex $tolerance 18 ]
	17	set MinVertexTolerance [ lindex $tolerance 24 ]
	18	puts ""
	19	if { $MinEdgeTolerance > $MinVertexTolerance } {
	20	puts { Error: The rule of tolerance Tol(V) > Tol(E) > Tol(F) is not observed . Tolerance min on vertex > Tolerance min on edge }
	21	}
	22	puts { The rule of tolerance Tol(V) > Tol(E) > Tol(F) is observed .}
	23
58cf74e0	24	checkprops result -s 1050
5747059b	25	checkview -display result -2d -otherwise { b1 b2 } -s -path ${imagedir}/${test_image}.png