zr-tex8r

%!PS-Adobe-3.0 Resource-CMap
%%DocumentNeededResources: ProcSet (CIDInit)
%%IncludeResource: ProcSet (CIDInit)
%%BeginResource: CMap (UniSourceHanSansJP-UTF16-H)
%%Title: (UniSourceHanSansJP-UTF16-H Adobe Identity 0)
%%Version: 1.000
%%Copyright: -----------------------------------------------------------
%%Copyright: Copyright 1990-2014 Adobe Systems Incorporated.
%%Copyright: All rights reserved.
%%Copyright:

zr-tex8r

\documentclass[a4paper,CJK]{bxjsarticle}
\usepackage[whole,autotilde]{bxcjkjatype}
\newcommand*\Pkg[1]{\textsf{#1}}
\newcommand*\Env[1]{\texttt{#1}}
\newcommand*\Opt[1]{\texttt{#1}}
\begin{document}
%---------------------------------------
\title{CJK~パッケージで今度こそ日本語する件}
\author{某~ZR}
\date{2013~年~8~月~2~日}

zr-tex8r

\documentclass[a4paper]{jsarticle}
\newcount\xxCntA
\newcount\xxCntB
\newcount\xxCntC
%% 例のMJDなアレ
\def\calcJulian#1#2#3#4{%
  \xxCntA=#2\relax \xxCntB=#3\relax
  \ifnum\xxCntA<1 \xxCntA=1 \fi
  \ifnum\xxCntB<1 \xxCntB=1 \fi
  \ifnum\xxCntB<3 \advance\xxCntB12 \advance\xxCntA-1 \fi

zr-tex8r

% pxtatescale.sty
\NeedsTeXFormat{pLaTeX2e}
\ProvidesPackage{pxtatescale}[2013/03/25 v0.2]
\def\pxqtg@pkgname{pxtatescale}
\@ifpackageloaded{graphics}{}{%else
  \PackageError\pxqtg@pkgname{Package 'graphics' not loaded}\@ehc}
\begingroup
\def\pxqtg@try@patch#1#2#3{%
  \def\pxqtg@temp{#2}\ifx#1\pxqtg@temp
    \gdef#1{#3}%

zr-tex8r

% pxpgfmark.sty
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{pxpgfmark}[2013/02/18 v0.1]
\@ifpackageloaded{pgfcore}{}{%else
  \PackageError{pxpgfmark}{Package 'pgfcore' must be loaded}\@ehc}
\def\pxqmk@tempa{pgfsys-dvipdfmx.def}
\ifx\pgfsysdriver\pxqmk@tempa
  \@tempswatrue
  \ifx\pdfsavepos\@undefined \@tempswafalse \fi
  \ifx\pdflastxpos\@undefined \@tempswafalse \fi

zr-tex8r

% This is a modified version of tascmac.sty, provided as part of
% the pTeX distribution originally authored by ASCII MEDIA WORKS Inc.
% The information of the original file is given below:
%---------------------------------------
% "tascmac" document style option for tate gumi.
%
% Copyright (C) by 1993, ASCII Corporation & Impress Corporation.
%
% 2006/07/14 (ST): itembox, screen environment bug fix.
% 2002/04/01 (KN): ASCII logo macros

zr-tex8r

\documentclass[a4paper]{article}
\usepackage{fontspec}
\begin{document}
\newfontfamily\vhiraginoA[Vertical=RotatedGlyphs]{ヒラギノ明朝 Pro W3}
\newfontfamily\vhiraginoB[Script=CJK,Vertical=RotatedGlyphs]{ヒラギノ明朝 Pro W3}
\rotatebox{-90}{\vhiraginoA 漢字alpha漢字}
\rotatebox{-90}{\vhiraginoB 漢字alpha漢字}
\end{document}

zr-tex8r

\documentclass{jarticle}

\makeatletter

% registers are ALWAYS allocated globally (darn!)
\newcount\@fuck@i
\newcount\@fuck@ii

\def\tuple#1{%
	\begingroup

zr-tex8r

\documentclass[a4paper,twocolumn]{article}
\begin{document}

\begin{itemize}
\item Lorem ipsum dolor sit amet, consectetur adipisicing elit,
sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
\item \verb|\paperwidth| = \the\paperwidth.
\item \verb|\textwidth| = \the\textwidth.
\item \verb|\columnwidth| = \the\columnwidth.
\item \rule[.5ex]{\columnwidth}{.8pt}

zr-tex8r

% 敢えて ToL 文書
\documentclass[a4paper]{jsarticle}
\begin{document}

\makeatletter %!!!!!!!!!!!!!!!!!!!!!!!!!

% 例のアレ
\def\favor#1#2{%
  \def\xx@person{#1}%
  \def\xx@item{#2}%