1 puts "TODO OCC12345 ALL: OCC817: Error"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
10 #############################
11 ## Bad results of BRepAlgoAPI_Common
12 #############################
14 set InfoList [OCC817 result 10]
17 regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
19 set AccumulatedMeshedVolume 0
20 regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
23 set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
25 if {${percent} > ${percent_max}} {