let rgb_inverse (color:Graphics.color) = (color land 0xff0000) lsr 16, (color land 0x00ff00) lsr 8, color land 0x0000ff