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