tests/bugs/xde/bug314

   1 puts "========"
   2 puts "OCC314"
   3 puts "========"
   4 puts ""
   5
   6 param write.iges.brep.mode BRep
   7
   8 restore [locate_data_file OCC314.brep] a1
   9 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinFace1
  10 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxFace1
  11 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinEdge1
  12 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxEdge1
  13 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinVertex1
  14 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxVertex1
  15
  16 ######################################################################
  17 catch {exec rm ${imagedir}/OCC314.igs}
  18 brepiges a1 ${imagedir}/OCC314.igs
  19
  20 igesbrep ${imagedir}/OCC314.igs a2 *
  21
  22 tpcompound a2
  23
  24 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinFace2
  25 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxFace2
  26 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinEdge2
  27 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxEdge2
  28 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinVertex2
  29 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxVertex2
  30
  31
  32 if { $MinFace2 > $MinFace1 } {
  33    puts "Error : MinFace Tolerance is increased"
  34 }
  35
  36 if { $MaxFace2 > $MaxFace1 } {
  37    puts "Error : MaxFace Tolerance is increased"
  38 }
  39
  40 if { $MinEdge2 > $MinEdge1 } {
  41    puts "Error : MinEdge Tolerance is increased"
  42 }
  43
  44 if { $MaxEdge2 > $MaxEdge1 } {
  45    puts "Error : MaxEdge Tolerance is increased"
  46 }
  47
  48 if { $MinVertex2 > $MinVertex1 } {
  49    puts "Error : MinVertex Tolerance is increased"
  50 }
  51
  52 if { $MaxVertex2 > $MaxVertex1 } {
  53    puts "Error : MaxVertex Tolerance is increased"
  54 }
  55
  56 renamevar a2 result
  57
  58 set 2dviewer 0
  59