xref: /illumos-gate/usr/src/cmd/troff/troff.d/tmac.d/ansun (revision 7c478bd9)
Copyright Notice
ident "%Z%%M% %I% %E% SMI"
Notice of copyright on this source code product does not indicate
publication.

Copyright 2005 Sun Microsystems, Inc. All rights reserved.
Use is subject to license terms.

CDDL HEADER START

The contents of this file are subject to the terms of the
Common Development and Distribution License, Version 1.0 only
(the "License"). You may not use this file except in compliance
with the License.

You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
or http://www.opensolaris.org/os/licensing.
See the License for the specific language governing permissions
and limitations under the License.

When distributing Covered Code, include this CDDL HEADER in each
file and include the License file at usr/src/OPENSOLARIS.LICENSE.
If applicable, add the following below this CDDL HEADER, with the
fields enclosed by brackets "[]" replaced with your own identifying
information: Portions Copyright [yyyy] [name of copyright owner]

CDDL HEADER END

set fonts to Palatino
. fp 1 PA . fp 2 PI . fp 3 PB . fp 4 PB . fp 5 PA . fp 6 PB .\} set fonts to Roman if psc2 or -rf1 on cmdline
. fp 1 R . fp 2 I . fp 3 B . fp 4 B . fp 5 R . fp 6 B .\} . ds rq \('' . ds lq \(`` .\} . # reset environment .}f .. . # reset font .. . # default tabs .. . # draw vertical rule .. . # page header .ev 1 'sp .333i .lt 7i 'sp .083i .ev .nr TQ \\n(.i .nr TK \\n(.u . in 0 . nf . if \\n(T1 .TC . TT . in \\n(TQu . if \\n(TK .fi .\} .ns

#T . mk U# . in \\n(DIu .\} .. . # page footer .rn }F FZ .rr U# .\} .ev 1 'sp |8.5i sequential pagination if register O is set
.\} .\} . ds PN \\n% . pn 1 . af % a . nr A 0 ' bp 1 .\} .ev .rn FZ }F .. . # end macro (pass pagenum) .}N . nr P \\n% . if o .nr P +2 . if e .nr P +1 . tm \\nP .\} .ev 1 .ev .. . # end macro (until .TH) .}N .. .em }K .rn TS @T .so \\*(||/ansun.tbl

.as tH \(em Continued
.nr tC 1
.\}
.TF "\\*(tH"
..
. # title heading

