blob: c3a38b153939d2b55e94571c4cd4c0166cde5718 (
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
109
110
111
112
113
114
115
116
|
%%
%% This is file `universal.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% universal.dtx (with options: `package')
%%
%% Copyright (C) 1997 Christian Holm.
%%
%% This file is NOT the source for universal, because almost all
%% comments have been stripped from it. It is NOT the preferred
%% form of universal for making modifications to it.
%%
%% Therefore you can NOT redistribute and/or modify THIS file.
%% You can however redistribute the complete source (universal.dtx
%% and universal.ins) and/or modify it under the terms of the GNU
%% General Public License as published by the Free Software
%% Foundation; either version 2, or (at your option) any later
%% version.
%%
%% The universal font and package is distributed in the hope that
%% it will be useful, but WITHOUT ANY WARRANTY; without even the
%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
%% PURPOSE. See the GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public
%% License along with this program; if not, write to the
%% Free Software Foundation, Inc.,
%% 675 Mass Ave, Cambridge,
%% MA 02139, USA.
%%
%% See the file universal.dtx for further comments and documentation.
%%
\def\fileversion{v1.0}
\def\filedate{97/12/24}
\ProvidesPackage{universal}[\filedate\space\fileversion\space universal
package.]
\newif\ifBayer
\Bayerfalse
\DeclareOption{titlepage}{
\newdimen\unidim
\unidim1cm
\renewcommand{\title}[1]{\def\unititle{#1}}
\renewcommand{\author}[1]{\def\uniauthor{#1}}
\renewcommand{\date}[1]{\def\unidate{#1}}
\renewcommand{\abstract}[1]{\def\uniabst{#1}}
\renewcommand{\maketitle}{
\clearpage
\thispagestyle{empty}
\noindent
\begingroup
{\Huge\bayer\unititle}\\
\rule{\textwidth}{.05\textwidth}
\ifx\uniabst\undefined
\vfill
\else
\vspace{.05\textwidth}\par\noindent
\hspace{.2\textwidth}\rule{.01\textwidth}{.7\textwidth}
\raisebox{.3\textwidth}{
\begin{minipage}[l]{.7\textwidth}
{\bayer\normalsize\uniabst}
\end{minipage}
}
\vfill
\fi
\begin{minipage}[l]{.3\textwidth}
{\bayer\Large\uniauthor}\par\noindent
{\large\bayer\MakeLowercase{\unidate}}
\end{minipage}\hspace{.2\textwidth}
\raisebox{-.05\textwidth}{\rule{.02\textwidth}{.4\textwidth}}
\font\Hugebayer=universal17 at 80pt
\hspace{.01\textwidth}{\Hugebayer\char"84}\\
\rule{.8\textwidth}{.01\textwidth}
\endgroup
\newpage
}
}
\ProcessOptions\relax
\newcommand{\textbayer}[1]{
\begingroup
\bayer
#1
\endgroup
}
\newcommand{\bayer}{
\Bayertrue
\chardef\{="80
\chardef\}="81
\chardef\|="0F
\chardef\S="82
\chardef\varQ="83
\chardef\bauplus="00
\chardef\baudash="01
\chardef\bauequal="02
\chardef\bautriangle="03
\chardef\baucircle="04
\chardef\baucross="05
\chardef\bauwindow="06
\chardef\bauhole="07
\chardef\baueclipse="08
\chardef\bauquarter="09
\chardef\bauarrow="0A
\chardef\bauwhitearrow="0B
\chardef\bauhead="0C
\chardef\bauface="0D
\chardef\bauquestion="0E
\chardef\bauforms="84
\chardef\baupunct="85
\chardef\bausquare="86
\usefont{OT1}{universal}{m}{n}
}
\endinput
%%
%% End of file `universal.sty'.
|
