diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/barcode2/wlean.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/barcode2/wlean.mf | 417 |
1 files changed, 417 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/barcode2/wlean.mf b/Master/texmf-dist/fonts/source/public/barcode2/wlean.mf new file mode 100644 index 00000000000..e3a12e28cb3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/barcode2/wlean.mf @@ -0,0 +1,417 @@ +%% +%% This is file `wlean.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% barcodes.dtx (with options: `codeeanmf') +%% 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 \~} +%% +%% Font for printing EAN Code +%% For small sizes (on the Deskjet, < 1,0) you have to be +%% very careful and test if the font is still machine readable. +%% On write-black-printers, it may be necessary to reduce +%% the width of black bars by fiddling with +%% the definition of fb(). +%% For producing EAN Add-ons or codes with variable height, +%% it would be a good idea to shorten the height of the bars and +%% to leave the numbers out of the bars-definition, so that you +%% could stack several bars above each other. +%% Flexibility would increase, but---on the other hand--- +%% TeX macros for setting EAN code would become even more complicated. +%% Peter Willadt 1997, September, 21 +%% Author +%% Peter Willadt +%% Heinrich-Wieland-Allee 5 +%% 75177 Pforzheim +%% Germany +%% email: Willadt@t-online.de + +mode_setup; + +%% EAN size 1 (100%) +bheight#:=22.85mm#; +bdepth#:=1.65mm#; +bwidth#:=0.33mm#; +digheight#:=2.75mm#; +numgap#=1mm#; +digdiam#=0.9pt#; +lgap#:= bwidth#+0.5 digdiam#; +totheight#=bheight#+digheight#+numgap#; +ndheight#:=totheight#-bheight#-bdepth#; +define_pixels(ndheight,digheight,numgap,lgap,bwidth); +define_blacker_pixels(bheight,totheight,digdiam); + +font_normal_space=7*bwidth#; +font_size 10pt#; + +def fb(expr posn) = +x20:=(posn-1)*bwidth; +x21:=x20; +x22:=posn*bwidth; +x23:=x22; +y20:=y22:=digheight+numgap; +y21:=y23:=h; +fill z20--z21--z23--z22--cycle; +enddef; + +def klotz(expr posn) = +x1:=(posn-1)*bwidth;x2:=posn*bwidth; +x3:=x2;x4:=x1; +y1:=y2:=ndheight; +y3:=y4:=digheight+numgap; +fill z1--z2--z3--z4--cycle; +enddef; + +def nuller = +x1=0.5w; +y1=digheight; +x2=lgap; +y2=0.8y1; +x3=x2; +y3-y4=y1-y2; +y4=0; +x4=x1; +x5=w-x3; +y5=y3; +x6=x5; +y6=y2; +pickup pencircle scaled digdiam; +draw z1..{down}z2--z3{down}..z4..{up}z5--z6{up}..cycle; +enddef; + +def einser = +x1=x2=0.5w+lgap; +x3=2*lgap; +y1=0; +y2=digheight; +y3=0.8digheight; +pickup pencircle scaled digdiam; +draw z1--z2--z3; +enddef; + +def zweier = +x1=w-lgap; +x2=lgap; +y1=y2=0; +x3=x2; +y3=0.15 digheight; +x4=w-lgap; +y4=0.6 digheight; +x5=x4; +y5=0.9 digheight; +x6=0.5w; +y6=digheight; +x7=x2; +y7=y5; +pickup pencircle scaled digdiam; +draw z1--z2{up}..z3..z4..z5..z6..z7; +enddef; + +def dreier = +x1=lgap; +w-x2=x1; +y1=y2=digheight; +x3=0.5w; +y3=0.6digheight; +y4=0.5y3; +x4=x2; +y5=0; +x5=0.5w; +x6=x1; +y6=0.2 digheight; +pickup pencircle scaled digdiam; +draw z1--z2--z3{right}..z4..z5..z6; +enddef; + +def vierer = +x1=0.6w;y1=digheight; +x2=lgap; +y2=0.3digheight; +y3=y2; +w-x3=x2; +x4=0.5[x1,x3]; +x5=x4; +y4=0.5digheight; +y5=0; +pickup pencircle scaled digdiam; +draw z1--z2--z3; +draw z4--z5; +enddef; + +def fuenfer = +x2=lgap; +x2=w-x1; +y1=y2=digheight; +x3=x2; +y3=0.7digheight; +x4=x1; +y3-y4=y4; +x5=x2; +y5=0; +pickup pencircle scaled digdiam; +draw z1--z2--z3{right}..z4..{left}z5; +enddef; + +def sechser = +x1=0.6w; +y1=digheight; +x2=lgap; +x4=w-x2; +y2=y4=0.5y5; +x3=x5=0.5w; +y3=0; +y5=x4-x2; +pickup pencircle scaled digdiam; +draw z2..z3..z4..z5..cycle; +draw z1..{down}z2; +enddef; +def siebener = +x1=lgap; +x2=w-x1; +y1=y2=digheight; +x3=x4=0.5w; +y3=0.3digheight; +y4=0; +pickup pencircle scaled digdiam; +draw z1--z2; +draw z2..z3...z4; +enddef; +def achter = +x1=x3=x5=0.5w; +y1=digheight; +y3=0.6digheight; +y5=0; +x2=w-x7; +x4=w-x6; +y2=y7=0.5[y1,y3]; +y4=y6=0.5[y3,y5]; +x2=1.5lgap; +x4=w-lgap; +pickup pencircle scaled digdiam; +draw z1..z2..z3..z7..cycle; +draw z3..z4..z5..z6..cycle; +enddef; +def neuner = +x1=0.4w; +y1=0; +x2=w-lgap; +x4=w-x2; +y2=y4=0.5[y5,y3]; +x3=x5=0.5w; +y3=digheight; +y5=0.4 digheight; +pickup pencircle scaled digdiam; +draw z1..{up}z2; +draw z2..z3..z4..z5..cycle; +enddef; +beginchar("+",3*bwidth#,totheight#,0); "Das Randzeichen"; +fb(1); fb(3); +klotz(1); +klotz(3); +endchar; +beginchar("-",5*bwidth#,totheight#,0); "Das Mittenzeichen"; +fb(2); fb(4); +klotz(2); +klotz(4); +endchar; + +beginchar("0",7*bwidth#,digheight#,0); +nuller; +endchar; + +beginchar("1",7*bwidth#,digheight#,0); +einser; +endchar; + +beginchar("2",7*bwidth#,digheight#,0); +zweier; +endchar; + +beginchar("3",7*bwidth#,digheight#,0); +dreier; +endchar; + +beginchar("4",7*bwidth#,digheight#,0); +vierer; +endchar; + +beginchar("5",7*bwidth#,digheight#,0); +fuenfer; +endchar; + +beginchar("6",7*bwidth#,digheight#,0); +sechser; +endchar; + +beginchar("7",7*bwidth#,digheight#,0); +siebener; +endchar; + +beginchar("8",7*bwidth#,digheight#,0); +achter; +endchar; + +beginchar("9",7*bwidth#,digheight#,0); +neuner; +endchar; + + +beginchar("A",7*bwidth#,totheight#,0); "Die Null (A)"; +fb(4);fb(5);fb(7); +nuller; +endchar; + +beginchar("B",7*bwidth#,totheight#,0); "Die Eins (A)"; +fb(3);fb(4);fb(7); +einser; +endchar; + +beginchar("C",7*bwidth#,totheight#,0); "Die Zwei (A)"; +fb(3);fb(6);fb(7); +zweier; +endchar; +beginchar("D",7*bwidth#,totheight#,0); "Die Drei (A)"; +fb(2);fb(3);fb(4);fb(5);fb(7); +dreier; +endchar; +beginchar("E",7*bwidth#,totheight#,0); "Die Vier (A)"; +fb(2);fb(6);fb(7); +vierer; +endchar; +beginchar("F",7*bwidth#,totheight#,0); "Die Fuenf (A)"; +fb(2);fb(3);fb(7); +fuenfer; +endchar; +beginchar("G",7*bwidth#,totheight#,0); "Die Sechs (A)"; +fb(2);fb(4);fb(5);fb(6);fb(7); +sechser; +endchar; +beginchar("H",7*bwidth#,totheight#,0); "Die Sieben (A)"; +fb(2);fb(3);fb(4);fb(6);fb(7); +siebener; +endchar; + +beginchar("I",7*bwidth#,totheight#,0); "Die Acht (A)"; +fb(2);fb(3);fb(5);fb(6);fb(7); +achter; +endchar; + +beginchar("J",7*bwidth#,totheight#,0); "Die Neun (A)"; +fb(4);fb(6);fb(7); +neuner; +endchar; + + +beginchar("a",7*bwidth#,totheight#,0); "Die Null (B)"; +fb(2);fb(5);fb(6);fb(7); +nuller; +endchar; + +beginchar("b",7*bwidth#,totheight#,0); "Die Eins (B)"; +fb(2);fb(3);fb(6);fb(7); +einser; +endchar; + +beginchar("c",7*bwidth#,totheight#,0); "Die Zwei (B)"; +fb(3);fb(4);fb(6);fb(7); +zweier; +endchar; +beginchar("d",7*bwidth#,totheight#,0); "Die Drei (B)"; +fb(2);fb(7); +dreier; +endchar; +beginchar("e",7*bwidth#,totheight#,0); "Die Vier (B)"; +fb(3);fb(4);fb(5);fb(7); +vierer; +endchar; +beginchar("f",7*bwidth#,totheight#,0); "Die Fuenf (B)"; +fb(2);fb(3);fb(4);fb(7); +fuenfer; +endchar; +beginchar("g",7*bwidth#,totheight#,0); "Die Sechs (B)"; +fb(5);fb(7); +sechser; +endchar; +beginchar("h",7*bwidth#,totheight#,0); "Die Sieben (B)"; +fb(3);fb(7); +siebener; +endchar; + +beginchar("i",7*bwidth#,totheight#,0); "Die Acht (B)"; +fb(4);fb(7); +achter; +endchar; + +beginchar("j",7*bwidth#,totheight#,0); "Die Neun (B)"; +fb(3);fb(5);fb(6);fb(7); +neuner; +endchar; + + +beginchar("K",7*bwidth#,totheight#,0); "Die Null (C)"; +fb(1);fb(2);fb(3);fb(6); +nuller; +endchar; + +beginchar("L",7*bwidth#,totheight#,0); "Die Eins (C)"; +fb(1);fb(2);fb(5);fb(6); +einser; +endchar; + +beginchar("M",7*bwidth#,totheight#,0); "Die Zwei (C)"; +fb(1);fb(2);fb(4);fb(5); +zweier; +endchar; +beginchar("N",7*bwidth#,totheight#,0); "Die Drei (C)"; +fb(1);fb(6); +dreier; +endchar; +beginchar("O",7*bwidth#,totheight#,0); "Die Vier (C)"; +fb(1);fb(3);fb(4);fb(5); +vierer; +endchar; +beginchar("P",7*bwidth#,totheight#,0); "Die Fuenf (C)"; +fb(1);fb(4);fb(5);fb(6); +fuenfer; +endchar; +beginchar("Q",7*bwidth#,totheight#,0); "Die Sechs (C)"; +fb(1);fb(3); +sechser; +endchar; +beginchar("R",7*bwidth#,totheight#,0); "Die Sieben (C)"; +fb(1);fb(5); +siebener; +endchar; + +beginchar("S",7*bwidth#,totheight#,0); "Die Acht (C)"; +fb(1);fb(4); +achter; +endchar; + +beginchar("T",7*bwidth#,totheight#,0); "Die Neun (C)"; +fb(1);fb(2);fb(3);fb(5); +neuner; +endchar; + +end; +\endinput +%% +%% End of file `wlean.mf'. |