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