tests/bugs/modalg_5/bug25004_2

   1 puts "=========="
   2 puts "OCC25004  "
   3 puts "=========="
   4 puts ""
   5 ##################################################
   6 ## Extrema curve/curve incorrect result
   7 ##################################################
   8
   9 restore [locate_data_file bug25004_c1.draw] c1
  10 restore [locate_data_file bug25004_c2.draw] c2
  11
  12 set list [extrema c1 c2]
  13 set nb [llength ${list}]
  14 if { ${nb} == 2} {
  15     puts "OK : command extrema works properly"
  16 } else {
  17     puts "Error : command extrema does NOT work properly"
  18 }
  19
  20 smallview
  21 fit
  22 set only_screen_axo 1