tests/bugs/modalg_5/bug25193

   1 puts "================"
   2 puts "OCC25193"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Bad Intersection curveobtained by Surface/Surface Intersection Algorithm.
   7 #######################################################################
   8
   9 restore [locate_data_file bug25193_s1t.draw] s1
  10 restore [locate_data_file bug25193_s4t.draw] s4
  11
  12 set CurveNumb [intersect i s1 s4 3.6570868343352305e-005]
  13
  14 if { [llength ${CurveNumb}] != 6 } {
  15     puts "Error : Bad Intersection curveobtained by Surface/Surface Intersection Algorithm"
  16 } else {
  17     puts "OK : Good Intersection curveobtained by Surface/Surface Intersection Algorithm"
  18 }
  19
  20 smallview
  21 fit
  22
  23 set only_screen_axo 1