let from_rgb (c : Graphics.color)  = 
        let r = c / 65536  and  g = c / 256 mod 256  and  b = c mod 256 
        in (r,g,b)