\documentclass[12pt]{article}
\usepackage[T1]{fontenc}
\usepackage[ansinew]{inputenc}
\usepackage[french]{babel}
\usepackage{pst-anamorphosis-add}
\usepackage{amsmath,amssymb}
\usepackage[a4paper]{geometry}
\usepackage{url}
\title{Liste des macros et des options de `\textsf{pst-anamorphosis}'}
\author{Jürgen Gilg, Manuel Luque, Jean-Michel Sarlat}
\date{16 octobre 2011}
\begin{document}
\maketitle
\begin{abstract}
Le package `\textsf{pst-anamorphosis}' est composé, actuellement, de \mbox{deux~parties~:}
\begin{itemize}
  \item \textsf{`pst-anamorphosis}' qui permet d'afficher l'anamorphose d'un fichier au format .eps ;
  \item \textsf{`pst-anamorphosis-add}' qui est son complément et qui adapte certaines macros de \textsf{PStricks} comme \verb+\psline+ et d'autres détaillées par la suite, au tracé d'anamorphoses personnelles dessinées avec ces commandes. De plus, cette partie permet l'affichage de texte anamorphosé et de dessins au format \textsf{.pst} c'est-à-dire composé de commandes \textsf{PStricks}.
\end{itemize}
Ce package permet de calculer et dessiner les images anamorphiques planes obtenues par les anamorphoses suivantes :
\begin{enumerate}
  \item cylindrique ;
  \item conique ;
  \item sphérique ;
  \item perspective ;
  \item perspective inversée.
\end{enumerate}
\end{abstract}
\section{\textbackslash{}psanamorphosis}
\verb+\psanamorphosis[options](x,y){fichier.eps}+ dessine l'image et l'image anamorphique au point de coordonnées $(x,y)$. Si les coordonnées ne sont pas précisées l'origine est $(0,0)$.

Les \textbf{options}, avec leurs valeurs par défaut :
\begin{itemize}
  \item Le type d'anamorphose \textsf{[type=cylindrical] }, voici les autres :
%
  \begin{itemize}
    \item \textsf{conical}
    \item \textsf{spherical}
    \item \textsf{perspective}
    \item \textsf{inverseperspective}
  \end{itemize}
%
  \item le rayon du cylindre, de la sphère et de la base du cône : \textsf{Rmirror=3} ;
  \item la hauteur du cône, la cote du sommet : \textsf{Zs=5}
  \item l'abscisse de l'observateur (du point de vue, d'où la lettre \textsf{v}) : \textsf{Xv=0} ;
  \item l'ordonnée de l'observateur : \textsf{Yv=-10} ;
  \item la cote de l'observateur : \textsf{Zv=10} ;
  \item L'ordonnée du point de fuite principal $F$ : \textsf{F=10} ;
  \item la distance de $F$ à $F'$ : \textsf{D=4} ;
  \item l'unité du quadrillage ou plutôt le demi-côté du carré : \textsf{ua=2}.
  \item un booléen \textsf{[drawanamorphosis=true]} qui dessine l'image anamorphique et qui positionné à \textsf{[false]} permet de faire des essais de dimensions et de cadrage par rapport au \textit{cercle} de base du miroir ;
  \item un facteur d'échelle \textsf{[scale=1 1]} suivant $x$ et $y$ pour adapter les dimensions de l'image au miroir~;
\end{itemize}
\section{pst-anamorphosis-add}
\subsection{Les macros \textbackslash{}pscircleA, \textbackslash{}pscurveA, \textbackslash{}psccurveA, \textbackslash{}psbezierA, \mbox{\textbackslash{}pnodeA} et \textbackslash{}movetoA}
Ces commandes sont calquées sur celles de PStricks, elles ont donc les mêmes options, elles s'adaptent automatiquement au type d'anamorphose choisi.
\subsection{Un texte}
\verb+\pstextA[options](x,y){texte}+ permet de placer le texte centré au point de coordonnées~$(x,y)$.

Les options de texte :
\begin{itemize}
  \item le type de fonte \textsf{[PSfont=Times-Roman]} ;
  \item la taille en pts \textsf{[fontsize=40]} ;
  \item un facteur d'échelle \textsf{[scale=1 1]}, comme pour les images.
\end{itemize}
\subsection{Un fichier .pst}
Une commande spécifique permet le calcul et l'affichage des fichiers au format \textbf{.pst} : \mbox{\textbf{\textbackslash{}AFP\{fichier.pst\}}.} Cette image peut être mise à une échelle différente ou déplacée si le type d'anamorphose choisie le nécessite, comme dans l'exemple suivant :
\begin{verbatim}
    \psset{Rmirror=3,scale=-0.5 -0.5,translate=0 1.5,type=conical}
    \AFP{tiger.pst}
\end{verbatim}
\section{Exemples}
\subsection{Anamorphose cylindrique}
L'anamorphose cylindrique est celle qui est tracée par défaut si aucun type n'est spécifié. Comme options, elle ne nécessite que le rayon du cylindre, l'abscisse et l'ordonnée du point de vue, comme nous l'avons vu dans la partie théorique la cote du point de vue n'intervient pas. Comme tous les autres types d'anamorphoses, le dessin pourra être mis à l'échelle, si nécessaire, avec l'option \textsf{[scale=sx sy]}.
\begin{center}
\begin{pspicture}[showgrid](-8,-4)(8,10)
\pscircle[doubleline=true]{3}
\psset{Yv=100,linestyle=dotted}
\psanamorphosis[scale=1 -1]{mickey.eps}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=25,scale=1.5 -1,fillcolor=black](0,-3){Mickey}
\end{pspicture}
\end{center}
\begin{verbatim}
\begin{pspicture}[showgrid](-8,-4)(8,10)
\pscircle[doubleline=true]{3}
\psset{Yv=100,linestyle=dotted}
\psanamorphosis[scale=1 -1]{mickey.eps}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=25,scale=1.5 -1,fillcolor=black](0,-3){Mickey}
\end{pspicture}
\end{verbatim}
\subsection{Anamorphose conique}
Comme options, l'anamorphose conique ne nécessite que le rayon de la base du cône \textsf{Rmirror=3}, la hauteur du cône et la cote  \textsf{Zv=10} du point de vue.
\begin{center}
\begin{pspicture}[showgrid](-6,-6)(6,6)
\pscircle[doubleline=true]{3}
\psset{type=conical}
\psanamorphosis[scale=0.25 0.25](0,-1.5){parrot.eps}
\psanamorphosis[scale=-0.25 -0.25](0,1.5){parrot.eps}
\psset{linestyle=dotted}
\multido{\n=-1.50+0.50}{7}{%
    \pnode(! \n\space -2.50){A}
    \pnode(! \n\space -0.50){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.50+0.50}{5}{%
    \pnode(!-1.50 \N){A}
    \pnode(!1.50 \N){B}
    \pslineA(A)(B)
    \psline[linecolor=green](A)(B)
    }
\multido{\n=-1.50+0.50}{7}{%
    \pnode(! \n\space 2.50){A}
    \pnode(! \n\space 0.50){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=2.50+-0.50}{5}{%
    \pnode(!-1.50 \N){A}
    \pnode(!1.50 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=10,fillcolor=green,scale=1.5 1](0,-0.75){Le perroquet}
\pstextA[fontsize=10,fillcolor=green,scale=1.5 -1](0,0.75){Le perroquet}
\end{pspicture}
\end{center}
\begin{verbatim}
\begin{pspicture}[showgrid](-6,-6)(6,6)
\pscircle[doubleline=true]{3}
\psset{type=conical}
\psanamorphosis[scale=0.25 0.25](0,-1.5){parrot.eps}
\psanamorphosis[scale=-0.25 -0.25](0,1.5){parrot.eps}
\psset{linestyle=dotted}
\multido{\n=-1.50+0.50}{7}{%
    \pnode(! \n\space -2.50){A}
    \pnode(! \n\space -0.50){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.50+0.50}{5}{%
    \pnode(!-1.50 \N){A}
    \pnode(!1.50 \N){B}
    \pslineA(A)(B)
    \psline[linecolor=green](A)(B)
    }
\multido{\n=-1.50+0.50}{7}{%
    \pnode(! \n\space 2.50){A}
    \pnode(! \n\space 0.50){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=2.50+-0.50}{5}{%
    \pnode(!-1.50 \N){A}
    \pnode(!1.50 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=10,fillcolor=green,scale=1.5 1](0,-0.75){Le perroquet}
\pstextA[fontsize=10,fillcolor=green,scale=1.5 -1](0,0.75){Le perroquet}
\end{pspicture}
\end{verbatim}
\subsection{Anamorphose hémisphérique}
L'anamorphose sphérique possède comme options le rayon du la sphère et les 3 coordonnées du point de vue. C'est la plus délicate à mettre au point pour que tous les rayons réfléchis par le miroir parviennent à l'\oe{}il.
\begin{center}
\psscalebox{0.75}{
\begin{pspicture}[showgrid](-7,-19)(7,5)
\pscircle[doubleline=true]{5}
\psset{type=spherical,Rmirror=5}
\psanamorphosis[scale=0.4 0.4](0,-4){tiger.eps}
{\psset{linewidth=0.5\pslinewidth}
\multido{\n=-1.00+0.20}{11}{%
    \pnode(! \n\space -4.80){A}
    \pnode(! \n\space -3.20){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }%
\multido{\N=-4.80+0.20}{9}{%
    \pnode(!-1.0 \N){A}
    \pnode(!1.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }%
}
\psbezier[linecolor=red,showpoints=true](-2,-4)(-1,-3.2)(1,-4)(2,-3)
\psbezierA[showpoints=true,linecolor=red](-2,-4)(-1,-3.2)(1,-4)(2,-3)
\end{pspicture}
}
\end{center}
\begin{verbatim}
\begin{pspicture}[showgrid](-7,-19)(7,5)
\pscircle[doubleline=true]{5}
\psset{type=spherical,Rmirror=5}
\psanamorphosis[scale=0.4 0.4](0,-4){tiger.eps}
{\psset{linewidth=0.5\pslinewidth}
\multido{\n=-1.00+0.20}{11}{%
    \pnode(! \n\space -4.80){A}
    \pnode(! \n\space -3.20){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }%
\multido{\N=-4.80+0.20}{9}{%
    \pnode(!-1.0 \N){A}
    \pnode(!1.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }%
}
\psbezier[linecolor=red,showpoints=true](-2,-4)(-1,-3.2)(1,-4)(2,-3)
\psbezierA[showpoints=true,linecolor=red](-2,-4)(-1,-3.2)(1,-4)(2,-3)
\end{pspicture}
\end{verbatim}
\subsection{Anamorphose oblique ou perspective}
Les options sont particulières :
\begin{itemize}
  \item L'ordonnée du point de fuite principal $F$ : \textsf{F=10} ;
  \item la distance de $F$ à $F'$ : \textsf{D=4}
  \item l'unité du quadrillage ou plutôt le demi-côté du carré : \textsf{ua=2}.
  \item Un booléen \textsf{perpsective=true} qui représente l'objet traité en perspective et qui positionné à \textsf{false} donne la représentation inversée c'est-à-dire l'anamorphose oblique.
\end{itemize}
\begin{center}
\begin{pspicture}(-4,-3)(4,12)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=4pt](-3,-3)(3,3)
\psset{ua=3,F=12,D=2}
\psanamorphosis[type=perspective,scale=0.75 0.75](0,0){parrot.eps}
\psset{type=perspective}
\multido{\i=-3+1}{7}{%
    \pnode(! \i\space -3){A}
    \pnode(! \i\space 3){B}
    \psline(A)(B)
    \pslineA[linecolor=red](A)(B)
    }%
\multido{\i=-3+1}{7}{%
    \pnode(!-3 \i){A}
    \pnode(!3 \i){B}
    \pslineA[linecolor=blue](A)(B)
    \psline(A)(B)
    }%
\pstextA[fontsize=35,fillcolor=green](-2.5,2){P}
\pstextA[fontsize=35,fillcolor=green](-2.5,1){A}
\pstextA[fontsize=35,fillcolor=green](-2.5,0){R}
\pstextA[fontsize=35,fillcolor=green](-2.5,-1){R}
\pstextA[fontsize=35,fillcolor=green](-2.5,-2){O}
\pstextA[fontsize=35,fillcolor=green](-2.5,-3){T}
\end{pspicture}
\end{center}
\begin{verbatim}
\begin{pspicture}(-4,-3)(4,12)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=4pt](-3,-3)(3,3)
\psset{ua=3,F=12,D=2}
\psanamorphosis[type=perspective,scale=0.75 0.75](0,0){parrot.eps}
\psset{type=perspective}
\multido{\i=-3+1}{7}{%
    \pnode(! \i\space -3){A}
    \pnode(! \i\space 3){B}
    \psline(A)(B)
    \pslineA[linecolor=red](A)(B)
    }%
\multido{\i=-3+1}{7}{%
    \pnode(!-3 \i){A}
    \pnode(!3 \i){B}
    \pslineA[linecolor=blue](A)(B)
    \psline(A)(B)
    }%
\pstextA[fontsize=35,fillcolor=green](-2.5,2){P}
\pstextA[fontsize=35,fillcolor=green](-2.5,1){A}
\pstextA[fontsize=35,fillcolor=green](-2.5,0){R}
\pstextA[fontsize=35,fillcolor=green](-2.5,-1){R}
\pstextA[fontsize=35,fillcolor=green](-2.5,-2){O}
\pstextA[fontsize=35,fillcolor=green](-2.5,-3){T}
\end{pspicture}
\end{center}
\end{verbatim}

\subsection{Perspective inversée}
Ceci est extrait de la page 59 du Baltrušaïtis :

<< L'arrangement peut fonctionner dans les deux sens. Si le carré en perspective se présente comme un trapèze, le trapèze y apparaît comme un carré.
Un renversement du point de vue ramené au dessus du point principal (à une hauteur égale à l'éloignement de la distance) et installé en quelque sorte dans le tableau, aboutit à un effet contraire. Les mêmes rétrécissements corrigent les formes et les rapprochent au lieu de les éloigner et de les altérer, comme dans un film à l'envers. La perspective est à rebours.
>>
\begin{center}
\psscalebox{2}{
\begin{pspicture}(-3,-8)(3,3)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=6pt](-3,-3)(3,-6)
\psset{ua=3,F=14,D=3,type=inverseperspective,linewidth=0.5\pslinewidth}
\multido{\i=-3+1}{7}{%
    \pnode(! \i\space -3){A}
    \pnode(! \i\space 3){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }%
\multido{\i=-3+1}{7}{%
    \pnode(!-3 \i){A}
    \pnode(!3 \i){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }%
\psanamorphosis{tiger.eps}
\psset{fillcolor={[cmyk]{0.2 0.55 0.85 0.0}},linecolor={[cmyk]{0.2 0.55 0.85 0.0}},fontsize=40,scale=1.32 1}
\pstextA(0,2){TIGRE*}
\pstextA(-2.48,1){I}
\pstextA(-2.48,0){G}
\pstextA(-2.48,-1){R}
\pstextA(-2.48,-2){E}
\pstextA(-2.48,-3){*}
\end{pspicture}
}
\end{center}
\begin{verbatim}
\begin{pspicture}(-3,-4)(3,3)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=6pt](-3,-3)(3,-6)
\psset{ua=3,F=14,D=3,type=inverseperspective,linewidth=0.5\pslinewidth}
\multido{\i=-3+1}{7}{%
    \pnode(! \i\space -3){A}
    \pnode(! \i\space 3){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }%
\multido{\i=-3+1}{7}{%
    \pnode(!-3 \i){A}
    \pnode(!3 \i){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }%
\psanamorphosis{tiger.eps}
\psset{fillcolor={[cmyk]{0.2 0.55 0.85 0.0}},linecolor={[cmyk]{0.2 0.55 0.85 0.0}},fontsize=40,scale=1.32 1}
\pstextA(0,2){TIGRE!}
\pstextA(-2.48,1){I}
\pstextA(-2.48,0){G}
\pstextA(-2.48,-1){R}
\pstextA(-2.48,-2){E}
\pstextA(-2.48,-3){!}
\end{pspicture}
\end{verbatim}
\section{Les fichiers pst}
\begin{center}
\begin{pspicture}[showgrid](-5,-6)(5,3)
\rput(0,-1.3333){%
\psscalebox{0.6667}{%
\begin{pspicture}(-6,-8)(6,4)
\psset{Xv=0,Yv=-100}
\pscircle[doubleline=true,linecolor=black]{3}
\input{luckyluke.pst}
\AFP{luckyluke.pst}
\psset{linewidth=0.5\pslinewidth}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\end{pspicture}
}}
\end{pspicture}
\end{center}
\begin{verbatim}
\begin{pspicture}(-6,-8)(6,4)
\psset{Xv=0,Yv=-100}
\pscircle[doubleline=true,linecolor=black]{3}
\input{luckyluke.pst}
\AFP{luckyluke.pst}
\psset{linewidth=0.5\pslinewidth}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\end{pspicture}
\end{verbatim}
Les fichiers \textsf{pst} sont des fichiers de commandes PStricks obtenues par conversion d'un fichier \textsf{.eps} au moyen d'un script écrit par Jean-Michel Sarlat.

L'anamorphose d'une telle image est obtenue à l'aide d'une seule commande \verb+\AFP{luckyluke.pst}+. De tels fichiers pourront donc être obtenues au moyen du script ou bien directement sur le serveur de \textsf{syracuse} (adresse à préciser).

En fonction de la complexité du fichier (du nombre de lignes de commandes qu'il contient) il sera nécessaire d'allouer un supplément de mémoire à \TeX. Par exemple, sous Windows, à partir de MikTeX 2.8, Alexander Grahn donne la procédure à suivre dans la documentation de son package : `\textsf{The animate}'
\begin{verbatim}
1. Open a DOS command prompt window (execute ‘cmd.exe’ via ‘Start’! ‘Run’).
2. At the DOS prompt, enter
initexmf --edit-config-file=latex
3. Type
main_memory=10000000
into the editor window that opens, save the file and quit the editor.
4. To rebuild the format, enter
initexmf --dump=latex
5. Repeat steps 2–4 with config

initexmf --edit-config-file=pdflatex
main_memory=10000000
initexmf --dump=pdflatex

initexmf --edit-config-file=xelatex
main_memory=10000000
initexmf --dump=xelatex
\end{verbatim}
\section{Normalisation d'une image au format eps}
Il est souvent nécessaire de ``préparer'' l'image à anamorphoser. Voici le détail de la procédure suivie à partir d'une image de Donald Duck capturée sur un site de coloriage.

\url{http://www.waouo.com/wp-content/uploads/2011/06/coloriagedonaldduck.jpg}

\begin{enumerate}
  \item Transformer l'image au format \textsf{bmp} avec \textsf{The Gimp}(par exemple).
  \item Vectoriser l'image avec \textsf{Potrace}, en ligne de commande : \textsf{potrace donald.bmp donald2.eps}
  \item Avec \textsf{pstoedit} convertir au format vectoriel ps simplifié avec courbes. On peut opérer en ligne de commande : \textsf{pstoedit -f ps donald2.eps donald1.eps} ou bien avec \textsf{GSview} dans le menu Edition, cliquer sur \textsf{Conversion vers un format vectoriel} et choisir \textsf{ps : Simplified Postscript with curves}, on enregistre sous le nom \textsf{donald1.eps}.
  \item Avec votre éditeur de texte rechercher à la fin du fichier la ligne qui donne les dimensions de la boîte : \verb+%%BoundingBox: 4 7 453 640+ .
  \item La hauteur de l'image eps est 640-7 =633\,pts, c'est la plus grande dimension. Supposons que votre image finale doive posséder une longueur de 4\,cm dans sa plus grande dimension.  Sachant que 1\,cm vaut 28.45274 pts, il faut donc lui appliquer un facteur d'échelle égal à $\dfrac{4\times28.45274}{633}$.
\item Ensuite il faut déplacer cette image pour que le centre de celle-ci soit à l'origine $(0,0)$, il faut donc appliquer la translation $-\dfrac{453+4}{2},-\dfrac{640+7}{2}$, ce qui convertit en postscript se traduira par l'ajout de ces deux lignes dans le fichier \textsf{donald1.eps}, au début du fichier juste après la ligne : \verb+%%Page: 1 1+
\begin{verbatim}
    4 28.45274 mul 633 div dup scale
    4 453 add 2 div neg 640 7 add 2 div neg translate
\end{verbatim}
    On enregistre ce fichier.
\item \textsf{pstoedit} intervient à nouveau, avec les mêmes options, et on enregistre le fichier final sous le nom : \textsf{donald.eps}.
\end{enumerate}
\begin{center}
\begin{pspicture}[showgrid](-8,-4)(8,10)
\pscircle[doubleline=true]{3}
\psset{Yv=100,linestyle=dotted}
\psanamorphosis[scale=1 -1](0,0){donald.eps}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=25,scale=1.5 -1,fillcolor=black](0,-2.5){Donald}
\end{pspicture}
\end{center}
\begin{verbatim}
\begin{pspicture}[showgrid](-8,-4)(8,10)
\pscircle[doubleline=true]{3}
\psset{Yv=100,linestyle=dotted}
\psanamorphosis[scale=1 -1](0,0){donald.eps}
\multido{\n=-2.00+0.50}{9}{%
    \pnode(! \n\space -2.00){A}
    \pnode(! \n\space 2.00){B}
    \psline(A)(B)
    \pslineA(A)(B)
    }
\multido{\N=-2.00+0.50}{9}{%
    \pnode(!-2.0 \N){A}
    \pnode(!2.0 \N){B}
    \pslineA(A)(B)
    \psline(A)(B)
    }
\pstextA[fontsize=25,scale=1.5 -1,fillcolor=black](0,-2.5){Donald}
\end{pspicture}
\end{verbatim}
\end{document} 