FM / tmac

/usr/share/groff/1.22.3/tmac/

/usr/share/groff/1.22.3/tmac

Name	Size	Mode	Actions
mdoc/	-	0755	rm
an-ext.tmac	3542	0644	edit dl rm
an-old.tmac	14301	0644	edit dl rm
an.tmac	53	0644	edit dl rm
andoc.tmac	1852	0644	edit dl rm
composite.tmac	555	0644	edit dl rm
cp1047.tmac	2197	0644	edit dl rm
cs.tmac	4569	0644	edit dl rm
de.tmac	4599	0644	edit dl rm
den.tmac	1016	0644	edit dl rm
devtag.tmac	3792	0644	edit dl rm
doc-old.tmac	36308	0644	edit dl rm
doc.tmac	74443	0644	edit dl rm
eqnrc	1427	0644	edit dl rm
europs.tmac	1689	0644	edit dl rm
fallbacks.tmac	1416	0644	edit dl rm
fr.tmac	5299	0644	edit dl rm
html-end.tmac	440	0644	edit dl rm
html.tmac	16423	0644	edit dl rm
hyphen.cs	21223	0644	edit dl rm
hyphen.den	38372	0644	edit dl rm
hyphen.det	37306	0644	edit dl rm
hyphen.fr	28007	0644	edit dl rm
hyphen.sv	34576	0644	edit dl rm
hyphen.us	27860	0644	edit dl rm
hyphenex.cs	291	0644	edit dl rm
hyphenex.det	120968	0644	edit dl rm
hyphenex.us	15678	0644	edit dl rm
ja.tmac	1696	0644	edit dl rm
latin1.tmac	2272	0644	edit dl rm
latin2.tmac	2362	0644	edit dl rm
latin5.tmac	2279	0644	edit dl rm
latin9.tmac	2272	0644	edit dl rm
man.tmac	58	0644	edit dl rm
mandoc.tmac	61	0644	edit dl rm
mdoc.tmac	57	0644	edit dl rm
papersize.tmac	4087	0644	edit dl rm
pic.tmac	139	0644	edit dl rm
ps.tmac	20577	0644	edit dl rm
psatk.tmac	1102	0644	edit dl rm
psold.tmac	1828	0644	edit dl rm
pspic.tmac	4751	0644	edit dl rm
safer.tmac	218	0644	edit dl rm
sv.tmac	4133	0644	edit dl rm
trans.tmac	4549	0644	edit dl rm
troffrc	1409	0644	edit dl rm
troffrc-end	1167	0644	edit dl rm
tty-char.tmac	5205	0644	edit dl rm
tty.tmac	1574	0644	edit dl rm
unicode.tmac	93	0644	edit dl rm
www.tmac	40761	0644	edit dl rm

Edit: /usr/share/groff/1.22.3/tmac/pspic.tmac (4751B)

