tests/bugs/modalg_7/bug28102_1

   1 puts "========"
   2 puts "OCC28102"
   3 puts "========"
   4 puts ""
   5 #######################################################
   6 # Problem cutting a plate with several holes (670)
   7 #######################################################
   8
   9 restore [locate_data_file bug28102_plate.brep] pl0
  10 restore [locate_data_file bug28102_holes.brep] hl
  11
  12 # Incomplete section
  13 bsection result pl0 hl
  14
  15 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
  16 if { $nbv != 0 } { puts "Error : Section is incorrect" }
  17
  18 checknbshapes result -vertex 268 -edge 268
  19
  20 checkprops result -l 11.5694
  21
  22 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance result] full toler
  23
  24 if {$toler > 1.0e-5} {
  25   puts "Error: Tolerance of section is too large"
  26 }
  27
  28 checkview -display result -2d -path ${imagedir}/${test_image}.png