% Date: 2010/08/10 mode_setup; boolean gridfont; gridfont := true; fonttype = counttype; def incrwidth (expr stsin, stsout) = stsout*wd# enddef; def decrwidth (expr stsin, stsout) = stsout*wd# enddef; boolean incrwidthdefined; incrwidthdefined = true; wd# = widewd#; input knit_dimens; if known ps_output: font_identifier := "KnittingSymbols-wide-outcount"; fi string Vtitle; Vtitle := "Knit wide font for checking stitch counts"; input knit_symbols; input knit_grid_cables; end