Паскаль / do11 / tmtp390d / SAMPLES / GRAPH / Splines

(***********************************************)
(* *)
(* Splines (Graph Unit Demo) *)
(* Copyright (c) 1998 by TMT Development Corp. *)
(* Author: Vadim Bodrov, TMT Development Corp. *)
(* *)
(* Targets: *)
(* MS-DOS 32-bit protected mode *)
(* Win32 application *)
(***********************************************)

uses CRT, Graph, Use32;

const MaxNodes = 6;

var i: Word;
Points: array[0..255] of PointType;
Page: Boolean;
DX,DY: array [0..MaxNodes] of Integer;

procedure SwapPage;
begin
if Page then begin
SetVisualPage(1,true);
SetActivePage(0);
end else begin
SetVisualPage(0,true);
SetActivePage(1);
end;
Page:=not Page;
ClearPage;
end;

begin
SetSVGAMode(640,480,8,LFBorBanked);
if GraphResult<>grOk then begin
Writeln('Mode not supported..');
Halt(0);
end;
SetLineStyle(SolidLn,0,ThickWidth);
SetViewport(0,0,639,479,true);
for i:=0 to MaxNodes do begin
Points[i].X:=random(GetMaxX);
Points[i].Y:=random(GetMaxY);
DX[i]:=Random(4)+1;
DY[i]:=Random(4)+1;
end;
SetFillColor(clLightBlue);
repeat
SwapPage;
for i:=0 to MaxNodes-1 do begin
Points[i].X:=Points[i].X+DX[i];
if (Points[i].X>=GetMaxX) or (Points[i].X<=0) then DX[i]:=-DX[i];
Points[i].Y:=Points[i].Y+DY[i];
if (Points[i].Y>=GetMaxY) or (Points[i].Y<=0) then DY[i]:=-DY[i];
SetColor(clLightCyan);
FillCircle(Points[i].X,Points[i].Y,5);
end;
SetColor(clWhite);
Spline(MaxNodes,Points);
until KeyPressed;
ReadKey;
CloseGraph;
end.