tests/bugs/iges/bug12567

   1 puts "============"
   2 puts "OCC12567"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Swapped first/last vertices or incorrect curve orientation after reading IGES file
   7 ######################################################
   8
   9 igesbrep [locate_data_file bug12567.igs] a *
  10
  11 set tolerance [ maxtolerance a ]
  12
  13 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
  14 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
  15 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
  16
  17 if { $MaxFaceTolerance > 1e-7 || $MaxEdgeTolerance > 1e-7 || $MaxVertexTolerance > 1e-7 } {
  18     puts "Faulty : Tolerance of shape is more then 1e-7"
  19 } else {
  20     puts "Tolerance of shape is <= then 1e-7"
  21 }
  22
  23 view 1 -2D- 728 450 400 400
  24 pcurve a
  25 2dfit
  26
  27 checkview -screenshot -2d -path ${imagedir}/${test_image}.png