From decwrl!wyse!uunet!allbery Sun Jan 29 20:31:00 PST 1989 Article 803 of comp.sources.misc: Path: granite!decwrl!wyse!uunet!allbery From: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Newsgroups: comp.sources.misc Subject: v06i030: HPGL to PostScript converter: missing prelude file Message-ID: <47763@uunet.UU.NET> Date: 29 Jan 89 21:30:15 GMT Sender: allbery@uunet.UU.NET Reply-To: federico@actisb.UUCP Organization: ACTIS in Berlin GmbH, W. Germany Lines: 109 Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 6, Issue 30 Submitted-by: federico@actisb.UUCP Archive-name: yahp2ps/part07 I just saw that you posted the converter - Thanks a lot! It is only a pity I forgot including the following file in the release. Would you please include it in one of the packages under the name 'yahp2ps.pre'? I don't think a repost will be needed, since I already posted this in comp.graphics and comp.lang.postscript. Thanks again - - - - - - - - - - - - - - CUT HERE - - - - - - - - - - - - - - - - - - #! /bin/sh # This file was wrapped with "dummyshar". "sh" this file to extract. # Contents: yahp2ps.pre echo extracting 'yahp2ps.pre' if test -f 'yahp2ps.pre' -a -z "$1"; then echo Not overwriting 'yahp2ps.pre'; else sed 's/^X//' << \EOF > 'yahp2ps.pre' X%! X X% initialization X X.072 .072 scale X/RTM matrix currentmatrix def Xnewpath clippath pathbbox 3 1 roll pop pop translate -90 rotate Xnewpath X/NTM matrix currentmatrix def X/SM matrix currentmatrix def X1 setlinecap 1 setlinejoin Xgsave X X% procedure definition X X% shorthand notation for commonly used commands X X/A { arc } def X/C { closepath } def X/CD { currentpoint lineto } def X/D { 0 setdash } def X/G { setgray } def X/L { lineto } def X/M { moveto } def X/R { rotate } def X/S { stroke } def X/SC { closepath clip newpath } def X/SSM { SM setmatrix } def X/T { pathbbox pop pop translate pathbbox newpath } def X/TB { gsave newpath [] 0 setdash } def X/TE { lineto stroke grestore } def X/TS { translate scale } def X/W { setlinewidth } def X X% Reset the clipping path X X/RC X{ currentdash X currentlinewidth X currentgray X grestore X gsave X setgray X setlinewidth X setdash X} def X X% Set portrait format X X/POR X{ RTM dup /SM exch def setmatrix } def X X X% Set landscape format X X/LND X{ NTM dup /SM exch def setmatrix } def X X X% Hatch a surface. X% rubbish rubbish x y spacing cross -> H -> - X X/H X{ /cross exch def X /spacing exch def X /endy exch def X /endx exch def X pop pop X [] 0 setdash X 0 spacing endy X { dup 0 exch moveto X endx exch lineto X } for X cross X { 0 spacing endx X { dup 0 moveto X endy lineto X } for X } if X stroke grestore newpath X} def EOF chars=`wc -c < 'yahp2ps.pre'` if test $chars != 1460; then echo 'yahp2ps.pre' is $chars characters, should be 1460 characters!; fi fi exit 0 - - - - - - - - - - - - - - CUT HERE - - - - - - - - - - - - - - - - - - -- Federico Heinz "I can resist anything but temptation" -- Oscar Wilde >From Europe: ...!mcvax!unido!tub!actisb!federico >From elsewhere: ...!uunet!pyramid!/