392ac980 |
1 | puts "========" |
2 | puts "Per-pixel lighting using GLSL program (Phong shading)" |
3 | puts "========" |
4 | |
5 | # create box |
6 | box b 1 2 3 |
7 | |
8 | # draw box |
392ac980 |
9 | vclear |
8e0a2b19 |
10 | vclose ALL |
11 | vinit View1 |
392ac980 |
12 | vsetdispmode 1 |
12381341 |
13 | vaxo |
392ac980 |
14 | vdisplay b |
15 | vfit |
16 | vrotate 0.2 0.0 0.0 |
17 | |
18 | # take snapshot with fixed pipeline |
19 | vdump $::imagedir/${::casename}_OFF.png |
20 | vshaderprog b phong |
21 | vdump $::imagedir/${::casename}_ph1.png |
22 | |
23 | vclear |
24 | vdisplay b |
25 | vshaderprog b phong |
26 | vdump $::imagedir/${::casename}_ph2.png |
27 | vmoveto 250 250 |