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

puts "========"
puts "OCC26201"
puts "========"
puts ""
#############################################################################
# Wrong processing of dissymetric chamfer: order of chords unjustly changes
#############################################################################

smallview
restore [locate_data_file OCC26201_m.brep] m
copy m m_f
copy m m_e
explode m_f f
explode m_e e
copy m_e_47 e
copy m_f_7 f
donly m f e
chamf r m e f 0.02 0.01
explode r v
explode m v
donly r_19 m_41
fit
donly m r r_19 m_41
distmini dd r_19 m_41
set bug_info [dump dd_val]
if {[lindex $bug_info 5] > 0.01} {
  puts "ERROR: OCC26201 is reproduced. Minimum distance is too large."
}
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
6552f078	1	puts "========"
	2	puts "OCC26201"
	3	puts "========"
	4	puts ""
	5	#############################################################################
	6	# Wrong processing of dissymetric chamfer: order of chords unjustly changes
	7	#############################################################################
	8
	9	smallview
	10	restore [locate_data_file OCC26201_m.brep] m
	11	copy m m_f
	12	copy m m_e
	13	explode m_f f
	14	explode m_e e
	15	copy m_e_47 e
	16	copy m_f_7 f
	17	donly m f e
	18	chamf r m e f 0.02 0.01
	19	explode r v
	20	explode m v
	21	donly r_19 m_41
	22	fit
	23	donly m r r_19 m_41
	24	distmini dd r_19 m_41
	25	set bug_info [dump dd_val]
	26	if {[lindex $bug_info 5] > 0.01} {
	27	puts "ERROR: OCC26201 is reproduced. Minimum distance is too large."
	28	}
5747059b	29	checkview -screenshot -2d -path ${imagedir}/${test_image}.png