Ramistic schemata

["Charles P. Schaum" <verbo.solo@sbcglobal.net>]

Greetings,

I have been using ConTeXt since April, plain TeX since March, and
LaTeX/LyX for about a year. I have been working on multilingual texts
and, until the recent permutations of Word, no WYSIWYG product, with the
possible exception of Mellel for Hebrew, did any good job. Now I don't
like WYSIWYG anymore but use such products for work.

I have been able to create near-optimal reproductions of Ramistic
schemata using ConTeXt because the \showboxes toggle is most helpful in
showing where I need to put whitespace. The following may indeed be
crude, i.e., not computing box height and other sophisticated stuff, but
I'm a n00b and have not read the TeXbook through, although that and TeX
by topic are both a vade mecum.

Here's the code, FWIW. Use it as you like. It started out as plain TeX
using Kile on Ubuntu, migrated to ConTeXt in TeXshop/MacTeX, and came
back to Kile after I found an xml file for katepart that allowed for
proper syntax highlighting.

Charles

-----Cut Here-----


\def\schema#1#2#3{\hbox{$\vcenter{#1}\left\{\vbox to
#2{\vfil}\right.\vcenter{#3}$}}

\def\altschema#1#2#3#4{\hbox{$\vcenter{#1}{\left\lmoustache\vbox to
#2{\vfil}\right.\atop\left\rmoustache\vbox to
#3{\vfil}\right.}\vcenter{#4}$}}

%\showboxes

\starttext
\tfx
{\tfa I. SCHEMA}\par
\schema  % top level schema
	{
		\hbox{Subjectum theolo-}
		\hbox{gi\ae{} est Notitia}
		\hbox{Dei. Considerat}
		\hbox{ergo, Dei, vel}
	}
	{13ex}
	{
		\blank[big]
		\schema  % first nested schema
		{
			\hbox{{\sc Essentiam}, in}
		}
		{5ex}
		{
			\hbox{Unitate natur\ae{}.}
			\hbox{Trinitate personarum.}
			\hbox{Operibus ad intra.}
		}
		\blank[medium]
		\schema  % second nested schema
		{
			\hbox{{\sc Voluntatem},}
			\hbox{manifestatam in}
			\hbox{operibus ad extra;}
			\hbox{ut in}
		}
		{12ex}
		{
			\hbox{Creatione.}
			\hbox{Sustentatione natur\ae{} laps\ae{}.}
			\hbox{Reparatione.}
			\hbox{Conversione.}
			\hbox{Justificatione.}
			\hbox{Sanctificatione \&}
			\hbox{Glorificatione ejusdem.}
		}
	}
\page
{\tfa II. SCHEMA}\par
\altschema %
{
	\blank[7*big]
	\hbox{Subjectum \&}
	\hbox{summa univer-}
	\hbox{s\ae{} Scriptur\ae{},}
	\hbox{est {\sc Cogni-}}
	\hbox{{\sc tio} vel}
}
{29ex}
{10ex}
{
	\altschema %
	{
		\hbox{{\sc Dei}, qua-}
		\hbox{lis sit, aut}
	}
	{10ex}
	{2ex}
	{
		\blank[big]
		\schema %
		{
			\hbox{{\sc Per se}:}
			\hbox{scilicet.}
		}
		{3.1ex}
		{
			\hbox{Unus in essentia.}
			\hbox{Trinus in personis.}
		}
		\blank[medium]
		\schema %
		{
			\hbox{Ad hominem}
			\hbox{quem vel}
		}
		{13ex}
		{
			\hbox{Accusat \& terret, {\sc Per Legem},}
			\hbox{Consolatur \& erigit, {\sc Per Evangelium}.}
			\hbox{Salvat, {\sc Per Christum}.}
			\hbox{Renovat, {\sc Per Spiritum Sanctum}.}
			\hbox{Sanctificat, {\sc Per Verbum} \& {Sacramenta}.}
			\hbox{Castigat, tentat \& exercet, {\sc Per Crucem}.}
			\hbox{Glorificat {\sc Per Resurrectionem Carnis}}
			\hbox{{\sc Ad Vitam \AE{}ternam}.}
		}
	}
	\altschema %
	{
		\blank[6*big]
		\hbox{{\sc Hominis},}
		\hbox{qualis sit}
	}
	{22ex}
	{3ex}
	{
		\altschema %
		{
			\hbox{{\sc Per se}:}
		}
		{6ex}
		{1ex}
		{
			\blank[2*big]
			\hbox{Ante lapsum.}
			\blank[big]
			\altschema %
			{
				\hbox{Post lapsum:}
			}
			{5ex}
			{2ex}
			{
				\hbox{Ante Regenerationem \&}
				\hbox{Renovationem S. Sancti.}
				\blank[small]
				\hbox{Post Regenerationem \&}
				\hbox{Renovationem S. Sancti.}
				\blank[2*small]
			}
		\blank[big]
		}
		\schema %
		{
			\hbox{Ad}
		}
		{18ex}
		{
			\schema %
			{
				\hbox{{\sc Deum}}
			}
			{14ex}
			{
				\hbox{P\oe{}nitentia agens, agnitis peccatis \& ira}
				\hbox{Dei cognita {\sc Ex Lege}.}
				\hbox{Erigens se {\sc Voce Evangelii}.}
				\hbox{Credens {\sc In Christum Salvatorem}.}
				\hbox{Non repugnans {\sc Spiritui Sancto} impellenti.}
				\hbox{Audiens {\sc Verbum}: \& utens {\sc Sacramentis}.}
				\hbox{Patienter \& constanter sufferens {\sc Crucem}.}
				\hbox{Sperans \& expectans glorificationem {\sc In}}
				\hbox{{\sc Resurrectione Carnis Ad Vitam \AE{}ternam}.}
			}
			\blank[medium]
			\schema %
			{
				\hbox{seipsum ratione}
			}
			{3.1ex}
			{
				\hbox{Anim\ae{} vel}
				\hbox{Corporis}
			}
			\schema %
			{
				\hbox{Proximum,}
			}
			{6ex}
			{
				\blank[medium]
				\schema %
				{
					\hbox{Amicum ratione vel}
				}
				{7ex}
				{
					\hbox{Religionis.}
					\hbox{Politic\ae{} \& Oeconomic\ae {}.}
					\hbox{Cognationis.}
					\hbox{Agnationis.}
				}
				\hbox{Inimicum.}
				\blank[3*big]
			}
			\blank[big]
		}
	}
}


\stoptext


___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________