0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / opengl / data / shading / flat_fuse1
1 puts "========"
2 puts "0028069: Visualization, TKOpenGl - handle flat shading model within GLSL programs"
3 puts "========"
4
5 vclear
6 vclose ALL
7 vinit View1
8 vviewparams -scale 551.55 -proj 0.85 -0.16 0.51 -up -0.41 0.41 0.82 -at 0.55 0.55 0.55
9
10 restore [locate_data_file occ/fuse.brep] f
11 tclean f
12 vdefaults -absDefl 0.5
13 vdisplay -dispMode 1 f
14
15 # setup lights
16 vlight -clear
17 vlight amblight  -type AMBIENT                 -color WHITE
18 vlight dirlight1 -type DIRECTIONAL -dir  1 0 0 -color GREEN -headlight 1
19 vlight dirlight2 -type DIRECTIONAL -dir -1 0 0 -color RED1  -headlight 1
20
21 vrenderparams -shadingModel flat
22 vdump $::imagedir/${::casename}.png