tests/bugs/modalg/bug251_2

   1 pload QAcommands
   2
   3 puts "================"
   4 puts "OCC251"
   5 puts "================"
   6 puts ""
   7 ###########################################################
   8 ## Section of two faces f1 and f2 depends on order of arguments:  section r1 f1 f2 and
   9 ##  section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
  10 ###########################################################
  11
  12 restore [locate_data_file OCC251.brep] f
  13 explode f
  14 checkshape f_1
  15 checkshape f_2
  16
  17 bsection result f_2 f_1
  18 explode result
  19
  20 set status [OCC333 result_1 result_2]
  21 if {[llength ${status}] < 1} {
  22     puts "OCC251 ERROR"
  23 } else {
  24     regexp {([-0-9.+eE]+)} $status full code
  25     if { ${code} == 3 || ${code} == 2 } {
  26         puts "OCC251 OK  (case 2) : Section command works properly"
  27     } else {
  28         puts "Faulty OCC251 (case 2): Section was made WRONGLY"
  29     }
  30 }
  31
  32 set length 1.
  33 set 2dviewer 0