File: phong_box

package info (click to toggle)
opencascade 7.3.0%2Bdfsg1-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 278,376 kB
  • sloc: cpp: 1,136,010; ansic: 81,569; tcl: 14,864; cs: 5,173; java: 1,522; xml: 468; sh: 375; perl: 37; makefile: 25
file content (27 lines) | stat: -rw-r--r-- 449 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
puts "========"
puts "Per-pixel lighting using GLSL program (Phong shading)"
puts "========"

# create box
box b 1 2 3

# draw box
vclear
vclose ALL
vinit View1
vsetdispmode 1
vaxo
vdisplay b
vfit
vrotate 0.2 0.0 0.0

# take snapshot with fixed pipeline
vdump $::imagedir/${::casename}_OFF.png
vshaderprog b phong
vdump $::imagedir/${::casename}_ph1.png

vclear
vdisplay b
vshaderprog b phong
vdump $::imagedir/${::casename}_ph2.png
vmoveto 250 250