From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/latex/contrib/dichokey/dichokey.pdf | Bin 0 -> 180664 bytes macros/latex/contrib/dichokey/dichokey.sty | 111 +++++++++++++++++++++++++++++ macros/latex/contrib/dichokey/dichokey.tex | 59 +++++++++++++++ macros/latex/contrib/dichokey/rhodocyb.pdf | Bin 0 -> 37530 bytes macros/latex/contrib/dichokey/rhodocyb.tex | 63 ++++++++++++++++ 5 files changed, 233 insertions(+) create mode 100644 macros/latex/contrib/dichokey/dichokey.pdf create mode 100644 macros/latex/contrib/dichokey/dichokey.sty create mode 100644 macros/latex/contrib/dichokey/dichokey.tex create mode 100644 macros/latex/contrib/dichokey/rhodocyb.pdf create mode 100644 macros/latex/contrib/dichokey/rhodocyb.tex (limited to 'macros/latex/contrib/dichokey') diff --git a/macros/latex/contrib/dichokey/dichokey.pdf b/macros/latex/contrib/dichokey/dichokey.pdf new file mode 100644 index 0000000000..88a902c44a Binary files /dev/null and b/macros/latex/contrib/dichokey/dichokey.pdf 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 Binary files /dev/null and b/macros/latex/contrib/dichokey/rhodocyb.pdf 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} -- cgit v1.2.3