summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/shipunov/flower.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-19 17:05:28 +0000
committerKarl Berry <karl@freefriends.org>2008-02-19 17:05:28 +0000
commitcf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c (patch)
treeadbb0d174b4ab3c017b085367d946ad7ba3b417b /Master/texmf-dist/tex/latex/shipunov/flower.sty
parentf95f16133feaac8dd66077e38d247937f819c815 (diff)
new latex collection shipunov (18feb08)
git-svn-id: svn://tug.org/texlive/trunk@6680 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/shipunov/flower.sty')
-rw-r--r--Master/texmf-dist/tex/latex/shipunov/flower.sty85
1 files changed, 85 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/shipunov/flower.sty b/Master/texmf-dist/tex/latex/shipunov/flower.sty
new file mode 100644
index 00000000000..e7a39acf3e6
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/shipunov/flower.sty
@@ -0,0 +1,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