summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/Banking.txt
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.txt54
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