Shading systems in Ada