summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/nkarta/nkarta.mf56
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'.