%% %% This is file `wlc39.mf', %% generated with the docstrip utility. %% %% The original source files were: %% %% barcodes.dtx (with options: `code39mf') %% 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 39, in Metafont mode %% Willadt 1997-08-17 mode_setup; bheight#:=5mm#; %% high res .2 mm, %% med res .3 mm, %% lo res .4 mm. bwidth# :=.3mm#; designsize :=bheight#; font_slant :=0; font_normal_space :=13*bwidth#; font_extra_space :=0; font_normal_stretch:=0; font_normal_shrink :=0; font_quad :=13*bwidth#; define_pixels(bheight, bwidth); def thirtyninechar(expr charnum, spex) = beginchar(charnum, 13*bwidth#,bheight#,0); numeric myright,myleft; numeric asval, i; myright:=0;myleft:=0; y1=y2=0;y3=y4=bheight; for i=0 upto 11: asval:=ASCII(substring(i,i+1) of spex); exitif asval=-1; asval:=asval-ASCII("0"); myright:=myright+asval*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; \thirtyninechar("0")("1112212111"); \thirtyninechar("1")("2112111121"); \thirtyninechar("2")("1122111121"); \thirtyninechar("3")("2122111111"); \thirtyninechar("4")("1112211121"); \thirtyninechar("5")("2112211111"); \thirtyninechar("6")("1122211111"); \thirtyninechar("7")("1112112121"); \thirtyninechar("8")("2112112111"); \thirtyninechar("9")("1122112111"); \thirtyninechar( 64)("1211212111"); % start = @ \thirtyninechar("-")("1211112121"); \thirtyninechar("+")("1211121211"); \thirtyninechar("$")("1212121111"); \thirtyninechar("/")("1212111211"); \thirtyninechar(".")("2211112111"); \thirtyninechar( 37)("1112121211"); % percent \thirtyninechar( 32)("1221112111"); % space \thirtyninechar("A")("2111121121"); \thirtyninechar("B")("1121121121"); \thirtyninechar("C")("2121121111"); \thirtyninechar("D")("1111221121"); \thirtyninechar("E")("2111221111"); \thirtyninechar("F")("1121221111"); \thirtyninechar("G")("1111122121"); \thirtyninechar("H")("2111122111"); \thirtyninechar("I")("1121122111"); \thirtyninechar("J")("1111222111"); \thirtyninechar("K")("2111111221"); \thirtyninechar("L")("1121111221"); \thirtyninechar("M")("2121111211"); \thirtyninechar("N")("1111211221"); \thirtyninechar("O")("2111211211"); \thirtyninechar("P")("1121211211"); \thirtyninechar("Q")("1111112221"); \thirtyninechar("R")("2111112211"); \thirtyninechar("S")("1121112211"); \thirtyninechar("T")("1111212211"); \thirtyninechar("U")("2211111121"); \thirtyninechar("V")("1221111121"); \thirtyninechar("W")("2221111111"); \thirtyninechar("X")("1211211121"); \thirtyninechar("Y")("2211211111"); \thirtyninechar("Z")("1221211111"); \end; \endinput %% %% End of file `wlc39.mf'.