Merge branch 'master' of ssh://melusine.eu.org:223/pst-anamorphosis

[pst-anamorphosis.git] / img / serie01 / eiffel.tex

diff --git a/img/serie01/eiffel.tex b/img/serie01/eiffel.tex
new file mode 100644 (file)
index 0000000..dd08348
--- /dev/null
+++ b/img/serie01/eiffel.tex
@@ -0,0 +1,47 @@
+\documentclass{article}
+\usepackage{pst-anamorphosis-add}
+\usepackage[a4paper]{geometry}
+\pagestyle{empty}
+\begin{document}
+\def\Cadre{%
+\psframe[fillstyle=solid,fillcolor={[rgb]{0.675 0.935 1}}](-2,-2)(2,7.5)
+\pslineA[fillstyle=solid,fillcolor={[rgb]{0.675 0.935 1}}](-2,-2)(-2,7.5)(2,7.5)(2,-2)(-2,-2)
+\psset{linestyle=dotted}
+\multido{\n=-2.00+0.50}{9}{%
+    \pnode(! \n\space -2.00){A}
+    \pnode(! \n\space 7.5){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    }
+\multido{\N=-2.00+0.50}{20}{%
+    \pnode(!-2.0 \N){A}
+    \pnode(!2.0 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }}
+\begin{center}
+\psscalebox{0.66667}{%
+%\begin{pspicture}[showgrid](-9,-14)(9,8)
+\begin{pspicture}(-9,-14)(9,8)
+\pscircle[doubleline=true,linestyle=dashed]{3}
+\psset{Yv=-100,Xv=0}
+%\Cadre
+\psanamorphosis[scale=3 3,drawanamorphosis=true](0,2.5){eiffel.eps}
+\pstextA[fontsize=15,fillcolor=black,scale=1 2](0,7){La tour Eiffel}
+\psset{fontsize=20,fillcolor=black}
+\pstextA(-1.25,5.5){2}
+\pstextA(-1.25,4.9){0}
+\pstextA(-1.25,4.3){1}
+\pstextA(-1.25,3.7){1}
+\pstextA(1.25,5.5){S}
+\pstextA(1.25,5){y}
+\pstextA(1.25,4.5){r}
+\pstextA(1.25,4){a}
+\pstextA(1.25,3.5){c}
+\pstextA(1.25,3){u}
+\pstextA(1.25,2.5){s}
+\pstextA(1.25,2){e}
+\end{pspicture}
+}
+\end{center}
+\end{document} 
\ No newline at end of file