Symbol Plotting

v=Table[{1/Cos[-Pi/2+3Pi*i/100],Tan[-Pi/2+Pi*i/100]},
{i,Join[Range[1,99,1],Range[101,199,1]]}];
L=Table [{v[[i,1]]/(v[[i,1]]^2+v[[i,2]]^2),
v[[i,2]]/(v[[i,1]]^2+v[[i,2]]^2)},{i,198}];
Graphics[Table[Style[Text[CharacterRange["砀","礀"][[i]],
L[[i]]],12,Hue[i/200]],{i,198}],
ImageSize->{600,400},AspectRatio->2/3,Frame->True,
GridLines->Automatic,Background->RGBColor["silver"]]