mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-20 23:15:55 +08:00
29 lines
503 B
Plaintext
29 lines
503 B
Plaintext
puts "========"
|
|
puts "Per-pixel lighting using GLSL program (Phong shading)"
|
|
puts "========"
|
|
|
|
# import model
|
|
restore [locate_data_file occ/fuse.brep] f
|
|
tclean f
|
|
|
|
# draw box
|
|
vinit View1
|
|
vclear
|
|
vdefaults absDefl=0.5
|
|
vsetdispmode 1
|
|
vdisplay f
|
|
vfit
|
|
vrotate -0.5 0.0 0.0
|
|
vfit
|
|
|
|
# take snapshot with fixed pipeline
|
|
vdump $::imagedir/${::casename}_OFF.png
|
|
vshaderprog f phong
|
|
vdump $::imagedir/${::casename}_ph1.png
|
|
|
|
vclear
|
|
vdisplay f
|
|
vshaderprog f phong
|
|
vdump $::imagedir/${::casename}_ph2.png
|
|
vmoveto 250 250
|