%%
%% This is file `schematest.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% schemata.dtx  (with options: `examples')
%% 
%% This is a generated file.
%% 
%% Copyright (C) 2020 by Charles P. Schaum <charles[dot]schaum@comcast.net>
%% 
%% This file may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.3 of this license
%% or (at your option) any later version.  The latest version of this
%% license is in:
%% 
%%    http://www.latex-project.org/lppl.txt
%% 
%% and version 1.3 or later is part of all distributions of LaTeX version
%% 2005/12/01 or later.
%% 
\def\nameofplain{plain}
\def\nameofeplain{eplain}
\def\nameoflatex{LaTeX2e}
\def\nameoflollipop{Lollipop}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% See README.md for compiling this document.
%
\ifx\fmtname\nameoflatex
  \documentclass[10pt]{article}
  \expandafter\ifx \csname Umathchar\endcsname\relax
    \usepackage[T1]{fontenc}
    \usepackage[polutonikogreek,american]{babel}
  \else
    \usepackage{fontspec}
    \usepackage{polyglossia}
    \setdefaultlanguage{american}
    \setotherlanguage[variant=ancient]{greek}
    \newfontfamily\greekfont{GFSDidot.otf}
  \fi
%
% Using the default option is a secondary test for mode detection.
%
  \usepackage[braces]{schemata}[2020/12/02]
  \begin{document}
\else
  \ifx\fmtname\nameoflollipop
    \input schemata.sty
    \font\scshape=cmcsc10
    \def\textsc#1{\bgroup\scshape #1\egroup}
    \Start
  \else
    \input schemata.sty
    \font\scshape=cmcsc10
    \def\textsc#1{\bgroup\scshape #1\egroup}
  \fi
\fi
%
% Handle various ways of dealing with Greek.
%
\def\gk#1#2#3{%
% Only show Greek text when using LaTeX2e
  \ifx\fmtname\nameoflatex
    \expandafter\ifx \csname Umathchar\endcsname\relax
