summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf
blob: 83658986b2b5417d3c45d83a6c020023548d6dd2 (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
% Nkarta.mf
% Author:      Daniel H. Luecking
% Description: Derived from karta.mf (author and license  unknown)
% Date:        02 March 2004
% License:     Use at your own risk. If it is found that karta limits
%              derived works, nkarta will be subject to those limits.

mode_setup;
smoothing := 0; autorounding := 0;
FS# := if (known FontSize) and (numeric FontSize):
         FontSize
       else:
         15pt#
       fi/1000;
define_pixels(FS);

% In the original, the following code occurred after each path P[n] was
% defined:
%   if (turningnumber P[n])>=0: fill else: unfill reverse fi P[n];
% This fails if turning number is 0. The following is more efficient
% and has the same effect. Moreover, it puts the repeated code in a
% macro issued only once per character.
boolean debug; debug:=false;

path P[];
def drawthem expr t =
if debug:                                               % debug
  pickup pencircle scaled .4pt;                         %
fi                                                      %
  for n = 1 upto t:
if debug:                                               %
     addto currentpicture doublepath (P[n] scaled FS);  %
else:                                                   %
    addto currentpicture contour (P[n] scaled FS);
fi
    cullit;                                             % debug
  endfor
enddef;

% I don't know what a space is needed for, but I've kept it.
beginchar (32,280*FS#,0*FS#,0*FS#);
"space";
P1 := ((0,0)
-- cycle) ;
drawthem 1; % Seems useless.
endchar;

input nkchars.mf;

font_slant:=0;
font_normal_space:=280*FS#;
font_normal_stretch:=140*FS#;
font_normal_shrink:=93*FS#;
font_x_height:=500*FS#;
font_quad:=586*FS#;
designsize:=FontSize;
font_coding_scheme:="AppleStandard";
font_identifier:="NKarta";
end.