summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/dichokey
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/dichokey
Initial commit
Diffstat (limited to 'macros/latex/contrib/dichokey')
-rw-r--r--macros/latex/contrib/dichokey/dichokey.pdfbin0 -> 180664 bytes
-rw-r--r--macros/latex/contrib/dichokey/dichokey.sty111
-rw-r--r--macros/latex/contrib/dichokey/dichokey.tex59
-rw-r--r--macros/latex/contrib/dichokey/rhodocyb.pdfbin0 -> 37530 bytes
-rw-r--r--macros/latex/contrib/dichokey/rhodocyb.tex63
5 files changed, 233 insertions, 0 deletions
diff --git a/macros/latex/contrib/dichokey/dichokey.pdf b/macros/latex/contrib/dichokey/dichokey.pdf
new file mode 100644
index 0000000000..88a902c44a
--- /dev/null
+++ b/macros/latex/contrib/dichokey/dichokey.pdf
Binary files differ
diff --git a/macros/latex/contrib/dichokey/dichokey.sty b/macros/latex/contrib/dichokey/dichokey.sty
new file mode 100644
index 0000000000..dcf9ff56b6
--- /dev/null
+++ b/macros/latex/contrib/dichokey/dichokey.sty
@@ -0,0 +1,111 @@
+% Dichokey.sty, first version of 2 january 1998 by Nico Dam.
+% This version of 17 dec 1999.
+%
+% This LaTeX2e style file defines the environment Key in which
+% dichotomous identification keys can be constructed.
+% Numbering of alternatives and indentation are taken of care of
+% automatically.
+% The key should be STRICTLY dichotomous.
+%
+% Directions for use:
+% The key should be constructed within the environment Key . The
+% environment has one parameter, that is used as first part of the name
+% when a species is keyed out (usually an abbreviation of the genus
+% name).
+% Within the key, every alternative should begin with the command \alter
+% If a species is keyed out, use the command \name[option]{name}
+% (otherwise just continue with the next alternative).
+% The optional argument will be used instead of the parameter provided
+% on entering the environment Key .
+%
+% To do: provide example file (e.g. rhodocyb.tex)
+%
+\usepackage{calc}
+\usepackage{ifthen}
+\def\hang{\hangindent\parindent}
+\newcounter{couplet}% counts current couplet
+\newcounter{lastcouplet}% counts highest couplet number
+\newcounter{bincouplet}% binary counter of couplet availability
+\newcounter{binarycounter}% binary counter of indentation level
+\newcounter{indentcounter}% decimal counter of indentation level
+\newcounter{backsteps}% number of steps to be retreated after a species is keyed out
+\newboolean{named}% true if alternative results in a name
+\newsavebox{\gprefix}% Abbreviation of genus name, parameter for Key
+\newlength{\altindent}% additional indentation of each key level
+\setlength{\altindent}{4mm}
+\newlength{\keylabelwidth}% width of label of each key step
+\setlength{\keylabelwidth}{2em}%
+\newlength{\oldparindent}
+\newenvironment{Key}[1]%
+ {\setcounter{couplet}{0}%
+ \setcounter{lastcouplet}{0}%
+ \setcounter{binarycounter}{0}%
+ \setcounter{bincouplet}{1}%
+ \setcounter{indentcounter}{0}%
+ \setboolean{named}{false}%
+ \sbox{\gprefix}{\textbf{#1}}%
+ \setlength{\oldparindent}{\parindent}%
+ \setlength{\hangindent}{0pt}%
+ \setlength{\parindent}{0pt}%
+ }
+ {\par\setlength{\parindent}{\oldparindent}}
+%
+% The following definition of name suppresses dotfill if the species
+% name doesn't fit on the current line, but has to occur on its own at
+% the line below (made by Sander Stoks).
+% Added optional argument to be used instead of \gprefix (Nico Dam).
+%
+\newcommand{\name}[2][\usebox{\gprefix}]%
+ {\setboolean{named}{true}
+ \leavevmode
+ \unskip\nobreak\hfil
+ \penalty 150
+ \leaders\hbox{\thinspace.\thinspace}\hskip 12pt plus 1fill
+ \vadjust{}\hfil
+ \hbox{\textbf{#1}\textbf{\mbox{#2}}}%
+ {\parfillskip=0pt\par}}
+%
+\newcounter{temp}% temporary storage of counter
+\newcounter{delta}% temporary storage of decrease of counter
+\newcommand{\alter}%
+ {\par%
+ \ifthenelse{\boolean{named}}%
+% NAMED = TRUE
+ {\setcounter{backsteps}{0}%
+ \setcounter{delta}{1}%
+ \setcounter{temp}{\value{binarycounter}+1}%
+% calculate new couplet number
+ \whiledo{\isodd{\value{temp}}}%
+ {\addtocounter{backsteps}{1}%
+ \setcounter{delta}{\value{delta}*2}%
+ \addtocounter{temp}{-1}%
+ \setcounter{temp}{\value{temp}/2}%
+ \addtocounter{temp}{1}%
+ }%
+ \addtocounter{binarycounter}{-\value{delta}}%
+ \setcounter{couplet}{\value{lastcouplet}-\value{backsteps}}%
+% calculate new level of indentation
+ \setcounter{backsteps}{0}%
+ \setcounter{temp}{\value{indentcounter}+1}
+ \whiledo{\isodd{\value{temp}}}%
+ {\addtocounter{backsteps}{1}%
+ \setcounter{indentcounter}{\value{indentcounter}/2}%
+ \setcounter{temp}{\value{indentcounter}+1}
+ }%
+ \addtocounter{indentcounter}{-1}%
+ \addtolength{\parindent}{-\altindent*\value{backsteps}}\hang%
+ }%
+% NAMED = FALSE
+ {\setcounter{binarycounter}{\value{binarycounter}*2+1}%
+ \addtocounter{lastcouplet}{1}%
+ \setcounter{couplet}{\value{lastcouplet}}%
+ \setcounter{indentcounter}{\value{indentcounter}*2+1}%
+ \addtolength{\parindent}{\altindent}\hang%
+ }%
+ \setboolean{named}{false}%
+ \hspace*{-\keylabelwidth}\hspace*{-2mm}%
+ \parbox[t]{\keylabelwidth}{\hfill{\thecouplet}.}%
+ \hspace*{2mm}%
+ }
+%
+\newcommand{\panic}[1]{\addtolength{\parindent}{\altindent*{#1}}}
diff --git a/macros/latex/contrib/dichokey/dichokey.tex b/macros/latex/contrib/dichokey/dichokey.tex
new file mode 100644
index 0000000000..38cce0eb8f
--- /dev/null
+++ b/macros/latex/contrib/dichokey/dichokey.tex
@@ -0,0 +1,59 @@
+\documentclass[DIV=8, pagesize=auto]{scrartcl}
+
+\usepackage{fixltx2e}
+\usepackage{etex}
+\usepackage{lmodern}
+\usepackage[T1]{fontenc}
+\usepackage{textcomp}
+\usepackage{microtype}
+\usepackage{hyperref}
+
+\newcommand*{\pkg}[1]{\textsf{#1}}
+\newcommand*{\cs}[1]{\texttt{\textbackslash#1}}
+\makeatletter
+\newcommand*{\cmd}[1]{\cs{\expandafter\@gobble\string#1}}
+\makeatother
+\newcommand*{\env}[1]{\texttt{#1}}
+\newcommand*{\meta}[1]{\textlangle\textsl{#1}\textrangle}
+\newcommand*{\marg}[1]{\texttt{\{}\meta{#1}\texttt{\}}}
+\newcommand*{\oarg}[1]{\texttt{[}\meta{#1}\texttt{]}}
+
+\addtokomafont{title}{\rmfamily}
+
+\title{The \pkg{dichokey} package}
+\author{Nico Dam}
+\date{17 dec 1999}
+
+
+\begin{document}
+
+\maketitle
+
+\noindent
+This \LaTeXe\ style file defines the environment \env{Key} in which
+dichotomous identification keys can be constructed.
+Numbering of alternatives and indentation are taken of care of
+automatically.
+The key should be \emph{strictly} dichotomous.
+
+
+\minisec{Directions for use:}
+
+The key should be constructed within the environment \env{Key}. The
+environment has one parameter, that is used as first part of the name
+when a species is keyed out (usually an abbreviation of the genus
+name).
+
+Within the key, every alternative should begin with the command \cmd{\alter}.
+If a species is keyed out, use the command \cmd{\name}\oarg{option}\marg{name}
+(otherwise just continue with the next alternative).
+The optional argument will be used instead of the parameter provided
+on entering the environment \env{Key}.
+
+
+\minisec{To do:}
+
+provide example file (e.\,g.\ \texttt{rhodocyb.tex})
+
+\end{document}
+
diff --git a/macros/latex/contrib/dichokey/rhodocyb.pdf b/macros/latex/contrib/dichokey/rhodocyb.pdf
new file mode 100644
index 0000000000..7421e99afc
--- /dev/null
+++ b/macros/latex/contrib/dichokey/rhodocyb.pdf
Binary files differ
diff --git a/macros/latex/contrib/dichokey/rhodocyb.tex b/macros/latex/contrib/dichokey/rhodocyb.tex
new file mode 100644
index 0000000000..9fac69ba78
--- /dev/null
+++ b/macros/latex/contrib/dichokey/rhodocyb.tex
@@ -0,0 +1,63 @@
+\documentclass[11pt,a4paper]{article}
+%\usepackage{nicodef}
+\usepackage{dichokey}
+\pagestyle{empty}
+\begin{document}
+\noindent\textbf{\large Key to the European species of Rhodocybe}\\
+(Basis: M.E.\ Noordeloos in Flora Agaricina Neerlandica (1988))\\
+(Additions: M.E.\ Noordeloos in Karstenia \textbf{34}, 43 (1994)
+(Section Rhodophana))\\
+(Additional species: Rh.\ ardosiaca, peculiaris, stangliana, tillii)
+\vspace{1ex}
+\begin{Key}{Rh.~}
+\alter Hymenial pseudocystidia present, very obvious, filled with
+yellowish, refringent strongly dextrinoid granules
+\alter Fr.b.\ pleurotoid \name[Rhodocybe~]{spec.\ (ND99016)}
+\alter Fr.b.\ centrally stipitate
+\alter Cap concentrically cracking; smell and taste indistinct; sp.\
+minutely nodulose-pustulate in outline \name{caelata}
+\alter Cap smooth to minutely felty; smell and taste
+rancid-farinaceous; sp.\ with conspicuous hemispherical nodules
+\name{ardosiaca}
+\alter Hymenial pseudocystidia absent
+\alter Clamps present
+\alter Fr.b.\ tricholomatoid; stipe base with conspicuous, bulb-like
+mycelial mass \name{stangliana}
+\alter Fr.b.\ mycenoid to collybioid; base without bulb
+\alter Sp.\ $(4-)4.5-7 \times 3-4(-4.5)\;\mu$m, $\bar{Q} = 1.3-1.4$; cap
+and stipe rather pale yellow brown \name{melleopallens}
+\alter Sp.\ larger; cap and stipe darker
+\alter Cap and stipe honey-coloured to orange or reddish brown
+\alter Cap honey-coloured; sp.\ $6.5-8.5(-9) \times
+(3.5-)4-5(-5.5)\;\mu$m, $Q = 1.5-1.9$; sp.\ print greyish
+\name{griseospora}
+\alter Cap vividly orange to red or red-brown; sp.\ $7-10 \times
+5-5.5\;\mu$m, $\bar{Q} = 1.4-1.5$; sp.\ print pinkish brown
+\name{nitellina}
+\alter Cap and stipe dull coloured, brown, grey-brown or grey
+\alter Cap pale, greyish to whitish; sp.\ subglobose, $(4.5-)5-6(-6.5)
+\times (3.5-)4-4.5(-5)\;\mu$m \name{peculiaris}
+\alter Cap darker; sp.\ ellipsoid, larger
+\alter Cap and stipe dark grey or grey-brown; lam.\ with distinct grey
+tinge; sp.\ $7-10 \times 4.5-6\;\mu$m \name{hispanica}
+\alter Cap and stipe dark brown; lam.\ sordidly pink when mature; sp.\
+$6-8 \times 4.5-5\;\mu$m \name{fuscofarinacea}
+\alter Clamps absent
+\alter Fr.b.\ pleurotoid \name{tillii}
+\alter Fr.b.\ centrally stipitate
+\alter Cap white, occasionally tinged cream colour at centre when old
+\name{fallax}
+\alter Cap distinctly coloured
+\alter Cap flesh-coloured or reddish; stipe white or concolorous with
+cap \name{gemina}
+\alter Cap grey to grey-brown
+\alter Sp.\ $6-9 \times 4-6\;\mu$m, ellipsoid to subglobose in side
+view, hardly angular or pustulate; cheilocystidia present, $30-50
+\times 4-9\;\mu$m, usually septate \name{hirneola}
+\alter Sp.\ $4.5-7(-8)\;\mu$m long, distinctly pustulate; cheilocystidia
+absent
+\alter Smell none, taste mild \name{parilis}
+\alter Smell farinaceous, taste usually bitter \name{popinalis}
+\end{Key}
+\begin{flushright}Version 1999/12/16 \end{flushright}
+\end{document}