1. package body GL.Materials is 
  2.  
  3.    function is_Transparent (Self : Material_type) return Boolean is (Self.diffuse (3) < 1.0); 
  4.  
  5. end GL.Materials;