FM / tmac

/usr/share/groff/1.22.4/tmac/

/usr/share/groff/1.22.4/tmac

Name	Size	Mode	Actions
mdoc/	-	0755	rm
an-ext.tmac	3788	0644	edit dl rm
an-old.tmac	14662	0644	edit dl rm
an.tmac	313	0644	edit dl rm
andoc.tmac	2654	0644	edit dl rm
composite.tmac	805	0644	edit dl rm
cp1047.tmac	2453	0644	edit dl rm
cs.tmac	4836	0644	edit dl rm
de.tmac	5133	0644	edit dl rm
den.tmac	1226	0644	edit dl rm
devtag.tmac	3830	0644	edit dl rm
doc-old.tmac	36571	0644	edit dl rm
doc.tmac	86638	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	5560	0644	edit dl rm
hyphen.cs	21437	0644	edit dl rm
hyphen.den	160078	0644	edit dl rm
hyphen.det	160909	0644	edit dl rm
hyphen.fr	28215	0644	edit dl rm
hyphen.sv	34834	0644	edit dl rm
hyphen.us	28121	0644	edit dl rm
hyphenex.cs	505	0644	edit dl rm
hyphenex.us	21756	0644	edit dl rm
ja.tmac	1934	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	4332	0644	edit dl rm
pdfpic.tmac	3758	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	4998	0644	edit dl rm
safer.tmac	218	0644	edit dl rm
sv.tmac	4403	0644	edit dl rm
trans.tmac	4802	0644	edit dl rm
troffrc	1642	0644	edit dl rm
troffrc-end	1167	0644	edit dl rm
tty-char.tmac	5824	0644	edit dl rm
tty.tmac	1882	0644	edit dl rm
unicode.tmac	93	0644	edit dl rm
www.tmac	40923	0644	edit dl rm
zh.tmac	1729	0644	edit dl rm

Edit: /usr/share/groff/1.22.4/tmac/pspic.tmac (4998B)

.\" 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]
.
.\" ====================================================================
.\" Editor settings
.\" ====================================================================
.
.\" Local Variables:
.\" mode: nroff
.\" fill-column: 72
.\" End:
.\" vim: set filetype=groff textwidth=72:

cmd: