0029074: Visualization, TKOpenGl - support Geometry Shader definition
[occt.git] / tests / v3d / glsl / phong_plastic
1 puts "========"
2 puts "Per-pixel lighting using GLSL program (Phong shading), check plastic material"
3 puts "========"
4
5 # create box
6 box b 1 2 3
7
8 # draw box
9 vclear
10 vclose ALL
11 vinit View1
12 vsetdispmode 1
13 vaxo
14 vdisplay     b
15 vsetmaterial b PLASTIC
16 vsetcolor    b GREEN
17 vfit
18 vrotate 0.2 0.0 0.0
19
20 # take snapshot with fixed pipeline
21 vdump $::imagedir/${::casename}_OFF.png
22 set aColorL [vreadpixel 150 250 rgb name]
23 set aColorR [vreadpixel 250 250 rgb name]
24 if { "$aColorL" != "GREEN3" || "$aColorR" != "GREEN4" } {
25   puts "Error: wrong color (fixed pipeline)!"
26 }
27
28 vshaderprog b phong
29 set aColorL [vreadpixel 150 250 rgb name]
30 set aColorR [vreadpixel 250 250 rgb name]
31 if { "$aColorL" != "GREEN3" || "$aColorR" != "GREEN4" } {
32   puts "Error: wrong color (Phong shader)!"
33 }