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
|
.PS
# ex03.m4
cct_init(svg_font(sans-serif,11bp__))
circlerad = 0.35/2
define(`elen_',`dimen_')
del = linewid*0.6
"svg_it(u`'svg_sub(k))" wid 0.15 above
line
{
arrow right_ del
B0: circle "svg_it(b`'svg_sub(0))"
arrow right linewid/2
S: circle
line right 2*circlerad + del + S.w.x-B0.e.x
{arrow ; "svg_it(y`'svg_sub(k))" wid 0.2 above }
down_
delay
{line left_ del
circle "svg_it(-a`'svg_sub(1))" ; arrow from last circle to S chop}
line dashed down_ del
delay
{line left_ del
circle "svg_it(-a`'svg_sub(n))" ; arrow from last circle to S chop}
}
down_
delay
{line right_ del
circle "svg_it(b`'svg_sub(1))" ; arrow from last circle to S chop}
line dashed down_ del
delay
{line right_ del
circle "svg_it(b`'svg_sub(n))" ; arrow from last circle to S chop}
command "</g>" # end font
.PE
|
