summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/chemarrow/arrow.mf
blob: 170ad773fcdfd026f8b8faf3f28e85bad31e5c3b (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
86
87
88
89
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.