home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / POLYAXIS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.4 KB  |  63 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program OnePolygon;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure PolygonDem;
  12. var
  13.   N : integer;
  14.   B, A : PlotArray;
  15.   Ch : char;
  16.   X1, X2 : integer;
  17.  
  18. procedure GenerateFunction(var A, B : PlotArray; N : integer);
  19. { Generate a sine polygon }
  20. var
  21.   I : integer;
  22.   Delta : Float;
  23. begin
  24.   Delta := 2 * Pi / (N - 1);
  25.   for I := 1 to N do
  26.   begin
  27.     A[I, 1] := (I - 1) * Delta - Pi;
  28.     A[I, 2] := Sin(A[I, 1]);
  29.   end;
  30. end; { GenerateFunction }
  31.  
  32. begin
  33.   ClearScreen;
  34.  
  35.   N := 30;
  36.   GenerateFunction(A, B, N);               { Generate the polygon }
  37.  
  38.   DefineWindow(1, 0, 0, XMaxGlb, YMaxGlb);
  39.   DefineHeader(1, 'SINE CURVE AS A POLYGON');    { Set up the screen }
  40.   DefineWorld(1, -Pi, -1, Pi, 1);
  41.   SelectWorld(1);
  42.   SelectWindow(1);
  43.   SetBackground(0);
  44.   SetHeaderOn;
  45.   DrawBorder;
  46.  
  47.   DrawAxis(8, -8, 0, 0, 0, 0, 0, 0, false);{ Draw the axes }
  48.  
  49.   DrawPolygon(A, 1, N, 0, 0, 0);           { Draw the polygon }
  50. end; { PolygonDem }
  51.  
  52.  
  53.  
  54. begin
  55.   InitGraphic;                             { Initialize the graphics system }
  56.  
  57.   PolygonDem;                              { Do the demo }
  58.  
  59.   repeat until KeyPressed;                 { Wait until a key is pressed }
  60.  
  61.   LeaveGraphic;                            { Leave the graphics system }
  62. end. { OnePolygon }
  63.