summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/Banking.txt
blob: 122846d1c33ee4231ae5582df0977e5bd030d9d4 (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
.PS
#Banking.m4

  command "<g style=\"font-family:Arial\">"
  textht = 12*(scale/72)*dptextratio  # 12 pt size

  scale = 2.54                # use cm
  boxwid = 6.8
  boxht = 4.5
  arrowwid = 0.25
  arrowht = 0.5

define heading {"<tspan font-style=\"bold\" font-size=\"120%\" fill=\"white\"
>$1</tspan>"}
define subheading {"<tspan font-style=\"bold\" font-size=\"75%\" fill=\"white\"
>$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.)"

#  arrow thick 1.5 dashed down 3.5 from Person.s
#  { box invis fill 1 ht 0.4 wid 1.0 "Uses" at last arrow }
#  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.)"
#
#  arrow thick 1.5 dashed right 5.4 from Internet.e \
#   "Sends e-mail" above "using" below
#  Email: box colored "slategrey" \
#   "heading(E-mail System)" \
#   "subheading(Software system)" \
#   "" \
#   "wtext(The internal Microsoft Exchange)" \
#   "wtext(e-mail system..)"
#
#  arrow thick 1.5 dashed from Email.nw+(0.4,0) to Person.se+(0.3,Person.ht/5)
#  { box invis fill 1 ht 0.4 wid 3.3 "Sends e-mails to" at last arrow }

# etc  

  command "</g>" # font
.PE