diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/circuit_macros/examples/svg/Banking.txt |
Initial commit
Diffstat (limited to 'graphics/circuit_macros/examples/svg/Banking.txt')
-rw-r--r-- | graphics/circuit_macros/examples/svg/Banking.txt | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/svg/Banking.txt b/graphics/circuit_macros/examples/svg/Banking.txt new file mode 100644 index 0000000000..122846d1c3 --- /dev/null +++ b/graphics/circuit_macros/examples/svg/Banking.txt @@ -0,0 +1,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 |