% This is the file CJKvert.sty of the CJK package % for vertical typesetting. % % created by Werner Lemberg % % Version 4.6.0 (11-Aug-2005) \def\fileversion{4.6.0} \def\filedate{2005/08/11} \ProvidesPackage{CJKvert}[\filedate\space\fileversion] \RequirePackage{graphicx} % we suppress any unwanted spaces produced by linefeeds. \endlinechar \m@ne \newif\ifCJK@vertical@ \CJK@vertical@false \newcommand{\CJKvert}{ \CJK@vertical@true \gdef\CJK@direction{v} \renewcommand\baselinestretch{1.3} \normalfont} \newcommand{\CJKhorz}{ \CJK@vertical@false \gdef\CJK@direction{h} \renewcommand\baselinestretch{1} \normalfont} \CJKvert % we redefine \CJKsymbol so that pseudo bold characters will be shifted % vertically, not horizontally. % % for fonts without vertical representation forms, some glyphs shouldn't % be rotated; \CJKsymbolsimple can be then used for a redefinition in % the `.fdx' file. \newcommand{\CJKsymbolsimple}[1]{ \edef\CJK@temp{\csname \CJK@enc/\CJK@family/simpleoffset\endcsname} \expandafter\ifx\CJK@temp \relax \edef\CJK@temp{0pt} \fi \ifCJK@bold@ \raise \CJK@temp \hbox{\symbol{#1}} \raise \CJK@temp \hbox to \z@{\hss \raise\CJKboldshift\hbox{\symbol{#1}}} \raise \CJK@temp \hbox to \z@{\hss \raise-\CJKboldshift\hbox{\symbol{#1}}} \else \raise \CJK@temp \hbox{\symbol{#1}} \fi } \DeclareRobustCommand{\CJKsymbol}[1]{ \ifCJK@vertical@ \expandafter\ifx\csname \CJK@enc/\CJK@family/norotate/v\endcsname \relax \edef\CJK@tempa{\csname \CJK@enc/\CJK@family/offset/v\endcsname} \expandafter\ifx\CJK@tempa \relax \edef\CJK@tempa{0pt} \fi \edef\CJK@tempb{\csname \CJK@enc/\CJK@family/fullheight/v\endcsname} \expandafter\ifx\CJK@tempb \relax \def\CJK@temp{\rotatebox[x=\CJK@tempa]{90}{\symbol{#1}}} \else \edef\CJK@tempc{\csname \CJK@enc/\CJK@family/height/v\endcsname} \expandafter\ifx\CJK@tempc \relax \edef\CJK@tempc{0pt} \fi \setbox\@tempboxa\hbox{\symbol{#1}} \ht\@tempboxa \CJK@tempc \@tempdima\CJK@tempb \advance\@tempdima -\CJK@tempc \dp\@tempboxa \@tempdima \def\CJK@temp{ \rotatebox[x=\CJK@tempa]{90}{\copy\@tempboxa}} \fi \else \def\CJK@temp{\symbol{#1}} \fi \ifCJK@bold@ \CJK@temp \hbox to \z@ {\hss \raise\CJKboldshift\hbox{\CJK@temp}} \hbox to \z@ {\hss \raise-\CJKboldshift\hbox{\CJK@temp}} \else \CJK@temp \fi \else \ifCJK@bold@ \symbol{#1} \hbox to \CJKboldshift{\hss\symbol{#1}} \hbox to \CJKboldshift{\hss\symbol{#1}} \else \symbol{#1} \fi \fi} % reset endline character. \endlinechar `\^^M \endinput