% ---------------------------------------------------------------------------- %
%% \file sundial.tex
%% \author Sebastien Beaugrand
%% \sa http://beaugrand.chez.com/
%% \copyright CeCILL 2.1 Free Software license
% ---------------------------------------------------------------------------- %
\documentclass[a4paper]{article}
\pagestyle{empty}
\usepackage{vmargin}
\input config.tex
\setpapersize{custom}{\width}{\height}
\addtolength\width{-1cm}
\addtolength\height{-1cm}
\setmarginsrb{5mm}{5mm}{5mm}{5mm}{0mm}{0mm}{0mm}{0mm}
\usepackage{tikz}
\parindent0mm

\newlength{\ymin}
\setlength{\ymin}{-\height}
\ifdim\horizon<1cm
\else
  \addtolength{\sousStylaire}{\horizon}
\fi
\addtolength{\ymin}{\sousStylaire}

\input{analemma}

% ---------------------------------------------------------------------------- %
% sundial
% ---------------------------------------------------------------------------- %
\newcommand\sundial{
  \ifdim\horizon<1cm
    \draw (-0.1,\sousStylaire) -- (0.1,\sousStylaire);
    \draw (0,0) -- (0,\sousStylaire);
  \else
    \draw (-0.2,0) -- (0.2,0);
    \draw (0,-0.2) -- (0,0.2);
  \fi
  \draw (-\width/2,\horizon) -- (\width/2,\horizon);
  \ifdim\width>59cm
    \draw (-\width/2,\ymin) -- (-\width/2,\sousStylaire);
    \draw (-\width/6,\ymin) -- (-\width/6,\sousStylaire);
    \draw (\width/6,\ymin) -- (\width/6,\sousStylaire);
    \draw (\width/2,\ymin) -- (\width/2,\sousStylaire);
  \fi
  %\clip (-\width/2,\ymin) rectangle (\width/2,0);
  \analemma{06}{7}{8}
  \analemmaThin{06_5}
  \analemma{07}{8}{9}
  \analemmaThin{07_5}
  \analemma{08}{9}{10}
  \analemmaThin{08_5}
  \analemma{09}{10}{11}
  \analemmaThin{09_5}
  \analemma{10}{11}{12}
  \analemmaThin{10_5}
  \analemma{11}{12}{13}
  \analemmaThin{11_5}
  \analemma{12}{13}{14}
  \analemmaThin{12_5}
  \analemma{13}{14}{15}
  \analemmaThin{13_5}
  \analemma{14}{15}{16}
  \analemmaThin{14_5}
  \analemma{15}{16}{17}
  \analemmaThin{15_5}
  \analemma{16}{17}{18}
  \analemmaThin{16_5}
  \analemma{17}{18}{19}
  \analemmaThin{17_5}
  \analemma{18}{19}{20}
}

% ---------------------------------------------------------------------------- %
% main
% ---------------------------------------------------------------------------- %
\begin{document}
\Huge
\begin{tikzpicture}
  \clip (-\width/2,\ymin) rectangle (\width/2,\sousStylaire);
  \sundial
\end{tikzpicture}
\ifdim\width>59cm
  \newpage
  \setpapersize{custom}{210mm}{297mm}
  \begin{tikzpicture}
    \clip (-\width/2,\ymin) rectangle (-\width/6,\sousStylaire);
    \sundial
  \end{tikzpicture}
  \newpage
  \begin{tikzpicture}
    \clip (-\width/6,\ymin) rectangle (\width/6,\sousStylaire);
    \sundial
  \end{tikzpicture}
  \newpage
  \begin{tikzpicture}
    \clip (\width/6,\ymin) rectangle (\width/2,\sousStylaire);
    \sundial
  \end{tikzpicture}
\fi

\end{document}