سوال مشابهی در اینجا پرسیده شده، که وفا لطف کرده، جواب داده است.
اما سواد اندک من مانع شد که اعداد شکل زیر را پارسی کنم.
\documentclass{article}
\usepackage{mpgraphics}
\usepackage{xepersian}
\settextfont{Yas}
\begin{ltxpreamble}
\usepackage[T1,LFE,LAE]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[farsi]{babel}
\end{ltxpreamble}
\begin{document}
\begin{mpdisplay}
% see D.E.Knuth, The Metafont Book, p.173
numeric p[]; boolean n_is_prime; p[1]=2; k:=1;
for n=3 step 2 until infinity:
n_is_prime := true;
for j=2 upto k:
if n mod p[j]=0: n_is_prime := false; fi
exitif n/p[j] < p[j];
endfor
if n_is_prime: p[incr k] := n; exitif k=62; fi
endfor fi
draw fullcircle scaled 480 withcolor .673 red;
for r=0 upto 9:
draw fullcircle scaled 2(40+20r) withcolor .7 white;
if r>1: drawarrow origin -- right scaled 240 rotated (12*p[2+r]) withcolor .7 white; fi
endfor
for k=1 upto 62:
label(
%btex $ 5 $ etex,
decimal p[k],
right scaled (40 + 20 floor(p[k]/30)) rotated (p[k]*12));
endfor
\end{mpdisplay}
\end{document}
نکته1: گویا کد متاپست از کنوث است.
نکته2: اگر btex $ 5 $ etex, را فعال و خط زیرش را غیر فعال کنیم. عدد فارسی داریم.
