diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf | 56 |
1 files changed, 30 insertions, 26 deletions
diff --git a/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf b/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf index 83658986b2b..1b384d0e5ca 100644 --- a/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf +++ b/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf @@ -1,33 +1,36 @@ -% 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. +%% +%% This is file `nkarta.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% nkarta.dtx (with options: `MF') +%% ------------------------------------------------------------------- +%% Copyright 2002--2009, Daniel H. Luecking +%% +%% Nkarta is in the public domain +%% mode_setup; -smoothing := 0; autorounding := 0; -FS# := if (known FontSize) and (numeric FontSize): - FontSize - else: - 15pt# - fi/1000; +smoothing := 2; autorounding := 2; + +if (not known FontSize) or (not numeric FontSize): + numeric FontSize; + FontSize := 15pt#; +fi +FS# := FontSize/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 = +path P[]; numeric P; +def setP = P[incr P] := enddef; + +def drawthem = if debug: % debug pickup pencircle scaled .4pt; % fi % - for n = 1 upto t: + for n = 1 upto P: if debug: % addto currentpicture doublepath (P[n] scaled FS); % else: % @@ -36,16 +39,15 @@ fi cullit; % debug endfor enddef; +extra_beginchar:= extra_beginchar & "P := 0;"; +extra_endchar:= "drawthem;" & extra_endchar; -% 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. +setP (0,0) -- cycle ; endchar; -input nkchars.mf; +input nkchars; font_slant:=0; font_normal_space:=280*FS#; @@ -57,3 +59,5 @@ designsize:=FontSize; font_coding_scheme:="AppleStandard"; font_identifier:="NKarta"; end. +%% +%% End of file `nkarta.mf'. |