tests/bugs/moddata_2/bug431

   1 puts "========================"
   2 puts " OCC431 "
   3 puts "========================"
   4 puts ""
   5 #####################################
   6 ## Intersection of two surfaces is not compleate curve.
   7 #####################################
   8
   9 restore [locate_data_file OCC431a.draw] su1
  10 restore [locate_data_file OCC431b.draw] su2
  11
  12 intersect result su1 su2
  13
  14 set che [whatis result]
  15
  16 if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
  17     puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
  18 } else {
  19     puts "OCC431 OK  :  Command INTERSECT works properly"
  20 }
  21
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png
  23