[occt.git] / tests / bugs / modalg_5 / bug23845

puts "================"
puts "OCC23845"
puts "================"
puts ""
#######################################################################
# New auxilary method concatenating a wire into an edge based on C0-continuous curve.
#######################################################################

restore [locate_data_file bug23845_profil_0a.brep] a
restore [locate_data_file bug23845_profil_1a.brep] b

concatC0wire aa a
concatC0wire bb b

set CMP_TOL 1.e-6

# 1
checkshape aa
set tolmaxres [tolmax aa]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance of first wire"
}

# 2
checkshape bb
set tolmaxres [tolmax bb]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance of second wire"
}
Commit	Line	Data
	1	puts "================"
	2	puts "OCC23845"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# New auxilary method concatenating a wire into an edge based on C0-continuous curve.
	7	#######################################################################
	8
	9	restore [locate_data_file bug23845_profil_0a.brep] a
	10	restore [locate_data_file bug23845_profil_1a.brep] b
	11
	12	concatC0wire aa a
	13	concatC0wire bb b
	14
	15	set CMP_TOL 1.e-6
	16
	17	# 1
	18	checkshape aa
	19	set tolmaxres [tolmax aa]
	20	regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
	21	if { ${MaxTolerance} > ${CMP_TOL} } {
	22	puts "Error: invalid tolerance of first wire"
	23	}
	24
	25	# 2
	26	checkshape bb
	27	set tolmaxres [tolmax bb]
	28	regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
	29	if { ${MaxTolerance} > ${CMP_TOL} } {
	30	puts "Error: invalid tolerance of second wire"
	31	}