Il s'agit d'un essai de reproduction de la mosaïque qui orne la tête de Méduse, mosaïque conservée au musée Paul Getty à Los Angeles :
Mosaic-Floor-with-Head-of-Medusa1.jpg
C'est la suite des articles précédents consacrés aux mosaïques :
http://pstricks.blogspot.fr/2017/04/arc-en-ciel-en-spirales.html
http://pstricks.blogspot.fr/2017/04/mosaiques-en-spirale-le-package.html
http://pstricks.blogspot.fr/2017/04/mosaiques-en-spirale-une-animation.html
http://pstricks.blogspot.fr/2017/03/mosaiques-en-spirale.html
La package pst-spiralmosaic est dans le répertoire :
Le listing :
\documentclass[12pt]{article}
\usepackage[a4paper,margin=2cm]{geometry}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{pst-spiralmosaic,multido}
\usepackage[colorlinks]{hyperref}
% manuel.luque27@gmail.com
\title{Reproduction de la mosaïque qui orne la tête de Méduse}
\author{manuel.luque27@gmail.com}
\date{10 avril 2017}
\definecolor{marron}{rgb}{0.87,0.6,0.087}
\begin{document}
\maketitle
Il s'agit d'un essai de reproduction de la mosaïque qui orne la tête de Méduse. Mosaïque conservée au musée Paul Getty à Los Angeles :
\centerline{\footnotesize\url{http://www.thehistoryblog.com/wp-content/uploads/2016/04/Mosaic-Floor-with-Head-of-Medusa1.jpg}}
Dans mon exemple, ce sont des spirales d'Archimède qui génèrent la mosaïque avec le package \textsf{pst-spiralmosaic}, il reste à placer la tête de Méduse au centre.
\begin{center}
\def\mosaicA{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=white,colorA=marron,colorB=marron]}%
\def\mosaicB{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=blue,colorB=white,colorA=white]}%
\begin{pspicture}(-5.2,-5.2)(5.2,5.2)
\multido{\n=0.0+0.5,\I=1+1,\N=0.5+0.5}{10}{%
\psclip{\pscustom[linestyle=none]{\psarc(0,0){\n}{0}{360}\psarcn(0,0){\N}{360}{0}}}
\ifodd\I \mosaicA \else \mosaicB \fi\endpsclip%}
}%%
\pscircle[linewidth=0.1]{5.1}
\end{pspicture}
\end{center}
%\end{document}
2 variantes :
\begin{center}
\def\mosaicA{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=white,colorA=red,colorB=red]}%
\def\mosaicB{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=blue,colorB=white,colorA=white]}%
\begin{pspicture}(-5.2,-5.2)(5.2,5.2)
\multido{\n=0.0+0.5,\I=1+1,\N=0.5+0.5}{10}{%
\psclip{\pscustom[linestyle=none]{\psarc(0,0){\n}{0}{360}\psarcn(0,0){\N}{360}{0}}}
\ifodd\I \mosaicA \else \mosaicB \fi\endpsclip%}
}%%
\pscircle[linewidth=0.1]{5.1}
\end{pspicture}
\end{center}
\begin{center}
\def\mosaicA{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=white,colorA=red,colorB=red]}%
\def\mosaicB{\psSpiralMosaic[n=20,k=2,linestyle=none,backgroundcolor=blue,colorB=white,colorA=white]}%
\begin{pspicture}(-5.2,-5.2)(5.2,5.2)
\multido{\i=1+1}{8}{%
\pstVerb{/radius1 \i\space 2 div def /radius2 radius1 0.5 add def}%
\psclip{\pscustom[linestyle=none]{\psarc(0,0){!radius1}{0}{360}\psarcn(0,0){!radius2}{360}{0}}}
\ifodd\i\mosaicA \else\rput{!360 12 div}{\mosaicB}\fi
\endpsclip%}
}%%
\end{pspicture}
\end{center}
\end{document}
Aucun commentaire:
Enregistrer un commentaire