Column[{#,
Row[Graphics[{#, PointSize[0.5], Point[{0, 0}]},
ImageSize -> 50] & /@ ColorData[#, "ColorList"]]} & /@
Range[62]]
Column[{#,
Row[Graphics[{#, PointSize[0.5], Point[{0, 0}]},
ImageSize -> 50] & /@ ColorData[#, "ColorList"]]} & /@
Range[62]]
转载于:https://www.cnblogs.com/dabaopku/archive/2012/03/30/2425625.html