## The mesh should not rebuild on copied shape
###############################
-proc CHECKMESH {data nb_tria nb_nodes defl tol} {
- regexp {This shape contains ([0-9]+) triangles.\s* ([0-9]+) nodes.} $data dummy cur_nb_tria cur_nb_nodes
- regexp {Maximal deflection ([-0-9.+eE]+)} $data dummy cur_defl
-
- if {$nb_tria == $cur_nb_tria && $nb_nodes == $cur_nb_nodes && abs($defl - $cur_defl) <= $tol} {
- puts "OK: Triangulation is not changed"
- } else {
- if {$nb_tria != $cur_nb_tria} {
- puts "Error: Wrong number of triangles, $cur_nb_tria instead of $nb_tria"
- }
- if {$nb_nodes != $cur_nb_nodes} {
- puts "Error: Wrong number of nodes, $cur_nb_nodes instead of $nb_nodes"
- }
- set diff [expr {abs($defl - $cur_defl)}]
- if {$diff > $tol} {
- puts "Error: Wrong deflection, $cur_defl instead of $defl (difference is $diff)"
- }
- }
- puts ""
-}
-
-###############################
-
-
pload MODELING
set tol 1.0e-7
# Remesh initial face and check it is not changed
incmesh f 1.0
-set data [trinfo f]
-CHECKMESH $data $base_tria $base_nodes $base_defl $tol
+checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
# Compare mesh info from copied shape
-set data [trinfo fc]
-CHECKMESH $data $base_tria $base_nodes $base_defl $tol
+checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
# Remesh copied shape and compare mesh once again
incmesh fc 1.0
-set data [trinfo fc]
-CHECKMESH $data $base_tria $base_nodes $base_defl $tol
+checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
copy fc result
checkview -display result -3d -path ${imagedir}/${test_image}.png