tests/bugs/xde/bug394

   1 puts "================"
   2 puts "OCC394"
   3 puts "SAM1296"
   4 puts "================"
   5 puts ""
   6 ###################################################################
   7 ## After operation "Merge edges" tolerance shape increased from 5 to 198.
   8 ###################################################################
   9
  10 pload QAcommands
  11
  12 restore [locate_data_file OCC394.brep] a
  13
  14 OCC394 r a 10000 2 1.57
  15
  16 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full face_a_tolerance
  17 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full edge_a_tolerance
  18 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full vertex_a_tolerance
  19
  20 set max_a_tolerance ${face_a_tolerance}
  21 if {${edge_a_tolerance} > ${max_a_tolerance}} {
  22    set max_a_tolerance ${edge_a_tolerance}
  23 }
  24 if {${vertex_a_tolerance} > ${max_a_tolerance}} {
  25    set max_a_tolerance ${vertex_a_tolerance}
  26 }
  27
  28 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance r] full face_r_tolerance
  29 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance r] full edge_r_tolerance
  30 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance r] full vertex_r_tolerance
  31
  32 set max_r_tolerance ${face_r_tolerance}
  33 if {${edge_r_tolerance} > ${max_r_tolerance}} {
  34    set max_r_tolerance ${edge_r_tolerance}
  35 }
  36 if {${vertex_r_tolerance} > ${max_r_tolerance}} {
  37    set max_r_tolerance ${vertex_r_tolerance}
  38 }
  39
  40 puts "\nface_a_tolerance = ${face_a_tolerance}"
  41 puts "edge_a_tolerance = ${edge_a_tolerance}"
  42 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
  43 puts "\nmax_a_tolerance = ${max_a_tolerance}"
  44
  45 puts "\nface_r_tolerance = ${face_r_tolerance}"
  46 puts "edge_a_tolerance = ${edge_a_tolerance}"
  47 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
  48 puts "\nmax_r_tolerance = ${max_r_tolerance}\n"
  49
  50 if { ${max_a_tolerance} < ${max_r_tolerance} } {
  51     puts "OCC394 - Error"
  52 } else {
  53     puts "OCC394 - OK"
  54 }
  55
  56 renamevar r result
  57 set 2dviewer 0
  58