allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) (01/30/89)
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!/