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