helm/papers/matita/klups.sty

   1
   2 %
   3 % This input file (c) Kluwer Academic Publishers.
   4 % You are free to use this file as you see fit, provided
   5 % that you do not make changes.
   6 % If you DO make changes, you are required to rename the files.
   7 %
   8 % \changes{1998/02/04}{Removed oldstyle numerals}
   9 %
  10 \def\fileversion{1.15}
  11 \def\filedate{1998/03/13}
  12 \NeedsTeXFormat{LaTeX2e}
  13 %
  14 %
  15 % Options: mathtime's options
  16 % exported commands: \rmgreek (decl) \greekrm (#1)
  17 %
  18 %
  19 \ProvidesPackage{klups}[\filedate\space\fileversion\space
  20  Kluwer PSfonts package]
  21
  22 \DeclareOption{uprightgreek}{%
  23     \AtEndOfPackage{\rmgreek@redefs}}
  24 \DeclareOption*{\PassOptionsToPackage\CurrentOption{mathtime}}
  25 \ProcessOptions\relax
  26
  27 % Sans Serifs in 90% Helvetica
  28 % Running text Times-Roman
  29 % Typewriter Courier narrowed
  30 %
  31
  32 \def\spaces{\space\space\space\space\space}
  33 \def\@fontwarnings{}
  34 \def\@addtofontwarning#1{\g@addto@macro
  35         \@fontwarnings{.\MessageBreak #1}}
  36
  37 \renewcommand{\sfdefault}{phv}
  38 \renewcommand{\rmdefault}{ptm}
  39 \renewcommand{\ttdefault}{pcr}
  40 \newif\if@couriernarrow \@couriernarrowtrue
  41 \normalfont
  42 % Try loading T1 font-encoding (only if psnfss installed)
  43 %
  44 \IfFileExists{T1ptm.fd}{\RequirePackage[T1]{fontenc}}{%
  45     \IfFileExists{t1ptm.fd}{\RequirePackage[T1]{fontenc}
  46         \let\@acci\`
  47         \let\@accii\'
  48         \let\@acciii\=
  49         }{%
  50      \PackageError{klups}{%
  51      No encoding for T1 PostScript fonts found}{%
  52      Please check your distribution of LaTeX thoroughly!\MessageBreak%
  53      There seem to be some files missing the implement the\MessageBreak%
  54      new 256 character font encodings
  55      }}}%
  56
  57 % Try loading text companion fonts (only if psnfss installed)
  58 %
  59
  60 \IfFileExists{TS1ptm.fd}{\RequirePackage{textcomp}}{%
  61     \IfFileExists{ts1ptm.fd}{\RequirePackage{textcomp}}{%
  62             \PassOptionsToPackage{noTS1}{mathtime}%
  63             \@addtofontwarning{%
  64             No text companion fonts for Times found,\MessageBreak%
  65             \spaces not loading textcomp style}}}
  66
  67
  68 % fontdim5=ex-height
  69 \def\klutest@font#1#2{\def\klu@font@error{n}%
  70     \batchmode \font\klutch=#1 \errorstopmode
  71     \ifdim \the\fontdimen5\klutch < 1pt
  72         \def\klu@font@error{y}%
  73         \@addtofontwarning{%
  74         Font #2 is not available}%
  75     \fi \let\klutch\relax
  76     }
  77
  78 \def\eightt{8t}
  79 \batchmode \font\klutch=ptmr8t \errorstopmode
  80 \ifdim \the\fontdimen5\klutch < 1pt
  81     \batchmode \font\klutch=ptmrq \errorstopmode
  82     \ifdim \the\fontdimen5\klutch < 1pt    %%EEKS
  83     \else
  84     \gdef\eightt{q}%
  85     \@addtofontwarning{%
  86     Using old PostScript metrics,\MessageBreak
  87     \spaces consider updating your LaTeX fonts}%
  88     \fi
  89 \fi
  90 \let\klutch\relax
  91
  92 \def\hvtmpl{7tn}
  93 \def\hvtmph{\eightt n}
  94 {\def\@tempa{OT1}
  95 \ifx \@tempa\encodingdefault
  96     \batchmode \font\klutch=phvr7tn \errorstopmode
  97     \ifdim \the\fontdimen5\klutch < 1pt
  98         \batchmode \font\klutch=phvrn7t \errorstopmode
  99         \ifdim \the\fontdimen5\klutch < 1pt
 100             \@addtofontwarning{%
 101             Font Helvetica Narrow is not available}%
 102         \else
 103             \gdef\hvtmpl{n7t}
 104             \gdef\hvtmph{n\eightt}
 105         \fi
 106     \fi
 107     \let\klutch\relax
 108     \klutest@font{phvl7t}{Helvetica Light}
 109     \klutest@font{pcrr7tn}{Courier Narrow}
 110     \if y\klu@font@error
 111      \global\@couriernarrowfalse
 112     \fi
 113 \else
 114     \batchmode \font\klutch=phvr\eightt n \errorstopmode
 115     \ifdim \the\fontdimen5\klutch < 1pt
 116         \batchmode \font\klutch=phvrn\eightt \errorstopmode
 117         \ifdim \the\fontdimen5\klutch < 1pt
 118             \@addtofontwarning{%
 119             Font Helvetica Narrow is not available}%
 120         \else
 121             \gdef\hvtmpl{n7t}
 122             \gdef\hvtmph{n\eightt}
 123         \fi
 124     \fi
 125     \klutest@font{phvl\eightt}{Helvetica Light}
 126     \klutest@font{pcrr8tn}{Courier Narrow}
 127     \if y\klu@font@error
 128       \global\@couriernarrowfalse
 129     \fi
 130 \fi
 131 }
 132
 133 \newif\if@OSF \@OSFfalse
 134 %\klutest@font{ptmr8dc}{Times SmallCaps and OSF}
 135 %\if y\klu@font@error
 136 %    \global\@OSFfalse
 137 %\fi
 138
 139 \if@OSF
 140     \DeclareTextFontCommand{\textbo}{\boseries}
 141     \DeclareTextFontCommand{\textmo}{\moseries}
 142     \DeclareRobustCommand\boseries
 143         {\not@math@alphabet\boseries\relax
 144          \fontseries{bo}\selectfont}
 145     \DeclareRobustCommand\moseries
 146         {\not@math@alphabet\moseries\relax
 147          \fontseries{mo}\selectfont}
 148     \def\oldstyle#1{{\fontseries{\f@series o}\selectfont #1}}
 149     \def\oldseries{\fontseries{\f@series o}\selectfont}
 150     \let\i@oldseries\oldseries
 151 \fi
 152 % start .fd files
 153
 154
 155 \begingroup \nfss@catcodes
 156
 157 %% Times
 158 \if@OSF
 159
 160 \DeclareFontFamily{T1}{ptm}{}
 161
 162 \DeclareFontShape{T1}{ptm}{b}{n}{<-> ptmb8t}{}
 163 \DeclareFontShape{T1}{ptm}{b}{sc}{<-> ptmb8dc}{}
 164 \DeclareFontShape{T1}{ptm}{b}{sl}{<-> ptmbo8t}{}
 165 \DeclareFontShape{T1}{ptm}{b}{it}{<-> ptmbi8t}{}
 166
 167 \DeclareFontShape{T1}{ptm}{bo}{n}{<-> ptmb8d}{}
 168 \DeclareFontShape{T1}{ptm}{bo}{sc}{<-> ptmb8dc}{}
 169 \DeclareFontShape{T1}{ptm}{bo}{sl}{<-> ptmbi8d}{}
 170 \DeclareFontShape{T1}{ptm}{bo}{it}{<-> ptmbi8d}{}
 171
 172 \DeclareFontShape{T1}{ptm}{m}{n}{<-> ptmr8t}{}
 173 \DeclareFontShape{T1}{ptm}{m}{sc}{<-> ptmr8dc}{}
 174 \DeclareFontShape{T1}{ptm}{m}{sl}{<-> ptmro8t}{}
 175 \DeclareFontShape{T1}{ptm}{m}{it}{<-> ptmri8t}{}
 176
 177 \DeclareFontShape{T1}{ptm}{mo}{n}{<-> ptmr8d}{}
 178 \DeclareFontShape{T1}{ptm}{mo}{sc}{<-> ptmr8dc}{}
 179 \DeclareFontShape{T1}{ptm}{mo}{sl}{<-> ptmri8d}{}
 180 \DeclareFontShape{T1}{ptm}{mo}{it}{<-> ptmri8d}{}
 181
 182 \DeclareFontShape{T1}{ptm}{bx}{n}{<->ssub * ptm/b/n}{}
 183 \DeclareFontShape{T1}{ptm}{bx}{sc}{<->ssub * ptm/b/sc}{}
 184 \DeclareFontShape{T1}{ptm}{bx}{sl}{<->ssub * ptm/b/sl}{}
 185 \DeclareFontShape{T1}{ptm}{bx}{it}{<->ssub * ptm/b/it}{}
 186
 187 \DeclareFontShape{T1}{ptm}{bxo}{n}{<->ssub * ptm/bo/n}{}
 188 \DeclareFontShape{T1}{ptm}{bxo}{sc}{<->ssub * ptm/bo/sc}{}
 189 \DeclareFontShape{T1}{ptm}{bxo}{sl}{<->ssub * ptm/bo/sl}{}
 190 \DeclareFontShape{T1}{ptm}{bxo}{it}{<->ssub * ptm/bo/it}{}
 191
 192 \DeclareFontShape{T1}{ptm}{l}{n}{<->ssub * ptm/m/n}{}
 193 \DeclareFontShape{T1}{ptm}{l}{sc}{<->ssub * ptm/m/sc}{}
 194 \DeclareFontShape{T1}{ptm}{l}{sl}{<->ssub * ptm/m/sl}{}
 195 \DeclareFontShape{T1}{ptm}{l}{it}{<->ssub * ptm/m/it}{}
 196
 197 \DeclareFontShape{T1}{ptm}{lo}{n}{<->ssub * ptm/mo/n}{}
 198 \DeclareFontShape{T1}{ptm}{lo}{sc}{<->ssub * ptm/mo/sc}{}
 199 \DeclareFontShape{T1}{ptm}{lo}{sl}{<->ssub * ptm/mo/sl}{}
 200 \DeclareFontShape{T1}{ptm}{lo}{it}{<->ssub * ptm/mo/it}{}
 201
 202 \fi
 203
 204 %% OT1 Courier
 205
 206 \DeclareFontFamily{OT1}{pcr}{\hyphenchar \font =-1}%
 207
 208 \DeclareFontShape{OT1}{pcr}{b}{sc}{<-> pcrbc7t}{}%
 209 \DeclareFontShape{OT1}{pcr}{m}{sc}{<-> pcrrc7t}{}%
 210 %%%% condensed courier
 211 \if@couriernarrow
 212 \DeclareFontShape{OT1}{pcr}{m}{n}{<-> pcrr7tn}{}%
 213 \DeclareFontShape{OT1}{pcr}{b}{n}{<-> pcrb7tn}{}%
 214 \DeclareFontShape{OT1}{pcr}{b}{sl}{<-> pcrbo7tn}{}%
 215 \DeclareFontShape{OT1}{pcr}{m}{sl}{<-> pcrro7tn}{}%
 216 \else
 217 \DeclareFontShape{OT1}{pcr}{m}{n}{<-> pcrr7t}{}%
 218 \DeclareFontShape{OT1}{pcr}{b}{n}{<-> pcrb7t}{}%
 219 \DeclareFontShape{OT1}{pcr}{b}{sl}{<-> pcrbo7t}{}%
 220 \DeclareFontShape{OT1}{pcr}{m}{sl}{<-> pcrro7t}{}%
 221 \fi
 222 %%%% substitutions
 223 \DeclareFontShape{OT1}{pcr}{bx}{it}{<->ssub * pcr/b/it}{}%
 224 \DeclareFontShape{OT1}{pcr}{bx}{n}{<->ssub * pcr/b/n}{}%
 225 \DeclareFontShape{OT1}{pcr}{bx}{sc}{<->ssub * pcr/b/sc}{}%
 226 \DeclareFontShape{OT1}{pcr}{bx}{sl}{<->ssub * pcr/b/sl}{}%
 227 \DeclareFontShape{OT1}{pcr}{b}{it}{<->ssub * pcr/b/sl}{}%
 228 \DeclareFontShape{OT1}{pcr}{b}{ui}{<->ssub * pcr/b/it}{}
 229 \DeclareFontShape{OT1}{pcr}{l}{it}{<->ssub * pcr/m/it}{}
 230 \DeclareFontShape{OT1}{pcr}{l}{n}{<->ssub * pcr/m/n}{}
 231 \DeclareFontShape{OT1}{pcr}{l}{sc}{<->ssub * pcr/m/sc}{}
 232 \DeclareFontShape{OT1}{pcr}{l}{sl}{<->ssub * pcr/m/sl}{}
 233 \DeclareFontShape{OT1}{pcr}{m}{it}{<->ssub * pcr/m/sl}{}
 234 \DeclareFontShape{OT1}{pcr}{m}{ui}{<->ssub * pcr/m/it}{}
 235
 236 %%%% T1 courier
 237
 238 \DeclareFontFamily{T1}{pcr}{\hyphenchar \font =-1}%
 239
 240 \DeclareFontShape{T1}{pcr}{b}{sc}{<-> pcrbc\eightt}{}%
 241 \DeclareFontShape{T1}{pcr}{m}{sc}{<-> pcrrc\eightt}{}%
 242 %%%% condensed courier
 243 \if@couriernarrow
 244 \DeclareFontShape{T1}{pcr}{m}{n}{<-> pcrr8tn}{}%
 245 \DeclareFontShape{T1}{pcr}{b}{n}{<-> pcrb8tn}{}%
 246 \DeclareFontShape{T1}{pcr}{b}{sl}{<-> pcrbo8tn}{}%
 247 \DeclareFontShape{T1}{pcr}{m}{sl}{<-> pcrro8tn}{}%
 248 \else
 249 \DeclareFontShape{T1}{pcr}{b}{n}{<-> pcrb\eightt}{}%
 250 \DeclareFontShape{T1}{pcr}{b}{sl}{<-> pcrbo\eightt}{}%
 251 \DeclareFontShape{T1}{pcr}{m}{sl}{<-> pcrro\eightt}{}%
 252 \DeclareFontShape{T1}{pcr}{m}{n}{<-> pcrr\eightt}{}%
 253 \fi
 254 %%%% substitutions
 255 \DeclareFontShape{T1}{pcr}{bx}{n}{<->ssub * pcr/b/n}{}
 256 \DeclareFontShape{T1}{pcr}{bx}{sc}{<->ssub * pcr/b/sc}{}
 257 \DeclareFontShape{T1}{pcr}{bx}{sl}{<->ssub * pcr/b/sl}{}
 258 \DeclareFontShape{T1}{pcr}{b}{it}{<->ssub * pcr/b/sl}{}
 259 \DeclareFontShape{T1}{pcr}{bx}{it}{<->ssub * pcr/b/it}{}
 260 \DeclareFontShape{T1}{pcr}{l}{n}{<->ssub * pcr/m/n}{}
 261 \DeclareFontShape{T1}{pcr}{l}{sc}{<->ssub * pcr/m/sc}{}
 262 \DeclareFontShape{T1}{pcr}{l}{sl}{<->ssub * pcr/m/sl}{}
 263 \DeclareFontShape{T1}{pcr}{m}{it}{<->ssub * pcr/m/sl}{}
 264 \DeclareFontShape{T1}{pcr}{l}{it}{<->ssub * pcr/m/it}{}
 265
 266 % OT1 Helvetica
 267
 268 \DeclareFontFamily{OT1}{phv}{}
 269 \DeclareFontShape{OT1}{phv}{b}{n}{<-> s * [.9] phvb7t}{}
 270 \DeclareFontShape{OT1}{phv}{b}{sc}{<-> s * [.9] phvbc7t}{}
 271 \DeclareFontShape{OT1}{phv}{b}{sl}{<-> s * [.9] phvbo7t}{}
 272 \DeclareFontShape{OT1}{phv}{bc}{n}{<-> s * [.9] phvb\hvtmpl}{}
 273 \DeclareFontShape{OT1}{phv}{bc}{sc}{<-> s * [.9] phvbc\hvtmpl}{}
 274 \DeclareFontShape{OT1}{phv}{bc}{sl}{<-> s * [.9] phvbo\hvtmpl}{}
 275 \DeclareFontShape{OT1}{phv}{l}{n}{<-> s * [.9] phvl7t}{}
 276 \DeclareFontShape{OT1}{phv}{l}{sc}{<-> s * [.9] phvlc7t}{}
 277 \DeclareFontShape{OT1}{phv}{l}{sl}{<-> s * [.9] phvlo7t}{}
 278 \DeclareFontShape{OT1}{phv}{m}{n}{<-> s * [.9] phvr7t}{}
 279 \DeclareFontShape{OT1}{phv}{m}{sc}{<-> s * [.9] phvrc7t}{}
 280 \DeclareFontShape{OT1}{phv}{m}{sl}{<-> s * [.9] phvro7t}{}
 281 \DeclareFontShape{OT1}{phv}{mc}{n}{<-> s * [.9] phvr\hvtmpl}{}
 282 \DeclareFontShape{OT1}{phv}{mc}{sc}{<-> s * [.9] phvrc\hvtmpl}{}
 283 \DeclareFontShape{OT1}{phv}{mc}{sl}{<-> s * [.9] phvro\hvtmpl}{}
 284
 285 \DeclareFontShape{OT1}{phv}{bx}{n}{<->ssub * phv/b/n}{}
 286 \DeclareFontShape{OT1}{phv}{bx}{sc}{<->ssub * phv/b/sc}{}
 287 \DeclareFontShape{OT1}{phv}{bx}{sl}{<->ssub * phv/b/sl}{}
 288 \DeclareFontShape{OT1}{phv}{b}{it}{<->ssub * phv/b/sl}{}
 289 \DeclareFontShape{OT1}{phv}{bx}{it}{<->ssub * phv/b/it}{}
 290 \DeclareFontShape{OT1}{phv}{bc}{it}{<->ssub * phv/bc/sl}{}
 291 \DeclareFontShape{OT1}{phv}{l}{it}{<->ssub * phv/l/sl}{}
 292 \DeclareFontShape{OT1}{phv}{m}{it}{<->ssub * phv/m/sl}{}
 293 \DeclareFontShape{OT1}{phv}{mc}{it}{<->ssub * phv/mc/sl}{}
 294 \DeclareFontShape{OT1}{phv}{m}{ui}{<->ssub * phv/m/it}{}
 295 \DeclareFontShape{OT1}{phv}{b}{ui}{<->ssub * phv/b/it}{}
 296
 297 %%%% T1 Helvetica
 298
 299
 300 \DeclareFontFamily{T1}{phv}{}
 301
 302 \DeclareFontShape{T1}{phv}{b}{n}{<-> s * [.9] phvb\eightt}{}
 303 \DeclareFontShape{T1}{phv}{b}{sc}{<-> s * [.9] phvbc\eightt}{}
 304 \DeclareFontShape{T1}{phv}{b}{sl}{<-> s * [.9] phvbo\eightt}{}
 305 \DeclareFontShape{T1}{phv}{bc}{n}{<-> s * [.9] phvb\hvtmph}{}
 306 \DeclareFontShape{T1}{phv}{bc}{sc}{<-> s * [.9] phvbc\hvtmph}{}
 307 \DeclareFontShape{T1}{phv}{bc}{sl}{<-> s * [.9] phvbo\hvtmph}{}
 308 \DeclareFontShape{T1}{phv}{l}{n}{<-> s * [.9] phvl\eightt}{}
 309 \DeclareFontShape{T1}{phv}{l}{sc}{<-> s * [.9] phvlc\eightt}{}
 310 \DeclareFontShape{T1}{phv}{l}{sl}{<-> s * [.9] phvlo\eightt}{}
 311 \DeclareFontShape{T1}{phv}{m}{n}{<-> s * [.9] phvr\eightt}{}
 312 \DeclareFontShape{T1}{phv}{m}{sc}{<-> s * [.9] phvrc\eightt}{}
 313 \DeclareFontShape{T1}{phv}{m}{sl}{<-> s * [.9] phvro\eightt}{}
 314 \DeclareFontShape{T1}{phv}{mc}{n}{<-> s * [.9] phvr\hvtmph}{}
 315 \DeclareFontShape{T1}{phv}{mc}{sc}{<-> s * [.9] phvrc\hvtmph}{}
 316 \DeclareFontShape{T1}{phv}{mc}{sl}{<-> s * [.9] phvro\hvtmph}{}
 317
 318 \DeclareFontShape{T1}{phv}{bx}{n}{<->ssub * phv/b/n}{}
 319 \DeclareFontShape{T1}{phv}{bx}{sc}{<->ssub * phv/b/sc}{}
 320 \DeclareFontShape{T1}{phv}{bx}{sl}{<->ssub * phv/b/sl}{}
 321 \DeclareFontShape{T1}{phv}{b}{it}{<->ssub * phv/b/sl}{}
 322 \DeclareFontShape{T1}{phv}{bx}{it}{<->ssub * phv/b/it}{}
 323 \DeclareFontShape{T1}{phv}{bc}{it}{<->ssub * phv/bc/sl}{}
 324 \DeclareFontShape{T1}{phv}{l}{it}{<->ssub * phv/l/sl}{}
 325 \DeclareFontShape{T1}{phv}{m}{it}{<->ssub * phv/m/sl}{}
 326 \DeclareFontShape{T1}{phv}{mc}{it}{<->ssub * phv/mc/sl}{}
 327
 328 \endgroup
 329
 330
 331 \klutest@font{MTSY}{Mathtime}
 332 \if y\klu@font@error
 333     \IfFileExists{mathptm.sty}{%
 334     \PackageWarningNoLine{klups}{%
 335     Using mathptm, possibly incorrect output for math fonts}%
 336     \RequirePackage{mathptm}}{%
 337     \PackageError{klups}{%
 338     Incorrect output for all math fonts}{%
 339     Because I could not find the MathTime package, I am reverting\MessageBreak
 340     to Computer Modern for Calligraphics and all math.\MessageBreak
 341     Sorry, but you don't even have mathptm.sty installed!
 342     }}
 343 \else
 344 \klutest@font{MTSYB}{Mathtime Plus}
 345 \if y\klu@font@error
 346     \PackageError{klups}{%
 347     Unstable output encoding for \string\boldmath}{%
 348     Because I could not find the MathTime plus fonts, I am reverting\MessageBreak
 349     to Computer Modern for Calligraphics and bold math. This looks\MessageBreak
 350     bad and may even give incorrect characters if you use \string\boldmath
 351     }%
 352     \RequirePackage{mathtime}
 353 \else
 354     \RequirePackage[mtbold,mtpluscal]{mathtime}
 355 \fi
 356 \fi
 357 \klutest@font{MTGU}{Mathtime Plus upright greek}
 358 \if y\klu@font@error
 359     \@addtofontwarning{%
 360         \spaces disabling \string\psgreek\space and \string\greekps}
 361     \AtEndOfPackage{\let\rmgreek@redefs\relax }%
 362 \else
 363
 364
 365 \begingroup \nfss@catcodes
 366 \DeclareFontFamily{U}{mtgu}{}
 367 \DeclareFontShape{U}{mtgu}{m}{n}{<-> MTGU}{}
 368 \DeclareFontShape{U}{mtgu}{b}{n}{<-> MTGUB}{}
 369 \endgroup
 370
 371 \DeclareSymbolFont{uprightlcgreek}{U}{mtgu}{m}{n}
 372 %
 373 %  This is not clean. bold lowercase greek should come
 374 %  from the 'letters' font (MTMIB) to avoid confusion.
 375 %  However, there are the same glyphs in both fonts.
 376 %
 377 \SetSymbolFont{uprightlcgreek}{bold}{U}{mtgu}{b}{n}
 378
 379
 380 \DeclareMathSymbol{\upr@alpha    }{\mathord}{uprightlcgreek}{`a}
 381 \DeclareMathSymbol{\upr@beta     }{\mathord}{uprightlcgreek}{`b}
 382 \DeclareMathSymbol{\upr@gamma    }{\mathord}{uprightlcgreek}{`g}
 383 \DeclareMathSymbol{\upr@delta    }{\mathord}{uprightlcgreek}{`d}
 384 \DeclareMathSymbol{\upr@epsilon  }{\mathord}{uprightlcgreek}{`e}
 385 \DeclareMathSymbol{\upr@zeta     }{\mathord}{uprightlcgreek}{`z}
 386 \DeclareMathSymbol{\upr@eta      }{\mathord}{uprightlcgreek}{'041}
 387 \DeclareMathSymbol{\upr@theta    }{\mathord}{uprightlcgreek}{'042}
 388 \DeclareMathSymbol{\upr@iota     }{\mathord}{uprightlcgreek}{`i}
 389 \DeclareMathSymbol{\upr@kappa    }{\mathord}{uprightlcgreek}{`k}
 390 \DeclareMathSymbol{\upr@lambda   }{\mathord}{uprightlcgreek}{`l}
 391 \DeclareMathSymbol{\upr@mu       }{\mathord}{uprightlcgreek}{`m}
 392 \DeclareMathSymbol{\upr@nu       }{\mathord}{uprightlcgreek}{`n}
 393 \DeclareMathSymbol{\upr@xi       }{\mathord}{uprightlcgreek}{`x}
 394 \DeclareMathSymbol{\upr@pi       }{\mathord}{uprightlcgreek}{`p}
 395 \DeclareMathSymbol{\upr@rho      }{\mathord}{uprightlcgreek}{`r}
 396 \DeclareMathSymbol{\upr@sigma    }{\mathord}{uprightlcgreek}{`s}
 397 \DeclareMathSymbol{\upr@tau      }{\mathord}{uprightlcgreek}{`t}
 398 \DeclareMathSymbol{\upr@upsilon  }{\mathord}{uprightlcgreek}{`u}
 399 \DeclareMathSymbol{\upr@phi      }{\mathord}{uprightlcgreek}{'043}
 400 \DeclareMathSymbol{\upr@chi      }{\mathord}{uprightlcgreek}{'044}
 401 \DeclareMathSymbol{\upr@psi      }{\mathord}{uprightlcgreek}{'045}
 402 \DeclareMathSymbol{\upr@omega    }{\mathord}{uprightlcgreek}{'046}
 403 \DeclareMathSymbol{\upr@varepsilon}{\mathord}{uprightlcgreek}{'053}
 404 \DeclareMathSymbol{\upr@vartheta }{\mathord}{uprightlcgreek}{'054}
 405 \DeclareMathSymbol{\upr@varpi    }{\mathord}{uprightlcgreek}{'055}
 406 \DeclareMathSymbol{\upr@varrho   }{\mathord}{uprightlcgreek}{'056}
 407 \DeclareMathSymbol{\upr@varsigma }{\mathord}{uprightlcgreek}{'057}
 408 \DeclareMathSymbol{\upr@varphi   }{\mathord}{uprightlcgreek}{'060}
 409 \DeclareMathSymbol{\upr@varkappa }{\mathord}{uprightlcgreek}{'061}
 410
 411
 412 \let\italicalpha      \alpha
 413 \let\italicbeta       \beta
 414 \let\italicgamma      \gamma
 415 \let\italicdelta      \delta
 416 \let\italicepsilon    \epsilon
 417 \let\italiczeta       \zeta
 418 \let\italiceta        \eta
 419 \let\italictheta      \theta
 420 \let\italiciota       \iota
 421 \let\italickappa      \kappa
 422 \let\italiclambda     \lambda
 423 \let\italicmu         \mu
 424 \let\italicnu         \nu
 425 \let\italicxi         \xi
 426 \let\italicpi         \pi
 427 \let\italicrho        \rho
 428 \let\italicsigma      \sigma
 429 \let\italictau        \tau
 430 \let\italicupsilon    \upsilon
 431 \let\italicphi        \phi
 432 \let\italicchi        \chi
 433 \let\italicpsi        \psi
 434 \let\italicomega      \omega
 435 \let\italicvarepsilon \varepsilon
 436 \let\italicvartheta   \vartheta
 437 \let\italicvarpi      \varpi
 438 \let\italicvarrho     \varrho
 439 \let\italicvarsigma   \varsigma
 440 \let\italicvarphi     \varphi
 441 \let\italicvarkappa   \varkappa
 442
 443 \def\rmgreek@redefs{%
 444 \def\alpha       {\upr@alpha      }%
 445 \def\beta        {\upr@beta       }%
 446 \def\gamma       {\upr@gamma      }%
 447 \def\delta       {\upr@delta      }%
 448 \def\epsilon     {\upr@epsilon    }%
 449 \def\zeta        {\upr@zeta       }%
 450 \def\eta         {\upr@eta        }%
 451 \def\theta       {\upr@theta      }%
 452 \def\iota        {\upr@iota       }%
 453 \def\kappa       {\upr@kappa      }%
 454 \def\lambda      {\upr@lambda     }%
 455 \def\mu          {\upr@mu         }%
 456 \def\nu          {\upr@nu         }%
 457 \def\xi          {\upr@xi         }%
 458 \def\pi          {\upr@pi         }%
 459 \def\rho         {\upr@rho        }%
 460 \def\sigma       {\upr@sigma      }%
 461 \def\tau         {\upr@tau        }%
 462 \def\upsilon     {\upr@upsilon    }%
 463 \def\phi         {\upr@phi        }%
 464 \def\chi         {\upr@chi        }%
 465 \def\psi         {\upr@psi        }%
 466 \def\omega       {\upr@omega      }%
 467 \def\varepsilon  {\upr@varepsilon }%
 468 \def\vartheta    {\upr@vartheta   }%
 469 \def\varpi       {\upr@varpi      }%
 470 \def\varrho      {\upr@varrho     }%
 471 \def\varsigma    {\upr@varsigma   }%
 472 \def\varphi      {\upr@varphi     }%
 473 \def\varkappa    {\upr@varkappa   }%
 474     }
 475
 476 \def\rmgreek{\rmgreek@redefs }
 477 \def\greekrm#1{{\rmgreek #1}}
 478 \fi
 479
 480 \ifx\@fontwarnings\empty \else
 481     \PackageWarningNoLine{klups}{\@fontwarnings}
 482 \fi
 483 \normalfont
 484 \endinput
 485
 486 %%
 487 %% End of file `klups.sty'.
 488