tests/lowalgos/intss/bug25898

   1 puts "================"
   2 puts "OCC25898"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong result obtained by intersection algorithm.
   7 #######################################################################
   8
   9 # Before fix intersection algorithm threw an exception.
  10
  11 restore [locate_data_file bug25898_x001_1.draw] s1
  12 restore [locate_data_file bug25898_x001_2.draw] s2
  13
  14 set CurveNumb [intersect i s1 s2]
  15
  16 if { [llength ${CurveNumb}] != 2 } {
  17     puts "Error : Wrong result obtained by intersection algorithm."
  18 } else {
  19     puts "OK : Good result obtained by intersection algorithm."
  20 }
  21
  22 smallview
  23 fit
  24
  25 checkview -screenshot -2d -path ${imagedir}/${test_image}.png