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: Re: Oasobi TeX
Message-ID: <1995Feb13.065612.24431@kuamp.kyoto-u.ac.jp>
Sender: news@kuamp.kyoto-u.ac.jp (USENET News System)
X-Nsubject: CM$B%U%)%s%H$r2sE>$5$;$F$_$^$7$g$&!#(B
Organization: Div. of Applied Systems Science, Kyoto Univ., JAPAN
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <1995Feb8.083315.20488@kuamp.kyoto-u.ac.jp>
Date: Mon, 13 Feb 1995 06:56:12 GMT
Lines: 79
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5845
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5845&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$D$$$G$J$N$G!^#9#0EY$N2sE>$b$G$-$k$h$&$K$7$^$7$?!#(B

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

$B!t#9#02sE>$O;H$$$?$+$C$??M$,B?$$$N$G$O!)(B

%
%
%F R B O X . S T Yby T.Imamura <imamura@kuamp.kyoto-u.ac.jp>
%
%Version 1.1, Feb 13 1995.
%Version1.0, Feb  7 1995.
%
%
%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
%    : + ... +90 deg rotate(clock wise)
%    : - ... -90 deg rotate(clock wise)
%    other option will be ignored.
\newbox\@frboxbox
\newdimen\@frboxdima
\newdimen\@frboxdimb
%
\def\@froptanalys#1{%
  \def\@frboxopt{#1}\global\def\@frboxmode{1}%
  \if\@frboxopt v\global\def\@frboxmode{1}\fi%
  \if\@frboxopt h\global\def\@frboxmode{1}\fi%
  \if\@frboxopt r\global\def\@frboxmode{1}\fi%
  \if\@frboxopt +\global\def\@frboxmode{2}\fi%
  \if\@frboxopt -\global\def\@frboxmode{2}\fi%
}
\def\frbox{\@ifnextchar[{\@frbox}{\@frbox[r]}}
\def\@frbox[#1]#2{%
  \def\@frboxopt{#1}\@froptanalys{#1}%
  \setbox\@frboxbox\hbox{\strut#2}%
  \if\@frboxmode1%
    \@frboxdima.5\ht\@frboxbox\advance\@frboxdima-.5\dp\@frboxbox%
    \@frboxdimb.5\wd\@frboxbox%
    \kern\@frboxdimb\raise\@frboxdima\hbox to\@frboxdimb{%
    \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}%
  \else%rotate plus minus 90 degree
    \@frboxdima.5\ht\@frboxbox\advance\@frboxdima.5\dp\@frboxbox%
    \@frboxdimb.5\wd\@frboxbox\advance\@frboxdimb-\dp\@frboxbox%
    \kern\@frboxdima\raise\@frboxdimb\hbox to\@frboxdima{%
    \advance\@frboxdimb\@frboxdima\vrule height\@frboxdimb width\z@%
    \special{ps: currentpoint gsave currentpoint}%
    \if\@frboxopt +%90 deg rotate
      \special{ps: add currentpoint exch sub translate 90 rotate}\fi%
    \if\@frboxopt -%-90 deg rotate
      \special{ps: sub currentpoint add translate -90 rotate}\fi%
    \makebox(0,0){\usebox\@frboxbox}%
    \special{ps: grestore moveto}\hss}%
  \fi%
}
%
\endinput
