RosettaCodeData/Task/Colour-bars-Display/Mathematica/colour-bars-display.math

4 lines
90 B
Plaintext

ArrayPlot[
ConstantArray[{Black, Red, Green, Blue, Magenta, Cyan, Yellow,
White}, 5]]