Enigma.tex

\documentclass[a4paper]{article}
 
\usepackage{multido}
\usepackage{pstcol}
 
\begin{document}
 
% Enigma from Isia Leviant
\pspicture*(-6,-6)(6,6)
  \degrees[240]
  \SpecialCoor
  \multido{\iAngleA=1+2,\iAngleB=2+2}{120}{%
    \pspolygon*(1;\iAngleA)(9;\iAngleA)(9;\iAngleB)(1;\iAngleB)}
  \multido{\nHueA=1.00+-0.12,\nRadiusA=2.0+1.5}{3}{%
    \multido{\nHueB=\nHueA+-0.04,\nRadiusB=\nRadiusA+0.4}{2}{%
      \definecolor{MyColor}{hsb}{\nHueB,1,1}%
      \pscircle[linewidth=0.4,linecolor=MyColor]{\nRadiusB}}}
\endpspicture
 
% From Baingio Pinna
\def\PstMyDiamond#1#2{{%
\psset{dimen=middle,unit=0.1,linewidth=2\pslinewidth,arrows=c-c}%
\psline(0,-3)(-2,#1)(0,3)
\psline[linecolor=white](0,-3)(2,#2)(0,3)}}
%
\pspicture(-5,-5)(5,5)
  \SpecialCoor
  \psframe*[linecolor=lightgray](-5,-5)(5,5)
  \psdot[dotstyle=B+,dotscale=3]
  \degrees[48]
  \multido{\iAngle=1+2,\nRotation=4.5+2.0}{24}{%
    \rput{\nRotation}(3.5;\iAngle){\PstMyDiamond{-1}{1}}}
  \degrees[62]
  \multido{\iAngle=1+2,\nRotation=-3.5+2.0}{31}{%
    \rput{\nRotation}(4.25;\iAngle){\PstMyDiamond{1}{-1}}}
\endpspicture
 
\end{document}