summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/shipunov/flower.sty
blob: e7a39acf3e6182a0a4f6c7969b3521c45559cf0a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
% Author: Alexey B. Shipunov (plantago@herba.msu.ru)

\ProvidesPackage{flower}%
        [2008/02/06 v1.2 Typesetting botanical sings]

% Fonts `wasy' required
\DeclareRobustCommand\wasyfamily
        {\fontencoding{U}\fontfamily{wasy}\selectfont}
\DeclareSymbolFont{WASY}{U}{wasy}{m}{n}
\SetSymbolFont{WASY}{bold}{U}{wasy}{bx}{n}

% SIGNS BEFORE FORMULA
% Male
\DeclareMathSymbol{\Mal}{\mathord}{WASY}{"1A}
% Female
\DeclareMathSymbol{\Fem}{\mathord}{WASY}{"19}
% Hermafroditic
\def\Herm{\mbox{\ensuremath{\Mal}\kern-.82em\lower.27ex\hbox{\ensuremath{\Fem}}\kern.2em}}
% Asymmetry
\DeclareMathSymbol{\Asx}{\mathord}{WASY}{"12}
% Actinomorphy
\DeclareMathSymbol{\Act}{\mathord}{WASY}{"42}
% Zygomorphy
\DeclareMathSymbol{\Zyg}{\mathord}{symbols}{"22}

% FLORAL UNITS
% Perianth
\def\P#1{\mathrm{\PName}_{#1}}
% Calyx
\def\K#1{\mathrm{\KName}_{#1}}
% Corolla
\def\C#1{\mathrm{\CName}_{#1}}
% Androceum
\def\A#1{\mathrm{\AName}_{#1}}
% Gynoeceum
\def\G#1{\mathrm{\GName}_{#1}}
% Exterior ovary = hypogynous flower: $\Ge(2)$ or $\Ge{(2)}$
\def\Ge{\@ifnextchar(\Ge@B{\Ge@@}}
        \def\Ge@B(#1){\mathrm{\GName}_{(\underline{#1})}}
        \def\Ge@@#1{\mathrm{\GName}_{\underline{#1}}}
% Hemiinferior ovary = hemiepigynous flower
\def\Gm{\@ifnextchar(\Gm@B{\Gm@@}}
        \def\Gm@B(#1){\mathrm{\GName}_{\hbox{-}(#1)\hbox{-}}}
        \def\Gm@@#1{\mathrm{\GName}_{\hbox{-}#1\hbox{-}}}
% Inferior ovary = epigynous flower
\def\Gi{\@ifnextchar(\Gi@B{\Gi@@}}
        \def\Gi@B(#1){\mathrm{\GName}%
                \raise.25ex\hbox{$_{\scriptstyle(\overline{#1})}$}}
        \def\Gi@@#1{\mathrm{\GName}%
                \raise.25ex\hbox{$_{\scriptstyle\overline{#1}}$}}
% Non-trivial floral units
\def\?#1#2{\ensuremath{\mathrm{#1}_{#2}}}

% For redefinition:
\def\PName{P}
\def\KName{K}
\def\CName{C}
\def\AName{A}
\def\GName{G}

% FLOWER OPERATION NAMES (Shipunov, unpubl.)
% Fixation
\newcommand{\Fix}{\mathop{\mathrm{Fix}}\nolimits}
% Reduction
\newcommand{\Red}{\mathop{\mathrm{Red}}\nolimits}
% Connation
\newcommand{\Con}{\mathop{\mathrm{Con}}\nolimits}
% Differentiation
\newcommand{\Dif}{\mathop{\mathrm{Dif}}\nolimits}
% Homeosis
\newcommand{\Mov}{\mathop{\mathrm{Mov}}\nolimits}

% PLANT LIFE FORMS
% Annuals
\def\Mon{\mbox{\textcircled{\lower.1ex\hbox{$\cdot$}}}}
% Biennials
\def\Bin{\mbox{\textcircled{\lower.1ex\hbox{$\cdot\mkern-1mu\cdot$}}}}
% Perennials
\def\Per{{\wasyfamily\char"58}}
% Shrubs
\def\Shrub{{\wasyfamily\char"59}}
% Trees
\def\Tree{{\wasyfamily\char"59}\kern-.58em\lower-.65ex\hbox{-}\kern.15em}

\endinput