summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf
blob: 277a6f2fcb756e24de534b55f5e23ce4cea27ad1 (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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
%%
%% This is file `ligatures.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% universal.dtx  (with options: `ligatures')
%% 
%% Copyright (C) 1997 Christian Holm.
%% 
%% This file is NOT the source for universal, because almost all
%% comments have been stripped from it.  It is NOT the preferred
%% form of universal for making modifications to it.
%% 
%% Therefore you can NOT redistribute and/or modify THIS file.
%% You can however redistribute the complete source (universal.dtx
%% and universal.ins) and/or modify it under the terms of the GNU
%% General Public License as published by the Free Software
%% Foundation; either version 2, or (at your option) any later
%% version.
%% 
%% The universal font and package is distributed in the hope that
%% it will be useful, but WITHOUT ANY WARRANTY; without even the
%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
%% PURPOSE.  See the GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public
%% License along with this program; if not, write to the
%%   Free Software Foundation, Inc.,
%%   675 Mass Ave, Cambridge,
%%   MA 02139, USA.
%% 
%% See the file universal.dtx for further comments and documentation.
%% 
bauhaussymb(hex"19",2p_thick#+.5l_height#+f_space#,l_height#,0,0);
  "Ligature ss";
  lft z1 = (wi-.5h,0);
  lft z2 = (wi-.5h,.75h);
  top z3 = (wi-.25h,h);
  rt  z4 = (wi,y2);
  z5     = (wi-.25h,.5h);
  z6     = (0,.5h);
  rt  z7 = (wi,.25h);
  bot z8 = (wi-.25h,0);
  cutdraw z1{up}---z2{up}..z3{right}..z4{down}..z5{left}---z6{left};
  cutdraw z5{right}..z7{down}..z8{left};
  penlabels(1,2,3,4,5,6,7,8);
endchar;

bauhaussymb(hex"1A",2x_width#-p_thick#-2f_space#,x_height#,0,0);
  "Ligature ae";
  currentpicture := a_pic + ( e_pic shifted (.5wi,0));
endchar;

bauhaussymb(hex"1B",2x_width#-p_thick#-2f_space#,x_height#,0,0);
  "Ligature oe";
  currentpicture := o_pic + ( e_pic shifted (.5wi,0));
endchar;

bauhaussymb(hex"1C",x_width#,x_height#,0,0);
  "Ligature o/";
  lft z10 = (0,0);
  rt  z11 = (wi,h);
  draw z10{(1,1)}--z11;
  cutoff(z10,-90);
  cutoff(z11,90);
  currentpicture := currentpicture + o_pic;
endchar;

bauhaussymb(hex"1D",M_width#,l_height#,0,0);
  "Ligature AE";
  lft z1 = (0,0);
  lft z2 = (0,.5wi);
  top z3 = (.5wi,h);
  top z4 = (wi,h);
  lft z5 = (0,.5h);
  z6     = (wi,.5h);
  bot z7 = (wi,0);
  bot z8 = (.5wi,0);
  cutdraw z1{up}---z2{up}..z3{right}---z4{right};
  draw z5{right}---z6{right};
  cutoff(z6,0);
  cutdraw z7{left}---z8{(-1,1)}---z3{up};
  penlabels(1,2,3,4,5,6,7,8);
endchar;

bauhaussymb(hex"1E",.5l_height#+.5A_width#+.5f_space#,l_height#,0,0);
  "Ligature OE";
  bot z1 = (wi,0);
  bot z2 = (.5h,0);
  lft z3 = (0,.5h);
  top z4 = (.5h,h);
  top z5 = (wi,h);
  z6     = .5[z2,z4];
  z7     = .5[z1,z5];
  cutdraw z1{left}---z2{left}..z3{up}..z4{right}---z5{right};
  draw z2{up}--z4{up};
  draw z6{right}--z7{right};
  cutoff(z7,0);
  penlabels(1,2,3,4,5,6,7);
endchar;

bauhaussymb(hex"1F",l_height#+f_space#,l_height#,0,0);
  "Liguture O/";
  lft z10 = (0,0);
  rt  z11 = (wi,h);
  draw z10{(1,1)}--z11;
  cutoff(z10,-90);
  cutoff(z11,90);
  currentpicture := currentpicture + O_pic;
endchar;


\endinput
%%
%% End of file `ligatures.mf'.