FM / tmac

/usr/share/groff/1.23.0/tmac/

/usr/share/groff/1.23.0/tmac

Name	Size	Mode	Actions
mdoc/	-	0755	rm
an-ext.tmac	3611	0644	edit dl rm
an.tmac	45426	0644	edit dl rm
andoc.tmac	3037	0644	edit dl rm
composite.tmac	637	0644	edit dl rm
cp1047.tmac	2381	0644	edit dl rm
cs.tmac	5771	0644	edit dl rm
de.tmac	6090	0644	edit dl rm
den.tmac	1064	0644	edit dl rm
devtag.tmac	3637	0644	edit dl rm
doc-old.tmac	36401	0644	edit dl rm
doc.tmac	155253	0644	edit dl rm
en.tmac	1958	0644	edit dl rm
eqnrc	1433	0644	edit dl rm
europs.tmac	1789	0644	edit dl rm
fallbacks.tmac	6474	0644	edit dl rm
fr.tmac	6189	0644	edit dl rm
hyphen.cs	21271	0644	edit dl rm
hyphen.den	159912	0644	edit dl rm
hyphen.det	160743	0644	edit dl rm
hyphen.en	34128	0644	edit dl rm
hyphen.fr	28051	0644	edit dl rm
hyphen.it	5011	0644	edit dl rm
hyphen.sv	34668	0644	edit dl rm
hyphenex.cs	339	0644	edit dl rm
hyphenex.en	1996	0644	edit dl rm
it.tmac	5810	0644	edit dl rm
ja.tmac	1953	0644	edit dl rm
latin1.tmac	2456	0644	edit dl rm
latin2.tmac	5116	0644	edit dl rm
latin5.tmac	2965	0644	edit dl rm
latin9.tmac	3030	0644	edit dl rm
man.tmac	55	0644	edit dl rm
mandoc.tmac	61	0644	edit dl rm
mdoc.tmac	57	0644	edit dl rm
papersize.tmac	4254	0644	edit dl rm
pdfpic.tmac	8524	0644	edit dl rm
pic.tmac	255	0644	edit dl rm
ps.tmac	20662	0644	edit dl rm
psatk.tmac	1314	0644	edit dl rm
psold.tmac	2005	0644	edit dl rm
pspic.tmac	5191	0644	edit dl rm
rfc1345.tmac	95277	0644	edit dl rm
sv.tmac	5337	0644	edit dl rm
trans.tmac	5195	0644	edit dl rm
troffrc	1546	0644	edit dl rm
troffrc-end	1423	0644	edit dl rm
tty-char.tmac	5906	0644	edit dl rm
tty.tmac	1739	0644	edit dl rm
www.tmac	41024	0644	edit dl rm
zh.tmac	1747	0644	edit dl rm

Edit: /usr/share/groff/1.23.0/tmac/pspic.tmac (5191B)

.\" Define the PSPIC macro.
.\"
.\" When used with output devices other than ps, dvi, html, or xhtml,
.\" draw a box where the picture would go.
.\"
.\" Usage:
.\"
.\"   .PSPIC [-L|-R|-C|-I <indentation>] <file> [<width> [<height>]]
.
.do if d PSPIC .nx
.
.do nr *groff_pspic_tmac_C \n[.cp]
.cp 0
.
.\" This is called if the `psbb` request returned a bounding box of all
.\" zeroes.  It already issues a diagnostic; one can append `ab` to this
.\" macro if that should be a fatal error, or redefine it for some other
.\" purpose.
.de pspic*error-hook
..
.
.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
.  ie (\\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
.  \}
.  el \
.    pspic*error-hook \\$@
.  HTML-IMAGE-END
..
.
.cp \n[*groff_pspic_tmac_C]
.do rr *groff_pspic_tmac_C
.
.\" Local Variables:
.\" mode: nroff
.\" fill-column: 72
.\" End:
.\" vim: set expandtab filetype=groff tabstop=2 textwidth=72:

cmd: