2 exemples de quadrillage et de cercles dans l'anamorphose conique

diff --git a/img/serie01/LISTE.txt b/img/serie01/LISTE.txt
index 23eccef..6cf6f61 100644 (file)
--- a/img/serie01/LISTE.txt
+++ b/img/serie01/LISTE.txt
@@ -13,4 +13,9 @@ DScitroen.eps::Citro
 -
 exemple_eiffel.png:: Eiffel
 exemple_eiffel.pdf::Eiffel (pdf)
-exemple_eiffel.tex::Eiffel (pdf)
\ No newline at end of file
+exemple_eiffel.tex::Eiffel (pdf)
+-
+anamorphose_conique_cercles.png::cercles
+anamorphose_conique_quadrillage.png::quadrillage
+exemples_pavages_conique.pdf::exemples_pavages_conique (pdf)
+exemples_pavages_conique.tex::exemples_pavages_conique (tex)
\ No newline at end of file

diff --git a/img/serie01/anamorphose_conique_cercles.png b/img/serie01/anamorphose_conique_cercles.png
new file mode 100644 (file)
index 0000000..2be8a42
Binary files /dev/null and b/img/serie01/anamorphose_conique_cercles.png differ

diff --git a/img/serie01/anamorphose_conique_quadrillage.png b/img/serie01/anamorphose_conique_quadrillage.png
new file mode 100644 (file)
index 0000000..d98b8ee
Binary files /dev/null and b/img/serie01/anamorphose_conique_quadrillage.png differ

diff --git a/img/serie01/exemples_pavages_conique.pdf b/img/serie01/exemples_pavages_conique.pdf
new file mode 100644 (file)
index 0000000..e4a057a
Binary files /dev/null and b/img/serie01/exemples_pavages_conique.pdf differ

diff --git a/img/serie01/exemples_pavages_conique.tex b/img/serie01/exemples_pavages_conique.tex
new file mode 100644 (file)
index 0000000..4940f20
--- /dev/null
+++ b/img/serie01/exemples_pavages_conique.tex
@@ -0,0 +1,127 @@
+\documentclass[a4paper]{article}
+\usepackage[T1]{fontenc}
+\usepackage{pst-anamorphosis-add}
+\definecolor{sepia}{rgb}{1,0.8,0.8}
+\begin{document}
+\section{Image d'un pavage avec des cercles}
+\begin{center}
+\psset{type=conical}
+%\psset{unit=0.7}
+\begin{pspicture}[showgrid](-7,-7)(7,7)
+\pscircle[doubleline=true]{3}
+{\psset{linecolor=red}
+\pnodeA(-0.5,-1){I}
+\pnodeA(-0.5,1){J}
+\pnodeA(1,1){K}
+\pnodeA(1,-1){L}
+\pnode(-0.5,-1){I'}
+\pnode(-0.5,1){J'}
+\pnode(1,1){K'}
+\pnode(1,-1){L'}
+\pslineA(-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
+%\psdots[dotsize=2mm](I)(J)(K)(L)(I')(J')(K')(L')
+\psframe(-0.5,-1)(1,1)}
+\multido{\N=-1.5+1.0}{4}{
+\multido{\n=-1.5+1.0}{4}{%
+    \pscircle[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
+    }}
+\multido{\N=-1.5+1.0}{4}{
+\multido{\n=-1.5+1.0}{4}{%
+    \pscircleA[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
+    }}
+\multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\pnodeA(-0.5,-1){I}
+\pnodeA(-0.5,1){J}
+\pnodeA(1,1){K}
+\pnodeA(1,-1){L}
+\pnode(-0.5,-1){I'}
+\pnode(-0.5,1){J'}
+\pnode(1,1){K'}
+\pnode(1,-1){L'}
+\pslineA[linecolor=blue](-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
+\psframe[linecolor=blue](I')(K')
+\psdots[dotsize=2mm,linecolor=red](I)(J)(K)(L)(I')(J')(K')(L')
+\end{pspicture}
+\end{center}
+\section{Esquisse de l'image d'un pavage classique}
+\begin{center}
+%\psset{unit=0.75}
+\begin{pspicture}(-6,-6)(6,6)
+\psset{type=conical}
+\pscircle[doubleline=true]{3}
+\multido{\nY=-2.0+1.0}{4}{%
+\multido{\nX=-2.0+1.0}{4}{%
+    \psframe*[linecolor=sepia](!\nX\space \nY\space)(!\nX\space 0.5 add \nY\space 0.5
+    add)
+    \psframe*[linecolor=sepia](!\nX\space 0.5 add \nY\space 0.5 add)%
+    (!\nX\space 1 add \nY\space 1 add)
+}}
+\multido{\nY=-2.0+1.0}{2}{%
+\multido{\nX=-2.0+1.0}{4}{%
+\psset{linecolor=blue,linewidth=1mm}%
+    \pslineA[fillstyle=solid,fillcolor=cyan!50](!\nX\space \nY\space)(!\nX\space \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space)(!\nX\space \nY\space)
+    }}
+\multido{\nY=0.5+1.0}{2}{%
+\multido{\nX=-1.5+1.0}{4}{%
+\psset{linecolor=red,linewidth=1mm}%
+    \pslineA[fillstyle=solid,fillcolor=sepia](!\nX\space \nY\space)(!\nX\space \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space)(!\nX\space \nY\space)
+    }}
+\pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,0)(-2,0.5)(-1.5,0.5)(-1.5,0)(-2,0)
+\pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,1)(-2,1.5)(-1.5,1.5)(-1.5,1)(-2,1)
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(-1,1)
+    \pslineA(-1,1)(-1,1.5)(-0.5,1.5)(-0.5,1)(-1,1)
+    \closepath}
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(1,1)
+    \pslineA(1,1)(1,1.5)(1.5,1.5)(1.5,1)(1,1)
+    \closepath}
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(0,1)
+    \pslineA(0,1)(0,1.5)(0.5,1.5)(0.5,1)(0,1)
+    \closepath}
+\multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\psline(-2,0)(2,0)
+\psline(0,-2)(0,2)
+\end{pspicture}
+\end{center}
+
+\end{document} 
\ No newline at end of file