4 puts "=================================="
5 puts "Poor display of shading on cones due to Gouraud shading limitations"
6 puts "=================================="
8 # set rough meshing parameters
10 vdefaults -absDefl 10 -devCoeff 0.1
12 puts "Displaying two equal cones, one with Phong shader"
13 pcone p_gouraud 10 100 100
14 trotate p_gouraud 0 0 0 0 1 0 -90
16 vsetdispmode p_gouraud 1
17 #vsetmaterial p_gouraud bronze
19 tcopy p_gouraud p_phong
20 ttranslate p_phong 200 0 0
22 vsetdispmode p_phong 1
23 #vsetmaterial p_phong bronze
24 vshaderprog p_phong phong
27 checkview -screenshot -3d -path ${imagedir}/${test_image}.png