+
−.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