[![enter image description here](https://i.stack.imgur.com/ppXNc.jpg)](https://i.stack.imgur.com/ppXNc.jpg)

Here is a start.

```
MapIndexed[Text[Reverse[First[RealDigits[Pi,10,252]]][[Tr@#2]],#]&,
 Table[{t Cos[t],t Sin[t]},{t,0,16Pi,0.2}]]//Graphics

```