tests/bugs/moddata_2/bug235

   1 puts "================"
   2 puts "OCC235"
   3 puts "================"
   4 puts ""
   5 #######################################################
   6 ## Intersection algorithm finds two intersection curves. One curve is closed while
   7 ## second is not (the distance between first and last points is 2e-5).
   8 #######################################################
   9
  10 restore [locate_data_file OCC235a.rle] su1
  11 ############### checkshape su1 # is not a topological shape
  12 restore [locate_data_file OCC235b.rle] su2
  13 ############### checkshape su2 # is not a topological shape
  14
  15 intersect result su1 su2
  16
  17 set dir [directory]
  18 set nb_result [regexp -all {result} $dir]
  19 if { $nb_result != 2 } {
  20     puts "Faulty OCC235 (first checking): Intersection was made WRONGLY"
  21 } else {
  22     puts "OCC235 OK (first checking) : Intersection command works properly"
  23
  24     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1
  25     if { $num_1 != 0 } {
  26         puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! "
  27     } else {
  28         puts " OCC235 OK (second checking): Result result_1 is closed !!! "
  29     }
  30
  31     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2
  32     if { $num_2 != 0 } {
  33         puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! "
  34     }  else {
  35         puts "  OCC235 OK (second checking): Result result_2 is closed !!! "
  36     }
  37 }
  38
  39 smallview
  40 don result*
  41 fit
  42
  43 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  44