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
|
.PS
# `ujt.m4'
cct_init(svg_font(sans-serif,11bp__))
dwn = 1.0
dsep = 0.15
define(`demo_ujt',`up_
ujt(`$1',`$2',`$3',`$4')
"B1" ifelse(`$5',,below,ljust) at last [].B1
"E" at 1.5 between last [].Bulk.c and last [].E
"B2" ifelse(`$5',,above,ljust) at last [].B2
')
[demo_ujt(up_ dimen_,,,E,A)
`"ujt(up_ dimen_,,,E)"' wid 1.3 at last [].s+(0,-0.2) below ]
[demo_ujt(,,P,)
`"ujt(,,P,)"' at last [].s+(0,-dsep) below] \
with .sw at last [].se+(0.8,0)
[demo_ujt(,R,,)
`"ujt(,R,,)"' at last [].s+(0,-dsep) below] \
with .sw at last [].se+(0.8,0)
[demo_ujt(,R,P,)
`"ujt(,R,P,)"' at last [].s+(0,-dsep) below] \
with .sw at last [].se+(0.8,0)
command "</g>" # end font
.PE
|
