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