--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/thesis/fig/comm-lifecycle.pic	Sat Feb 07 22:39:07 2009 +0100
@@ -0,0 +1,71 @@
+.PS
+
+
+boxwid = 1.25
+boxht = 3
+colheaderh = 0.4
+rowheaderw = 1.0
+ad = 0.1 # arrow distance
+
+copy "marker.pic.inc"
+
+
+
+define segment {
+	[
+		down
+		A: box "" invis
+		line dotted from A.ne to A.se
+		marker_bot(last box, $1)
+	]
+}
+
+
+move up boxht/2-markerlen/2
+right
+
+segment("introduction")
+segment("growth")
+segment("mature")
+segment("saturation")
+segment("decline")
+
+
+arrow from 1st [].A.sw to last [].A.se
+"\fI" "time" above rjust "\fR" at last arrow.end + (-0.2,0.00)
+arrow from 1st [].A.sw to 1st [].A.nw
+"\fI" "market share," ljust  "importance," ljust  "etc." ljust "\fR" at last arrow.end + (0.05,-0.45)
+
+
+spline from 1st [].A.sw right boxwid*0.7 up 0.1 \
+	then right boxwid*0.8 up 1.0 \
+	then right boxwid up 1.2 \
+	then right boxwid up 0.5 \
+	then right boxwid down 0.3 \
+	then right boxwid/2 down 0.1
+
+
+move to (0,0)
+
+line left ad up ad*3 with .start at (0.38*boxwid, 0.1)
+box "video" "messages" invis wid 0.6 ht 0.4
+
+line left ad up ad*3 with .start at (0.77*boxwid, 0.3)
+box "voice" "mail" invis same
+
+line left ad up ad*3 with .start at (1.61*boxwid, 1.3)
+box "Voice" "over IP" invis same
+
+line right ad down ad*3 with .start at (2.31*boxwid, 2.0)
+box "instant" "messaging" invis same
+
+line right ad down ad*3 with .start at (3.23*boxwid, 2.6)
+box "email" invis wid 0.6 ht 0.2
+
+line right ad down ad*3 with .start at (4.31*boxwid, 2.5)
+box "telefax" invis same
+
+
+
+
+.PE