unit Unit1;

 

interface

 

uses

а Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

а Dialogs, StdCtrls, ExtCtrls;

 

type

а TForm1 = class(TForm)

ааа Image1: TImage;

ааа procedure FormCreate(Sender: TObject);

ааа procedure Image1Click(Sender: TObject);

а private

ааа { Private declarations }

а public

ааа { Public declarations }

а end;

 

var

а Form1: TForm1;

а r1,r2,h,x,y,m:real;

а t,r,g,b:integer;

а col:tcolor;

implementation

 

{$R *.dfm}

procedure init;

begin

а r1:=40;

а r2:=20;

а h:=10;

а m:=r1/r2;

end;

procedure draw;

begin

а form1.Image1.Canvas.Pen.Color:=tcolor(rgb(r,g,b));

а form1.image1.Canvas.LineTo(round(x),round(y));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ааrandomize;

ааinit;

end;

 

procedure TForm1.Image1Click(Sender: TObject);

 

begin

а t:=t+1;

а x:=(r2+m*r2)*cos(m*t)-h*cos(t+m*t)+500;

а y:= (r2+m*r2)*sin(m*t)-h*sin(t+m*t)+350;

а image1.Canvas.moveTo(round(x),round(y));

а form1.image1.Canvas.Rectangle(0,0,1024,768);

а for t:=2 to 3600 do

а begin

ааа x:=(r2+m*r2)*cos(m*t)-h*cos(t+m*t)+500;

ааа y:= (r2+m*r2)*sin(m*t)-h*sin(t+m*t)+350;

ааа r:=round(x);

ааа g:=round(x);

ааа b:=round(x);

ааа draw;

а end;

а image1.Picture.SaveToFile('avi\'+inttostr(random(1000000))+'.bmp');

end;

 

end.