-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
- puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
-
puts "================"
puts "OCC137"
puts "================"
vfit
vsetdispmode 1
-vselmode FACE ON
+# FACE ON
+vselmode 4 1
+
set x 170
set y 80
vselect $x $y
-set only_screen 1
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png