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

puts "========"
puts "OCC28594"
puts "========"
puts ""
####################################################################
# Geom2dAPI_Interpolate generated curve is not the same as proe
####################################################################

pload QAcommands

set anImageWithScale ${imagedir}/${test_image}_c1.png
set anImageWithoutScale ${imagedir}/${test_image}_c2.png

OCC28594 c1 c2
smallview -2D-
donly c1
2dfit
checkview -screenshot -2d -path ${anImageWithScale}
donly c2
checkview -screenshot -2d -path ${anImageWithoutScale}

set aDiffImageResult [diffimage $anImageWithScale $anImageWithoutScale 0.1 0 0]
if {$aDiffImageResult == 0} {
  puts "Error: curves are equal"
}
Commit	Line	Data
353e6fa0	1	puts "========"
	2	puts "OCC28594"
	3	puts "========"
	4	puts ""
	5	####################################################################
	6	# Geom2dAPI_Interpolate generated curve is not the same as proe
	7	####################################################################
	8
	9	pload QAcommands
	10
	11	set anImageWithScale ${imagedir}/${test_image}_c1.png
	12	set anImageWithoutScale ${imagedir}/${test_image}_c2.png
	13
	14	OCC28594 c1 c2
	15	smallview -2D-
	16	donly c1
	17	2dfit
	18	checkview -screenshot -2d -path ${anImageWithScale}
	19	donly c2
	20	checkview -screenshot -2d -path ${anImageWithoutScale}
	21
	22	set aDiffImageResult [diffimage $anImageWithScale $anImageWithoutScale 0.1 0 0]
	23	if {$aDiffImageResult == 0} {
	24	puts "Error: curves are equal"
	25	}