diff options
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.mf | 16 |
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; |