[XeTeX] Using tikz with plain XeTeX

John Was john.was at ntlworld.com
Sat May 13 13:30:14 CEST 2017


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



John Was wrote:
> 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 



More information about the XeTeX mailing list