2 puts "Test various Shading Models assigned per-object"
8 vinit View1 -width 912 -height 912
10 # define spheres with a rough triangulation to easily distinguish Shading Models
12 copytranslate p2 p1 40 0 0
13 copytranslate p3 p1 20 20 0
14 copytranslate p4 p1 0 40 0
15 copytranslate p5 p1 40 40 0
16 compound p1 p2 p3 p4 p5 ss
18 vdefaults -autoTriang 0
21 vdisplay -dispMode 1 p1 p2 p3 p4 p5
22 vdrawparray p6 triangles v 0 55 0 v 0 75 0 v 20 55 0 v 0 55 0 v 0 75 0 v 0 55 20 v 0 55 0 v 0 55 20 v 20 55 0 v 0 75 0 v 0 55 20 v 20 55 0
23 vdrawparray p7 triangles v 40 55 0 v 40 75 0 v 60 55 0 v 40 55 0 v 40 75 0 v 40 55 20 v 40 55 0 v 40 55 20 v 60 55 0 v 40 75 0 v 40 55 20 v 60 55 0
27 vdump $::imagedir/${::casename}_defaults.png
29 # customize shading models
30 vaspects p1 -setShadingModel VERTEX
31 vdrawtext t1 Graphic3d_TOSM_VERTEX -pos 10 5 10 -color RED -aspect BOLD
32 vaspects p2 -setShadingModel FRAGMENT
33 vdrawtext t2 Graphic3d_TOSM_FRAGMENT -pos 50 5 10 -color RED -aspect BOLD
34 vaspects p3 -setShadingModel DEFAULT
35 vdrawtext t3 Graphic3d_TOSM_DEFAULT -pos 30 25 10 -color RED -aspect BOLD
36 vaspects p4 -setShadingModel UNLIT
37 vdrawtext t4 Graphic3d_TOSM_UNLIT -pos 10 45 10 -color RED -aspect BOLD
38 vaspects p5 -setShadingModel FACET
39 vdrawtext t5 Graphic3d_TOSM_FACET -pos 50 45 10 -color RED -aspect BOLD
40 vaspects p6 -setShadingModel DEFAULT
41 vdrawtext t6 Graphic3d_TOSM_DEFAULT -pos 10 65 10 -color RED -aspect BOLD
42 vaspects p7 -setShadingModel FACET
43 vdrawtext t7 Graphic3d_TOSM_FACET -pos 50 65 10 -color RED -aspect BOLD
44 vdisplay -topmost t1 t2 t3 t4 t5 t6 t7
45 vdump $::imagedir/${::casename}.png