puts "================================================================="
puts "0031479: Modeling Algorithms - exceptiion geometry transformation"
puts "         of triangulation-only shapes (without geometry surface) "
puts "================================================================="
puts ""

restore [locate_data_file bug31479_P-51-Mustang-2.brep] s

# reference data
regexp {([0-9+-.eE]*) faces.* ([0-9+-.eE]*) triangles.* ([0-9+-.eE]*) nodes} [trinfo s] full nbFaces nbTri nbNodes
regexp {Mass :\s*([0-9+-.eE]*)} [vprops s] full mass

set scale 2
set mass [expr $mass * $scale * $scale * $scale]

# scaling
tscale s 0 0 0 $scale -copymesh
checktrinfo s -face $nbFaces -nod $nbNodes -tri $nbTri
checkprops s -v $mass -eps 1.e-5

# rotation
trotate s 0 0 0  0 0 1  90  -copymesh
checktrinfo s -face $nbFaces -nod $nbNodes -tri $nbTri
checkprops s -v $mass -eps 1.e-5

# translation
ttranslate s 0 0 10 -copymesh
checktrinfo s -face $nbFaces -nod $nbNodes -tri $nbTri
checkprops s -v $mass -eps 1.e-5

checkview -display s -2d -path ${imagedir}/${test_image}.png
