1puts "============"
2puts "0032206: Visualization, TKOpenGl - move out OpenGL ES support to dedicated library TKOpenGles"
3puts "============"
4puts ""
5
6set to_dump_screen 0
7pload MODELING VISUALIZATION
8vdriver -load GLES
9vclear
10vinit View1
11box b 3 0 0 1 2 3
12psphere s 1
13vdisplay -dispMode 1 b s
14set anInfo [vglinfo]
15if { [regexp {OpenGL ES} $anInfo] } {
16  puts "OK: OpenGL ES has been found"
17} else {
18  puts "Error: OpenGL ES is expected"
19}
20vfit
21vrenderparams -shadingModel PHONG
22vdump ${imagedir}/${casename}.png
23