home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / ONEHIST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.4 KB  |  55 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program OneHist;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure HistoDem;
  12. var
  13.   I, DisplyLen, HatchDen : integer;
  14.   A : PlotArray;
  15.   R : Float;
  16.   Ch : char;
  17.   Hatch : boolean;
  18.  
  19. begin
  20.   DisplyLen := 10;                  { Draw ten bars }
  21.  
  22.   for I := 0 to DisplyLen do        { Init the display array with random #'s }
  23.   begin;
  24.     A[I+1, 2] := Random;
  25.   end;
  26.  
  27.   SetColorWhite;                    { Set up the window for the bar chart }
  28.   SetBackground(0);
  29.   SetHeaderOn;
  30.   DefineWindow(1, 0, 0, XMaxGlb, YMaxGlb);
  31.   DefineHeader(1, 'A RANDOM BAR CHART WITH HATCHING');
  32.   DefineWorld(1, -10, 0, 10, 1.0);
  33.   SelectWorld(1);
  34.   SelectWindow(1);
  35.  
  36.   DrawBorder;                       { Draw the window }
  37.  
  38.   Hatch := true;                    { Enable hatching }
  39.   HatchDen := 7;                    { Draw hatch lines this far apart }
  40.  
  41.   DrawHistogram(A, -DisplyLen, Hatch, HatchDen);   { Draw the bar chart }
  42. end; { HistoDem }
  43.  
  44.  
  45. begin { OneHist }
  46.   InitGraphic;                      { Initialize the graphics system }
  47.  
  48.   HistoDem;                         { Do the demo }
  49.  
  50.   repeat until KeyPressed;          { Wait until a key is pressed }
  51.  
  52.   LeaveGraphic;                     { Leave the graphics system }
  53. end. { OneHist }
  54.  
  55.