.rs
.nr LL \\n(.l
. if \\n(nl \{\
. if o \{\
. nr pb 1
. ds ]H
. ds ]L
. ds T1 \\*(]W
. ds ]W
. bp
. \}
. \}
.\}
.em }M
. if \\n%>1 .if e \{\
. rs
. nr pb 0
. ds ]W \\*(T1
. bp
. nr % 1
. \}
. ds ]C \\$2
. as ]C \\(hy
. if !\\n(nl .if !\\nP .nr P 1
. if !\\n(nl .if \\nP .pn \\nP
. if \\nA .if \\nP>=\\nA \{\
. ds PN \\nP
. pn 1
. af % a
. nr A 0
.\}
.\".if \\nC .if \\n(nl .bp 1
.\".if !\\nC .if \\n(nl .bp 1
.\}
.af S A
. if \\n%<=1 .if \\nP .nr % \\nP
. if \\n%<=1 .if !\\nP .nr % 1
. if \\nA .if \\nP>=\\nA \{\
. ds PN \\nP
. pn 1
. af % a
. nr A 0
.\}
.\}
. if \\n%>1 .if e \{\
. rs
. bp
. nr % 1
. \}
. ds ]C \\$2
. as ]C \\(hy
. if !\\n(nl .if !\\nP .nr P 1
. if !\\n(nl .if \\nP .pn \\nP
. if \\nA .if \\nP>=\\nA \{\
. ds PN \\nP
. pn 1
. af % a
. nr A 0
.\}
.\}
.\}
.nr ]L \\$3
.}E
.nr )I .5i
.ev 1
.ev
..
. # index entry
..
.rn TZ @T
.so \\*(||/tz.map
.TZ \\$1 \\$2
..
.rn HC @T
.so \\*(||/tz.map
.HC \\$1 \\$2
..
. # section head
.\" jah needed RETURN VALUES to appear on one line. line length
.\" is a little to short for this.
. if \\$2VALUES \{
. ds s1 \\$1\ \\$2
. ds s2
. \}
.\}
.\}
.}X 0
.nr )E 2
\\*(s1 \\*(s2 \\$3 \\$4 \\$5 \\$6
..
. # sub section
.\" jah needed RETURN VALUES to appear on one line. line length
.\" is a little to short for this.
. if \\$2VALUES \{
. ds s1 \\$1\ \\$2
. ds s2
.\}
.\}
.\}
.}X 0
.nr )E 2
\\*(s1 \\*(s2 \\$3 \\$4 \\$5 \\$6 .. . # section head subroutine .}E .it 1 }N .. . # end of SH (see }X above and }N below) .nr )E 0 .}E .nr )I .5i .ns .. . # italic .it 1 }N .. . # bold .it 1 }N .. . # small .it 1 }N .. . # combinations of Roman, italic, bold .}S 1 2 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. .}S 1 3 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. .}S 2 1 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. .}S 2 3 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. .}S 3 1 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. .}S 3 2 "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" .. . # change bar start and end .. .mc .. . # make special case of shift out of italic .}f .. . # small and boldface .it 1 }N .. . # paragraph

..

.. .}E .nr )I .5i .ns .. . # paragraph distance .. . # hanging indent .}f .. . # indented paragraph

\\$2 \\$1 .. . # hanging label .nr )E 1 .ns .it 1 }N .di ]B .. . # end of TP (cf }N below) .nr )E 0 .}f

\} .}f .. . # handle end of 1-line features .di .nr )E 0 .. . # right shift .nr ]\\n+()p \\n()I .nr )\\n()p \\n()R .nr )I .5i .}E .. . # retreat . ie "\\$1"0" .nr )p 1 1 . el .nr )p \\$1 1 .\} .nr )I \\*(]i .nr )R \\*(]r .}E ..

.ie !\\$8 .nr tS \\$8
.el .nr tS 0.0i
.nr tS 0.0i . bp . br . rs .\} .rs

\!.mk P# \!.nr t \\\\n(P#u .\} \\kx .nr t \\n(nlu .\} \!\\kx \!.nr x \\\\n(.o+\\\\n(.i+\\\\nx+\\n(tXu \!.mk P# \!.nr y \\\\n(P#u \!\!x P /DOCHEIGHT \\\\nt \\\\ny sub 1.0 \\\\*(sY div mul def \!\!x P /DOCSTATE save def \!\!x P \\\\nx \\\\ny translate \!\!x P \\*(sX 8 mul \\*(sY -8 mul scale \!\!x P \\*(sR rotate \!\!x P /showpage {} def \!\!x I \\$1 \!\!x P DOCSTATE restore .\} \\kx .nr x \\n(.o+\\n(.i+\\nx+\\n(tXu

P# .nr y \\n(P#u \!x P /DOCHEIGHT \\nt \\ny sub 1.0 \\*(sY div mul def \!x P /DOCSTATE save def \!x P \\nx \\ny translate \!x P \\*(sX 8 mul \\*(sY -8 mul scale \!x P \\*(sR rotate \!x P /showpage {} def \!x I \\$1 \!x P DOCSTATE restore .\} .if !\\$8 \{\
.rs
.sp \\$8
.\}
.\} .\}

1 See hardcopy of \\*(]H .\} .rr PA P# sR t x y z sX sY tX tY .. .nr )p 0 1 .bd S 3 3 .bd S 4 3 .bd S1 3 3 .bd S1 4 3