summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/plain/pdcmac/fig2epsf
blob: 210dd47edb846e534c696c0ccf97120e34da84d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#! /bin/sh

#  Convert Fig files to conformant EPSF-3.0 files
#  Fig's PostScript translation creates EPSF files that cause
#  many laser printers to abort in mid-document.
#  This script attempts to remedy this.

version="1.0 Time-stamp: <pdc 1995-03-24>"

#  Usage  fig2epsf [ -m MAG ] [ -f FONT ] [ -s FSIZE ] [

case $1 in
    -V|--version)
	echo 'This is fig2epsf $version, using fig2dev from'
	fig2dev -V
	exit 0
esac

fig2dev -Lps $* | sed '
	s/^%!$/%!PS-Adobe-3.0 EPSF-3.0/
	s/^%!PS-Adobe-2.0 EPSF-2.0/%!PS-Adobe-3.0 EPSF-3.0/
	s/%%Pages: 0/%%Pages: 1/
	/\/\$F2psDict/d
	/\$F2psDict begin/d
	/	end/d
	/\/\$F2psBegin/d
	/\/\$F2psEnd/d
	/\$F2psBegin/d
	/\/col-1/d
	s/col-1//g
	s,\$F2psDict /mtrx matrix put,/mtrx matrix def,
	s/\$F2psEnd/showpage/
	/%%EndProlog/a\
\
%%Page: 1 1
'