1 .PS

2

3 #scale = 1.4

4

5 boxwid = 1.25

6 boxht = 3

7 colheaderh = 0.4

8 rowheaderw = 1.0

9 ad = 0.1 # arrow distance

10

11 copy "marker.pic.inc"

12

13

14

15 define segment {

16 [

17 down

18 A: box "" invis

19 line dotted from A.ne to A.se

20 #B: box invis "\fI" $1 "\fR" ht 0.5

21 marker_bot(last box, $1)

22 ]

23 }

24

25

26 move up boxht/2-markerlen/2

27 right

28

29 segment("introduction")

30 segment("growth")

31 segment("mature")

32 segment("saturation")

33 segment("decline")

34

35

36 arrow from 1st [].A.sw to last [].A.se

37 "\fI" "time" above rjust "\fR" at last arrow.end + (-0.2,0.00)

38 arrow from 1st [].A.sw to 1st [].A.nw

39 "\fI" "sales," ljust "market share," ljust "importance," ljust "etc." ljust "\fR" at last arrow.end + (0.05,-0.45)

40 #line dotted from 1st [].B.nw to 1st [].B.sw

41

42

43 spline from 1st [].A.sw right boxwid*0.7 up 0.1 \

44 then right boxwid*0.8 up 1.0 \

45 then right boxwid up 1.2 \

46 then right boxwid up 0.5 \

47 then right boxwid down 0.3 \

48 then right boxwid/2 down 0.1

49

50

51 move to (0,0)

52

53 line left ad up ad*3 with .start at (0.38*boxwid, 0.1)

54 box "video" "messages" invis wid 0.6 ht 0.4

55

56 line left ad up ad*3 with .start at (0.77*boxwid, 0.3)

57 box "voice" "mail" invis same

58

59 line left ad up ad*3 with .start at (1.61*boxwid, 1.3)

60 box "Voice" "over IP" invis same

61

62 line right ad down ad*3 with .start at (2.31*boxwid, 2.0)

63 box "instant" "messaging" invis same

64

65 line right ad down ad*3 with .start at (3.23*boxwid, 2.6)

66 box "email" invis wid 0.6 ht 0.2

67

68 line right ad down ad*3 with .start at (4.31*boxwid, 2.5)

69 box "telefax" invis same

70

71

72

73

74 .PE