tests/bugs/moddata_2/bug541

   1 puts "========================"
   2 puts " OCC541 "
   3 puts "========================"
   4 puts ""
   5 ############################################
   6 ## Extrema works wrong for line and circle laying on one plane.
   7 ############################################
   8
   9 restore [locate_data_file OCC541a.draw] c1x
  10 restore [locate_data_file OCC541b.draw] c2x
  11
  12 set result [extrema c1x c2x]
  13 set err [llength $result]
  14 if { $err < 1} {
  15     puts "Faulty OCC541 (amount of solution): command extrema does NOT work properly"
  16 } else {
  17     puts "OCC541 OK (amount of solution): : command extrema works properly"
  18 }
  19
  20 set 2dviewer 0