tests/bugs/modalg_6/bug28594

   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 }