tests/bugs/demo/bug23130

   1 puts "============"
   2 puts "OCC23130"
   3 puts "============"
   4 puts ""
   5 ###########################################################################
   6 # command "maxtolerance" doesn't work on Windows
   7 ###########################################################################
   8
   9 box b 100 100 100
  10
  11 set info [maxtolerance b]
  12
  13 regexp {nbFaces:+([-0-9.+eE]+)} $info full nbF
  14 regexp {nbEdges:+([-0-9.+eE]+)} $info full nbE
  15 regexp {nbVtx:+([-0-9.+eE]+)} $info full nbV
  16
  17 regexp {Face +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minF maxF
  18 regexp {Edge +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minE maxE
  19 regexp {Vertex +: +Min +([-0-9.+eE]+) +Max +([-0-9.+eE]+) } $info full minV maxV
  20
  21 puts "nbF=${nbF}"
  22 puts "nbE=${nbE}"
  23 puts "nbV=${nbV}"
  24
  25 puts "minF=${minF}"
  26 puts "maxF=${maxF}"
  27
  28 puts "minE=${minE}"
  29 puts "maxE=${maxE}"
  30
  31 puts "minV=${minV}"
  32 puts "maxV=${maxV}"
  33
  34 if { ${nbF} != 6} {
  35   puts "Error: bad value of nbFaces"
  36 }
  37 #
  38 if { ${nbE} != 12} {
  39   puts "Error: bad value of nbEdges"
  40 }
  41 #
  42 if { ${nbV} != 8} {
  43   puts "Error: bad value of nbVtx"
  44 }
  45
  46 set goodTol 1.00000e-07
  47 set tol 1.00000e-07
  48
  49 if { [expr (abs (${minF} - ${goodTol}) )] > ${tol} } {
  50   puts "Error: bad value of minF"
  51 }
  52 if { [expr (abs (${maxF} - ${goodTol}) )] > ${tol} } {
  53   puts "Error: bad value of maxF"
  54 }
  55 if { [expr (abs (${minE} - ${goodTol}) )] > ${tol} } {
  56   puts "Error: bad value of minE"
  57 }
  58 if { [expr (abs (${maxE} - ${goodTol}) )] > ${tol} } {
  59   puts "Error: bad value of maxE"
  60 }
  61 if { [expr (abs (${minV} - ${goodTol}) )] > ${tol} } {
  62   puts "Error: bad value of minV"
  63 }
  64 if { [expr (abs (${maxV} - ${goodTol}) )] > ${tol} } {
  65   puts "Error: bad value of maxV"
  66 }