0023752: Integration of test grid "vpr" into the new testing system

tests/perf/single_mesh_shading/A1

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Rotate V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set A_z 0.1
+for {set i 1} {$i < 100} {incr i} {
+    vrotate 0 0 ${A_z}
+}

tests/perf/single_mesh_shading/A2

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Move V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set D_x 10000
+for {set i 1} {$i < 100} {incr i} {
+    vmoveview ${D_x} 0 0 1
+}

tests/perf/single_mesh_shading/A3

@@ -0,0 +1,11 @@
+puts "3D visualization performance tests"
+puts "Translate V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set D_x 10
+set D_y 10
+set D_z 10
+for {set i 1} {$i < 30} {incr i} {
+    vtranslateview ${D_x} ${D_y} ${D_z} 1
+}

tests/perf/single_mesh_shading/A4

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Turn V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set A_z 0.10
+for {set i 1} {$i < 100} {incr i} {
+    vturnview 0 0 ${A_z} 1
+}

tests/perf/single_mesh_shading/A5

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Panning V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set D_y 10
+for {set i 1} {$i < 30} {incr i} {
+    vpan 0 ${D_y}
+}

tests/perf/single_mesh_shading/A6

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Zoom V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set Zoom 1.05
+for {set i 1} {$i < 20} {incr i} {
+    vzoom ${Zoom}
+}

tests/perf/single_mesh_shading/A7

@@ -0,0 +1,9 @@
+puts "3D visualization performance tests"
+puts "Size V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+set Size 1000
+for {set i 1} {$i < 70} {incr i} {
+    vsetviewsize [expr ${Size} - 10 * $i]
+}

tests/perf/single_mesh_shading/A8

@@ -0,0 +1,8 @@
+puts "3D visualization performance tests"
+puts "Redraw V3d View with 1 MeshVS_Mesh (+ AIS trihedron)"
+puts "Object haves shading mode"
+
+
+for {set i 1} {$i < 100} {incr i} {
+    vrepaint
+}

tests/perf/single_mesh_shading/begin

@@ -0,0 +1,9 @@
+pload XSDRAW
+vinit
+meshfromstl m [locate_data_file b.stl]
+vtrihedron tri
+meshdispmode m 2
+
+vzoom 0.1
+
+dchrono tmr start