tests/bugs/modalg_5/bug25292_16

   1 puts "TODO OCC225404 Debian60-64 Windows: Error: Curve Number is bad!"
   2
   3 puts "================"
   4 puts "OCC25292"
   5 puts "================"
   6 puts ""
   7 #######################################################################
   8 # Face/Face intersection algorithm gives different results for different order of the arguments
   9 #######################################################################
  10
  11 # intersect command
  12
  13 restore [locate_data_file bug25292_Input_0.brep] b1
  14 restore [locate_data_file bug25292_Input_1.brep] b2
  15
  16 explode b1 f
  17 copy b1_2 f1
  18 explode b2 f
  19 copy b2_2 f2
  20
  21 mksurface s1 f1
  22 mksurface s2 f2
  23
  24 #################
  25 intersect i s2 s1
  26 #################
  27
  28 if { [info exist i_7] } {
  29   puts "OK: Curve Number is good!"
  30 } else {
  31   puts "Error: Curve Number is bad!"
  32 }