\documentclass{article}
\usepackage{coordsys}
\usepackage{xepersian} 
\settextfont{XB Niloofar}
\setdigitfont{XB Niloofar}
\begin{document}

\begin{flushleft}
\begin{picture}(0,0)(10,10)
\renewcommand{\hthickratio}{6}
\rescaleby[\pi]{1}{180}{\hlabel}
\rescaleby{1}{100}{\vlabel}
\coordsys[15][10](0,-100)(400,115)
\put(90,50){\circle{6}}
\end{picture}
\end{flushleft}

\end{document}