Mad Chemiker

かなり前に twitter に投稿したネタですが、せっかくなのでここに載せておきます。

基本的には TikZ & PGF Manual からのコピペです。ヒルベルト曲線の部分については 今さら人から聞かれない（誰も覚えてないから）アレの組みかた をご参照下さい。

• 

• 

\documentclass[12pt]{article}

\usepackage{tikz}
\usepackage{tikzducks}
\usetikzlibrary{decorations.shapes}

% ------------------------------------------------------------
% Hilbert-Curve
% from http://www.texample.net/tikz/examples/hilbert-curve/
% (by Marc van Dongen)
%
\usepackage{ifthen}

\newdimen\HilbertLastX
\newdimen\HilbertLastY
\newcounter{HilbertOrder}

\def\DrawToNext#1#2{%
   \advance \HilbertLastX by #1
   \advance \HilbertLastY by #2
   % \pgfpathlineto{\pgfqpoint{\HilbertLastX}{\HilbertLastY}}
   \pgfplotstreampoint{\pgfqpoint{\HilbertLastX}{\HilbertLastY}}
}

% \Hilbert[right_x,right_y,left_x,left_x,up_x,up_y,down_x,down_y]
\def\Hilbert[#1,#2,#3,#4,#5,#6,#7,#8] {
  \ifnum\value{HilbertOrder} > 0%
     \addtocounter{HilbertOrder}{-1}
     \Hilbert[#5,#6,#7,#8,#1,#2,#3,#4]
     \DrawToNext {#1} {#2}
     \Hilbert[#1,#2,#3,#4,#5,#6,#7,#8]
     \DrawToNext {#5} {#6}
     \Hilbert[#1,#2,#3,#4,#5,#6,#7,#8]
     \DrawToNext {#3} {#4}
     \Hilbert[#7,#8,#5,#6,#3,#4,#1,#2]
     \addtocounter{HilbertOrder}{1}
  \fi
}

% ------------------------------------------------------------
\begin{document}

\pagecolor{black}

\def\duckwidth{15pt}
\def\duckscale{0.2}
\def\duckhilbertscale{12}

\pgfdeclaredecoration{duck}{initial}
{
   \state{initial}[width=\duckwidth]
   {
     \begin{scope}[scale=\duckscale]
       \duck
     \end{scope}
   }
   \state{final}
   {
      \pgfpathlineto{\pgfpointdecoratedpathlast}
   }
}

\tikz[scale=\duckhilbertscale] {
  \pgfplothandlercurveto
  \pgfplotstreamstart
  \pgfpathmoveto{\pgfqpoint{\HilbertLastX}{\HilbertLastY}};
  \setcounter{HilbertOrder}{3}
  \Hilbert[1.25mm,0mm,-1.25mm,0mm,0mm,1.25mm,0mm,-1.25mm]
  \fill[decorate,decoration=duck]
}

\end{document}