Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!wnoc-kyo-news!kuis-news!kuamp!imamura
From: imamura@kuamp.kyoto-u.ac.jp (Toshiyuki Imamura)
Subject: Oasobi TeX
Message-ID: <1995Feb8.083315.20488@kuamp.kyoto-u.ac.jp>
Sender: news@kuamp.kyoto-u.ac.jp (USENET News System)
Organization: Div. of Applied Systems Science, Kyoto Univ., JAPAN
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
Date: Wed, 8 Feb 1995 08:33:15 GMT
Lines: 46
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5817
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5817&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:#B<!w5~Bg$G$9!#(B

CM$B%U%)%s%H$r%U%j%C%W$7$?$j(B180$BEY2sE>$5$;$k$?$a$N%9%?%$%k%U%!%$%k$r:n$j$^$7$?!#(B
dvi2ps$B$^$?$O(Bjdvi2kps$B$N5!G=$r;H$$$^$9!#(Bdviprt$B$G$O$*$=$i$/$G$-$^$;$s!#(B

$B!t(BTeX$BJ8;z$r$G%U%j%C%W$9$k$3$H$O$J$$$H;W$$$^$9$,!#!#!#(B

%
%
%F R B O X . S T Yby T.imamura, Feb 7 1995.
%<E-mail : imamura@kuamp.kyoto-u.ac.jp>
%
%
%For Flip-and-Rotate box LaTeX style
%This style depend on DVI->PS driver!
%Now it supports dvi2ps and jdvi2kps. (maybe dvips.)
%
%[Usage]\frbox{strings}
%    : 180 deg rotate (same as frbox[r])
%\frbox[opt]{strings}
%opt : v ... vertically flip
%    : h ... horizontally flip
%    : r ... 180 deg rotate
%    other option will be ignored.
\newbox\@frboxbox
\newdimen\@frboxdim
%
\def\frbox{\@ifnextchar[{\@frbox}{\@frbox[r]}}
\def\@frbox[#1]#2{%
  \def\@frboxopt{#1}%
  \setbox\@frboxbox\hbox{\strut#2}%
  \@frboxdim\ht\@frboxbox\advance\@frboxdim-\dp\@frboxbox%
  \kern.5\wd\@frboxbox\raise.5\@frboxdim\hbox to.5\wd\@frboxbox{%
  \special{ps: currentpoint gsave}%
  \if\@frboxopt v%vertically filip
    \special{ps: 0 currentpoint exch pop 2 mul translate 1 -1 scale}\fi%
  \if\@frboxopt h%holizontally filip
    \special{ps: currentpoint pop 2 mul 0 translate -1 1 scale}\fi%
  \if\@frboxopt r%180 deg rotate
    \special{ps: currentpoint 2 mul exch 2 mul exch translate 180 rotate}\fi%
  %else are ignored and printed as normal image.
  \makebox(0,0){\usebox\@frboxbox}%
  \special{ps: grestore moveto}\hss}%
}
%
\endinput
