In[]:=
im=ImageResize
,Scaled[1/2]
Out[]=
In[]:=
DominantColors[im]
Out[]=
{
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
}
In[]:=
ImageCompose[im,​​GraphicsRow[Table[Graphics[Style[Polygon[{{0,0},{1,3},{2,3},{3,3},{7,3}}],color],ImageSizeTiny],​​{color,Take[DominantColors[im],5]}]]]
Out[]=