0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / flat_fuse1
CommitLineData
8c3237d4 1puts "========"
2puts "0028069: Visualization, TKOpenGl - handle flat shading model within GLSL programs"
3puts "========"
4
5vclear
6vclose ALL
7vinit View1
8vviewparams -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
10restore [locate_data_file occ/fuse.brep] f
11tclean f
12vdefaults -absDefl 0.5
13vdisplay -dispMode 1 f
14
15# setup lights
16vlight clear
17vlight add ambient color WHITE
18vlight add directional dir 1 0 0 color GREEN headlight 1
19vlight add directional dir -1 0 0 color RED1 headlight 1
20
21vrenderparams -shadingModel flat
22vdump $::imagedir/${::casename}.png