0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug27629
1 puts "========"
2 puts "0027629: Visualization - apply a correct model-world matrix to normals in fixed function pipeline with enabled zoom persistence"
3 puts "========"
4 puts ""
5
6 vinit View1
7 box b0 25 25 25
8 vdisplay b0 -dispMode 1 -trsfPers zoom
9 vzoom 10
10
11 if { [vreadpixel 220 200 -rgb -name] != "DARKGOLDENROD"} { puts "Error: normals aren't normalized!" }
12
13 vdump ${imagedir}/${test_image}.png