tests/bugs/modalg_1/buc60712

   1 puts "=========="
   2 puts "BUC60712"
   3 puts "=========="
   4 puts ""
   5 puts "=================================="
   6 puts "It takes visual check for this BUG"
   7 puts "=================================="
   8
   9 #
  10 # OCC22070: Grid Tests: CHL set, detected problems
  11 # Problems:
  12 #  The shape buc60712a.brep is self-interferred.
  13 #  thus it can not be used as the argument for Boolean Operation Algorithm.
  14 #
  15 # Proposals:
  16 #  The Case chl/902/F3 should be removed or rewritten:
  17
  18 restore [locate_data_file buc60712a.brep] a
  19 checkshape a
  20
  21 restore [locate_data_file buc60712b.brep] b
  22 checkshape b
  23
  24 # Recompute "a" shape
  25 explode a f
  26
  27 bop a_1 a_2
  28 bopfuse r12
  29
  30 bop a_3 a_4
  31 bopfuse r34
  32
  33 bop r12 r34
  34
  35 bopfuse r
  36
  37 # Start boolean operation
  38 bop r b
  39 bopsection result
  40
  41 # Check result
  42 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
  43 # Resume
  44 if { $num != 0 } {
  45     puts " Faulty BUC60712: Result shape is INcorrect !!! "
  46 } else {
  47     puts "BUC60712 OK: Result shape is correct "
  48 }
  49 checkprops result -l 1.88145
  50 checkshape result
  51 checksection result
  52 checkview -display result -2d -path ${imagedir}/${test_image}.png