2 puts "0028069: Visualization, TKOpenGl - handle flat shading model within GLSL programs"
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
10 restore [locate_data_file occ/fuse.brep] f
12 vdefaults -absDefl 0.5
13 vdisplay -dispMode 1 f
17 vlight add ambient color WHITE
18 vlight add directional dir 1 0 0 color GREEN headlight 1
19 vlight add directional dir -1 0 0 color RED1 headlight 1
21 vrenderparams -shadingModel flat
22 vdump $::imagedir/${::casename}.png