blob: bcff383128ddf428033f1c9d4f0d2a177dd0f4bb (
plain)
1
2
3
4
5
6
7
8
9
10
|
% ============ modified to center heads /subheads .... ======
%the parameters must be as shown and will have that meaning
% #1 font (=#3); #2 number (=#4) ; #3 <text> (=#5); #4 number/text sep (=#7)
% check on \t@agtext suppresses space when there is no number
\catcode`\@=11
\def\gensheadformat#1#2#3#4{\ifx\t@agtext\empty\setbox0=\hbox{}\else
\setbox0=\hbox{#1#2#4}\fi
\vbox{\paragraphcenterline \normalbaselines
#1\box0 #3}}
\catcode`\@=12
|