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