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: 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