X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Ftalk-event-driven-programming-in-perl;a=blobdiff_plain;f=img%2Freactor.dot;fp=img%2Freactor.dot;h=284b60697a0c2364c6085b37b33b8b54b8d463e7;hp=0000000000000000000000000000000000000000;hb=55d3713208b2267dfbb669f76a9a21f4ff6092d5;hpb=1e5589cbb1518565f28a66bafd4882eec1d9acd5

diff --git a/img/reactor.dot b/img/reactor.dot
new file mode 100644
index 0000000..284b606
--- /dev/null
+++ b/img/reactor.dot
@@ -0,0 +1,37 @@
+
+digraph G {
+    rankdir = LR
+       
+    node
+    [
+        fontname    = "Inconsolata"
+        fontsize    = 20
+        shape       = record
+        style       = rounded
+        margin      = "0.2,0.2"
+    ]
+
+    edge
+    [
+        fontname    = "Inconsolata"
+        fontsize    = 18
+        arrowhead   = vee
+        arrowtail   = vee
+        arrowsize   = 2
+    ]
+
+    "Event source 1" -> "Wait for\nan event\nto happen"
+    "Event source 2" -> "Wait for\nan event\nto happen"
+    "Event source N" -> "Wait for\nan event\nto happen"
+
+    "Wait for\nan event\nto happen" -> "Demultiplex and\ndispatch events" [tailport="n", headport="n"]
+    "Demultiplex and\ndispatch events" -> "Wait for\nan event\nto happen" [tailport="s", headport="s"]
+
+    "Demultiplex and\ndispatch events" -> "Event handler 1"
+    "Demultiplex and\ndispatch events" -> "Event handler 2"
+    "Demultiplex and\ndispatch events" -> "Event handler M"
+
+
+    "Demultiplex and\ndispatch events" [style="rounded,filled",fillcolor="#FFFF88"]
+}
+