% \iffalse meta-comment
%
% Copyright (C) 2025 Alan J. Cain
%
% This file may be distributed and/or modified under the conditions of the LaTeX Project Public Licence, either version
% 1.3c of this licence or (at your option) any later version. The latest version of this licence is in:
%
% http://www.latex-project.org/lppl.txt
%
% and version 1.3c or later is part of all distributions of LaTeX version 2008-05-04 or later.
%
% \fi
%
% \iffalse
%<*driver>
\PassOptionsToPackage{inline}{enumitem}
\documentclass{l3doc}



% Make space for larger numbers in contents

\makeatletter
\ExplSyntaxOn

\cs_gset:Npn \l@subsection { \@dottedtocline{2}{2.5em}{2.8em} }
\cs_gset:Npn \l@subsubsection { \@dottedtocline{3}{5.3em}{4em} }

\ExplSyntaxOff
\makeatother



% Link formatting

\usepackage{xcolor}

\definecolor{linkcolor}{rgb}{0.0,0.4,0.7}
\colorlet{citecolor}{linkcolor}
\colorlet{urlcolor}{linkcolor}

\hypersetup{
 linkcolor=linkcolor,%
 citecolor=citecolor,%
 urlcolor=urlcolor,%
}

\newcommand*\fullref[2]{%
 \hyperref[#2]{#1\penalty 200\ \ref*{#2}}%
}



% Use siunitx for typesetting dimensions

\usepackage{siunitx}
\sisetup{
 mode=match,
}
\DeclareSIUnit\point{pt}



% Listings and grammars

\usepackage{listings}
\lstset{
 language=[LaTeX]TeX,
 basicstyle=\small\ttfamily,
 basewidth=0.5em,
 numbers=left,
 numberstyle=\scriptsize\sffamily,
}

\usepackage{simplebnf}



% Macros for describing keys

\newlist{optionlist}{description}{1}
\setlist[optionlist]{
 leftmargin=3em,
 style=unboxed,
 labelsep=1em,
 font=\descriptionitemcolon,
 nosep,
}
\newcommand*{\descriptionitemcolon}[1]{\kern 1em #1:}


\newcommand*\key[1]{\texttt{#1}}
\newcommand*\val[1]{\texttt{#1}}
\newcommand*\keyval[2]{\texttt{#1=#2}}

\usepackage{xcolor}
\definecolor{keycolor}{rgb}{0.8,0.0,0.0}
\definecolor{keyvaluecolor}{rgb}{0.0,0.65,0.0}

\ExplSyntaxOn

\NewDocumentEnvironment{describekey}{ m m m }{
 \group_begin:
 \group_begin:
 \noindent{\textcolor{keycolor}{\texttt{#1}}}
 \str_if_empty:nF{#2}
   {
     \skip_set:Nn{\parfillskip}{0pt}
     \str_case:nnF{#2}
     {
       {style}
       {
         \hfil
         (style,~initially~#3)
       }
     }
     {
       \textcolor{keyvaluecolor}{\texttt{=}\meta{#2}}
       \str_if_empty:nF{#3}
         {
           \hfil
           (default\nobreakspace\texttt{#3})
         }
     }
   }
 \par
 \group_end:
 \nobreak
 \skip_add:Nn{\leftskip}{\parindent}
 \noindent\ignorespaces
}{
 \par
 \group_end:
}

\ExplSyntaxOff


\newcommand*\mcode[1]{\texttt{#1}}
\newcommand*\param[1]{\texttt{\##1}}



% Other macros

\newcommand*\TikZ{\texorpdfstring{Ti\textit{k}Z}{TikZ}}
\newcommand*\ISO{\textsc{iso}}



% Timechart

\usepackage{timechart}

\input{timechart-example1-setup.tex}



\begin{document}
\DocInput{timechart.dtx}
\end{document}
%</driver>
% \fi
%
%
%
% \GetFileInfo{timechart.sty}
%
%
%
% \title{^^A
% \pkg{timechart} ^^A
%   --- A package for drawing chronological charts^^A
%   \thanks{This file describes \fileversion, last revised \filedate.}^^A
% }
%
% \author{^^A
%  Alan J. Cain^^A
% }
%
% \date{Released \filedate}
%
% \maketitle
%
%
%
% \begin{abstract}
%   This package provides for the easy creation of chronological charts which show visually the relative historical
%   positions of people and events. Each event or period can be specified by a single line of \LaTeX\ code comprising
%   (possibly uncertain) start and finish dates and a label, and the package takes care of indicating the uncertainties
%   and whether intervals extend beyond the specified bounds of the chart.
% \end{abstract}
%
%
%
% \tableofcontents
%
%
%
% \begin{documentation}
%
% \setcounter{secnumdepth}{2}
%
%
% \section{Introduction}
%
% The \pkg{timechart} package provides a system for the easy creation of chronological charts --- of the type pioneered
% by Joseph Priestley (1733--1804) in his `Chart of Biography' and more famously in his `New Chart of
% History'\footnote{\textsc{url}:~\url{https://commons.wikimedia.org/wiki/File:A_New_Chart_of_History_color.jpg}} ---
% which can show visually the relative historical positions of people and events. An example of what \pkg{timechart} can
% be used to produce is shown in \fullref{Figure}{fig:example1} on page~\pageref{fig:example1}.
%
% \begin{figure}[p]
%   \centering
%   \input{timechart-example1-timechart.tex}
%   \caption{Timechart showing the lifetimes of Roman emperors from \timechartmakebeforeyear{50} to
%   \timechartmakeafteryear{500}. Marks on each lifetime indicate the beginning (and, where relevant, the end) of that
%   emperor's reign. Colours generally indicate dynasties, with shades of green indicating periods when the imperial
%   power shifted between many short-reigning emperors.}
%   \label{fig:example1}
% \end{figure}
%
% Essentially (and this was a design requirement), \emph{only one line} of \LaTeX\ code is required for each interval
% (which, in the case of \fullref{Figure}{fig:example1}, are mostly lifetimes). The \pkg{timechart} package takes care
% of indicating ranges of possible dates by suitable fading from or to transparency. It also handles indicators to show
% that intervals continue outside the specified scope of the chart.
%
% \pkg{timechart} was developed from, and replaced, a set of macros used to create the chronological charts in the
% author's book \textit{Form \& Number: A History of Mathematical Beauty}, which is available on the Internet Archive
% under a Creative Commons licence.\footnote{\textsc{url}:
% \url{https://archive.org/details/cain_formandnumber_ebook_large}}
%
%
%
% \paragraph*{Licence.} \noindent\pkg{timechart} is released under the \LaTeX\ Project Public Licence v1.3c or
% later.\footnote{\textsc{url}: \url{https://www.latex-project.org/lppl.txt}}
%
%
%
% \paragraph*{Acknowledgements.} The author thanks Tânia Paulista for reading and commenting on an earlier draft of the
% documentation.
%
%
%
% \section{Requirements}
%
% \pkg{timechart} requires PGF/\TikZ\ and a \LaTeX\ kernel with \pkg{expl3} support (any kernel version since 2020-02-02
% should suffice).
%
%
%
% \section{Installation}
%
% To install manually, run \texttt{tex timechart.ins} and copy the file \file{timechart.sty} to somewhere \LaTeX\ can
% find it.
%
%
%
% \section{Getting started}
%
% The \pkg{timechart} package is loaded as usual via \cs{usepackage}\texttt{\{timechart\}}. There are no package
% options.
%
% The small example in \fullref{Section}{sec:example} illustrates the basic principles of \pkg{timechart}.
% \fullref{Section}{sec:full-example} shows the full code used to produce the large example in \fullref{Figure}{fig:example1}.
%
%
%
%
%
% \section{Example}
% \label{sec:example}
%
% This section illustrates how to create the small chart shown in \fullref{Figure}{fig:example2-v2} on
% page~\pageref{fig:example2-v2}.
%
% The basic environment is \env{timechart}, which includes the specification of the start and finish years. The start
% year \timechartmakebeforeyear{50} is specified as \mcode{-50}, the finish year \timechartmakeafteryear{75} as
% \mcode{75}. Each interval in the chart is specified using the \cs{timechartinterval} command, which takes three
% mandatory parameters: a start year, a finish year, and a label. The following code produces the flawed preliminary
% version shown in \fullref{Figure}{fig:example2-v1}.
%
% \lstinputlisting{timechart-example2-v1.tex}
%
% \begin{figure}[ht]
%   \centering
%   \input{timechart-example2-v1.tex}
%   \medskip
%   \caption{Flawed preliminary version of a chart showing the lifetimes of Roman emperors of the Julio-Claudian
%   dynasty. (The final version is shown in \fullref{Figure}{fig:example2-v2}.)}
%   \label{fig:example2-v1}
% \end{figure}
%
% This first attempt result illustrates some of the principles of \pkg{timechart}. Each interval has been placed on its
% own line. More precisely, the \(y\) coordinate of the first interval is \(0\) and each use of \cs{timechartinterval}
% increments the `current \(y\) coordinate' by a specified amount. (Various commands are available to set the \(y\)
% coordinate manually or to reset it automatically when it passes certain bounds; see
% \fullref{Subsection}{subsec:positioning}.) Horizontally, the chart starts and finishes at the specified years. The topmost
% interval, indicating Augustus' life, has been truncated with an indicator that it begins before the specified start
% year of the chart. Vertically, the chart has been sized to fit around the specified intervals.
%
% But this version is hardly satisfactory, for many reasons. The chart finishes between two minor ticks on the axis,
% because the intervals between major and minor ticks default respectively to 10 years and 50 years. The black intervals
% and text do not contrast well with the black axis and grid. The serif font is perhaps not best suited to label the
% intervals. And the label `Augustus' has been lost, since labels are by default placed on the left of intervals. To
% rectify these problems, some changes are necessary, all of which can be made using key-value syntax in an optional
% parameter to the \env{timechart} environment or the \cs{timechartinterval} command:
% \begin{enumerate}
%     \item Set the intervals between major and minor ticks to 5 years and 25 years respectively, by setting
%           \keyval{minor tick interval}{5} and \keyval{major tick interval}{25}.
%     \item Change the colour of the grid to light grey by appending \keyval{draw}{lightgray} to the \key{grid} style
%     \item Change the colour of the axis to grey by appending \keyval{draw}{gray} to the \key{axis line}, \key{minor
%           tick}, and \key{major tick} styles.
%     \item Change the font used for interval labels to small san-serif by appending \keyval{node
%           font}{\cs{sffamily}\cs{small}} to the \key{interval label} style
%     \item Change the colour of the intervals by defining a style \key{julioclaudian} that sets \keyval{interval bar
%           color}{red!80!black} and applying it to each interval via its optional argument. (While \key{interval bar
%           color} could be set locally for each interval, it is better to define a style that corresponds to the
%           semantic meaning of the colour: in this case, a single dynasty.)
%     \item Use the \key{right} key to place some labels on the right
% \end{enumerate}
%
% The result is the following code, which produces \fullref{Figure}{fig:example2-v2}.
%
% \lstinputlisting{timechart-example2-v2.tex}
%
% \begin{figure}[ht]
%   \centering
%   \input{timechart-example2-v2.tex}
%   \caption{Chart showing the lifetimes of Roman emperors of the Julio-Claudian dynasty.}
%   \label{fig:example2-v2}
% \end{figure}
%
%
%
% \section{Configuration}
%
% All \pkg{timechart} configuration, global or local, is via PGF keys, so some familiarity with their use is beneficial;
% see the PGF/\TikZ\ manual.
%
% Configuration keys for \pkg{timechart} are contained in \key{/timechart/} in the PGF keys hierarchy. The
% \meta{options} passed to the \env{timechart} environment or any of the commands \cs{timechartinterval},
% \cs{timecharttext}, or \cs{timechartspace} are processed within \key{/timechart/} (since \key{/timechart/.cd} is
% executed before keys are processed).
%
% The user may wish to define PGF styles for different kinds of interval within a chart. For example, one could
% define styles \key{science} and \key{art} that set a particular colour for the interval, and write
% \cs{timechartinterval}\key{[science]}\marg{birth}\marg{death}\marg{name} or
% \cs{timechartinterval}\key{[art]}\marg{birth}\marg{death}\marg{name} to distinguish visually the lifetimes of
% various scientists and artists.
%
%
%
% \section{Specifying dates and date ranges}
% \label{sec:dates-and-ranges}
%
% Using \pkg{timechart} requires specification of dates and date ranges for the start and finish of each interval, both
% of which may be uncertain.
%
% The basic specification of a date uses \ISO~8601 format \mcode{YYYY-MM-DD}. This format specifies a date with
% day-level precision; use \mcode{YYYY-MM} and \mcode{YYYY} for month- and year-level precision. If the date is prefixed
% by \mcode{-}, it is treated as the corresponding date before the epoch. (This is a difference with \ISO~8601, in which
% \texttt{0} represents \timechartmakebeforeyear{1}, \texttt{-1} represents \timechartmakebeforeyear{2}, and so on.) So
% (assuming that one is using \textsc{bce}/\textsc{ce}) one uses \mcode{-100} to indicate \timechartmakebeforeyear{100}
% and \mcode{100} to indicate \timechartmakeafteryear{100}. (The era indicators `\textsc{bce}' and `\textsc{ce}' appear
% on the axis. Alternative era indicators --- or a different epoch --- can be specified; see
% \fullref{Section}{sec:era-indicators}.)
%
% A date can be prefixed with a \mcode{c} to indicate `circa', such as \mcode{c-100} for `circa
% \timechartmakebeforeyear{100}' and \mcode{c100} for `circa \timechartmakeafteryear{100}'. When an interval is drawn in
% a chart, `circa' will be indicated by automatically creating (or extending) a range according to the value of the key
% \key{circa uncertainty} (see \fullref{Subsection}{subsec:intervals}).
%
% A date range comprises two dates (each with or without \mcode{c}) separated by a slash \mcode{/}, with the first date
% being earlier (or equal to) the second date. (The slash indicates a range of dates per \ISO~8601.) A date
% range can be used to indicate a broader uncertainty than the default `circa', or to indicate a definite range within
% which an interval starts or ends.
%
% \begin{description}
%     \item[Examples of correctly formatted dates and date ranges:] \mcode{-50}, \mcode{100}, \mcode{c-50},
%           \mcode{c100}, \mcode{-50/100}, \mcode{c-50 / +100}, \mcode{-50/c100}, \mcode{c-50/c100}, \mcode{-585-05-28},
%           \mcode{1947-12-01}, \mcode{1989-11}.
%
%     \item[Examples of incorrectly formatted date and date ranges:] \mcode{100?}, \mcode{100CE}, \mcode{100BCE},
%           \mcode{-50-100}, \mcode{100/-50}.
% \end{description}
%
% \noindent That is, the syntax for dates and date ranges is per the following (not-quite-formal) grammar:
%
% \smallskip
%
% \begin{bnf}
%   \meta{cdate-or-crange} ::= \meta{cdate}
%   | \meta{crange} ;;
%   \meta{cdate} ::= \meta{date}
%   | \mcode{c}\meta{date} ;;
%   \meta{date} ::= \meta{pdate}
%   | \mcode{-}\meta{pdate} ;;
%   \meta{pdate} ::= \meta{year}\mcode{-}\meta{month}\mcode{-}\meta{day}
%   | \meta{year}\mcode{-}\meta{month}
%   | \meta{year} ;;
%   \meta{crange} ::= \meta{\(\text{date}_1\)}\mcode{/}\meta{\(\text{date}_2\)}
%   | \mcode{c}\meta{\(\text{date}_1\)}\mcode{/}\meta{\(\text{date}_2\)}
%   | \meta{\(\text{date}_1\)}\mcode{/}\mcode{c}\meta{\(\text{date}_2\)}
%   | \mcode{c}\meta{\(\text{date}_1\)}\mcode{/}\mcode{c}\meta{\(\text{date}_2\)} ~~~(with \(\text{date}_1 \leq \text{date}_2\)) ;;
% \end{bnf}
%
% \smallskip
%
% \noindent The bounds of the \env{timechart} environment (see \fullref{Section}{sec:timechart-env}) must satisfy
% \meta{cdate} in this grammar (although only the \meta{year} is used); the start and finish dates of an
% \cs{timechartinterval} command (see \fullref{Subsection}{subsec:intervals}) must satisfy \meta{cdate-or-crange}; the
% parameter of an \cs{timecharttext} command (see \fullref{Subsection}{subsec:text}) must satisfy \meta{date}.
%
% \medskip
% \noindent \textit{Note.} For performance reasons, the date parser does only limited error-checking. Months outside the
% range from \mcode{01} to \mcode{12} or days outside the range of the specified month will be ignored. Otherwise
% malformed dates or date ranges may produce obscure error messages or unexpected results.
%
%
%
% \section{\env{timechart} environment}
% \label{sec:timechart-env}
%
% \begin{function}{timechart}
%   \begin{syntax}
%     \cs{begin}\texttt{\{}\env{timechart}\texttt{\}}\oarg{options}\marg{start}\marg{finish}
%       \meta{content}
%     \cs{end}\texttt{\{}\env{timechart}\texttt{\}}
%   \end{syntax}
%   This is the main environment for creating a chronological chart. The mandatory arguments \meta{start} and
%   \meta{finish} specify the first and last years of the chart. These can be dates with circa indicators (that is, they
%   satisfy \meta{cdate} in the grammar in \fullref{Section}{sec:dates-and-ranges}), but the circa specifier has no
%   effect and only the `year' part of the date is used. The optional argument \meta{options} supplies PGF keys that
%   apply to the entire chart.
%
%   The \meta{content} comprises commands like \cs{timechartinterval}, \cs{timecharttext}, \cs{timechartspace},
%   commands for positioning, as described in \fullref{Section}{sec:within}, and the user's own \TikZ\ code.
% \end{function}
%
%
%
% \subsection{General configuration of the \env{timechart} environment}
%
% \begin{describekey}{/timechart/width}{dimension}{\cs{textwidth}}
%   The width of the chart. This refers to the width of the grid and axis of the chart, not
%   including intervals that pass beyond the specified limits of the chart, or axis labels that protrude beyond the
%   width of the axis itself.
% \end{describekey}
%
%
% \begin{describekey}{/timechart/tolerance}{dimension}{5pt}
%   The length by which an interval is allowed to pass beyond the limits of the chart before it `counts' as doing so
%   and the appropriate indicator is drawn.
% \end{describekey}
%
%
% \begin{describekey}{/timechart/beyond length}{dimension}{5pt}
%   The length of the indicator that an interval passes beyond the limits of the chart.
% \end{describekey}
%
% \begin{describekey}{/timechart/beyond x radius}{dimension}{4pt}
%   The horizontal radius of the concave part of the indicator that an interval passes beyond the limits of the chart.
%   (The vertical radius will be half the thickness of the bar.)
% \end{describekey}
%
% \begin{describekey}{/timechart/ystep}{dimension}{-10pt}
%   The default length (positive or negative) by which the current \(y\) coordinate is automatically adjusted after each
%   interval, text, or space is placed.
% \end{describekey}
%
% \begin{describekey}{/timechart/minor tick interval}{number}{10}
%   The number of years (which must be positive) between each minor tick on the axis.
% \end{describekey}
%
% \begin{describekey}{/timechart/major tick interval}{number}{50}
%   The number of years (which must be positive) between each major tick on the axis and each vertical line in the grid.
% \end{describekey}
%
%
%
% \subsection{Grid configuration}
%
% \begin{describekey}{/timechart/no grid}{}{}
% Do not draw the grid.
% \end{describekey}
%
% \begin{describekey}{/timechart/grid top ysep}{dimension}{3pt}
% Distance between the top of the grid and the topmost interval or space.
% \end{describekey}
%
% \begin{describekey}{/timechart/grid bottom ysep}{dimension}{3pt}
% Distance between the bottom of the grid and the bottommost interval or space.
% \end{describekey}
%
% \begin{describekey}{/timechart/grid}{style}{empty}
% Style for drawing the grid.
% \end{describekey}
%
%
%
% \subsection{Axis configuration}
%
% \begin{describekey}{/timechart/axis}{position}{above}
%   Where and whether to draw the axis. \meta{position} may be \val{above}, \val{below}, or
%   \val{none}.
% \end{describekey}
%
% \begin{describekey}{/timechart/no axis}{}{}
%   Do not draw the axis. Equivalent to \keyval{/timechart/axis}{none}.
% \end{describekey}
%
% \begin{describekey}{/timechart/axis line}{style}{\keyval{line cap}{rect}}
%   Style for drawing the axis line.
% \end{describekey}
%
% \begin{describekey}{/timechart/minor tick}{style}{empty}
%   Style for drawing minor ticks.
% \end{describekey}
%
% \begin{describekey}{/timechart/minor tick length}{dimension}{1.5mm}
%   Length of minor ticks.
% \end{describekey}
%
% \begin{describekey}{/timechart/major tick}{style}{empty}
%   Style for drawing major ticks.
% \end{describekey}
%
% \begin{describekey}{/timechart/major tick length}{dimension}{3mm}
%   Length of major ticks.
% \end{describekey}
%
% \begin{describekey}{/timechart/major tick label}{style}{as described below}
%   Style for labels on the major ticks on the axis. The intial style essentially sets \keyval{inner sep}{0},
%   \keyval{outer sep}{0}, \keyval{anchor}{mid west}, \keyval{rotate}{90}.
% \end{describekey}
%
% \begin{describekey}{/timechart/major tick eras}{locations}{outer}
%   Which major tick labels have era indicators. \meta{locations} may be \val{none}, \val{all}, or \val{outer} (which
%   means that only the first and last labels have era indicators). This option does not affect the epoch marker (see
%   \fullref{Subsection}{subsec:year-zero}).
% \end{describekey}
%
%
%
% \section{Within the \env{timechart} environment}
% \label{sec:within}
%
%
%
% \subsection{Intervals}
% \label{subsec:intervals}
%
% \begin{function}{\timechartinterval}
%   \begin{syntax}
%     \cs{timechartinterval}\oarg{options}\marg{start}\marg{finish}\marg{label}
%   \end{syntax}
%   This command creates an interval in the chart at the current \(y\) coordinate between the specified \meta{start} and
%   \meta{finish}, with the given \meta{label}. These arguments are mandatory. Each of \meta{start} and \meta{finish}
%   can be either a year or a range of years, possibly with circa markers. That is, each must satisfy
%   \meta{cyear-or-crange} in the grammar in \fullref{Section}{sec:dates-and-ranges}.
%
%   The optional argument \meta{options} specifies PGF keys within \key{/timechart/} that are applied locally to the
%   interval.
%
%   The current \(y\) coordinate will be adjusted according to \key{/timechart/ystep} unless \key{/timechart/no
%   autostep} has been set.
% \end{function}
%
%
%
% \subsubsection{Interval configuration}
%
% \begin{describekey}{/timechart/no autostep}{}{}
%   Do not automatically alter the current \(y\) coordinate by the amount specified in \key{/timechart/ystep}.
% \end{describekey}
%
% \begin{describekey}{/timechart/ref}{label}{none}
%   Make the interval label a hyperlink to the position labelled by \meta{label}.
% \end{describekey}
%
% \begin{describekey}{/timechart/mark}{comma-separated list of years}{empty}
%   Draw marks in the interval at the years contained in the list. Each entry in the list must be a definite year (that
%   is, must satisfy \meta{year} in the grammar in \fullref{Section}{sec:dates-and-ranges}), must lie in the definite
%   part of the interval (not in the start or finish ranges) and cannot lie beyond the bounds of the chart on a side
%   where there interval exceeds tolerance. The colour of marks can be specified using \key{/timechart/interval mark
%   color}. \key{/timechart/marks} is a synonym for this key.
% \end{describekey}
%
% \begin{describekey}{/timechart/circa uncertainty}{number}{3}
%   Treat a circa indicator \mcode{c} as indicating an uncertainity of \(\pm\meta{number}\).
% \end{describekey}
%
% \begin{describekey}{/timechart/interval minimum width}{dimension}{1pt}
%   Ensure that any interval has a width of at least \meta{dimension}. This is useful to ensure that a single event is
%   visible in the chart.
%
%   If an interval is specified with start and finish ranges, and with \keyval{start range}{fade} and \keyval{finish
%   range}{fade}, then the `certain' portion of the interval will also have width at least \meta{dimension}. (This
%   restriction prevents a common rendering error where start and finish fadings around a `certain' interval of length
%   \(0\) would not quite meet.)
% \end{describekey}
%
% \begin{describekey}{/timechart/interval bar color}{color}{black}
%   Fill the interval bar with \meta{color}.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval bar thickness}{dimension}{8pt}
%   Set the vertical thickness of the interval bar to \meta{dimension}.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval bar node name}{string}{bar node}
%   Set the name of the node containing the interval bar to \meta{string}.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval mark color}{color}{gray}
%   Draw marks using \meta{color}.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label}{style}{empty}
%   Style to apply to an interval label.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label centered}{style}{as below}
%   Style to apply to an interval label placed centrally. Initially, this style executes the style
%   \key{/timechart/interval label} and sets \keyval{text}{white}. The reason for a separate style for centred labels is
%   that often a contrasting colour will be required. For instance, labels positioned to the left and right may be
%   black, but if the bar is black, a centred label should be a light colour.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label centered background}{style}{as below}
%   Style to apply to the `background' interval label placed centrally. Initially, this style executes
%   \key{/timechart/interval label}. The `background' interval label is simply the usual label and is placed in the same
%   location, but on a layer behind the bar and, unlike the label itself, is not clipped. The reason for this style is
%   that if the bar is narrow, part of the label text (such as ascenders and/or descenders) may naturally extend beyond
%   the bar itself and it may be useful that thse should appear in a different colour.
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label baseline}{dimension}{-3pt}
%   Position the baseline of the interval label \meta{dimension} below the current \(y\) coordinate (which is the
%   midpoint of the interval bar).
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label pos}{position}{left}
%   Specify where to place the label relative to the interval bar: \meta{position} may be \val{left}, \val{center}, or
%   \val{right}. The position \val{center} places the label at the midpoint of \emph{the visible segment of the solid
%   part} of the interval bar (that is, not including fading at the start or finish of the bar, and not including part
%   of the bart that would extend beyond the bounds of the chart). Further, a centred label is clipped to the size of
%   the bar and a unclipped `background' copy of it is drawn behind the bar, so that the portion appearing `on' and
%   `outside' the bar can have different styles. (See the keys \key{/timechart/interval label centered} and
%   \key{/timechart/interval label centered background}.)
% \end{describekey}
%
% \begin{describekey}{/timechart/interval label node name}{string}{label node}
%   Set the name of the node containing the interval label to \meta{string}.
% \end{describekey}
%
% \begin{describekey}{/timechart/start range}{range-type}{fade}
%   Type of indication of the range where an interval may start. \meta{range-type} can be \val{fade}, which produces an
%   indicator like \timechartlegendstartrange[legend item width=8mm], or \val{slant}, which produces
%   \timechartlegendstartrange[legend item width=8mm,start range=slant].
% \end{describekey}
%
% \begin{describekey}{/timechart/finish range}{range-type}{fade}
%   Type of indication of the range where an interval may finish. \meta{range-type} can be \val{fade}, which produces an
%   indicator like \timechartlegendfinishrange[legend item width=8mm], or \val{slant}, which produces
%   \timechartlegendfinishrange[legend item width=8mm,finish range=slant].
% \end{describekey}
%
%
%
% \subsection{Text}
% \label{subsec:text}
%
% \begin{function}{\timecharttext}
%   \begin{syntax}
%     \cs{timecharttext}\oarg{options}\marg{year}\marg{text}
%   \end{syntax}
%   Place \meta{text} in the time chart at the current \(y\) coordinate and at the horizontal position of \meta{year},
%   which must be a definite year (that is, must satsify \meta{year} in the grammar in
%   \fullref{Section}{sec:dates-and-ranges}).
%
%   The optional argument \meta{options} specifies PGF keys within \key{/timechart/} that are applied locally.
%
%   The current \(y\) coordinate will be adjusted according to \key{/timechart/ystep} unless \key{/timechart/no
%   autostep} has been set.
% \end{function}
%
%
%
% \subsubsection{Text configuration}
%
% \begin{describekey}{/timechart/text node name}{string}{text node}
%   Set the name of the node containing the text to \meta{string}.
% \end{describekey}
%
% \begin{describekey}{/timechart/text}{style}{empty}
%   Style to apply to the text.
% \end{describekey}
%
% \begin{describekey}{/timechart/text baseline}{dimension}{-3pt}
%   Position the baseline of the text \meta{dimension} below the current \(y\) coordinate.
% \end{describekey}
%
% \begin{describekey}{/timechart/text pos}{position}{left}
%   Specify where to place the label relative to the given \meta{year}: \meta{position} may be \val{left}, \val{center},
%   or \val{right}.
% \end{describekey}
%
%
%
% \subsection{Space}
%
% \begin{function}{\timechartspace}
%   \begin{syntax}
%     \cs{timechartspace}\oarg{options}
%   \end{syntax}
%   Create a space in the time chart at the current \(y\) coordinate, with the same effect on vertical spacing as an
%   interval. More precisely, the current \(y\) coordinate will be adjusted according to \key{/timechart/ystep} unless
%   \key{/timechart/no autostep} has been set.
%
%   The optional argument \meta{options} specifies PGF keys within \key{/timechart/} that are applied locally.
% \end{function}
%
%
%
% \subsection{Positioning}
% \label{subsec:positioning}
%
% The commands \cs{timechartinterval}, \cs{timecharttext}, and \cs{timechartspace} all act at the current \(y\)
% coordinate and change its value according to \key{/timechart/ystep} (unless \key{/timechart/no autostep} is used).
% There are several functions to set the current \(y\) coordinate and to have it reset automatically.
%
% \begin{function}{\timechartsety}
%   \begin{syntax}
%     \cs{timechartsety}\marg{dimension}
%   \end{syntax}
%   Set the current \(y\) coordinate to \meta{dimension}.
% \end{function}
%
% \begin{function}{\timechartsavey}
%   \begin{syntax}
%     \cs{timechartsavey}
%   \end{syntax}
%   Save the current \(y\) coordinate. If \cs{timechartresety} is used, the \(y\) coordinate resets to the last saved
%   \(y\) coordinate. If the current \(y\) coordinate exceeds the minimum or maximum set by
%   \cs{timechartsetyminimumautoreset} and \cs{timechartsetymaximumautoreset}, it will be reset to the last saved \(y\)
%   coordinate.
% \end{function}
%
% \begin{function}{\timechartresety}
%   \begin{syntax}
%     \cs{timechartresety}
%   \end{syntax}
%   Reset the \(y\) coordinate to the last coordinate saved using \cs{timechartsavey}, or to \(0\) if there has been no
%   use of \cs{timechartsavey} within the current \env{timechart} environment.
% \end{function}
%
% \begin{function}{\timechartsetyminimumautoreset, \timechartsetymaximumautoreset}
%   \begin{syntax}
%     \cs{timechartsetyminimumautoreset}\marg{min-coordinate}
%     \cs{timechartsetymaximumautoreset}\marg{max-coordinate}
%   \end{syntax}
%   Set \(y\) coordinates that automatically trigger \cs{timechartresety} if the current \(y\) coordinate goes below
%   \meta{min-coordinate} or above \meta{max-coordinate}.
% \end{function}
%
% \begin{function}{\timechartstepy}
%   \begin{syntax}
%     \cs{timechartstepy}\oarg{count}
%   \end{syntax}
%   Manually step the current \(y\) coordinate by \meta{count} times the value of \key{/timechart/ystep}. The default
%   value of \meta{count} is 1. (The \key{/timechart/no autostep} does not affect \cs{timechartstepy}.)
% \end{function}
%
%
%
% \subsection{Completion}
%
% \begin{function}{\timechartfinish}
%   Signal that the chart is complete and that the grid and axis should be drawn (unless the keys \key{/timechart/no
%   grid} and/or \key{/timechart/no axis} have been used). It is not necessary to use this command: if it is not given,
%   the grid and axis will be drawn at the end of the \env{timechart} environment. But after this command, the \TikZ\
%   nodes \texttt{grid} and \texttt{axis} are available, containing (respectively) the grid and the axis. These can be
%   used in for further \TikZ\ drawing.
%
%   Note that after \cs{timechartfinish}, none of the various \cs{timechart}\ldots\ commands are available inside that
%   \env{timechart} environment.
% \end{function}
%
%
%
% \subsection{Shortcut keys}
%
% \begin{describekey}{/timechart/left}{}{}
%   Equivalent to setting \key{/timechart/interval label pos} and \key{/timechart/text pos} to \val{left}.
% \end{describekey}
%
% \begin{describekey}{/timechart/center}{}{}
%   Equivalent to setting \key{/timechart/interval label pos} and \key{/timechart/text pos} to \val{center}.
% \end{describekey}
%
% \begin{describekey}{/timechart/right}{}{}
%   Equivalent to setting \key{/timechart/interval label pos} and \key{/timechart/text pos}{right} to \val{right}.
% \end{describekey}
%
%
%
% \section{Era indicators}
% \label{sec:era-indicators}
%
% \begin{function}{\timechartmakebeforeyear,\timechartmakeafteryear}
%   \begin{syntax}
%     \cs{timechartmakebeforeyear}\marg{number}
%     \cs{timechartmakeafteryear}\marg{number}
%   \end{syntax}
%   Typeset \meta{number} (which should be a positive whole number) as a year before or after the epoch. By default,
%   \cs{timechartmakebeforeyear}\marg{number} produces \timechartmakebeforeyear{\meta{number}} and
%   \cs{timechartmakeafteryear}\marg{number} produces \timechartmakeafteryear{\meta{number}}.
%
%   These commands are used for axis labels and can be re-defined by the user. For example, if \textsc{bc}/\textsc{ad}
%   is preferred to \textsc{bce}/\textsc{ce}, the user can define
% \iffalse
%<*example>
% \fi
\begin{lstlisting}
\renewcommand*{\timechartmakebeforeyear}[1]{#1~\textsc{bc}}
\renewcommand*{\timechartmakeafteryear}[1]{\textsc{ad}~#1}
\end{lstlisting}
% \iffalse
%</example>
% \fi
%   Similarly, if \textsc{ah}/\textsc{bh} is preferred, the user can define
% \iffalse
%<*example>
% \fi
\begin{lstlisting}
\renewcommand*{\timechartmakebeforeyear}[1]{#1~\textsc{bh}}
\renewcommand*{\timechartmakeafteryear}[1]{\textsc{ah}~#1}
\end{lstlisting}
% \iffalse
%</example>
% \fi
% \end{function}
%
%
%
% \section{Legend}
% \label{sec:keys}
%
% \pkg{timechart} supplies a number of auxiliary macros for creating a legend to explain, for example the significance
% of different colours of intervals. For example, \fullref{Figure}{fig:example1-legend} shows a suitable legend for
% \fullref{Figure}{fig:example1}.
%
% \begin{figure}[t]
%   \centering
%   \input{timechart-example1-legend.tex}
%   \caption{Example legend for the timechart shown in \fullref{Figure}{fig:example1}.}
%   \label{fig:example1-legend}
% \end{figure}
%
% The \cs{timechartlength}\ldots\ macros are \emph{not} meant to be used inside a \env{timechart} environment, but in
% locations such as running text or a \env{tabular} environment.
%
% \begin{function}{\timechartlegenditem}
%   \begin{syntax}
%     \cs{timechartlegenditem}\oarg{options}
%   \end{syntax}
%   Draw a bar suitable for use in a legend. \meta{options} specifies PGF keys that are applied within
%   \key{/timechart}. The same PGF keys that affect interval bars affect the drawn bar, as do the keys listed below.
% \end{function}
%
% \begin{function}{\timechartlegendstartrange, \timechartlegendfinishrange}
%   \begin{syntax}
%     \cs{timechartlegendstartrange}\oarg{options}
%     \cs{timechartlegendfinishrange}\oarg{options}
%   \end{syntax}
%   Draw a bar suitable for use in a legend, with a start or finish range. \meta{options} specifies PGF keys that are
%   applied within \key{/timechart/}. The same PGF keys that affect interval bars affect the drawn bar, as do the
%   keys listed below.
% \end{function}
%
% \begin{describekey}{/timechart/legend item width}{dimension}{9mm}
%   When using macros \cs{timechartlegenditem}, \cs{timechartlegendstartrange}, or \cs{timechartlegendfinishrange}, draw
%   a bar of total width \meta{dimension}.
% \end{describekey}
%
% \begin{describekey}{/timechart/legend item range width}{dimension}{3mm}
%   When using \cs{timechartlegendstartrange} or \cs{timechartlegendfinishrange}, draw a bar with a range of width
%   \meta{dimension}.
% \end{describekey}
%
%
%
% \section{Usage notes}
%
% \subsection{Additional \TikZ\ code}
%
% The \env{timechart} environment is a \env{tikzpicture}. The user can add any \TikZ\ code before, between, or after
% content created using the \cs{timechart}\ldots\ commands. Each use of \cs{timechartinterval} defines two nodes. One,
% by default named \val{bar node}, contains the interval bar; the other, by default named \val{label node}, contains the
% interval label. Similarly, text added using \cs{timecharttext} is contained in a node, by default named \val{text
% node}. (The default names are re-used, but can be changed using the keys \key{/timechart/interval bar node name},
% \key{/timechart/interval label node name}, and \key{/timechart/text node name}.) The user can use these nodes to
% position extra content.
%
% If the \cs{timechartfinish} command is used (after which the \cs{timechart}\ldots\ commands are no longer available
% within the \env{timechart} environment) the nodes \mcode{grid} and \mcode{axis}, which contain the grid and the axis,
% are also available.
%
%
%
% \subsection{\texorpdfstring{`year zero'}{year zero}}
% \label{subsec:year-zero}
%
% Although calendars typically do not admit a `year zero' (for instance, \timechartmakebeforeyear{1} is immediately
% followed by \timechartmakeafteryear{1}, with no intervening `year zero'), \pkg{timechart} does allow \val{0} for the
% \meta{start} or \meta{finish} of the \env{timechart} environment or as the \meta{start} or \meta{finish} of
% \cs{timechartinterval} or the \meta{year} of \cs{timecharttext}. But `year zero' is indicated on the axis by a special
% epoch marker showing the last year before and first year after the epoch.
%
%
%
% \section{Feature requests and bug reports}
%
% The development code and issue tracker are hosted at Codeberg: \url{https://codeberg.org/ajcain/timechart}
%
%
%
% \section{Appendix: full example source}
% \label{sec:full-example}
%
% This section contains the necessary source code to produce the example timechart and legend shown in
% \fullref{Figures}{fig:example1} and \ref{fig:example1-legend} on pages \pageref{fig:example1} and
% \pageref{fig:example1-legend}.
%
%
%
% \subsection{Setup source}
%
% \lstinputlisting{timechart-example1-setup.tex}
%
%
%
% \subsection{Timechart source}
%
% \lstinputlisting[breaklines=true]{timechart-example1-timechart.tex}
%
%
%
% \subsection{Legend source}
%
% \lstinputlisting{timechart-example1-legend.tex}
%
%
%
% \end{documentation}
%
%
%
% \iffalse
%<*example1-setup>
\pgfkeys{
 /timechart/.cd,
 julioclaudian/.style={
   interval bar color=red!70!black,
   interval mark color=red!70!black!50!white
 },
 fouremperors/.style={
   interval bar color=green!65!black,
   interval mark color=green!65!black!50!white
 },
 flavian/.style={
   interval bar color=yellow!85!black,
   interval mark color=yellow!85!black!50!white
 },
 nervaantonine/.style={
   interval bar color=blue!80!black,
   interval mark color=blue!80!black!50!white
 },
 fiveemperors/.style={
   interval bar color=green!50!black,
   interval mark color=green!50!black!50!white
 },
 severan/.style={
   interval bar color=orange!80!black,
   interval mark color=orange!80!black!50!white
 },
 thirdcentury/.style={
   interval bar color=green!35!black,
   interval mark color=green!35!black!50!white
 },
 tetrarchy/.style={
   interval bar color=purple!70!black,
   interval mark color=purple!70!black!50!white
 },
 constantinian/.style={
   interval bar color=blue!65!white,
   interval mark color=blue!65!white!50!white
 },
 valentinianic/.style={
   interval bar color=orange!60!black,
   interval mark color=orange!60!black!50!white
 },
 theodosian/.style={
   interval bar color=cyan,
   interval mark color=cyan!50!white
 },
 theodosian-east/.style={
   interval bar color=cyan!80!black,
   interval mark color=cyan!80!black!50!white
 },
 theodosian-west/.style={
   interval bar color=cyan!80!white,
   interval mark color=cyan!80!white!50!white
 },
 leonid/.style={
   interval bar color=purple!40!white,
   interval mark color=purple!40!white!50!white
 },
 justinian/.style={
   interval bar color=orange!60!white,
   interval mark color=orange!60!white!50!white
 },
 lastwest/.style={
   interval bar color=green!25!black,
   interval mark color=green!25!black!50!white
 },
}
%</example1-setup>
%<*example1-timechart>
\begin{timechart}[
   axis line/.append style={ draw=gray, line width=.5pt },
   grid/.append style={ draw=lightgray!50!white, line width=.5pt },
   minor tick/.append style={ draw=gray },
   major tick/.append style={ line width=.5pt, draw=gray },
   major tick label/.append style={ node font=\small },
   interval label/.style={ node font=\sffamily\footnotesize },
   text/.style={ node font=\sffamily\small\itshape, },
   ystep=-3.25mm,
 ]{-50}{500}

 \pgfmathsetmacro{\mainlinecount}{46}

 \timechartsetyminimumautoreset{-3.25mm*\mainlinecount+1mm}

 \timechartinterval[interval bar color=gray,right,mark=-45]{-100}{-44}{Julius Caesar}
 \timechartinterval[julioclaudian,right,mark=-27]{-63}{-14}{Augustus}
 \timechartinterval[julioclaudian,right,mark=14]{-42}{37}{Tiberius}
 \timechartinterval[julioclaudian,right,mark=37]{12}{41}{Caligula}
 \timechartinterval[julioclaudian,right,mark=41]{-10}{54}{Claudius}
 \timechartinterval[julioclaudian,right,mark=54]{37}{68}{Nero}

 \timechartinterval[fouremperors,mark=68]{-3}{69}{Galba}
 \timechartinterval[fouremperors,mark=69]{32}{69}{Otho}
 \timechartinterval[fouremperors,mark=69]{15}{69}{Vitellius}

 \timechartinterval[flavian,mark=69]{9}{79}{Vespasian}
 \timechartinterval[flavian,mark=79]{39}{81}{Titus}
 \timechartinterval[flavian,mark=81]{51}{96}{Domitian}

 \timechartinterval[nervaantonine,mark=96]{30}{98}{Nerva}
 \timechartinterval[nervaantonine,mark=98]{53}{117}{Trajan}
 \timechartinterval[nervaantonine,mark=117]{76}{138}{Hadrian}
 \timechartinterval[nervaantonine,mark=138]{86}{161}{Antoninus Pius}
 \timechartinterval[nervaantonine,mark=161]{121}{180}{Marcus Aurelius}
 \timechartinterval[nervaantonine,mark=161]{130}{169}{Lucius Verus}
 \timechartinterval[nervaantonine,mark=180]{161}{192}{Commodus}

 \timechartinterval[fiveemperors,mark=193]{126}{193}{Pertinax}
 \timechartinterval[fiveemperors,mark=193]{133}{193}{Didius Julianus}

 \timechartinterval[severan,mark=193]{145}{211}{Septimus Severus}
 \timechartinterval[severan,mark=211]{188}{217}{Caracalla}
 \timechartinterval[severan,mark=211]{189}{211}{Geta}
 \timechartinterval[severan,mark=217]{c165}{218}{Macrinus}
 \timechartinterval[severan,mark=218]{203/204}{222}{Elagabalus}
 \timechartinterval[severan,mark=222]{208}{235}{Severus Alexander}

 \timechartinterval[thirdcentury,mark=235]{c172/c180}{238}{Maximinus I}
 \timechartinterval[thirdcentury,mark=238]{c158}{238}{Gordian I}
 \timechartinterval[thirdcentury,mark=238]{192}{238}{Gordian II}
 \timechartinterval[thirdcentury,mark=238]{164}{238}{Pupienus}
 \timechartinterval[thirdcentury,mark=238]{c164}{238}{Balbinus}
 \timechartinterval[thirdcentury,mark=238]{225}{244}{Gordian III}
 \timechartinterval[thirdcentury,mark=244]{c204}{249}{Philip I}
 \timechartinterval[thirdcentury,mark=249]{c190/200}{251}{Decius}
 \timechartinterval[thirdcentury,mark=251]{c206}{253}{Trebonianus Gallus}
 \timechartinterval[thirdcentury,mark=253]{c207}{253}{Aemilianus}
 \timechartinterval[thirdcentury,mark=253]{c200}{262}{Valerian}
 \timechartinterval[thirdcentury,mark=253]{218}{268}{Gallienus}
 \timechartinterval[thirdcentury,mark=268]{214}{270}{Claudius II}
 \timechartinterval[thirdcentury,mark=270]{230/250}{270}{Quintillus}
 \timechartinterval[thirdcentury,mark=270]{214}{275}{Aurelian}
 \timechartinterval[thirdcentury,mark=275]{c200}{276}{Tacitus}
 \timechartinterval[thirdcentury,mark=276]{226/256}{276}{Florianus}
 \timechartinterval[thirdcentury,mark=276]{232}{282}{Probus}
 \timechartinterval[thirdcentury,mark=282]{c224}{283}{Carus}
 \timechartinterval[thirdcentury,mark=283]{c250}{285}{Carinus}
 \timechartinterval[thirdcentury,mark=283]{c253}{284}{Numerian}

 \timechartinterval[tetrarchy,mark=284]{242/245}{311/312}{Diocletian}
 \timechartinterval[tetrarchy,mark=286]{c250}{310}{Maximian}
 \timechartinterval[tetrarchy,mark=305]{c258}{311}{Galerius}
 \timechartinterval[tetrarchy,mark=305]{c250}{306}{Constantius I}
 \timechartinterval[tetrarchy,mark=306]{257/287}{307}{Severus II}
 \timechartinterval[tetrarchy,marks={308,324}]{c265}{325}{Licinius}
 \timechartinterval[tetrarchy,mark=310]{c270}{313}{Maximinus II}
 \timechartinterval[tetrarchy,mark=316]{267/297}{317}{Valerius Valens}
 \timechartinterval[tetrarchy,mark=324]{275/305}{325}{Martinian}

 \timechartinterval[constantinian,mark=306]{272/273}{337}{Constantine I}
 \timechartinterval[constantinian,mark=337]{316}{340}{Constantine II}
 \timechartinterval[constantinian,mark=337]{322/323}{350}{Constans I}
 \timechartinterval[constantinian,mark=337]{317}{361}{Constantius II}
 \timechartinterval[constantinian,mark=361]{331}{363}{Julian}
 \timechartinterval[constantinian,mark=363]{330/331}{364}{Jovian}

 \timechartinterval[valentinianic,mark=364]{321}{375}{Valentinian I}
 \timechartinterval[valentinianic,mark=364]{c328}{378}{Valens}
 \timechartinterval[valentinianic,mark=375]{359}{383}{Gratian}
 \timechartinterval[valentinianic,mark=388]{371}{392}{Valentinian II}

 \timechartinterval[theodosian,mark=379]{346/347}{395}{Theodosius I}
 \timecharttext[center]{395}{Eastern}
 \timechartinterval[theodosian-east,mark=395]{377}{408}{Arcadius}
 \timechartinterval[theodosian-east,mark=408]{401}{450}{Theodosius II}
 \timechartinterval[theodosian-east,mark=450]{391/392}{457}{Marcian}

 \timechartinterval[leonid,mark=457]{400/401}{474}{Leo I}
 \timechartinterval[leonid,mark=474]{467}{474}{Leo II}
 \timechartinterval[leonid,mark={474,475,476}]{425}{491}{Zeno}
 \timechartinterval[leonid,mark=475]{426/456}{476/477}{Basilicus}
 \timechartinterval[leonid,mark=491]{430/431}{518}{Anastasius I}

 \timechartinterval[justinian,mark=518]{450}{527}{Justin I}
 \timechartinterval[justinian,mark=527]{482}{565}{Justinian I}

 \timecharttext[center]{395}{Western}
 \timechartinterval[theodosian-west,mark=395]{384}{423}{Honorius}
 \timechartinterval[theodosian-west,mark=421]{371/401}{421}{Constantius III}
 \timechartinterval[theodosian-west,mark=425]{419}{455}{Valentian III}

 \timechartinterval[lastwest,mark=455]{405/435}{455}{Petronius Maximus}
 \timechartinterval[lastwest,mark=455]{406/436}{456/457}{Avitius}
 \timechartinterval[lastwest,mark=457]{411/441}{461}{Majorian}
 \timechartinterval[lastwest,mark=461]{415/445}{465}{Libius Severus}
 \timechartinterval[lastwest,mark=467]{422/452}{472}{Anthemius}
 \timechartinterval[lastwest,mark=472]{422/452}{472}{Olybrius}
 \timechartinterval[lastwest,mark={473,474}]{443/473}{474/504}{Glycerius}
 \timechartinterval[lastwest,mark={474,465}]{430/460}{480}{Julius Nepos}
 \timechartinterval[lastwest,mark={475,476}]{c465}{507/527}{Romulus}

 \timechartsetyminimumautoreset{-\maxdimen}
 \timechartsety{(-\mainlinecount-1)*3.25mm}

 \timechartinterval[
   center,
   interval bar color=darkgray,
   interval text/.append style={ text=white },
   interval bar thickness=6.5mm
 ]{-509}{-27}{}
 \timechartstepy[-1]
 \timechartinterval[
   center,
   interval bar color=black,
   interval text/.append style={ node font=\sffamily\normalsize,text=white },
   interval bar thickness=6.5mm
 ]{-27}{395}{Roman Empire}
 \timechartstepy[-1.5]
 \timechartinterval[
   center,
   interval bar color=lightgray,
   interval bar thickness=3.25mm
 ]{395}{1453}{Eastern}
 \timechartinterval[
   center,
   interval bar color=gray,
   interval bar thickness=3.25mm
 ]{395}{476}{Western}
\end{timechart}
%</example1-timechart>
%<*example1-legend>
\begin{tabular}{rl}
 \timechartlegenditem[julioclaudian]   & Julio-Claudian dynasty      \\
 \timechartlegenditem[fouremperors]    & Year of four emperors       \\
 \timechartlegenditem[flavian]         & Flavian dynasty             \\
 \timechartlegenditem[nervaantonine]   & Nerva-Antonine dynasty      \\
 \timechartlegenditem[fiveemperors]    & Year of five emperors       \\
 \timechartlegenditem[severan]         & Severan dynasty             \\
 \timechartlegenditem[thirdcentury]    & Crisis of the third century \\
 \timechartlegenditem[tetrarchy]       & Tetrarchy                   \\
 \timechartlegenditem[constantinian]   & Constantinian dynasty       \\
 \timechartlegenditem[valentinianic]   & Valentinianic dynasty       \\
 \timechartlegenditem[theodosian]      & Theodosian dynasty          \\
 \timechartlegenditem[theodosian-east] & --- in the east             \\
 \timechartlegenditem[theodosian-west] & --- in the west             \\
 \timechartlegenditem[leonid]          & Leonid dynasty              \\
 \timechartlegenditem[justinian]       & Justinian dynasty           \\
 \timechartlegenditem[lastwest]        & Last emperors in the west   \\
\end{tabular}
%</example1-legend>
%<*example2-v1>
\begin{timechart}{-50}{75}
 \timechartinterval{-63}{-14}{Augustus}
 \timechartinterval{-42}{37}{Tiberius}
 \timechartinterval{12}{41}{Caligula}
 \timechartinterval{-10}{54}{Claudius}
 \timechartinterval{37}{68}{Nero}
\end{timechart}
%</example2-v1>
%<*example2-v2>
\begin{timechart}[
   minor tick interval=5,
   major tick interval=25,
   grid/.append style={ draw=lightgray },
   axis line/.append style={ draw=gray },
   minor tick/.append style={ draw=gray },
   major tick/.append style={ draw=gray },
   interval label/.append style={ node font=\sffamily\small },
   julioclaudian/.style={ interval bar color=red!80!black },
 ]{-50}{75}
 \timechartinterval[right,julioclaudian]{-63}{-14}{Augustus}
 \timechartinterval[right,julioclaudian]{-42}{37}{Tiberius}
 \timechartinterval[julioclaudian]{12}{41}{Caligula}
 \timechartinterval[julioclaudian]{-10}{54}{Claudius}
 \timechartinterval[julioclaudian]{37}{68}{Nero}
\end{timechart}
%</example2-v2>
% \fi
%
%
%
% \begin{implementation}
%
% \setcounter{secnumdepth}{7}
%
%
%
% \section{Implementation}
%
%    \begin{macrocode}
%<*package>
%<@@=timechart>
%    \end{macrocode}
%
%
%
% \subsection{Coding standard}
%
% This package makes extensive use of \pkg{pgfmath} computations. The usual \pkg{expl3} standard of ending variables
% with a type indicator (\texttt{\_bool}, \texttt{\_int}, etc.) is therefore adapted as follows:
% \begin{itemize}
%   \item[\texttt{\_year}] Stores a year, which could in principle be fractional.
%     \item[\texttt{\_pgf}] Stores a length calculated by \pkg{pgfmath}. (Unlike \texttt{\_dim}, there is no underlying
%           dimension register.)
%   \item[\texttt{\_x}] Stores a raw \(x\) coordinate (not in \TikZ's XY-coordinate system).
%   \item[\texttt{\_y}] Stores a raw \(y\) coordinate (not in \TikZ's XY-coordinate system).
%   \item[\texttt{\_text}] Stores text (not an \pkg{expl3} string).
% \end{itemize}
%
%
%
% \subsection{Initial set-up}
%
% Package identification/version information.
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}[2020-02-02]
\ProvidesExplPackage{timechart}{2025-10-17}{0.56.1}
 {Typesetting chronological charts}
%    \end{macrocode}
%
%
%
% \subsection{Debugging macro}
%
% \begin{macro}{\@@_debug:n,\@@_debug_real:n}
%   Macro to output (many) debugging messages.
%    \begin{macrocode}
\cs_new:Npn \@@_debug_real:n #1
 {
   \typeout{timechart:~#1}
 }
\cs_set_eq:NN\@@_debug:n\use_none:n
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Load TikZ}
%
%    \begin{macrocode}
\RequirePackage{tikz}
%    \end{macrocode}
% In the remainder of the package, only a limited subset of \TikZ\ is used, and PGF code is preferred. For PGF keys, it
% is necessary to use \texttt{\textasciitilde} in place of a space.
%
%
%
% \subsection{Scratch variables}
%
% \begin{macro}{\l_@@_tmpa_bool,\l_@@_tmpb_bool,\l_@@_tmpc_bool,\l_@@_tmpd_bool}
%   Scratch boolean variables.
%    \begin{macrocode}
\bool_new:N\l_@@_tmpa_bool
\bool_new:N\l_@@_tmpb_bool
\bool_new:N\l_@@_tmpc_bool
\bool_new:N\l_@@_tmpd_bool
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_tmpa_dim,\l_@@_tmpb_dim,\l_@@_tmpc_dim,\l_@@_tmpd_dim}
%   Scratch dimension variables, reusing \cs{l_tmpa_dim} and \cs{l_tmpb_dim} with uniform names.
%    \begin{macrocode}
\cs_set_eq:NN\l_@@_tmpa_dim\l_tmpa_dim
\cs_set_eq:NN\l_@@_tmpb_dim\l_tmpb_dim
\dim_new:N\l_@@_tmpc_dim
\dim_new:N\l_@@_tmpd_dim
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Generic auxiliary functions}
%
% \begin{macro}{\@@_make_ref:NN}
%   Make hyperreference from text, if the supplied target is non-empty.
%   \begin{arguments}
%     \item Reference for hyperlink target, or empty.
%     \item Text.
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn\@@_make_ref:NN #1#2
 {
   \str_if_empty:NTF #1
     { #2 }
     { \hyperref[#1]{#2} }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{PGF auxiliary functions}
%
% \begin{macro}{@@_pgfmathsetbool:nn}
%   Set an \pkg{expl3} boolean variable to the outcome of a \pkg{pgfmath} comparison. This macro is simply a wrapper
%   around \cs{pgfmathsetmacro} using \mcode{ifthenelse} and returning the boolean literal true or false.
%    \begin{macrocode}
\cs_new:Npn\@@_pgfmathsetbool:nn #1#2
 {
   \pgfmathsetmacro{#1}{ifthenelse(#2,"\c_true_bool","\c_false_bool")}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_if_equal:nnF}%
%   Use \pkg{pgfmath} to check whether \param{1} and \param{2} are equal. If not, execute \param{3}.
%    \begin{macrocode}
\cs_new:Npn\@@_if_equal:nnF #1#2#3
 {
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}{#1==#2}
   \bool_if:NF\l_@@_tmpa_bool{#3}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_pgfextractxy:nnn}
%   Extract coordinates of \param{3} (a PGF point) to dimension variables \param{1} and \param{2}. This macro simply
%   combines the functionality of \cs{pgfextractx} and \cs{pgfextracty}.
%    \begin{macrocode}
\cs_new:Npn\@@_pgfextractxy:nnn #1#2#3
 {
   \pgf@process{#3}
   #1=\pgf@x\relax
   #2=\pgf@y\relax
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_hsmash_pgfnode:nnnnn}
%   Do the same as \cs{pgfnode} but only update the bounding box `vertically'.
%    \begin{macrocode}
\cs_new:Npn\@@_hsmash_pgfnode:nnnnn #1#2#3#4#5
 {
   \pgfinterruptboundingbox
   \pgfnode{#1}{#2}{#3}{#4}{#5}
   \pgfcoordinate
     {@@_tmpa_coord}
     {\pgfpointanchor{current~bounding~box}{south}}
   \pgfcoordinate
     {@@_tmpb_coord}
     {\pgfpointanchor{current~bounding~box}{north}}
   \endpgfinterruptboundingbox
   \pgfextractx
     {\l_@@_tmpa_dim}
     {\pgfpointanchor{@@_tmpa_coord}{center}}
   \pgfextractx
     {\l_@@_tmpb_dim}
     {\pgfpointanchor{@@_tmpb_coord}{center}}
   \pgfpathmoveto{\pgfpoint{\l_@@_tmpa_dim}{0}}
   \pgfpathmoveto{\pgfpoint{\l_@@_tmpb_dim}{0}}
   \pgfusepath{discard}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_make_rectangle_node:nnnn}
%   Make a node with south west corner \param{1}, north east corner \param{2}, and name \param{3}. \param{1} and
%   \param{2} should be given as PGF points. \param{4} is a boolean literal indicating whether the path should be
%   stroked.
%    \begin{macrocode}
\cs_new:Npn\@@_make_rectangle_node:nnnn #1#2#3#4
 {
   \group_begin:
   \@@_pgfextractxy:nnn
     {\l_@@_tmpa_dim}{\l_@@_tmpb_dim}{#1}
   \@@_pgfextractxy:nnn
     {\l_@@_tmpc_dim}{\l_@@_tmpd_dim}{#2}
   \pgftransformshift{#1}
   \pgfset{
     minimum~width=\l_@@_tmpc_dim-\l_@@_tmpa_dim,
     minimum~height=\l_@@_tmpd_dim-\l_@@_tmpb_dim,
     inner~sep=0,
     outer~sep=0,
   }
   \bool_if:NTF #4
     { \pgfnode{rectangle}{south~west}{}{#3}{\pgfusepath{draw}} }
     { \pgfnode{rectangle}{south~west}{}{#3}{\pgfusepath{discard}} }
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_set_style_line_width:nn}
%   Set macro \param{1} to be the line width set by the PGF style \param{2}. Note that \cs{begingroup} and \cs{endgroup}
%   are used here because of the definition of \cs{pgfmathsmuggle}.
%    \begin{macrocode}
\cs_new:Npn\@@_set_style_line_width:nn #1#2
 {
   \begingroup
   \tikzset{#2}
   \pgfmathsetlengthmacro{#1}{\pgflinewidth}
   \pgfmathsmuggle #1
   \endgroup
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{PGF keys}
%
% All PGF keys for this package are under \key{/timechart/}.
%    \begin{macrocode}
\pgfkeys{
 /timechart/.cd,
%    \end{macrocode}
% Keys applicable to debugging.
%    \begin{macrocode}
 debug/.code = {
   \cs_set_eq:NN\@@_debug:n\@@_debug_real:n
 },
 no~debug/.code = {
   \cs_set_eq:NN\@@_debug:n\use_none:n
 },
%    \end{macrocode}
% Keys applicable to whole chart.
%    \begin{macrocode}
 width/.initial=\textwidth,
 ystep/.initial=-10pt,
 minor~tick~interval/.initial=10,
 major~tick~interval/.initial=50,
 tolerance~start/.initial=5pt,
 tolerance~finish/.initial=5pt,
 beyond~length~start/.initial=5pt,
 beyond~length~finish/.initial=5pt,
 beyond~x~radius~start/.initial=4pt,
 beyond~x~radius~finish/.initial=4pt,
%    \end{macrocode}
% Shortcuts for tolerance and `beyond' indicators.
%    \begin{macrocode}
 tolerance/.code = {
   \pgfkeyssetvalue{/timechart/tolerance~start}{#1}
   \pgfkeyssetvalue{/timechart/tolerance~finish}{#1}
 },
 beyond~length/.code = {
   \pgfkeyssetvalue{/timechart/beyond~length~start}{#1}
   \pgfkeyssetvalue{/timechart/beyond~length~finish}{#1}
 },
 beyond~x~radius/.code = {
   \pgfkeyssetvalue{/timechart/beyond~x~radius~start}{#1}
   \pgfkeyssetvalue{/timechart/beyond~x~radius~finish}{#1}
 },
%    \end{macrocode}
% Keys applicable to the grid.
%    \begin{macrocode}
 no~grid/.code = { \bool_set_false:N\l_@@_grid_bool },
 grid~top~ysep/.initial={3pt},
 grid~bottom~ysep/.initial={3pt},
 grid/.style={},
%    \end{macrocode}
% Keys applicable to the axis.
%    \begin{macrocode}
 axis~line/.style={
   line~cap=rect,
 },
 axis~ysep/.initial=3pt,
 axis/.is~choice,
 axis/none/.code
   = { \int_set:Nn\l_@@_axis_int{0} },
 axis/above/.code
   = { \int_set:Nn\l_@@_axis_int{1} },
 axis/below/.code
   = { \int_set:Nn\l_@@_axis_int{2} },
 no~axis/.code = { \int_set:Nn\l_@@_axis_int{0} },
 minor~tick/.style={},
 minor~tick~length/.initial=1.5mm,
 major~tick/.style={},
 major~tick~length/.initial=3mm,
 major~tick~label/.style={
   inner~sep=0,
   outer~sep=0,
   anchor=mid~west,
   rotate=90,
 },
 major~tick~eras/.is~choice,
 major~tick~eras/none/.code
   = { \int_set:Nn\l_@@_major_tick_eras_int{0} },
 major~tick~eras/all/.code
   = { \int_set:Nn\l_@@_major_tick_eras_int{1} },
 major~tick~eras/outer/.code
   = { \int_set:Nn\l_@@_major_tick_eras_int{2} },
%    \end{macrocode}
% Keys applicable to intervals, texts, spaces, and legends.
%    \begin{macrocode}
 no~autostep/.code = { \bool_set_false:Nz\l_@@_autostep_bool },
 ref/.initial={},
 mark/.initial={},
 marks/.forward~to=/timechart/mark,
 circa~uncertainty/.initial=3,
 interval~minimum~width/.initial=1pt,
 interval~bar~color/.initial=black,
 interval~bar~thickness/.initial=8pt,
 interval~bar~node~name/.initial = {bar~node},
 interval~mark~color/.initial=gray,
 interval~label/.style={},
 interval~label~centered/.style={/timechart/interval~label,text=white},
 interval~label~centered~background/.style={/timechart/interval~label},
 interval~label~baseline/.initial=-3pt,
 interval~label~pos/.is~choice,
 interval~label~pos/left/.code
   = { \int_set:Nn\l_@@_label_pos_int{0} },
 interval~label~pos/center/.code
   = { \int_set:Nn\l_@@_label_pos_int{1} },
 interval~label~pos/right/.code
   = { \int_set:Nn\l_@@_label_pos_int{2} },
 interval~label~node~name/.initial = {label~node},
 start~range/.is~choice,
 start~range/fade/.code
   = { \int_set:Nn\l_@@_start_range_type_int{0} },
 start~range/slant/.code
   = { \int_set:Nn\l_@@_start_range_type_int{1} },
 finish~range/.is~choice,
 finish~range/fade/.code
   = { \int_set:Nn\l_@@_finish_range_type_int{0} },
 finish~range/slant/.code
   = { \int_set:Nn\l_@@_finish_range_type_int{1} },
%    \end{macrocode}
% Keys applicable only to texts.
%    \begin{macrocode}
 text~node~name/.initial = {text~node},
 text/.style={},
 text~baseline/.initial=-3pt,
 text~pos/.is~choice,
 text~pos/left/.code = { \int_set:Nn\l_@@_text_pos_int{0} },
 text~pos/center/.code = { \int_set:Nn\l_@@_text_pos_int{1} },
 text~pos/right/.code = { \int_set:Nn\l_@@_text_pos_int{2} },
%    \end{macrocode}
% Keys applicable only to legends.
%    \begin{macrocode}
 legend~item~width/.initial=9mm,
 legend~item~range~width/.initial=3mm,
%    \end{macrocode}
% Shortcuts for positioning.
%    \begin{macrocode}
 left/.code = {
   \int_set:Nn\l_@@_label_pos_int{0}
   \int_set:Nn\l_@@_text_pos_int{0}
 },
 center/.code = {
   \int_set:Nn\l_@@_label_pos_int{1}
   \int_set:Nn\l_@@_text_pos_int{1}
 },
 right/.code = {
   \int_set:Nn\l_@@_label_pos_int{2}
   \int_set:Nn\l_@@_text_pos_int{2}
 },
}
%    \end{macrocode}
%
% \begin{macro}{\l_@@_grid_bool}
%   Boolean indicating whether the grid will be drawn. This variable is by default true but can be set false via the
%   \key{/timechart/no grid} PGF key.
%    \begin{macrocode}
\bool_new:N\l_@@_grid_bool
\bool_set_true:N\l_@@_grid_bool
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_axis_int}
%   An integer indicating whether and where the axis will be drawn. This is set via the \key{/timechart/axis} PGF
%   key.
%    \begin{macrocode}
\int_new:N\l_@@_axis_int
\int_set:Nn\l_@@_axis_int{1}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_major_tick_eras_int}
%   An integer indicating which major ticks will have era indicators. This is set via the \key{/timechart/major tick
%   era} PGF key.
%    \begin{macrocode}
\int_new:N\l_@@_major_tick_eras_int
\int_set:Nn\l_@@_major_tick_eras_int{2}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_autostep_bool}
%   Boolean indicating whether to automatically step the \(y\) coordinate after an interval, text, or space. This
%   variable is by default true but can be set false via the \key{/timechart/no autostep} PGF key.
%    \begin{macrocode}
\bool_new:N\l_@@_autostep_bool
\bool_set_true:N\l_@@_autostep_bool
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_label_pos_int}
%   An integer to hold the interval label position. This is set via the \key{/timechart/interval label pos} PGF key.
%    \begin{macrocode}
\int_new:N \l_@@_label_pos_int
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_text_pos_int}
%   An integer to hold the text position. This is set via the \key{/timechart/text pos} PGF key.
%    \begin{macrocode}
\int_new:N \l_@@_text_pos_int
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\l_@@_start_range_type_int,\l_@@_finish_range_type_int}
%   Integers to hold the type of the start/end ranges. These are set via the \key{/timechart/start range} and
%   \key{/timechart/finish range} PGF keys.
%    \begin{macrocode}
\int_new:N \l_@@_start_range_type_int
\int_new:N \l_@@_finish_range_type_int
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Main environment}
%
% \begin{macro}{timechart}
%   The main environment.
%   \begin{arguments}
%     \item PGF keys to apply.
%     \item Start year.
%     \item End year.
%   \end{arguments}
%    \begin{macrocode}
\NewDocumentEnvironment{timechart}{ O{} m m }
 { \@@_main_begin:nnn{#1}{#2}{#3} }
 { \@@_main_end: }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_main_begin:nnn}
%   This command uses values specified by PGF keys to make some necessary calculations to begin the chart.
%    \begin{macrocode}
\cs_new:Npn \@@_main_begin:nnn #1#2#3
 {
%    \end{macrocode}
%   Process the supplied PGF keys and retrieve values that affect the chart as a whole.
%    \begin{macrocode}
   \pgfkeys{
     /timechart/.cd,
     #1,
     width/.get=\l_@@_width_pgf,
     ystep/.get=\l_@@_ystep_pgf,
     grid~top~ysep/.get=\l_@@_grid_top_ysep_pgf,
     grid~bottom~ysep/.get=\l_@@_grid_bottom_ysep_pgf,
     minor~tick~interval/.get=\l_@@_minor_tick_interval_year,
     major~tick~interval/.get=\l_@@_major_tick_interval_year,
   }
%    \end{macrocode}
%   Start the \TikZ\ picture and set up the necessary layers.
%    \begin{macrocode}
   \tikzpicture
   \pgfdeclarelayer{grid}
   \pgfdeclarelayer{labelbg}
   \pgfsetlayers{grid,labelbg,main}
%    \end{macrocode}
%   Store the line width of the grid and axis, treating them as \qty{0}{\point} if they are disabled.
%    \begin{macrocode}
   \bool_if:NTF\l_@@_grid_bool
     {
       \@@_set_style_line_width:nn
         {\l_@@_grid_line_width}
         {/timechart/grid}
     }
     { \pgfmathsetlengthmacro{\l_@@_grid_line_width}{0} }
   \int_if_zero:nTF{ \l_@@_axis_int }
     {
       \pgfmathsetlengthmacro{\l_@@_axis_line_width}{0}
       \pgfmathsetlengthmacro{\l_@@_major_tick_line_width}{0}
       \pgfmathsetlengthmacro{\l_@@_minor_tick_line_width}{0}
     }
     {
       \@@_set_style_line_width:nn
         {\l_@@_axis_line_width}
         {/timechart/axis~line}
       \@@_set_style_line_width:nn
         {\l_@@_major_tick_line_width}
         {/timechart/major~tick}
       \@@_set_style_line_width:nn
         {\l_@@_minor_tick_line_width}
         {/timechart/minor~tick}
     }
%    \end{macrocode}
%   Store the start and finish years (ignoring circa, month, day), and then set up the conversion from years to \(x\)
%   coordinates. \cs{l_@@_x} is the \(x\)-distance corresponding to one year, and \mcode{yeartox} is the \pkg{pgfmath}
%   function that does the conversion.
%    \begin{macrocode}
   \@@_parse_date:NNn\l_tmpa_bool\l_@@_start_year{#2}
   \@@_parse_date:NNn\l_tmpa_bool\l_@@_finish_year{#3}
   \pgfmathsetmacro{\l_@@_start_year}
     {floor(\l_@@_start_year)}
   \pgfmathsetmacro{\l_@@_finish_year}
     {floor(\l_@@_finish_year)}
   \pgfmathsetmacro{\l_@@_x}
     {
       (
         \l_@@_width_pgf
         - max(
           \l_@@_grid_line_width,
           \l_@@_axis_line_width,
           \l_@@_major_tick_line_width,
           \l_@@_minor_tick_line_width
         )
       )/(\l_@@_finish_year-\l_@@_start_year)
     }
   \pgfkeys{
     /pgf/declare~function={
       yeartox(\n)=\l_@@_x*(\n-\l_@@_start_year);
     },
   }
%    \end{macrocode}
% Calculate the start and finish \(x\) coordinates.
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_start_x}
     {yeartox(\l_@@_start_year)}
   \pgfmathsetmacro{\l_@@_finish_x}
     {yeartox(\l_@@_finish_year)}
%    \end{macrocode}
% Set up tracking of current \(y\) coordinate.
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_current_y}{0}
   \pgfmathsetmacro{\l_@@_saved_y}{0}
   \pgfmathsetmacro{\l_@@_auto_reset_minimum_y}{-16000pt}
   \pgfmathsetmacro{\l_@@_auto_reset_maximum_y}{16000pt}
%    \end{macrocode}
% Calculate some years used in loops.
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_start_plus_year}{
     \l_@@_start_year+\l_@@_minor_tick_interval_year
   }
   \pgfmathsetmacro{\l_@@_start_plusplus_year}{
     \l_@@_start_year+(2*\l_@@_minor_tick_interval_year)
   }
   \pgfmathsetmacro{\l_@@_end_minus_year}{
     \l_@@_finish_year-\l_@@_minor_tick_interval_year
   }
%    \end{macrocode}
%   Begin a group and make available the user commands \cs{timechart}\ldots. (The group will be ended by
%   \cs{@@_main_end_user:}.)
%    \begin{macrocode}
   \group_begin:
   \cs_set_eq:NN\timechartinterval\@@_interval_user:Ommm
   \cs_set_eq:NN\timecharttext\@@_text_user:Omm
   \cs_set_eq:NN\timechartspace\@@_space_user:O
   \cs_set_eq:NN\timechartsety\@@_set_y_user:m
   \cs_set_eq:NN\timechartsavey\@@_save_y_user:
   \cs_set_eq:NN\timechartresety\@@_reset_y_user:
   \cs_set_eq:NN\timechartsetyminimumautoreset
     \@@_set_y_minimum_auto_reset_user:m
   \cs_set_eq:NN\timechartsetymaximumautoreset
     \@@_set_y_maximum_auto_reset_user:m
   \cs_set_eq:NN\timechartstepy\@@_step_y_user:O
   \cs_set_eq:NN\timechartfinish\@@_main_end_user:
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_main_end:}
%   Make sure the chart is complete and end the \TikZ\ picture. \cs{@@_main_end_user:} ends the group begun by
%   \cs{@@_main_begin:nnn}, so whether the user has \emph{not} called it (as \cs{timechartfinish}) is equivalent to it
%   being equal to \cs{timechartfinish}.
%    \begin{macrocode}
\cs_new:Npn\@@_main_end:
 {
   \cs_if_eq:NNT\timechartfinish\@@_main_end_user:
     { \@@_main_end_user: }
   \endtikzpicture
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_main_end_user:}
%   End the group begun by \cs{@@_main_begin:nnn}, draw the axis and grid, and set the bounding box. This macro is made
%   available as \cs{timechartfinish} inside the \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_main_end_user:
 {
%    \end{macrocode}
%   The aim here is to set the bounding box (1) to fit horizontally the axis \emph{not} including labels and the grid
%   and (2) to fit vertically the axis including labels and the grid . All the `horizonatal' data is already known, and
%   the `vertical' data is determined by the \emph{current} bounding box. So extract the `vertical' data and then reset
%   the bounding box.
%    \begin{macrocode}
   \pgfextracty{\l_@@_tmpa_dim}
     { \pgfpointanchor{current~bounding~box}{south} }
   \pgfextracty{\l_@@_tmpb_dim}
     { \pgfpointanchor{current~bounding~box}{north} }
   \pgfresetboundingbox
%    \end{macrocode}
%   If the timechart is empty, then the extracted \(y\) coordinates of `north' and `south' anchors of the bounding box
%   will be \qty{-16000}{\point} and \qty{16000}{\point} respectively. Test for this and treat them as both having \(y\)
%   coordinate \qty{0}{\point} in this case.
%    \begin{macrocode}
   \dim_compare:nNnTF{\l_@@_tmpa_dim}>{\l_@@_tmpb_dim}
     {
       \pgfmathsetmacro{\l_@@_content_bottom_y}{0pt}
       \pgfmathsetmacro{\l_@@_content_top_y}{0pt}
     }
     {
       \pgfmathsetmacro{\l_@@_content_bottom_y}
         {\l_@@_tmpa_dim}
       \pgfmathsetmacro{\l_@@_content_top_y}
         {\l_@@_tmpb_dim}
     }
%    \end{macrocode}
%   Now draw the grid and axis if necessary and set the bounding box if not.
%    \begin{macrocode}
   \bool_if:NTF{\l_@@_grid_bool}
     { \@@_grid_draw: }
     { \@@_nogrid_bounding_box_set: }
   \@@_axis_draw:
%    \end{macrocode}
%   Finally, end the group begun by \cs{@@_main_begin:nnn}.
%    \begin{macrocode}
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Grid drawing}
%
% \begin{macro}{\@@_grid_draw:}
%   Draw the grid of the chart, assuming that the \(y\) coordinates of the top and bottom of the content have been
%   calculated and stored in \cs{l_@@_content_top_y} and \cs{l_@@_content_bottom_y}. These variable will be updated to
%   the grid top and bottom.
%    \begin{macrocode}
\cs_new:Npn\@@_grid_draw:
 {
   \pgfmathsetmacro{\l_@@_content_bottom_y}{
     \l_@@_content_bottom_y-\l_@@_grid_bottom_ysep_pgf
   }
   \pgfmathsetmacro{\l_@@_content_top_y}{
     \l_@@_content_top_y+\l_@@_grid_top_ysep_pgf
   }
   \pgfonlayer{ grid }
   \scope[/timechart/grid]
   \foreach \year in {
     \l_@@_start_plus_year,
     \l_@@_start_plusplus_year,
     ...,
     \l_@@_end_minus_year
   } {
     \group_begin:
%    \end{macrocode}
%   Only draw gridlines at major ticks.
%    \begin{macrocode}
     \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
       { Mod(\year,\l_@@_major_tick_interval_year)==0 }
     \bool_if:NT\l_@@_tmpa_bool
       {
         \pgftransformshift{ \pgfpoint{yeartox(\year)}{0} }
         \pgfpathmoveto{ \pgfpoint{0}{\l_@@_content_top_y} }
         \pgfpathlineto{ \pgfpoint{0}{\l_@@_content_bottom_y} }
         \pgfusepath{ draw }
       }
     \group_end:
   }
%    \end{macrocode}
%   Define and draw the grid node.
%    \begin{macrocode}
   \@@_make_rectangle_node:nnnn
     { \pgfpoint{\l_@@_start_x}{\l_@@_content_bottom_y} }
     { \pgfpoint{\l_@@_finish_x}{\l_@@_content_top_y} }
     { grid }
     { \c_true_bool }
   \endscope
   \endpgfonlayer
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Axis drawing}
%
% \begin{macro}{\@@_axis_draw:}
%   Draw the axis, with large/small ticks and labels on appropriate years.
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw:
 {
   \group_begin:
   \int_case:nn{ \l_@@_axis_int }
   {
     {0}
     { \prg_do_nothing: }
     {1}
     {
       \pgftransformshift{
         \pgfpoint{0}{
           \l_@@_content_top_y
           +\pgfkeysvalueof{/timechart/axis~ysep}
         }
       }
       \pgfmathsetmacro{\l_@@_tick_orientation_pgf}{1}
       \cs_set:Npn\l_@@_tick_label_anchor_text
         { mid~west }
       \cs_set:Npn\l_@@_zero_tick_before_label_anchor_text
         { base~west }
       \cs_set:Npn\l_@@_zero_tick_after_label_anchor_text
         { north~west }
       \@@_axis_draw_aux:
     }
     {2}
     {
       \pgftransformshift{
         \pgfpoint{0}{
           \l_@@_content_bottom_y
           -\pgfkeysvalueof{/timechart/axis~ysep}
         }
       }
       \pgfmathsetmacro{\l_@@_tick_orientation_pgf}{-1}
       \cs_set:Npn\l_@@_tick_label_anchor_text
         { mid~east }
       \cs_set:Npn\l_@@_zero_tick_before_label_anchor_text
         { base~east }
       \cs_set:Npn\l_@@_zero_tick_after_label_anchor_text
         { north~east }
       \@@_axis_draw_aux:
     }
   }
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_aux:}
%   Draw the axis, with large/small ticks and labels on appropriate years, assuming that the \(y\) coordinate has been
%   calculated and stored in \cs{l_@@_axis_y}.
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_aux:
 {
   \pgfkeys{
     /timechart/minor~tick~length/.get=\@@_minor_tick_length_pgf,
     /timechart/major~tick~length/.get=\@@_major_tick_length_pgf,
   }
%    \end{macrocode}
% Work out the first and last years which will have a major tick (since these are marked with the era).
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_start_major_tick_year}
     {
       \l_@@_start_year
       -Mod(
         \l_@@_start_year,
         \l_@@_major_tick_interval_year
       )
     }
   \pgfmathsetmacro{\l_@@_start_major_tick_year}
     {
       ifthenelse(
         \l_@@_start_major_tick_year<\l_@@_start_year,
         \l_@@_start_major_tick_year
           +\l_@@_major_tick_interval_year,
         \l_@@_start_major_tick_year
       )
     }
   \pgfmathsetmacro{\l_@@_start_plus_major_tick_year}
     {
       \l_@@_start_major_tick_year
       +\l_@@_major_tick_interval_year
     }
   \pgfmathsetmacro{\l_@@_finish_major_tick_year}
     {
       \l_@@_finish_year
       -Mod(
         \l_@@_finish_year,
         \l_@@_major_tick_interval_year
       )
     }
%    \end{macrocode}
% Loop over years and draw the minor ticks.
%    \begin{macrocode}
   \foreach \year in {
     \l_@@_start_year,
     \l_@@_start_plus_year,
     ...,
     \l_@@_finish_year
   } {
     \pgfmathsetmacro{\x}{yeartox(\year)}
     \@@_pgfmathsetbool:nn
       {\l_@@_tmpa_bool}
       {
         Mod(
           \year-\l_@@_start_major_tick_year,
           \l_@@_major_tick_interval_year
         )==0
       }
     \bool_if:NF\l_@@_tmpa_bool
       { \@@_axis_draw_minor_tick:N\x }
   }
%    \end{macrocode}
% Loop over years and draw the major ticks.
%    \begin{macrocode}
   \foreach \year in {
     \l_@@_start_major_tick_year,
     \l_@@_start_plus_major_tick_year,
     ...,
     \l_@@_finish_major_tick_year
   } {
     \pgfmathsetmacro{\x}{yeartox(\year)}
     \@@_axis_draw_labelled_major_tick:NN\x\year
   }
%    \end{macrocode}
% Define the axis line and define the axis node.
%    \begin{macrocode}
   \@@_draw_axis_line
   \int_case:nn{\l_@@_axis_int}
   {
     {1}
     {
       \pgfextracty{\l_@@_tmpa_dim}
         { \pgfpointanchor{current~bounding~box}{north} }
       \pgfmathsetmacro{\l_@@_axis_top_y}{\l_@@_tmpa_dim}
       \pgfmathsetmacro{\l_@@_axis_bottom_y}{0}
     }
     {2}
     {
       \pgfextracty{\l_@@_tmpa_dim}
         { \pgfpointanchor{current~bounding~box}{south} }
       \pgfmathsetmacro{\l_@@_axis_top_y}{0}
       \pgfmathsetmacro{\l_@@_axis_bottom_y}{\l_@@_tmpa_dim}
     }
   }
   \@@_make_rectangle_node:nnnn
     { \pgfpoint{\l_@@_start_x}{\l_@@_axis_bottom_y} }
     { \pgfpoint{\l_@@_finish_x}{\l_@@_axis_top_y} }
     { axis }
     { \c_false_bool }
 }
%    \end{macrocode}
% \end{macro}
%
% All the remaining axis-related macros (which begin \cs{@@_axis_draw_}) assume that a transformation has been applied
% so that the axis line is at \(y=0\).
%
% \begin{macro}{\@@_axis_draw_minor_tick:N}
%  Draw an unlabelled tick at \(x\) coordinate \param{1}.
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_minor_tick:N #1
 {
   \scope[/timechart/minor~tick]
   \pgfpathmoveto{ \pgfpoint{#1}{0} }
   \pgfpathlineto{
     \pgfpoint{#1}{
       \l_@@_tick_orientation_pgf
       *\@@_minor_tick_length_pgf
     }
   }
   \pgfusepath{draw}
   \endscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_labelled_major_tick:NN}
%   Draw a labelled major tick at \(x\) coordinate \param{1}, with label for year \param{2}, using the special epoch
%   marker if the year is 0, and showing the era if and only if the year is for the first or last major tick. This macro
%   assumes that \cs{@@_start_major_tick_year} and \cs{@@_finish_major_tick_year} have been calculated.
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_labelled_major_tick:NN #1#2
 {
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}{#2==0}
   \bool_if:NTF \l_@@_tmpa_bool
     { \@@_axis_draw_zero_tick:N #1 }
     {
       \int_case:nn { \l_@@_major_tick_eras_int }
       {
         {0}{ \bool_set_false:N\l_@@_tmpd_bool }
         {1}{ \bool_set_true:N\l_@@_tmpd_bool }
         {2}
         {
           \@@_pgfmathsetbool:nn{\l_@@_tmpb_bool}
             { #2==\l_@@_start_major_tick_year }
           \@@_pgfmathsetbool:nn{\l_@@_tmpc_bool}
             { #2==\l_@@_finish_major_tick_year }
           \bool_set:Nn\l_@@_tmpd_bool
             { \l_@@_tmpb_bool || \l_@@_tmpc_bool }
         }
       }
       \@@_axis_draw_major_tick:N #1
       \@@_axis_draw_year_label:nnnnnn
         { #1 }
         { #2 }
         { \l_@@_tmpd_bool }
         { \l_@@_tick_label_anchor_text }
         { 0 }
         {
           \l_@@_tick_orientation_pgf
           *(\@@_major_tick_length_pgf+1mm)
         }
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_major_tick:N}
%  Draw a major tick at \(x\) coordinate \param{1}.
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_major_tick:N #1
 {
   \scope[/timechart/major~tick]
   \pgfpathmoveto{ \pgfpoint{#1}{0} }
   \pgfpathlineto{
     \pgfpoint{#1}{
       \l_@@_tick_orientation_pgf
       *\@@_major_tick_length_pgf
     }
   }
   \pgfusepath{draw}
   \endscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_zero_tick:N}
%  Draw a special (labelled) tick for year zero at \(x=\param{1}\).
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_zero_tick:N #1
 {
   \group_begin:
   \pgftransformshift{ \pgfpoint{#1}{0} }
%    \end{macrocode}
%   The mark is a cross made up of four arcs and the miter joins between them. The parameter \cs{r} is the arc radius.
%   The parameter \cs{a} is how many degrees should be trimmed from the start/end of a quarter-circle to form each arc.
%   Thus the length of the miter is dependent on \cs{a}.
%    \begin{macrocode}
   \pgfmathsetmacro{\a}{5}
   \pgfmathsetlengthmacro{\r}{1mm}
   \pgfmathsetlengthmacro{\t}{\r*(cos(\a)-cos(90-\a))/(1-cos(90-\a))}
%    \end{macrocode}
%   The drawing process is: move to the start of the tick, draw the tick, draw the four arcs, then draw a small part of
%   the tick again. The last step is not mathematically necessary for a smooth join, but ensures that the join
%   \emph{appears} smooth.
%    \begin{macrocode}
   \scope[/timechart/major~tick,line~join=miter]
   \group_begin:
   \pgftransformyscale{\l_@@_tick_orientation_pgf}
   \pgfpathmoveto{\pgfpointorigin}
   \pgfpathlineto{\pgfpoint{0}{\@@_major_tick_length_pgf}}
   \pgfpatharc{0}{90-\a}{\t~and~\r}
   \pgfpatharc{270+\a}{360-\a}{\r}
   \pgfpatharc{180+\a}{270-\a}{\r}
   \pgfpatharc{90+\a}{180-\a}{\t~and~\r}
   \pgfpathlineto{\pgfpoint{0}{\@@_major_tick_length_pgf-1pt}}
   \pgfusepath{draw}
   \group_end:
   \endscope
%    \end{macrocode}
%   There is no year 0, so label the zero mark with the 1 before and 1 after the epoch.
%    \begin{macrocode}
   \@@_axis_draw_year_label:nnnnnn
     { 0 }
     { -1 }
     { \c_true_bool }
     { \l_@@_zero_tick_before_label_anchor_text }
     { -.5mm }
     { \l_@@_tick_orientation_pgf*5.5mm }
   \@@_axis_draw_year_label:nnnnnn
     { 0 }
     { 1 }
     { \c_true_bool }
     { \l_@@_zero_tick_after_label_anchor_text }
     { .5mm }
     { \l_@@_tick_orientation_pgf*5.5mm }
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_line}
%   Draw the axis line itself.
%    \begin{macrocode}
\cs_new:Npn\@@_draw_axis_line
 {
   \scope[/timechart/axis~line]
   \pgfpathmoveto{ \pgfpoint{\l_@@_start_x}{0} }
   \pgfpathlineto{ \pgfpoint{\l_@@_finish_x}{0} }
   \pgfusepath{draw}
   \endscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_axis_draw_year_label:nnnnnn}
%  Draw a year label.
%   \begin{arguments}
%     \item \(x\) coordinate.
%     \item Year for label.
%     \item Boolean literal indicating whether the era should be shown.
%     \item Anchor for node.
%     \item \(x\) offset (dimension).
%     \item \(y\) offset (dimension).
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn\@@_axis_draw_year_label:nnnnnn #1#2#3#4#5#6
 {
   \group_begin:
   \pgftransformshift{ \pgfpoint{#1+#5}{#6} }
   \pgfmathtruncatemacro{\absyear}{ abs(#2) }
   \scope[/timechart/major~tick~label]
   \bool_if:NTF #3
     {
       \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}{#2<0}
       \bool_if:NTF\l_@@_tmpa_bool
         { \cs_set_eq:NN\@@_make_year:n\timechartmakebeforeyear }
         { \cs_set_eq:NN\@@_make_year:n\timechartmakeafteryear  }
     }
     { \cs_set_eq:NN\@@_make_year:n\use:n }
   \@@_hsmash_pgfnode:nnnnn
     {rectangle}
     {#4}
     {\@@_make_year:n{\absyear}}
     {}
     {}
   \endscope
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\timechartmakebeforeyear,\timechartmakeafteryear}
%   User-redefineable macros to format a year as before or after the epoch.
%    \begin{macrocode}
\cs_new:Npn\timechartmakebeforeyear #1
 {
   #1\nobreakspace\textsc{bce}
 }
\cs_new:Npn\timechartmakeafteryear #1
 {
   #1\nobreakspace\textsc{ce}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Bounding box}
%
% \begin{macro}{\@@_nogrid_bounding_box_set:}
% Set the bounding box when no grid is being drawn.
%    \begin{macrocode}
\cs_new:Npn\@@_nogrid_bounding_box_set:
 {
   \pgfpathmoveto
     { \pgfpoint{\l_@@_start_x}{\l_@@_content_bottom_y} }
   \pgfpathmoveto
     { \pgfpoint{\l_@@_finish_x}{\l_@@_content_top_y} }
   \pgfusepath{discard}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Positioning}
%
% \begin{macro}{\@@_set_y_user:m}
%   Set current \(y\) coordinate to \param{1}. This macro will be made available as \cs{timechartsety} in the
%   \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_set_y_user:m #1
 {
   \pgfmathsetmacro{\l_@@_current_y}{#1}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_save_y_user:}
%   Save the current \(y\) coordinate. This macro will be made available as \cs{timechartsavey} in the
%   \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_save_y_user:
 {
   \pgfmathsetmacro{\l_@@_saved_y}{\l_@@_current_y}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_reset_y_user:}
%   Set the current \(y\) coordinate to the last saved coordinate. This macro will be made available as
%   \cs{timechartsresety} in the \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_reset_y_user:
 {
   \pgfmathsetmacro{\l_@@_current_y}{\l_@@_saved_y}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_set_y_minimum_auto_reset_user:m}
%   Set a \(y\) coordinate below which \cs{@@_step_y_user:} will automatically reset the currrent \(y\) coordinate to
%   the last saved \(y\) coordinate. This macro will be made available as \cs{timechartssetyminimumautoreset} in the
%   \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_set_y_minimum_auto_reset_user:m #1
 {
   \pgfmathsetmacro{\l_@@_auto_reset_minimum_y}{#1}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_set_y_maximum_auto_reset_user:m}
%   Set a \(y\) coordinate above which \cs{@@_step_y_user:} will automatically reset the currrent \(y\) coordinate to
%   the last saved \(y\) coordinate. This macro will be made available as \cs{timechartssetymaximumautoreset} in the
%   \env{timechart} environment.
%    \begin{macrocode}
\cs_new:Npn\@@_set_y_maximum_auto_reset_user:m #1
 {
   \pgfmathsetmacro{\l_@@_auto_reset_maximum_y}{#1}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_step_y_user:O}
%   Increment the current \(y\) coordinate by \param{1} times the length specified in \key{/timechart/ystep}. This
%   macro will be made available as \cs{timechartstepy} in the \env{timechart} environment.
%    \begin{macrocode}
\NewDocumentCommand{\@@_step_y_user:O}{ O{1} }
 {
   \pgfmathsetmacro{\l_@@_current_y}
     {\l_@@_current_y+#1*\l_@@_ystep_pgf}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     {
       or(
         \l_@@_current_y<\l_@@_auto_reset_minimum_y,
         \l_@@_current_y>\l_@@_auto_reset_maximum_y
       )
     }
   \bool_if:nT{\l_@@_tmpa_bool}
     { \pgfmathsetmacro{\l_@@_current_y}{\l_@@_saved_y)} }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Bounds checking}
%
% \begin{macro}{\@@_if_x_in_bounds:nT}%
%   Check if \(x\) coordinate \param{1} is (strictly) within the bounds of the chart; if so, execute \param{2}.
%    \begin{macrocode}
\cs_new:Npn\@@_if_x_in_bounds:nT #1#2
 {
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}{
     and(
       #1>=\l_@@_start_x,
       #1<=\l_@@_finish_x
     )
   }
   \bool_if:NT\l_@@_tmpa_bool
     {#2}
 }

%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_if_x_range_intersect_bounds_x:nnT}%
%   Check if the range between \(x\) coordinates \param{1} and \param{2} intersects the range of the bounds of the
%   chart; if so, execute \param{3}.
%    \begin{macrocode}
\cs_new:Npn\@@_if_x_range_intersect_bounds:nnT #1#2#3
 {
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}{
     or(
       or(
         and(
           #2>=\l_@@_start_x,
           #2<=\l_@@_finish_x
         ),
         and(
           #1>=\l_@@_start_x,
           #1<=\l_@@_finish_x
         )
       ),
       and(
         #1<\l_@@_start_x,
         #2>\l_@@_finish_x
       )
     )
   }
   \bool_if:NT\l_@@_tmpa_bool
     {#3}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Date and date range parsing}
%
% \begin{macro}{\@@_parse_date_or_daterange:NNNNNn}
%   Parse the text in \param{6}, which should represent a date or date range, into parameters \param{1}--\param{5}.
%   \begin{arguments}
%     \item range indicator boolean variable.
%     \item minimum circa indicator boolean variable.
%     \item minimum variable.
%     \item maximum circa indicator boolean variable.
%     \item maximum variable.
%     \item text to parse.
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn\@@_parse_date_or_daterange:NNNNNn #1#2#3#4#5#6
{
 \bool_set:Nn #1 {\@@_is_nondaterange_p:w #6/\q_stop}
 \bool_set_inverse:N #1
 \bool_if:nTF #1
   { \@@_parse_range:w #2#3#4#5\q_mark #6\q_stop }
   {
     \@@_parse_date:NNn #2#3{#6}
     \bool_set_eq:NN #4#2
     \pgfmathsetmacro{#5}{#3}
   }
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_is_nondaterange_p:w}
%   To be called in the form \cs{@@_is_nondaterange_p:w}\meta{text}\texttt{/}\cs{q_stop}. Return boolean true if and
%   only if \meta{text} (known to be either a date or date range) contains a range marker.
%    \begin{macrocode}
\cs_new:Npn\@@_is_nondaterange_p:w #1/#2\q_stop
{
 \tl_if_empty_p:n{#2}
}
%    \end{macrocode}
% \end{macro}
% \begin{macro}{\@@_parse_range:w}
%   To be called in the form
%   \cs{@@_parse_range:w}\meta{cmin}\meta{min}\meta{cmax}\meta{max}\cs{q_mark}\meta{text}\cs{q_stop}. Parse \meta{text}
%   (known to represent a date range) into minimum circa indicator boolean variable \meta{cmin}, minimum variable
%   \meta{min}, maximum circa indicator boolean variable \meta{cmax}, maximum variable \meta{max}.
%    \begin{macrocode}
\cs_new:Npn\@@_parse_range:w #1#2#3#4\q_mark #5/#6\q_stop
{
 \_@@_parse_date:NNn #1#2{#5}
 \_@@_parse_date:NNn #3#4{#6}
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_parse_date:NNn}
%   Parse text (known to represent a date) into the supplied variables. Parameters \param{1} and \param{2} are the
%   variables for (respectively) circa indicator boolean and date, and \param{3} is the text to be parsed:
%   \begin{arguments}
%     \item circa indicator boolean variable.
%     \item date variable.
%     \item text to parse.
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn\@@_parse_date:NNn #1#2#3
{
 \bool_set:Nn #1 { \@@_is_circa_p:w #3c\q_stop }
 \bool_if:NTF #1
   { \@@_parse_circa_date:w #2\q_mark #3\q_stop }
   { \@@_parse_noncirca_date:Nn #2{#3} }
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_is_circa_p:w}
%   To be called in the form \cs{@@_is_circa_p:w}\meta{text}\texttt{c}\cs{q_stop}. Return boolean true if and only if
%   \meta{text} (known to be either a date or a date with a circa indicator) has a circa indicator.
%    \begin{macrocode}
\cs_new:Npn\@@_is_circa_p:w #1c#2\q_stop
{
 \tl_if_empty_p:n{#1}
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_parse_circa_date:w}
%   To be called in the form \cs{@@_parse_circa_date:w}\meta{var}\cs{q_mark}\meta{text}\cs{q_stop}. Parse \meta{text}
%   (known to represent a circa date) into the supplied variable. \param{1} is the variable for the date and \param{2}
%   is the text to be parsed.
%    \begin{macrocode}
\cs_new:Npn\@@_parse_circa_date:w #1\q_mark c#2\q_stop
{
 \@@_parse_noncirca_date:Nn #1{#2}
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_parse_noncirca_date:w}
%   To be called in the form \cs{@@_parse_noncirca_date:w}\meta{var}\cs{q_mark}\meta{text}\break\cs{q_stop}. Parse
%   \meta{text} (known to represent a non-circa date) into the supplied variable. \param{1} is the variable for the date
%   and \param{2} is the text to be parsed.
%    \begin{macrocode}
\cs_new:Npn\@@_parse_noncirca_date:Nn #1#2
{
 \bool_if:nTF { \@@_is_before_p:w #2-\q_stop }
   { \@@_parse_before_date:w #1\q_mark #2\q_stop }
   { \@@_parse_signed_date:w #1\q_mark #2-0-0\q_stop }
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_is_before_p:w}
%   To be called in the form \cs{@@_is_before_p:w}\meta{text}\texttt{-}\cs{q_stop}. Return boolean true if and only if
%   \meta{text} (known to be a date without a circa indicator) begins with a \texttt{-}.
%    \begin{macrocode}
\cs_new:Npn\@@_is_before_p:w #1-#2\q_stop
{
 \tl_if_empty_p:n{#1}
}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_parse_before_date:w}
%   To be called in the form \cs{@@_parse_before_date:w}\meta{var}\cs{q_mark}\meta{text}\cs{q_stop}. Parse \meta{text}
%   (known to represent a date with a leading \texttt{-}) into the supplied variable. \param{1} is the variable for the
%   date and \param{2} is the text to be parsed.
%    \begin{macrocode}
\cs_new:Npn\@@_parse_before_date:w #1\q_mark-#2\q_stop
{
 \@@_parse_signed_date:w #1-\q_mark #2-0-0\q_stop
}
%    \end{macrocode}
% \end{macro}
%
% Now comes that actual parsing of an ISO-format date \texttt{YYYY-MM-DD}. The following macros serve as lookup tables
% for the number of days in the \(n\)-th month and the number of days in the year up to the start of the \(n\)-th month.
%    \begin{macrocode}
\cs_new:cpn{c_@@_year_days_pgf}{365}
\cs_new:cpn{c_@@_month_days_1_pgf}{31}
\cs_new:cpn{c_@@_month_days_2_pgf}{28}
\cs_new:cpn{c_@@_month_days_3_pgf}{31}
\cs_new:cpn{c_@@_month_days_4_pgf}{30}
\cs_new:cpn{c_@@_month_days_5_pgf}{31}
\cs_new:cpn{c_@@_month_days_6_pgf}{30}
\cs_new:cpn{c_@@_month_days_7_pgf}{31}
\cs_new:cpn{c_@@_month_days_8_pgf}{31}
\cs_new:cpn{c_@@_month_days_9_pgf}{30}
\cs_new:cpn{c_@@_month_days_10_pgf}{31}
\cs_new:cpn{c_@@_month_days_11_pgf}{30}
\cs_new:cpn{c_@@_month_days_12_pgf}{31}
\cs_new:cpn{c_@@_cumulative_days_1_pgf}{0}
\cs_new:cpn{c_@@_cumulative_days_2_pgf}{31}
\cs_new:cpn{c_@@_cumulative_days_3_pgf}{59}
\cs_new:cpn{c_@@_cumulative_days_4_pgf}{90}
\cs_new:cpn{c_@@_cumulative_days_5_pgf}{120}
\cs_new:cpn{c_@@_cumulative_days_6_pgf}{151}
\cs_new:cpn{c_@@_cumulative_days_7_pgf}{181}
\cs_new:cpn{c_@@_cumulative_days_8_pgf}{212}
\cs_new:cpn{c_@@_cumulative_days_9_pgf}{243}
\cs_new:cpn{c_@@_cumulative_days_10_pgf}{273}
\cs_new:cpn{c_@@_cumulative_days_11_pgf}{304}
\cs_new:cpn{c_@@_cumulative_days_12_pgf}{334}
%    \end{macrocode}
%
% \begin{macro}{\@@_parse_signed_date:w}
%   To be called in the form \cs{@@_parse_positive_date:w}\meta{var}\meta{sign}\cs{q_mark}\break
%   \meta{text}\texttt{-0-0}\cs{q_stop}. Parse \meta{text} (known to represent a non-circa date) into the supplied
%   variable. \param{1} is the variable for the date and \param{2} is possibly \texttt{-}.
%
%   There is a trick in the parsing:
%   \begin{enumerate}
%       \item If \meta{text} has the form \meta{year}\texttt{-}\meta{month}\texttt{-}\meta{day}, then parameters
%             \param{3}, \param{4}, and \param{5} will be, respectively, \meta{year}, \meta{month}, and
%             \meta{day}\texttt{-0-0}. Thus \param{5} will be evaulated by \pkg{pgfmath} to \meta{day}.
%       \item If \meta{text} has the form \meta{year}\texttt{-}\meta{month}, then parameters \param{3}, \param{4}, and
%             \param{5} will be, respectively, \meta{year}, \meta{month}, and \texttt{0-0}. Thus \param{5} will be
%             evaulated by \pkg{pgfmath} to \(0\).
%       \item If \meta{text} is simply \meta{year}, then parameters \param{3}, \param{4}, and \param{5} will be,
%             respectively, \meta{year}, \texttt{0}, and \texttt{0}.
%     \end{enumerate}
%    \begin{macrocode}
\cs_new:Npn\@@_parse_signed_date:w #1#2\q_mark #3-#4-#5\q_stop
{
 \pgfmathtruncatemacro{\@@_parsed_year_pgf}{#2#3}
 \pgfmathtruncatemacro{\@@_parsed_month_pgf}{#4}
 \pgfmathtruncatemacro{\@@_parsed_day_pgf}{#5}
 \@@_pgfmathsetbool:nn{\l_tmpa_bool}{
   or(
     \@@_parsed_month_pgf < 1,
     \@@_parsed_month_pgf > 12,
   )
 }
 \bool_if:NTF\l_tmpa_bool
 {
%    \end{macrocode}
%   \textit{Case: no valid month is given.} Use only the year.
%    \begin{macrocode}
   \pgfmathsetmacro{#1}{#2#3}
 }
 {
%    \end{macrocode}
%   \textit{Case: a valid month is given.} Get the number of days in the year, in the month, and in the year up to the
%   month. Then check if the year is a leap year and, if so, make the appropriate adjustments.
%    \begin{macrocode}
   \cs_set_eq:NN\l_@@_year_days_pgf\c_@@_year_days_pgf
   \cs_set_eq:Nc\l_@@_month_days_pgf
     { c_@@_month_days_\@@_parsed_month_pgf _pgf }
   \cs_set_eq:Nc\l_@@_cumulative_days_pgf
     { c_@@_cumulative_days_\@@_parsed_month_pgf _pgf }
   \@@_pgfmathsetbool:nn{\l_tmpa_bool}{
     or(
       Mod(\@@_parsed_year_pgf,400) == 0,
       and(
         Mod(\@@_parsed_year_pgf,4) == 0,
         Mod(\@@_parsed_year_pgf,100) != 0
       )
     )
   }
   \bool_if:NT\l_tmpa_bool
     {
       \pgfmathsetmacro{\l_@@_year_days_pgf}
         { \l_@@_year_days_pgf+1 }
       \@@_pgfmathsetbool:nn{\l_tmpb_bool}
         { \@@_parsed_month == 1 }
       \bool_if:NF\l_tmpb_bool
         {
           \@@_pgfmathsetbool:nn{\l_tmpb_bool}
             { \@@_parsed_month == 2 }
           \bool_if:NF\l_tmpb_bool
             {
               \pgfmathsetmacro{\l_@@_month_days_pgf}
                 { \l_@@_month_days_pgf + 1 }
             }
             {
               \pgfmathsetmacro{\l_@@_cumulative_days_pgf}
                 { \l_@@_cumulative_days_pgf + 1 }
             }
         }
     }
   \@@_pgfmathsetbool:nn{\l_tmpa_bool}{
     or(
       \@@_parsed_day_pgf < 1,
       \@@_parsed_day_pgf > \l_@@_month_days_pgf,
     )
   }
   \bool_if:NTF\l_tmpa_bool
     {
%    \end{macrocode}
%   \textit{Sub-case: no valid day is given.} Use only the year and month.
%    \begin{macrocode}
      \pgfmathsetmacro{#1}
        {
          #2#3
          + \l_@@_cumulative_days_pgf/\l_@@_year_days_pgf
        }
     }
     {
%    \end{macrocode}
%   \textit{Sub-case: a valid day is given.} Use the year, month, and day.
%    \begin{macrocode}
      \pgfmathsetmacro{#1}
        {
          #2#3
          + (
              \l_@@_cumulative_days_pgf
              + \@@_parsed_day_pgf
            )/\l_@@_year_days_pgf
        }
     }
 }
}
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Interval drawing}
%
% \subsubsection{Preliminaries}
%
% \begin{macro}{
%   \l_@@_start_is_range_bool,
%   \l_@@_interval_start_min_circa_bool,
%   \l_@@_interval_start_max_circa_bool,
%   \l_@@_finish_is_range_bool,
%   \l_@@_interval_finish_min_circa_bool,
%   \l_@@_interval_finish_max_circa_bool,
% }
%   These boolean variables will be used to hold parsed data for the start and finish of an interval: whether it is a
%   range, whether the beginning of that range is qualified by `circa', and whether the end of that range is qualified
%   by `circa'.
%    \begin{macrocode}
\bool_new:N\l_@@_start_is_range_bool
\bool_new:N\l_@@_interval_start_min_circa_bool
\bool_new:N\l_@@_interval_start_max_circa_bool
\bool_new:N\l_@@_finish_is_range_bool
\bool_new:N\l_@@_interval_finish_min_circa_bool
\bool_new:N\l_@@_interval_finish_max_circa_bool
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Error message definition}
%
%    \begin{macrocode}
\msg_new:nnn{timechart}{interval_dates_invalid}
 { Invalid~interval~dates:~#1~to~#2 }
%    \end{macrocode}
%
%
%
% \subsubsection{Main macros}
%
% \begin{macro}{\@@_interval_user:Ommm}
%   Draw an interval. This macro will be made available as \cs{timechartinterval} inside the \env{timechart}
%   environment. It is simply a wrapper around the internal \cs{@@_interval:nnnn} macro.
%   \begin{arguments}
%     \item PGF keys under \key{/timechart/} to apply.
%     \item Start year.
%     \item Finish year.
%     \item Label.
%   \end{arguments}
%    \begin{macrocode}
\NewDocumentCommand{\@@_interval_user:Ommm}{ O{} m m m }
 {
   \@@_interval:nnnn{#1}{#2}{#3}{#4}
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval:nnnn}
%   Internal macro for drawing an interval.
%    \begin{macrocode}
\cs_new:Npn \@@_interval:nnnn #1#2#3#4
 {
   \@@_debug:n{
     ************************************************************
   }
   \@@_debug:n{Interval~#2~to~#3~"#4"}
%    \end{macrocode}
%   Open an group and parse the start and finish dates or date ranges.
%    \begin{macrocode}
   \group_begin:
   \@@_parse_date_or_daterange:NNNNNn
     \l_@@_start_is_range_bool
     \l_@@_interval_start_min_circa_bool
     \l_@@_interval_start_min_year
     \l_@@_interval_start_max_circa_bool
     \l_@@_interval_start_max_year
     {#2}
   \@@_parse_date_or_daterange:NNNNNn
     \l_@@_finish_is_range_bool
     \l_@@_interval_finish_min_circa_bool
     \l_@@_interval_finish_min_year
     \l_@@_interval_finish_max_circa_bool
     \l_@@_interval_finish_max_year
     {#3}
%    \end{macrocode}
%   Check the results of parsing.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_tmpa_bool}{
     and(
       \l_@@_interval_start_min_year
         <= \l_@@_interval_start_max_year,
       and(
         \l_@@_interval_start_max_year
           <= \l_@@_interval_finish_min_year,
         \l_@@_interval_finish_min_year
           <= \l_@@_interval_finish_max_year
       )
     )
   }
%    \end{macrocode}
%   Proceed if and only if the results of parsing are valid, otherwise output an error message. In both cases, close the
%   group and, in the former case, step the \(y\) coordinate if appropriate.
%    \begin{macrocode}
   \bool_if:NTF\l_tmpa_bool
     {
       \@@_interval_checked:nn{#1}{#4}
       \group_end:
       \bool_if:NT\l_@@_autostep_bool
         { \@@_step_y_user:O }
     }
     {
       \msg_error:nnnn{timechart}{interval_dates_invalid}{#2}{#3}
       \group_end:
     }
 }
%    \end{macrocode}
% \end{macro}
%
% In \cs{@@_interval_user_aux:nnnn}, the start and finish dates were parsed and it has been checked that they satisfy
% \begin{align*}
%   &\cs{l_@@_interval_start_min_year} \\
%   &\qquad\leq \cs{l_@@_interval_start_max_year} \\
%   &\qquad\qquad\leq \cs{l_@@_interval_finish_min_year} \\
%   &\qquad\qquad\qquad\leq \cs{l_@@_interval_finish_max_year}.
% \end{align*}
% In the code that follows, horizontal coordinates \cs[no-index]{l_@@_interval_..._x} will be computed from
% \cs[no-index]{l_@@_interval_..._year}. Subsequently, only the former variables will be used.
%
%
%
%
% \begin{macro}{\@@_interval_checked:nn}
%   Draw an interval using the parsed and checked start and finish dates
%   \begin{arguments}
%     \item PGF keys under \key{/timechart/} to apply.
%     \item Label.
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn \@@_interval_checked:nn #1#2
 {
%    \end{macrocode}
%   Process keys supplied locally and retrieve the only value needed at this stage.
%    \begin{macrocode}
   \pgfqkeys{/timechart}{
     #1,
     circa~uncertainty/.get=\l_@@_circa_uncertainty_year
   }
%    \end{macrocode}
%   Do the minimum amount of calculation necessary to check whether any part of interval is visible. This means
%   calculating \cs{l_@@_interval_start_min_x} and \cs{l_@@_interval_finish_max_x} (including taking into account any
%   `circa').
%    \begin{macrocode}
   \bool_if:NTF\l_@@_interval_start_min_circa_bool
     {
       \pgfmathsetmacro{\l_@@_interval_start_min_x}
         { yeartox(\l_@@_interval_start_min_year
           - \l_@@_circa_uncertainty_year) }
     }
     {
       \pgfmathsetmacro{\l_@@_interval_start_min_x}
         { yeartox(\l_@@_interval_start_min_year) }
     }
   \bool_if:NTF\l_@@_interval_finish_max_circa_bool
     {
       \pgfmathsetmacro{\l_@@_interval_finish_max_x}
         { yeartox(\l_@@_interval_finish_max_year
           + \l_@@_circa_uncertainty_year) }
     }
     {
       \pgfmathsetmacro{\l_@@_interval_finish_max_x}
         { yeartox(\l_@@_interval_finish_max_year) }
     }
%    \end{macrocode}
%   Proceed if some part of the interval is visible.
%    \begin{macrocode}
   \@@_if_x_range_intersect_bounds:nnT
     {\l_@@_interval_start_min_x}
     {\l_@@_interval_finish_max_x}
     { \@@_draw_visible_interval:nn{#1}{#2} }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_start_beyond_bool,\@@_finish_beyond_bool}
%   Boolean variables to indicate whether the interval extends beyond the chart at the start or the finish more than the
%   specified tolerance.
%    \begin{macrocode}
\bool_new:N\l_@@_interval_start_beyond_bool
\bool_new:N\l_@@_interval_finish_beyond_bool
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{@@_draw_visible_interval:nn}
%   Draw an interval of which some part is known to be visible.
%   \begin{arguments}
% \item PGF keys
% \item Label
%   \end{arguments}
%    \begin{macrocode}
\cs_new:Npn\@@_draw_visible_interval:nn #1#2
 {
%    \end{macrocode}
%   Retrieve PGF key values.
%    \begin{macrocode}
   \pgfqkeys{/timechart}{
     tolerance~start/.get=\l_@@_start_tolerance_pgf,
     tolerance~finish/.get=\l_@@_finish_tolerance_pgf,
     beyond~length~start/.get=\l_@@_start_beyond_length_pgf,
     beyond~length~finish/.get=\l_@@_finish_beyond_length_pgf,
     beyond~x~radius~start/.get=\l_@@_start_beyond_x_radius_pgf,
     beyond~x~radius~finish/.get=\l_@@_finish_beyond_x_radius_pgf,
     ref/.get=\l_@@_ref_text,
     mark/.get=\l_@@_mark_text,
     interval~minimum~width/.get=\l_@@_minimum_width_pgf,
     interval~bar~color/.get=\l_@@_bar_color,
     interval~bar~thickness/.get=\l_@@_bar_thickness_pgf,
     interval~mark~color/.get=\l_@@_mark_color,
     interval~label~baseline/.get=\l_@@_text_baseline_pgf,
     interval~label~node~name/.get=\l_@@_interval_label_node_name,
   }
%    \end{macrocode}
% Calculate the start and finish tolerance and beyond indicator \(x\) coordinates.
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_start_tolerance_x}{
     \l_@@_start_x-(\l_@@_start_tolerance_pgf)
   }
   \pgfmathsetmacro{\l_@@_finish_tolerance_x}{
     \l_@@_finish_x+(\l_@@_finish_tolerance_pgf)
   }
   \pgfmathsetmacro{\l_@@_start_beyond_x}{
     \l_@@_start_x-(\l_@@_start_beyond_length_pgf)
   }
   \pgfmathsetmacro{\l_@@_finish_beyond_x}{
     \l_@@_finish_x+(\l_@@_finish_beyond_length_pgf)
   }
%    \end{macrocode}
%   Do the remaining calculations: calculate \cs{l_@@_interval_start_max_x} and \cs{l_@@_interval_finish_min_x}
%   (including taking into account any `circa').
%    \begin{macrocode}
   \pgfmathsetlengthmacro{\l_@@_bar_half_thickness_pgf}
     {.5*\l_@@_bar_thickness_pgf}
   \cs_set:Npn\l_@@_label_text{#2}
   \bool_if:NTF\l_@@_interval_start_max_circa_bool
     {
       \pgfmathsetmacro{\l_@@_interval_start_max_x}
         { yeartox(\l_@@_interval_start_max_year
           + \l_@@_circa_uncertainty_year) }
     }
     {
       \pgfmathsetmacro{\l_@@_interval_start_max_x}
         { yeartox(\l_@@_interval_start_max_year) }
     }
   \bool_if:NTF\l_@@_interval_finish_min_circa_bool
     {
       \pgfmathsetmacro{\l_@@_interval_finish_min_x}
         { yeartox(\l_@@_interval_finish_min_year
           - \l_@@_circa_uncertainty_year) }
     }
     {
       \pgfmathsetmacro{\l_@@_interval_finish_min_x}
         { yeartox(\l_@@_interval_finish_min_year) }
     }
%    \end{macrocode}
%   It is possible that circa indicators have made \cs{l_@@_start_max_x} greater than \cs{l_@@_finish_min_x}.
%   Check for this; if so, set them both to their average.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     {
       \l_@@_interval_start_max_x
         > \l_@@_interval_finish_min_x
     }
   \bool_if:NT\l_@@_tmpa_bool
     {
       \pgfmathsetmacro{\l_@@_interval_start_max_x}
         {
           .5*(
             \l_@@_interval_start_max_x
             + \l_@@_interval_finish_min_x
           )
         }
       \pgfmathsetmacro{\l_@@_interval_finish_min_x}
         { \l_@@_interval_start_max_x }
     }
%    \end{macrocode}
%   Check whether the minimum width requirement is satisfied; if not, make an adjustment.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     {
       (\l_@@_interval_finish_max_x
         -\l_@@_interval_start_min_x)
       > \l_@@_minimum_width_pgf
     }
   \bool_if:NF \l_@@_tmpa_bool
   {
     \pgfmathsetmacro{\l_@@_width_adjust}
       { .5*\l_@@_minimum_width_pgf }
     \pgfmathsetmacro{\l_@@_interval_start_max_x}
       { \l_@@_interval_start_max_x-\l_@@_width_adjust }
     \pgfmathsetmacro{\l_@@_interval_finish_min_x}
       { \l_@@_interval_finish_min_x+\l_@@_width_adjust }
     \pgfmathsetmacro{\l_@@_interval_start_min_x}
       {
         min(
           \l_@@_interval_start_min_x,
           \l_@@_interval_start_max_x
         )
       }
     \pgfmathsetmacro{\l_@@_interval_finish_max_x}
       {
         max(
           \l_@@_interval_finish_max_x,
           \l_@@_interval_finish_min_x
         )
       }
   }
   \@@_debug:n{Calculated+adjusted~x~coords:}
   \@@_debug:n{~
     \l_@@_interval_start_min_x/\l_@@_interval_start_max_x~
     to~
     \l_@@_interval_finish_min_x/\l_@@_interval_finish_max_x
   }
%    \end{macrocode}
%   At this point, the \(x\)-coordinates of the interval have been established. First, decide whether the interval
%   exceeds the chart by more than the tolerance at the start and the finish. If so, set the appropriate clipping path
%   (this may be changed again later).
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_interval_start_beyond_bool}
     {\l_@@_interval_start_min_x<=\l_@@_start_tolerance_x}
   \bool_if:NT\l_@@_interval_start_beyond_bool
     {
       \cs_set_eq:NN
         \@@_interval_start_clip_path:
         \@@_interval_start_clip_path_beyond:
     }
   \@@_pgfmathsetbool:nn{\l_@@_interval_finish_beyond_bool}
     {\l_@@_interval_finish_max_x>=\l_@@_finish_tolerance_x}
   \bool_if:NT\l_@@_interval_finish_beyond_bool
     {
       \cs_set_eq:NN
         \@@_interval_finish_clip_path:
         \@@_interval_finish_clip_path_beyond:
     }
%    \end{macrocode}
%   Compute how the interval will be drawn. There are three components:
%   \begin{itemize}
%     \item the \emph{startrange}, comprising the part between \cs{l_@@_interval_start_min_x} to
%             \cs{l_@@_interval_start_max_x};
%     \item the definite part:  \cs{l_@@_interval_start_max_x} to \cs{l_@@_interval_finish_min_x};
%     \item the \emph{finishrange}: \cs{l_@@_interval_finish_min_x} to \cs{l_@@_interval_finish_max_x}.
%   \end{itemize}
%   It is necessary to decide which of these will be drawn. The logic is complicated because any part may lie outside
%   the timechart or be involved in the beyond indicator. Further, clipping is used for a `slant' startrange or
%   finishrange and for beyond indicators.
%
%   First of all, consider the definite part. Depending on where this is located, it may be unnecessary to compute or
%   draw the startrange or finishrange, so some of the following macros may be set to do nothing.
%    \begin{macrocode}
   \@@_interval_definite_compute:
   \@@_interval_startrange_compute:
   \@@_interval_finishrange_compute:
%    \end{macrocode}
%   All the data needed to draw the interval are now ready. Shift to the correct vertical coordinate and open a scope for
%   drawing.
%    \begin{macrocode}
   \pgftransformshift{ \pgfpoint{0}{\l_@@_current_y} }
   \pgfscope
%    \end{macrocode}
%   First, do the computed clipping, for a slant startrange and/or a slant finishrange, or beyond indicators. Then draw
%   the startrange, finish range, and then the `solid' part, which may be only the definite part or may include a slant
%   startrange or a slant finishrange. Finally, define the node for the bar, then do the labelling.
%    \begin{macrocode}
   \@@_interval_clip:
   \@@_interval_startrange_draw:
   \@@_interval_finishrange_draw:
   \@@_interval_solid_draw:
   \@@_interval_mark:
   \@@_interval_define_bar_node:
   \endpgfscope
   \@@_interval_label:
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Computation}
%
% These macros determine precisely what is to be drawn. The aim is to minimize the number of drawing commands by
% avoiding drawing where areas that would be clipped.
%
%
%
% \paragraph{Definite part of the interval}
%
% \begin{macro}{\@@_interval_definite_compute:}
%   Compute whether and where to draw the definite part of the interval. Two auxiliary macros,
%   \cs{@@_interval_definite_compute_ii:} and \cs{@@_interval_definite_compute_ii:} are used, simply to avoid deep
%   nesting of code.
%
%   First, check whether the entire definite part of the interval is located to the left of the start of the chart and
%   that the interval does exceed the start tolerance. In this case, the only thing that might be drawn to appear to the
%   left of the start will be the excess indicator drawn as part of the finish range, so there is no need to draw the
%   definite part or do anything for the start range.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_definite_compute:
 {
   \@@_debug:n{Computing:~definite~part}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     { \l_@@_interval_finish_min_x < \l_@@_start_x }
   \bool_if:nTF{
     \l_@@_tmpa_bool && \l_@@_interval_start_beyond_bool
   }
     {
       \cs_set_eq:NN
         \@@_interval_solid_draw:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_startrange_compute:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_startrange_draw:\prg_do_nothing:
     }
     {
       \@@_interval_definite_compute_ii:
     }
 }
%    \end{macrocode}
%   Second, check whether the entire definite part of the interval is located to the right of the finish of the chart
%   and that the interval does exceed the finish tolerance. In this case, the only thing that might be drawn to appear
%   to the right of the finish will be the excess indicator drawn as part of the start range, so there is no need to
%   draw the definite part or do anything for the finish range.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_definite_compute_ii:
 {
   \@@_debug:n{~(Stage~II)}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     { \l_@@_interval_start_max_x > \l_@@_finish_x }
   \bool_if:nTF{
     \l_@@_tmpa_bool && \l_@@_interval_finish_beyond_bool
   }
     {
       \cs_set_eq:NN
         \@@_interval_solid_draw:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_finishrange_compute:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_finishrange_draw:\prg_do_nothing:
     }
     {
       \@@_interval_definite_compute_iii:
     }
 }
%    \end{macrocode}
%   At this point, some part of the definite part of the interval has to be drawn.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_definite_compute_iii:
 {
   \@@_debug:n{~(Stage~III)}
%    \end{macrocode}
%   If the start of the definite part of the interval is at or to the left of the start of the chart and the interval
%   exceeds the start tolerance, set the start of the solid part to the position of the start excess indicator. In this
%   case, nothing needs to be done for the start range. Otherwise, set the start of the solid part to the start of the
%   definite part.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     { \l_@@_interval_start_max_x <= \l_@@_start_x }
   \bool_if:nTF{
     \l_@@_tmpa_bool && \l_@@_interval_start_beyond_bool
   }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_start_x\l_@@_start_beyond_x
       \cs_set_eq:NN
         \@@_interval_startrange_compute:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_startrange_draw:\prg_do_nothing:
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_start_x
         \l_@@_interval_start_max_x
     }
%    \end{macrocode}
%   If the finish of the definite part of the interval is at or to the right of the finish of the chart and the interval
%   exceeds the finish tolerance, set the finsih of the solid part to the position of the finish excess indicator. In
%   this case, nothing needs to be done for the start range. Otherwise, set the start of the solid part to the start of
%   the definite part.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpb_bool}
     { \l_@@_interval_finish_min_x >= \l_@@_finish_x }
   \bool_if:nTF{
     \l_@@_tmpb_bool && \l_@@_interval_finish_beyond_bool
   }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_finish_x\l_@@_finish_beyond_x
       \cs_set_eq:NN
         \@@_interval_finishrange_compute:\prg_do_nothing:
       \cs_set_eq:NN
         \@@_interval_finishrange_draw:\prg_do_nothing:
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_finish_x
         \l_@@_interval_finish_min_x
     }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Startrange}
%
% \begin{macro}{\@@_interval_startrange_compute:}
%   Compute how to draw the startrange of an interval. This macro will only be called if it is necessary to draw some
%   part of the startrange.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_compute:
 {
   \@@_debug:n{Computing:~startrange}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     {
       \l_@@_interval_start_min_x
         == \l_@@_interval_start_max_x
     }
   \bool_if:NTF\l_@@_tmpa_bool
     {
       \cs_set_eq:NN\@@_interval_startrange_draw:\prg_do_nothing:
     }
     {
       \@@_interval_startrange_compute_ii:
     }
 }
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\@@_interval_startrange_compute_ii:}
%   Compute how to draw the startrange of an interval. This macro will only be called if the start range is non-empty.
%    \begin{macrocode}
\bool_new:N\l_@@_interval_startrange_finish_beyond_bool
\cs_new:Npn\@@_interval_startrange_compute_ii:
 {
   \@@_debug:n{~(Stage~II)}
%    \end{macrocode}
%   First, if the interval extends beyond the start tolerance then (since some part of the startrange) is visible, the
%   start excess indicator forms part of the range. In this case, the drawn range starts at the start of the timechart and the
%   start excess indicator mirrors this `level' of the range. Otherwise the drawn range starts at the extreme start of the
%   interval at `level' \(0\) and a start excess indicator is not drawn.
%    \begin{macrocode}
   \bool_if:NTF\l_@@_interval_start_beyond_bool
     {
       \cs_set_eq:NN
         \l_@@_interval_startrange_start_x\l_@@_start_x
       \pgfmathsetmacro{\l_@@_interval_startrange_start_level_pgf}
         {
           (\l_@@_interval_startrange_start_x
             -\l_@@_interval_start_min_x)
           /
           (\l_@@_interval_start_max_x
             -\l_@@_interval_start_min_x)
         }
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_startrange_start_x
         \l_@@_interval_start_min_x
       \pgfmathsetmacro
         {\l_@@_interval_startrange_start_level_pgf}{0}
     }
%    \end{macrocode}
%   Second, if the interval extends beyond the finish tolerance and the start of the definite part of the interval is to
%   the right of the finish of the timechart, the finish excess indicator forms part of the range. In this case, the
%   drawn range finishes at the finish of the timechart and the excess indicator mirrors this `level' of the range.
%   Otherwise the drawn range finishes at the extreme finish of the interval at `level' \(0\) and a finish excess
%   indicator is not drawn.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     { \l_@@_interval_start_max_x > \l_@@_finish_x }
   \bool_set:Nn\l_@@_interval_startrange_finish_beyond_bool
     {
       \l_@@_tmpa_bool
       && \l_@@_interval_finish_beyond_bool
     }
   \bool_if:NTF\l_@@_interval_startrange_finish_beyond_bool
     {
       \cs_set_eq:NN
         \l_@@_interval_startrange_finish_x
         \l_@@_finish_x
       \pgfmathsetmacro{\l_@@_interval_startrange_finish_level_pgf}
         {
           (\l_@@_interval_startrange_finish_x
             -\l_@@_interval_start_min_x)
           /
           (\l_@@_interval_start_max_x
             -\l_@@_interval_start_min_x)
         }
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_startrange_finish_x
         \l_@@_interval_start_max_x
       \pgfmathsetmacro
         {\l_@@_interval_startrange_finish_level_pgf}{1}
     }
   \int_case:nn {\l_@@_start_range_type_int}
     {
       {0}{
         \cs_set_eq:NN
           \@@_interval_startrange_draw:
           \@@_interval_startrange_draw_pseudofade:
       }
       {1}{
         \@@_interval_startrange_slant_compute:
       }
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_startrange_slant_compute:}
%   Compute the clipping and drawing necessary for a slant startrange.
%    \begin{macrocode}
\cs_new:Npn \@@_interval_startrange_slant_compute:
 {
   \@@_debug:n{~(Startrange~slant)}
   \bool_if:NTF\l_@@_interval_start_beyond_bool
     {
       \bool_if:NTF\l_@@_interval_startrange_finish_beyond_bool
         {
           \cs_set_eq:NN
             \@@_interval_both_clip_path:
             \@@_interval_startrange_clip_path_beyond_both:
         }
         {
           \cs_set_eq:NN
             \@@_interval_start_clip_path:
             \@@_interval_startrange_clip_path_beyond_start:
         }
     }
     {
       \bool_if:NTF\l_@@_interval_startrange_finish_beyond_bool
         {
           \cs_set_eq:NN
             \@@_interval_both_clip_path:
             \@@_interval_startrange_clip_path_beyond_finish:
         }
         {
           \cs_set_eq:NN
             \@@_interval_start_clip_path:
             \@@_interval_startrange_clip_path_start:
         }
       }
   \cs_if_eq:NNTF\@@_interval_solid_draw:\prg_do_nothing:
     {
       \cs_set_eq:NN
         \@@_interval_startrange_draw:
         \@@_interval_startfinishrange_draw_slant:
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_start_x
         \l_@@_start_beyond_x
       \cs_set_eq:NN
         \@@_interval_startrange_draw:
         \prg_do_nothing:
     }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Finishrange}
%
% \begin{macro}{\@@_interval_finishrange_compute:}
%   Compute how to draw the finishrange of an interval. This macro will only be called if it is necessary to draw some
%   part of the finishrange.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_compute:
 {
   \@@_debug:n{Computing:~finishrange}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     {
       \l_@@_interval_finish_max_x
         == \l_@@_interval_finish_min_x
     }
   \bool_if:NTF\l_@@_tmpa_bool
     {
       \cs_set_eq:NN\@@_interval_finishrange_draw:\prg_do_nothing:
     }
     {
       \@@_interval_finishrange_compute_ii:
     }
 }
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\@@_interval_finishrange_compute_ii:}
%   Compute how to draw the finishrange of an interval. This macro will only be called if the finishrange is non-empty.
%    \begin{macrocode}
\bool_new:N\l_@@_interval_finishrange_start_beyond_bool
\cs_new:Npn\@@_interval_finishrange_compute_ii:
 {
   \@@_debug:n{~(Stage~II)}
%    \end{macrocode}
%   First, if the interval extends beyond the finish tolerance then (since some part of the finishrange) is visible, the
%   finish excess indicator forms part of the range. In this case, the drawn range finishs at the finish of the
%   timechart and the finish excess indicator mirrors this `level' of the range. Otherwise the drawn range finishs at
%   the extreme finish of the interval at `level' \(0\) and a finish excess indicator is not drawn.
%    \begin{macrocode}
   \bool_if:NTF\l_@@_interval_finish_beyond_bool
     {
       \cs_set_eq:NN
         \l_@@_interval_finishrange_finish_x
         \l_@@_finish_x
       \pgfmathsetmacro{\l_@@_interval_finishrange_finish_level_pgf}
         {
           (\l_@@_interval_finishrange_finish_x
             -\l_@@_interval_finish_max_x)
           /
           (\l_@@_interval_finish_min_x
             -\l_@@_interval_finish_max_x)
         }
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_finishrange_finish_x
         \l_@@_interval_finish_max_x
       \pgfmathsetmacro
         {\l_@@_interval_finishrange_finish_level_pgf}{0}
     }

%    \end{macrocode}
%   Second, if the interval extends beyond the start tolerance and the finish of the definite part of the interval is to
%   the left of the start of the timechart, the start excess indicator forms part of the range. In this case, the
%   drawn range starts at the start of the timechart and the excess indicator mirrors this `level' of the range.
%   Otherwise the drawn range starts at the extreme start of the interval at `level' \(0\) and a start excess
%   indicator is not drawn.
%    \begin{macrocode}
   \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
     { \l_@@_interval_finish_min_x < \l_@@_start_x }
   \bool_set:Nn\l_@@_interval_finishrange_start_beyond_bool
     {
       \l_@@_tmpa_bool
       && \l_@@_interval_start_beyond_bool
     }
   \bool_if:NTF\l_@@_interval_finishrange_start_beyond_bool
     {
       \cs_set_eq:NN
         \l_@@_interval_finishrange_start_x
         \l_@@_start_x
       \pgfmathsetmacro{\l_@@_interval_finishrange_start_level_pgf}
         {
           (\l_@@_interval_finishrange_start_x
             -\l_@@_interval_finish_max_x)
           /
           (\l_@@_interval_finish_min_x
             -\l_@@_interval_finish_max_x)
         }
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_finishrange_start_x
         \l_@@_interval_finish_min_x
       \pgfmathsetmacro
         {\l_@@_interval_finishrange_start_level_pgf}{1}
     }
   \int_case:nn {\l_@@_finish_range_type_int}
     {
       {0}{
         \cs_set_eq:NN
           \@@_interval_finishrange_draw:
           \@@_interval_finishrange_draw_pseudofade:
       }
       {1}{
         \@@_interval_finishrange_slant_compute:
       }
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_slant_compute:}
%   Compute the clipping and drawing necessary for a slant finishrange.
%    \begin{macrocode}
\cs_new:Npn \@@_interval_finishrange_slant_compute:
 {
   \@@_debug:n{~(Finishrange~slant)}
   \bool_if:NTF\l_@@_interval_finish_beyond_bool
     {
       \bool_if:NTF\l_@@_interval_finishrange_start_beyond_bool
         {
           \cs_set_eq:NN
             \@@_interval_both_clip_path:
             \@@_interval_finishrange_clip_path_beyond_both:
         }
         {
           \cs_set_eq:NN
             \@@_interval_finish_clip_path:
             \@@_interval_finishrange_clip_path_beyond_finish:
         }
     }
     {
       \bool_if:NTF\l_@@_interval_finishrange_start_beyond_bool
         {
           \cs_set_eq:NN
             \@@_interval_both_clip_path:
             \@@_interval_finishrange_clip_path_beyond_start:
         }
         {
           \cs_set_eq:NN
             \@@_interval_finish_clip_path:
             \@@_interval_finishrange_clip_path_finish:
         }
       }
   \cs_if_eq:NNTF\@@_interval_solid_draw:\prg_do_nothing:
     {
       \cs_set_eq:NN
         \@@_interval_finishrange_draw:
         \@@_interval_startfinishrange_draw_slant:
     }
     {
       \cs_set_eq:NN
         \l_@@_interval_solid_finish_x
         \l_@@_finish_beyond_x
       \cs_set_eq:NN
         \@@_interval_finishrange_draw:
         \prg_do_nothing:
     }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Drawing}
%
%
%
% \paragraph{Solid}
%
% \begin{macro}{\@@_interval_solid_draw:}
%   Draw the solid part of an interval.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_solid_draw:
 {
   \@@_debug:n{
     Drawing:~solid~\l_@@_interval_solid_start_x~
     to~\l_@@_interval_solid_finish_x
   }
   \pgfpathrectanglecorners{
     \pgfpoint
      {\l_@@_interval_solid_start_x}
      {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_interval_solid_finish_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfusepath{fill}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Start/finish range pseudofade}
%
% \begin{macro}{\@@_interval_startrange_draw_pseudofade:}
%   Draw a fading startrange and beyond indicators
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_draw_pseudofade:
 {
   \@@_debug:n{Drawing:~startrange,~pseudofade}
   \@@_debug:n{~
     \l_@@_interval_startrange_start_x~
     (\l_@@_interval_startrange_start_level_pgf)~
     to~\l_@@_interval_startrange_finish_x~
     (\l_@@_interval_startrange_finish_level_pgf)
   }
   \@@_interval_draw_pseudofade:nnnnn
     {\l_@@_interval_startrange_start_x}
     {\l_@@_interval_startrange_finish_x}
     {\l_@@_bar_color}
     {\l_@@_interval_startrange_start_level_pgf}
     {\l_@@_interval_startrange_finish_level_pgf}
   \bool_if:NT\l_@@_interval_start_beyond_bool
     { \@@_interval_startrange_start_beyond_draw_fade: }
   \bool_if:NT\l_@@_interval_startrange_finish_beyond_bool
     { \@@_interval_startrange_finish_beyond_draw_fade: }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_startrange_start_beyond_draw_fade:}
%   Draw a `faded' beyond indicator for a startrange that extends beyond the timechart start.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_start_beyond_draw_fade:
 {
   \@@_debug:n{Drawing:~startrange,~pseudofade~beyond~start}
   \@@_debug:n{~
     \l_@@_start_beyond_x~to~\l_@@_start_x
   }
   \pgfscope
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_start_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfsetfillopacity
     {\l_@@_interval_startrange_start_level_pgf}
   \pgfusepath{fill}
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_startrange_finish_beyond_draw_fade:}
%   Draw a `faded' beyond indicator for a startrange that extends beyond the timechart finish.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_finish_beyond_draw_fade:
 {
   \@@_debug:n{Drawing:~startrange,~pseudofade~beyond~finish}
   \@@_debug:n{~
     \l_@@_finish_beyond_x~to~\l_@@_finish_x
   }
   \pgfscope
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_finish_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfsetfillopacity
     {\l_@@_interval_startrange_finish_level_pgf}
   \pgfusepath{fill}
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \begin{macro}{\@@_interval_finishrange_draw_pseudofade:}
%   Draw a fading startrange and excess indicators
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_draw_pseudofade:
 {
   \@@_debug:n{Drawing:~finishrange,~pseudofade}
   \@@_debug:n{~
     \l_@@_interval_finishrange_start_x~
     (\l_@@_interval_finishrange_start_level_pgf)~
     to~\l_@@_interval_finishrange_finish_x~
     (\l_@@_interval_finishrange_finish_level_pgf)
   }
   \@@_interval_draw_pseudofade:nnnnn
     {\l_@@_interval_finishrange_start_x}
     {\l_@@_interval_finishrange_finish_x}
     {\l_@@_bar_color}
     {\l_@@_interval_finishrange_start_level_pgf}
     {\l_@@_interval_finishrange_finish_level_pgf}
   \bool_if:NT\l_@@_interval_finish_beyond_bool
     { \@@_interval_finishrange_finish_beyond_draw_fade: }
   \bool_if:NT\l_@@_interval_finishrange_start_beyond_bool
     { \@@_interval_finishrange_start_beyond_draw_fade: }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_finish_beyond_draw_fade:}
%   Draw a `faded' beyond indicator for a finishrange that extends beyond the timechart finish.
%    \begin{macrocode}

\cs_new:Npn\@@_interval_finishrange_finish_beyond_draw_fade:
 {
   \@@_debug:n{Drawing:~finishrange,~pseudofade~beyond~finish}
   \@@_debug:n{~
     \l_@@_finish_beyond_x~to~\l_@@_finish_x
   }
   \pgfscope
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_finish_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfsetfillopacity
     {\l_@@_interval_finishrange_finish_level_pgf}
   \pgfusepath{fill}
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_start_beyond_draw_fade:}
%   Draw a `faded' beyond indicator for a finishrange that extends beyond the timechart start.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_start_beyond_draw_fade:
 {
   \@@_debug:n{Drawing:~finishrange,~pseudofade~beyond~start}
   \@@_debug:n{~
     \l_@@_start_beyond_x~to~\l_@@_start_x
   }
   \pgfscope
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_start_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfsetfillopacity
     {\l_@@_interval_finishrange_start_level_pgf}
   \pgfusepath{fill}
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_draw_pseudofade:nnnnn}
%   Draw an imitation fading from \param{1} to \param {2} with color \param{3}, starting with opacity \param{4} and
%   ending with opacity \param{5}.
%    \begin{macrocode}
\pgfmathsetmacro{\l_@@_fadestep_pgf}{1}
\cs_new:Npn\@@_interval_draw_pseudofade:nnnnn #1#2#3#4#5
 {
   \@@_debug:n{Pseudofade:~#1~to~#2,~color~#3,~opacity~#4~to~#5}
   \group_begin:
   \pgfmathsetmacro{\start}{#1}
   \pgfmathsetmacro{\stop}{#2}
   \pgfmathsetmacro{\fadestep}
     {(\stop-\start)/(floor((\stop-\start)/\l_@@_fadestep_pgf)+1)}
   \pgfmathsetmacro{\startnext}{\start+\fadestep}
   \pgfmathsetmacro{\stopprev}{\stop-\fadestep}
   \pgfmathsetmacro{\denominator}{abs(\stop-\start)+\fadestep}
   \foreach \xa in {\start,\startnext,...,\stopprev} {
     \pgfmathsetlengthmacro{\o}
       {((\stop-\xa)*#4+(\xa-\start+\fadestep)*#5)/\denominator}
     \pgfscope
     \pgfpathrectanglecorners{
       \pgfpoint{\xa}{-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{\xa+\fadestep}{\l_@@_bar_half_thickness_pgf}
     }
     \pgfsetfillcolor{#3}
     \pgfsetfillopacity{\o}
     \pgfusepath{fill}
     \endpgfscope
   }
   \group_end:
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Start/finish range slant}
%
% \begin{macro}{\@@_interval_startfinishrange_draw_slant:}
%   Draw an already-clipped slanted start/finishrange and beyond indicators. This macro will only be called when there
%   is no `solid' part to drawn (for otherwise the solid part is extended to fill the start/finishrange), and so the
%   only thing to draw is the start/finishrange. Hence the macro can simply fill everything
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startfinishrange_draw_slant:
 {
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfsetfillcolor{\l_@@_bar_color}
   \pgfusepath{fill}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Clipping}
%
%
%
% \paragraph{Start/finish no-clipping paths}
%
% \begin{macro}{\c_@@_left_far_x,\c_@@_right_far_x}
%   No-clipping paths actually use the following \(x\)-coordinates, which are large in the positive and negative
%   direction.
%    \begin{macrocode}
\pgfmathsetmacro{\c_@@_left_far_x}{-16000pt}
\pgfmathsetmacro{\c_@@_right_far_x}{16000pt}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_start_clip_path_none:}
%   No clip path for start.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_start_clip_path_none:
 {
   \@@_debug:n{~Start~clip~path:~none}
   \pgfpathlineto{
     \pgfpoint
     {\c_@@_left_far_x}
     {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
     {\c_@@_left_far_x}
     {\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finish_clip_path_none:}
%   No clip path for finish.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finish_clip_path_none:
 {
   \@@_debug:n{~Finish~clip~path:~none}
   \pgfpathmoveto{
     \pgfpoint
     {\c_@@_right_far_x}
     {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
     {\c_@@_right_far_x}
     {-\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Start/finish beyond indicator clipping paths}
%
% \begin{macro}{\@@_interval_start_clip_path_beyond:}
%   Clip path for start beyond indicator.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_start_clip_path_beyond:
 {
   \@@_debug:n{~Start~clip~path:~beyond}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {-90}
     {90}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_bar_half_thickness_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finish_clip_path_beyond:}
%   Clip path for finish beyond indicator.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finish_clip_path_beyond:
 {
   \@@_debug:n{~Finish~clip~path:~beyond}
   \pgfpathmoveto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {90}
     {270}
     {\l_@@_finish_beyond_x_radius_pgf
       ~and~\l_@@_bar_half_thickness_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Startrange/finishrange clipping paths}
%
% \begin{macro}{\@@_interval_startrange_clip_path_start:}
%   Clip path for startrange.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_clip_path_start:
 {
   \@@_debug:n{~Start~clip~path:~startrange}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_startrange_start_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_startrange_start_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_startrange_finish_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_startrange_finish_x}
       {\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_clip_path_finish:}
%   Clip path for finishrange.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_clip_path_finish:
 {
   \@@_debug:n{~Finish~clip~path:~finishrange}
   \pgfpathmoveto{
     \pgfpoint
       {\l_@@_interval_finishrange_finish_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finishrange_finish_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finishrange_start_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finishrange_start_x}
       {-\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Startrange/finishrange clipping paths with `same side' beyond indicator}
%
% \begin{macro}{\@@_interval_startrange_clip_path_beyond_start:}
%   Clip path for startrange with start beyond indicator.
%    \begin{macrocode}
\cs_new:Npn \@@_interval_startrange_clip_path_beyond_start:
 {
   \@@_debug:n{~Start~clip~path:~startrange,~beyond~start}
   \pgfmathsetmacro{\l_@@_tmpa_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_startrange_start_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpb_pgf}{
     .5*\l_@@_tmpa_pgf
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {-90}
     {90}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_tmpb_pgf}
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpa_pgf}
     }
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_start_max_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_start_max_x}
       {\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_clip_path_beyond_finish:}
%   Clip path for finishrange with finish beyond indicator.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_clip_path_beyond_finish:
 {
   \@@_debug:n{~Finish~clip~path:~finishrange,~beyond~finish}
   \pgfmathsetmacro{\l_@@_tmpa_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_finishrange_finish_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpb_pgf}{
     .5*\l_@@_tmpa_pgf
   }
   \pgfpathmoveto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {90}
     {270}
     {\l_@@_finish_beyond_x_radius_pgf
       ~and~\l_@@_tmpb_pgf}
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpa_pgf}
     }
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finish_min_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finish_min_x}
       {-\l_@@_bar_thickness_pgf}
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Startrange/finishrange clipping paths with `opposite side' beyond indicator}
%
% \begin{macro}{\@@_interval_startrange_clip_path_beyond_finish:}
%   Clip path for startrange with finish beyond indicator. This macro should only be executed as
%   \cs{@@_interval_both_clip_path:} and specifies a complete path.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_clip_path_beyond_finish:
 {
   \@@_debug:n{~Two-sided~clip~path:~startrange,~beyond~finish}
   \pgfmathsetmacro{\l_@@_tmpc_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_startrange_finish_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpd_pgf}{
     .5*\l_@@_tmpc_pgf
   }
   \pgfpathmoveto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_beyond_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpc_pgf}
     }
   }
   \pgfpatharc
     {90}
     {270}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_tmpd_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_start_min_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_start_min_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpc_pgf}
     }
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_clip_path_beyond_start:}
%   Clip path for finishrange with start beyond indicator. This macro should only be executed as
%   \cs{@@_interval_both_clip_path:} and specifies a complete path.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_clip_path_beyond_start:
 {
   \@@_debug:n{~Two-sided~clip~path:~finishrange,~beyond~start}
   \pgfmathsetmacro{\l_@@_tmpc_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_finishrange_start_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpd_pgf}{
     .5*\l_@@_tmpc_pgf
   }
   \pgfpathmoveto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_beyond_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpc_pgf}
     }
   }
   \pgfpatharc
     {-90}
     {90}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_tmpd_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finish_max_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_interval_finish_max_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpc_pgf}
     }
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Startrange/finishrange clipping paths with `both sides' beyond indicator}
%
% \begin{macro}{\@@_interval_startrange_clip_path_beyond_both:}
%   Clip path for startrange with start and finish beyond indicators. This macro should only be executed as
%   \cs{@@_interval_both_clip_path:} and specifies a complete path.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_startrange_clip_path_beyond_both:
 {
   \@@_debug:n{~Two-sided~clip~path:~startrange,~beyond~both}
   \pgfmathsetmacro{\l_@@_tmpa_pgf}{
     \l_@@_bar_thickness_pgf
     *\l_@@_interval_startrange_start_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpb_pgf}{
     .5*\l_@@_tmpa_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpc_pgf}{
     \l_@@_bar_thickness_pgf
     *\l_@@_interval_startrange_finish_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpd_pgf}{
     .5*\l_@@_tmpc_pgf
   }
   \pgfpathmoveto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_beyond_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpc_pgf}
     }
   }
   \pgfpatharc
     {90}
     {270}
     {\l_@@_finish_beyond_x_radius_pgf
       ~and~\l_@@_tmpd_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {-90}
     {90}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_tmpb_pgf}
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpa_pgf}
     }
   }
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{\l_@@_tmpc_pgf}
     }
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_finishrange_clip_path_beyond_both:}
%   Clip path for finishrange with start and finish beyond indicators. This macro should only be executed as
%   \cs{@@_interval_both_clip_path:} and specifies a complete path.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_finishrange_clip_path_beyond_both:
 {
   \@@_debug:n{~Two-sided~clip~path:~finishrange,~beyond~both}
   \pgfmathsetmacro{\l_@@_tmpa_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_finishrange_finish_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpb_pgf}{
     .5*\l_@@_tmpa_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpc_pgf}{
     \l_@@_bar_thickness_pgf
       *\l_@@_interval_finishrange_start_level_pgf
   }
   \pgfmathsetmacro{\l_@@_tmpd_pgf}{
     .5*\l_@@_tmpc_pgf
   }
   \pgfpathmoveto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_beyond_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpc_pgf}
     }
   }
   \pgfpatharc
     {-90}
     {90}
     {\l_@@_start_beyond_x_radius_pgf
       ~and~\l_@@_tmpd_pgf}
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_start_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_thickness_pgf}
   }
   \pgfpathlineto{
     \pgfpoint
       {\l_@@_finish_beyond_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfpatharc
     {90}
     {270}
     {\l_@@_finish_beyond_x_radius_pgf
       ~and~\l_@@_tmpb_pgf}
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_finish_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpa_pgf}
     }
   }
   \pgfpathlineto{
     \pgfpointadd{
       \pgfpoint
         {\l_@@_start_x}
         {\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint{0}{-\l_@@_tmpc_pgf}
     }
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \paragraph{Core clipping macros}
%
% \begin{macro}{\@@_interval_clip:}
%   Clip the interval. The internal macro \cs{@@_interval_both_clip_path:} may be redefined from its default.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_clip:
 {
   \@@_debug:n{Clipping:}
   \pgfinterruptboundingbox
   \@@_interval_both_clip_path:
   \pgfpathclose
   \pgfusepath{clip}
   \endpgfinterruptboundingbox
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_both_clip_path:}
%   Specify a clipping path for the interval. If either of the macros \cs{@@_interval_start_clip_path:} is
%   \cs{@@_interval_finish_clip_path:} is defined, it is used, otherwise the respective defaults are used.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_both_clip_path:
 {
   \cs_if_exist_use:NF\@@_interval_finish_clip_path:
     { \@@_interval_finish_clip_path_none: }
   \cs_if_exist_use:NF\@@_interval_start_clip_path:
     { \@@_interval_start_clip_path_none: }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Marks}
%
%    \begin{macrocode}
\msg_new:nnn{timechart}{interval_mark_outside}
 { Ignoring~mark~outside~interval~definite~part~at~date~#1 }
%    \end{macrocode}
%
% \begin{macro}{\@@_interval_mark:}
%   Draw marks on an interval.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_mark:
 {
   \pgfscope
   \bool_if:NTF\l_@@_interval_start_beyond_bool
     {
       \pgfmathsetmacro{\l_@@_interval_mark_min_x}
         { max(\l_@@_interval_start_max_x,\l_@@_start_x) }
     }
     {
       \cs_set_eq:NN\l_@@_interval_mark_min_x\l_@@_interval_start_max_x
     }
   \bool_if:NTF\l_@@_interval_finish_beyond_bool
     {
       \pgfmathsetmacro{\l_@@_interval_mark_max_x}
         { min(\l_@@_interval_finish_min_x,\l_@@_finish_x) }
     }
     {
       \cs_set_eq:NN\l_@@_interval_mark_max_x\l_@@_interval_finish_min_x
     }
   \pgfsetstrokecolor{\l_@@_mark_color}
   \foreach \year in \l_@@_mark_text
     {
       \pgfmathsetmacro{\l_@@_mark_x}{yeartox(\year)}
       \@@_pgfmathsetbool:nn{\l_@@_tmpa_bool}
         {
           and (
             \l_@@_mark_x >= \l_@@_interval_mark_min_x,
             \l_@@_mark_x <= \l_@@_interval_mark_max_x
           )
         }
       \bool_if:NTF\l_@@_tmpa_bool
         {
           \pgfpathmoveto{
             \pgfpoint
               {\l_@@_mark_x}
               {-\l_@@_bar_half_thickness_pgf}
           }
           \pgfpathlineto{
             \pgfpoint
               {\l_@@_mark_x}
               {\l_@@_bar_half_thickness_pgf}
           }
           \pgfusepath{draw}
         }
         { \msg_warning:nne{timechart}{interval_mark_outside}{\year} }
     }
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Bar node}
%
% \begin{macro}{\@@_interval_define_bar_node:}
%   Define a node with into which the bar fits exactly.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_define_bar_node:
 {
   \@@_make_rectangle_node:nnnn
     {
       \pgfpoint
         {\l_@@_interval_start_min_x}
         {-\l_@@_bar_half_thickness_pgf}
     }{
       \pgfpoint
         {\l_@@_interval_finish_max_x}
         {\l_@@_bar_half_thickness_pgf}
     }
     {\pgfkeysvalueof{/timechart/interval~bar~node~name}}
     {\c_false_bool}
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsubsection{Label}
%
% \begin{macro}{\@@_interval_label:}
%   Place the label for the item.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_label:
 {
   \str_if_empty:NF \l_@@_label_text
     {
       \pgfinterruptboundingbox
       \int_case:nn {\l_@@_label_pos_int}
       {
         {0}{ \@@_interval_label_left: }
         {1}{ \@@_interval_label_center: }
         {2}{ \@@_interval_label_right: }
       }
       \endpgfinterruptboundingbox
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_label_left:}
%   Place the label on the left of the interval.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_label_left:
 {
   \@@_if_x_in_bounds:nT{\l_@@_interval_start_min_x}
     {
       \group_begin:
       \pgftransformshift{
         \pgfpoint
           {\l_@@_interval_start_min_x}
           {\l_@@_text_baseline_pgf}
       }
       \node[/timechart/interval~label,anchor=base~east]
         (\l_@@_interval_label_node_name)
         at (0,0)
         {
           \@@_make_ref:NN
             \l_@@_ref_text
             \l_@@_label_text
         };
       \group_end:
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_label_right:}
%   Place the label on the right of the interval.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_label_right:
 {
   \@@_if_x_in_bounds:nT{\l_@@_interval_finish_max_x}
     {
       \group_begin:
       \pgftransformshift{
         \pgfpoint
           {\l_@@_interval_finish_max_x}
           {\l_@@_text_baseline_pgf}
       }
       \node[/timechart/interval~label,anchor=base~west]
         (\l_@@_interval_label_node_name)
         at (0,0)
         {
           \@@_make_ref:NN
             \l_@@_ref_text
             \l_@@_label_text
         };
       \group_end:
     }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_interval_label_center:}
%   Place the label at the center of the interval.
%    \begin{macrocode}
\cs_new:Npn\@@_interval_label_center:
 {
   \pgfmathsetlengthmacro{\l_@@_label_anchor_x}
     {
       .5*max(\l_@@_interval_start_max_x,\l_@@_start_x)
       + .5*min(\l_@@_interval_finish_min_x,\l_@@_finish_x)
     }
%    \end{macrocode}
%   First draw the `background label' on the layer below the bar.
%    \begin{macrocode}
   \group_begin:
   \pgftransformshift{
     \pgfpoint
       {\l_@@_label_anchor_x}
       {\l_@@_text_baseline_pgf}
   }
   \pgfonlayer{labelbg}
   \node[
     /timechart/interval~label~centered~background,
     anchor=base
   ]
     at (0,0)
     { \l_@@_label_text };
   \endpgfonlayer
   \group_end:
%    \end{macrocode}
%   Then draw the label on top of the bar, clipping it to the bar outline.
%    \begin{macrocode}
   \pgfscope
   \pgfpathrectanglecorners{
     \pgfpoint
       {\l_@@_interval_start_min_x}
       {-\l_@@_bar_half_thickness_pgf}
   }{
     \pgfpoint
       {\l_@@_interval_finish_max_x}
       {\l_@@_bar_half_thickness_pgf}
   }
   \pgfusepath{clip}
   \group_begin:
   \pgftransformshift{
     \pgfpoint
       {\l_@@_label_anchor_x}
       {\l_@@_text_baseline_pgf}
   }
   \node[
   /timechart/interval~label~centered,
   anchor=base
   ]
     (\l_@@_interval_label_node_name)
     at (0,0)
     {
       \@@_make_ref:NN
       \l_@@_ref_text
       \l_@@_label_text
     };
   \group_end:
   \endpgfscope
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Text}
%
% \begin{macro}{\@@_text_user:Omm}
%   Place text. This macro will be made available as \cs{timecharttext} inside the \env{timechart} environment.
%   \begin{arguments}
%     \item PGF keys under \key{/timechart/} to apply.
%     \item Year at which to place text.
%     \item Text.
%   \end{arguments}
%    \begin{macrocode}
\NewDocumentCommand{\@@_text_user:Omm}{ O{} m m }
 {
   \str_if_empty:nF{#3}{
     \group_begin:
     \pgfmathsetmacro{\l_@@_text_x}{yeartox(#2)}
%    \end{macrocode}
%   Process keys supplied locally and retrieve initially needed keys.
%    \begin{macrocode}
     \pgfqkeys{/timechart}{
       #1,
       tolerance~start/.get=\l_@@_start_tolerance_pgf,
       tolerance~finish/.get=\l_@@_finish_tolerance_pgf,
     }
     \@@_if_x_in_bounds:nT{\l_@@_text_x}
       {
%    \end{macrocode}
%   Retrieve other needed keys.
%    \begin{macrocode}
         \pgfqkeys{/timechart}{
           ref/.get=\l_@@_ref_text,
           text~node~name/.get=\l_@@_node_name_text,
           text~baseline/.get=\l_@@_text_baseline_pgf,
         }
%    \end{macrocode}
%    Shift to the correct vertical coordinate and place the text.
%    \begin{macrocode}
         \pgftransformshift{
           \pgfpoint{0}{\l_@@_current_y}
         }
         \pgfinterruptboundingbox
         \group_begin:
         \pgftransformshift{
           \pgfpoint{\l_@@_text_x}{\l_@@_text_baseline_pgf}
         }
         \cs_set:Npn\l_@@_text{#3}
         \int_case:nn {\l_@@_text_pos_int}
         {
           {0}{ \cs_set:Npn\l_@@_node_anchor_text{base~east} }
           {1}{ \cs_set:Npn\l_@@_node_anchor_text{base} }
           {2}{ \cs_set:Npn\l_@@_node_anchor_text{base~west} }
         }
         \node[/timechart/text,anchor=\l_@@_node_anchor_text]
           (\l_@@_node_name_text)
           at (0,0)
           {
             \@@_make_ref:NN
             \l_@@_ref_text
             \l_@@_text
           };
         \group_end:
         \endpgfinterruptboundingbox
       }
     \group_end:
   }
%    \end{macrocode}
%   Since the text itself does not affect the bounding box, create a space (which will handle the automatic step).
%    \begin{macrocode}
   \@@_space_user:O[#1]
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Space}
%
% \begin{macro}{\@@_space_user:O}
%   Create a vertical space as if there were an interval at the current coordinate. This macro will be made available as
%   \cs{timechartspace} inside the \env{timechart} environment.
%    \begin{macrocode}
\NewDocumentCommand{\@@_space_user:O}{ O{} }
 {
   \group_begin:
%    \end{macrocode}
%   Process keys supplied locally and retreive the one needed value.

%    \begin{macrocode}
   \pgfqkeys{/timechart}{
     #1,
     interval~bar~thickness/.get=\l_@@_bar_thickness_pgf,
   }
   \pgfmathsetlengthmacro{\l_@@_bar_half_thickness_pgf}
     { .5*\l_@@_bar_thickness_pgf }
%    \end{macrocode}
%    Shift to the correct vertical coordinate and create the space.
%    \begin{macrocode}
   \pgftransformshift{
     \pgfpoint{0}{\l_@@_current_y}
   }
   \pgfpathmoveto{
     \pgfpoint{0}{-\l_@@_bar_half_thickness_pgf}
   }
   \pgfpathmoveto{
     \pgfpoint{0}{\l_@@_bar_half_thickness_pgf}
   }
   \pgfusepath{discard}
   \group_end:
   \bool_if:NT\l_@@_autostep_bool{
     \@@_step_y_user:O
   }
 }
%    \end{macrocode}
% \end{macro}
%
%
%
% \subsection{Legends}
%
% \begin{macro}{\timechartlegenditem}
%   Draw a bar suitable for use in a legend, applying style in \param{1}.
%    \begin{macrocode}
\NewDocumentCommand{\timechartlegenditem}{ O{} }
 {
   \@@_legend_aux:nn{#1}{
     \pgfmathsetlengthmacro{\l_@@_interval_solid_start_x}{0}
     \pgfmathsetlengthmacro{\l_@@_interval_solid_finish_x}
       {\l_@@_legenditem_width_pgf}
     \@@_interval_solid_draw:
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\timechartlegendstartrange,\timechartlegendfinishrange}
%   Draw a bar with start/finish range, suitable for use in a legend, applying style in \param{1}.
%    \begin{macrocode}
\NewDocumentCommand{\timechartlegendstartrange}{ O{} }
 {
   \@@_legend_aux:nn{#1}{
     \pgfmathsetlengthmacro
       {\l_@@_interval_startrange_start_x}{0}
     \pgfmathsetlengthmacro{\l_@@_interval_startrange_finish_x}
       {\l_@@_legenditem_range_width_pgf}
     \pgfmathsetlengthmacro
       {\l_@@_interval_startrange_start_level_pgf}{0}
     \pgfmathsetlengthmacro
       {\l_@@_interval_startrange_finish_level_pgf}{1}
     \pgfmathsetlengthmacro{\l_@@_interval_solid_finish_x}
       {\l_@@_legenditem_width_pgf}
     \int_case:nn {\l_@@_start_range_type_int}
       {
         {0}{
           \pgfmathsetlengthmacro{\l_@@_interval_solid_start_x}
             {\l_@@_legenditem_range_width_pgf}
           \@@_interval_startrange_draw_pseudofade:
         }
         {1}{
           \pgfmathsetlengthmacro{\l_@@_interval_solid_start_x}
             {\l_@@_interval_startrange_start_x}
           \pgfinterruptboundingbox
           \@@_interval_finish_clip_path_none:
           \@@_interval_startrange_clip_path_start:
           \pgfpathclose
           \pgfusepath{clip}
           \endpgfinterruptboundingbox
         }
       }
     \@@_interval_solid_draw:
   }
 }
\NewDocumentCommand{\timechartlegendfinishrange}{ O{} }
 {
   \@@_legend_aux:nn{#1}{
     \pgfmathsetlengthmacro{\l_@@_interval_finishrange_start_x}
       {
         \l_@@_legenditem_width_pgf
         -\l_@@_legenditem_range_width_pgf
       }
     \pgfmathsetlengthmacro{\l_@@_interval_finishrange_finish_x}
       {\l_@@_legenditem_width_pgf}
     \pgfmathsetlengthmacro
       {\l_@@_interval_finishrange_start_level_pgf}{1}
     \pgfmathsetlengthmacro
       {\l_@@_interval_finishrange_finish_level_pgf}{0}
     \pgfmathsetlengthmacro
       {\l_@@_interval_solid_start_x}{0}
     \pgfmathsetlengthmacro{\l_@@_interval_finish_max_x}
       {\l_@@_legenditem_width_pgf}
     \int_case:nn {\l_@@_finish_range_type_int}
       {
         {0}{
           \pgfmathsetlengthmacro{\l_@@_interval_solid_finish_x}
             {
               \l_@@_legenditem_width_pgf
               -\l_@@_legenditem_range_width_pgf
             }
           \@@_interval_finishrange_draw_pseudofade:
         }
         {1}{
           \pgfmathsetlengthmacro{\l_@@_interval_solid_finish_x}
             {\l_@@_interval_finishrange_finish_x}
           \pgfinterruptboundingbox
           \@@_interval_finishrange_clip_path_finish:
           \@@_interval_start_clip_path_none:
           \pgfpathclose
           \pgfusepath{clip}
           \endpgfinterruptboundingbox
         }
       }
     \@@_interval_solid_draw:
   }
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@@_legend_aux:nn}
%   Auxiliary command for legend items. Draw a \TikZ\ picture, applying PGF keys \param{1} under \key{/timechart/}
%   and using \TikZ\ code \param{2}.
%    \begin{macrocode}
\cs_new:Npn\@@_legend_aux:nn #1#2
 {
   \@@_debug:n{Legend~auxiliary}
   \tikzpicture
%    \end{macrocode}
%   Process supplied PGF keys and retrieve only those necessary.
%    \begin{macrocode}
   \pgfkeys{
     /timechart/.cd,
     #1,
     interval~bar~thickness/.get=\l_@@_bar_thickness_pgf,
     interval~bar~color/.get=\l_@@_bar_color,
     interval~minimum~width/.get=\l_@@_minimum_width_pgf,
     beyond~length~start/.get=\l_@@_start_beyond_length_pgf,
     beyond~length~finish/.get=\l_@@_finish_beyond_length_pgf,
     legend~item~width/.get=\l_@@_legenditem_width_pgf,
     legend~item~range~width/.get=\l_@@_legenditem_range_width_pgf,
   }
   \pgfmathsetlengthmacro{\l_@@_bar_half_thickness_pgf}
     {.5*\l_@@_bar_thickness_pgf}
   \pgfmathsetmacro{\l_@@_start_x}{0}
   \pgfmathsetmacro{\l_@@_finish_x}
     {\l_@@_legenditem_width_pgf}
   \pgfmathsetlengthmacro{\l_@@_start_beyond_x}
     {\l_@@_start_x-\l_@@_start_beyond_length_pgf}
   \pgfmathsetlengthmacro{\l_@@_finish_beyond_x}
     {\l_@@_finish_x+\l_@@_finish_beyond_length_pgf}
   \pgfmathsetmacro{\l_@@_current_y}{0}
%    \end{macrocode}
%   Ensure that the legend is `visible' from the perspective of the drawing macros.
%    \begin{macrocode}
   \pgfmathsetmacro{\l_@@_start_tolerance_x}
     {\l_@@_start_x-10mm}
   \pgfmathsetmacro{\l_@@_finish_tolerance_x}
     {\l_@@_finish_x+10mm}
   \pgfscope
   #2
   \endpgfscope
   \endtikzpicture%
 }
%    \end{macrocode}
% \end{macro}
%
%
%
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%
% \end{implementation}
%
% \PrintIndex
%
%
%
% \iffalse
%<*metadriver>
\input{timechart.dtx}
%</metadriver>
% \fi

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.