Create a Barcoded US Flag 

Create two barcode images and color them based on the dominant colors of the US flag.

In[1]:=

X {blue, red} = Flatten[Nearest[DominantColors[CountryData["USA", "Flag"], 3], #, DistanceFunction -> ColorDistance] & /@ {Blue, Red}]

Out[1]=

In[2]:=

X i1 = ImagePad[ ColorReplace[BarcodeImage["Flag of the ", "QR", {120, 120}], Black -> blue], 3, White]

Out[2]=

In[3]:=

X i2 = ImageRotate[ ColorReplace[BarcodeImage["US", "Code39", {200, 250}], Black -> red]]

Out[3]=

Compose barcode images to create a “barcoded” US flag.

In[4]:=

X ImageCompose[i2, i1, {Left, Top}, {Left, Top}]

Out[4]=