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