summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/archaic/viking/viktitle.mf
blob: 0b3a96e83c3c90c21d54fc50f67f89ecd327cafa (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
%%
%% This is file `viktitle.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% viking.dtx  (with options: `mfd')
%% 
%%  Copyright 2003 Uwe Zimmermann
%% 
%%  This program is provided under the terms of the
%%  LaTeX Project Public License distributed from CTAN
%%  archives in directory macros/latex/base/lppl.txt.
%% 
%%  Author: Uwe Zimmermann
%%          uwe.zimmermann@sciencetronics.com
%% 
%%  based on runic.ins by Peter R. Wilson
%% 

font_coding_scheme:="Runic glyphs";
mode_setup;

ho#:=o#;                   % horizontal overshoot
leftloc#:=s#;        % leftmost xcoord of character
py#:=.9px#;                % vertical thickness of the pen

define_pixels(s,u);
define_blacker_pixels(px,py);
define_good_x_pixels(leftloc);
define_corrected_pixels(o);             % turn on overshoot correction
define_horizontal_corrected_pixels(ho);

numeric midloc, rightloc;
pickup pencircle xscaled px yscaled py;
stylus:=savepen;

pickup pencircle xscaled 2px yscaled 2px;
stugna:=savepen;

def beginglyph(expr code, unit_width) =
  beginchar(code, unit_width*ht#+2s#, ht#, 0);
  midloc:=1/2w; rightloc:=(w-s);
  pickup stylus enddef;

let cmchar=\;


input vikglyph;        % Runic glyphs

end