let mcolor = [|Graphics.white; Graphics.rgb 0 255 255; Graphics.rgb 255 0 255; Graphics.rgb 255 255 0|]