5 ###########################################################################
6 # command "maxtolerance" doesn't work on Windows
7 ###########################################################################
11 set info [maxtolerance b]
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
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
35 puts "Error: bad value of nbFaces"
39 puts "Error: bad value of nbEdges"
43 puts "Error: bad value of nbVtx"
46 set goodTol 1.00000e-07
49 if { [expr (abs (${minF} - ${goodTol}) )] > ${tol} } {
50 puts "Error: bad value of minF"
52 if { [expr (abs (${maxF} - ${goodTol}) )] > ${tol} } {
53 puts "Error: bad value of maxF"
55 if { [expr (abs (${minE} - ${goodTol}) )] > ${tol} } {
56 puts "Error: bad value of minE"
58 if { [expr (abs (${maxE} - ${goodTol}) )] > ${tol} } {
59 puts "Error: bad value of maxE"
61 if { [expr (abs (${minV} - ${goodTol}) )] > ${tol} } {
62 puts "Error: bad value of minV"
64 if { [expr (abs (${maxV} - ${goodTol}) )] > ${tol} } {
65 puts "Error: bad value of maxV"