File: mgp.sty

package info (click to toggle)
med-doc 0.6
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 4,140 kB
  • ctags: 180
  • sloc: sh: 142; makefile: 53
file content (117 lines) | stat: -rw-r--r-- 4,217 bytes parent folder | download | duplicates (2)
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
117
%%% Additions by Andreas Tille <tille@debian.org>
\usepackage{times}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
%%% for inclusion of graphics
\usepackage[dvips]{graphics,color}
%%% End of additions by Andreas Tille

%%% mgp.sty --- style file for a LaTeX file created by mgp.el
%%% Copyright (C) 1999 Electrotechnical Lab., JAPAN

%% Author: K.Handa <handa@etl.go.jp>
%% Created: 1999/04/28

%% This file is not part of GNU Emacs, but the same permissions apply.
%%
%% GNU Emacs is free software; you can redistribute it 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.
%%
%% GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to the
%% Free Software Foundation, Inc., 59 Temple Place - Suite 330,
%% Boston, MA 02111-1307, USA.

%% Disable special handling of `@'.
\makeatletter
%% Copied from slides.cls and modified slightly.
%at-%\def\rmdefault{lcmss}        % no roman
%at-%\def\sfdefault{lcmss}
%at-%\def\ttdefault{lcmtt}
%at- adapted from /usr/share/texmf/tex/latex/psnfss/times.sty
\renewcommand{\sfdefault}{phv}
%%\renewcommand{\rmdefault}{ptm}
\renewcommand{\rmdefault}{phv}
%%\def\rmdefault{phv}
\renewcommand{\ttdefault}{pcr}
\def\itdefault{sl}
\def\sldefault{sl}
\def\bfdefault{bx}
\def\ifourteenpt{13.82}
\def\iseventeenpt{16.59}
\def\itwentypt{19.907}
\def\itwentyfourpt{23.89}
\def\itwentyninept{28.66}
\def\ithirtyfourpt{34.4}
\def\ifortyonept{41.28}
\def\@setfontsize@parms#1{%
   \lineskip #1\relax%
   \parskip #1\relax%
  \baselineskip\baselinestretch\baselineskip%
  \normalbaselineskip\baselineskip}
\def\normalsize{%
      \@setfontsize\normalsize\itwentypt{22\p@}%
      \@setfontsize@parms{\z@}}
\def\small{\@setfontsize\small\iseventeenpt{19\p@ plus3\p@}%
           \@setfontsize@parms{2\p@}}
\let\footnotesize=\small
\let\scriptsize=\small
\def\tiny{\@setfontsize\tiny\ifourteenpt{16\p@ plus2\p@}%
          \@setfontsize@parms{2pt}}
\def\large{\@setfontsize\large\itwentyfourpt{26\p@ plus8\p@}%
           \@setfontsize@parms{2\p@}}
\def\Large{\@setfontsize\Large\itwentyninept{31\p@ plus10\p@}%
           \@setfontsize@parms{2\p@}}
\def\LARGE{\@setfontsize\LARGE\ithirtyfourpt{36\p@ plus10\p@}%
           \@setfontsize@parms{2\p@}}
\def\huge{\@setfontsize\huge\ifortyonept{43\p@ plus10\p@}%
           \@setfontsize@parms{2\p@}}
\let\Huge\huge
%% Put 1cm margin at top and bottom.
%at-%\setlength\topmargin{-1in}
%at-%\advance\topmargin by1cm
\textheight\paperheight\advance\textheight by-2cm
%% Put 1cm margin at left and right
\setlength\oddsidemargin{-1in}
%at-%\advance\oddsidemargin by1cm
%at-%\textwidth\paperwidth\advance\textwidth by-2cm
\textwidth\paperwidth\advance\textwidth by-1cm
%% No surplus spaces.
\setlength\headheight{0pt}
\setlength\headsep   {0pt}
\setlength\topskip   {0pt}
\setlength\footskip  {0pt}
\setlength\parindent {0pt}
\pagestretch20mm
\pagestyle{empty}
%% Special command for line breaking.
\def\nl{\hskip0pt minus10mm\nopagebreak[4]\\}
\newdimen\mgpdimenx
\newdimen\mgpdimeny
\newbox\mgpbox
%% Hanging indent
\def\mgpi#1#2{\setbox\mgpbox=\hbox{#2\hskip.5mm}%
\mgpdimenx#1em\divide\mgpdimenx by2\advance\mgpdimenx by\wd\mgpbox%
\parindent\mgpdimenx\hangindent\mgpdimenx\indent\llap{\box\mgpbox}\ignorespaces}
%% Horizontal skip
\def\mgps#1{\mgpdimenx#1em\divide\mgpdimenx by2\hskip\mgpdimenx}
%% Draw horizontal bar.
\def\mgpb#1#2#3{}
%at-%\def\mgpb#1#2#3{%
%at-%\mgpdimeny\textheight\divide\mgpdimeny by1000#1\multiply\mgpdimeny by#1%
%at-%\mgpdimenx\textwidth\divide\mgpdimenx by100\multiply\mgpdimenx by#2%
%at-%\makebox[\mgpdimenx]{}%
%at-%\mgpdimenx\textwidth\divide\mgpdimenx by100\multiply\mgpdimenx by#3%
%at-%\rule{\mgpdimenx}{\mgpdimeny}\\\vskip-10pt minus10pt}
%% Enable special handling of `@'.
\makeatother
%% Some other packages
\usepackage{latexsym}
\usepackage{graphics}