home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / fj / comp / texhax / 1207 < prev    next >
Encoding:
Text File  |  1992-11-19  |  2.7 KB  |  65 lines
  1. Newsgroups: fj.comp.texhax
  2. Path: sparky!uunet!ccut!wnoc-tyo-news!astecgw!astecnews!ss
  3. From: ss@astec.co.jp (Sakashita Shiu)
  4. Subject: Re: where is multipatch.ps
  5. In-Reply-To: manabe@zephyrus.tutics.tut.ac.jp's message of 19 Nov 92 08:01:08 GMT
  6. Message-ID: <SS.92Nov20104325@amont.astec.co.jp>
  7. Sender: news@astec.co.jp (Usenet News System)
  8. Nntp-Posting-Host: amont-b
  9. Organization: ASTEC, Inc. Tokyo, Japan
  10. References: <MANABE.92Nov19170313@zephyrus.tutics.tut.ac.jp>
  11. Distribution: fj
  12. Date: Fri, 20 Nov 1992 01:43:25 GMT
  13. Lines: 50
  14.  
  15. $B$-$C$H$?$/$5$s$N(Bfollow$B$,!#(B
  16. >In article <MANABE.92Nov19170313@zephyrus.tutics.tut.ac.jp>
  17. >     manabe@zephyrus.tutics.tut.ac.jp (Takashi MANABE) writes:
  18. >   $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
  19. >   TeX $B$N=PNO$K;H$*$&$H$7$?$N$G$9$,!"$&$^$/0u:~$5$l$^$;$s!#(B
  20.  
  21. $B0JA0$KF1$8<ALd$r$7$?$N$G!#(B
  22. 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
  23. $B$"$H$O!"$?$7$+IY;NDL$N?M$,:n$C$?(Bawk$B$G=q$$$?$d$D$b$"$C$?$J$!!#(B
  24. $BC;$$$+$i!":F7G$7$F$*$-$^$9!#(B
  25. ==============================================================
  26. #! /usr/bin/awk -f
  27. {
  28.         if ( $0 == "%%Feature: *Resolution 200" ) 
  29.                 print "%%Feature: *Resolution 300" 
  30.         else if ( $0 == "200 START" ) {
  31.                 print "300 START"
  32.                 print "72 Resolution div dup neg scale -90 rotate"
  33.                 print "/Mtrxs 2 array def"
  34.                 print "/Ratio paperwidth widtharray 6 get div def"
  35.                 print "200 Ratio mul 280 Ratio mul translate Mtrxs 0 6 array cur
  36. rentmatrix put"
  37.                 print "1800 Ratio mul 0  translate Mtrxs 1 6 array currentmatrix
  38.  put"
  39.                 print "/MaxPage 2 def"
  40.                 print "/PageCount 0 def"
  41.                 print "/BP {"
  42.                 print "Mtrxs PageCount get setmatrix"
  43.                 print "/PageCount PageCount 1 add def"
  44.                 print "PageCount MaxPage eq {/PageCount 0 def} if"
  45.                 print "0 0 moveto /SaveImage save def"
  46.                 print "} def"
  47.                 print "/EP { PageCount 0 eq {showpage} if SaveImage restore } de
  48. f"
  49.                 print "/END { PageCount 0 ne {showpage} if end } def"
  50.                 print "@landscape"
  51.         } else if ( $0 == "@setspecial" )
  52.                 print "0.666 dup scale @setspecial"
  53.         else if ( substr($0,0,6) != "%%Page" )
  54.                 print $0 
  55. }
  56. ==============================================================
  57.  
  58. multi$B$,$&$^$/$$$+$J$$$N$O!"(Beps$B$r:.$<$?$H$-$G$9$h$M(B?
  59. eps$B$,$J$1$l$P!"(Bmulti$B$G$b!"(Bmpage$B$G$bBg>fIW$J5$$,$7$^$9!#(B
  60. -- 
  61. -----------
  62. ss@astec.co.jp/Sakashita SHIU
  63. ASTEC,Inc./BR Ichigaya 6 Minami-cho Shinjuku-ku Tokyo 162 JAPAN
  64. TEL 03-5261-5971/FAX 03-5261-5978
  65.