% you need to run "xelatex -shell-escape test.tex"
\documentclass{article}
\usepackage{pdftricks}
\begin{psinputs}
\usepackage[T1,LFE,LAE]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[farsi,english]{babel}
\usepackage{pst-plot}
\usepackage{pst-text}
\end{psinputs}
\usepackage{xepersian}
\settextfont{Yas}
\begin{document}
\title{متن روی منحنی}
\author{وفا خلیقی}
\maketitle
\begin{figure}[h]
\begin{pdfdisplay}
\begin{pspicture}(-3,-3)(3,3)
\psset{linestyle=none}
\pstextpath[l](0,0){%
\parametricplot[plotstyle=curve,%
plotpoints=500]{0}{3000}{%
/r {t 1000 div} def t sin r mul t cos r mul }
}{
\textFR{%
این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید این یک متن است همانطور که می‌بینید
}
}
\end{pspicture}
\end{pdfdisplay}
\caption{یک متن نمونه روی منحنی}
\end{figure}
\end{document}