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 "X" with .c at (0,0)

14

15

16 define segment {

17 [

18 down

19 A: box "" invis

20 line dotted from A.ne to A.se

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

22 marker_bot(last box, $1)

23 ]

24 }

25

26

27 move up boxht/2-markerlen/2

28 right

29

30 segment("introduction")

31 segment("growth")

32 segment("mature")

33 segment("saturation")

34 segment("decline")

35

36

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

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

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

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

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

42

43

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

45 then right boxwid*0.8 up 1.0 \

46 then right boxwid up 1.2 \

47 then right boxwid up 0.5 \

48 then right boxwid down 0.3 \

49 then right boxwid/2 down 0.1

50

51

52 move to (0,0)

53

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

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

56

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

58 box "voice" "mail" invis same

59

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

61 box "Voice" "over IP" invis same

62

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

64 box "instant" "messaging" invis same

65

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

67 box "email" invis wid 0.6 ht 0.2

68

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

70 box "telefax" invis same

71

72

73

74

75 .PE