home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / ONEPIE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  2.1 KB  |  76 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program OnePieDemo;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure OnePieDem;
  12.  
  13. var
  14.   Sum, X1, Y1, Radius, Theta, InRadius, OutRadius : Float;
  15.   N, Mode, Size : integer;
  16.   A : PieArray;
  17.   Back : byte;
  18.   Ch : char;
  19.  
  20. begin { OnePieDem }
  21.   ClearScreen;
  22.   SetColorWhite;
  23.   DefineWindow(1, 0, 0, XMaxGlb, YMaxGlb);
  24.   DefineHeader(1, 'A SINGLE PIE CHART'); { Set up a window }
  25.   DefineWorld(1, 0, 0, 1000, 1000);
  26.   SelectWorld(1);
  27.   SelectWindow(1);
  28.   SetHeaderOn;
  29.   SetBackground(0);
  30.   DrawBorder;
  31.  
  32.   N := 5;                                { The number of pie segments }
  33.   A[1].Area := 25;                       { Initialize the pie array }
  34.   A[2].Area := 17.5;
  35.   A[3].Area := 9.6;
  36.   A[4].Area := 21;
  37.   A[5].Area := 35;
  38.   A[1].Text := 'JAN.=';
  39.   A[2].Text := 'FEB.=';
  40.   A[3].Text := 'MAR.=';
  41.   A[4].Text := 'APR.=';
  42.   A[5].Text := 'MAY=';
  43.  
  44.   A[1].Area := -A[1].Area;               { Move the first segment outward }
  45.  
  46.   X1 := 500;                             { Set the center to mid screen }
  47.   Y1 := 500;
  48.  
  49.   Radius := 200;                         { Set the start of the circle }
  50.   Theta := 60;
  51.  
  52.   SetAspect(1.0);                        { Set the aspect ratio }
  53.  
  54.   InRadius := 0.7;                       { Set the ends of the lable line }
  55.   OutRadius := 1.25;
  56.  
  57.   Mode := 2;                             { Set to draw both lables }
  58.   Size := 2;                             { Set to text size two }
  59.  
  60.                                          { Draw the pie }
  61.   DrawPolarPie(X1, Y1, Radius, Theta, InRadius,
  62.                OutRadius, A, N, Mode, Size);
  63. end; { OnePieDem }
  64.  
  65. begin { OnePieDemo }
  66.   InitGraphic;                           { Initialize the graphics system }
  67.  
  68.   OnePieDem;                             { Do the demo }
  69.  
  70.   repeat until KeyPressed;               { Wait until a key is pressed }
  71.  
  72.   LeaveGraphic;                          { Leave the graphics system }
  73. end. { OnePieDemo }
  74.  
  75.  
  76.