Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!rutgers!umn-d-ub!cs.umn.edu!attila!papowell
From: papowell@attila.cs.umn.edu (Patrick Powell)
Newsgroups: comp.unix.questions
Subject: Re: troff fonts with me macros
Message-ID: <1990Mar13.233850.5461@cs.umn.edu>
Date: 13 Mar 90 23:38:50 GMT
References: <22738@adm.BRL.MIL>
Sender: news@cs.umn.edu (News administrator)
Reply-To: papowell@attila.cs.umn.edu (Patrick Powell)
Organization: CAD Lab, University of Minnesota, Mpls.  EECS 6-204
Lines: 60

In article <22738@adm.BRL.MIL> gaspar@stl-08sima.army.mil (Al Gaspar) writes:
>
>I am working on a document using the me macros and I want to
>change the point size for the entire document from the default
>of 10 to 12.  I have tried (among other things) '.ps 12' and
>'.sz 12' at the top of my file with no luck.  The only way those
>insertions seem to work is to place them in each paragraph separately.
>The only way I have been able to change the point size for the entire
>document was to make my own copy of the macro package and change the
>defaults for the .tp and .pp registers.  Is there a better way?
>(besides using another macro package ;-)...
>
>Thanks--
>
>Al
>
>-- 
>Al Gaspar	<gaspar@stl-08sima.army.mil>
>USAMC SIMA, ATTN:  AMXSI-TTC, Box 1578, St. Louis, MO  63188-1578
>COMMERCIAL:  (314) 263-5646	AUTOVON:  693-5646
>uunet.uu.net!stl-08sima.army.mil!gaspar

here is a set of handy macros that you might want.

.	\" CW - L - Same as .r, but for CW font.  Shrink size a bit, looks better
.nr Ls 1
.de l
.if \\n(.$>2 \&\\$3\c
.ds p# "
.nr PQ \\n(.f
.if \\n(PQ>9 .ds p# (
.ft CW
.if \\n(.$>0 \\s-\\n(Ls\&\\$1\\f\\*(p#\\n(PQ\\s+\\n(Ls\\$2
..
.\" Blast changes to all environments.  Does not work with EQN so that
.\" you still have to do gsize xxx
.de SZ
.ie \\n(.$>0 \
\{\
.	nr pp \\$1
.	nr tp \\$1
.	nr fp \\$1-2
.	nr sp \\$1
.	sz \\$1
.	nr ii 5n
.	nr pi 5n
.\}
.el \
\{\
.	nr pp 10
.	nr tp 10
.	nr fp 8
.	nr sp 10
.	sz 10
.	nr ii 5n
.	nr pi 5n
.\}
..
Prof. Patrick Powell, Dept. Computer Science, EECS 4-192,
University of Minnesota,  Minneapolis, MN 55455 (612)625-3543/625-4002