let inv_color (c : Graphics.color) = 
        let (r,g,b) = from_rgb c 
        in Graphics.rgb (255-r) (255-g) (255-b)