diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/barcodes/wlc11.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/barcodes/wlc11.mf | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/barcodes/wlc11.mf b/Master/texmf-dist/fonts/source/public/barcodes/wlc11.mf new file mode 100644 index 00000000000..39e07aef3c6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/barcodes/wlc11.mf @@ -0,0 +1,101 @@ +%% +%% This is file `wlc11.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% barcodes.dtx (with options: `code11mf') +%% As this is a generated file, you may perhaps not want to edit it. +%% This file belongs to the barcode package. +%% It may be of no great use without the rest of the barcode package. +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +%% Code 11 in Metafont format +%% Peter Willadt 1998-04-10 +%% For copyright and the like see the documentation +%% to the barcode package, from which this file is part of. +%% If you received only this file, +%% then maybe someone fooled you. +%% +%% Code 11 requires one or two check digits. +%% These check digtis are calculated using a weighted mod 11-checksum. +%% You have to see the docs. +%% Start and stop chars are mapped to @, +%% codeable are 0--9 and the minus sign. + +mode_setup; + +bheight#:=5mm#; + +bwidth# :=.33 mm#; + +designsize :=bheight#; +font_slant :=0; +font_normal_space :=8*bwidth#; +font_extra_space :=0; +font_normal_stretch:=0; +font_normal_shrink :=0; +font_quad :=15*bwidth#; + +define_pixels(bheight, bwidth); + +def CODExichar(expr charnum, spex) = +numeric mywid, asval, i; +mywid=6; +for i= 0 upto 4: +asval:=ASCII(substring(i,i+1) of spex); +asval:=asval-ASCII("0"); +mywid:=mywid+asval; +endfor; +beginchar(charnum, mywid*bwidth#,bheight#,0); +y1=y2=0; +y3=y4=bheight; +numeric myright,myleft,barweight,spcweight; +myright:=0;myleft:=0;barweight:=0;spcweight:=0; +for i=0 upto 4: +asval:=ASCII(substring(i,i+1) of spex); +asval:=asval-ASCII("0"); +myright:=myright+(asval+1)*bwidth; +if not odd (i): +x1:=myleft-blacker; +x4:=x1; +x2:=myright+blacker; +x3:=x2; +fill (z1)--(z2)--(z3)--(z4)--cycle; +fi +myleft:=myright; +endfor; +endchar; +enddef; + +CODExichar("-","00100"); +CODExichar("0","00001"); +CODExichar("1","10001"); +CODExichar("2","01001"); +CODExichar("3","11000"); +CODExichar("4","00101"); +CODExichar("5","10100"); +CODExichar("6","01100"); +CODExichar("7","00011"); +CODExichar("8","10010"); +CODExichar("9","10000"); +CODExichar("@","00110"); + +end;% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\endinput +%% +%% End of file `wlc11.mf'. |