|
205
|
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
|
|
310
|
37 "\fI" "market share," ljust "importance," ljust "etc." ljust "\fR" at last arrow.end + (0.05,-0.45)
|
|
205
|
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
|
