🚀 go-pugleaf

$@Iw4V!w#N#T#T%=%U(J$@%H8&$G$9!#(J

In article <SUZUKI.92Mar17190027@shari.graco.c.u-tokyo.ac.jp> suzuki@graco.c.u-tokyo.ac.jp (SUZUKI Hiromasa) writes:
 > $@%P!<%3!<%I$r0u:~$9$k%W%m%0%i%`$rC5$7$F$$$^$9!%%P!<%3!<%I(J($@$$$/$D$+5,3J(J
 > $@$,$"$k$h$&$G$9$,!D(J)$@$r!$(J1$@%Z!<%8$KE,Ev$K%l%$%"%&%H$7$F0u:~$G$-$k$b$N$,$"(J
 > $@$l$P!$65$($F2<$5$$!%(J

$@!!(J$@%P!<%3!<%I$K$D$$$F$O$^$C$?$/>\$7$/$J$$$N$G$9$,@N!"<!$N$h$&$J%P!<%3!<(J
$@%I%U%)%s%H$rDj5A$7$F;HMQ$9$k%W%m(J$@%0%i%`$,(Jcomp.lang.postscript$@$KEj9F$5$l(J
$@$F$$$^$7$?!#(J

--- cut here --- cut here --- cut here --- cut here ---
From: wrs@Tymnet.COM (William Soley)
Newsgroups: comp.lang.postscript
Subject: Re: Printing Bar Codes?
Date: 3 Sep 91 20:09:00 GMT
Organization: BT North America, San Jose CA.
Nntp-Posting-Host: spiff

In article <1991Sep2.121945.22918@parc.xerox.com>,
wellner@EuroPARC.Xerox.COM (Pierre D. Wellner) writes:
|> Does anyone have a utility to produce bar codes (preferably UPC, but
|> anything else would be fine too)?

Sorry its not UPC, this is a PostScript font for Code 39.  It may not
conform to the published specs so use it at your own risk.

-Bill

%!PS-Adobe-1.0
%
%	3-of-9 Bar Code font for PostScript
%
9 dict dup begin
	/FontType 3 def
	/FontMatrix[.030303 0 0 .030303 0 0]def
	/FontBBox[0 -15 30 66]def
	/Encoding 256 array def
	0 1 255{Encoding exch /.notdef put}for
	Encoding ( ) 0 get /space put
	Encoding ($) 0 get /dollar put
	Encoding (%) 0 get /percent put
	Encoding (*) 0 get /asterisk put
	Encoding (+) 0 get /plus put
	Encoding (-) 0 get /hyphen put
	Encoding (.) 0 get /period put
	Encoding (/) 0 get /slash put
	Encoding (0) 0 get /zero put
	Encoding (1) 0 get /one put
	Encoding (2) 0 get /two put
	Encoding (3) 0 get /three put
	Encoding (4) 0 get /four put
	Encoding (5) 0 get /five put
	Encoding (6) 0 get /six put
	Encoding (7) 0 get /seven put
	Encoding (8) 0 get /eight put
	Encoding (9) 0 get /nine put
	Encoding (A) 0 get /a put
	Encoding (B) 0 get /b put
	Encoding (C) 0 get /c put
	Encoding (D) 0 get /d put
	Encoding (E) 0 get /e put
	Encoding (F) 0 get /f put
	Encoding (G) 0 get /g put
	Encoding (H) 0 get /h put
	Encoding (I) 0 get /i put
	Encoding (J) 0 get /j put
	Encoding (K) 0 get /k put
	Encoding (L) 0 get /l put
	Encoding (M) 0 get /m put
	Encoding (N) 0 get /n put
	Encoding (O) 0 get /o put
	Encoding (P) 0 get /p put
	Encoding (Q) 0 get /q put
	Encoding (R) 0 get /r put
	Encoding (S) 0 get /s put
	Encoding (T) 0 get /t put
	Encoding (U) 0 get /u put
	Encoding (V) 0 get /v put
	Encoding (W) 0 get /w put
	Encoding (X) 0 get /x put
	Encoding (Y) 0 get /y put
	Encoding (Z) 0 get /z put
	Encoding (a) 0 get /a put
	Encoding (b) 0 get /b put
	Encoding (c) 0 get /c put
	Encoding (d) 0 get /d put
	Encoding (e) 0 get /e put
	Encoding (f) 0 get /f put
	Encoding (g) 0 get /g put
	Encoding (h) 0 get /h put
	Encoding (i) 0 get /i put
	Encoding (j) 0 get /j put
	Encoding (k) 0 get /k put
	Encoding (l) 0 get /l put
	Encoding (m) 0 get /m put
	Encoding (n) 0 get /n put
	Encoding (o) 0 get /o put
	Encoding (p) 0 get /p put
	Encoding (q) 0 get /q put
	Encoding (r) 0 get /r put
	Encoding (s) 0 get /s put
	Encoding (t) 0 get /t put
	Encoding (u) 0 get /u put
	Encoding (v) 0 get /v put
	Encoding (w) 0 get /w put
	Encoding (x) 0 get /x put
	Encoding (y) 0 get /y put
	Encoding (z) 0 get /z put
	/CharacterDefs 45 dict def
	CharacterDefs begin
		/.notdef [] def
		/space [2 4 4 2 2 2 4 2 2] def
		/dollar [2 4 2 4 2 4 2 2 2] def
		/percent [2 2 2 4 2 4 2 4 2] def
		/asterisk [2 4 2 2 4 2 4 2 2] def
		/plus [2 4 2 2 2 4 2 4 2] def
		/hyphen [2 4 2 2 2 2 4 2 4] def
		/period [4 4 2 2 2 2 4 2 2] def
		/slash [2 4 2 4 2 2 2 4 2] def
		/zero [2 2 2 4 4 2 4 2 2] def
		/one [4 2 2 4 2 2 2 2 4] def
		/two [2 2 4 4 2 2 2 2 4] def
		/three [4 2 4 4 2 2 2 2 2] def
		/four [2 2 2 4 4 2 2 2 4] def
		/five [4 2 2 4 4 2 2 2 2] def
		/six [2 2 4 4 4 2 2 2 2] def
		/seven [2 2 2 4 2 2 4 2 4] def
		/eight [4 2 2 4 2 2 4 2 2] def
		/nine [2 2 4 4 2 2 4 2 2] def
		/a [4 2 2 2 2 4 2 2 4] def
		/b [2 2 4 2 2 4 2 2 4] def
		/c [4 2 4 2 2 4 2 2 2] def
		/d [2 2 2 2 4 4 2 2 4] def
		/e [4 2 2 2 4 4 2 2 2] def
		/f [2 2 4 2 4 4 2 2 2] def
		/g [2 2 2 2 2 4 4 2 4] def
		/h [4 2 2 2 2 4 4 2 2] def
		/i [2 2 4 2 2 4 4 2 2] def
		/j [2 2 2 2 4 4 4 2 2] def
		/k [4 2 2 2 2 2 2 4 4] def
		/l [2 2 4 2 2 2 2 4 4] def
		/m [4 2 4 2 2 2 2 4 2] def
		/n [2 2 2 2 4 2 2 4 4] def
		/o [4 2 2 2 4 2 2 4 2] def
		/p [2 2 4 2 4 2 2 4 2] def
		/q [2 2 2 2 2 2 4 4 4] def
		/r [4 2 2 2 2 2 4 4 2] def
		/s [2 2 4 2 2 2 4 4 2] def
		/t [2 2 2 2 4 2 4 4 2] def
		/u [4 4 2 2 2 2 2 2 4] def
		/v [2 4 4 2 2 2 2 2 4] def
		/w [4 4 4 2 2 2 2 2 2] def
		/x [2 4 2 2 4 2 2 2 4] def
		/y [4 4 2 2 4 2 2 2 2] def
		/z [2 4 4 2 4 2 2 2 2] def
	end
	/BuildChar {exch begin
		1 string dup 0 3 index put exch
		Encoding exch get
		newpath
		30 0 setcharwidth
		0 setgray
		CharacterDefs exch get {
			dup dup setlinewidth
			  2 div 0 moveto 0 66 rlineto stroke
			 0 translate
			1 currentgray sub setgray
		}forall
		3 0 translate
		0 setgray
		gsave
			-19 -11 moveto
			LabelFont setfont show
		grestore
	end} bind def
	/LabelFont /Courier-Bold findfont 15 scalefont def
	/UniqueID 39 def
end
/BarCode-3of9 exch definefont pop



%
% An example to demonstrate usage
%
/BarCode-3of9 findfont 18 scalefont setfont
100 700 moveto (*Bar Code 3-of-9 Font*) show
showpage
--
	$@Iw4V0lMN(J (kazama@square.ntt.jp)
	NTT$@%=%U%H%&%'%"8&5f=j(J $@%=%U%H%&(J$@%'%"4pAC5;=Q8&5fIt(J
	$@J,;67?%=%U%H%&%'%"8&5f%0%k!<%W(J