.\" -*- nroff -*-
.\"
.\" pspic.tmac
.\"
.\" Define the PSPIC macro.
.\"
.\" When used other than with -Tps, -Tdvi, -Thtml, or -Txhtml it draws a box
.\" around where the picture would go.
.\"
.\" Usage:
.\"
.\"   .PSPIC [-L|-R|-C|-I <indent>] <file> [<width> [<height>]]
.
.do if d PSPIC .nx
.
.nr _C \n(.C
.cp 0
.
.de PSPIC
.  nr ps-offset-mode 0
.  \" left-aligned?
.  ie '\\$1'-L' \{\
.    nr ps-offset-mode 1
.    shift
.    HTML-DO-IMAGE \\$1 l
.  \}
.  el \{\
.    \" right-aligned?
.    ie '\\$1'-R' \{\
.      nr ps-offset-mode 2
.      shift
.      HTML-DO-IMAGE \\$1 r
.    \}
.    el \{\
.      \" indented?
.      ie '\\$1'-I' \{\
.        nr ps-offset-mode 3
.        nr ps-offset (m;\\$2)
.        shift 2
.        HTML-DO-IMAGE \\$1 i
.      \}
.      el \{\
.        \" centered is the default
.        if '\\$1'-C' \
.          shift
.        HTML-DO-IMAGE \\$1 c
.      \}
.    \}
.  \}
.
.  br
.
.  \" get bounding box
.  psbb \\$1
.  if (\\n[llx] : \\n[lly] : \\n[urx] : \\n[ury]) \{\
.    nr ps-wid (\\n[urx] - \\n[llx])
.    nr ps-ht (\\n[ury] - \\n[lly])
.    if (\\n[ps-wid] < 0) \
.      nr ps-wid (-\\n[ps-wid])
.    if (\\n[ps-ht] < 0) \
.      nr ps-ht (-\\n[ps-ht])
.
.    \" if we have a <width> parameter, use it as the final
.    \" image width; otherwise we use the image's natural width
.    \" or the current line length, whatever is smaller
.    ie (\\n[.$] >= 2) \
.      nr ps-deswid (i;\\$2)
.    el \
.      nr ps-deswid ((\\n[.l] - \\n[.i]) <? \\n[ps-wid]p)
.
.    \" compute the final image height (with proper rounding),
.    \" based on the image's aspect
.    nr ps-desht (\\n[ps-deswid] * 1000 + (\\n[ps-wid] / 2) \
                  / \\n[ps-wid] * \\n[ps-ht] \
                  + 500 / 1000)
.
.    \" if we have a <height> parameter, use it as the final
.    \" image height in case it is smaller than the height
.    \" value we have just computed
.    if ((\\n[.$] >= 3) & (\\n[ps-desht] > (i;0\\$3))) \{\
.      nr ps-desht (i;\\$3)
.      \" recompute the final image width since we always
.      \" keep the correct image aspect
.      nr ps-deswid (\\n[ps-desht] * 1000 + (\\n[ps-ht] / 2) \
                     / \\n[ps-ht] * \\n[ps-wid] \
                     + 500 / 1000)
.    \}
.
.    \" reserve vertical space for image
.    ne (\\n[ps-desht]u + 1v)
.
.    \" compute image offset w.r.t. the current left margin
.    if (\\n[ps-offset-mode] == 0) \
.      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid] / 2)
.    if (\\n[ps-offset-mode] == 1) \
.      nr ps-offset 0
.    if (\\n[ps-offset-mode] == 2) \
.      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid])
.
.    ie '\*[.T]'dvi' \{\
.      \" prepare values for \special{psfile=...} as needed by dvips
.      ie (\\n[ps-wid]p == \\n[ps-deswid]) \{\
.        ds ps-scale \" empty
.        ds ps-hoffset hoffset=-\\n[llx]
.        ds ps-voffset voffset=-\\n[lly]
.      \}
.      el \{\
.        nr ps-scale (\\n[ps-deswid] * 100 / \\n[ps-wid]p)
.        nr ps-hoffset (-\\n[llx] * \\n[ps-scale] / 100)
.        nr ps-voffset (-\\n[lly] * \\n[ps-scale] / 100)
.        ds ps-scale hscale=\\n[ps-scale] vscale=\\n[ps-scale]
.        ds ps-hoffset hoffset=\\n[ps-hoffset]
.        ds ps-voffset voffset=\\n[ps-voffset]
.      \}
.
\h'\\n[ps-offset]u'\
\v'\\n[ps-desht]u'\
\X'psfile=\\$1 \\*[ps-hoffset] \\*[ps-voffset] \\*[ps-scale]'
.    \}
.    el \{\
.      ie '\*[.T]'ps' \{\
.        \" prepare values for grops; the `ps-invis' and `ps-endinvis' escapes
.        \" are for groff's -X switch to provide a PS preview with xditview:
.        \" it uses -Tps for formatting but xditview can't handle EPS files,
.        \" thus alternative code is enclosed between those two escapes
.        ds ps-invis \X'ps: invis'
.        ds ps-endinvis \X'ps: endinvis'
.        ds ps-import \X'ps: import \E$1 \En[llx] \En[lly] \En[urx] \En[ury] \
                                    \En[ps-deswid] \E*[ps-desht]'
.      \}
.      el \{\
.        ds ps-invis
.        ds ps-endinvis
.        ds ps-import
.      \}
.
.      ie (\\n[.$] >= 3) \
.        ds ps-desht \\n[ps-desht]
.      el \
.        ds ps-desht \" empty
.
\h'\\n[ps-offset]u'\
\\*[ps-invis]\
\# horizontally, the rectangle is slightly smaller than the image
\# to compensate the line thickness (especially needed for TTY devices)
\Z'\D'p 0 \\n[ps-desht]u \
        (\\n[ps-deswid]u - \\n[.H]u) 0 \
        0 -\\n[ps-desht]u''\
\# for convenience we also display the image file name (centered vertically);
\Z'\v'((\\n[ps-desht]u / 2u) \
       + (\w'\\$1'u * 0) \
       + ((\\n[rst]u + \\n[rsb]u) / 2u))'\h'1m'\\$1'\
\\*[ps-endinvis]\
\v'\\n[ps-desht]u'\
\\*[ps-import]
.    \}
.
.    br
.    sp \\n[ps-desht]u
.  \}
.  HTML-IMAGE-END
..
.
.cp \n[_C]
.
.\" end of pspic.tmac

cmd: