1 .PS

2

3

4 boxwid = 1.25

5 boxht = 3

6 colheaderh = 0.4

7 rowheaderw = 1.0

8 ad = 0.1 # arrow distance

9

10 copy "marker.pic.inc"

11

12

13

14 define segment {

15 [

16 down

17 A: box "" invis

18 line dotted from A.ne to A.se

19 marker_bot(last box, $1)

20 ]

21 }

22

23

24 move up boxht/2-markerlen/2

25 right

26

27 segment("introduction")

28 segment("growth")

29 segment("mature")

30 segment("saturation")

31 segment("decline")

32

33

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

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

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

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

38

39

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

41 then right boxwid*0.8 up 1.0 \

42 then right boxwid up 1.2 \

43 then right boxwid up 0.5 \

44 then right boxwid down 0.3 \

45 then right boxwid/2 down 0.1

46

47

48 move to (0,0)

49

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

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

52

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

54 box "voice" "mail" invis same

55

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

57 box "Voice" "over IP" invis same

58

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

60 box "instant" "messaging" invis same

61

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

63 box "email" invis wid 0.6 ht 0.2

64

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

66 box "telefax" invis same

67

68

69

70

71 .PE