tests/bugs/modalg_1/buc60880

   1
   2 puts "============"
   3 puts "BUC60880"
   4 puts "============"
   5 puts ""
   6 ##########################################
   7 ## We have overlapping edges when section a shell by plane.
   8 ##########################################
   9
  10 restore [locate_data_file BUC60880_sec_error2.brep] sh
  11 checkshape sh
  12
  13 plane pl 65000 19000 2600 1 0 0
  14 mkface f pl
  15
  16 bsection result sh f
  17
  18 set nb_info [nbshapes result]
  19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
  20
  21 if { $ed == 1 } {
  22     puts  "BUC60880 OK: SECTION operation was made properly"
  23 } else {
  24     explode result e
  25     set status [OCC333 result_1 result_2]
  26     if {[llength ${status}] < 1} {
  27         puts "BUC60880 ERROR"
  28     } else {
  29         regexp {([-0-9.+eE]+)} $status full code
  30         if { ${code} == 3 || ${code} == 2} {
  31             puts "BUC60880  : Section command works properly"
  32         } else {
  33             puts "Faulty BUC60880: Section was made WRONGLY"
  34         }
  35     }
  36 }
  37 checkprops result -l 1424.94
  38 checkshape result
  39 checksection result
  40 checkview -display result -2d -path ${imagedir}/${test_image}.png