home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / PIEHISTO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  3.3 KB  |  110 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program PieHisto;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure PieHistoDem;
  12. var
  13.   Sum, X1, Y1, X2, Y2, InRadius, OutRadius : Float;
  14.   I, N : integer;
  15.   A : PieArray;
  16.   B : PlotArray;
  17.   Ch : char;
  18.   NumText : WrkString;
  19.  
  20. begin
  21.   N := 5;                                { The number of data points }
  22.   A[1].Area := 25;                       { Initialize the pie array }
  23.   A[2].Area := 17.5;
  24.   A[3].Area := 9.6;
  25.   A[4].Area := 21;
  26.   A[5].Area := 35;
  27.   A[1].Text := 'JAN. ';
  28.   A[2].Text := 'FEB. ';
  29.   A[3].Text := 'MAR. ';
  30.   A[4].Text := 'APR. ';
  31.   A[5].Text := 'MAY  ';
  32.  
  33.   for I := 1 to N do                      { Init the histogram array }
  34.     B[I, 2] := A[I].Area;
  35.  
  36.   ClearScreen;
  37.   SetColorWhite;
  38.  
  39.   DefineWindow(1, 0, 0, XMaxGlb, YMaxGlb);
  40.   DefineHeader(1, 'BOTH A PIE AND A BAR CHART');  { Set up a window }
  41.   SelectWindow(1);
  42.   SetHeaderOn;
  43.   SetBackground(0);
  44.   DrawBorder;
  45.  
  46.   for I := 1 to N do                      { Type the info in the up-rt corner }
  47.   begin
  48.     GotoXY(60, 4 + I);                    { Goto correct line }
  49.     Write(A[I].Text, '=');                { Type the lable info }
  50.     Str(A[I].Area:6:2, NumText);          { Format the numeric info }
  51.     Write(NumText);                       { Type the numeric info }
  52.   end;
  53.  
  54.   DefineWindow(2, Trunc(XMaxGlb / 10), Trunc(YMaxGlb / 10),
  55.                   Trunc(XMaxGlb * 6 / 10), Trunc(YMaxGlb * 7 / 10));
  56.   DefineHeader(2, 'A PIE CHART');         { Set up a window }
  57.   DefineWorld(2, 0, 0, 1000, 1000);
  58.   SelectWorld(2);
  59.   SelectWindow(2);
  60.   SetHeaderOn;
  61.   SetBackground(0);
  62.   DrawBorder;
  63.  
  64.   A[1].Area := -A[1].Area;               { Move the first segment outward }
  65.   SetAspect(1.0);                        { Set the aspect ratio }
  66.  
  67.   X1 := 500;                             { Set the center to mid screen }
  68.   Y1 := 500;
  69.  
  70.   X2 := 600;                             { Set the start of the circle }
  71.   Y2 := 350;
  72.  
  73.   InRadius := 0.7;                       { Set the ends of the lable line }
  74.   OutRadius := 1.25;
  75.  
  76.   DrawCartPie(X1, Y1, X2, Y2, InRadius, OutRadius, A, N, 2, 1); { Draw the pie }
  77.  
  78.   A[1].Area := -A[1].Area;               { Reset the sign }
  79.  
  80.   DefineWindow(3, Trunc(XMaxGlb / 2), Trunc(YMaxGlb / 2),
  81.                   Trunc(XMaxGlb * 9 / 10), Trunc(YMaxGlb * 9 / 10));
  82.   DefineHeader(3, 'A BAR CHART');        { Set up a window }
  83.   DefineWorld(3, 0, 0, 10, 60);
  84.   SelectWorld(3);
  85.   SelectWindow(3);
  86.   SetHeaderOn;
  87.   SetBackground(0);
  88.   DrawBorder;
  89.  
  90.   DrawHistogram(B, N, true, 5);
  91.  
  92.   for I := 1 to N do                     { Draw the bar chart lables }
  93.   begin
  94.     DrawTextW((10 / N) * (I - 1), 10, 1, '   ' + A[I].Text); { Draw the text }
  95.     Str(A[I].Area:6:2, NumText);                             { Format the number }
  96.     DrawTextW((10 / N) * (I - 1), 16, 1, ' ' + NumText);     { Draw the number }
  97.   end;
  98. end; { PieHistoDem }
  99.  
  100. begin { PieHisto }
  101.   InitGraphic;                           { Initialize the graphics system }
  102.  
  103.   PieHistoDem;                           { Do the demo }
  104.  
  105.   repeat until KeyPressed;               { Wait until a key is pressed }
  106.  
  107.   LeaveGraphic;                          { Leave the graphics system }
  108. end. { PieHisto }
  109.  
  110.