Eine USA-Fahne aus Barcodes erzeugen 

Erzeugen Sie zwei Barcode-Bilder und färben Sie diese in den Farben der US-Flagge ein.

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]=

Kombinieren Sie die Barcode-Bilder zu einer US-Fahne.

In[4]:=

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

Out[4]=