diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-19 17:05:28 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-19 17:05:28 +0000 |
commit | cf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c (patch) | |
tree | adbb0d174b4ab3c017b085367d946ad7ba3b417b /Master/texmf-dist/tex/latex/shipunov/flower.sty | |
parent | f95f16133feaac8dd66077e38d247937f819c815 (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.sty | 85 |
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 |