<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\iffalse
Copyright 2022 Jiro Senju

This package is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
any later version.

This package is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this package.  If not, see &lt;http://www.gnu.org/licenses/&gt;.
\fi

%\RequirePackage{plautopatch}
% \documentclass[
%   draft,
%   jlreq_notes,open_bracket_pos=nibu_tentsuki
% ]{jlreq}
% jlreq and nameref don't co-work
% \makeatletter
% \show\section
% \show\jlreq@headingcs@section
% \patchcmd{\section}
%          {\@afterindenttrue}{\@afterindenttrue\def\@currentlabelname{#1}}
%          {}{\errmessage{patching section}}
% \makeatother
\documentclass[
  draft
]{jsarticle}
\advance\evensidemargin 2zw
\advance\oddsidemargin 2zw
\advance\textwidth -2zw

\usepackage{doc}
\makeatletter
% borrowd from ltxdoc.
\def\cmd#1{\cs{\expandafter\cmd@to@cs\string#1}}
\def\cmd@to@cs#1#2{\char\number`#2\relax}
\makeatother
\DeclareRobustCommand\cs[1]{\texttt{\char`\\#1}}
\providecommand\marg[1]{%
  {\ttfamily\char`\{}\meta{#1}{\ttfamily\char`\}}}
\providecommand\oarg[1]{%
  {\ttfamily[}\meta{#1}{\ttfamily]}}

\input{../fonts}

\usepackage[dvipdfmx,final]{graphicx}
\usepackage[final]{listings}
\usepackage{jlisting}
\lstset{basicstyle=\small\ttfamily\mcfamily,
  language=TeX,
  columns=[c]flexible,
  tabsize=4,
  %frame=tb,
  keepspaces=true,
  lineskip=-.1em,
  belowskip=\smallskipamount}
\usepackage{multicol}
\usepackage{needspace}
%
% hyperref should come last
\usepackage[dvipdfmx,final,pdfusetitle]{hyperref}
\usepackage{pxjahyper}
% CJKbookmarks=true
% bookmarksdepth=section
% pdffitwindow=true
% pdfpagetransition=Dissolve
% pdfstartview=FitB
\hypersetup{
  hyperfootnotes=false,
  colorlinks=true,
  linkcolor=blue,
  % anchorcolor=black,
  % citecolor=black,
  % urlcolor=black,
  bookmarks=true,
  bookmarksnumbered=true,
  setpagesize=false,
  %pdftitle={},
  %pdfauthor={},
  pdfpagelayout=SinglePage,
  pdfpagemode=UseOutlines,
  pdfstartview=FitH
}

\usepackage{familytree}

\makeatletter
\def\meta@font@select{\slshape}
\def\fps@table{htbp}
\makeatother

%\xspcode`\\=3% it doesn't help

\renewcommand{\contentsname}{目次}
\renewcommand{\tablename}{表}
\newcommand{\parag}[1]{%
  \allowbreak%
  \paragraph{#1}\nopagebreak\hskip0pt\nopagebreak%
  \medskip%
}
\newcounter{CS}[section]
\newcommand{\CS}{%
  \ifnum\theCS=0%
    control sequence%
    \stepcounter{CS}%
  \else%
    CS%
  \fi%
}
\newcommand{\srcfig}[2][]{%
  {%
    \noautoxspacing%
    %\inhibitxspcode`）=2% is not helpful
    \lstinputlisting{\Dir/#2print}%
    \nopagebreak[4]%
  }%
  \nopagebreak[4]%
  \hfil\includegraphics[#1]{\Dir/#2.pdf}%
}
\newcommand{\jslash}{~\slash{} \allowbreak}
\newcommand{\IhadtoSplit}{%
  長い処理を分割し連続実行しているだけの、決して綺麗ではない構造。%
  global変数を多用しており、よろしくない。%
  だが、処理が長いと読みにくいため分割した。%
}
\newcommand{\FamilyTree}{家系図}
\newcommand{\Patrilineal}{父系}
\newcommand{\Matrilineal}{母系}
\newcommand{\MaleLine}{男系}
\newcommand{\FemaleLine}{女系}
\newcommand{\InheritanceDiagram}{相続関係説明図}
\let\tableautorefname=\tablename%
\renewcommand{\subsectionautorefname}{}
\newcommand{\refnm}[1]{%
  \autoref{#1}「\nameref{#1}」%
}

\begin{document}
\MakeShortVerb{\|}
\GetFileInfo{familytree.sty}
\title{{\spaceskip=1ex\textsf{familytree} package \fileversion}}
\author{千住治郎\\\texttt{\small jiro1010senju AT gmail DOT com}}
\date{\filedate}
\maketitle

\FamilyTree

各人をboxとして定義し、各々を関係線でつなぐ。
人物に情報を付加すれば\InheritanceDiagram としても使えるだろう。

\begin{itemize}
\item 父系\jslash 母系に対応
\item 縦書きに対応（|jlreq.cls|のみ確認）
\end{itemize}
\bigskip

（本文書は英語版|dtx|から説明部分を抜き出したものである）
\bigskip

\setcounter{tocdepth}{4}
\columnseprule=\arrayrulewidth
\begin{multicols}{2}
\tableofcontents
\end{multicols}
\bigskip

\setcounter{secnumdepth}{0}
\section{はじめに}

\FamilyTree はたまに眺めると興味深い。
歴史からの影響もあると思うが、西洋では自分から始め両親のみを辿り、これを
繰り返す形式が多いそうだ。2のべき乗で人物が増えて行くので見た
目のバランスは採れている。
国内では始祖から始める\Patrilineal 図
（\MaleLine 図）
が多いように思う。\Patrilineal のみを辿れば、図は比較的単純になるが、
興味深さは半減する。
兄弟姉妹関係のみならず婚姻関係も含めると、興味を大いにそそられる図にな
るが、複雑さは飛躍的に増大する。

Graphviz (|dot(1)|)を使っても図は描けるが、見やすくするのは難しい。
また、|dot(1)|は国内で用いられる直線的な家系図には不向きではないかと思う。
複雑な\FamilyTree でも間単に描けないかと試作したのが本パッケージである。
著者のLatexの経験はそれほど多くないが、
本パッケージが家系図を俯瞰する場合の一助になれば幸いである。
コメントや改善提案等も大歓迎である。

\subsection{実装について}

基本的に全ての\CS 名にはprefix |ft|を付加している。
しかし、利便性や視認性が犠牲になるため、
prefixを除いたalias/synonymも|\let|で定義する。
当然ながらalias名が未使用な場合に限る。

\CS 名が既定義でaliasを定義できなかった場合は、
その旨|\message|する。
本文書でもprefixを省いたalias名を優先的に使用はするが、
一部の\CS 名はprefix付きの名前を使用する。
\smallskip

|dtx|は複数に分割してあるが、
生成される|sty|は一つである。
本文書では|ft-lib.dtx|を最後に載せるが|sty|内では冒頭に位置する。

|dtx|には行番号を付加する機能があるが、あえて潰してある。
複数ある|dtx|の順序を変更してあるためだ。
それぞれの|dtx|の冒頭でカウンタに値を入れ直してやれば、それらしい行
番号は出力できるが、正確な値を拾い出すのは無理があるため止めた。
|ins|から|sty|を生成した際の|log|に行数が残されるが、あてにならない
数字だった。
\smallskip

|xparse|を使用しているためoption引数は先頭に限らない。引数を囲む括弧は
適宜使い分ける必要がある。
\bigskip

当初は全て|\hbox|、|\vbox|、もしくは|tabular|で処理できると思っていた
が、その後の線をつなげる段階で困った。
glue等により
|platex|が位置を調整してくれるので接続点が移動してしまい、
汎用的\jslash 普遍的に線をつなげられないのだ。
TikZ等では座標定義や座標間線分描画みたいなこともできるのだろうか。
分からない。
線をつなげるためには|picture|を選択せざ
るを得なかった。線を描くためと言うよりも、描いた線をつなげるための
layout目的だ。

depthの扱いにも困った、と言うか私には知識、経験が足りなかった。
本パッケージではboxを複数作成し、|picture|により配置するが、ここで
depthを意識する必要があった。

縦書き対応でもdepthは重要だった。横書きではfontが持つ、英字と同様の
depthだが、縦書きでは和字の幅半分がdepthになる。
この辺は単に私が知らなかったと言えばそれまでなのだが、
ずいぶん手間がかかった。

\subsection{構造}

図を構成する要素毎にboxとして定義し、
それらを連結する。
人物間を線でつなぐ場合に備え、
box定義時に接続点の座標を別途定義しておく。

図の構成要素には次のものがある。

\begin{enumerate}
\needspace{2\baselineskip}
\item 人物box
  \begin{itemize}
  \item 実子、養子等を表すchild mark
  \item 肩書き
  \item 人物名
  \item \Patrilineal 図\jslash\Matrilineal 図に用いるmaleline\slash femaleline
  \item 付加情報\par
    生没年、別名など
  \end{itemize}

\item 兄弟姉妹box
  \begin{itemize}
  \item それぞれのchild markをつなぐ実線
  \item 人物名の間に間隔を設けるためのinterval box
  \end{itemize}

\item 婚姻box
  \begin{itemize}
  \item 二者をつなぐmarriage line（二重線）
  \end{itemize}

\item 親子または二世代box
\end{enumerate}
\bigskip

以下、要素毎に説明する。

\setcounter{secnumdepth}{4}
\include{ft-individual-ja}
\include{ft-sibling-ja}
\include{ft-gens-ja}
\include{ft-marriage-ja}
\include{ft-lib-ja}
\end{document}
</pre></body></html>