-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
puts "============"
puts "OCC10702"
puts "============"
pload XDE
+vinit
+
meshfromstl m [locate_data_file OMF6391_box.stl]
set x_coord 180
set y_coord 260
-meshdispmode m 2
+vsetdispmode m 2
puts "\nMesh displayed in shading mode"
checkcolor $x_coord $y_coord 0 0 0.36
-meshselmode m 8
+vselmode m 8 1
puts "\nSelection of elements is activated"
vselect $x_coord $y_coord 1
checkcolor $x_coord $y_coord 0 0 0.36
-nodalcolor_id m
+meshcolors m nodal 0
puts "\nDisplay nodal color presentation"
checkcolor $x_coord $y_coord 0.46 0.12 0.37