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