blob: 183d4b77da9d148f0b431848ca4a296dcf75a37a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%
% This is the PHYZZX.LOCAL file.
% It contains local, ie. site-dependent macros.
%
% This version of the file is for use at SLAC only.
% Do not use it as is at other sites -- it is distributed only
% to provide an example of macros you may want to use at your site.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\slacpub{\afterassignment\slacp@b\toks@}
\def\slacp@b{\edef\n@xt{\Pubnum={SLAC--PUB--\the\toks@}}\n@xt}
\let\pubnum=\slacpub
%
\expandafter\ifx\csname eightrm\endcsname\relax
\let\eightrm=\ninerm \let\eightbf=\ninebf \fi
%
\def\memohead{\hrule height\z@ \kern -0.5in
\line{\quad\fourteenrm SLAC MEMORANDUM\hfil \twelverm\the\date\quad}}
\def\memorule{\par \medskip \hrule height 0.5pt \kern 1.5pt
\hrule height 0.5pt \medskip}
%
\def\SLACHEAD{\setbox0=\vtop{\baselineskip=10pt
\ialign{\eightrm ##\hfil\cr
\slacbin\cr
P.~O.~Box 4349\cr
Stanford, CA 94309\cropen{1\jot}
\slacphone\cr }}%
\setbox2=\hbox{\caps Stanford Linear Accelerator Center}%
\hrule height \z@ \kern -0.5in
\vbox to 0pt{\vss\centerline{\seventeenrm STANFORD UNIVERSITY}}
\vbox{} \medskip
\line{\hbox to 0.7\hsize{\hss \lower 10pt \box2 \hfill }\hfil
\hbox to 0.25\hsize{\box0 \hfil }}\medskip }
\let\letterhead=\SLACHEAD
%
\FromAddress={\crcr \slacbin \cr
P.\ O.\ Box 4349\cr Stanford, California 94309\cr }
%
\def\slacbin{SLAC\expandafter\ifx\csname binno\endcsname\relax
\else , Bin \binno \fi }
\def\slacphone{(415) 926--\slacext}
\def\slacext{3300}
%
\def\doeack{\foot{Work supported by the Department of Energy,
contract DE--AC03--76SF00515.}}
%
\VOFFSET=33pt
\papersize
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Now comes the graphic package.
% This version is rather primitive
%
\newwrite\figscalewrite
\newif\iffigscaleopen
\newif\ifgrayscale
\newif\ifreadyfile
\def\picturedefault{\grayscalefalse \readyfilefalse
\gdef\ready{\readyfiletrue}\gdef\gray{\ready\grayscaletrue}}
%
\def\parsefilename{\ifreadyfile \else
\iffigscaleopen \else \gl@bal\figscaleopentrue
\immediate\openout\figscalewrite=\jobname.scalecon \fi
\toks0={ }\immediate\write\figscalewrite{%
\the\p@cwd \the\toks0 \the\p@cht \the\toks0 \the\picfilename }%
\expandafter\p@rse \the\picfilename..\endp@rse \fi }
%
\def\p@rse#1.#2.#3\endp@rse{%
\if*#3*\dop@rse #1.1..\else \if.#3\dop@rse #1.1..\else
\dop@rse #1.#3\fi \fi
\expandafter\picfilename\expandafter{\n@xt}}
\def\dop@rse#1.#2..{\count255=#2 \ifnum\count255<1 \count255=1 \fi
\ifnum\count255<10 \edef\n@xt{#1.PICT00\the\count255}\else
\ifnum\count255<100 \edef\n@xt{#1.PICT0\the\count255}\else
\edef\n@xt{#1.PICT\the\count255}\fi\fi }
%
\def\redopicturebox{\edef\picturedefinition{\ifgrayscale
\special{insert(\the\picfilename)}\else
\special{mergeug(\the\picfilename)}\fi }}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Few miscellaneous macros
%
\let\us=\undertext
\let\rule=\memorule
\let\eqnalign=\eqname
%
\def\pri{^{\, \prime }}
\def\prii{^{\, \prime\, \prime }}
\def\priii{^{\, \prime\, \prime\, \prime }}
\def\epem{{e^+e^-}}
%%
\def\larrow{\leftarrow}
\def\rarrow{\rightarrow }
\def\uarrow{\uparrow }
\def\darrow{\downarrow }
\def\dblarrow{\doublearrow }
\def\longvec{\overrightarrow }
\def\wtilde{\widetilde }
%%
\def\xplus{\becomes{x\rarrow{+\infty}}}
\def\xminus{\becomes{x\rarrow{-\infty}}}
\def\xxx{\becomes{x\rarrow\infty}}
%%
\def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
\vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
%%
|
