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

puts "========"
puts "OCC28601"
puts "========"
puts ""
###################################################################
# ShapeFix_Shape increases tolerance of sub-shapes of a valid shape
###################################################################

box b 10 10 10
set tol_before [checkmaxtol b]
fixshape b1 b
set tol_after [checkmaxtol b1]

puts "MAX tolerance shape before fixshape : $tol_before"
puts "MAX tolerance shape after fixshape : $tol_after"

if { ${tol_after} > ${tol_before} } {
  puts "Error: Export /Import cause increasing tolerances of shape"
} else {
  puts "Export /Import does not cause increasing tolerances of shape"
}
Commit	Line	Data
0af424c2	1	puts "========"
	2	puts "OCC28601"
	3	puts "========"
	4	puts ""
	5	###################################################################
	6	# ShapeFix_Shape increases tolerance of sub-shapes of a valid shape
	7	###################################################################
	8
	9	box b 10 10 10
	10	set tol_before [checkmaxtol b]
	11	fixshape b1 b
	12	set tol_after [checkmaxtol b1]
	13
	14	puts "MAX tolerance shape before fixshape : $tol_before"
	15	puts "MAX tolerance shape after fixshape : $tol_after"
	16
	17	if { ${tol_after} > ${tol_before} } {
	18	puts "Error: Export /Import cause increasing tolerances of shape"
	19	} else {
	20	puts "Export /Import does not cause increasing tolerances of shape"
	21	}