tests/bugs/moddata_3/bug24800

   1 puts "============"
   2 puts "CR24800"
   3 puts "==========="
   4 puts ""
   5 ###############################################################################
   6 # Point of intersection was not found for 2d offset curve.
   7 ###############################################################################
   8
   9 restore [locate_data_file bug24800_curve2.draw] c2
  10
  11 set inter1 [2dintersect c2]
  12
  13 set int1 [regexp {Intersection point 1} ${inter1}]
  14
  15 if { ${int1} == 0 } {
  16     puts "Error : Intersection is not found"
  17 }
  18
  19 av2d
  20 2dfit
  21
  22 xwd ${imagedir}/${test_image}.png