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
|
.PS
#Banking.m4
gen_init
scale = 2.54 # use cm
svg_font(Arial Black,11 bp__,2 bp__)
boxwid = 6.8
boxht = 4.5
linethick_(1.5)
define(`heading',
`<tspan font-style=\"bold\" font-size=\"120%\" fill=\"white\">`$1'</tspan>')
define(`subheading',
`<tspan fill=\"white\" font-size=\"75%\" font-style=\"bold\">[`$1']</tspan>')
define(`wtext',`<tspan fill=\"white\">`$1'</tspan>')
C: circle diam 2.6 colored "mediumblue"
Person: box rad boxht/4 colored "mediumblue" with .n at C.s+(0,C.rad/8) \
"heading(Personal Banking)" \
"" \
"heading(Customer)" \
"subheading(Person)" \
"" \
"wtext(A customer of the bank`,' with)" \
"wtext(personal bank accounts.)"
A1: arrow thick 1.5 dashed down 3.5 from Person.s
svg_font(Arial,11 bp__,2 bp__)
{ box invis fill 1 ht 0.4 wid 1.0 "Uses" at A1 }
command "</g>"
Internet: box colored "steelblue" \
"heading(Internet Banking System)" \
"subheading(Software system)" \
"" \
"wtext(Allows customers to view)" \
"wtext(information about their bank)" \
"wtext(accounts`,' and make payments.)"
svg_font(Arial,11 bp__,2 bp__)
A2: arrow thick 1.5 dashed right 5.4 from Internet.e \
"Sends e-mail" above "using" below
command "</g>"
Email: box colored "slategrey" \
"heading(E-mail System)" \
"subheading(Software system)" \
"" \
"wtext(Internal Microsoft Exchange)" \
"wtext(e-mail system.)"
A3:arrow thick 1.5 dashed from Email.nw+(0.4,0) to Person.se+(0.3,Person.ht/5)
svg_font(Arial,11 bp__,2 bp__)
{ box invis fill 1 ht 0.4 wid 3.3 "Sends e-mails to" at A3 }
command "</g>"
# etc
command "</g>" # font
.PE
|
