summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/piechart.ps
blob: 1d9d6137eabb18d81dc5e322a9d52f34c4362b8a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
% This file is inserted into the PSPRINT User Guide using \special.
% It draws a simple pie chart (based on p.187 of the PostScript Cookbook).

/DrawSlice
{ % this routine expects 3 parameters on stack:
    /endangle exch def
    /startangle exch def
    /thelabel exch def
    newpath 0 0 moveto
       0 0 radius startangle endangle arc
    closepath
    1.415 setmiterlimit      % bevel the lines joining in the centre
    0.01 Inch setlinewidth
    stroke
    gsave
       % calculate starting position for label
       startangle endangle add 2 div rotate
       radius labelps add 0 translate
       0 0 transform
    grestore
    itransform
    /y exch def /x exch def
    x y moveto
    x 0 lt { thelabel stringwidth pop neg 0 rmoveto } if   % move label left
    y 0 lt { 0 labelps neg rmoveto } if                    % move label down
    thelabel show
} def

/DrawPieChart
{ % this routine expects 5 parameters on stack:
    /radius exch def
    /ycenter exch def
    /xcenter exch def
    /PieArray exch def
    /labelps exch def
    xcenter ycenter translate
    /Helvetica findfont labelps scalefont setfont
    /curangle 0 def
    PieArray
     { /slicearray exch def
       slicearray aload pop
       /percent exch def
       /label exch def
       /perangle percent 100 div 360 mul def
       label curangle curangle perangle add DrawSlice
       /curangle curangle perangle add def
     } forall    % repeat above procedure for each element in PieArray
} def

/Inch { 72 mul } def       % converts inches to points

% ----- MAIN PROGRAM -----

8                          % label point size
[                          % PieArray is an array of arrays
  [ (Blueberry) 12 ]
  [ (Apple)     30 ]
  [ (Cherry)    12 ]       % include any number of label, percentage pairs
  [ (Raspberry) 16 ]       % but make sure the numbers add up to 100
  [ (Apricot)   24 ]
  [ (Other)      6 ]
]
3.15 Inch 1.0 Inch         % x,y center of pie chart
                           % (3.15in * 2 = 6.3in = text width in User Guide)
.7 Inch                    % radius
DrawPieChart               % draw pie chart using above arguments

showpage