diff options
Diffstat (limited to 'macros/psizzl/letter.psizzl')
| -rw-r--r-- | macros/psizzl/letter.psizzl | 244 |
1 files changed, 0 insertions, 244 deletions
diff --git a/macros/psizzl/letter.psizzl b/macros/psizzl/letter.psizzl deleted file mode 100644 index 667e4b438d..0000000000 --- a/macros/psizzl/letter.psizzl +++ /dev/null @@ -1,244 +0,0 @@ -% LETTER PSIZZL - letter macros -% -% I am indebted to Louise Addis, SLAC, for help in designing the -% style of the letter. -% -% The letter will print with your institution's letterhead. -% You then take the letter and copy it on bond. -% The original hardcopy becomes your file copy. -% -% \letterto{Name}{address} Name will appear in the salutation. -% note the comma or colon here. -% e.g., address will be the full address. -% \letterto{John,}% use \cr to separate lines. -% {Mr.@John Doe\cr% -% Physics Department\cr% -% University of California, Berkeley\cr% -% Berkeley, CA 94720\cr}% -% -% \letterfrom{signature}{mail stop}{initials} -% initials will possibly appear at the foot of -% e.g., the letter -% \letterfrom% signature will appear in the close -% {Jane Doe\cr address is incorporated in the letterhead -% Chief Honcho\cr}% -% {Bin 2}{JD}% -% -% \letterdate{date} you may optionally specify the date of the -% letter. The default date however, is today. -% e.g., \letterdate{7 July 1983}% -% -% \salutation{Ave}% here's how to modify the standard salutation -% (default is Dear) -% -% \MyRef{text}% specifies the writer's reference number for -% this letter. Default is none. -% If you use this you get Ref: <text> near -% the top of the letter. -% -% \YourRef{text}% similar to \MyRef. Specifies the reference -% number of the addressee's letter to which -% you're responding. Default is none. -% -% \copiesto{name\cr name\cr ...name\cr}% -% specifies who gets copies of the letter -% aside from the addressee. A list of names -% will appear at the end of the letter. -% Default is none -% -% \closing{Yours truly,}% and how to modify the standard close -% (default is Sincerely,) -% -% \everyletter{text}% text to be inserted -% at the end of every letter. -% May be an entire letter body. -% -% \beginletter the letter now begins on a new page -% with date, address, salutation -% -% text now comes the text of the letter -% -% \endletter this puts out the closing -% -\newif\ifletter -\newskip\lettertopskip\lettertopskip\z@ plus\z@ minus\z@ -\def\letterdate#1{% - \def\l@tterdate{#1}% - }\letterdate\d@te -\def\salutation#1{% - \def\s@lutation{#1}% - }\salutation{Dear}% -\def\closing#1{% - \def\cl@sing{#1}% - }\closing{Sincerely,}% -\def\typist#1{% - \def\t@pist{:\lowercase{#1}}% - }\def\t@pist{}% -\def\copiesto#1{% - \def\c@pies{% - \hbox{% - \vtop{\hbox{cc: }\vfil}% - \vtop{\singlespace - \halign{\vbox{\parindent\z@\hsize.8\hsize####}\hfil\cr - #1\crcr}% - }% - }% - \vskip\baselineskip - }% - }\def\c@pies{}% -\def\postscript#1{% - \def\p@st{#1}% - }\def\p@st{}% -\def\enclosure#1#2{% - \def\@ncl{% - {\par\parindent\z@#1\par\singlespace - \halign{% - \quad\vbox{\parindent\z@\hsize.8\hsize####}\hfil\cr - #2\crcr}\par - }% - }% - }\def\@ncl{}% -\def\prescript#1{% - \def\pr@{#1}% - }\def\pr@{}% -% -\def\MyRef#1{% - \def\M@Ref{Ref: #1\cr}% - }\def\M@Ref{}% -\def\YourRef#1{% - \def\Y@urRef{Your Ref: #1\cr}% - }\def\Y@urRef{}% -% -\def\breakletter{% - \par\vfil\eject - }% break the title page of a letter -\def\letterto#1#2{% - \def\@ddressee{#1}\gdef\@ddress{#2}% - }\letterto{}{}% -\def\letterfrom#1#2#3{% - \def\s@ndername{#1}\gdef\s@nderbin{#2}\gdef\s@nderinitials{#3}% - }\letterfrom{}{}{}% -\def\letterstyle#1{% - \adddef\stylel@t{#1}% - }% -\def\stylel@t{% - \let\bodynumbers=\topcentered - \vsize 8.3in - \raggedright - \p@geclear% set page number - \largetype\singlespace - \parindent 0em - \baselineskip 2.7ex - \parskip\medskipamount - }% -\long\def\everyletter#1{\def\l@tterbody{#1}}\everyletter{}% -\def\letter{% - \let\resd@c\resl@t - \let\pred@c\prel@t\let\styled@c\stylel@t\let\titd@c\titl@t - \let\frontd@c\frontl@t\let\endd@c\endl@t\lettertrue - }% -\def\beginletter{\letter\begindocument}% -\def\endletter{\enddocument}% -\def\frontl@t{}% -\def\resl@t{\endpage}% -\def\prel@t{\beginbody}% -\def\titl@t{% - \topinsert - \ifwindowenvelope - \translate{-.0in}{-1.5in}{% - \ifx\@ddress\empty\else - \vbox to 1.in{% - \singlespace\baselineskip 2.7ex\vss - \halign to 4.35in{\tabskip\z@ - ##\hss\tabskip\z@ plus 1fil\cr\@ddress\crcr - }\vss - }% - \fi - }% - \nointerlineskip - \fi - \l@tterhead - \endinsert - \fr@nttrue - \rightline{\l@tterdate}\vskip\the\baselineskip - \tempfalse - \ifx\M@Ref\empty\else\temptrue\fi\ifx\Y@urRef\empty\else\temptrue\fi - \iftemp - \rightline{% - \vbox{% - \singlespace\halign{##\hfil\cr\M@Ref\Y@urRef}% - }% - }% - \par - \fi - \vfil - \vskip\lettertopskip - \ifwindowenvelope\vskip1.20in\else - \ifx\@ddress\empty\else - {%\singlespace\indent - \hbox{\vbox{\halign{##\hfil\cr\@ddress\crcr}}}% - }% - \par - \vskip2\parskip - \fi - \fi - \par\pr@\par - \ifx\@ddressee\empty\else - \medskip\s@lutation\ \@ddressee\par\medskip - \fi - }% -\def\endl@t{% - \l@tterbody - \par - \ifx\s@ndername\empty\else - \nobreak\vskip 4.5ex% - \line{% - \hbox to .51\hsize{\hfil}\hskip\z@ minus 1fil - \vbox{\singlespace\baselineskip 2.7ex% - \halign{##\hfil\cr\cl@sing\cr\noalign{\nobreak\vskip.4in}% - \s@ndername \crcr - }% - }% - \hskip\z@ plus 1fill - }% - \fi - {\normalbaselines - \ifx\s@nderinitials\empty\else - \par\s@nderinitials\t@pist\par - \fi - \@ncl - \c@pies - {\singlespace\p@st\par}% - }% - \vfil\eject - \gdef\t@pist{}\gdef\c@pies{}\gdef\M@Ref{}\gdef\Y@urRef{}% - \gdef\pr@{}\gdef\p@st{}% - \letterfalse - }% -\newdimen\h@ght\h@ght=1in -\newdimen\l@tterheadsize\l@tterheadsize\hsize -\def\letterhead#1#2#3#4{% - \def\l@tterhead{% - \ifletterhead - \l@tterheadsize\hsize\advance\l@tterheadsize0in - \centerline{% - \vbox{\hsize\l@tterheadsize - \centerline{\vbox{\halign{####\hfil\cr#1\crcr}}}% - \line{% - \singlespace\baselineskip 2.7ex% - \vbox to \h@ght{\vss\halign{####\hfil\cr#2\crcr}\vss}% - \hss - \vbox to \h@ght{\vss\halign{####\hfil\cr#3\crcr}\vss}% - }% - }% - }% - \else#4\fi - }% - }% -\newif\ifletterhead\letterheadtrue -\newif\ifstreetaddress -\newif\ifwindowenvelope -% review all of the \letterto's by typesetting them plus -\def\p@genumberletter{% - \p@gebanner{\l@tterdate}{}{Page\qquad\numorroman\p@gecount}% - }% |