let parse_color file =
        let s = input_line (open_in file) in
        let (s1, s2, s3) = ( (Resolution.monsub s 1 2), (Resolution.monsub s 5 2), (Resolution.monsub s 9 2)) in
        Graphics.rgb (int_of_hex2 s1) (int_of_hex2 s2) (int_of_hex2 s3)