summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/chemarrow/arrow.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/chemarrow/arrow.mf')
-rw-r--r--macros/latex/contrib/chemarrow/arrow.mf90
1 files changed, 90 insertions, 0 deletions
diff --git a/macros/latex/contrib/chemarrow/arrow.mf b/macros/latex/contrib/chemarrow/arrow.mf
new file mode 100644
index 0000000000..170ad773fc
--- /dev/null
+++ b/macros/latex/contrib/chemarrow/arrow.mf
@@ -0,0 +1,90 @@
+%
+% arrow.mf produces new arrow heads e.g. for chemical reaction schemes
+%
+% Author: Thomas Schroeder schroeder@ictw.chemie.uni-karlsruhe.de
+%
+% Version: 0.5 February 1 2001
+%
+% arrow.mf is inspired by and based on cryst.mf version 1.0 by Ulrich Mueller
+%
+
+
+
+mode_setup; font_size 10pt#;
+font_identifier:="arrow"; font_coding_scheme:="UNSPECIFIED";
+ff:=0.82;
+u#:=ff*0.10pt#;
+br#:=108u#; ho#:=100u#; ul#:=32u#; % Breite, Hoehe, Unterlaenge
+define_pixels(u,br,ho,ul);
+
+
+beginchar(65,120u#,68u#,0);
+"right arrow";
+z1=(0u,33.2u); z2=(88u,33.2u); z3=(88u,27.7u); z4=(0,27.7u);
+z5=(116u,30.7u); z6=(63u,7.2u); z7=(62u,9.2u);
+z8=(76u,30.7u); z9=(62u,51.2u); z10=(63u,53.2u);
+fill z10{dir -28}..{dir -15}z5..z5{dir -165}..{dir -152}z6--z7--z8--z9--cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 10);
+endchar;
+
+
+beginchar(66,120u#,68u#,0);
+"up right harpoon";
+z1=(0u,33.2u); z2=(88u,33.2u); z3=(88u,27.7u); z4=(0,27.7u);
+z5=(116u,27.7u); z6=(63u,55u); z7=(62u,53u); z8=(74u,27.7u);
+fill z6{dir -32}..{dir -22}z5--z8--z7--z6..cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 8);
+endchar;
+
+beginchar(67,120u#,68u#,0);
+"down right harpoon";
+z1=(0u,33.2u); z2=(88u,33.2u); z3=(88u,27.7u); z4=(0,27.7u);
+z5=(116u,33.2u); z6=(63u,5u); z7=(62u,7u); z8=(76u,33.2u);
+fill z6{dir 32}..{dir 22}z5--z8--z7--cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 8);
+endchar;
+
+
+beginchar(68,120u#,68u#,0);
+"left arrow";
+z1=(120u,33.2u); z2=(32u,33.2u); z3=(32u,27.7u); z4=(120u,27.7u);
+z5=(4u,30.7u); z6=(57u,7.2u); z7=(58u,9.2u);
+z8=(42u,30.7u); z9=(58u,51.2u); z10=(57u,53.2u);
+fill z10{dir -152}..{dir -165}z5..z5{dir -15}..{dir -28}z6--z7--z8--z9--cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 10);
+endchar;
+
+beginchar(69,120u#,68u#,0);
+"up left harpoon";
+z1=(120u,33.2u); z2=(31u,33.2u); z3=(31u,27.7u); z4=(120u,27.7u);
+z5=(4u,27.7u); z6=(57u,55u); z7=(58u,53u); z8=(46u,27.7u);
+fill z5{dir 22}..{dir 32}z6--z7--z8--z5..cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 8);
+endchar;
+
+
+beginchar(70,120u#,68u#,0);
+"down left harpoon";
+z1=(120u,33.2u); z2=(31u,33.2u); z3=(31u,27.7u); z4=(120u,27.7u);
+z5=(4u,33.2u); z6=(57u,5u); z7=(58u,7u); z8=(40u,33.2u);
+%fill z5{dir 22}..{dir 32}z6--z7--z8--z5..cycle;
+fill z5{dir -15}..{dir -28}z6--z7--z8--z5..cycle;
+fill z1--z2--z3--z4--cycle;
+labels(range 1 thru 8);
+endchar;
+
+beginchar(71,74u#,68u#,0);
+"new minus sign";
+% z1=(2u,33.2u); z2=(72u,33.2u); z3=(72u,27.7u); z4=(2u,27.7u); z5=(0u,30.7u); z6=(74u,30.7u);
+z2=(2u,33.2u); z3=(72u,33.2u); z5=(72u,27.7u); z6=(2u,27.7u); z1=(0u,30.7u); z4=(74u,30.7u);
+% fill z2--z3--z5--z6--cycle;
+fill z6..z1..z2--z3..z4..z5--z6--cycle;
+labels(range 1 thru 6);
+endchar;
+
+bye.