mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
28 lines
452 B
Plaintext
28 lines
452 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
|
|
vaxo
|
|
vdisplay b
|
|
vfit
|
|
vrotate 0.2 0.0 0.0
|
|
|
|
vshaderprog b phong
|
|
vdump $::imagedir/${::casename}_v1.png
|
|
|
|
vinit View2
|
|
vfit
|
|
vdump $::imagedir/${::casename}_v2.png
|
|
vmoveto 250 250
|
|
vdump $::imagedir/${::casename}_v2sel.png
|
|
vactivate View1
|
|
vdump $::imagedir/${::casename}_v1sel.png
|
|
vclose View2
|