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