Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!ccut!wnoc-tyo-news!astecgw!astecnews!ss
From: ss@astec.co.jp (Sakashita Shiu)
Subject: Re: where is multipatch.ps
In-Reply-To: manabe@zephyrus.tutics.tut.ac.jp's message of 19 Nov 92 08:01:08 GMT
Message-ID: <SS.92Nov20104325@amont.astec.co.jp>
Sender: news@astec.co.jp (Usenet News System)
Nntp-Posting-Host: amont-b
Organization: ASTEC, Inc. Tokyo, Japan
References: <MANABE.92Nov19170313@zephyrus.tutics.tut.ac.jp>
Distribution: fj
Date: Fri, 20 Nov 1992 01:43:25 GMT
Lines: 50
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:1350
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=1350&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.

$B$-$C$H$?$/$5$s$N(Bfollow$B$,!#(B
>In article <MANABE.92Nov19170313@zephyrus.tutics.tut.ac.jp>
> manabe@zephyrus.tutics.tut.ac.jp (Takashi MANABE) writes:
>   $B@hDx!"#P#S$GJ#?t$N%Z!<%8$r#1%Z!<%8$K$^$H$a$F=PNO$9$k(B multi $B$H$$$&%U%#%k%?$r(B
>   TeX $B$N=PNO$K;H$*$&$H$7$?$N$G$9$,!"$&$^$/0u:~$5$l$^$;$s!#(B

$B0JA0$KF1$8<ALd$r$7$?$N$G!#(B
2$B%Z!<%8J,$r(B1$B%Z!<%8$K=P$9$@$1$G$h$$$J$i(B2up$B$H$$$&%W%m%0%i%`$,$"$j$^$9!#(B
$B$"$H$O!"$?$7$+IY;NDL$N?M$,:n$C$?(Bawk$B$G=q$$$?$d$D$b$"$C$?$J$!!#(B
$BC;$$$+$i!":F7G$7$F$*$-$^$9!#(B
==============================================================
#! /usr/bin/awk -f
{
        if ( $0 == "%%Feature: *Resolution 200" ) 
                print "%%Feature: *Resolution 300" 
        else if ( $0 == "200 START" ) {
                print "300 START"
                print "72 Resolution div dup neg scale -90 rotate"
                print "/Mtrxs 2 array def"
                print "/Ratio paperwidth widtharray 6 get div def"
                print "200 Ratio mul 280 Ratio mul translate Mtrxs 0 6 array cur
rentmatrix put"
                print "1800 Ratio mul 0  translate Mtrxs 1 6 array currentmatrix
 put"
                print "/MaxPage 2 def"
                print "/PageCount 0 def"
                print "/BP {"
                print "Mtrxs PageCount get setmatrix"
                print "/PageCount PageCount 1 add def"
                print "PageCount MaxPage eq {/PageCount 0 def} if"
                print "0 0 moveto /SaveImage save def"
                print "} def"
                print "/EP { PageCount 0 eq {showpage} if SaveImage restore } de
f"
                print "/END { PageCount 0 ne {showpage} if end } def"
                print "@landscape"
        } else if ( $0 == "@setspecial" )
                print "0.666 dup scale @setspecial"
        else if ( substr($0,0,6) != "%%Page" )
                print $0 
}
==============================================================

multi$B$,$&$^$/$$$+$J$$$N$O!"(Beps$B$r:.$<$?$H$-$G$9$h$M(B?
eps$B$,$J$1$l$P!"(Bmulti$B$G$b!"(Bmpage$B$G$bBg>fIW$J5$$,$7$^$9!#(B
-- 
-----------
ss@astec.co.jp/Sakashita SHIU
ASTEC,Inc./BR Ichigaya 6 Minami-cho Shinjuku-ku Tokyo 162 JAPAN
TEL 03-5261-5971/FAX 03-5261-5978
