float intensity = pow(max(0, dot(r, directionToEye)), materialShininess); return light0specular * materialSpecular * intensity;
The following images show a visualization of the specular lighting term (Figure 4) and the model under complete illumination (Figure 5):
This completes Part 1, move on to Part 2.