summaryrefslogtreecommitdiff
path: root/tmac/pspic.tmac
blob: ab0666860c376a79b8bd5d82bd4b8a5fde4c93b6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
.\" pspic.tmac
.\"
.\" Define the PSPIC macro.
.\" When used other than with -Tps, it will draw a box around where
.\" the picture would go.
.de PSPIC
.nr ps-offset-mode 0
.ie '\\$1'-L' \{\
.	nr ps-offset-mode 1
.	shift
.       HTML-DO-IMAGE \\$1 l
.\}
.el \{\
.       ie '\\$1'-R' \{\
.              nr ps-offset-mode 2
.              shift
.              HTML-DO-IMAGE \\$1 r
.       \}
.       el \{\
.              if '\\$1'-I' \{\
.                     nr ps-offset-mode 3
.                     nr ps-offset (m;\\$2)
.                     shift 2
.              \}
.              HTML-DO-IMAGE \\$1 i
.       \}
.\}
.br
.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 0-\\n[ps-wid]
.	if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
.	ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
.	el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
.	nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
*\\n[ps-ht]+500/1000
.	if \\n[.$]>=3&(\\n[ps-desht]>(i;0\\$3)) \{\
.		nr ps-desht (i;\\$3)
.		nr ps-deswid \\n[ps-desht]*1000+(\\n[ps-ht]/2)/\\n[ps-ht]\
*\\n[ps-wid]+500/1000
.	\}
.	ne \\n[ps-desht]u+1v
.       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 \\n[.$]>=3 .ds ps-desht \\n[ps-desht]
.	el .ds ps-desht \" empty
\h'\\n[ps-offset]u'\
\X'ps: invis'\
\Z'\D'p 0 \\n[ps-desht]u \\n[ps-deswid]u 0 0 -\\n[ps-desht]u''\
\X'ps: endinvis'\
\v'\\n[ps-desht]u'\X'ps: import \\$1 \
\\n[llx] \\n[lly] \\n[urx] \\n[ury] \\n[ps-deswid] \\*[ps-desht]'
.	br
.	sp \\n[ps-desht]u
.\}
.HTML-IMAGE-END
..