The Szekeres snark, more new features

\grEmptyCycle and \grCycle can also have options x and y, that set the coordinates of the center of the cycle, or r and d for polar coordinates (r is the radius and d the angle). Here we use these options together with rotation, in order to draw the Szekeres snark.

\newcounter{in}
\newcounter{nex}
\newcounter{ney}
\begin{tikzpicture}[rotate=90,scale=0.8]
  \SetUpVertex[Style={font=\footnotesize\sffamily}]
  \SetVertexNormal[MinSize=12pt,InnerSep=0pt]
  \grEmptyCycle[prefix=x]{5}
  \foreach \x in  {0,1,...,4}{%
    \setcounter{in}{\x}
    \stepcounter{in}
    \pgfmathsetmacro{\rad}{72*\x}
    \grEmptyCycle[RA=1.65,r=4,d=\rad,prefix=\alph{in},rotation=\rad-160]{9}
    \EdgeInGraphLoop*{\alph{in}}{9}
    \Edge(\alph{in}0)(\alph{in}5)
    \Edge(\alph{in}8)(\alph{in}3)
    \foreach \y in {1,4,7}{%
      \Edge(x\x)(\alph{in}\y)}
  }
  \foreach  \x in  {0,1,...,4}{%
    \setcounter{in}{\x}
    \stepcounter{in}
    \pgfmathsetcounter{nex}{mod(\x+1,5)+1}
    \setcounter{ney}{\thenex}
    \Edge(\alph{in}0)(\alph{ney}8)
    \pgfmathsetcounter{nex}{mod(\x+2,5)+1}
    \setcounter{ney}{\thenex}
    \Edge(\alph{in}6)(\alph{ney}2)
  }
\end{tikzpicture}

See also: Original Source by Rafael