mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-09-04 11:47:53 +08:00
kgv
26 lines
433 B
Plaintext
26 lines
433 B
Plaintext
puts "========"
|
|
puts "Per-pixel lighting using GLSL program (Phong shading)"
|
|
puts "========"
|
|
|
|
# create box
|
|
box b 1 2 3
|
|
|
|
# draw box
|
|
vinit View1
|
|
vclear
|
|
vsetdispmode 1
|
|
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
|