diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/text1/pc |
Initial commit
Diffstat (limited to 'macros/text1/pc')
91 files changed, 2506 insertions, 0 deletions
diff --git a/macros/text1/pc/blocks/appendix.blk b/macros/text1/pc/blocks/appendix.blk new file mode 100644 index 0000000000..0000bd5a39 --- /dev/null +++ b/macros/text1/pc/blocks/appendix.blk @@ -0,0 +1,16 @@ +% Default values for the \appendix markup +\appendixformat{\numberingstyle{A} + \titleformat{\dumpinsertseject + \centerline{\twelvept\bold Appendix \appendixnumber} + \centerline{\twelvept\bold\appendixtitle} + \vs{1\bl} + \setchapternumber{0} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + \setfigurenumber{0} + \settablenumber{0} + }% end titleformat + \incontents{yes} +}% end appendix format diff --git a/macros/text1/pc/blocks/asism.blk b/macros/text1/pc/blocks/asism.blk new file mode 100644 index 0000000000..c5ea6006c4 --- /dev/null +++ b/macros/text1/pc/blocks/asism.blk @@ -0,0 +1,5 @@ +% Default values for \asisbegin in \monospace +\asisformat{\skipbefore{1\bl} + \everyasis{\leftindent{0pt}} + \skipafter{1\bl} +}% end as is format diff --git a/macros/text1/pc/blocks/asisp.blk b/macros/text1/pc/blocks/asisp.blk new file mode 100644 index 0000000000..c9a65c3860 --- /dev/null +++ b/macros/text1/pc/blocks/asisp.blk @@ -0,0 +1,5 @@ +% Default values for the \asisbegin markup +\asisformat{\skipbefore{6pt} + \everyasis{\leftindent{0pt}} + \skipafter{6pt} +}% end as is format diff --git a/macros/text1/pc/blocks/bibliog.blk b/macros/text1/pc/blocks/bibliog.blk new file mode 100644 index 0000000000..691cee2263 --- /dev/null +++ b/macros/text1/pc/blocks/bibliog.blk @@ -0,0 +1,10 @@ +% Default values for the \bibliography markup +\bibliographyformat{% + \titleformat{\dumpinsertseject + \centerline{\twelvept\bd\bibtitle} + \vs{\bl} + }% end titleformat + \everybibentry{\vs{1\bl}\goodbreak\hp\nin} + \sameauthorrulesize{width 3em height .6ex depth -.5ex} + \incontents{yes} +}% end bibliographyformat markup diff --git a/macros/text1/pc/blocks/bquotem.blk b/macros/text1/pc/blocks/bquotem.blk new file mode 100644 index 0000000000..87d2605a8a --- /dev/null +++ b/macros/text1/pc/blocks/bquotem.blk @@ -0,0 +1,7 @@ +% Defaults for \blockquotebegin in \monospace +\blockquoteformat{\skipbefore{1\bl} + \everyblockquote{\rm\leftindent{36pt} % 36pt = .5in + \rightindent{36pt} + } + \skipafter{1\bl} +}% end monospace block quote begin format diff --git a/macros/text1/pc/blocks/bquotep.blk b/macros/text1/pc/blocks/bquotep.blk new file mode 100644 index 0000000000..4fdf50b4c9 --- /dev/null +++ b/macros/text1/pc/blocks/bquotep.blk @@ -0,0 +1,7 @@ +% Defaults for the \blockquotebegin markup +\blockquoteformat{\skipbefore{6pt} + \everyblockquote{\tenpt\leftindent{24pt} % 24pt = .3in + \rightindent{24pt} + } + \skipafter{6pt} +}% end block quote begin format diff --git a/macros/text1/pc/blocks/chapter.blk b/macros/text1/pc/blocks/chapter.blk new file mode 100644 index 0000000000..9796e18beb --- /dev/null +++ b/macros/text1/pc/blocks/chapter.blk @@ -0,0 +1,13 @@ +% Default values for the \chapter markup +\chapterformat{\numberingstyle{1} + \titleformat{\dumpinsertseject + \centerline{\twelvept\bd Chapter \chapternumber} + \centerline{\twelvept\bd\chaptertitle} + \vs{1\bl} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end chapter format diff --git a/macros/text1/pc/blocks/contents.blk b/macros/text1/pc/blocks/contents.blk new file mode 100644 index 0000000000..45fa4e571d --- /dev/null +++ b/macros/text1/pc/blocks/contents.blk @@ -0,0 +1,35 @@ +% Defaults when using the \tableofcontents markup +\tableofcontentsformat{% + \toctitle{\centerline{\bd Table of Contents} + \vs{1\bl}} + \prefacetocformat{\nin\prefacetitle\leader\pagenumber} + \parttocformat{\vs{1\bl} + \centerline{Part \partnumber} + \centerline{\parttitle} + \vs{1\bl} + \nin Part \partnumber \leader \pagenumber} + \continuechapter{no} + \chaptertocformat{\hangingchapternumber \chaptertitle \leader \pagenumber} + \hangingchapterindent{.25in} + \appendixtocformat{\hangingappendixnumber \appendixtitle \leader \pn} + \hangingappendixindent{.25in} + \subheadatocformat{\leftindent{.5in}\nin + \subheadatitle \leader \pagenumber} + \subheadbtocformat{\leftindent{1in}\nin + \subheadbtitle \leader \pagenumber} + \subheadctocformat{\leftindent{1.5in}\nin + \subheadctitle \leader \pagenumber} + \subheaddtocformat{\leftindent{2in}\nin + \subheaddtitle \leader \pagenumber} + \bibliographytocformat{\nin\bibtitle \leader \pagenumber} + \figuretoctitle{\newpage + \centerline{\bd List of Figures} + \line{Figure \rt{Page}}} + \figuretocformat{\hangingnumber{\figurenumber.}\figuretitle\leader\pagenumber} + \hangingfigureindent{.25in} + \tabletoctitle{\newpage + \centerline{\bd List of Tables} + \line{Table \rt{Page}}} + \tabletocformat{\hangingnumber{\tablenumber.}\tabletitle\leader\pagenumber} + \hangingtableindent{.25in} +} diff --git a/macros/text1/pc/blocks/enotem.blk b/macros/text1/pc/blocks/enotem.blk new file mode 100644 index 0000000000..2716defe7a --- /dev/null +++ b/macros/text1/pc/blocks/enotem.blk @@ -0,0 +1,11 @@ +% Defaults for \autoendnote with \monospace +\endnoteformat{\skipbefore{0\bl} + \textreferenceposition{down} + \textreferencefont{\rm} + \textreferencestyle{[1]} + \notereferenceposition{down} + \notereferencefont{\rm} + \notereferencestyle{1.} + \notereferencegutter{1em} % 1em = 12pt in a 12pt font + \everyendnote{\rm\pin{0pt}\lin{1.2em}} +} diff --git a/macros/text1/pc/blocks/enotep.blk b/macros/text1/pc/blocks/enotep.blk new file mode 100644 index 0000000000..4f2b55d4e1 --- /dev/null +++ b/macros/text1/pc/blocks/enotep.blk @@ -0,0 +1,11 @@ +% Default values for the \autoendnote markup +\endnoteformat{\skipbefore{4pt} + \textreferenceposition{down} + \textreferencefont{\tenpt} + \textreferencestyle{[1]} + \notereferenceposition{down} + \notereferencefont{\tenpt} + \notereferencestyle{1.} + \notereferencegutter{1em} % 1em = 12pt in a 12pt font + \everyendnote{\tenpt\pin{0pt}\lin{1.2em}} +}% end endnoteformat markup diff --git a/macros/text1/pc/blocks/figurem.blk b/macros/text1/pc/blocks/figurem.blk new file mode 100644 index 0000000000..9d7263c218 --- /dev/null +++ b/macros/text1/pc/blocks/figurem.blk @@ -0,0 +1,8 @@ +% Defaults for \figure with \monospace +\figureformat{\skipbefore{1\bl} + \position{\float} + \titleformat{\bqb\hp + \bd Figure \figurenumber. \rm\figuretitle\bqe} + \incontents{yes} + \skipafter{1\bl} +}% End figure format markup diff --git a/macros/text1/pc/blocks/figurep.blk b/macros/text1/pc/blocks/figurep.blk new file mode 100644 index 0000000000..e2131696ef --- /dev/null +++ b/macros/text1/pc/blocks/figurep.blk @@ -0,0 +1,8 @@ +% Defaults for the \figure markup +\figureformat{\skipbefore{1\bl} + \position{\float} + \titleformat{\bqb\hp\tenpt + \bd Figure \figurenumber. \rm\figuretitle\bqe} + \incontents{yes} + \skipafter{1\bl} +}% End figure format markup diff --git a/macros/text1/pc/blocks/fnotem.blk b/macros/text1/pc/blocks/fnotem.blk new file mode 100644 index 0000000000..a3d5840598 --- /dev/null +++ b/macros/text1/pc/blocks/fnotem.blk @@ -0,0 +1,14 @@ +% Defaults for \autofootnote with \monospace +\footnoteformat{\skipbeforedivider{12pt} + \skipafterdivider{2.6pt} + \footnotedivider{144pt} % 144pt = 2in + \textreferenceposition{down} + \textreferenceplacement{after} + \textreferencefont{\rm} + \textreferencestyle{(1)} + \notereferenceposition{down} + \notereferencefont{\rm} + \notereferencestyle{1.} + \notereferencegutter{1em} + \everyfootnote{\rm\pin{.5in}\psk{.5in}\lin{0pt}\rin{0pt}} +} diff --git a/macros/text1/pc/blocks/fnotep.blk b/macros/text1/pc/blocks/fnotep.blk new file mode 100644 index 0000000000..97fb1ddf0c --- /dev/null +++ b/macros/text1/pc/blocks/fnotep.blk @@ -0,0 +1,14 @@ +% Defaults for the \autofootnote markup +\footnoteformat{\skipbeforedivider{12pt} + \skipafterdivider{2.6pt} + \footnotedivider{144pt} % 144pt = 2in + \textreferenceposition{up} + \textreferenceplacement{after} + \textreferencefont{\tenpt} + \textreferencestyle{1} + \notereferenceposition{down} + \notereferencefont{\tenpt} + \notereferencestyle{1.} + \notereferencegutter{1em} + \everyfootnote{\tenpt\pin{20pt}\lin{0pt}} +} diff --git a/macros/text1/pc/blocks/fontm.blk b/macros/text1/pc/blocks/fontm.blk new file mode 100644 index 0000000000..5f8455a998 --- /dev/null +++ b/macros/text1/pc/blocks/fontm.blk @@ -0,0 +1,6 @@ +% Default values for the \monospace markup +\monospace + % You may change the default monspace fonts by removing the % symbol + % from the \selectfontset and \defaultmono\rm markups below. +% \selectfontset{monofont}{defaultmono}{default} % +% \defaultmono\rm diff --git a/macros/text1/pc/blocks/fontp.blk b/macros/text1/pc/blocks/fontp.blk new file mode 100644 index 0000000000..5393d563eb --- /dev/null +++ b/macros/text1/pc/blocks/fontp.blk @@ -0,0 +1,6 @@ +% Default values for the proportional space fonts +\selectfontset{cm12}{twelvept}{default} % default twelve point set +\selectfontset{cm10}{tenpt}{default} % alternate ten point set +\twelvept % default font specification +\selectmathset{cm97m}{mathdefault} % default math font set +\mathdefault % default math specification diff --git a/macros/text1/pc/blocks/index.blk b/macros/text1/pc/blocks/index.blk new file mode 100644 index 0000000000..684c4407d1 --- /dev/null +++ b/macros/text1/pc/blocks/index.blk @@ -0,0 +1,8 @@ +\indexformat1{\respectcase{no} + \style{indent} + \leadering{no} + \everyletterbreak{\vs{1\bl}} + \indentsubentry1{1em} + \indentsubentry2{2em} + \everyhang{1.5em} + \everyindex{\tenpt}} diff --git a/macros/text1/pc/blocks/label.blk b/macros/text1/pc/blocks/label.blk new file mode 100644 index 0000000000..d4da9e3063 --- /dev/null +++ b/macros/text1/pc/blocks/label.blk @@ -0,0 +1,6 @@ +% Defaults for the \label markup +\labelformat{\skipbefore{1\bl} + \labelwidth{72pt} + \gutter{1em} + \everylabel{\rm} + } diff --git a/macros/text1/pc/blocks/lists.blk b/macros/text1/pc/blocks/lists.blk new file mode 100644 index 0000000000..874be36899 --- /dev/null +++ b/macros/text1/pc/blocks/lists.blk @@ -0,0 +1,13 @@ +% Defaults for \listbegin, \listlevel, and \bullet +\listformat{\skipbefore{0\bl} + \liststyle{1.,a.,i.,1),a),i),(1)} + \everylistlevel1{\rm\lin{36pt}\gutter{1em}} % 36pt = .5in + \everylistlevel2{\rm\lin{58pt}\gutter{1em}} % 58pt = .8in + \everylistlevel3{\rm\lin{79pt}\gutter{1em}} % 79pt = 1.1in + \everylistlevel4{\rm\lin{101pt}\gutter{1em}} % 101pt = 1.4in + \everylistlevel5{\rm\lin{122pt}\gutter{1em}} % 122pt = 1.7in + \everylistlevel6{\rm\lin{144pt}\gutter{1em}} % 144pt = 2.0in + \everylistlevel7{\rm\lin{166pt}\gutter{1em}} % 166pt = 2.3in + \everybullet{\rm\lin{+36pt}\gutter{1em}} % 36pt = .5in + \skipafter{0\bl} +} diff --git a/macros/text1/pc/blocks/maillbls.blk b/macros/text1/pc/blocks/maillbls.blk new file mode 100644 index 0000000000..145fd0667f --- /dev/null +++ b/macros/text1/pc/blocks/maillbls.blk @@ -0,0 +1,17 @@ +% Set format for mail labels with the MERGE LETTER MODEL + +% Maillabelformat sets the page and label information for mailing labels +\maillabelformat{\labelsetup{% Sets page and margin settings + \newpage % start labels on a new page + \notitlepage % labels not started on a title page + \runningheadformat{\bothpages{\line{}}} % no page #s + \pageformat{\topmargin{1in} % new page dimensions + \bottommargin{0pt} + \leftmargin{0pt} + \rightmargin{0pt}}% end page format + }% end labelsetup + \numberoflabelsperline{3} % three labels per line max + \labelheight{1in} % each label 1 inch high + \labelwidth{2.75in} % each label 2.75 inches wide + \labelmat{.25in} % margin to text is .25 inches +}% end mail label format diff --git a/macros/text1/pc/blocks/marnote.blk b/macros/text1/pc/blocks/marnote.blk new file mode 100644 index 0000000000..ded8cac18a --- /dev/null +++ b/macros/text1/pc/blocks/marnote.blk @@ -0,0 +1,6 @@ +% Default values for the \marginnote markup +\marginnoteformat{\position{left} + \notewidth{54pt} + \notegutter{6pt} + \everymarginnote{\tenpt\rr} +}% end margin note format diff --git a/macros/text1/pc/blocks/multicol.blk b/macros/text1/pc/blocks/multicol.blk new file mode 100644 index 0000000000..81b2522cdb --- /dev/null +++ b/macros/text1/pc/blocks/multicol.blk @@ -0,0 +1,10 @@ +% Default multiple column formats +\multicolumnformat{ + \twocolumnwidth{.48\galleywidth} % approximately 3 inches + \threecolumnwidth{.31\galleywidth} % approximately 2 inches + \twocolumngutter{.04\galleywidth} % approximately .2 inches + \threecolumngutter{.035\galleywidth} + \columnrulewidth{0.0pt} + \skipbefore{6pt plus3pt minus2pt} % flexible format only + \skipafter{6pt plus3pt minus2pt} % flexible format only + } diff --git a/macros/text1/pc/blocks/pagem.blk b/macros/text1/pc/blocks/pagem.blk new file mode 100644 index 0000000000..99694f4721 --- /dev/null +++ b/macros/text1/pc/blocks/pagem.blk @@ -0,0 +1,11 @@ +% Default page dimensions and margins +\pageformat{\pagelength{11in} % 792pt = 11in + \pagewidth{8.5in} % 612pt = 8.5in + \topmargin{1in} % 72pt = 1in + \bottommargin{1in} + \leftmargin{1.2in} % 86pt = 1.2in + \rightmargin{1in} + \bindingadjust{0in} % none +}% end page format +\raggedbottom % allows the bottom line to fluctuate up + % and down a couple lines diff --git a/macros/text1/pc/blocks/pagep.blk b/macros/text1/pc/blocks/pagep.blk new file mode 100644 index 0000000000..1c521e133d --- /dev/null +++ b/macros/text1/pc/blocks/pagep.blk @@ -0,0 +1,11 @@ +% Default page dimensions and margins +\pageformat{\pagelength{11in} % 792pt = 11in + \pagewidth{8.5in} % 612pt = 8.5in + \topmargin{1in} % 72pt = 1in + \bottommargin{1in} + \leftmargin{1.2in} % 86pt = 1.2in + \rightmargin{1in} + \bindingadjust{0in} +}% end pageformat +\normalbottom % text height will be the same for each + % page. Bottom lines will be even. diff --git a/macros/text1/pc/blocks/parm.blk b/macros/text1/pc/blocks/parm.blk new file mode 100644 index 0000000000..2d9c676951 --- /dev/null +++ b/macros/text1/pc/blocks/parm.blk @@ -0,0 +1,6 @@ +% Default paragraph specifications for monospace fonts +\paragraphindent{36pt} % indent for the first line of a paragraph +\paragraphskip{0pt} % distance between paragraphs +\justify +\hyphenon % hyphenation either on (\hyphenon) + % or off (\hyphenoff) diff --git a/macros/text1/pc/blocks/parp.blk b/macros/text1/pc/blocks/parp.blk new file mode 100644 index 0000000000..b31df93253 --- /dev/null +++ b/macros/text1/pc/blocks/parp.blk @@ -0,0 +1,11 @@ +% Default paragraph specifications for proportional fonts +\paragraphindent{24pt} % indent for first line of text +\paragraphskip{0pt plus 3pt minus 0pt} % Distance skipped between + % paragraphs. Plus and minus refer to space + % that may be added or subtracted from the + % initial setting (0pt) to make the lines + % even at the bottom of the page. + +\justify % all text will be justified +\hyphenon % hyphenation either on (\hyphenon) + % or off (\hyphenoff) diff --git a/macros/text1/pc/blocks/part.blk b/macros/text1/pc/blocks/part.blk new file mode 100644 index 0000000000..68545f85ba --- /dev/null +++ b/macros/text1/pc/blocks/part.blk @@ -0,0 +1,20 @@ +% Default values for the \part markup +\partformat{\numberingstyle{1} + \titleformat{\dumpinsertseject\titlepage + \hrule height 0pt depth 0pt + \vfil % Produces a half title page + \centerline{\twelvept\bold Part \partnumber} + \centerline{\twelvept\bold \parttitle} + \newpage + \setchapternumber{0} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + \setfootnotenumber{0} + \setendnotenumber{0} + \setfigurenumber{0} + \settablenumber{0} + }% end titleformat + \incontents{yes} +}% end part format diff --git a/macros/text1/pc/blocks/preface.blk b/macros/text1/pc/blocks/preface.blk new file mode 100644 index 0000000000..3c44e37a02 --- /dev/null +++ b/macros/text1/pc/blocks/preface.blk @@ -0,0 +1,12 @@ +% Default values for the \preface markup +\prefaceformat{% + \titleformat{\dumpinsertseject + \centerline{\twelvept\bd\prefacetitle} + \vs{1\bl} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end preface format diff --git a/macros/text1/pc/blocks/runfoot.blk b/macros/text1/pc/blocks/runfoot.blk new file mode 100644 index 0000000000..8aecd0311a --- /dev/null +++ b/macros/text1/pc/blocks/runfoot.blk @@ -0,0 +1,6 @@ +% Default values for the running foot title +\runningfootformat{% + \bothpages{\vs{1\bl} + \line{\twelvept\lft{}\ctr{}\rt{}} + }% end bothpages +}% end runningfootformat markup diff --git a/macros/text1/pc/blocks/runhead.blk b/macros/text1/pc/blocks/runhead.blk new file mode 100644 index 0000000000..c88e8758cb --- /dev/null +++ b/macros/text1/pc/blocks/runhead.blk @@ -0,0 +1,6 @@ +% Default values for the running head title +\runningheadformat{% + \bothpages{\line{\twelvept\lft{}\ctr{}\rt{\pagenumber}} + \vs{1\bl} + }% end bothpages +}% end runningheadformat markup diff --git a/macros/text1/pc/blocks/subheada.blk b/macros/text1/pc/blocks/subheada.blk new file mode 100644 index 0000000000..ce0c4ab5fd --- /dev/null +++ b/macros/text1/pc/blocks/subheada.blk @@ -0,0 +1,11 @@ +% Default values for the \subheada markup +\subheadaformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\bd\nin\subheadatitle\par\nobreak + \vs{1\bl}\nobreak + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadaformat markup diff --git a/macros/text1/pc/blocks/subheadb.blk b/macros/text1/pc/blocks/subheadb.blk new file mode 100644 index 0000000000..e3089ad1c4 --- /dev/null +++ b/macros/text1/pc/blocks/subheadb.blk @@ -0,0 +1,10 @@ +% Default values for the \subheadb markup +\subheadbformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\it\nin\subheadbtitle\par\nobreak + \vs{1\bl}\nobreak + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadbformat markup diff --git a/macros/text1/pc/blocks/subheadc.blk b/macros/text1/pc/blocks/subheadc.blk new file mode 100644 index 0000000000..be70a69692 --- /dev/null +++ b/macros/text1/pc/blocks/subheadc.blk @@ -0,0 +1,9 @@ +% Default values for the \subheadc markup +\subheadcformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\nin\subheadctitle\par\nobreak + \vs{1\bl}\nobreak + \setsubheaddnumber{0} + }% end titleformat + \incontents{no} +}% end subheadcformat markup diff --git a/macros/text1/pc/blocks/subheadd.blk b/macros/text1/pc/blocks/subheadd.blk new file mode 100644 index 0000000000..8b1cd8b6f3 --- /dev/null +++ b/macros/text1/pc/blocks/subheadd.blk @@ -0,0 +1,7 @@ +% Default values for the \subheadd markup +\subheaddformat{\numberingstyle{1} + \titleformat{\goodbreak + {\twelvept\it \subheaddtitle.} + }% end titleformat + \incontents{no} +}% end subheadd markup diff --git a/macros/text1/pc/blocks/tablem.blk b/macros/text1/pc/blocks/tablem.blk new file mode 100644 index 0000000000..3ab57a8d73 --- /dev/null +++ b/macros/text1/pc/blocks/tablem.blk @@ -0,0 +1,8 @@ +% Default \tabletitle when using \monospace +\tableformat{\titleformat{\vs{\bl} + \cl{\bd Table \tablenumber} + \cl{\rm\tabletitle} + \vs{\bl} + } + \incontents{yes} +} diff --git a/macros/text1/pc/blocks/tablep.blk b/macros/text1/pc/blocks/tablep.blk new file mode 100644 index 0000000000..1b1f0c4162 --- /dev/null +++ b/macros/text1/pc/blocks/tablep.blk @@ -0,0 +1,9 @@ +% Default values for the \tabletitle markup +\tableformat{% + \titleformat{\vs{\bl} + \cl{\twelvept\bd Table \tablenumber} + \cl{\twelvept\tabletitle} + \vs{\bl} + }% end titleformat + \incontents{yes} +}% end tableformat markup diff --git a/macros/text1/pc/blocks/talaris.blk b/macros/text1/pc/blocks/talaris.blk new file mode 100644 index 0000000000..0d908cc87f --- /dev/null +++ b/macros/text1/pc/blocks/talaris.blk @@ -0,0 +1,6 @@ +% Default values for the Talaris fonts +\selectfontset{amrom12}{twelvept}{default} % default twelve point set +\selectfontset{amrom10}{tenpt}{default} % alternate ten point set +\twelvept % default font specification +\selectmathset{am97m}{mathdefault} % default math font set +\mathdefault % default math specification diff --git a/macros/text1/pc/blocks/titlepg.blk b/macros/text1/pc/blocks/titlepg.blk new file mode 100644 index 0000000000..e53cfb4bdb --- /dev/null +++ b/macros/text1/pc/blocks/titlepg.blk @@ -0,0 +1,4 @@ +% Default for the title (first) page +\titlepageformat{\titleleadskip{1in} + \titlefootline{} +}% end titlepage markup diff --git a/macros/text1/pc/fonts/dt.pk b/macros/text1/pc/fonts/dt.pk Binary files differnew file mode 100644 index 0000000000..137d069175 --- /dev/null +++ b/macros/text1/pc/fonts/dt.pk diff --git a/macros/text1/pc/misc/cm10.txt b/macros/text1/pc/misc/cm10.txt new file mode 100644 index 0000000000..aa431de13e --- /dev/null +++ b/macros/text1/pc/misc/cm10.txt @@ -0,0 +1,34 @@ +\font\cmXbi=cmbxti10 +\font\cmXcc=cmcsc10 +\expandafter\newdimen\csname\the\naMEtok ilsx\endcsname +\global\csname\the\naMEtok ilsx\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsx\endcsname=0pt +\csname\the\naMEtok ilsx\endcsname=12pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\tenrm}% +\def\noexpand\mi{\fam1\teni}% +\def\noexpand\sy{\fam2\tensy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\tenrm \textfont1=\teni + \textfont2=\tensy \textfont3=\tenex + \textfont\itfam=\tenit + \textfont\ttfam=\tentt \textfont\bffam=\tenbf + \textfont\ccfam=\cmXcc +\def\noexpand\bd{\fam\bffam\tenbf}% +\def\noexpand\it{\fam\itfam\tenit}% +\def\noexpand\tt{\fam\ttfam\tentt}% +\def\noexpand\cc{\fam\ccfam\cmXcc}% +\def\noexpand\bi{\fam\bifam\cmXbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsx\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm108m.mth b/macros/text1/pc/misc/cm108m.mth new file mode 100644 index 0000000000..2410c5b3d7 --- /dev/null +++ b/macros/text1/pc/misc/cm108m.mth @@ -0,0 +1,10 @@ +\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8 +\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10 +\font\cmVIIIbd=cmbx8 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\tenrm \scriptfont1=\teni + \scriptfont2=\tensy \scriptfont3=\tenex + \scriptfont\bffam=\tenbf + \scriptscriptfont0=\cmVIIIrm \scriptscriptfont1=\cmVIIImi + \scriptscriptfont2=\cmVIIIsy \scriptscriptfont3=\cmVIIIex + \scriptscriptfont\bffam=\cmVIIIbd}% diff --git a/macros/text1/pc/misc/cm109m.mth b/macros/text1/pc/misc/cm109m.mth new file mode 100644 index 0000000000..7b5104aaf7 --- /dev/null +++ b/macros/text1/pc/misc/cm109m.mth @@ -0,0 +1,10 @@ +\font\cmIXrm=cmr9 \font\cmIXmi=cmmi9 +\font\cmIXsy=cmsy9 \font\cmIXex=cmex10 +\font\cmIXbd=cmbx9 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\tenrm \scriptfont1=\teni + \scriptfont2=\tensy \scriptfont3=\tenex + \scriptfont\bffam=\tenbf + \scriptscriptfont0=\cmIXrm \scriptscriptfont1=\cmIXmi + \scriptscriptfont2=\cmIXsy \scriptscriptfont3=\cmIXex + \scriptscriptfont\bffam=\cmIXbd}% diff --git a/macros/text1/pc/misc/cm11.txt b/macros/text1/pc/misc/cm11.txt new file mode 100644 index 0000000000..aa9300ae37 --- /dev/null +++ b/macros/text1/pc/misc/cm11.txt @@ -0,0 +1,40 @@ +\global\newif\ifcmXIbierr +\font\cmXIcc=cmcsc11 +\font\cmXIrm=cmr11 \font\cmXIit=cmti11 +\font\cmXIbd=cmbx11 \font\cmXImi=cmmi11 +\font\cmXItt=cmtt11\font\cmXIsy=cmsy11 +\expandafter\newdimen\csname\the\naMEtok ilsxi\endcsname +\global\csname\the\naMEtok ilsxi\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxi\endcsname=0pt +\csname\the\naMEtok ilsxi\endcsname=13pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIrm}% +\def\noexpand\mi{\fam1\cmXImi}% +\def\noexpand\sy{\fam2\cmXIsy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\cmXIrm \textfont1=\cmXImi + \textfont2=\cmXIsy\textfont3=\tenex + \textfont\itfam=\cmXIit + \textfont\ttfam=\cmXItt \textfont\bffam=\cmXIbd + \textfont\ccfam=\cmXIcc +\def\noexpand\bd{\fam\bffam\cmXIbd}% +\def\noexpand\it{\fam\itfam\cmXIit}% +\def\noexpand\tt{\fam\ttfam\cmXItt}% +\def\noexpand\cc{\fam\ccfam\cmXIcc}% +\def\noexpand\bi{\noexpand\ifcmXIbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM11. Will print italic font .}% +\noexpand\global\noexpand\cmXIbierrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxi\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm1110m.mth b/macros/text1/pc/misc/cm1110m.mth new file mode 100644 index 0000000000..09cc8fb54e --- /dev/null +++ b/macros/text1/pc/misc/cm1110m.mth @@ -0,0 +1,10 @@ +\font\cmXImi=cmmi11 +\font\cmXIsy=cmsy11 \font\cmXIex=cmex11 +\font\cmXIbd=cmbx11\font\cmXIrm=cmr11 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXIrm \scriptfont1=\cmXImi + \scriptfont2=\cmXIsy \scriptfont3=\cmXIex + \scriptfont\bffam=\cmXIbd + \scriptscriptfont0=\tenrm \scriptscriptfont1=\teni + \scriptscriptfont2=\tensy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\tenbf}% diff --git a/macros/text1/pc/misc/cm119m.mth b/macros/text1/pc/misc/cm119m.mth new file mode 100644 index 0000000000..13eca0aebf --- /dev/null +++ b/macros/text1/pc/misc/cm119m.mth @@ -0,0 +1,13 @@ +\font\cmXImi=cmmi11 +\font\cmXIsy=cmsy11 \font\cmXIex=cmex11 +\font\cmXIbd=cmbx11 \font\cmXIrm=cmr11 +\font\cmIXrm=cmr9 \font\cmIXmi=cmmi9 +\font\cmIXsy=cmsy9 \font\cmIXex=cmex10 +\font\cmIXbd=cmbx9 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXIrm \scriptfont1=\cmXImi + \scriptfont2=\cmXIsy \scriptfont3=\cmXIex + \scriptfont\bffam=\cmXIbd + \scriptscriptfont0=\cmIXrm \scriptscriptfont1=\cmIXmi + \scriptscriptfont2=\cmIXsy \scriptscriptfont3=\cmIXex + \scriptscriptfont\bffam=\cmIXbd}% diff --git a/macros/text1/pc/misc/cm12.txt b/macros/text1/pc/misc/cm12.txt new file mode 100644 index 0000000000..a505abed9c --- /dev/null +++ b/macros/text1/pc/misc/cm12.txt @@ -0,0 +1,37 @@ +\font\cmXIIbi=cmbxti12 +\font\cmXIIcc=cmcsc12 \font\cmXIIex=cmex12 +\font\cmXIIrm=cmr12 \font\cmXIIit=cmti12 +\font\cmXIIbd=cmbx12 \font\cmXIImi=cmmi12 +\font\cmXIItt=cmtt12 \font\cmXIIsy=cmsy12 +\expandafter\newdimen\csname\the\naMEtok ilsxii\endcsname +\global\csname\the\naMEtok ilsxii\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxii\endcsname=0pt +\csname\the\naMEtok ilsxii\endcsname=14pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIIrm}% +\def\noexpand\mi{\fam1\cmXIImi}% +\def\noexpand\sy{\fam2\cmXIIsy}% +\def\noexpand\ex{\fam3\cmXIIex}% + \textfont0=\cmXIIrm \textfont1=\cmXIImi + \textfont2=\cmXIIsy \textfont3=\cmXIIex + \textfont\itfam=\cmXIIit + \textfont\ttfam=\cmXIItt \textfont\bffam=\cmXIIbd + \textfont\ccfam=\cmXIIcc +\def\noexpand\bd{\fam\bffam\cmXIIbd}% +\def\noexpand\it{\fam\itfam\cmXIIit}% +\def\noexpand\tt{\fam\ttfam\cmXIItt}% +\def\noexpand\cc{\fam\ccfam\cmXIIcc}% +\def\noexpand\bi{\fam\bifam\cmXIIbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxii\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm1210m.mth b/macros/text1/pc/misc/cm1210m.mth new file mode 100644 index 0000000000..e1ccb4c7fc --- /dev/null +++ b/macros/text1/pc/misc/cm1210m.mth @@ -0,0 +1,10 @@ +\font\cmXIImi=cmmi12 +\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12 +\font\cmXIIbd=cmbx12\font\cmXIIrm=cmr12 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXIIrm \scriptfont1=\cmXIImi + \scriptfont2=\cmXIIsy \scriptfont3=\cmXIIex + \scriptfont\bffam=\cmXIIbd + \scriptscriptfont0=\tenrm \scriptscriptfont1=\teni + \scriptscriptfont2=\tensy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\tenbf}% diff --git a/macros/text1/pc/misc/cm1211m.mth b/macros/text1/pc/misc/cm1211m.mth new file mode 100644 index 0000000000..d9c4e13c45 --- /dev/null +++ b/macros/text1/pc/misc/cm1211m.mth @@ -0,0 +1,13 @@ +\font\cmXIImi=cmmi12 +\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12 +\font\cmXIIbd=cmbx12\font\cmXIIrm=cmr12 +\font\cmXIrm=cmr11 \font\cmXImi=cmmi11 +\font\cmXIsy=cmsy11 \font\cmXIex=cmex11 +\font\cmXIbd=cmbx11 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXIIrm \scriptfont1=\cmXIImi + \scriptfont2=\cmXIIsy \scriptfont3=\cmXIIex + \scriptfont\bffam=\cmXIIbd + \scriptscriptfont0=\cmXIrm \scriptscriptfont1=\cmXImi + \scriptscriptfont2=\cmXIsy \scriptscriptfont3=\cmXIex + \scriptscriptfont\bffam=\cmXIbd}% diff --git a/macros/text1/pc/misc/cm14.txt b/macros/text1/pc/misc/cm14.txt new file mode 100644 index 0000000000..f302bf6a12 --- /dev/null +++ b/macros/text1/pc/misc/cm14.txt @@ -0,0 +1,37 @@ +\font\cmXIVbi=cmbxti14 +\font\cmXIVcc=cmcsc14 \font\cmXIVex=cmex14 +\font\cmXIVrm=cmr14 \font\cmXIVit=cmti14 +\font\cmXIVbd=cmbx14 \font\cmXIVmi=cmmi14 +\font\cmXIVtt=cmtt14 \font\cmXIVsy=cmsy14 +\expandafter\newdimen\csname\the\naMEtok ilsxiv\endcsname +\global\csname\the\naMEtok ilsxiv\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxiv\endcsname=0pt +\csname\the\naMEtok ilsxiv\endcsname=16pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIVrm}% +\def\noexpand\mi{\fam1\cmXIVmi}% +\def\noexpand\sy{\fam2\cmXIVsy}% +\def\noexpand\ex{\fam3\cmXIVex}% + \textfont0=\cmXIVrm \textfont1=\cmXIVmi + \textfont2=\cmXIVsy \textfont3=\cmXIVex + \textfont\itfam=\cmXIVit + \textfont\ttfam=\cmXIVtt \textfont\bffam=\cmXIVbd + \textfont\ccfam=\cmXIVcc +\def\noexpand\bd{\fam\bffam\cmXIVbd}% +\def\noexpand\it{\fam\itfam\cmXIVit}% +\def\noexpand\tt{\fam\ttfam\cmXIVtt}% +\def\noexpand\cc{\fam\ccfam\cmXIVcc}% +\def\noexpand\bi{\fam\bifam\cmXIVbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxiv\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm1412m.mth b/macros/text1/pc/misc/cm1412m.mth new file mode 100644 index 0000000000..fc933ca00f --- /dev/null +++ b/macros/text1/pc/misc/cm1412m.mth @@ -0,0 +1,13 @@ +\font\cmXIVmi=cmmi14 +\font\cmXIVsy=cmsy14 \font\cmXIVex=cmex14 +\font\cmXIVbd=cmbx14\font\cmXIVrm=cmr14 +\font\cmXIIrm=cmr12 \font\cmXIImi=cmmi12 +\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12 +\font\cmXIIbd=cmbx12 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXIVrm \scriptfont1=\cmXIVmi + \scriptfont2=\cmXIVsy \scriptfont3=\cmXIVex + \scriptfont\bffam=\cmXIVbd + \scriptscriptfont0=\cmXIIrm \scriptscriptfont1=\cmXIImi + \scriptscriptfont2=\cmXIIsy \scriptscriptfont3=\cmXIIex + \scriptscriptfont\bffam=\cmXIIbd}% diff --git a/macros/text1/pc/misc/cm18.txt b/macros/text1/pc/misc/cm18.txt new file mode 100644 index 0000000000..c4c9f52d87 --- /dev/null +++ b/macros/text1/pc/misc/cm18.txt @@ -0,0 +1,37 @@ +\font\cmXVIIIbi=cmbxti18 +\font\cmXVIIIcc=cmcsc18 \font\cmXVIIIex=cmex18 +\font\cmXVIIIrm=cmr18 \font\cmXVIIIit=cmti18 +\font\cmXVIIIbd=cmbx18 \font\cmXVIIImi=cmmi18 +\font\cmXVIIItt=cmtt18 \font\cmXVIIIsy=cmsy18 +\expandafter\newdimen\csname\the\naMEtok ilsxviii\endcsname +\global\csname\the\naMEtok ilsxviii\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxviii\endcsname=0pt +\csname\the\naMEtok ilsxviii\endcsname=20pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXVIIIrm}% +\def\noexpand\mi{\fam1\cmXVIIImi}% +\def\noexpand\sy{\fam2\cmXVIIIsy}% +\def\noexpand\ex{\fam3\cmXVIIIex}% + \textfont0=\cmXVIIIrm \textfont1=\cmXVIIImi + \textfont2=\cmXVIIIsy \textfont3=\cmXVIIIex + \textfont\itfam=\cmXVIIIit + \textfont\ttfam=\cmXVIIItt \textfont\bffam=\cmXVIIIbd + \textfont\ccfam=\cmXVIIIcc +\def\noexpand\bd{\fam\bffam\cmXVIIIbd}% +\def\noexpand\it{\fam\itfam\cmXVIIIit}% +\def\noexpand\tt{\fam\ttfam\cmXVIIItt}% +\def\noexpand\cc{\fam\ccfam\cmXVIIIcc}% +\def\noexpand\bi{\fam\bifam\cmXVIIIbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxviii\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm1814m.mth b/macros/text1/pc/misc/cm1814m.mth new file mode 100644 index 0000000000..c3c34b0f02 --- /dev/null +++ b/macros/text1/pc/misc/cm1814m.mth @@ -0,0 +1,13 @@ +\font\cmXVIIImi=cmmi18 +\font\cmXVIIIsy=cmsy18 \font\cmXVIIIex=cmex18 +\font\cmXVIIIbd=cmbx18\font\cmXVIIIrm=cmr18 +\font\cmXIVrm=cmr14 \font\cmXIVmi=cmmi14 +\font\cmXIVsy=cmsy14 \font\cmXIVex=cmex14 +\font\cmXIVbd=cmbx14 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXVIIIrm \scriptfont1=\cmXVIIImi + \scriptfont2=\cmXVIIIsy \scriptfont3=\cmXVIIIex + \scriptfont\bffam=\cmXVIIIbd + \scriptscriptfont0=\cmXIVrm \scriptscriptfont1=\cmXIVmi + \scriptscriptfont2=\cmXIVsy \scriptscriptfont3=\cmXIVex + \scriptscriptfont\bffam=\cmXIVbd}% diff --git a/macros/text1/pc/misc/cm24.txt b/macros/text1/pc/misc/cm24.txt new file mode 100644 index 0000000000..83dc4387be --- /dev/null +++ b/macros/text1/pc/misc/cm24.txt @@ -0,0 +1,37 @@ +\font\cmXXIVbi=cmbxti24 +\font\cmXXIVcc=cmcsc24 \font\cmXXIVex=cmex24 +\font\cmXXIVrm=cmr24 \font\cmXXIVit=cmti24 +\font\cmXXIVbd=cmbx24 \font\cmXXIVmi=cmmi24 +\font\cmXXIVtt=cmtt24\font\cmXXIVsy=cmsy24 +\expandafter\newdimen\csname\the\naMEtok ilsxxiv\endcsname +\global\csname\the\naMEtok ilsxxiv\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxxiv\endcsname=0pt +\csname\the\naMEtok ilsxxiv\endcsname=26pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXXIVrm}% +\def\noexpand\mi{\fam1\cmXXIVmi}% +\def\noexpand\sy{\fam2\cmXXIVsy}% +\def\noexpand\ex{\fam3\cmXXIVex}% + \textfont0=\cmXXIVrm \textfont1=\cmXXIVmi + \textfont2=\cmXXIVsy \textfont3=\cmXXIVex + \textfont\itfam=\cmXXIVit + \textfont\ttfam=\cmXXIVtt \textfont\bffam=\cmXXIVbd + \textfont\ccfam=\cmXXIVcc +\def\noexpand\bd{\fam\bffam\cmXXIVbd}% +\def\noexpand\it{\fam\itfam\cmXXIVit}% +\def\noexpand\tt{\fam\ttfam\cmXXIVtt}% +\def\noexpand\cc{\fam\ccfam\cmXXIVcc}% +\def\noexpand\bi{\fam\bifam\cmXXIVbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxxiv\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm2418m.mth b/macros/text1/pc/misc/cm2418m.mth new file mode 100644 index 0000000000..41222e47d0 --- /dev/null +++ b/macros/text1/pc/misc/cm2418m.mth @@ -0,0 +1,13 @@ +\font\cmXXIVmi=cmmi24 +\font\cmXXIVsy=cmsy24 \font\cmXXIVex=cmex24 +\font\cmXXIVbd=cmbx24\font\cmXXIVrm=cmr24 +\font\cmXVIIIrm=cmr18 \font\cmXVIIImi=cmmi18 +\font\cmXVIIIsy=cmsy18 \font\cmXVIIIex=cmex18 +\font\cmXVIIIbd=cmbx18 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmXXIVrm \scriptfont1=\cmXXIVmi + \scriptfont2=\cmXXIVsy \scriptfont3=\cmXXIVex + \scriptfont\bffam=\cmXXIVbd + \scriptscriptfont0=\cmXVIIIrm \scriptscriptfont1=\cmXVIIImi + \scriptscriptfont2=\cmXVIIIsy \scriptscriptfont3=\cmXVIIIex + \scriptscriptfont\bffam=\cmXVIIIbd}% diff --git a/macros/text1/pc/misc/cm36.txt b/macros/text1/pc/misc/cm36.txt new file mode 100644 index 0000000000..9a6f9ce578 --- /dev/null +++ b/macros/text1/pc/misc/cm36.txt @@ -0,0 +1,37 @@ +\font\cmXXXVIbi=cmbxti36 +\font\cmXXXVIcc=cmcsc36\font\cmXXXVIex=cmex36 +\font\cmXXXVIrm=cmr36 \font\cmXXXVIit=cmti36 +\font\cmXXXVIbd=cmbx36 \font\cmXXXVImi=cmmi36 +\font\cmXXXVItt=cmtt36 \font\cmXXXVIsy=cmsy36 +\expandafter\newdimen\csname\the\naMEtok ilsxxxvi\endcsname +\global\csname\the\naMEtok ilsxxxvi\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxxxvi\endcsname=0pt +\csname\the\naMEtok ilsxxxvi\endcsname=38pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXXXVIrm}% +\def\noexpand\mi{\fam1\cmXXXVImi}% +\def\noexpand\sy{\fam2\cmXXXVIsy}% +\def\noexpand\ex{\fam3\cmXXXVIex}% + \textfont0=\cmXXXVIrm \textfont1=\cmXXXVImi + \textfont2=\cmXXXVIsy \textfont3=\cmXXXVIex + \textfont\itfam=\cmXXXVIit + \textfont\ttfam=\cmXXXVItt \textfont\bffam=\cmXXXVIbd + \textfont\ccfam=\cmXXXVIcc +\def\noexpand\bd{\fam\bffam\cmXXXVIbd}% +\def\noexpand\it{\fam\itfam\cmXXXVIit}% +\def\noexpand\tt{\fam\ttfam\cmXXXVItt}% +\def\noexpand\cc{\fam\ccfam\cmXXXVIcc}% +\def\noexpand\bi{\fam\bifam\cmXXXVIbi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxxxvi\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm5.txt b/macros/text1/pc/misc/cm5.txt new file mode 100644 index 0000000000..3cdb0205e3 --- /dev/null +++ b/macros/text1/pc/misc/cm5.txt @@ -0,0 +1,51 @@ +\global\newif\ifVbierr +\global\newif\ifVccerr +\global\newif\ifVtterr +\global\newif\ifViterr +\global\newif\ifVbderr +\expandafter\newdimen\csname\the\naMEtok ilsv\endcsname +\global\csname\the\naMEtok ilsv\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsv\endcsname=0pt +\csname\the\naMEtok ilsv\endcsname=8pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\fiverm}% +\def\noexpand\mi{\fam1\fivei}% +\def\noexpand\sy{\fam2\fivesy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\fiverm\textfont1=\fivei + \textfont2=\fivesy\textfont3=\tenex + \textfont\bffam=\fivebf +\def\noexpand\bd{\noexpand\ifVbderr\noexpand\fam\bffam\fivebf% +\noexpand\else\noexpand\fam\bffam\fivebf% +\noexpand\message{<TEXT1> Warning. % +No bold font in CM5. Will print bold extended font .}% +\noexpand\global\noexpand\Vbderrtrue \noexpand\fi}% +\def\noexpand\it{\noexpand\ifViterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No italic font in CM5. Will print roman font .}% +\noexpand\global\noexpand\Viterrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifVtterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CM5. Will print roman font .}% +\noexpand\global\noexpand\Vtterrtrue \noexpand\fi}% +\def\noexpand\bi{\noexpand\ifVbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM5. Will print italic font .}% +\noexpand\global\noexpand\Vbierrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifVccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CM5. Will print roman font .}% +\noexpand\global\noexpand\Vccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsv\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm6.txt b/macros/text1/pc/misc/cm6.txt new file mode 100644 index 0000000000..5a3a735d8c --- /dev/null +++ b/macros/text1/pc/misc/cm6.txt @@ -0,0 +1,49 @@ +\global\newif\ifcmVIbierr +\global\newif\ifcmVIccerr +\global\newif\ifcmVIiterr +\global\newif\ifcmVItterr +\font\cmVIrm=cmr6 +\font\cmVIbd=cmbx6 \font\cmVImi=cmmi6 +\font\sixsy=cmsy6 +\expandafter\newdimen\csname\the\naMEtok ilsvi\endcsname +\global\csname\the\naMEtok ilsvi\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsvi\endcsname=0pt +\csname\the\naMEtok ilsvi\endcsname=8pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmVIrm}% +\def\noexpand\mi{\fam1\cmVImi}% +\def\noexpand\sy{\fam2\sixsy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\cmVIrm \textfont1=\cmVImi + \textfont2=\tensy \textfont3=\tenex + \textfont\bffam=\cmVIbd +\def\noexpand\bd{\fam\bffam\cmVIbd}% +\def\noexpand\it{\noexpand\ifcmVIiterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No italic font in CM6. Will print roman font.}% +\noexpand\global\noexpand\cmVIiterrtrue \noexpand\fi}% +\def\noexpand\bi{\noexpand\ifcmVIbierr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM6. Will print roman font.}% +\noexpand\global\noexpand\cmVIbierrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifcmVIccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CM6. Will print roman font.}% +\noexpand\global\noexpand\cmVIccerrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifcmVItterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CM6. Will print roman font.}% +\noexpand\global\noexpand\cmVItterrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsvi\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm65m.mth b/macros/text1/pc/misc/cm65m.mth new file mode 100644 index 0000000000..d1c44223de --- /dev/null +++ b/macros/text1/pc/misc/cm65m.mth @@ -0,0 +1,10 @@ +\font\cmVImi=cmmi6 +\font\cmVIsy=cmsy6 \font\cmVIex=cmex10 +\font\cmVIbd=cmbx6\font\cmVIrm=cmr6 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmVIrm \scriptfont1=\cmVImi + \scriptfont2=\cmVIsy \scriptfont3=\cmVIex + \scriptfont\bffam=\cmVIbd + \scriptscriptfont0=\fiverm \scriptscriptfont1=\fivei + \scriptscriptfont2=\fivesy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\fivebf}% diff --git a/macros/text1/pc/misc/cm7.txt b/macros/text1/pc/misc/cm7.txt new file mode 100644 index 0000000000..894bff8b2c --- /dev/null +++ b/macros/text1/pc/misc/cm7.txt @@ -0,0 +1,45 @@ +\global\newif\ifVIIbierr +\global\newif\ifVIIbderr +\global\newif\ifVIItterr +\global\newif\ifVIIccerr +\font\cmVIIit=cmti7 +\expandafter\newdimen\csname\the\naMEtok ilsvii\endcsname +\global\csname\the\naMEtok ilsvii\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsvii\endcsname=0pt +\csname\the\naMEtok ilsvii\endcsname=9pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\sevenrm}% +\def\noexpand\mi{\fam1\seveni}% +\def\noexpand\sy{\fam2\sevensy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\sevenrm \textfont1=\seveni + \textfont2=\sevensy \textfont3=\tenex + \textfont\itfam=\cmVIIit + \textfont\bffam=\sevenbf +\def\noexpand\it{\fam\itfam\cmVIIit}% +\def\noexpand\bd{\fam\bffam\sevenbf}% +\def\noexpand\tt{\noexpand\ifVIItterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CM7. Will print roman font .}% +\noexpand\global\noexpand\VIItterrtrue \noexpand\fi}% +\def\noexpand\bi{\noexpand\ifVIIbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM7. Will print italic font .}% +\noexpand\global\noexpand\VIIbierrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifVIIccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CM7. Will print roman font .}% +\noexpand\global\noexpand\VIIccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsvii\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm75m.mth b/macros/text1/pc/misc/cm75m.mth new file mode 100644 index 0000000000..2acd4dc1f4 --- /dev/null +++ b/macros/text1/pc/misc/cm75m.mth @@ -0,0 +1,7 @@ + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\sevenrm \scriptfont1=\seveni + \scriptfont2=\sevensy \scriptfont3=\tenex + \scriptfont\bffam=\sevenbf + \scriptscriptfont0=\fiverm \scriptscriptfont1=\fivei + \scriptscriptfont2=\fivesy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\fivebf}% diff --git a/macros/text1/pc/misc/cm76m.mth b/macros/text1/pc/misc/cm76m.mth new file mode 100644 index 0000000000..796813490d --- /dev/null +++ b/macros/text1/pc/misc/cm76m.mth @@ -0,0 +1,10 @@ +\font\cmVIrm=cmr6 \font\cmVImi=cmmi6 +\font\cmVIsy=cmsy6 \font\cmVIex=cmex10 +\font\cmVIbd=cmbx6 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\sevenrm \scriptfont1=\seveni + \scriptfont2=\sevensy \scriptfont3=\tenex + \scriptfont\bffam=\sevenbf + \scriptscriptfont0=\cmVIrm \scriptscriptfont1=\cmVImi + \scriptscriptfont2=\cmVIsy \scriptscriptfont3=\cmVIex + \scriptscriptfont\bffam=\cmVIbd}% diff --git a/macros/text1/pc/misc/cm8.txt b/macros/text1/pc/misc/cm8.txt new file mode 100644 index 0000000000..ea69af7705 --- /dev/null +++ b/macros/text1/pc/misc/cm8.txt @@ -0,0 +1,40 @@ +\global\newif\ifcmVIIIbierr +\font\cmVIIIcc=cmcsc8 +\font\cmVIIIrm=cmr8 \font\cmVIIIit=cmti8 +\font\cmVIIIbd=cmbx8 \font\cmVIIImi=cmmi8 +\font\cmVIIItt=cmtt8 +\expandafter\newdimen\csname\the\naMEtok ilsviii\endcsname +\global\csname\the\naMEtok ilsviii\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsviii\endcsname=0pt +\csname\the\naMEtok ilsviii\endcsname=10pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmVIIIrm}% +\def\noexpand\mi{\fam1\cmVIIImi}% +\def\noexpand\sy{\fam2\tensy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\cmVIIIrm \textfont1=\cmVIIImi + \textfont2=\tensy \textfont3=\tenex + \textfont\itfam=\cmVIIIit + \textfont\ttfam=\cmVIIItt \textfont\bffam=\cmVIIIbd + \textfont\ccfam=\cmVIIIcc +\def\noexpand\bd{\fam\bffam\cmVIIIbd}% +\def\noexpand\it{\fam\itfam\cmVIIIit}% +\def\noexpand\tt{\fam\ttfam\cmVIIItt}% +\def\noexpand\cc{\fam\ccfam\cmVIIIcc}% +\def\noexpand\bi{\noexpand\ifcmVIIIbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM8. Will print italic font .}% +\noexpand\global\noexpand\cmVIIIbierrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsviii\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm86m.mth b/macros/text1/pc/misc/cm86m.mth new file mode 100644 index 0000000000..9acea1b047 --- /dev/null +++ b/macros/text1/pc/misc/cm86m.mth @@ -0,0 +1,13 @@ +\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8 +\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10 +\font\cmVIIIbd=cmbx8 +\font\cmVIrm=cmr6 \font\cmVImi=cmmi6 +\font\cmVIsy=cmsy6 \font\cmVIex=cmex10 +\font\cmVIbd=cmbx6 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmVIIIrm \scriptfont1=\cmVIIImi + \scriptfont2=\cmVIIIsy \scriptfont3=\cmVIIIex + \scriptfont\bffam=\cmVIIIbd + \scriptscriptfont0=\cmVIrm \scriptscriptfont1=\cmVImi + \scriptscriptfont2=\cmVIsy \scriptscriptfont3=\cmVIex + \scriptscriptfont\bffam=\cmVIbd}% diff --git a/macros/text1/pc/misc/cm87m.mth b/macros/text1/pc/misc/cm87m.mth new file mode 100644 index 0000000000..5bc523025d --- /dev/null +++ b/macros/text1/pc/misc/cm87m.mth @@ -0,0 +1,10 @@ +\font\cmVIIImi=cmmi8 +\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10 +\font\cmVIIIbd=cmbx8\font\cmVIIIrm=cmr8 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmVIIIrm \scriptfont1=\cmVIIImi + \scriptfont2=\cmVIIIsy \scriptfont3=\cmVIIIex + \scriptfont\bffam=\cmVIIIbd + \scriptscriptfont0=\sevenrm \scriptscriptfont1=\seveni + \scriptscriptfont2=\sevensy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\sevenbf}% diff --git a/macros/text1/pc/misc/cm9.txt b/macros/text1/pc/misc/cm9.txt new file mode 100644 index 0000000000..8602cb2d64 --- /dev/null +++ b/macros/text1/pc/misc/cm9.txt @@ -0,0 +1,40 @@ +\global\newif\ifcmIXbierr +\font\cmIXcc=cmcsc9 +\font\cmIXrm=cmr9 \font\cmIXit=cmti9 +\font\cmIXbd=cmbx9 \font\cmIXmi=cmmi9 +\font\cmIXtt=cmtt9 +\expandafter\newdimen\csname\the\naMEtok ilsix\endcsname +\global\csname\the\naMEtok ilsix\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsix\endcsname=0pt +\csname\the\naMEtok ilsix\endcsname=11pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmIXrm}% +\def\noexpand\mi{\fam1\cmIXmi}% +\def\noexpand\sy{\fam2\tensy}% +\def\noexpand\ex{\fam3\tenex}% + \textfont0=\cmIXrm \textfont1=\cmIXmi + \textfont2=\tensy \textfont3=\tenex + \textfont\itfam=\cmIXit + \textfont\ttfam=\cmIXtt \textfont\bffam=\cmIXbd + \textfont\ccfam=\cmIXcc +\def\noexpand\bd{\fam\bffam\cmIXbd}% +\def\noexpand\it{\fam\itfam\cmIXit}% +\def\noexpand\tt{\fam\ttfam\cmIXtt}% +\def\noexpand\cc{\fam\ccfam\cmIXcc}% +\def\noexpand\bi{\noexpand\ifcmIXbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CM9. Will print italic font .}% +\noexpand\global\noexpand\cmIXbierrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsix\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cm97m.mth b/macros/text1/pc/misc/cm97m.mth new file mode 100644 index 0000000000..612ddf3587 --- /dev/null +++ b/macros/text1/pc/misc/cm97m.mth @@ -0,0 +1,10 @@ +\font\cmIXmi=cmmi9 +\font\cmIXsy=cmsy9 \font\cmIXex=cmex10 +\font\cmIXbd=cmbx9\font\cmIXrm=cmr9 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmIXrm \scriptfont1=\cmIXmi + \scriptfont2=\cmIXsy \scriptfont3=\cmIXex + \scriptfont\bffam=\cmIXbd + \scriptscriptfont0=\sevenrm \scriptscriptfont1=\seveni + \scriptscriptfont2=\sevensy \scriptscriptfont3=\tenex + \scriptscriptfont\bffam=\sevenbf}% diff --git a/macros/text1/pc/misc/cm98m.mth b/macros/text1/pc/misc/cm98m.mth new file mode 100644 index 0000000000..78e30ed089 --- /dev/null +++ b/macros/text1/pc/misc/cm98m.mth @@ -0,0 +1,13 @@ +\font\cmIXmi=cmmi9 +\font\cmIXsy=cmsy9 \font\cmIXex=cmex10 +\font\cmIXbd=cmbx9\font\cmIXrm=cmr9 +\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8 +\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10 +\font\cmVIIIbd=cmbx8 + \expandafter\gdef\csname\the\maTHtok\endcsname{% + \scriptfont0=\cmIXrm \scriptfont1=\cmIXmi + \scriptfont2=\cmIXsy \scriptfont3=\cmIXex + \scriptfont\bffam=\cmIXbd + \scriptscriptfont0=\cmVIIIrm \scriptscriptfont1=\cmVIIImi + \scriptscriptfont2=\cmVIIIsy \scriptscriptfont3=\cmVIIIex + \scriptscriptfont\bffam=\cmVIIIbd}% diff --git a/macros/text1/pc/misc/cmsan10.txt b/macros/text1/pc/misc/cmsan10.txt new file mode 100644 index 0000000000..cedf00fe5e --- /dev/null +++ b/macros/text1/pc/misc/cmsan10.txt @@ -0,0 +1,46 @@ +\global\newif\ifXssbierr +\global\newif\ifXssccerr +\global\newif\ifXsstterr +\font\cmXssrm=cmss10 \font\cmXssit=cmssi10 +\font\cmXssbd=cmssbx10 \font\cmXssmi=cmmi10 +\font\cmXsssy=cmsy10 \font\cmXssex=cmex10 +\expandafter\newdimen\csname\the\naMEtok ilsxss\endcsname +\global\csname\the\naMEtok ilsxss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxss\endcsname=0pt +\csname\the\naMEtok ilsxss\endcsname=12pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXssrm}% +\def\noexpand\mi{\fam1\cmXssmi}% +\def\noexpand\sy{\fam2\cmXsssy}% +\def\noexpand\ex{\fam3\cmXssex}% + \textfont0=\cmXssrm \textfont1=\cmXssmi + \textfont2=\cmXsssy \textfont3=\cmXssex + \textfont\itfam=\cmXssit + \textfont\bffam=\cmXssbd +\def\noexpand\bd{\fam\bffam\cmXssbd}% +\def\noexpand\it{\fam\itfam\cmXssit}% +\def\noexpand\bi{\noexpand\ifXssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN10. Will print italic font .}% +\noexpand\global\noexpand\Xssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN10. Will print roman font .}% +\noexpand\global\noexpand\Xsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN10. Will print roman font .}% +\noexpand\global\noexpand\Xssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan11.txt b/macros/text1/pc/misc/cmsan11.txt new file mode 100644 index 0000000000..e5da60857e --- /dev/null +++ b/macros/text1/pc/misc/cmsan11.txt @@ -0,0 +1,46 @@ +\global\newif\ifXIssbierr +\global\newif\ifXIssccerr +\global\newif\ifXIsstterr +\font\cmXIssrm=cmss11 \font\cmXIssit=cmssi11 +\font\cmXIssbd=cmssbx11 \font\cmXIssmi=cmmi11 +\font\cmXIsssy=cmsy11 \font\cmXIssex=cmex11 +\expandafter\newdimen\csname\the\naMEtok ilsxiss\endcsname +\global\csname\the\naMEtok ilsxiss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxiss\endcsname=0pt +\csname\the\naMEtok ilsxiss\endcsname=13pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIssrm}% +\def\noexpand\mi{\fam1\cmXIssmi}% +\def\noexpand\sy{\fam2\cmXIsssy}% +\def\noexpand\ex{\fam3\cmXIssex}% + \textfont0=\cmXIssrm \textfont1=\cmXIssmi + \textfont2=\cmXIsssy \textfont3=\cmXIssex + \textfont\itfam=\cmXIssit + \textfont\bffam=\cmXIssbd +\def\noexpand\bd{\fam\bffam\cmXIssbd}% +\def\noexpand\it{\fam\itfam\cmXIssit}% +\def\noexpand\bi{\noexpand\ifXIssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN11. Will print italic font .}% +\noexpand\global\noexpand\XIssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXIsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN11. Will print roman font .}% +\noexpand\global\noexpand\XIsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXIssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN11. Will print roman font .}% +\noexpand\global\noexpand\XIssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxiss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan12.txt b/macros/text1/pc/misc/cmsan12.txt new file mode 100644 index 0000000000..234dd3cbba --- /dev/null +++ b/macros/text1/pc/misc/cmsan12.txt @@ -0,0 +1,46 @@ +\global\newif\ifXIIssbierr +\global\newif\ifXIIssccerr +\global\newif\ifXIIsstterr +\font\cmXIIssrm=cmss12 \font\cmXIIssit=cmssi12 +\font\cmXIIssbd=cmssbx12 \font\cmXIIssmi=cmmi12 +\font\cmXIIsssy=cmsy12 \font\cmXIIssex=cmex12 +\expandafter\newdimen\csname\the\naMEtok ilsxiiss\endcsname +\global\csname\the\naMEtok ilsxiiss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxiiss\endcsname=0pt +\csname\the\naMEtok ilsxiiss\endcsname=14pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIIssrm}% +\def\noexpand\mi{\fam1\cmXIIssmi}% +\def\noexpand\sy{\fam2\cmXIIsssy}% +\def\noexpand\ex{\fam3\cmXIIssex}% + \textfont0=\cmXIIssrm \textfont1=\cmXIIssmi + \textfont2=\cmXIIsssy \textfont3=\cmXIIssex + \textfont\itfam=\cmXIIssit + \textfont\bffam=\cmXIIssbd +\def\noexpand\bd{\fam\bffam\cmXIIssbd}% +\def\noexpand\it{\fam\itfam\cmXIIssit}% +\def\noexpand\bi{\noexpand\ifXIIssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN12. Will print italic font .}% +\noexpand\global\noexpand\XIIssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXIIsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN12. Will print roman font .}% +\noexpand\global\noexpand\XIIsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXIIssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN12. Will print roman font .}% +\noexpand\global\noexpand\XIIssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxiiss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan14.txt b/macros/text1/pc/misc/cmsan14.txt new file mode 100644 index 0000000000..23d2eb54a5 --- /dev/null +++ b/macros/text1/pc/misc/cmsan14.txt @@ -0,0 +1,46 @@ +\global\newif\ifXIVssbierr +\global\newif\ifXIVssccerr +\global\newif\ifXIVsstterr +\font\cmXIVssrm=cmss14 \font\cmXIVssit=cmssi14 +\font\cmXIVssbd=cmssbx14 \font\cmXIVssmi=cmmi14 +\font\cmXIVsssy=cmsy14 \font\cmXIVssex=cmex14 +\expandafter\newdimen\csname\the\naMEtok ilsxivss\endcsname +\global\csname\the\naMEtok ilsxivss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxivss\endcsname=0pt +\csname\the\naMEtok ilsxivss\endcsname=16pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXIVssrm}% +\def\noexpand\mi{\fam1\cmXIVssmi}% +\def\noexpand\sy{\fam2\cmXIVsssy}% +\def\noexpand\ex{\fam3\cmXIVssex}% + \textfont0=\cmXIVssrm \textfont1=\cmXIVssmi + \textfont2=\cmXIVsssy \textfont3=\cmXIVssex + \textfont\itfam=\cmXIVssit + \textfont\bffam=\cmXIVssbd +\def\noexpand\bd{\fam\bffam\cmXIVssbd}% +\def\noexpand\it{\fam\itfam\cmXIVssit}% +\def\noexpand\bi{\noexpand\ifXIVssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN14. Will print italic font .}% +\noexpand\global\noexpand\XIVssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXIVsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN14. Will print roman font .}% +\noexpand\global\noexpand\XIVsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXIVssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN14. Will print roman font .}% +\noexpand\global\noexpand\XIVssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxivss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan18.txt b/macros/text1/pc/misc/cmsan18.txt new file mode 100644 index 0000000000..a1a581291e --- /dev/null +++ b/macros/text1/pc/misc/cmsan18.txt @@ -0,0 +1,46 @@ +\global\newif\ifXVIIIssbierr +\global\newif\ifXVIIIssccerr +\global\newif\ifXVIIIsstterr +\font\cmXVIIIssrm=cmss18 \font\cmXVIIIssit=cmssi18 +\font\cmXVIIIssbd=cmssbx18 \font\cmXVIIIssmi=cmmi18 +\font\cmXVIIIsssy=cmsy18 \font\cmXVIIIssex=cmex18 +\expandafter\newdimen\csname\the\naMEtok ilsxviiiss\endcsname +\global\csname\the\naMEtok ilsxviiiss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxviiiss\endcsname=0pt +\csname\the\naMEtok ilsxviiiss\endcsname=20pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXVIIIssrm}% +\def\noexpand\mi{\fam1\cmXVIIIssmi}% +\def\noexpand\sy{\fam2\cmXVIIIsssy}% +\def\noexpand\ex{\fam3\cmXVIIIssex}% + \textfont0=\cmXVIIIssrm \textfont1=\cmXVIIIssmi + \textfont2=\cmXVIIIsssy \textfont3=\cmXVIIIssex + \textfont\itfam=\cmXVIIIssit + \textfont\bffam=\cmXVIIIssbd +\def\noexpand\bd{\fam\bffam\cmXVIIIssbd}% +\def\noexpand\it{\fam\itfam\cmXVIIIssit}% +\def\noexpand\bi{\noexpand\ifXVIIIssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN18. Will print italic font .}% +\noexpand\global\noexpand\XVIIIssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXVIIIsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN18. Will print roman font .}% +\noexpand\global\noexpand\XVIIIsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXVIIIssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN18. Will print roman font .}% +\noexpand\global\noexpand\XVIIIssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxviiiss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan24.txt b/macros/text1/pc/misc/cmsan24.txt new file mode 100644 index 0000000000..d035cc6ecd --- /dev/null +++ b/macros/text1/pc/misc/cmsan24.txt @@ -0,0 +1,46 @@ +\global\newif\ifXXIVssbierr +\global\newif\ifXXIVssccerr +\global\newif\ifXXIVsstterr +\font\cmXXIVssrm=cmss24 \font\cmXXIVssit=cmssi24 +\font\cmXXIVssbd=cmssbx24 \font\cmXXIVssmi=cmmi24 +\font\cmXXIVsssy=cmsy24 \font\cmXXIVssex=cmex24 +\expandafter\newdimen\csname\the\naMEtok ilsxxivss\endcsname +\global\csname\the\naMEtok ilsxxivss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxxivss\endcsname=0pt +\csname\the\naMEtok ilsxxivss\endcsname=26pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXXIVssrm}% +\def\noexpand\mi{\fam1\cmXXIVssmi}% +\def\noexpand\sy{\fam2\cmXXIVsssy}% +\def\noexpand\ex{\fam3\cmXXIVssex}% + \textfont0=\cmXXIVssrm \textfont1=\cmXXIVssmi + \textfont2=\cmXXIVsssy \textfont3=\cmXXIVssex + \textfont\itfam=\cmXXIVssit + \textfont\bffam=\cmXXIVssbd +\def\noexpand\bd{\fam\bffam\cmXXIVssbd}% +\def\noexpand\it{\fam\itfam\cmXXIVssit}% +\def\noexpand\bi{\noexpand\ifXXIVssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN24. Will print italic font .}% +\noexpand\global\noexpand\XXIVssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXXIVsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN24. Will print roman font .}% +\noexpand\global\noexpand\XXIVsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXXIVssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN24. Will print roman font .}% +\noexpand\global\noexpand\XXIVssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxxivss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan36.txt b/macros/text1/pc/misc/cmsan36.txt new file mode 100644 index 0000000000..3a64c94a76 --- /dev/null +++ b/macros/text1/pc/misc/cmsan36.txt @@ -0,0 +1,46 @@ +\global\newif\ifXXXVIssbierr +\global\newif\ifXXXVIssccerr +\global\newif\ifXXXVIsstterr +\font\cmXXXVIssrm=cmss36 \font\cmXXXVIssit=cmssi36 +\font\cmXXXVIssbd=cmssbx36 \font\cmXXXVIssmi=cmmi36 +\font\cmXXXVIsssy=cmsy36 \font\cmXXXVIssex=cmex24 +\expandafter\newdimen\csname\the\naMEtok ilsxxivss\endcsname +\global\csname\the\naMEtok ilsxxivss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsxxivss\endcsname=0pt +\csname\the\naMEtok ilsxxivss\endcsname=38pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmXXXVIssrm}% +\def\noexpand\mi{\fam1\cmXXXVIssmi}% +\def\noexpand\sy{\fam2\cmXXXVIsssy}% +\def\noexpand\ex{\fam3\cmXXXVIssex}% + \textfont0=\cmXXXVIssrm \textfont1=\cmXXXVIssmi + \textfont2=\cmXXXVIsssy \textfont3=\cmXXXVIssex + \textfont\itfam=\cmXXXVIssit + \textfont\bffam=\cmXXXVIssbd +\def\noexpand\bd{\fam\bffam\cmXXXVIssbd}% +\def\noexpand\it{\fam\itfam\cmXXXVIssit}% +\def\noexpand\bi{\noexpand\ifXXXVIssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN36. Will print italic font .}% +\noexpand\global\noexpand\XXXVIssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifXXXVIsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN36. Will print roman font .}% +\noexpand\global\noexpand\XXXVIsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifXXXVIssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN36. Will print roman font .}% +\noexpand\global\noexpand\XXXVIssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsxxivss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan8.txt b/macros/text1/pc/misc/cmsan8.txt new file mode 100644 index 0000000000..710177059f --- /dev/null +++ b/macros/text1/pc/misc/cmsan8.txt @@ -0,0 +1,49 @@ +\global\newif\ifcmVIIIssbierr +\global\newif\ifcmVIIIssccerr +\global\newif\ifcmVIIIsstterr +\global\newif\ifcmVIIIssbderr +\font\cmVIIIssit=cmssi8 +\font\cmVIIIssrm=cmss8 \font\cmVIIIssmi=cmmi8 +\font\cmVIIIsssy=cmsy8 \font\cmVIIIssex=cmex10 +\expandafter\newdimen\csname\the\naMEtok ilsviiiss\endcsname +\global\csname\the\naMEtok ilsviiiss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsviiiss\endcsname=0pt +\csname\the\naMEtok ilsviiiss\endcsname=10pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmVIIIssrm}% +\def\noexpand\mi{\fam1\cmVIIIssmi}% +\def\noexpand\sy{\fam2\cmVIIIsssy}% +\def\noexpand\ex{\fam3\cmVIIIssex}% + \textfont0=\cmVIIIssrm \textfont1=\cmVIIIssmi + \textfont2=\cmVIIIsssy \textfont3=\cmVIIIssex + \textfont\itfam=\cmVIIIssit +\def\noexpand\it{\fam\itfam\cmVIIIssit}% +\def\noexpand\bd{\noexpand\ifcmVIIIssbderr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No bold font in CMSAN8. Will print roman font .}% +\noexpand\global\noexpand\cmVIIIssbderrtrue \noexpand\fi}% +\def\noexpand\bi{\noexpand\ifcmVIIIssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN8. Will print italic font .}% +\noexpand\global\noexpand\cmVIIIssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifcmVIIIsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN8. Will print roman font .}% +\noexpand\global\noexpand\cmVIIIsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifcmVIIIssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN8. Will print roman font .}% +\noexpand\global\noexpand\cmVIIIssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsviiiss\noexpand\endcsname}}% diff --git a/macros/text1/pc/misc/cmsan9.txt b/macros/text1/pc/misc/cmsan9.txt new file mode 100644 index 0000000000..7309c82d45 --- /dev/null +++ b/macros/text1/pc/misc/cmsan9.txt @@ -0,0 +1,46 @@ +\global\newif\ifIXssbierr +\global\newif\ifIXssccerr +\global\newif\ifIXsstterr +\font\cmIXssrm=cmss9 \font\cmIXssit=cmssi9 +\font\cmIXssbd=cmssbx9 \font\cmIXssmi=cmmi9 +\font\cmIXsssy=cmsy9 \font\cmIXssex=cmex10 +\expandafter\newdimen\csname\the\naMEtok ilsixss\endcsname +\global\csname\the\naMEtok ilsixss\endcsname=\bAseSkip +\ifdim\csname\the\naMEtok ilsixss\endcsname=0pt +\csname\the\naMEtok ilsixss\endcsname=11pt\fi% +\expandafter\xdef\csname\the\naMEtok\endcsname{% +\def\noexpand\rm{\fam0\cmIXssrm}% +\def\noexpand\mi{\fam1\cmIXssmi}% +\def\noexpand\sy{\fam2\cmIXsssy}% +\def\noexpand\ex{\fam3\cmIXssex}% + \textfont0=\cmIXssrm \textfont1=\cmIXssmi + \textfont2=\cmIXsssy \textfont3=\cmIXssex + \textfont\itfam=\cmIXssit + \textfont\bffam=\cmIXssbd +\def\noexpand\bd{\fam\bffam\cmIXssbd}% +\def\noexpand\it{\fam\itfam\cmIXssit}% +\def\noexpand\bi{\noexpand\ifIXssbierr\noexpand\it% +\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. % +No bold italic font in CMSAN9. Will print italic font .}% +\noexpand\global\noexpand\IXssbierrtrue \noexpand\fi}% +\def\noexpand\tt{\noexpand\ifIXsstterr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No typewriter font in CMSAN9. Will print roman font .}% +\noexpand\global\noexpand\IXsstterrtrue \noexpand\fi}% +\def\noexpand\cc{\noexpand\ifIXssccerr\noexpand\rm% +\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. % +No small caps font in CMSAN9. Will print roman font .}% +\noexpand\global\noexpand\IXssccerrtrue \noexpand\fi}% +\noexpand\rm% +\noexpand\nonIBM% +\noexpand\let\noexpand\bolditalic=\noexpand\bi% +\noexpand\let\noexpand\italic=\noexpand\it% +\noexpand\let\noexpand\bold=\noexpand\bd% +\noexpand\let\noexpand\caps=\noexpand\cc% +\noexpand\let\noexpand\typewriter=\noexpand\tt% +\noexpand\let\noexpand\roman=\noexpand\rm% +\noexpand\let\noexpand\symbol=\noexpand\sy% +\noexpand\let\noexpand\mathitalic=\noexpand\mi% +\noexpand\let\noexpand\extension=\noexpand\ex% +\noexpand\interlineskip{% +\noexpand\csname\the\naMEtok ilsixss\noexpand\endcsname}}% diff --git a/macros/text1/pc/models/letter.inp b/macros/text1/pc/models/letter.inp new file mode 100644 index 0000000000..4cac048afa --- /dev/null +++ b/macros/text1/pc/models/letter.inp @@ -0,0 +1,51 @@ +% LETTER FORMAT FILE bth 4/1/87 +\catcode`*=11 +\raggedbottom % text height may vary from page to page +\if*msp\defaultmono + \let\titlefont=\defaultmono + \let\twelvept=\defaultmono + \let\tenpt=\defaultmono + \let\rm=\defaultmono + \fi % monospace check +\newtoks\departmentname % department name for letterhead +\newtoks\campuszip % zip code for letterhead +\newtoks\campusphone % phone number for letterhead +\newtoks\date % date token list +\newif\if*postscript +\*postscriptfalse +% +\def\STOP{\endgroup\par}% ends obeylines grouping +% +\def\BEGINADDRESS{\begingroup\parskip=0pt\parindent=0pt\obeylines}% +\let\SALUTATION=\null +\let\BODY=\STOP +\def\CLOSING{\par\vs{\bl}\begingroup\parskip=0pt\parindent=0pt + \obeylines}% +\def\COPIES{\par\vs{\bl} + \setbox0=\hbox{Copies:\quad}\parindent=\wd0 \nin Copies:\quad}% +\def\ENCLOSURES#1{\par Enclosures:\quad #1}% sets enclosures text line +\def\ENDLETTER{\par\endgroup}% stop any obeylines grouping +% Default for the title (first) page +\titlepageformat{\titleleadskip{0in} + \titlefootline{} +}% end title page format +\def\letterhead{{\parskip=0pt + \if*msp + \cl{\titlefont Washington State University} + \vs{\bl}\hrule\vs{\bl} + \cl{\the\departmentname} + \cl{Pullman, Washington\ \the\campuszip} + \cl{\the\campusphone} + \vs{1\bl} % number of blank lines inserted + \nin\the\date % + \else + \cl{\titlefont Washington State University} + \vs{4pt}\hrule\vs{6pt} + \cl{\twelvept \the\departmentname} + \cl{\tenpt Pullman, Washington\ \the\campuszip} + \cl{\tenpt \the\campusphone} + \vs{1\bl} % number of blank lines inserted + \nin\the\date % + \fi +}}% end letterhead markup +\catcode`*=12 diff --git a/macros/text1/pc/models/letter.mdl b/macros/text1/pc/models/letter.mdl new file mode 100644 index 0000000000..432fffbdfe --- /dev/null +++ b/macros/text1/pc/models/letter.mdl @@ -0,0 +1,45 @@ +% LETTER MARKUP (style, full block) APRIL 1, 1986 +% To print on monospace printers (line printers, daisy-wheel printers) +%\monospace % delete the "%" symbol at the beginning of this line +\paragraphskip{12pt} % distance between paragraphs +\paragraphindent{0pt} % first line word indent +\sfs{cm18}{titlefont}{24pt}% large font selected for letterhead +\input letter.inp % places the format file into your text file +% LETTERHEAD INFORMATION +% Type the name of your department, the campus zip code, +% the campus telephone number, and date (if not today's +% date) between the curly braces of the samples shown +% below. This information will be added to the letterhead. +%........................................................................ +\departmentname{name of your department or organization} +\campuszip{99164-????} +\campusphone{(509) 335-????} +\date{\today} +% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . +\letterhead % +\vs{2\bl} % +% LETTER ADDRESS +\BEGINADDRESS % . . . . insert address below this line . . . . . . . . . +\SALUTATION % . . . replace the salutation on the next line . . . . . . . +Dear ???? +\BODY % LETTER BODY +% . . . . . . insert the text of the letter below this line . . . . . . . +% . . . . . . . . . . . . and above this line . . . . . . . . . . . . . . +% LETTER CLOSING +\CLOSING % . . . . replace closing line, if desired . . . . . . . . . . . +Sincerely yours, +\vs{3\bl} +% SIGNATURE LINE +% . . . . . . . . . replace signature line . . . . . . . . . . . . . . . +John Doe +\vs{\bl} +% ENCLOSURES AND COPIES +% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . +% Use \ENCLOSURES markup for an enclosure number, % +% for example: \ENCLOSURES{3} % +% Use \COPIES markup for a copy list, % +% for example: \COPIES first name % +% second name % +% third name, etc. % +% . . . . . . . enter enclosures and copies below this line . . . . . . . +\ENDLETTER %------------- and above this line --------------------------- diff --git a/macros/text1/pc/models/memo.inp b/macros/text1/pc/models/memo.inp new file mode 100644 index 0000000000..bbf6aa632e --- /dev/null +++ b/macros/text1/pc/models/memo.inp @@ -0,0 +1,48 @@ +% MEMO TEXINPUT FORMAT FILE +% dlw 8/15/86 +\catcode`*=11 +\if*msp \let\titlefont=\defaultmono + \let\twelvept=\defaultmono + \let\tenpt=\defaultmono + \let\rm=\defaultmono + \fi % change all fonts to defaultmono for the monospace option +\rightragged +\newif\if*copies +\*copiesfalse +\newtoks\*lfthead \*lfthead = { } +\newtoks\*ctrhead \*ctrhead = { } +\newtoks\*rthead \*rthead = { } +\rightragged +% Default for the title (first) page +\titlepageformat{\titleleadskip{0in} + \titlefootline{} +} +\def\memopageheadingformat#1{% setup for memo running head + \def\*left##1{\global\*lfthead={##1}}% + \def\*center##1{\global\*ctrhead={##1}}% + \def\*right##1{\global\*rthead={##1}}% +#1}% end memoheading format +\let\mhf=\memopageheadingformat +\memopageheadingformat{\*left{}\*center{\pagenumber}\*right{}} +\runningheadformat{\bothpages{\twelvept + \line{\hbox to.33333\hsize{\the\*lfthead\hss}\hfil + \hbox to.33333\hsize{\hss\the\*ctrhead\hss}\hfil + \hbox to.33333\hsize{\hss\the\*rthead}} + \vs{28pt}} % 28pt = .4in +}% end runningheadformat +\def\MEMO{\begingroup\obeylines\parskip=0pt\parindent=60pt}% +\def\TEXT{\endgroup\if*msp\defaultmono\ssp\else\twelvept\fi % + \vs{\bl}\hrule\vs{2\bl}}% +% +\cl{{\titlefont M E M O R A N D U M}} +\if*msp\par\vs{\bl}\ssp + \else\par\vs{.4in}\isk{18pt}\fi +\def\TO{\nin To:\par\vs{-\bl}}% +\def\FROM{\if*msp\vs{\bl}\fi\nin From:\par\vs{-\bl}}% +\def\DATE#1{\if*msp\vs{\bl}\fi\nin Date:\par\vs{-\bl}#1}% +\def\SUBJECT{\if*msp\vs{\bl}\fi\nin Subject:\par\vs{-\bl}}% +\def\COPIES{\global\*copiestrue\vs{\bl}\nin Copies:\par\vs{-\bl} % + \begingroup\obeylines\singlespace % + \parskip=0pt\parindent=60pt}% +\def\ENDMEMO{\if*copies\par\endgroup\global\*copiesfalse\else\par\fi}% +\catcode`*=12 diff --git a/macros/text1/pc/models/memo.mdl b/macros/text1/pc/models/memo.mdl new file mode 100644 index 0000000000..42d03e93be --- /dev/null +++ b/macros/text1/pc/models/memo.mdl @@ -0,0 +1,21 @@ +% MEMO TEXMODEL +% August 15, 1986 +% To print on monospace printers delete the % symbol before \monospace +%\monospace +\sfs{cm18}{titlefont}{24pt}% Font selected for heading +\input memo.inp % Loads memorandum format file +\MEMO % Prints memorandum heading +%--------Enter the text after each markup on the following lines--------- +%------------------multiple line entries may be used--------------------- +\TO +\FROM +\DATE {\today} +\SUBJECT +\TEXT %----- Insert the memo below this line----------------------------- + +%--------------For a list of copies use the \COPIES: markup------------- +% for example: \COPIES first name +% second name +% third name, etc. +%------------enter the copies markup and names below this line----------- +\ENDMEMO % ----------------and before this line-------------------------- diff --git a/macros/text1/pc/models/mergelet.mdl b/macros/text1/pc/models/mergelet.mdl new file mode 100644 index 0000000000..de4e4fa4b2 --- /dev/null +++ b/macros/text1/pc/models/mergelet.mdl @@ -0,0 +1,77 @@ +% Sample Letter for Merge File Model +% +% TEXT1 Letterhead description, change to suit your letter +% +% +\begingroup +\paragraphskip{0pt} +\centerline{{\titlefont Washington State University}} +\vs{4pt}\hrule\vs{4pt} +\centerline{{\twelvept\bd Academic Computing Service}} +\vs{-2pt} +\centerline{{\tenpt Pullman, Washington 99164-1220\lbr 509/335-0411}} +\vs{1\bl} % number of blank lines inserted +\endgroup +\vs{\bl} +\tenpt +\nin{\today} +\vs{\bl} +\asisbegin +\noemptyspace\title\ \firstname\ \lastname +\noemptyspace\company +\address +\city, \state\ \zipcode +\phone + +Dear \firstname: + +\asisend +This letter is a sample for the merge file facility of \text1. Ten +data fields were created with DBASE~III on a PC and transferred to +CMS. The fields were delimited with double quotations marks +({\tt "}) and a comma placed between data fields by DBASE. Any data +base program that allows data fields to be delimited with quotation +marks could be used. A data file may also be created +directly on CMS by entering the data in the following manner:\lbr +\hs{2in}{\tt "}field one{\tt "},{\tt "}field two{\tt "},\ellipsis3,{\tt +"}last field{\tt "}\lbr +or written as \lbr +\hs{2in}{\tt "}field one{\tt ""}field two{\tt "\ellipsis3\ "}last +field{\tt "}\lbr +the commas between data fields are optional. + +Quotation marks must be placed on either side of each field +(delimit the field) and the {\it each data field must come in the same +sequence as the data names specified in the {\tt \\fieldnames} markup}. +{\bd No \it field may be omitted}, however, a field may be empty +({\it i.e.}, {\tt "}first field{\tt ","","}third field{\tt "} +\ellipsis3 ). + +The data markup (field names immediately preceded by a {\tt \\} ) +may be used to place text anywhere in the letter, but +each field should be followed by a control space markup (\\ \ , a +backslash followed by a blank space) or \text1 +will drop the space after the field. For example, the \\firstname\\ +\\lastname and \\amount markup have been used to add the +recipients name and a dollar amount in the following line. + +\cl{The \firstname\ \lastname\ account has been charged \amount\ for +printing services.} + +The {\tt \\noemptyspace} markup may be used to prevent a blank line +if an address line is empty. Place the data field markup between the +{\tt \\noemptyspace} markup and the linebreak ({\tt \\lbr}) markup +({\it i.e.}, {\tt \\noemptyspace\\company\\lbr} would prevent a blank +line if the company data field were empty). The {\tt\\noemptyspace} +markup prevents an extra space after an empty data field. Place +it in the following manner: {\tt \\noemptyspace\\title\\ +\\firstname\\ \\lastname\\lbr} The {\tt \\noemptyspace} markup will +remove the following control space ({\tt \\ }) or control line break +({\tt \\lbr}) if the specified data field +is empty. +\vs{\bl} +\noindent +Sincerely yours, +\vs{3\bl} +\noindent +John Doe diff --git a/macros/text1/pc/models/mergelst.mdl b/macros/text1/pc/models/mergelst.mdl new file mode 100644 index 0000000000..0d15914892 --- /dev/null +++ b/macros/text1/pc/models/mergelst.mdl @@ -0,0 +1,17 @@ +% Sample data base Merge File address list, created with dBASE III +% data field names are as follows: +% title, firstname, lastname, company, address, +% city, state, zipcode, phone, amount +% All data fields must be present for each entry, although the data +% field itself may be empty (i.e., "" is an empty or null data field). +% +"Ms.","Claire","Buckman","ABC Distributing Director","8307 Santa Anita +Blvd","Oxnard","CA","93034","(555)456-9059","$5.00" +"Mr.","Rick","Lisbonn","Vice-President for Marketing","1550 Keystone +St.","Glendale","CA","91206","(555)455-3344","$15.00" +"Dr.","Hank","Bicksby","Research Institute, Manager","4101 Peonia +Rd","Flagstaff","AZ","86001","(555)966-1278","$25.00" +"","Lena","Garnett","","520 S. 8th St.","Reno","NV","89504", +"(555)766-9121","$3.00" +"Mrs.","Lisa","Kafmanan","Sales Support Staff Manager","1960 Lindley +Ave.","Reseda","CA","91355","(555)860-0300","$8.00" diff --git a/macros/text1/pc/models/mergetxt.inp b/macros/text1/pc/models/mergetxt.inp new file mode 100644 index 0000000000..a25e9617e5 --- /dev/null +++ b/macros/text1/pc/models/mergetxt.inp @@ -0,0 +1,184 @@ +% Merge File Model Macro Definition File +\catcode`*=11 +\catcode`"=\active +\catcode`,=\active +\catcode`@=\active +\newbox\FirstUp +\newbox\SecondUp +\newbox\ThirdUp +\newcount\*first \*first=0 % first token field +\newcount\*index \*index=0 % field index +\newcount\*lastentry \*lastentry=0 % last token filed +\newcount\*letternumber \*letternumber=0 % letter number from start +\newcount\LblsUp \LblsUp=1 % number of labels per line +\newcount\LblsAcross \LblsAcross=0 % counter for labels accross +\newdimen\LblMat \LblMat=0pt % left and right label margins +\newdimen\LblHt \LblHt=0in % vertical label size +\newdimen\LblWd \LblWd=0in % horozontal label size +\newif\if*check \*checkfalse % datacheck for manual entry +\newif\if*lbfopen \*lbfopenfalse % check for open label file +\newtoks\*csnametoks \*csnametoks={} % tokens for field names +\newtoks\*maillblfmt \*maillblfmt={} % label sheet format code +\newtoks\*addrlbl \*addrlbl={} % address label tokens +\newwrite\*labels % create label filee + +\gdef,{\char'54{}}% +% Datacheck forces a print letter after each set of fields +\def\datacheck{\global\*checktrue}% +\def@{\ifnum\*index>0 + \global\*index=\*first % reset index + \if*check + \global\advance\*letternumber by1 + \immediate\write16{Letter number \the\*letternumber. + First Data Field: (\the\toks\*first) . . . + Last Data Field: (\the\toks\*lastentry ). } + \fi % write to log file for data check + \*prnletter % print current data + \fi +} % end of @ definition + +% Take user defined names to build control sequences +\def\fieldnames#1{\par + \global\advance\count15 by 1 % new token register + \global\*first=\count15 % first new token register + \parsenames#1\end}% end fieldnames markup + +% Separate name fields into individual entries +\def\parsenames#1{\ifx#1\end + \createfield + \let\next=\relax + \global\*lastentry=\count15 + \global\*index=\*first + \*csnametoks={} + \else + \ifx#1, + \createfield + \global\advance\count15 by 1 + \*csnametoks={} + \let\next=\parsenames + \else \*csnametoks=\expandafter{\the\*csnametoks#1} + \let\next=\parsenames + \fi\fi + \next}% end parsenames markup + +% CREATEFIELD create control sequence names from name field entries +\def\createfield{\expandafter\xdef\csname\the\*csnametoks\endcsname + {\noexpand\the\toks\the\count15 }}% end createfield markup + +% DEFINE " as name of merge command +\def"#1"{% set quote marks as active macro and delimiter + \ifnum\*index=0 \global\*index=\*first\fi + \global\toks\*index={#1} % gather argument in token variable + \ifnum\*index<\*lastentry % continue gathering process + \gdef,{\gdef,{\char'54{}}}% % drop , in data but not in text + \global\advance\*index by1 % index by 1 + \ignorespaces % eliminate spurious spaces + \else % end process + \global\*index=0 + \if*check + \global\advance\*letternumber by1 + \immediate\write16{Letter number \the\*letternumber. + First Data Field: (\the\toks\*first) . . . + Last Data Field: (\the\toks\*lastentry ). } + \fi % write to log file for data check + \*prnletter % print current data + \fi}% end define " as macro name + +% Merge letter text file merged for each data record +\def\*prnletter{% Print the letter text with current name/address fields + \catcode`"=12\catcode`@=3 % set " and @ to normal catcodes + \newpage % start new page for each letter + \setpagenumber{1} % reset page number + \inputletter % new page then get letter text file + \*savelabels{\*setlabel} % save address label information + \catcode`"=\active\catcode`@=\active % reset catcodes for markup defs + \relax}% end prnletter markup + +% Give filename for letter text +\def\documentfilename#1{\gdef\inputletter{\input #1 }}% + +% Give maillist data filename +\def\datafilename#1{\input #1 }% + +% Print no empty lines with the line break markup +\def\noemptyspace#1#2{\edef\V{#1}\edef\W{\empty}% + \ifx\V\W% do nothing if empty argument + \else #1#2\fi% if not empty replace argument with the line break +}% end no emptyspace +\let\nes=\noemptyspace % set abbreviation + + +% SAVELABELS ships information for labels to the label file +\def\*savelabels#1{% Write Mail Label Information to TEXT1$$.LABEL + \if*lbfopen % do nothing if file TEXT1$$.LABEL already open + \else \immediate\openout\*labels=text1$$.label % open TEXT1$$.LABEL + \immediate\write\*labels{\the\*maillblfmt} % write format + \global\*lbfopentrue\fi % set open flag + \global\advance\LblsAcross by1 % set label postion pointer + \ifnum\LblsAcross>\LblsUp \global\LblsAcross=1 \fi + \edef\T{% create labels + \ifnum\LblsAcross=1 \setbox\FirstUp=\fi % left label + \ifnum\LblsAcross=2 \setbox\SecondUp=\fi% center label + \ifnum\LblsAcross=3 \setbox\ThirdUp=\fi % right label + \vtop to\LblHt{\hsize=\LblWd \leftskip=\LblMat \rightskip=\LblMat + \parindent=0pt #1\par\vfil} % make label to label size and width + \ifnum\LblsAcross=\LblsUp % print labels + \ifcase\LblsUp% case 0, no labels specified + \or\setbox\SecondUp=\null \setbox\ThirdUp=\null % one label + \or \setbox\ThirdUp=\null % two labels + \fi% end case % three label default + \line{\box\FirstUp\box\SecondUp\box\ThirdUp\hfil} + \fi}% end definition of T + \immediate\write\*labels{\T} % write information to file +}% end save labels definition + +% Flushlabels prints any unprinted labels remaining in the markup +\def\*flushlabels{% print any remaining boxed labels + \ifcase\LblsUp % case ), no labels specified + \or \setbox\SecondUp=\null \setbox\ThirdUp=\null % one label + \or \setbox\ThirdUp=\null % two labels + \fi% end case % three label default + \immediate\write\*labels{\line{\box\FirstUp\box\SecondUp\box\ThirdUp + \hfil}}% +}% end flush any remaining labels + +% Print the label file TEXT1$$.LABEL +\def\printlabels{\newpage % end last letter + \*flushlabels % print any remaining labels + \immediate\closeout\*labels % close data file + \setpagenumber{99} % labels begin on page 99 + \input text1$$.label % input the address label data file +}% end print mailing labels + +\def\addresslabelformat#1{\global\*addrlbl={#1}}% +\*addrlbl={} + +\def\*setlabel{\the\*addrlbl}% + +% Set format for the mailing labels +\def\maillabelformat#1{% Sets dimensions and margins of each label + \def\labelsetup##1{\global\*maillblfmt={##1}}% + \def\numberoflabelsperline##1{\global\LblsUp=##1}% + \def\labelheight##1{\global\LblHt=##1}% + \def\labelwidth##1{\global\LblWd=##1}% + \def\labelmat##1{\global\LblMat=##1}% + #1}% end mail label format +\let\mlfmt=\maillabelformat % set abbreviation +\catcode`*=12 + +% Set defaults for the mailing labels +% Maillabelformat sets the page and label information for mailing labels +\maillabelformat{\labelsetup{% Sets page and margin settings + \raggedbottom + \parskip=0pt plus0pt minus0pt + \runningheadformat{\bothpages{\line{}}} + \pageformat{\topmargin{1in} + \bottommargin{0pt} + \leftmargin{0pt} + \rightmargin{0pt}}% end page format + }% end labelsetup + \numberoflabelsperline{3}% three labels max + \labelheight{1in} + \labelwidth{2.75in} + \labelmat{.25in} +}% end mail label format diff --git a/macros/text1/pc/models/mergetxt.mdl b/macros/text1/pc/models/mergetxt.mdl new file mode 100644 index 0000000000..9b5c9ac534 --- /dev/null +++ b/macros/text1/pc/models/mergetxt.mdl @@ -0,0 +1,96 @@ +% MERGE LETTER MODEL, merges address list with letter +\input mergetxt.inp % READ TEXT1 merge file format instructions +% +% Select special fonts and setting markup used +% in the merge process here: +% +\selectfontset{cm18}{titlefont}{default} % special letter heading font +\titlepageformat{\titleleadskip{0in}} % no initial skip for letters +% +% Run TEXT1 against a file on your disk that includes +% this model. A set of five sample letters will be printed. The +% sample letter describes the mail merge setup. Once you have +% run the model and read the letter, make the necessary +% modifications to your file. Set the address field names of +% your address file in the "\fieldnames{name, name, ...}" +% markup with the data field names of your data base file. +% Create the "shell letter," your letter, which includes the +% address field names of your data file, preceded by a "\", +% i.e., \namea, \nameb, etc. You need use only those data +% fields necessary in the document and address label, but all +% fields in your data base file must be given in the field +% names markup. Specify the name of your letter file +% "shell letter" with the "\documentfilename{fn.ft}" markup; +% specify the address data file with the "\addressfile{...}" +% markup; and then PRINT the file containing your letter merge +% model to merge the address file with the shell letter and +% print the label sheet. +% +% NOTE: If you create an address file by hand remove the percent sign +% before the datacheck MARKUP. The number of the letter from the +% beginning of the merge file data base and the first and last +% data fields will be listed on the screen and in the log file +% when data check is active. This will aid you in finding any +% errors in your data file. +% +%\datacheck % SET DATACHECK by removing the "%" symbol +% +% Give all data field names in sequence of occurrence +% (address list names) +% +% Format: \fieldnames{name1, name2, name3, ..., namelast} + +\fieldnames{title, firstname, lastname, company, address, city, + state, zipcode, phone, amount} + +% Give file name for document text (letter file that includes +% the field names for the replaceable text in the document) +% +% Format: \documentfilename{filename.filetype} + +\documentfilename{mergelet.mdl} + +% WARNING! +% If you want to modify the address label format, then the +% \addresslabelformat markup MUST come prior to the +% \datafilename markup. +% +% Format: \addresslabelformat{all fields and markup to create label} + +\addresslabelformat{\noindent\title\ \firstname\ \lastname\lbr + \company\lbr + \address\lbr + \city, \state\quad\zipcode} + +% Now specify where the address data file is located with +% the \datafilename markup. +% +% Format: \datafilename{filename.filetype} + +\datafilename{mergelst.mdl} + +% PRINTING A MAILING LABEL SHEET +% +% You may use the "\maillabelformat{}" markup to change +% the default label format markup. The default label format +% prints three inch-high labels across the page which can be +% copied onto a label sheet with an appropriate copy machine. +% +% WARNING! +% The \maillabelformat{} markup must be placed BEFORE the +% \printlabels markup to change the system defaults. +% +% Select the font setto be used in printing the labels. + +\tenpt % prints labels with computer modern ten point + +\printlabels % print address label sheet for Xerox label sheet + +% Labels will be printed beginning on page 99. +% +% WARNING! +% If you have an empty data field occurs in the data being +% processed within the \addresslabelformat, the field will +% be printed as a blank space or as a blank line if the +% field is by itself on the line. + diff --git a/macros/text1/pc/models/paper.inp b/macros/text1/pc/models/paper.inp new file mode 100644 index 0000000000..b0baec1743 --- /dev/null +++ b/macros/text1/pc/models/paper.inp @@ -0,0 +1,10 @@ +% Student Paper Layout -- Monospace +\footnoteformat{\everyfootnote{\rm\pin{.5in}\psk{1\bl} + \frenchspacing\singlespace} +} +\bibliographyformat{\bibentryformat{\goodbreak\vs{1\bl} + \frenchspacing\singlespace\hp\nin} + \titleformat{\np\cl{\us\bibtitle} + \vs{\bl} + } +} diff --git a/macros/text1/pc/models/paper.mdl b/macros/text1/pc/models/paper.mdl new file mode 100644 index 0000000000..1ebf653335 --- /dev/null +++ b/macros/text1/pc/models/paper.mdl @@ -0,0 +1,28 @@ +% Student Paper Layout +% Last updated on = 10/16/86 +\monospace +\doublespace +\input paper.inp % get paper format +% Cover Page + \vsk{1in plus 2fil minus 1in} % space at top of page + \centerlinesbegin % all lines centered on cover page + \frenchspacing % no double spaces after periods on cover page +%%%% insert title (using one or more lines) between dashed lines +%-------------------------------------------------------------------- +%-------------------------------------------------------------------- +\vs{2in} % space between title and author +%%%% insert author(s) (using one or more lines) between dashed lines +%-------------------------------------------------------------------- +%-------------------------------------------------------------------- +\vs{2in} % space between author and course +%%%% insert course (using one or more lines) between dashed lines +%-------------------------------------------------------------------- +%-------------------------------------------------------------------- +\vs{.5in} % space between course and date +%%%% Date follows; \today = current date or type over with desired date +\today + \centerlinesend + \vs{2in plus 1 fil minus 1in} %space at bottom of page + \newpage %end of title page + \setpagenumber{1}\titlepage %no page number on first page of text +%%%% BEGINNING OF PAPER diff --git a/macros/text1/pc/models/resume.inp b/macros/text1/pc/models/resume.inp new file mode 100644 index 0000000000..5370817b18 --- /dev/null +++ b/macros/text1/pc/models/resume.inp @@ -0,0 +1,62 @@ +% +\catcode`*=11 +\if*msp +\pageformat{\pagelength{11in} + \pagewidth{8.5in} % 792pt = 11in; 612pt = 8.5in + \topmargin{1in} + \bottommargin{1.2in} % 58pt = .8in; 72pt = 1in + \leftmargin{1.2in} + \rightmargin{1in} % 86pt = 1.2in + \bindingadjust{0pt} +} +\titlepageformat{\titleleadskip{.15in} + \titlefootline{} +} +\paragraphskip{1\bl} \paragraphindent{0pt} +\def\name#1{\par\hfill#1\hfill\gdef\headname{#1}} +\name{} +\runningheadformat{\bothpages{\line{ + \lft{\headname}\ctr{{\it Curriculum Vitae}} + \rt{\bd\pagenumber}} \vs{\bl}} + } +\runningfootformat{\bothpages{ + \vs{\bl}\line{\lft{}\ctr{}\rt{\today}}} + } +% Defaults for the \label markup +\labelformat{\skipbefore{1\bl} + \labelwidth{72pt} + \gutter{28pt} + \everylabel{\defaultmono\bd} + } +% +\else +\pageformat{\pagelength{792pt} + \pagewidth{612pt} % 792pt = 11in; 612pt = 8.5in + \topmargin{68pt} + \bottommargin{52pt} % 58pt = .8in; 72pt = 1in + \leftmargin{72pt} + \rightmargin{74pt} % 86pt = 1.2in +} +\titlepageformat{\titleleadskip{.15in} + \titlefootline{} +} +\paragraphskip{6pt} \paragraphindent{0pt} +\def\name#1{\par\hfill#1\hfill\gdef\headname{#1}} +\name{} +\runningheadformat{\bothpages{ + \line{\lft{\headname}\ctr{\it Curriculum Vitae} + \rt{\bd\pagenumber}} \vs{\bl}} + } +\runningfootformat{\bothpages{ + \vs{\bl}\line{\lft{}\ctr{}\rt{\today}}} + } +% Defaults for the \label markup +\labelformat{\skipbefore{1\bl} + \labelwidth{72pt} + \gutter{28pt} + \everylabel{\bd} + } +\fi +% +\catcode`*=12 +% diff --git a/macros/text1/pc/models/resume.mdl b/macros/text1/pc/models/resume.mdl new file mode 100644 index 0000000000..ce5e0e1bcf --- /dev/null +++ b/macros/text1/pc/models/resume.mdl @@ -0,0 +1,69 @@ +% Functional style; titled, justified resume +% +%********************* ***RESUME TEXMODEL*** ************************** +%* This TEXMODEL shows a sample resume. To get a copy of this sample, * +%* simply run this file through TeX as it is. * +%* When entering your own resume be sure to replace or delete all * +%* sample text. DO NOT use this model on a printer that only can * +%* print with \monospace. * +%************************************************************************ +% RESUME START +\input resume.inp +\cl{\bd RESUME} +\par +\name{Orville T. Game} +\cl{\it 9987 NE Oak St., Arbor Bay, CK 58924} +\vs{1\bl} +\label{Objective} +Seeking position with manufacturing firm which will provide +oportunity for advancement into personel-related position. +\label{Education} +\it Doctor of Hagiology, \rm Medical subterfuge\rt{1983.}\lbr +Beasley College of Performing Arts, Pullman, CA + +\label{ }Completed courses in economic manipulation, +John\-ny Carson analysis, and unpadded scrimmage. +Special courses in radar sabotage, misspelling, and +stream of consciousness reporting of news. +Completed graduate courses in anthropology, anthrometry, anthrosophy, +anthromorphism, and camp counselling. +Committee: Michael Farnberger, Casper Weinberger, Bill Cheeseburger, +and Warren Burgher. +GPA: 1.75. 40\%\ financed by drug sales; 60\%\ by gambling. + +\label{}\it Master of Arts, \rm Philosophy\rt{1983.}\lbr +University of Idaho, Moscow, ID + +\label{}Completed courses in philosophy, filo-making, fillerupedness, +filling station technology, and filler. +Completed graduate courses in philosophy, philology, +philo\-lo\-gram\-matry, phylogeny, filliness, and phil\-i\-stines. +Special Committee: Phil Marquette, Phillip Petroleum, Philo Bellows, +and Phyllus Diller. +GPA: 0.63. 50\%\ financed by bribes, 50\%\ by unpaid loans. +\label{Related Experience} +\it Consultant, \rm Computing Service Center\rt{1985-}\lbr +Washington State University, Pullman, WA 99164-1220 +\par +\label{}Direct acquisition of antique typesetting machinery and old +metal sculptings for garden area. +In charge of coffee for management. +Qualified to exterminate bugs in really awkward and tiresome +programs. +Training to collect and recycle aluminum cans for distribution +to East coast distilleries. +\label{Other Experience} +\it Research Associate-Biowarfare, \rm Mars Institute\rt{1984-}\lbr +P.O. Box 9, Pullman, WA 99163 +\par +\label{}Participate in studies on neutralizing liberal demo\-crats with +nuclear warheads (low radiation, high neutron count). +Analyze patterns of ideological disarray for potential weakness. +Write articles on normative aspects of unethical behavior. +Keep memoirs of same for distribution to publishers. +\label{Awards} + Special award for boot-licking, 1982. +Outstanding Stand Out, 1983. +\label{Activities} + Drama Club, 1980--82; Alpha Kappa Kappa Fraternity +\label{References} On request. diff --git a/macros/text1/pc/models/thesis.inp b/macros/text1/pc/models/thesis.inp new file mode 100644 index 0000000000..2dfd40e5c0 --- /dev/null +++ b/macros/text1/pc/models/thesis.inp @@ -0,0 +1,159 @@ +% WSU graduate school thesis requirements. +\paragraphindent{36pt} +\paragraphskip{12pt plus 2pt minus 1pt} +\raggedbottom +% +% +\catcode`*=11 +\if*msp +\pageformat{\pagelength{11in} + \pagewidth{8.5in} + \topmargin{1.2in} + \bottommargin{1.2in} + \leftmargin{1.2in} + \rightmargin{1in} + \bindingadjust{0in} +} +\titlepageformat{\titleleadskip{1.25in} + \titlefootline{} +} +% Default values for the \chapter markup +\chapterformat{\numberingstyle{1} + \titleformat{\dumpinsertseject + \centerline{\bd Chapter \chapternumber} + \centerline{\bd\chaptertitle} + \vs{1\bl} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end chapter format +% Default values for the \subheada markup +\subheadaformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\bd\nin\subheadatitle\par\nobreak + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadaformat markup +% Default values for the \subheadb markup +\subheadbformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\it\nin\subheadbtitle\par\nobreak + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadbformat markup +% Default values for the \preface markup +\prefaceformat{% + \titleformat{\dumpinsertseject + \centerline{\bd\prefacetitle} + \vs{1\bl} + \setsubheadanumber{0} + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +} +\paragraphskip{12pt} +\asisformat{\skipbefore{0pt} + \everyasis{\rm\ssp\leftindent{36pt}} + \skipafter{0pt}} +% +\blockquoteformat{\skipbefore{0pt} + \everyblockquote{\rm\ssp\pin{.3in}\psk{12pt} + \leftindent{36pt} \rightindent{36pt}} + \skipafter{0pt}} +% +\else +\pageformat{\pagelength{11in} + \pagewidth{8.5in} + \topmargin{1.2in} + \bottommargin{1in} + \leftmargin{1.3in} + \rightmargin{1in} + \bindingadjust{0in} +} +\titlepageformat{\titleleadskip{1.25in} + \titlefootline{} +} +% Default values for the \subheada markup +\subheadaformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\bd\nin\subheadatitle\par\nobreak + \setsubheadbnumber{0} + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadaformat markup +% Default values for the \subheadb markup +\subheadbformat{\numberingstyle{1} + \titleformat{\removelastskip\goodbreak\vs{2\bl} + \twelvept\it\nin\subheadbtitle\par\nobreak + \setsubheadcnumber{0} + \setsubheaddnumber{0} + }% end titleformat + \incontents{yes} +}% end subheadbformat markup +\asisformat{\skipbefore{0pt} + \everyasis{\tenpt\ssp\leftindent{36pt}} + \skipafter{0pt}} +% +\blockquoteformat{\skipbefore{0pt} + \everyblockquote{\rm\ssp\pin{24pt}\psk{6pt} + \leftindent{36pt} \rightindent{36pt}} + \skipafter{0pt}} +% +\footnoteformat{\footnotedivider{144pt} % 144pt = 2in + \skipafterdivider{2.6pt} + \textreferenceposition{up} + \textreferenceplacement{after} + \textreferencefont{\tenpt} + \textreferencestyle{1} + \notereferenceposition{down} + \notereferencefont{\tenpt} + \notereferencestyle{1.} + \notereferencegutter{1em} + \everyfootnote{\tenpt\ssp\pin{12pt}\psk{6pt}\lin{6pt}} +} +% +\endnoteformat{\skipbefore{4pt} + \textreferenceposition{down} + \textreferencefont{\rm} + \textreferencestyle{[1]} + \notereferenceposition{down} + \notereferencefont{\rm} + \notereferencestyle{1.} + \notereferencegutter{1em} % 1em = 12pt in a 12pt font + \everyendnote{\rm\pin{12pt}\psk{6pt}\lin{0pt}} +} +\fi +% +\def\copyrt{\if*msp{}\else + {{$\copyright$}}\fi} +% +\newcount\P +\def\signatures#1#2{\par\vs{54pt}\P=#1 + \ifnum\P>50 \P=50 + \message{Number of signature lines will be limited to 50}\fi + \advance\P by-1 + \hbox{\hs{3in}\vrule width3in height.4pt} + \hbox{\hs{3in}\hbox to 3in{\hfill #2 \hfill}} + \vs{36pt} + \loop\ifnum\P>0 + \hbox{\hs{3in}\vrule width 3in height.4pt} + \vs{48pt} + \advance\P by-1\repeat + }% +% +\tableofcontentsformat{% + \toctitle{\ssp\centerline{\bd Table of Contents} + \vs{\bl}}} +\catcode`*=12 diff --git a/macros/text1/pc/models/thesis.mdl b/macros/text1/pc/models/thesis.mdl new file mode 100644 index 0000000000..bbfde6b140 --- /dev/null +++ b/macros/text1/pc/models/thesis.mdl @@ -0,0 +1,139 @@ +% WSU Graduate School Thesis Requirements +% Last updated on = 6/15/87 +%********************* ***THESIS TEXMODEL*** ************************** +%* This TEXMODEL shows some sections of a sample thesis. For a printout * +%* of a sample thesis, simply run this file through TeX as it is. * +%* When entering your own thesis, be sure to replace or delete all * +%* sample text. If you are printing your thesis on a monospaced printer,* +%* the \monospace command must be activated by removing the percent * +%* sign preceding it. * +%************************************************************************ +% THESIS START + +% ***TITLE PAGE*** + +%\monospace +\input thesis.inp +\justify \singlespace +\setpagenumber{-1} +\centerlinesbegin +\bd +A PHENOMENOLOGICAL THEORY OF +\vs{12pt} +CROSS-CULTURAL AESTHETICS +\vs{1.25in} +\rm +By +\vs{12pt} +GEORG MACQUET +\vs{1.25in} +A thesis submitted in partial fulfillment of +the requirements for the degree of +\vs{12pt} +MASTER OF ARTS IN ANTHROPOLOGY +\vs{24pt} +WASHINGTON STATE UNIVERSITY +Department of Anthropology +\vs{12pt} +December 1986 +\vs{.8in} +\copyrt Copyright by GEORG MACQUET, 1986 +All Rights Reserved +\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 19 IS DELETED +% ***COPYRIGHT PAGE*** +\np +\titlepage +\vsk{7in} +\centerlinesbegin +\copyrt Copyright by GEORG MACQUET, 1986 +All Rights Reserved +\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 47 IS DELETED +% ***SIGNATURE PAGE*** +\newpage +\setpagenumber{-2} +\rightragged +\vsk{2.8in} +\doublespace +\nin To the Faculty of Washington State University: +\par +The members of the Committee appointed to examine the thesis of +GEORG MACQUET find it satisfactory and recommend that it be +accepted. +% +%****************************************************************** +%* The \signatures command draws the number of lines specified * +%* in the first parameter for the committee members' signatures. * +%* The first parameter may be any number, but if it is larger * +%* than 5, spacing must be changed to make it fit on one page. * +%* The second parameter of the \signatures command will be * +%* centered as a title under the first line. * +%****************************************************************** +% +\singlespace +\signatures{4}{Chairperson} +\doublespace +% ***ACKNOWLEDGE*** +\newpage +\justify +\preface{Acknowledgements} +I would like to thank Clarke Moustakos and Helen Burdeman +for their help in advising me to study Anthropology at ... +% ***ABSTRACT PAGE*** +\newpage +\vsk{.6in} +\centerlinesbegin +\bd +A PHENOMENOLOGICAL THEORY OF +\bd +CROSS-CULTURAL AESTHETICS +\rm +ABSTRACT +\putincontents1{\nin Abstract\leader\pagenumber} +\vs{12pt} +\singlespace +by Georg Macquet, M.A. +Washington State University +December 1986 +\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 84 IS DELETED +\doublespace +\noindent Chairperson: V.~L.~Nabokov +\par +Aesthetic phenomena can be defined from an anthropological perspective. +Anthropology is empirical; therefore, aesthetic phenomena must also be +defined empirically to be identified by the techniques of... +\par +%********************** MAIN TEXT OF THESIS ************************* +%* This ends the preliminary pages of the thesis and begins the main * +%* text. The remaining sections of the thesis may be entered using any * +%* or all standard TeXT1 markup commands, including \autofootnote, * +%* \bibliography, \autoendnote, \subheada, etc. For more information * +%* on the standard TeXT1 markup commands see the "TeXT1 Users Guide * +%* (S-522)," or the "TeXT1 Reference Manual (S-523)." * +%************************************************************************ +\chapter{Introduction} +\setpagenumber{1} +The original perspective of anthropology can contribute to a comprehension of +art. Observational criteria are needed to identify aesthetic phenomena +uniquely, and anthropology \el3 +\sha{Art as Product} +In the past, the arts have been studied primarily as products in anthropology. +But the product must be created by human beings who behave in certain ways. In +Merriam's words: + +\bqb Through the humanistic elements of his culture, man seems to be making +pointed commentary on how he lives; his social life in itself seems to bring +about conditions under which he is unable to restrain himself from commenting +upon himself\el3 +\bqe + +\sha{Styles of Representation} +Representations are images that refer to the visual appearance of a thing. +Gombrich's theory\afn{wherin a representation is not a symbol} is not +appropriate in this context. Indeed, A.P. Meriam (1971)\aen{This is the only +edition with the full analysis of semantic theories applied to oriental +cultures.} states that\el3 +\newpage +\cl{\bd Notes} +\printendnotes +\toc{-5} +\bye diff --git a/macros/text1/pc/readme.tex b/macros/text1/pc/readme.tex new file mode 100644 index 0000000000..53922654ce --- /dev/null +++ b/macros/text1/pc/readme.tex @@ -0,0 +1,38 @@ +The files in this directory are specifically for PCs. In the [.fonts] directory +are the fonts not included with standard TeX but which are used in TEXT1. Down +load these PK files in binary. + + cd [anonymous.text1.pc.fonts] + bin + mget *.pk + +You will also need to get the TFM files in the [anonymous.text1.fonts] +directory to go with these PK files. + + cd [anonymous.text1.fonts] + bin + mget *.tfm + +In addition to the fonts, you will need to get the TEX files in the +[anonymous.text1.macros] directory. + + cd [anonymous.text1.macros] + mget *.tex + +These should be placed in the TeX input path on your PC. +And then modify the TXT1*.TEX file so that near the top of the file it says +"true" that this is for a PC. + +Next get the font sets + + cd [anonymous.text1.pc.misc] + mget *.* + +they go in your TeX input path on the PC. + +Finally, you may optionally retrieve the models and blocks for a PC: + + cd [anonymous.text1.pc.models] + mget *.* + cd [anonymous.text1.pc.blocks] + mget *.* |