Color Exploration 2

XY=Table[{Cos[t]Log[t+1],Sin[t]^3 },{t,0,2Pi,.1}];
PM={"☕","⚖","☘","⚜","⚙"};
SM[marker_,i_]:=Text[Style[marker,14,
Values[ColorData["Crayola","ColorRules"]][[i]],
FontVariations->{"Underline" -> True}],XY[[i]]];
GTP[marker_]:=Graphics[Table[SM[marker,i],{i,63}]];
Show[GTP[PM[[1]]],ImageSize->Large]