Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!infoweb-news!news.tokyo.infoweb.or.jp!fgwnews!fdmnews!celica.fqs.fujitsu.co.jp!enterprise.se.fujitsu.co.jp!ganz!tdm!se-news!area.fujitsu.co.jp!sutra!usenet
From: yamanaka@flab.fujitsu.co.jp (Hideki Yamanaka)
Subject: Re: [Q]:Inserting PS file in plain TeX
In-Reply-To: i0007@paris.ifs.tohoku.ac.jp's message of 25 May 1996 07:47:59 GMT
Message-ID: <ueybmbzw0o.fsf@dipa.syslab.iias.flab.fujitsu.co.jp>
Lines: 59
Sender: yamanaka@dipa.syslab.iias.flab.fujitsu.co.jp
Nntp-Posting-Host: dipa.syslab.iias.flab.fujitsu.co.jp
Organization: FUJITSU LABORATORIES LTD, ISIS, JAPAN.
X-Newsreader: Gnus v5.0.12
References: <4o6dvf$inq@akiu.gw.tohoku.ac.jp>
Date: Wed, 29 May 1996 09:08:55 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:7972
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=7972&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

"Ishimoto" == Jun Ishimoto <i0007@paris.ifs.tohoku.ac.jp> writes:
In article <4o6dvf$inq@akiu.gw.tohoku.ac.jp> i0007@paris.ifs.tohoku.ac.jp (Jun Ishimoto) writes:

Ishimoto> $B!!(BLaTex$B$N>l9g!$(Bepsbox.sty$BEy$rMQ$$$FJ8>OCf$K(BPS file$B$rD%$jIU$1$k$3$H(B
Ishimoto> $B!!$,2DG=$G$9$,(B
Ishimoto> $B!$(Bplain TeX$B$GJ8>OCf$K(BPS file$B$rD%$jIU$1$k$3$H$O2DG=$J$N$G$7$g$&$+!%(B
Ishimoto> $B!!$b$72DG=$G$7$?$i$d$jJ}$r65$($F2<$5$$!%(B

epsbox.sty$B$N;H$($k4D6-$J$i!$2<$N$h$&$K(B\special $B%3%^%s%I$r=q$/$@$1$G$9!%(B

$$
\vbox{
\vbox to ???bp{
  \hbox to ???bp{\special{epsfile=???.eps hscale=??? vscale=???}
  \hfill}
\vfill}
\smallskip
  \hbox to ???bp{\hss $B?^(B ???. ???\hss}
}
$$

epsbox.sty$B$N$h$&$K%\%C%/%9$NBg$-$5$r7W;;$9$k%^%/%m$r=q$1$P!$%3%^%s%I0l$D(B
$B$K$J$j$^$9$,!$;d$OLLE]$J$N$G!$(Bawk script$B$G(BEPS$B%U%!%$%k$+$i(BTeX$B%3%^%s%I(B
$B$r:n$C$F$$$^$9!%!JE:IU$N%3%^%s%I$G$9!K(B


$B;3Cf!wIY;NDL8&(B

-----
#! /bin/sh
# $Id: epsbox,v 1.4 1992/11/18 07:34:00 yamanaka Exp $
#
# Epsbox generates TeX commands to include encapsulated PostScript files
# with a scaling factor for "dvi2ps (j-version)".
#
# written by H Yamanaka.
#

export PATH; PATH=/bin:/usr/bin:/usr/local/bin:/opt/GNU/bin
AWK=gawk
scale=1.0

case $1 in 
  -s) scale=$2;shift;shift;;
  -h) echo "Usage: epsbox [-s factor] file1 file2 ..."; exit;;
esac
for i in $* ; do
if [ -r $i ]; then
  $AWK '
  /^%%BoundingBox:/ { print "\\vbox to " ($5-$3)*scale "bp{\n  \\hbox to " \
 ($4-$2)*scale "bp{\\special{epsfile=" FILENAME " hscale=" scale \
 " vscale=" scale "}\n  \\hfill}\n\\vfill}"  ; exit}
  ' scale=$scale $i
else
  echo "$i not read"
fi
done
exit 0
---
