3 .\" Define the PSPIC macro.
4 .\" When used other than with -Tps, it will draw a box around where
5 .\" the picture would go.
11 . HTML-DO-IMAGE \\$1 l
17 . HTML-DO-IMAGE \\$1 r
22 . nr ps-offset (m;\\$2)
25 . HTML-DO-IMAGE \\$1 i
30 .if (\\n[llx] : \\n[lly] : \\n[urx] : \\n[ury]) \{\
31 . nr ps-wid (\\n[urx]-\\n[llx])
32 . nr ps-ht (\\n[ury]-\\n[lly])
33 . if \\n[ps-wid]<0 .nr ps-wid 0-\\n[ps-wid]
34 . if \\n[ps-ht]<0 .nr ps-ht 0-\\n[ps-ht]
35 . ie \\n[.$]>=2 .nr ps-deswid (i;\\$2)
36 . el .nr ps-deswid \\n[.l]-\\n[.i]<?\\n[ps-wid]p
37 . nr ps-desht \\n[ps-deswid]*1000+(\\n[ps-wid]/2)/\\n[ps-wid]\
39 . if \\n[.$]>=3&(\\n[ps-desht]>(i;0\\$3)) \{\
40 . nr ps-desht (i;\\$3)
41 . nr ps-deswid \\n[ps-desht]*1000+(\\n[ps-ht]/2)/\\n[ps-ht]\
44 . ne \\n[ps-desht]u+1v
45 . if \\n[ps-offset-mode]=0 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]/2
46 . if \\n[ps-offset-mode]=1 .nr ps-offset 0
47 . if \\n[ps-offset-mode]=2 .nr ps-offset \\n[.l]-\\n[.i]-\\n[ps-deswid]
48 . ie \\n[.$]>=3 .ds ps-desht \\n[ps-desht]
49 . el .ds ps-desht \" empty
52 \Z'\D'p 0 \\n[ps-desht]u \\n[ps-deswid]u 0 0 -\\n[ps-desht]u''\
54 \v'\\n[ps-desht]u'\X'ps: import \\$1 \
55 \\n[llx] \\n[lly] \\n[urx] \\n[ury] \\n[ps-deswid] \\*[ps-desht]'