tests/bugs/xde/bug470

   1 puts "========================"
   2 puts " OCC470 "
   3 puts "========================"
   4
   5 restore [locate_data_file OCC470.brep] a
   6
   7 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinFace1
   8 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxFace1
   9 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinEdge1
  10 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxEdge1
  11 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinVertex1
  12 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxVertex1
  13
  14 fixshape result a 1.e-7 0.1
  15
  16 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinFace2
  17 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxFace2
  18 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinEdge2
  19 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxEdge2
  20 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinVertex2
  21 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxVertex2
  22
  23 if { $MinFace2 > $MinFace1 } {
  24    puts "Error : MinFace Tolerance is increased"
  25 }
  26
  27 if { $MaxFace2 > $MaxFace1 } {
  28    puts "Error : MaxFace Tolerance is increased"
  29 }
  30
  31 if { $MinEdge2 > $MinEdge1 } {
  32    puts "Error : MinEdge Tolerance is increased"
  33 }
  34
  35 if { $MaxEdge2 > $MaxEdge1 } {
  36    puts "Error : MaxEdge Tolerance is increased"
  37 }
  38
  39 if { $MinVertex2 > $MinVertex1 } {
  40    puts "Error : MinVertex Tolerance is increased"
  41 }
  42
  43 if { $MaxVertex2 > $MaxVertex1 } {
  44    puts "Error : MaxVertex Tolerance is increased"
  45 }
  46
  47 set 2dviewer 0
  48