summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/bayer/universal.sty
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'.