Function calc_specular_alpha 

fn calc_specular_alpha(r: u8, g: u8, b: u8) -> u8