% pdflatex / latex
      \foreignlanguage{polutonikogreek}{#2}%
    \else
% xelatex / lualatex
      \textgreek{#1}%
    \fi
% All other formats
  \else
% Show transliterated equivalents for Greek
    \bgroup\it #3\egroup%
  \fi
}

Format: \fmtname\par
Test value: \schemataLaTeX\par
\catcode`@=11\relax
Internal test value: \@schemata@LaTeX\par
\catcode`@=12\relax\par

Due to restrictions for dealing with so many formats,\par
Greek character text will appear with:\par
\ \kern 1em pdflatex / latex (babel)\par
\ \kern 1em xelatex / lualatex (polyglossia)\par
All other formats will have transliterated text instead of Greek.\par
\vfil
$$
\Schema{-1ex}{8.7ex}
{
  \schemabox{Subjectum theo-\\
  logi\ae{} est Notitia\\
  Dei. Considerat\\
  ergo, Dei, vel}
}
{
\schema
  {
    \schemabox{\textsc{Essentiam},}
  }
  {
    \schemabox{Unitate natur\ae{}.\\
    Trinitate personarum.\\
    Operibus ad intra.}
  }\smallskip
  \schema
  {
    \schemabox{\textsc{Voluntatem},\\
    manifestatam in\\
    operibus ad extra;\\
    ut in}
  }
  {
    \schemabox{Creatione.\\
    Sustentatione natur\ae{} %
    laps\ae{}.\\
    Reparatione.\\
    Conversione.\\
    Justificatione.\\
    Sanctificatione \&\\
    Glorificatione ejusdem.}
  }
}
$$
\vfil
\eject

\hbox{\ }
\vfil
$$
\Schema{-25ex}{20.6ex}
{
  \schemabox{Subjectum \&\\
  summa univer-\\
  s\ae{} Scriptur\ae{},\\
  est \textsc{Cognitio}\\
  vel}
}
{
  \Schema{-6.4ex}{8.5ex}
  {
    \schemabox{\textsc{Dei}, qua-\\lis sit, aut}
  }
  {
    \schema
    {\schemabox{\textsc{Per se}:\\ scilicet.}}
    {
      \schemabox{Unus in essentia.}\smallskip
      \schemabox{Trinus in personis.}
    }\smallskip
    \schema
    {\schemabox{Ad hominem\\ quem vel}}
    {
      \schemabox{Accusat \& terret, \textsc{Per Legem},\\
      Consolatur \& erigit, \textsc{Per Evangelium}.\\
      Salvat, \textsc{Per Christum}.\\
      Renovat, \textsc{Per Spiritum Sanctum}.\\
      Sanctificat, \textsc{Per Verbum} \& \textsc{Sacramenta}.\\
      Castigat, tentat \& exercet, \textsc{Per Crucem}.\\
      Glorificat \textsc{Per Resurrectionem Carnis}\\
      \textsc{\quad Ad Vitam \AE{}ternam}.}
    }\medskip
  }
  \Schema{-13.4ex}{17.4ex}
  {
    \schemabox{\textsc{Hominis},\\ qualis sit}
  }
  {
    \Schema{-4.4ex}{5ex}
    {\schemabox{\textsc{Per se}:}}
    {
      \schemabox{Ante lapsum.}\smallskip
      \schema
      {\schemabox{Post lapsum:}}
      {
        \schemabox{Ante Regenerationem \&\\
        Renovationem S. Sancti.}\medskip
        \schemabox{Post Regenerationem \&\\
        Renovationem S. Sancti.}\smallskip
      }\smallskip
    }
    \Schema{4.2ex}{14.4ex}
    {\schemabox{Ad}}
    {
      \schema
      {\schemabox{\textsc{Deum},}}
      {
        \schemabox{P\oe{}nitentia agens, agnitis peccatis \&\\
        ira Dei cognita \textsc{Ex Lege}.\\
        Erigens se \textsc{Voce Evangelii}.\\
        Credens \textsc{In Christum Salvatorem}.\\
        Non repugnans \textsc{Spiritui Sancto} impellenti.\\
        Audiens \textsc{Verbum}: \& utens \textsc{Sacramentis}.\\
        Patienter \& constanter sufferens \textsc{Crucem}.\\
        Sperans \& expectans glorificationem\\
        \textsc{\quad In Resurrectione Carnis}\\
        \textsc{\quad Ad Vitam \AE{}ternam}.}
      }\smallskip
      \schema
        {\schemabox{seipsum ratione}}
        {\schemabox{Anim\ae{}\\ vel\\ Corporis}}\smallskip
      \Schema{2ex}{5.1ex}
      {\schemabox{Proximum,}}
      {
        \schema
        {\schemabox{Amicum ra-\\ tione vel}}
        {
          \schemabox{Religionis.\\
          Politic\ae{} \& \OE{}conomic\ae{}.\\
          Cognationis.\\
          Agnationis.}
        }\smallskip
        \schemabox{Inimicum.}
      }
    }
  }
}
$$
\vfil
\eject

\bgroup
{\tt\char`\\ DoParens}\DoParens
\hbox{\ }
\vfil
$$
\Schema{-26ex}{21.5ex}
{
  \schemabox{Sacr\ae{}\\ litter\ae{}\\ loquuntur,\\ de}
}
{
  \schema
  {
    \schemabox{\textsc{Deo}}
  }
  {
    \schemabox{Uno, in Trinitate.}\smallskip\schemabox{Trino, in unitate.}
  }
  \Schema{-16.5ex}{23.4ex}
  {
    \vskip30ex
    \schemabox{\textsc{Dei}\\ \textsc{Operibus}}
  }
  {
    \schema
    {
      \schemabox{\textsc{Intra},\\ qu\ae{} sunt\\ divisa, ut}
    }
    {
      \schemabox{\textsc{Patris}, ab \ae{}terno gignere.\\ \textsc{Filii}, ab \ae{}terno genitum esse.\\ \textsc{Spiritus Sancti}, ab utroque\\ ab \ae{}terno procedete.}
    }
    \medskip
    \Schema{-2ex}{21ex}
    {
      \schemabox{\textsc{Extra},\\ qu\ae{} sunt\\ indivisa;\\ tervata\\ tamen\\ cujusque\\ person\ae{}\\ divinitatis\\ sua pro-\\prietate}
    }
    {
      \Schema{-0.8ex}{6.4ex}
      {
        \schemabox{Creatione\\ natur\ae{}}
      }
      {
        \schema
        {
          \schemabox{Brute ut}
        }
        {
          \schemabox{C\oe{}li} \smallskip \schemabox{Elementorum} \smallskip \schemabox{Mundi}
        }
        \smallskip
        \schema
        {
          \schemabox{\gk{^^ce^^bb^^ce^^bf^^ce^^b3^^ce^^b9^^ce^^ba^^e1^^bf^^86^^cf^^82}{logik~hs}{logik\=es}, ut}
        }
        {
          \schemabox{Angelorum.} \smallskip \schemabox{Hominum: Ad\ae{},\\ Ev\ae{} \& procreatorum\\ exipsis.}
        }
      }
      \schema
      {
        \schemabox{Sustenatione\\ natur\ae{} laps\ae{},}
      }
      {
        \schemabox{Angelorum malorum,} \smallskip \schemabox{Hominum: Ad\ae{}, Ev\ae{}\\ \& procreatorum exipsis.}
      }
      \Schema{2.6ex}{8.8ex}
      {
        \schemabox{Beneficiis\\ erga Ecc-\\ lesiam: ea\\ versantur\\ aut circa}
      }
      {
        \Schema{2.2ex}{7ex}
        {
          \schemabox{Res, ut}
        }
        {
          \schema
          {
            \schemabox{Verbum}
          }
          {
            \schemabox{Legis} \smallskip \schemabox{Evangelii} \smallskip \schemabox{Sacramentorum}
          }
          \smallskip
          \schema
          {
            \schemabox{Signa vel Veteris\\ vel Novi Testa-\\ mentum ut sunt:}
          }
          {
            \schemabox{Ceremoni\ae{}} \smallskip \schemabox{Miracula}
          }
        }
        \smallskip
        \Schema{1ex}{5ex}
        {
          \schemabox{Personas}
        }
        {
          \schema
          {
            \schemabox{Ecclesi\ae{}}
          }
          {
            \schemabox{Universalis} \smallskip \schemabox{Particularis}
          }
          \smallskip
          \schemabox{Politi\ae, ut Magistratuum}
          \smallskip
          \schemabox{\OE{}conomi\ae, ut privatorum}
        }
      }\vskip2ex
    }
  }
}
$$
\vfil
\eject

{\tt\char`\\ DoGroups}\DoGroups
\hbox{\ }
\vfil
$$
\Schema{-26.5ex}{21ex}
{
  \schemabox{Sacr\ae{}\\ litter\ae{}\\ loquuntur,\\ de}
}
{
  \schema
  {
    \schemabox{\textsc{Deo}}
  }
  {
    \schemabox{Uno, in Trinitate.}\smallskip\schemabox{Trino, in unitate.}
  }
  \Schema{-17ex}{23.4ex}
  {
    \vskip30ex
    \schemabox{\textsc{Dei}\\ \textsc{Operibus}}
  }
  {
    \schema
    {
      \schemabox{\textsc{Intra},\\ qu\ae{} sunt\\ divisa, ut}
    }
    {
      \schemabox{\textsc{Patris}, ab \ae{}terno gignere.\\ \textsc{Filii}, ab \ae{}terno genitum esse.\\ \textsc{Spiritus Sancti}, ab utroque\\ ab \ae{}terno procedete.\strut}
    }
    \medskip
    \Schema{-2ex}{21ex}
    {
      \schemabox{\textsc{Extra},\\ qu\ae{} sunt\\ indivisa;\\ tervata\\ tamen\\ cujusque\\ person\ae{}\\ divinitatis\\ sua pro-\\prietate}
    }
    {
      \Schema{-0.8ex}{6.4ex}
      {
        \schemabox{Creatione\\ natur\ae{}}
      }
      {
        \schema
        {
          \schemabox{Brute ut}
        }
        {
          \schemabox{C\oe{}li} \smallskip \schemabox{Elementorum} \smallskip \schemabox{Mundi}
        }
        \smallskip
        \schema
        {
          \schemabox{\gk{^^ce^^bb^^ce^^bf^^ce^^b3^^ce^^b9^^ce^^ba^^e1^^bf^^86^^cf^^82}{logik~hs}{logik\=es}, ut}
        }
        {
          \schemabox{Angelorum.} \smallskip \schemabox{Hominum: Ad\ae{},\\ Ev\ae{} \& procreatorum\\ exipsis.\strut}
        }
      }
      \schema
      {
        \schemabox{Sustenatione\\ natur\ae{} laps\ae{},}
      }
      {
        \schemabox{Angelorum malorum,} \smallskip \schemabox{Hominum: Ad\ae{}, Ev\ae{}\\ \& procreatorum exipsis.}
      }
      \Schema{2.6ex}{8.8ex}
      {
        \schemabox{Beneficiis\\ erga Ecc-\\ lesiam: ea\\ versantur\\ aut circa}
      }
      {
        \Schema{2.2ex}{7ex}
        {
          \schemabox{Res, ut}
        }
        {
          \schema
          {
            \schemabox{Verbum}
          }
          {
            \schemabox{Legis} \smallskip \schemabox{Evangelii} \smallskip \schemabox{Sacramentorum}
          }
          \smallskip
          \schema
          {
            \schemabox{Signa vel Veteris\\ vel Novi Testa-\\ mentum ut sunt:}
          }
          {
            \schemabox{Ceremoni\ae{}} \smallskip \schemabox{Miracula}
          }
        }
        \smallskip
        \Schema{0.6ex}{5.5ex}
        {
          \schemabox{Personas}
        }
        {
          \schema
          {
            \schemabox{Ecclesi\ae{}}
          }
          {
            \schemabox{Universalis} \smallskip \schemabox{Particularis}
          }
          \smallskip
          \schemabox{Politi\ae, ut Magistratuum}
          \smallskip
          \schemabox{\OE{}conomi\ae, ut privatorum}
        }
      }\vskip2ex
    }
  }
}
$$
\vfil
\egroup
\eject

\hbox{\ }
\vfil
$$
\Schema{-1.4ex}{10ex}
{
  \schemabox{Qu\ae{} sit\\ \textsc{Dei}, vel}
}
{
  \Schema{-1ex}{5ex}
  {
    \schemabox{\textsc{Essentia}, in}
  }
  {
    \vskip1ex\schemabox{Unitate divina,}
    \medskip
    \Schema{0ex}{3.4ex}
    {
      \schemabox{Tribus perso-\\ nis divinitatis}
    }
    {
      \Schema[close]{0ex}{3.4ex}
      {
        \NudgeSB\schemabox{Patre,\\ Filio,\\ Spiritui Sancto}
      }
      {
        \schemabox{\gk{^^e1^^bd^^81^^ce^^bc^^ce^^bf^^ce^^bf^^cf^^85^^cf^^83^^ce^^af^^ce^^bf^^ce^^b9^^cf^^82}{<omoous'iois}{homoousiois}\\ \& co\ae{}ternis}
      }
    }
  }
  \medskip
  \Schema{-0.2ex}{6.4ex}
  {
    \schemabox{\textsc{Voluntas},\\ revelatur in\\ actione, sive}
  }
  {
    \Schema{0ex}{3.4ex}
    {
      \schemabox{Universali}
    }
    {
      \Schema[close]{0ex}{3.4ex}
      {
        \schemabox{Creationis,\\Sustenationis,\\ Propagationis,}
      }
      {
        \schemabox{rerum creatarum.}
      }
    }
    \medskip
    \schema
    {
      \schemabox{Speciali, in beneficiis\\ erga Ecclesiam, eam}
    }
    {
      \schemabox{Colligendo.\\ Justificando.\\ Conservando.\\
      Glorificando.}
    }
  }
}
$$

\vfil
\eject

\hbox{\ }
\vfil
% Use here in Plain TeX.
\newbox\mybox
$$
\Schema{-0.2ex}{14.4ex}
{\schemabox{\bf Curricula\\\bf Texts}}
{
  \DoBrackets%
  % Doable in LaTeX, not in Plain TeX, because \outer.
  % \newbox\mybox%
  \setbox\mybox=\hbox{\bf III. Philosophical }%
  \dimen0=\wd\mybox%
  \schema
    {\schemabox[\dimen0]{\bf I. General\\Studies}}
    {\schemabox{1. Collected Works\\2. Encyclopedias}}
  \smallskip
  \schema
    {\schemabox[\dimen0]{\bf II. Literary\\Disciplines}}
    {\schemabox{1. Philology\\
     2. Historical Introduction\\
     3. Literary Theory\\
     4. Application}}
  \smallskip
  \schema
      {\schemabox[\dimen0]{\bf III. Philosophical\\Disciplines}}
      {\schemabox{1. Source Texts\\
       2. History of Philosophy\\
       3. General Surveys\\
       4. Specific Studies}}
  \smallskip
  \schema
      {\schemabox[\dimen0]{\bf IV. Historical\\Disciplines}}
      {\schemabox{1. General Surveys\\
       2. Specialized Works}}
}
$$
\vfil
\eject

\ifx\fmtname\nameoflatex
  \end{document}
\else
  \ifx\fmtname\nameoflollipop
    \Stop
  \else
    \bye
  \fi
\fi
