home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / FINDWRLD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.9 KB  |  69 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program FindWorldDemo;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure FindWorldDem;
  12. var
  13.   X : Float;
  14.   Dx, Dy, I, N, Lines, Scale : integer;
  15.   X1, Y1, X2, Y2 : integer;
  16.   B, A : PlotArray;
  17.  
  18. begin
  19.   DefineWindow(1, 0, 0, XMaxGlb, YMaxGlb); { Define windows as whole screen }
  20.   DefineWindow(2, 0, 0, XMaxGlb, YMaxGlb);
  21.   DefineWorld(1, 0, 0, 1000, 1000);        { Give a world to the screen }
  22.  
  23.   DefineHeader(2, 'A FOUND WORLD');        { Window where curve will go }
  24.   SelectWindow(2);
  25.   SetHeaderOn;
  26.  
  27.   N := 10;                                 { Fill polygon array }
  28.   for I := 1 to N do
  29.   begin
  30.     A[I, 1] := I - 1;
  31.     A[I, 2] := random - 0.5;
  32.   end;
  33.  
  34.   FindWorld(2, A, N, 1, 1.08);             { Make world 2 the right size }
  35.  
  36.   SelectWindow(2);                         { Select it and draw border }
  37.   DrawBorder;
  38.  
  39.   Dx := -8;                                { Draw axis inset from window edge }
  40.   Dy := 7;
  41.   X1 := 3;
  42.   Y1 := 5;
  43.   X2 := 25;
  44.   Y2 := 10;
  45.   Lines := 0;
  46.   Scale := 0;
  47.  
  48.   SetLineStyle(0);                         { Draw curve as solid line }
  49.   DrawAxis(Dx, Dy, X1, Y1, X2, Y2, Lines, Scale, false);
  50.   DrawPolygon(A, 1, N, 7, 2, 0);
  51.  
  52.   SelectWorld(1);                          { Select outside window }
  53.   SelectWindow(1);
  54.  
  55.   DrawTextW(730, 450, 1, ^['7@2   The data');  { Print legend }
  56.   DrawTextW(730, 550, 1, '--  The curve');
  57. end; { FindWorldDem }
  58.  
  59. begin
  60.   InitGraphic;                             { Initialize the graphics system }
  61.  
  62.   FindWorldDem;                            { Do the demo }
  63.  
  64.   repeat until KeyPressed;                 { Wait until a key is pressed }
  65.  
  66.   LeaveGraphic;                            { Leave the graphics system }
  67. end. { FindWorldDemo }
  68.  
  69.