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
|