[XeTeX] Using tikz with plain XeTeX

John Was

2017-05-13 11:30:14 UTC

A simple one-page file is fine:

\input tikz
\tikzpicture
\path[draw=red] (0,0) -- (1,1) -- (2,1) circle (10pt);
\endtikzpicture
\bye

The problem is evidently with something in the preamble to the articles
(it's a periodical that comes out twice a year). Rather a gigantic run of
code but since it's been requested, here goes:

\hsize=24pc%288pt
\vsize=40pc%480pt
\input soul.sty
\sodef\spaced{}{.1em}{0.333em plus 0.333em}{0.333em plus 0.333em}
\sodef\spacedfixed{}{.1em}{0.333em}{0.333em}
\sodef\capitalsspacedfixed{}{.1em}{0.5em}{0.5em}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%ULEM package alternative to SOUL (copes with Unicode, e.g. Greek)
%%REPLACES JW's \uline and \ulinespace DEFINITIONS [commented out below]
%%SEE MHRA ANIPA FOR TWEAKS IF NEEDED
\def\makeatletter{\catcode`@ = 11}
\def\makeatother{\catcode`@ = 12}
\input ulem.sty
%\ULdepth=0.225em
%VC WANTS DEEPER (OS2017A):
\ULdepth=0.325em
\def\ULthickness{.25pt}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input pstricks
\input pst-node
\input pst-tree
\input edmac
\newif\ifquote
\newdimen\noteadjustamount \noteadjustamount=0pt
\newdimen\notekernamount \notekernamount=0pt%KERN ON 2nd OF SHORT CENTRED
NOTES
\newdimen\versindent \versindent=0pt
\newdimen\tempwidth \tempwidth = 0pt
\newdimen\scratchwidth \scratchwidth = 0pt
\newdimen\firstarthitchup \firstarthitchup=0pt
\newtoks\zerotext%Puts zero in front of single-digit \mins in headnote time
\newcount\hours
\hours=\time
\newcount\mins
\mins=\time
\divide\hours by 60
\newcount\timereckon
\timereckon=\hours
\multiply \timereckon by 60
\advance\mins by -\timereckon
\ifnum\mins<10\zerotext={0}\fi
\newtoks\monthtext
\newcount\monthnumber
\let\monthnumber=\month
\ifnum\monthnumber=1\monthtext={January}\fi
\ifnum\monthnumber=2\monthtext={February}\fi
\ifnum\monthnumber=3\monthtext={March}\fi
\ifnum\monthnumber=4\monthtext={April}\fi
\ifnum\monthnumber=5\monthtext={May}\fi
\ifnum\monthnumber=6\monthtext={June}\fi
\ifnum\monthnumber=7\monthtext={July}\fi
\ifnum\monthnumber=8\monthtext={August}\fi
\ifnum\monthnumber=9\monthtext={September}\fi
\ifnum\monthnumber=10\monthtext={October}\fi
\ifnum\monthnumber=11\monthtext={November}\fi
\ifnum\monthnumber=12\monthtext={December}\fi
\widowpenalty=10000
\dimen\footins=.95\vsize % maximum footnotes per page
\font\uimrfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 5pt
\font\uimifive = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\uimprfive =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 5pt
\font\uimpifive =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\uimbfive = "ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\uimbifive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 5pt
\font\uimpbfive =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\uimpbifive =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\uimrseven =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 7pt
\font\uimiseven = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 7pt
\font\uimprseven =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 7pt
\font\uimpiseven =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 7pt
\font\uimbseven =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 7pt
\font\uimbiseven =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 7pt
\font\uimpbseven =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 7pt
\font\uimpbiseven =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 7pt
\font\uimreight =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 8pt
\font\uimieight = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 8pt
\font\uimpreight =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 8pt
\font\uimpieight =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 8pt
\font\uimbeight =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 8pt
\font\uimbieight =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 8pt
\font\uimpbeight =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 8pt
\font\uimpbieight =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 8pt
\font\uimrnine =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 9pt
\font\uiminine = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\uimprnine =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 9pt
\font\uimpinine =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\uimbnine = "ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\uimbinine =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 9pt
\font\uimpbnine =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\uimpbinine =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\uimrten =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 10pt
\font\uimiten = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at
10pt
\font\uimprten =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 10pt
\font\uimpiten =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 10pt
\font\uimbten = "ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 10pt
\font\uimbiten =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 10pt
\font\uimpbten =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 10pt
\font\uimpbiten =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 10pt
\font\uimreleven =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 11pt
\font\uimieleven = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 11pt
\font\uimpreleven =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 11pt
\font\uimpieleven =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 11pt
\font\uimrtwelve =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 12pt
\font\uimitwelve = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
at 12pt
\font\uimprtwelve =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 12pt
\font\uimpitwelve =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 12pt
\font\uimbtwelve =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 12pt
\font\uimbitwelve =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 12pt
\font\uimpbtwelve =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 12pt
\font\uimpbitwelve =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 12pt
\font\uimrtwelvespaced =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=5.0" at 12pt
\font\uimitwelvespaced =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=5.0" at 12pt
\font\uimprtwelvespaced =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=5.0" at 12pt
\font\uimpitwelvespaced =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=5.0"
at 12pt
\font\uimbtwelvespaced =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=5.0" at 12pt
\font\uimbitwelvespaced =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=5.0" at 12pt
\font\uimpbtwelvespaced =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=5.0"
at 12pt
\font\uimpbitwelvespaced =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=5.0"
at 12pt
\font\uimrthirteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 13pt
\font\uimithirteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 13pt
\font\uimprthirteen =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 13pt
\font\uimpithirteen =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 13pt
\font\uimrfourteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 14pt
\font\uimifourteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 14pt
\font\uimprfourteen =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 14pt
\font\uimpifourteen =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 14pt
\font\uimrfifteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 15pt
\font\uimififteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 15pt
\font\uimprfifteen =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 15pt
\font\uimpififteen =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 15pt
\font\uimrsixteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 16pt
\font\uimisixteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 16pt
\font\uimprsixteen =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 16pt
\font\uimpisixteen =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 16pt
\font\uimreighteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 18pt
\font\uimieighteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 18pt
\font\uimrtwentyfour =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 24pt
\font\uimitwentyfour =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" at 24pt
\font\uimprtwentyfour =
"ImprintMTPro-Regular:+lnum:+smcp:mapping=tex-text:letterspace=-0.2" at 24pt
\font\uimpitwentyfour =
"ImprintMTPro-Regular:+lnum:+smcp:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 24pt
\font\uimbtwentyfour =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 24pt
\font\uimbitwentyfour =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" at 24pt
\font\uimpbtwentyfour =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:mapping=tex-text:letterspace=-0.2"
at 24pt
\font\uimpbitwentyfour =
"ImprintMTPro-Regular:+lnum:+smcp:embolden=4:slant=0.3:mapping=tex-text:letterspace=-0.2"
at 24pt
%%%%%%SUPERIORS/INFERIORS BY SCALING:
%%ROMAN
\font\uimrsfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
338%5pt superiors
\font\uimrsseven =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
473%7pt superiors
\font\uimrseight =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
540%8pt superiors
\font\uimrseightpointfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
574%8.5pt superiors
\font\uimrsnine =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
608%9pt superiors
\font\uimrsninepointtwofive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
624%9.25pt superiors
\font\uimrsninepointfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
642%9.5pt superiors
\font\uimrsninepointsevenfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
659%9.75pt superiors
\font\uimrsten =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
675%10pt superiors
\font\uimrstenpointtwofive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
692%10.25pt superiors
\font\uimrstenpointfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
709%10.5pt superiors
\font\uimrstenpointsevenfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
726%10.75pt superiors
\font\uimrseleven =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
743%11pt superiors
\font\uimrselevenpointfive =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
777%11.5pt superiors
\font\uimrstwelve =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
810%12pt superiors
\font\uimrsthirteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
878%13pt superiors
\font\uimrseighteen =
"ImprintMTPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" scaled
1215%18pt superiors
%%ITALIC
\font\uimisfive = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
scaled 338%5pt superiors
\font\uimisseven = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
scaled 473%7pt superiors
\font\uimiseight = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
scaled 540%8pt superiors
\font\uimiseightpointfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimisnine = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
scaled 608%9pt superiors
\font\uimisninepointtwofive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 624%9.25pt
superiors
\font\uimisninepointfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimisninepointsevenfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 659%9.75pt
superiors
\font\uimisten = "FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2"
scaled 675%10pt superiors
\font\uimistenpointtwofive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 692%10.25pt
superiors
\font\uimistenpointfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 709%10.5pt
superiors
\font\uimistenpointsevenfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 726%10.75pt
superiors
\font\uimiseleven =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 743%11pt
superiors
\font\uimiselevenpointfive =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 777%11.5pt
superiors
\font\uimistwelve =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 810%12pt
superiors
\font\uimisthirteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 878%13pt
superiors
\font\uimiseighteen =
"FFImprintItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled 1215%18pt
superiors
%%BOLD
\font\uimbsfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 338%5pt
superiors
\font\uimbsseven =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 473%7pt
superiors
\font\uimbseight =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 540%8pt
superiors
\font\uimbseightpointfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimbsnine =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 608%9pt
superiors
\font\uimbsninepointtwofive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
624%9.25pt superiors
\font\uimbsninepointfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimbsninepointsevenfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
659%9.75pt superiors
\font\uimbsten = "ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
scaled 675%10pt superiors
\font\uimbstenpointtwofive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
692%10.25pt superiors
\font\uimbstenpointfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
709%10.5pt superiors
\font\uimbstenpointsevenfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
726%10.75pt superiors
\font\uimbseleven =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 743%11pt
superiors
\font\uimbselevenpointfive =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled
777%11.5pt superiors
\font\uimbstwelve =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 810%12pt
superiors
\font\uimbsthirteen =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 878%13pt
superiors
\font\uimbseighteen =
"ImprintMTPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" scaled 1215%18pt
superiors
%%BOLDITALIC
\font\uimbisfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
338%5pt superiors
\font\uimbisseven =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
473%7pt superiors
\font\uimbiseight =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
540%8pt superiors
\font\uimbiseightpointfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
574%8.5pt superiors
\font\uimbisnine =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
608%9pt superiors
\font\uimbisninepointtwofive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
624%9.25pt superiors
\font\uimbisninepointfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
642%9.5pt superiors
\font\uimbisninepointsevenfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
659%9.75pt superiors
\font\uimbisten =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
675%10pt superiors
\font\uimbistenpointtwofive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
692%10.25pt superiors
\font\uimbistenpointfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
709%10.5pt superiors
\font\uimbistenpointsevenfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
726%10.75pt superiors
\font\uimbiseleven =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
743%11pt superiors
\font\uimbiselevenpointfive =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
777%11.5pt superiors
\font\uimbistwelve =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
810%12pt superiors
\font\uimbisthirteen =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
878%13pt superiors
\font\uimbiseighteen =
"ImprintMTPro-BoldItalic:+onum:mapping=tex-text:letterspace=-0.2" scaled
1215%18pt superiors
%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%RANGING SUPERIORS/INFERIORS BY SCALING:
%%ROMAN
\font\uimaltrsfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 338%5pt
superiors
\font\uimaltrsseven =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 473%7pt
superiors
\font\uimaltrseight =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 540%8pt
superiors
\font\uimaltrseightpointfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimaltrsnine =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 608%9pt
superiors
\font\uimaltrsninepointtwofive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 624%9.25pt
superiors
\font\uimaltrsninepointfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimaltrsninepointsevenfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 659%9.75pt
superiors
\font\uimaltrsten = "ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2"
scaled 675%10pt superiors
\font\uimaltrstenpointtwofive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 692%10.25pt
superiors
\font\uimaltrstenpointfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 709%10.5pt
superiors
\font\uimaltrstenpointsevenfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 726%10.75pt
superiors
\font\uimaltrseleven =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 743%11pt
superiors
\font\uimaltrselevenpointfive =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 777%11.5pt
superiors
\font\uimaltrstwelve =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 810%12pt
superiors
\font\uimaltrsthirteen =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 878%13pt
superiors
\font\uimaltrseighteen =
"ImprintMTPro-Regular:mapping=tex-text:letterspace=-0.2" scaled 1215%18pt
superiors
%%ITALIC
\font\uimaltisfive = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 338%5pt superiors
\font\uimaltisseven = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 473%7pt superiors
\font\uimaltiseight = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 540%8pt superiors
\font\uimaltiseightpointfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimaltisnine = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 608%9pt superiors
\font\uimaltisninepointtwofive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 624%9.25pt
superiors
\font\uimaltisninepointfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimaltisninepointsevenfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 659%9.75pt
superiors
\font\uimaltisten = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 675%10pt superiors
\font\uimaltistenpointtwofive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 692%10.25pt
superiors
\font\uimaltistenpointfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 709%10.5pt
superiors
\font\uimaltistenpointsevenfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 726%10.75pt
superiors
\font\uimaltiseleven = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 743%11pt superiors
\font\uimaltiselevenpointfive =
"FFImprintItalic:mapping=tex-text:letterspace=-0.2" scaled 777%11.5pt
superiors
\font\uimaltistwelve = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 810%12pt superiors
\font\uimaltisthirteen = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 878%13pt superiors
\font\uimaltiseighteen = "FFImprintItalic:mapping=tex-text:letterspace=-0.2"
scaled 1215%18pt superiors
%%BOLD
\font\uimaltbsfive = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 338%5pt superiors
\font\uimaltbsseven = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 473%7pt superiors
\font\uimaltbseight = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 540%8pt superiors
\font\uimaltbseightpointfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimaltbsnine = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 608%9pt superiors
\font\uimaltbsninepointtwofive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 624%9.25pt
superiors
\font\uimaltbsninepointfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimaltbsninepointsevenfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 659%9.75pt
superiors
\font\uimaltbsten = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 675%10pt superiors
\font\uimaltbstenpointtwofive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 692%10.25pt
superiors
\font\uimaltbstenpointfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 709%10.5pt
superiors
\font\uimaltbstenpointsevenfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 726%10.75pt
superiors
\font\uimaltbseleven = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 743%11pt superiors
\font\uimaltbselevenpointfive =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 777%11.5pt
superiors
\font\uimaltbstwelve = "ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2"
scaled 810%12pt superiors
\font\uimaltbsthirteen =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 878%13pt
superiors
\font\uimaltbseighteen =
"ImprintMTPro-Bold:mapping=tex-text:letterspace=-0.2" scaled 1215%18pt
superiors
%%BOLDITALIC
\font\uimaltbisfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 338%5pt
superiors
\font\uimaltbisseven =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 473%7pt
superiors
\font\uimaltbiseight =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 540%8pt
superiors
\font\uimaltbiseightpointfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 574%8.5pt
superiors
\font\uimaltbisnine =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 608%9pt
superiors
\font\uimaltbisninepointtwofive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
624%9.25pt superiors
\font\uimaltbisninepointfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 642%9.5pt
superiors
\font\uimaltbisninepointsevenfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
659%9.75pt superiors
\font\uimaltbisten =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 675%10pt
superiors
\font\uimaltbistenpointtwofive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
692%10.25pt superiors
\font\uimaltbistenpointfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
709%10.5pt superiors
\font\uimaltbistenpointsevenfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
726%10.75pt superiors
\font\uimaltbiseleven =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 743%11pt
superiors
\font\uimaltbiselevenpointfive =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled
777%11.5pt superiors
\font\uimaltbistwelve =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 810%12pt
superiors
\font\uimaltbisthirteen =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 878%13pt
superiors
\font\uimaltbiseighteen =
"ImprintMTPro-BoldItalic:mapping=tex-text:letterspace=-0.2" scaled 1215%18pt
superiors
%%%%%%%%%%%%%%%%%%%%%%%%%%
%%SANSERIF:
\font\umyrfive = "MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2"
at 5pt
\font\umyrseven =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 7pt
\font\umyreight =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 8pt
\font\umyreightpointfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 8.5pt
\font\umyrnine = "MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2"
at 9pt
\font\umyrninepointtwofive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 9.25pt
\font\umyrninepointfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 9.5pt
\font\umyrninepointsevenfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 9.75pt
\font\umyrten = "MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2"
at 10pt
\font\umyrtenpointtwofive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 10.25pt
\font\umyrtenpointfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 10.5pt
\font\umyrtenpointsevenfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 10.75pt
\font\umyreleven =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 11pt
\font\umyrelevenpointfive =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 11.5pt
\font\umyrtwelve =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 12pt
\font\umyrthirteen =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 13pt
\font\umyreighteen =
"MyriadPro-Regular:+onum:mapping=tex-text:letterspace=-0.2" at 18pt
%%SANSERIF BOLD:
\font\umybfive = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at
5pt
\font\umybseven = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 7pt
\font\umybeight = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 8pt
\font\umybeightpointfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 8.5pt
\font\umybnine = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at
9pt
\font\umybninepointtwofive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 9.25pt
\font\umybninepointfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 9.5pt
\font\umybninepointsevenfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 9.75pt
\font\umybten = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at
10pt
\font\umybtenpointtwofive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 10.25pt
\font\umybtenpointfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 10.5pt
\font\umybtenpointsevenfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 10.75pt
\font\umybeleven = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 11pt
\font\umybelevenpointfive =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 11.5pt
\font\umybtwelve = "MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2"
at 12pt
\font\umybthirteen =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 13pt
\font\umybeighteen =
"MyriadPro-Bold:+onum:mapping=tex-text:letterspace=-0.2" at 18pt
%%MATHS/LOGIC FROM STIXGeneral
%%DIFFERENT SIZES FOR DIFFERENT SORTS
%%\largemaths \maths \smallmaths \tinymaths
\font\stixgenrfive="STIXGeneral:mapping=tex-text" at 5pt
\font\stixgenrfivepointfivesixtwofive="STIXGeneral:mapping=tex-text" at
5.5625pt
\font\stixgenrfivepointsixtwofive="STIXGeneral:mapping=tex-text" at 5.625pt
\font\stixgenrsixpointonetwofive="STIXGeneral:mapping=tex-text" at 6.125pt
\font\stixgenrsixpointtwofive="STIXGeneral:mapping=tex-text" at 6.25pt
\font\stixgenrsixpointtwosix="STIXGeneral:mapping=tex-text" at 6.26pt
\font\stixgenrsixpointeightnine="STIXGeneral:mapping=tex-text" at 6.89pt
\font\stixgenrsixpointninefive="STIXGeneral:mapping=tex-text" at 6.95pt
\font\stixgenrsevenpointsixfivesixtwofive="STIXGeneral:mapping=tex-text" at
7.65625pt
\font\stixgenreight="STIXGeneral:mapping=tex-text" at 8pt
\font\stixgenrnine="STIXGeneral:mapping=tex-text" at 9pt
\font\stixgenrninepointsixtwofive="STIXGeneral:mapping=tex-text" at 9.625pt
\font\stixgenrten="STIXGeneral:mapping=tex-text" at 10pt
%%EXTRA SORTS FROM MUFI FONT:
\font\junirfive="Junicode-Regular:script=DFLT:mapping=tex-text" at 5pt
\font\juniifive="Junicode-Italic:script=DFLT:mapping=tex-text" at 5pt
\font\junibfive="Junicode-Bold:script=DFLT:mapping=tex-text" at 5pt
\font\junibifive="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at 5pt
\font\junirseven="Junicode-Regular:script=DFLT:mapping=tex-text" at 7pt
\font\juniiseven="Junicode-Italic:script=DFLT:mapping=tex-text" at 7pt
\font\junibseven="Junicode-Bold:script=DFLT:mapping=tex-text" at 7pt
\font\junibiseven="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at 7pt
\font\junireight="Junicode-Regular:script=DFLT:mapping=tex-text" at 8pt
\font\juniieight="Junicode-Italic:script=DFLT:mapping=tex-text" at 8pt
\font\junibeight="Junicode-Bold:script=DFLT:mapping=tex-text" at 8pt
\font\junibieight="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at 8pt
\font\junireightpointfive="Junicode-Regular:script=DFLT:mapping=tex-text" at
8.5pt
\font\juniieightpointfive="Junicode-Italic:script=DFLT:mapping=tex-text" at
8.5pt
\font\junibeightpointfive="Junicode-Bold:script=DFLT:mapping=tex-text" at
8.5pt
\font\junibieightpointfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 8.5pt
\font\junirnine="Junicode-Regular:script=DFLT:mapping=tex-text" at 9pt
\font\juniinine="Junicode-Italic:script=DFLT:mapping=tex-text" at 9pt
\font\junibnine="Junicode-Bold:script=DFLT:mapping=tex-text" at 9pt
\font\junibinine="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at 9pt
\font\junirninepointtwofive="Junicode-Regular:script=DFLT:mapping=tex-text"
at 9.25pt
\font\juniininepointtwofive="Junicode-Italic:script=DFLT:mapping=tex-text"
at 9.25pt
\font\junibninepointtwofive="Junicode-Bold:script=DFLT:mapping=tex-text" at
9.25pt
\font\junibininepointtwofive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 9.25pt
\font\junirninepointfive="Junicode-Regular:script=DFLT:mapping=tex-text" at
9.5pt
\font\juniininepointfive="Junicode-Italic:script=DFLT:mapping=tex-text" at
9.5pt
\font\junibninepointfive="Junicode-Bold:script=DFLT:mapping=tex-text" at
9.5pt
\font\junibininepointfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 9.5pt
\font\junirninepointsevenfive="Junicode-Regular:script=DFLT:mapping=tex-text"
at 9.75pt
\font\juniininepointsevenfive="Junicode-Italic:script=DFLT:mapping=tex-text"
at 9.75pt
\font\junibninepointsevenfive="Junicode-Bold:script=DFLT:mapping=tex-text"
at 9.75pt
\font\junibininepointsevenfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 9.75pt
\font\junirten="Junicode-Regular:script=DFLT:mapping=tex-text" at 10pt
\font\juniiten="Junicode-Italic:script=DFLT:mapping=tex-text" at 10pt
\font\junibten="Junicode-Bold:script=DFLT:mapping=tex-text" at 10pt
\font\junibiten="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at 10pt
\font\junirtenpointtwofive="Junicode-Regular:script=DFLT:mapping=tex-text"
at 10.25pt
\font\juniitenpointtwofive="Junicode-Italic:script=DFLT:mapping=tex-text" at
10.25pt
\font\junibtenpointtwofive="Junicode-Bold:script=DFLT:mapping=tex-text" at
10.25pt
\font\junibitenpointtwofive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 10.25pt
\font\junirtenpointfive="Junicode-Regular:script=DFLT:mapping=tex-text" at
10.5pt
\font\juniitenpointfive="Junicode-Italic:script=DFLT:mapping=tex-text" at
10.5pt
\font\junibtenpointfive="Junicode-Bold:script=DFLT:mapping=tex-text" at
10.5pt
\font\junibitenpointfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 10.5pt
\font\junirtenpointsevenfive="Junicode-Regular:script=DFLT:mapping=tex-text"
at 10.75pt
\font\juniitenpointsevenfive="Junicode-Italic:script=DFLT:mapping=tex-text"
at 10.75pt
\font\junibtenpointsevenfive="Junicode-Bold:script=DFLT:mapping=tex-text" at
10.75pt
\font\junibitenpointsevenfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 10.75pt
\font\junireleven="Junicode-Regular:script=DFLT:mapping=tex-text" at 11pt
\font\juniieleven="Junicode-Italic:script=DFLT:mapping=tex-text" at 11pt
\font\junibeleven="Junicode-Bold:script=DFLT:mapping=tex-text" at 11pt
\font\junibieleven="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at
11pt
\font\junirelevenpointfive="Junicode-Regular:script=DFLT:mapping=tex-text"
at 11.5pt
\font\juniielevenpointfive="Junicode-Italic:script=DFLT:mapping=tex-text" at
11.5pt
\font\junibelevenpointfive="Junicode-Bold:script=DFLT:mapping=tex-text" at
11.5pt
\font\junibielevenpointfive="Junicode-BoldItalic:script=DFLT:mapping=tex-text"
at 11.5pt
\font\junirtwelve="Junicode-Regular:script=DFLT:mapping=tex-text" at 12pt
\font\juniitwelve="Junicode-Italic:script=DFLT:mapping=tex-text" at 12pt
\font\junibtwelve="Junicode-Bold:script=DFLT:mapping=tex-text" at 12pt
\font\junibitwelve="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at
12pt
\font\junirthirteen="Junicode-Regular:script=DFLT:mapping=tex-text" at 13pt
\font\juniithirteen="Junicode-Italic:script=DFLT:mapping=tex-text" at 13pt
\font\junibthirteen="Junicode-Bold:script=DFLT:mapping=tex-text" at 13pt
\font\junibithirteen="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at
13pt
\font\junireighteen="Junicode-Regular:script=DFLT:mapping=tex-text" at 18pt
\font\juniieighteen="Junicode-Italic:script=DFLT:mapping=tex-text" at 18pt
\font\junibeighteen="Junicode-Bold:script=DFLT:mapping=tex-text" at 18pt
\font\junibieighteen="Junicode-BoldItalic:script=DFLT:mapping=tex-text" at
18pt
%%JUNICODE FOR URLs
\font\junireightcolour="Junicode-Regular:script=DFLT:mapping=tex-text:color=DC143C"
at 8pt
\font\junirninecolour="Junicode-Regular:script=DFLT:mapping=tex-text:color=DC143C"
at 9pt
\font\junirtencolour="Junicode-Regular:script=DFLT:mapping=tex-text:color=DC143C"
at 10pt
%ARIAL UNICODE FOR OCCASIONAL UNUSUAL SORTS:
\font\arialten = "Arial Unicode MS" at 10pt
\font\arialnine = "Arial Unicode MS" at 9pt
\font\arialeight = "Arial Unicode MS" at 8pt
%TEXGYRETERMES FOR OCCASIONAL UNUSUAL SORTS:
\font\texgyretermesreight = "TeXGyreTermes-Regular:mapping=tex-text" at 8pt
\font\texgyretermesrnine = "TeXGyreTermes-Regular:mapping=tex-text" at 9pt
\font\texgyretermesrten = "TeXGyreTermes-Regular:mapping=tex-text" at 10pt
\font\texgyretermesieight = "TeXGyreTermes-Italic:mapping=tex-text" at 8pt
\font\texgyretermesinine = "TeXGyreTermes-Italic:mapping=tex-text" at 9pt
\font\texgyretermesiten = "TeXGyreTermes-Italic:mapping=tex-text" at 10pt
%PORSON UNICODE
\font\portwentyfour = "FFPorson" at 24pt
\font\portwelve = "FFPorson" at 12pt
\font\poreleven = "FFPorson" at 11pt
\font\porten = "FFPorson" at 10pt
\font\pornine = "FFPorson" at 9pt
\font\poreight = "FFPorson" at 8pt
\font\porseven = "FFPorson" at 7pt
%PORSON UNICODE BOLD
\font\porboldtwentyfour = "FFPorson:embolden=2" at 24pt
\font\porboldeleven = "FFPorson:embolden=2" at 11pt
\font\porboldtwelve = "FFPorson:embolden=2" at 12pt
\font\porboldten = "FFPorson:embolden=2" at 10pt
\font\porboldnine = "FFPorson:embolden=2" at 9pt
\font\porboldeight = "FFPorson:embolden=2" at 8pt
\font\porboldseven = "FFPorson:embolden=2" at 7pt
%ATHENA (UPRIGHT) UNICODE BOLD
\font\athenaboldtwentyfour = "Athena Unicode:embolden=3" at 24pt
\font\athenaboldtwelve = "Athena Unicode:embolden=3" at 12pt
\font\athenaboldeleven = "Athena Unicode:embolden=3" at 11pt
\font\athenaboldten = "Athena Unicode:embolden=3" at 10pt
\font\athenaboldnine = "Athena Unicode:embolden=3" at 9pt
\font\athenaboldeight = "Athena Unicode:embolden=3" at 8pt
\font\athenaboldseven = "Athena Unicode:embolden=3" at 7pt
%ATHENA (UPRIGHT) UNICODE
\font\athenatwentyfour = "Athena Unicode" at 24pt
\font\athenatwelve = "Athena Unicode" at 12pt
\font\athenaeleven = "Athena Unicode" at 11pt
\font\athenaten = "Athena Unicode" at 10pt
\font\athenanine = "Athena Unicode" at 9pt
\font\athenaeight = "Athena Unicode" at 8pt
\font\athenaseven = "Athena Unicode" at 7pt
%MINION FOR UPRIGHT GREEK
\font\umirtwentyfour =
"MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5" at 24pt
\font\umirtwelve =
"MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5" at 12pt
\font\umireleven =
"MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5" at 11pt
\font\umirten = "MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5"
at 10pt
\font\umirnine = "MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5"
at 9pt
\font\umireight = "MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5"
at 8pt
\font\umirseven = "MinionPro-Regular:+onum:mapping=tex-text:letterspace=1.5"
at 7pt
%MINION BOLD FOR UPRIGHT BOLD GREEK
\font\umibtwentyfour =
"MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5" at 24pt
\font\umibtwelve = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5"
at 12pt
\font\umibeleven = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5"
at 11pt
\font\umibten = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5" at
10pt
\font\umibnine = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5" at
9pt
\font\umibeight = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5" at
8pt
\font\umibseven = "MinionPro-Bold:+onum:mapping=tex-text:letterspace=1.5" at
7pt
%%MINION ITALIC FOR SLOPING NON-PORSON GREEK
\font\umiitwentyfour = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5"
at 24pt
\font\umiitwelve = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
12pt
\font\umiieleven = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
11pt
\font\umiiten = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
10pt
\font\umiinine = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
9pt
\font\umiieight = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
8pt
\font\umiiseven = "MinionPro-It:+onum:mapping=tex-text:letterspace=1.5" at
7pt
%%FOR CHARACTERS SUCH AS ώ FROM GFS PORSON
%%SCALING IS 8.61 TO 10 TO MATCH IMPRINT
\font\altportwentyfour = "GFS Porson" at 20.66pt
\font\altportwelve = "GFS Porson" at 10.33pt
\font\altporeleven = "GFS Porson" at 9.47pt
\font\altporten = "GFS Porson" at 8.61pt
\font\altpornine = "GFS Porson" at 7.75pt
\font\altporeight = "GFS Porson" at 6.89pt
\font\altporseven = "GFS Porson" at 6.03pt
%%ARABIC [130% increase for appearance]
\font\uarabiceight = "Scheherazade:script=arab" at 10.4pt
\font\uarabicnine = "Scheherazade:script=arab" at 11.7pt
\font\uarabicten = "Scheherazade:script=arab" at 13pt
%%HEBREW
\font\uhebreweight = "SBL Hebrew" at 8pt
\font\uhebrewnine = "SBL Hebrew" at 9pt
\font\uhebrewten = "SBL Hebrew" at 10pt
%OUP LOGO:
\font\ouptwentyfour="OUPLogo" at 24pt
\font \ouptwentyfivepointtwofive="OUPLogo" at 25.25pt
\psset{linewidth=0.25pt}
%Following gives Imprint Pro rom/italic/bold/boldit in maths:
\textfont0=\uimrten
\scriptfont0=\uimrseven
\scriptscriptfont0=\uimrfive
\textfont1=\uimiten
\scriptfont1=\uimiseven
\scriptscriptfont1=\uimifive
\textfont4=\uimiten
\scriptfont4=\uimiseven
\scriptscriptfont4=\uimifive
\textfont5=\uimbiten
\scriptfont5=\uimbiseven
\scriptscriptfont5=\uimbifive
\textfont6=\uimbten
\scriptfont6=\uimbseven
\scriptscriptfont6=\uimbfive
\everymath{\def\times{\lower 0.15em\hbox{\kern 0.2em
\char"00D7}\hskip 0.2em} \def\over{\above0.25pt}
\def\hyphen{\hbox{-}} \def\subhyphen{\hbox{\uimrseven -}}
\def\subsubhyphen{\hbox{\uimrfive -}}
\def\comma{\hbox{, }}
\def\dots{\hbox{.\kern 0.1em .\kern 0.1em .\kern 0.1em}}
\def\mathstrut{\hbox{\vrule height 0.8\baselineskip
depth 0.35\baselineskip width 0pt}}}
%%TO MAINTAIN LINE SEPARATION WHEN
%%PARAGRAPHS IN TABLE ARGUMENTS
%%FOLLOWING WORKS IN \extract SIZE IN MINION PRO
%%OK FOR IMPRINT TOO?
\def\tablestrutone{\relax \vrule height 7.5pt depth 3pt width 0pt}
\def\tablestruttwo{\relax \vrule height 7.5pt depth 3pt width 0pt}
%%%%%%
\everydisplay{\def\times{\lower 0.15em\hbox{\kern 0.2em
\char"00D7}\hskip 0.2em} \def\over{\above0.25pt}
\def\hyphen{\hbox{-}} \def\subhyphen{\hbox{\uimrseven -}}
\def\subsubhyphen{\hbox{\uimrfive -}}
\def\comma{\hbox{,}}
\def\dots{\hbox{.\kern 0.1em .\kern 0.1em .\kern 0.1em}}
\def\mathstrut{\hbox{\vrule height 0.8\baselineskip
depth 0.35\baselineskip width 0pt}}}
%Following gives Imprint Pro rom/italic/bold/boldit in maths:
%%THIS IS TO PULL UP NON-RANGING NUMERALS IN FRACTIONS (MAIN TEXT):
%%BUT USE RANGING FIGS FOR NEATNESS?
%%FOLLOWING DEFS ARE IMMEDIATELY REDEFINED [FOR OS2016B]
\def\hitchup#1{{\raise 0.15em \hbox{$\scriptstyle #1$}}}
\textfont0=\uimrten
\scriptfont0=\uimrseven
\scriptscriptfont0=\uimrfive
\textfont1=\uimiten
\scriptfont1=\uimiseven
\scriptscriptfont1=\uimifive
\textfont4=\uimiten
\scriptfont4=\uimiseven
\scriptscriptfont4=\uimifive
\textfont5=\uimbiten
\scriptfont5=\uimbiseven
\scriptscriptfont5=\uimbifive
\textfont6=\uimbten
\scriptfont6=\uimbseven
\scriptscriptfont6=\uimbfive
%%%NEW DEFS [FOR OS2016B]
\textfont0=\uimprten
\scriptfont0=\uimprseven
\scriptscriptfont0=\uimprfive
\textfont1=\uimpiten
\scriptfont1=\uimpiseven
\scriptscriptfont1=\uimpifive
\textfont4=\uimpiten
\scriptfont4=\uimpiseven
\scriptscriptfont4=\uimpifive
\textfont5=\uimpbiten
\scriptfont5=\uimpbiseven
\scriptscriptfont5=\uimpbifive
\textfont6=\uimpbten
\scriptfont6=\uimpbseven
\scriptscriptfont6=\uimpbfive
\everymath{\def\times{\lower 0.15em\hbox{\kern 0.2em
\pirom\char'330}\hskip 0.2em} \def\over{\above0.25pt}
\def\hyphen{\hbox{-}} \def\subhyphen{\hbox{\uimrseven -}}
\def\subsubhyphen{\hbox{\uimrfive -}}
\def\comma{\hbox{, }}
\def\dots{\hbox{.\kern 0.1em .\kern 0.1em .\kern 0.1em}}
\def\mathstrut{\hbox{\vrule height 0.8\baselineskip
depth 0.35\baselineskip width 0pt}}}
\everydisplay{\def\times{\lower 0.15em\hbox{\kern 0.2em
\pirom\char'330}\hskip 0.2em} \def\over{\above0.25pt}
\def\hyphen{\hbox{-}} \def\subhyphen{\hbox{\uimrseven -}}
\def\subsubhyphen{\hbox{\uimrfive -}}
\def\comma{\hbox{, }}
\def\dots{\hbox{.\kern 0.1em .\kern 0.1em .\kern 0.1em}}
\def\mathstrut{\hbox{\vrule height 0.8\baselineskip
depth 0.35\baselineskip width 0pt}}}
\input D:/TEXFILES/TEXINPUT/TEXDOCS/unidefs/uquery
\input D:/TEXFILES/TEXINPUT/TEXDOCS/unidefs/uimpdef
\input eplain
%%%FOLLOWING LINE ZAPS ALL QUERIES FROM OUTPUT:%%%%%
%\def\query#1{}
\frenchspacing
\parindent=1em
\voffset=1in
\hoffset=1in \advance \hoffset by -0.5in
\def\greekdotax#1{\leavevmode
\setbox0=\hbox{#1}\copy0
\ifx#1μ\tempwidth=0.25\wd0\else
\ifx#1ψ\tempwidth=0.15\wd0\else
\tempwidth=0.5\wd0\fi\fi
\llap{\smash{\lower 0.215em \hbox{.\kern \tempwidth}}}%
\ifx#1ψ\tempwidth=0.00001em\else
\tempwidth =0.275em\fi
\kern -\tempwidth}%underdot for Porson Greek
\def \littlespace{\kern .1em}
\def \letterspace #1{#1\littlespace\letterspace}
\def \endletterspace \littlespace \letterspace{}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%COMMENTED OUT BECAUSE \ulem PACKAGE BETTER, AND USES \uline
%\def\ulinespace{\leaders\hrule height -2pt depth 2.25pt\hskip .25em plus
.175em minus .05em}
%\def\uline#1{\setbox0=\hbox{#1}\copy0
% \kern -\wd0\vrule height -2pt depth 2.25pt width \wd0}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\sylline#1{\setbox0=\hbox{#1}\copy0
\kern -\wd0\vrule height -4pt depth 4.25pt width \wd0\vskip 3pt}%FOR USE
IN SYLLOGISMS
%%GIVES BOTH LINES OF A SYLLOGISM WITH SEPARATING RULE:
\def\syltwolines#1#2{\leavevmode
\measuretwo{#1}{#2}%
\hbox to \tempwidth{#1\hfil}%
\kern -\tempwidth\vrule height -4pt depth 4.25pt width \tempwidth
\kern -\tempwidth
\scratchwidth=\baselineskip \advance \scratchwidth by 3pt
\lower \scratchwidth \hbox to \tempwidth{#2\hfil}}
%%CALCULATION TO GET TWO SHORT NOTES
%%CENTRED WITH 3em GAP BETWEEN:
%%CONCLUDE THE SECOND NOTE WITH \kern \notekernamount
%%AT ITS POSITION [NOT WHEN SETTING UP THIS MACRO AFTER
%% FIRST \fn COMMAND]
\def\centretwonotes#1#2{%
\availablespace0pt
\setbox0=\hbox{\notes #1#2\kern 2.25em}%
\tempwidth = \hsize
\advance \tempwidth by -\wd0
\advance \tempwidth by -24pt
\divide \tempwidth by 2
\noteadjustamount = \tempwidth
\advance \noteadjustamount by -8pt
\global \notekernamount=\tempwidth}
%%%%%%%%%%%%%%%%%%%%%%%%%%
%%GIVES ALL THREE LINES OF A SYLLOGISM WITH SEPARATING RULE:
\def\sylthreelines#1#2#3{\leavevmode
\measurethree{#1}{#2}{#3}%
\scratchwidth=\baselineskip \advance \scratchwidth by 0.5pt
\hbox to \tempwidth{#1\hfil}%
\kern -\tempwidth
\lower\scratchwidth \hbox{%
\hbox to \tempwidth{#2\hfil}%
\kern -\tempwidth\vrule height -4pt depth 4.25pt width \tempwidth
\kern -\tempwidth
\scratchwidth=\baselineskip \advance \scratchwidth by 3pt
\lower \scratchwidth \hbox to \tempwidth{#3\hfil}}}
%%MEASURING MACROS:
\def\measureone #1{\setbox0=\hbox{#1}\global\tempwidth=\wd0}
\def\measuretwo #1#2{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global \tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi}
\def\measurethree #1#2#3{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi}
\def\measurefour #1#2#3#4{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global \tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global \tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global \tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi}
\def\measurefive #1#2#3#4#5{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\setbox4=\hbox{#5}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global\tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd4{\global\tempwidth=\wd4}\else \global
\tempwidth=\tempwidth\fi}
\def\measuresix #1#2#3#4#5#6{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\setbox4=\hbox{#5}%
\setbox5=\hbox{#6}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global\tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd4{\global\tempwidth=\wd4}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd5{\global\tempwidth=\wd5}\else \global
\tempwidth=\tempwidth\fi}
\def\measureseven #1#2#3#4#5#6#7{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\setbox4=\hbox{#5}%
\setbox5=\hbox{#6}%
\setbox6=\hbox{#7}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global\tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd4{\global\tempwidth=\wd4}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd5{\global\tempwidth=\wd5}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd6{\global\tempwidth=\wd6}\else \global
\tempwidth=\tempwidth\fi}
\def\measureeight #1#2#3#4#5#6#7#8{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\setbox4=\hbox{#5}%
\setbox5=\hbox{#6}%
\setbox6=\hbox{#7}%
\setbox7=\hbox{#8}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global\tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd4{\global\tempwidth=\wd4}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd5{\global\tempwidth=\wd5}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd6{\global\tempwidth=\wd6}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd7{\global\tempwidth=\wd7}\else \global
\tempwidth=\tempwidth\fi}
\def\measurenine #1#2#3#4#5#6#7#8#9{\setbox0=\hbox{#1}%
\setbox1=\hbox{#2}%
\setbox2=\hbox{#3}%
\setbox3=\hbox{#4}%
\setbox4=\hbox{#5}%
\setbox5=\hbox{#6}%
\setbox6=\hbox{#7}%
\setbox7=\hbox{#8}%
\setbox8=\hbox{#9}%
\tempwidth=0pt
\ifdim\tempwidth<\wd0{\global \tempwidth=\wd0}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd1{\global\tempwidth=\wd1}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd2{\global\tempwidth=\wd2}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd3{\global\tempwidth=\wd3}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd4{\global\tempwidth=\wd4}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd5{\global\tempwidth=\wd5}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd6{\global\tempwidth=\wd6}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd7{\global\tempwidth=\wd7}\else \global
\tempwidth=\tempwidth\fi
\ifdim\tempwidth<\wd8{\global\tempwidth=\wd8}\else \global
\tempwidth=\tempwidth\fi}
%%ENDS MEASURING MACROS
\def\notespar{\hfil\break\hbox{\hskip 1 em}}
\def\overstrike#1#2{\setbox0=\hbox{#1}\setbox1=\hbox{#2}\copy0
\kern -0.5\wd0 \kern -0.5\wd1 \copy1 \kern -0.5\wd1 \kern 0.5\wd0}
\def\thinspace{\kern 0.2em}
\def\emrule{---}
%%REQUESTED BY BRAD INWOOD AT ONE POINT IN BAKER OS2015A:
\def\lightemrule{\leavevmode \raise 0.1em \hbox{\psscalebox{1
0.5}{\emrule}}\hskip 1sp}
\def\enrule{--}
\def\footnoterule{}
\def\strut{}
\setbox\strutbox=\hbox{\vrule height 7pt depth 1.5pt width 0pt}
\def\strut{\relax\ifmmode\copy\strutbox\else\unhcopy\strutbox\fi}
\parskip=0pt plus 0pt minus 0pt
\def\bigskipamount{6pt}
\newcount\notenumber
\def\clearnotenumber{\notenumber=0 \querycount = 0\relax}
\clearnotenumber
\def\noteadjust#1{\setbox0=\hbox{\notes \the \notenumber \hskip 0.5em #1}%
\noteadjustamount = \hsize \advance \noteadjustamount by -\wd0
\divide \noteadjustamount by 2 \advance \noteadjustamount by -0.5em
\advance \noteadjustamount by -3pt}
%%SUPERIORS & INFERIORS:
\def\SUP#1{\leavevmode \smash{raise 0.35em \hbox{\ifitalic{\supi{#1}}\else
{\supr{#1}}\fi}}}
\def\ENDSUP{\relax}
\def\endsupb{\relax}
\def\endsupbi{\relax}
\def\endsupi{\relax}
\def\endsupr{\relax}
\def\supb#1{\leavevmode \smash{\raise 0.35em
\hbox{\supbold #1}}\endsupb}
\def\supbi#1{\leavevmode \smash{\raise 0.35em
\hbox{\supboldit #1}}\endsupbi}
\def\supi#1{\leavevmode \smash{\raise 0.35em
\hbox{\supit #1}}\endsupi}
\def\supr#1{\leavevmode \smash{\raise 0.35em \hbox{\suprom #1}}\endsupr}
\let\sup\SUP%FOR BACKWARD COMPATIBILITY
%%FOR RANGING FIG SUPERIORS:
\def\altsupb#1{\leavevmode \smash{\raise 0.35em
\hbox{\altsupbold #1}}\endsupb}
\def\altsupbi#1{\leavevmode \smash{\raise 0.35em
\hbox{\altsupboldit #1}}\endsupbi}
\def\altsupi#1{\leavevmode \smash{\raise 0.35em
\hbox{\altsupit #1}}\endsupi}
\def\altsupr#1{\leavevmode \smash{\raise 0.35em \hbox{\altsuprom
#1}}\endsupr}
\def\INF#1{\leavevmode \smash{\lower 0.12em
\hbox{\ifitalic{\supi{#1}}\else {\supr{#1}}\fi}}}
\def\ENDINF{\relax}
\def\endinfb{\relax}
\def\endinfbi{\relax}
\def\endinfi{\relax}
\def\endinfr{\relax}
\def\infb#1{\leavevmode \smash{\lower 0.12em
\hbox{\supbold #1}}\endinfb}
\def\infbi#1{\leavevmode \smash{\lower 0.12em
\hbox{\supboldit #1}}\endinfbi}
\def\infi#1{\leavevmode \smash{\lower 0.12em
\hbox{\supit #1}}\endinfi}
\def\infr#1{\leavevmode \smash{\lower 0.12em
\hbox{\suprom #1}}\endinfr}
%%FOR RANGING FIG INFERIORS:
\def\altinfb#1{\leavevmode \smash{\lower 0.12em
\hbox{\altsupbold #1}}\endinfb}
\def\altinfbi#1{\leavevmode \smash{\lower 0.12em
\hbox{\altsupboldit #1}}\endinfbi}
\def\altinfi#1{\leavevmode \smash{\lower 0.12em
\hbox{\altsupit #1}}\endinfi}
\def\altinfr#1{\leavevmode \smash{\lower 0.12em
\hbox{\altsuprom #1}}\endinfr}
\def\bracketequals{\leavevmode \hbox{[\kern -0.1em \equals}}
\def\cq{\leavevmode \kern 1sp \hbox{'}}
\def\cdq{\leavevmode \kern 1sp \hbox{''}}
\def\copyrightnote#1{\def\strut{}\footnote{}{\notes\break\vskip -2\baselineskip\noindent{#1}\vskip
3pt}\maintext}
\def\highminus{{\suprom \enrule}}
\def\parenequals{\leavevmode \hbox{(\kern -0.1em \equals}}
\def\parennotequals{\leavevmode \hbox{(\kern -0.1em \notequals}}
\def\bracketequals{\leavevmode \hbox{{\rom [}\kern -0.1em \equals}}
\def\acknote#1{\def\strut{}\footnote{}{\notes\break\vskip-2\baselineskip\noindent{#1}\vskip
3pt}\maintext \noindent \ignorespaces \kern -12pt}
\newbox\strutboxone \newbox \strutboxtwo
\setbox\strutboxone=\hbox{\vrule height 7.5pt depth 1.5pt width 0pt}
\setbox\strutboxtwo=\hbox{\vrule height 0pt depth 1.5pt width 0pt}
\def\strutone{\relax\ifmmode\copy\strutboxone\else\unhcopy\strutboxone\fi}
\def\struttwo{\relax\ifmmode\copy\strutboxtwo\else\unhcopy\strutboxtwo\fi}
\newdimen\maxonelinenote \maxonelinenote=\hsize \advance \maxonelinenote
by -8pt
\newdimen\availablespace
\newif\iflongnote
\newif\ifonelinenote
\newif\ifshortnote
\newif\ifdoubleup
\newdimen\adjustskipamount
\def\fn#1{%
\ifdoubleup
\begingroup\ifshortnote\relax\else\availablespace=0pt\fi\endgroup
\global \advance \notenumber by 1 {\supr{\the \notenumber}}\ignorespaces
\maintext \baselineskip=9pt\insert \footins{\notes
\setbox0=\hbox{{\supr{\the\notenumber}}\kern 0.5em #1}%
\ifdim\wd0>\maxonelinenote \global\shortnotefalse
\setbox1=\vbox{\hskip 1em \unhbox0$$\global\availablespace=\hsize
\global\advance \availablespace by -\predisplaysize
\global \advance \availablespace
by -3em$$}%
\setbox2=\vbox{\hskip 1em \unhbox0}%
\ifdim\ht2>\baselineskip\global\longnotetrue
\global\onelinenotefalse\else
\global\onelinenotetrue \global\longnotefalse \global\shortnotefalse
\adjustskipamount = -\baselineskip\fi
\ignorespaces
%%%FOLLOWING MAY NEED TO ALTER IN IMPRINT PRO 8/9PT FOOTNOTES
\vskip 0.5pt
%%%
\hskip -3pt \hskip \noteadjustamount
\strutone
{\supr{\the\notenumber}}\kern 0.5em #1 \vskip\adjustskipamount
\struttwo \global\adjustskipamount=0pt
\else \global \shortnotetrue \global\longnotefalse \ifonelinenote
\global\availablespace=0pt\fi
\ifdim\availablespace>\wd0
\ignorespaces
%%%1.5 PT IN FOLLOWING MAY NEED ADJUSTMENT IN IMPRINT PRO 8/9PT FOOTNOTES
\vbox to 0pt{\smash{\hbox{\raise 1.5pt\hbox to \hsize{\hfil
\strutone \hskip \noteadjustamount
{\supr{\the\notenumber}}\kern 0.5em #1}}}}\global\onelinenotefalse
\else \ignorespaces
%%%FOLLOWING MAY NEED TO CHANGE
\vskip 0.5pt
%%%
\hskip -3pt \hskip \noteadjustamount
\strutone
{\supr{\the\notenumber}}\kern 0.5em #1%
\struttwo\global\onelinenotefalse
\global\availablespace = \hsize \global\advance \availablespace
by -\wd0
\global\advance \availablespace by -4em
\fi
\fi}\unskip\ignorespaces\maintext\global\noteadjustamount=0pt
\else
\global \advance \notenumber by 1 {\supr{\the \notenumber}}\ignorespaces%
\maintext \baselineskip=9pt \insert\footins{\unskip\strutone\notes
\ignorespaces
%%%IS FOLLOWING RELEVANT TO IMPRINT PRO/OSAP?
\ifquote\advance\noteadjustamount by 1pt\fi%
\hskip -3pt \hskip \noteadjustamount%
{\supr{\the \notenumber}}\hskip 0.5em%
#1\struttwo}\ignorespaces\maintext\global\noteadjustamount=0pt\fi}
%%FOLLOWING WHERE NOTES ARE LOST OR WRONGLY FORMATTED DUE TO
%%SPECIAL FORMATTING OF MAIN TEXT: \manualnote TO FOLLOW \manualcue
\def\manualcue{\global\advance\notenumber by 1{\supr{\the\notenumber}}}
\def\manualnote#1{\maintext
\baselineskip = 9pt\hangindent = 0pt
\insert \footins
{\unskip\strutone\notes \ignorespaces
%%IS FOLLOWING RELEVANT TO IMPRINT/OSAP??
\ifquote\advance\noteadjustamount by 1pt\fi
\leavevmode \hskip -3pt
{\supr{\the \notenumber}}\hskip 0.5em%
#1\struttwo}\ignorespaces\maintext\global\noteadjustamount=0pt}
%%WHEN A MANUAL NOTE HAS TO FIT IN THE BREAKLINE
%%OF PRECEDING NOTE:
\def\doubledupmanualnote#1{\maintext
\baselineskip = 9pt\hangindent = 0pt
\insert \footins
{\unskip\strutone\notes \ignorespaces
\vskip 0.5pt \vskip -2\baselineskip
\hfill {\supr{\the \notenumber}}\hskip 0.5em%
#1\struttwo}\ignorespaces\maintext\global\noteadjustamount=0pt}
\def\titlepagefont{\def\rom{\uimrtwentyfour}%
\def\it{\italictrue\uimitwentyfour}%
\def\bold{\uimbtwentyfour}%
\def\boldit{\uimbitwentyfour}%
\def\pirom{\uimprtwentyfour}%
\def\piit{\uimpitwentyfour}%
\def\pibold{\uimpbtwentyfour}%
\def\piboldit{\uimpbitwentyfour}%
\def\suprom{\uimrstwentyfour}%
\def\supit{\uimistwentyfour}%
\def\supbold{\uimbstwentyfour}%
\def\supboldit{\uimbistwentyfour}%
\def\junirom{\junirtwentyfour}%
\def\juniit{\juniitwentyfour}%
\def\junibold{\junibtwentyfour}%
\def\juniboldit{\junibitwentyfour}%
\def\sanserif{\umyrtwentyfour}%
\def\sanserifbold{\umybtwentyfour}%
\def\maths{\stixgenrtwentyone}%
\def\greek{\portwentyfour \greekpoly}%
\def\boldgreek{\porboldtwentyfour \greekpoly}%
\def\bolduprightgreek{\athenaboldtwentyfour \greekpoly}%
\def\altpor{\altportwentyfour}%
\parfillskip 0pt plus 2fil%
\baselineskip=30pt plus 0pt minus 0pt \rom}
\def\titlefont{\def\rom{\uimrtwelvespaced}%
\def\it{\italictrue\uimitwelvespaced}%
\def\bold{\uimbtwelvespaced}%
\def\boldit{\uimbitwelvespaced}%
\def\pirom{\uimprtwelvespaced}%
\def\piit{\uimpitwelvespaced}%
\def\pibold{\uimpbtwelvespaced}%
\def\piboldit{\uimpbitwelvespaced}%
\def\suprom{\uimrstwelve}%
\def\supit{\uimistwelve}%
\def\supbold{\uimbstwelve}%
\def\supboldit{\uimbistwelve}%
\def\junirom{\junirtwelve}%
\def\juniit{\juniitwelve}%
\def\junibold{\junibtwelve}%
\def\juniboldit{\junibitwelve}%
\def\sanserif{\umyrtwelve}%
\def\sanserifbold{\umybtwelve}%
\def\maths{\stixgenrtenpointfive}%
\def\greek{\portwelve \greekpoly}%
\def\boldgreek{\porboldtwelve \greekpoly}%
\def\bolduprightgreek{\athenaboldtwelve \greekpoly}%
\def\altpor{\altportwelve}%
\parfillskip 0pt plus 2fil%
\baselineskip=15pt plus 0pt minus 0pt \rom}
\def\elevenpoint{\def\rom{\uimreleven}%
\def\it{\italictrue\uimieleven}%
\def\bold{\uimbeleven}%
\def\boldit{\uimbieleven}%
\def\pirom{\uimpreleven}%
\def\piit{\uimpieleven}%
\def\pibold{\uimpbeleven}%
\def\piboldit{\uimpbieleven}%
\def\suprom{\uimrseleven}%
\def\supit{\uimiseleven}%
\def\supbold{\uimbseleven}%
\def\supboldit{\uimbiseleven}%
\def\junirom{\junireleven}%
\def\juniit{\juniieleven}%
\def\junibold{\junibeleven}%
\def\juniboldit{\junibieleven}%
\def\sanserif{\umyreleven}%
\def\sanserifbold{\umybeleven}%
\def\maths{\stixgenrninepointsixtwofive}%
\def\greek{\poreleven \greekpoly}%
\def\boldgreek{\porboldeleven \greekpoly}%
\def\bolduprightgreek{\athenaboldeleven \greekpoly}%
\def\altpor{\altporeleven}%
\parfillskip 0pt plus 2fil%
\baselineskip=13.5pt plus 0pt minus 0pt \rom}
\def\maintext{\global\quotefalse\def\rom{\uimrten}%
\def\it{\italictrue\uimiten}%
\def\bold{\uimbten}%
\def\boldit{\uimbiten}%
\def\pirom{\uimprten}%
\def\piit{\uimpiten}%
\def\pibold{\uimpbten}%
\def\piboldit{\uimpbiten}%
\def\suprom{\uimrsten}%
\def\supit{\uimisten}%
\def\supbold{\uimbsten}%
\def\supboldit{\uimbisten}%
\def\altsuprom{\uimaltrsten}%
\def\altsupit{\uimaltisten}%
\def\altsupbold{\uimaltbsten}%
\def\altsupboldit{\uimaltbisten}%
\def\junirom{\junirten}%
\def\juniit{\juniiten}%
\def\junibold{\junibten}%
\def\juniboldit{\junibiten}%
\def\sanserif{\umyrten}%
\def\sanserifbold{\umybten}%
\def\largemaths{\stixgenrten}%
\def\maths{\stixgenrsevenpointsixfivesixtwofive}%
\def\smallmaths{\stixgenrsixpointninefive}%
\def\tinymaths{\stixgenrsixpointtwofive}%
\def\greek{\porten \greekpoly}%
\def\uprightgreek{\umirten \greekpoly}%formerly {\athenaten
\greekpoly}
\def\boldgreek{\porboldten \greekpoly}%
\def\bolduprightgreek{\umibten \greekpoly}%formerly
{\athenaboldten \greekpoly}
\def\slopedgreek{\umiiten \greekpoly}%FOR SLOPED NON-PORSON
GREEK
\def\altpor{\altporten}%
\def\arabic{\uarabicten}%
\def\hebrew{\uhebrewten}%
\def\arial{\arialten}%
\def\texgyrerom{\texgyretermesrten}%
\def\texgyreit{\texgyretermesiten}%
\def\urlfont{\junirtencolour}%
\baselineskip=12pt \parindent = 1em \parskip = 0pt
\parfillskip 0pt plus 2fil%
\rom}
\def\extract{\quotetrue\def\rom{\uimrnine}%
\def\it{\italictrue\uiminine}%
\def\bold{\uimbnine}%
\def\boldit{\uimbinine}%
\def\pirom{\uimprnine}%
\def\piit{\uimpinine}%
\def\pibold{\uimpbnine}%
\def\piboldit{\uimpbinine}%
\def\suprom{\uimrsnine}%
\def\supit{\uimisnine}%
\def\supbold{\uimbsnine}%
\def\supboldit{\uimbisnine}%
\def\altsuprom{\uimaltrsnine}%
\def\altsupit{\uimaltisnine}%
\def\altsupbold{\uimaltbsnine}%
\def\altsupboldit{\uimaltbisnine}%
\def\junirom{\junirnine}%
\def\juniit{\juniinine}%
\def\junibold{\junibnine}%
\def\juniboldit{\junibinine}%
\def\sanserif{\umyrnine}%
\def\sanserifbold{\umybnine}%
\def\largemaths{\stixgenrnine}%
\def\maths{\stixgenrsixpointeightnine}%
\def\smallmaths{\stixgenrsixpointtwosix}%
\def\tinymaths{\stixgenrfivepointsixtwofive}%
\def\greek{\pornine \greekpoly}%
\def\uprightgreek{\umirnine \greekpoly}%formerly {\athenanine
\greekpoly}
\def\boldgreek{\porboldnine \greekpoly}%
\def\bolduprightgreek{\umibnine \greekpoly}%formerly
{\athenaboldnine \greekpoly}
\def\slopedgreek{\umiinine \greekpoly}%FOR SLOPED NON-PORSON
GREEK
\def\altpor{\altpornine}%
\def\arabic{\uarabicnine}%
\def\hebrew{\uhebrewnine}%
\def\arial{\arialnine}%
\def\texgyrerom{\texgyretermesrnine}%
\def\texgyreit{\texgyretermesinine}%
\def\urlfont{\junirninecolour}%
\baselineskip=11pt
\parfillskip 0pt plus 2fil%
\parindent=1em\parskip=0pt plus 0pt minus 0pt\rom}
\def\notes{\def\rom{\uimreight}%
\def\it{\italictrue\uimieight}%
\def\bold{\uimbeight}%
\def\boldit{\uimbieight}%
\def\pirom{\uimpreight}%
\def\piit{\uimpieight}%
\def\pibold{\uimpbeight}%
\def\piboldit{\uimpbieight}%
\def\suprom{\uimrseight}%
\def\supit{\uimiseight}%
\def\supbold{\uimbseight}%
\def\supboldit{\uimbiseight}%
\def\altsuprom{\uimaltrseight}%
\def\altsupit{\uimaltiseight}%
\def\altsupbold{\uimaltbseight}%
\def\altsupboldit{\uimaltbiseight}%
\def\junirom{\junireight}%
\def\juniit{\juniieight}%
\def\junibold{\junibeight}%
\def\juniboldit{\junibieight}%
\def\sanserif{\umyreight}%
\def\sanserifbold{\umybeight}%
\def\largemaths{\stixgenreight}%
\def\maths{\stixgenrsixpointonetwofive}%
\def\smallmaths{\stixgenrfivepointfivesixtwofive}%
\def\tinymaths{\stixgenrfive}%
\def\greek{\poreight \greekpoly}%
\def\uprightgreek{\umireight \greekpoly}%formerly
{\athenaeight \greekpoly}
\def\boldgreek{\porboldeight \greekpoly}%
\def\bolduprightgreek{\umibeight \greekpoly}%formerly
{\athenaboldeight \greekpoly}
\def\slopedgreek{\umiieight \greekpoly}%FOR SLOPED NON-PORSON
GREEK
\def\altpor{\altporeight}%
\def\arabic{\uarabiceight}%
\def\hebrew{\uhebreweight}%
\def\arial{\arialeight}%
\def\texgyrerom{\texgyretermesreight}%
\def\texgyreit{\texgyretermesieight}%
\def\urlfont{\junireightcolour}%
\baselineskip=9pt plus 0pt minus 0pt
\parfillskip 0pt plus 2fil%
\parindent=1em\parskip=0pt plus 0pt minus 0pt\rom}
\def\sevenpoint{\global\quotefalse\def\rom{\uimrseven}%
\def\it{\italictrue\uimiseven}%
\def\bold{\uimbseven}%
\def\boldit{\uimbiseven}%
\def\pirom{\uimprseven}%
\def\piit{\uimpiseven}%
\def\pibold{\uimpbseven}%
\def\piboldit{\uimpbiseven}%
\def\suprom{\uimrsseven}%
\def\supit{\uimisseven}%
\def\supbold{\uimbsseven}%
\def\supboldit{\uimbisseven}%
\def\junirom{\junirseven}%
\def\juniit{\juniiseven}%
\def\junibold{\junibseven}%
\def\juniboldit{\junibiseven}%
\def\sanserif{\umyrseven}%
\def\sanserifbold{\umybseven}%
\def\maths{\stixgenrsixpointonetwofive}%
\def\greek{\porseven \greekpoly}%
\def\boldgreek{\porboldseven \greekpoly}%
\def\bolduprightgreek{\athenaboldseven \greekpoly}%
\def\altpor{\altporseven}%
\baselineskip=8pt \parindent = 1em \parskip = 0pt
\parfillskip 0pt plus 2fil%
\rom}
\skip\footins=\medskipamount
%%TO PLACE A BOX ROUND TEXT WITHOUT PSTRICKS:
\def\boxed#1{\leavevmode \setbox0=\hbox{#1}%
\tempwidth=\wd0 \advance \tempwidth by 0.5em%
\scratchwidth=\ht0 \advance \scratchwidth by \dp0 \advance
\scratchwidth by 0.5em
\smash{\lower 0.25em \hbox{\vrule height \scratchwidth depth 0pt
width 0.25pt}}%
\setbox0=\hbox{#1}%
\kern -0.25pt \kern 0.25em \copy0 \kern 0.25em \kern -0.25pt
\smash{\lower 0.25em \hbox{\vrule height \scratchwidth depth 0pt
width 0.25pt}}%
\setbox0=\hbox{#1}%
\scratchwidth=\ht0 \advance \scratchwidth by 0.25em
\llap{\smash{\raise \scratchwidth \hbox{\vrule height 0pt depth
0.25pt
width \tempwidth}}}%
\scratchwidth=\dp0 \advance \scratchwidth by 0.25em
\llap{\smash{\lower \scratchwidth \hbox{\vrule height 0.25pt depth
0pt
width \tempwidth}}}%
}%
\def\quoteskip{\vskip 0.75\baselineskip minus 0.25\baselineskip}
\def\largequoteskip{\vskip 0.825\baselineskip minus 0.25\baselineskip}%WHERE
NEEDED TO BUMPH OUT PAGE; also \threequarterskip
\def\startquote{\quoteskip \extract \noindent}
\def\endquote{\par \maintext
\english
\quoteskip \parfillskip 0pt plus \hsize
\noindent}
\def\enddialogue#1{\unskip \nobreak \hfil \penalty50 \hskip2em
\hbox{}\nobreak \hfil
\hbox{(#1)}\parfillskip=0pt \finalhyphendemerits=0\hangindent 1em \par
\parfillskip 0pt
plus \hsize \maintext \english
\quoteskip
\noindent}
\def\enddialoguewithfn#1#2{\unskip \nobreak \hfil \penalty50 \hskip2em
\hbox{}\nobreak \hfil
\hbox{(#1)\manualcue}\parfillskip=0pt \finalhyphendemerits=0\hangindent
1em \par \nobreak \parfillskip 0pt
plus \hsize \par \nobreak \kern -\baselineskip \nobreak \hbox to
1em{\hfil}\manualnote{#2\cancelindents}\par
\maintext \english
\quoteskip
\noindent}
%WHERE LARGER GAP BETWEEN QUOTE AND MAIN TEXT REQUIRED:
\def\startloosequote{\largequoteskip \extract \noindent}
\def\endloosequote{\par \maintext
\english
\largequoteskip \parfillskip 0pt plus \hsize
\noindent}
%WHERE SMALLER GAP BETWEEN QUOTE AND MAIN TEXT REQUIRED:
\def\starttightquote{\threeeighthsskip \extract \noindent}
\def\endtightquote{\par \maintext
\english
\threeeighthsskip \parfillskip 0pt plus \hsize
\noindent}
\def\startverytightquote{\quarterskip \extract \noindent}
\def\endverytightquote{\par \maintext
\english
\quarterskip \parfillskip 0pt plus \hsize
\noindent}
\def\quarterskip{\vskip 0.375\baselineskip minus 0.125\baselineskip}
\def\quarterkern{\unskip \endgraf \nobreak \kern 0.25\baselineskip \nobreak}
\def\threeeighthsskip{\vskip 0.5\baselineskip minus 0.125\baselineskip}
\def\threequarterskip{\vskip 1.0\baselineskip minus 0.25\baselineskip}
\def\cancelindents{\hangindent0pt \leftskip 0pt \rightskip 0pt}
\def\author{}%
\def\leftheadline{\maintext\hbox to \hsize{\rom\folio\hfil}\hskip%
-\hsize\hfil\it\author\hfil\global\newchapfalse}
\def\rightheadline{\maintext \hbox to \hsize{\hfil\it\shorttitle\hfil}\hskip
-\hsize\hfil\rom\folio\global\newchapfalse}
\headline={\ifnewchap\global\newchapfalse\hfill
\else\ifodd\pageno\rightheadline\global\newchapfalse
\else\leftheadline\newchapfalse\fi\fi}
\def\makeheadline{\vbox to 0pt{\vskip-16.5pt
\line{\vbox to
8.5pt{}\the\headline}\vss}\nointerlineskip%
\global\newchapfalse}
\def\raggedcentre{\leftskip=0pt plus 2em \rightskip=\leftskip
\parfillskip=0pt \spaceskip=.3333em \xspaceskip = .5em \pretolerance=9999
\tolerance=9999 \parindent=0pt \hyphenpenalty=9999 \exhyphenpenalty=9999}
\def\aahead#1{\unskip \vskip 18pt
\begingroup \clubpenalty=10000%
{\elevenpoint \raggedcentre\vrule height 22pt depth 0pt width 0pt
#1\par}\endgroup \nobreak
\kern 10.5pt \nobreak \noindent \ignorespaces \maintext}
\def\aaheadnoformat#1{\unskip \vskip 18pt%NO LETTER-SPACING
\begingroup \clubpenalty=10000%
{\titlefont \raggedcentre \spaceskip 0.25em \vrule height 22pt depth 0pt
width 0pt
#1\par}\endgroup \nobreak
\kern 12pt \nobreak \noindent \ignorespaces \maintext}
\def\aaplusahead#1#2{\unskip \vskip 12pt
\begingroup \clubpenalty=10000%
{\titlefont \raggedcentre \altfont \vrule height 22pt depth 0pt width 0pt
\letterspace #1\endletterspace\par}\nobreak
\kern 9pt \nobreak \maintext \noteadjustamount12pt
{\raggedcentre \spaceskip 0.25em
\leavevmode #2\par}\nobreak \kern 9pt \nobreak \noindent
\ignorespaces \endgroup \noteadjustamount0pt \maintext}
\def\aaplusaheadnoformat#1#2{\unskip \vskip 18pt%NO LETTER-SPACING IN
AA-HEAD
\begingroup \clubpenalty=10000%
{\titlefont \raggedcentre \spaceskip 0.25em \vrule height 22pt depth 0pt
width 0pt #1\par}\nobreak
\kern 9pt \nobreak \maintext \noteadjustamount12pt
{\raggedcentre \spaceskip 0.25em
\leavevmode #2\par}\nobreak \kern 9pt \nobreak \noindent
\ignorespaces \endgroup \noteadjustamount0pt \maintext}
%%MINIMUM CAPS:
\def\aheadone#1{\unskip \vskip 12pt
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext
\spaceskip=0.25em \raggedcentre \spaceskip=0.25em \leavevmode
\noindent
\vrule height 22pt depth 0pt width 0pt
#1\par\endgroup\nobreak\kern 9pt\nobreak
\noindent\ignorespaces \noteadjustamount=0pt \maintext}
\def\aheadtwo#1{\unskip \vskip 12pt
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext \raggedcentre \leavevmode
\noindent
\vrule height 22pt depth 0pt width 0pt
\letterspace #1\endletterspace\par\endgroup\nobreak\kern 9pt\nobreak
\noindent\ignorespaces \noteadjustamount=0pt \maintext}
\def\aplusbhead#1#2#3{\unskip \vskip 12pt
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext \raggedcentre \vrule height 22pt depth 0pt width 0pt
#1\par\endgroup\nobreak\kern 9pt\nobreak
\noindent
\noteadjustamount=0pt \maintext \begingroup
\setbox0=\hbox{\it {\rom (}#2{\rom )}}\parindent = \wd0
\advance \parindent by 0.5em \unskip \noindent
\item{\it{\rom (}#2{\rom )}} {\it #3}\par\endgroup
\nobreak\kern 6pt\nobreak\noindent\ignorespaces}
\def\aplusbheadtwo#1#2{\unskip \vskip 12pt%WHERE THERE IS NO (a) (b) IN
B-HEAD
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext \raggedcentre \vrule height 22pt depth 0pt width 0pt
#1\par\endgroup\nobreak\kern 9pt\nobreak
\noindent
\noteadjustamount=0pt \maintext \begingroup
\unskip \noindent
{\it #2}\hangindent 1em \par\endgroup
\nobreak\kern 6pt\nobreak\noindent\ignorespaces}
\def\aplusbheadtwotight#1#2{\unskip \vskip 12pt%WHERE THERE IS NO (a) (b) IN
B-HEAD; BUNCHES UP THE TWO HEADINGS
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext \raggedcentre \vrule height 22pt depth 0pt width 0pt
#1\par\endgroup\nobreak\kern 3pt\nobreak
\noindent
\noteadjustamount=0pt \maintext \begingroup
\unskip \noindent
{\it #2}\hangindent 1em \par\endgroup
\nobreak\kern 3pt\nobreak\noindent\ignorespaces}
\def\bhead#1#2{\unskip\goodbreak \maintext\begingroup \clubpenalty=10000
\raggedright
\vskip 15pt plus 0pt minus 3pt
\setbox0=\hbox{\it {\rom (}#1{\rom )}}\parindent = \wd0 \advance
\parindent by 0.5em
\item{\it {\rom (}#1{\rom )}} {\it \spaceskip 0.25em #2}\par\endgroup
\nobreak\kern 6pt\nobreak\noindent\ignorespaces \maintext}
%%WHERE THERE IS NO PRECEDING (a) (b) ETC.:
\def\bheadtwo#1{\unskip\goodbreak \maintext\begingroup
\raggedright
\clubpenalty=10000 \vskip 15pt plus 0pt minus 3pt
\noindent
{\it \spaceskip 0.25em #1}\par
\endgroup \nobreak\kern 6pt\nobreak\noindent\ignorespaces \maintext}
\def\chead #1#2{\unskip\goodbreak \begingroup \clubpenalty=10000 \vskip
7.5pt plus 0pt minus 1.5pt
\maintext \indent \rom (#1) {\it \spaceskip 0.25em #2}.\ \endgroup}
%%WHERE THERE IS NO PRECEDING (1) (2) ETC.: (NB \cheadtwo defined below for
decimalized structure)
\def\cheadthree#1{\unskip\goodbreak \begingroup \clubpenalty=10000 \vskip
7.5pt plus 0pt minus 1.5pt
\maintext \noindent {\it #1}\hskip 1em \endgroup}
\def\dhead [#1] #2{\unskip\goodbreak \begingroup \clubpenalty=10000 \vskip
7.5pt plus 0pt minus 1.5pt
\maintext \indent \symbol [#1] {\it #2}\rom \ \endgroup}
%%FOR DECIMALIZED 1.1, 1.1.1, ETC.:
\def\aplusbheadthree#1#2#3{\unskip \vskip 12pt
\noteadjustamount=12pt
\begingroup \clubpenalty=10000%
\maintext \raggedcentre \vrule height 22pt depth 0pt width 0pt
#1\par\endgroup\nobreak\kern 3pt\nobreak
\noteadjustamount=0pt \maintext \begingroup
\raggedright
\setbox0=\hbox{#2.}\parindent = \wd0
\advance \parindent by 0.5em
\item{#2.} {\it \spaceskip 0.25em #3}\par\endgroup \nobreak\kern
6pt\nobreak\noindent\ignorespaces}
\def\bheadthree#1#2{\unskip\goodbreak \begingroup
\clubpenalty=10000 \vskip 15pt plus 0pt minus 3pt
\maintext \raggedright
\setbox0=\hbox{#1.}\parindent = \wd0 \advance \parindent by
0.5em
\item{#1.} {\it \spaceskip 0.25em #2}\par\endgroup \nobreak\kern
6pt\nobreak\noindent\ignorespaces\maintext}
\def\cheadtwo#1#2{\unskip\vskip 12pt plus 0pt minus 3pt
\maintext \noindent \hskip 1sp #1. {\it #2}\hskip 1em}
%%FOR B AND C HEADS WITHIN SMALL-TYPE SECTIONS
\def\smallbhead (#1) #2{\unskip\goodbreak \extract\begingroup
\clubpenalty=10000 \vskip 13pt plus 0pt minus 2pt
\setbox0=\hbox{\it (#1)}\parindent = \wd0
\advance \parindent by 0.5em
\item{\it(#1)} {\it \spaceskip 0.25em #2}\par\endgroup \unskip
\nobreak\kern 5.5pt\nobreak\noindent\ignorespaces
\extract \ignorespaces \unskip}
\def\smallchead (#1) #2{\unskip\goodbreak \begingroup \clubpenalty=10000
\vskip 6.5pt plus 0pt minus 1pt
\extract \indent \rom (#1) {\it #2}.\ }
\def\bibliohead{\unskip \maintext\vskip 12pt plus 6pt minus 0pt
\centerline{\vrule height 24pt depth 0pt width 0pt
{\extract\letterspace BIBLIOGRAPHY\endletterspace}}\par
\nobreak\kern 6pt \nobreak \extract \parskip 0pt plus 1pt
\noindent}
%%APPENDIX HEADING (Capitalize Main Words):
\def\apphead#1{\unskip\maintext\vskip 12pt plus 6pt minus 0pt
\centerline{\vrule height 24pt depth 0pt width 0pt
{\extract\letterspace APPENDIX\endletterspace}}\par
\nobreak\kern 2pt \nobreak
\begingroup \maintext \raggedcentre
\spaceskip0.25em #1\par
\nobreak \endgroup \kern 12pt
\nobreak\noindent\extract\ignorespaces \unskip \ignorespaces}
%%NUMBERED or LETTERED APPENDIX HEADING (initial caps on main words):
\def\appheadnum#1#2{\unskip\maintext\vskip 12pt plus 6pt minus 0pt
\centerline{\vrule height 24pt depth 0pt width 0pt
\extract{\letterspace APPENDIX\ \endletterspace}%
{\altfont \letterspace #1\endletterspace}}\par
\nobreak\kern 2pt \nobreak
\begingroup \maintext \raggedcentre
\spaceskip0.25em #2\par
\nobreak \endgroup \kern 12pt
\nobreak\noindent\extract\ignorespaces \unskip \ignorespaces}
%%LETTERED UNTITLED APPENDIX HEADING
\def\appheadletternotitle#1{\unskip\maintext\vskip 12pt plus 6pt minus 0pt
\centerline{\vrule height 24pt depth 0pt width 0pt
\extract \letterspace APPENDIX\ \endletterspace #1}\par
\nobreak \kern 12pt
\nobreak\noindent\extract\ignorespaces \unskip \ignorespaces}
%%APPENDIX HEADING WITH TITLE AND AUTHOR
%% (Capitalize Main Words of Title and fully capitalize AUTHOR):
\def\appheadtitleauthor#1#2{\unskip\maintext\vskip 12pt plus 6pt minus 0pt
\centerline{\vrule height 24pt depth 0pt width 0pt
{\titlefont \it #1}}\par
\nobreak\kern 6pt \nobreak
\begingroup \extract \raggedcentre
\it by \rom \letterspace #2\endletterspace \par
\nobreak \endgroup \kern 12pt
\nobreak\noindent\extract\ignorespaces \unskip \ignorespaces}
\def\bibpar{\hangindent 1em \par \noindent}
\def\bibparnobreak{\hangindent 1em \par \nobreak \noindent}
\def\catchline#1{\leavevmode \smash{\lower \baselineskip
\hbox{\llap{{\rom [}\it #1}}}}
\def\contentsentry#1#2#3{\vbox{\hsize=21.916pc
\def\raggedright{\rightskip = 0pt plus 2em}
\hyphenpenalty=10000\raggedright\noindent\spaceskip=0.3em plus 0.0333em
#1}\par
\nobreak\kern -\baselineskip \nobreak \hfill #2\par \nobreak \parindent =
1em
\nobreak{\sevenpoint\letterspace #3\endletterspace \maintext \hangindent
1em}\hfill}
\def\cq{'}
\def\endaltfont{\relax}
\def\endbold{\relax}
\def\endboldit{\relax}
\def\endgreek{\relax}
\def\endsupr{\relax}
\def\enduline{\relax}
%%TEX FRACTIONS
\def\texhalf{$1\over \raise 0.15em \hbox{$\scriptstyle 2$}$}
\def\texquarter{$1\over \raise 0.15em \hbox{$\scriptstyle 4$}$}
%%%%%%%%%%%%
\def\backslash{\leavevmode {\rom \char"005C}}
\def\hardemrule{\leavevmode \hbox to 0pt{}\setbox0=\hbox{---}\kern \wd0
\llap{\box0}\nobreak}
\def\hardenrule{\leavevmode \hbox to 0pt{}\setbox0=\hbox{--}\kern \wd0
\llap{\box0}\nobreak}
\def\hardhyphen{\leavevmode \hbox to 0pt{}\setbox0=\hbox{-}\kern \wd0
\llap{\box0}\nobreak}
\def\identicalto{\leavevmode \unskip
\kern 0.2em {\maths \char"2261}\hskip 0.2em}%TRIPLE-LINE EQUALS
\def\leftmargno#1{\setbox0=\hbox{\rom (}\def\strutdepth{\dp0}\leavevmode
\rlap{\phantom{\rom (}}\vadjust{\kern -\strutdepth
\vtop to \strutdepth{\baselineskip\strutdepth \vss
\llap{\notes #1\kern 0.5pc}\null}}}
\def\rightmargno#1{\setbox0=\hbox{\rom (}\def\strutdepth{\dp0}\leavevmode
\rlap{\phantom{\rom (}}\vadjust{\kern -\strutdepth
\vtop to \strutdepth{\baselineskip\strutdepth \vss
\line{\hfil \rlap{\kern 0.5em \notes #1}}\null}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%FOR MARGINAL SECTION NUMBERS WITHIN TEXT WIDTH (see OSAP 52: 59-60)
\def\strutdepth{\dp\strutbox}
\def\sectnum#1{\strut\vadjust{\kern -\strutdepth
\vtop to \strutdepth{\baselineskip \strutdepth \vss \rlap{\notes \rom
#1}\null}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\linenum#1{\unskip \par \nobreak
\kern -\baselineskip \nobreak
\noindent
\hbox to \hsize{\hfil \notes #1}\par}
%%FOR TABLES:
\def\lineno#1{\noalign{\nobreak \kern -\baselineskip \nobreak
\hbox to \hsize{\hfil \notes #1}}}
\def\linespace{\unskip \maintext \vskip \baselineskip \noindent
\leavevmode \hbox to 0pt{}}
%%IN APPENDICES:
\def\linespaceextract{\unskip \extract \vskip \baselineskip \noindent
\leavevmode}
\def\proportioncolon{\leavevmode \kern 0.2em {\rom :}\kern 0.2em }
\def\doubleproportioncolon{\leavevmode \kern 0.2em {\rom ::}\kern 0.2em }
\def\signed#1{\unskip \nobreak \hfil \penalty50 \hskip2em \hbox{}%
\nobreak \hfil \hbox{#1}\parfillskip=0pt
\finalhyphendemerits=0\endgraf
\global \parfillskip0pt plus \hsize}
\def\smashcap#1{\leavevmode \smash{#1}}
\def\Swungdash{\leavevmode \kern 0.05em {\char"007E}\hskip 0.05em}%CAP S
since \swungdash REMOVED BY SARA
\def\twoemrule{\leavevmode \raise 0.3em \hbox{\vrule height 0.2pt width
2em depth 0pt}{\kern 0.2em}}
\def\lowrule#1{\leavevmode \smash{\vrule height -0.25pt depth 0.5pt width
#1}}
\def\midrule#1{\leavevmode \tempwidth=0.6ex
\advance \tempwidth by 0.25pt
\smash{\vrule height \tempwidth depth -0.6ex width #1}}
\def\plusspaced{%TO WIDEN SPACE ROUND +
\hbox{\kern 0.1em \plus}\hskip 0.1em}
%%FRACTIONS WITH RANGING FIGS AND SLASH
\def\slashfraction#1#2{\leavevmode
{\altsupr{#1}}\kern -0.1em /\kern -0.1em {\altinfr{#2}}}
\def\underlinechar{\char"005F}
\def\vertical{\leavevmode \kern 0.075em
\smash{\vrule height 0.75em depth 0.2em width 0.05em}\kern 0.05em}
\def\doublevertical{\hbox{\vertical \kern -0.05em \vertical}}
\maintext
\def\entails{{\leavevmode\kern 0.2em \hbox{\vrule height 0.65em
width 0.4pt depth 0pt}\raise 0.3325em \hbox{\vrule
height 0.2pt width 0.24em depth 0pt}\hskip 0.2em}}
\def\operatorand{\leavevmode \kern 0.2em {\ampersand}\hskip
0.2em }
\def\square{\leavevmode \scalebox{0.8 0.8}{\altfont \char'043}\kern 0.2em}
\newdimen\trimsize \trimsize=3.5pc
\newbox\versoverticalboundary \newbox\versohorizontalboundary
\setbox\versoverticalboundary\hbox{\baselineskip=0pt\llap{{\vrule height 2pc
width 0.25pt depth 0pt}\kern 0.25pt\kern 22.76827mm}\kern\hsize%
\rlap{\kern\trimsize{\vrule height 2pc width 0.25pt depth 0pt}}}
\setbox\versohorizontalboundary\hbox{\baselineskip=0pt\llap{{\vrule height
0.25pt width 3pc depth 0pt}\kern 0.5pc\kern 22.76827mm}%
\kern\hsize\rlap{\kern\trimsize\kern0.5pc{\vrule height 0.25pt width 3pc
depth 0pt}}}
\newbox\rectoverticalboundary \newbox\rectohorizontalboundary
\setbox\rectoverticalboundary\hbox{\baselineskip=0pt\llap{{\vrule height 2pc
width 0.25pt depth 0pt}\kern 0.25pt\kern\trimsize}\kern\hsize%
\rlap{\kern 22.76827mm{\vrule height 2pc width 0.25pt depth 0pt}}}
\setbox\rectohorizontalboundary\hbox{\baselineskip=0pt\llap{{\vrule height
0.25pt width 3pc depth 0pt}\kern 0.5pc\kern\trimsize}%
\kern\hsize\rlap{\kern 22.76827mm\kern 0.5pc{\vrule height 0.25pt width
3pc depth 0pt}}}
\def\makefootline{\baselineskip=24pt \leftskip 0pt \rightskip 0pt
\noindent \endgraf
\kern -48pc \noindent
\hbox{\kern 3pc \tt
\rlap{Created on \the\day\
\the\monthtext\ \the\year\ at \the\hours
.\the\zerotext\the\mins\ hours\ page \folio}}}
%%DEFINITIONS FOR COMMON REFERENCES:
\def\call{{\altfont \letterspace call\endletterspace .\ }}%Callicles in
dialogue
\def\chaer{{\altfont \letterspace chaer\endletterspace .\ }}%Chaerephon in
dialogue
\def\crito{{\altfont \letterspace crito\endletterspace .\ }}%Crito in
dialogue
\def\elstranger{{\altfont \letterspace e.s\endletterspace .\ }}%Eleatic
Stranger in dialogue
\def\glaucon{{\altfont \letterspace glaucon\endletterspace .\ }}%Glaucon in
dialogue
\def\gorg{{\altfont \letterspace gorg\endletterspace .\ }}%Gorgias in
dialogue
\def\hipp{{\altfont \letterspace hipp\endletterspace .\ }}%Hippias in
dialogue
\def\mel{{\altfont \letterspace mel\endletterspace .\ }}%Meletus in dialogue
\def\meno{{\altfont \letterspace meno\endletterspace .\ }}%Meno in dialogue
\def\phaedrus{{\altfont \letterspace phaedr\endletterspace .\ }}%Phaedrus in
dialogue
\def\polus{{\altfont \letterspace polus\endletterspace .\ }}%Polus in
dialogue
\def\pro{{\altfont \letterspace pro\endletterspace .\ }}%Protarchus or
Protagoras in dialogue
\def\slave {{\altfont \letterspace slave\endletterspace .\ }}%Slave (e.g.
Meno's) in dialogue
\def\soc{{\altfont \letterspace soc\endletterspace .\ }}%Socrates in
dialogue
\def\theaet{{\altfont \letterspace theaet\endletterspace .\ }}%Theaetetus in
dialogue
\def\HMa{\leavevmode {\it H\kern -0.12em .\kern 0.05em Ma.\/}}%improves
H.Ma. appearance
%%%%%%%%
\newif\ifcontentsstart
\newif\ifitalic
\newif\ifnewchap
\newif\ifpageblank
\newif\ifsuppresspages
\newtoks\publicationyear
\newchaptrue
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%SETS UP LANGUAGE HYPHENATION:
\def\catalan{\uselanguage{catalan}\righthyphenmin=3}%
\def\english{\uselanguage{british}}%
\def\french{\uselanguage{french}}%
\def\galician{\uselanguage{galician}\righthyphenmin=3}%
\def\german{\uselanguage{ngerman-x-latest}\righthyphenmin=3}%
\def\germanold{\uselanguage{german-x-latest}\righthyphenmin=3}%
\def\greekmono{\uselanguage{monogreek}\lefthyphenmin=2\righthyphenmin=3}%
\def\greekpoly{\uselanguage{polygreek}\lefthyphenmin=2\righthyphenmin=3}%
\def\italian{\uselanguage{italian}\righthyphenmin=3}%
\def\latin{\uselanguage{latin}\righthyphenmin=3}%
\def\polish{\uselanguage{polish}\righthyphenmin=3}%
\def\portuguese{\uselanguage{portuguese}}%
\def\russian{\uselanguage{russian}\righthyphenmin=3}%
\def\spanish{\uselanguage{spanish}\righthyphenmin=3}%
\def\welsh{\uselanguage{welsh}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%SQUARE QUINE QUOTES ┌ AND ┐ (hex 250C and 2510)
\catcode"250C=\active
\catcode"2510=\active
\def┌{\leavevmode {\junirom \char"2E00}\kern 1sp}%
\def┐{\leavevmode \kern 1sp {\junirom \char"2E23}}%
%%IMPROVES SPACING OF GREEK APOSTROPHE:
\catcode"1FBF=\active
\def᾿{\hbox to 0.2em{\hfill \char"1FBF\hfill}}
%%CONCATENATION SYMBOL:
\catcode"2218=\active
\def∘{\leavevmode \lower 0.1em \hbox{\psscalebox{1.3}{\largemaths
\char"2218}}}
\catcode"25E6=\active
\def◦{\leavevmode {\texgyrerom \char"25E6}}
\def\concat{\leavevmode \kern 0.1em ∘\hskip 0.1em}
\def\concat{\leavevmode \kern 0.1em ◦\hskip 0.1em}
%%TO IMPROVE GREEK BREATHINGS+CAPITAL
%%PENDING FURTHER EDITING OF PORSON
\catcode"1F08=\active
\defἈ{᾿\kern -0.2em Α}
\catcode"1F18=\active
\def Ἐ{᾿\kern 0.035em Ε}
\catcode"1F19=\active
\def Ἑ{῾\kern 0.1em Ε}
\catcode"1F29=\active
\defἩ{῾\kern 0.1em Η}
\catcode"1F38=\active
\defἸ{᾿\kern 0.1em Ι}
\catcode"1F49=\active
\def Ὁ{῾\kern 0.15em Ο}
\catcode"1F4D=\active
\def Ὅ{῞\kern 0.15em Ο}
\catcode"1F68=\active
\defὨ{᾿\kern 0.025em Ω}%smooth breathing
%%Arabic transliteration (active to keep file tidy, double {} so following #
is respected):
\catcode"02BE=\active
\defʾ{{\leavevmode
\ifitalic\texgyreit\char"02BE\else
\texgyrerom\char"02BE\fi}}%alif
\catcode"02BF=\active
\defʿ{{\leavevmode
\ifitalic\texgyreit\char"02BF\else
\texgyrerom\char"02BF\fi}}%ayin
\catcode"1E0D=\active
\defḍ{{\dotax{d}}}
\catcode"1E0C=\active
\defḌ{{\dotax{D}}}
\catcode"1E25=\active
\defḥ{{\dotax{h}}}
\catcode"1E24=\active
\defḤ{{\dotax{H}}}
\catcode"1E63=\active
\defṣ{{\dotax{s}}}
\catcode"1E62=\active
\defṢ{{\dotax{S}}}
\catcode"1E6D=\active
\defṭ{{\dotax{t}}}
\catcode"1E6C=\active
\defṬ{{\dotax{T}}}
\catcode"1E93=\active
\defẓ{{\dotax{z}}}
\catcode"1E92=\active
\defẒ{{\dotax{Z}}}
%%MATHS/LOGIC OPERATORS
%%NB DISPLAY IN STIXGeneral TO SHOW UP
%%CAUSES STACK OVERFLOW:
%\catcode"2227=\active
%\def ∧{{\smallmaths ∧}}
\def\diamond{\leavevmode \raise 0.05em \hbox{{\largemaths ♢}}}
\def\doublerightarrow{\leavevmode \kern 0.1em \raise 0.045em \hbox{\maths
⇒}\hskip 0.1em}
\def\exists{{\maths ∃}\kern 0.05em }
\def\forall{{\largemaths ∀}\kern 0.05em }
\def\greaterthanorequals{\leavevmode \kern 0.1em {\smallmaths
\char"2265}\hskip 0.1em}%≥
\def\greaterthanorequivalent{\leavevmode \kern 0.1em {\smallmaths
\char"2273}\hskip 0.1em}%≥
\def\identical{\leavevmode \kern 0.1em \raise 0.05em \hbox{\maths
\char"2261}\hskip 0.1em}%≡
\def\leftrightarrow{\leavevmode \kern 0.1em \raise 0.045em \hbox{\maths
↔}\hskip 0.1em}
\def\lognot{{\maths \char"00AC}\kern 0.05em}
\def\lowline{\leavevmode {\rom \_\kern 0.05em}}
\def\lozengeopen{\leavevmode \raise 0.135em \hbox{\tinymaths ◊}\hskip
0.05em }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%MUSICAL SORTS:
\def\flat{{\arial \char"266D}}
\def\natural{{\arial \char"266E}}
\def\sharp{{\arial \char"266F}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\minus{\leavevmode \kern 0.1em \enrule \hskip 0.1em}
\def\notequals{\leavevmode \kern 0.1em
\smash{\raise 0.05em \hbox{\maths \char"2260}}\hskip 0.1em}%≠
\def\rightarrow{\leavevmode \kern 0.1em \raise 0.025em \hbox{\maths →}\kern
0.1em }
\def\squareopen{\leavevmode \raise 0.065em \hbox{\tinymaths □}\kern 0.05em}
\def\times{\leavevmode \kern 0.1em {\smallmaths \char"00D7}\hskip 0.1em}
\def\vel{\kern 0.1em {\maths ∨}\hskip 0.1em}
\def\velinverted{\kern 0.1em {\maths ∧}\hskip 0.1em}
\def\VFILL{\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill \vfill
\vfill \vfill \vfill \vfill}
\XeTeXdashbreakstate 1%Allows linebreaks after dashes
\TeXXeTstate=1% this turns e-TeX's bidi functionality on
\def\intextarab#1{{\arabic {\beginR #1\endR}}}
%%FOR CLICKABLE URLS
%%\psscalebox needed since it thinks > is part of the address
\newif\ifcolourpics
\def\url#1{#1}%TO PRINT CONTRIBUTORS' EMAILS IN PROOFS
\def\URL#1{\ifcolourpics
{\leavevmode \let\percent\% \rom <{\urlfont\url{#1}}\psscalebox{-1
1}{<}}\else
{\rom <#1>}\fi}
%%URL (e.g. email address) with no surrounding < >:
\def\URLnobrackets#1{\ifcolourpics
{\leavevmode \rom {\urlfont\url{#1}}}\else
{\rom #1}\fi}
\english
%%EXPERIMENTAL (OS2010A):
\pretolerance -1%FORGOES NON-HYPHENATING PASS
\tolerance 300%REDUCES OVERFULL RULES
\emergencystretch 2em%DITTO
%%%%%%%%%%%%%%%%%%%%%%%
%%USE IN GROUPS TO SHORTEN PARA.
%%IN EMERGENCY:
\def\tightspaceskip{\spaceskip 0.15em plus 0.2em}
%%%%%%%%%%%%%%%%%%%%%%%
%%%FOLLOWING DOUBLES UP ALL FOOTNOTES
\doubleuptrue
\input D:/TEXFILES/TEXINPUT/TEXDOCS/unidefs/uhyphens
\input osaphyph%HYPHENS SPECIFIC TO OSAP
\global\def\altfont{\pirom}
\vbox to 24pt{}
\titlefont

And then to kick off any particular issue:

%%!!!!!!CHECK PUBLICATION YEAR!!!!!!!
\input osaphead%
%ADJUST IF INACCURATE IN FIRST ARTICLE:
%%SHOULD BE 100pt FROM CROPMARK
%%TO BASELINE OF FIRST LINE OF TITLE
\newdimen\firststarthitchup
\firststarthitchup=-13pt
\pageno=1
\publicationyear={2017}
\topglue \firststarthitchup
\newif\ifoffprints
%%UNCOMMENT FOLLOWING LINE TO CANCEL CROPMARKS AND TIME STAMP
%\global \def \makefootline{} \advance \hoffset by 50pt \advance \voffset by
18pt \global \offprintstrue
%%EDMAC CROPMARKS (FROM 2011)
%%#1=vertical distance between cropmarks
%%#2=horizontal distance between cropmarks
%%#3= head margin
%%#4=backmargin
%%formerly 216mm, 136mm, 3.5pc (then 46.25 true pt up to os2016a)
\ifoffprints \relax \else \cropsetup{216 true mm}{135 true mm}{29pt}{42 true
pt}\fi

The individual articles follow after that, with \input Bloggs \input Smith
etc. But if I don't input any articles, only the simple tikz file above, I
get the six lines of package info.

I doubt if this helps much!

John

-----Original Message-----
From: Philip Taylor
Sent: Saturday, May 13, 2017 12:07 PM
To: XeTeX (Unicode-based TeX) discussion.
Subject: Re: [XeTeX] Using tikz with plain XeTeX

I get six lines of info in the output (the sort of thing I’d expect in the log)

Can you please post the /full/ code that results in this ?
Philip Taylor

--------------------------------------------------
Subscriptions, Archive, and List information, etc.:
http://tug.org/mailman/listinfo/xetex

--------------------------------------------------
Subscriptions, Archive, and List information, etc.:
http://tug.org/mailman/l