0030690: Draw Harness - provide XDisplay command for displaying XDE document
[occt.git] / tests / v3d / glsl / shading_models
1 puts "========"
2 puts "Test various Shading Models assigned per-object"
3 puts "========"
4
5 # setup viewer
6 vclear
7 vclose ALL
8 vinit View1 -width 912 -height 912
9
10 # define spheres with a rough triangulation to easily distinguish Shading Models
11 psphere p1 10
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
17 incmesh ss 1
18 vdefaults -autoTriang 0
19
20 # display objects
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
24 vtop
25 vrotate -0.9 0.1 0
26 vfit
27 vdump $::imagedir/${::casename}_defaults.png
28
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