summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf16
1 files changed, 11 insertions, 5 deletions
diff --git a/Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf b/Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf
index 0e69a6bdbb7..e705e163dfb 100644
--- a/Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf
+++ b/Master/texmf-dist/fonts/source/public/knitting/knit_dimens.mf
@@ -1,3 +1,5 @@
+% Date: 2010/08/10
+
widewd# = 16.3pt#;
% This is as wide as a cell can be without causing problems with 5-cell-wide symbols
if known wd#: else: wd# = 12 pt#; fi
@@ -5,6 +7,7 @@ if known wd#: else: wd# = 12 pt#; fi
symbolwidth#=0.7pt#;
purl_symbolwidth#=0.7pt#;
+ finesymbolwidth# = 0.4pt#;
gridwidth# = if gridfont: 0.3pt# else: 0pt# fi;
overlinewd# = if gridfont: 1.5pt# else: 0.8pt# fi;
@@ -39,7 +42,7 @@ purlextend# := 0pt#;
else:
purlextend# := 0.2pt#;
fi
-%
+
% Purlextend affects how far outside their box the purl background goes.
%
% This is largely irrelevant when printing,
@@ -49,14 +52,15 @@ fi
% particular printer, this is one parameter you *have* to fiddle with.
define_pixels(wd,ht,dp);
-define_blacker_pixels(cableextend,purlextend,gridwidth,symbolwidth,purl_symbolwidth,
- overlinewidth);
+define_blacker_pixels(cableextend,purlextend,gridwidth,symbolwidth,
+ purl_symbolwidth, finesymbolwidth, overlinewidth);
define_pixels(eraserwidth,wrapturngap);
define_corrected_pixels(o,ho);
define_pixels(standardgap,smallgap,mingap,topgap,bottomgap,
cablevertgap,cablebargap,cableslant, botcableheight,topcableheight);
pickup pencircle scaled symbolwidth; symbol_pen := savepen;
+pickup pencircle scaled finesymbolwidth; fine_pen := savepen;
pickup pencircle scaled purl_symbolwidth; purl_symbol_pen := savepen;
pickup pencircle scaled eraserwidth; eraser_pen := savepen;
@@ -90,8 +94,10 @@ overlinewd#, % dimen 11: overline/bar width
(topgap#-bottomgap#), % dimen 13: vertical offset
purlextend#; % dimen 14: purl box outlap
-def incrwidth (expr sts) = wd# enddef;
-def decrwidth (expr sts) = wd# enddef;
+if known incrwidthdefined: else:
+ def incrwidth (expr stsin, stsout) = 1*wd# enddef;
+ def decrwidth (expr stsin, stsout) = 1*wd# enddef;
+fi
Vwidth := standardheight; % Used twice: v and y
Wwidth := biggerheight; % Used for make 3 from 1
wideincline := 2symbolwidth;