Шестерёнки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type point=record
     x,y:integer;
     end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b: array [1..10000] of point;
u,m,p:real;
i,r,n,r1,x0,y0,r2,r3:integer;
begin
r:=StrToInt(Edit1.Text);
r1:=StrToInt(Edit2.Text);
m:=r1/r;
y0:=image1.Height div 2;
x0:=image1.Width div 2;
u:=0;
i:=0;
while u<=2*6*pi do //?? ??????? ?? ?????? ???????
 begin
  i:=i+1;
  //??????????????? ????????? ???????????? ??? r/r1=3
  b[i].x:=x0+round((r-m*r)*cos(m*u)-m*r*cos(u-m*u));
  b[i].y:=y0+round((r-m*r)*sin(m*u)+m*r*sin(u-m*u));
  a[i].x:=x0+round((r+m*r)*cos(m*u)+m*r*cos(u+m*u));
  a[i].y:=y0+round((r+m*r)*sin(m*u)+m*r*sin(u+m*u));
  u:=u+0.01
 end;
 u:=1;
while u<=2*40*pi do
 begin
 if r>210 then break;
 p:=p+0.01;
  image1.Canvas.Pen.Color:=clWhite;
  image1.Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
  image1.Canvas.Pen.Color:=clBlack; //??????? ??????????
  image1.Canvas.Pen.Color:=clBlack;
  image1.Canvas.MoveTo(round((b[1].x-x0)*cos(p)+(b[1].y-y0)*sin(p)+x0+r),round(-(b[1].x-x0)*sin(p)+(b[1].y-y0)*cos(p)+y0));//?????? ??????
  image1.Canvas.Pen.Color:=clred;
  for n:=2 to i do
   begin
   image1.Canvas.LineTo(round((b[n-1].x-x0)*cos(p)+(b[n-1].y-y0)*sin(p)+x0+r),round(-(b[n-1].x-x0)*sin(p)+(b[n-1].y-y0)*cos(p)+y0));
   end;
      image1.Canvas.MoveTo(round((a[1].x-x0)*(-cos(p))+(a[1].y-y0)*(-sin(p))+x0-r),round(-(a[1].x-x0)*sin(p)+(a[1].y-y0)*cos(p)+y0));
     for n:=2 to i do
    image1.Canvas.LineTo(round((a[n-1].x-x0)*(-cos(p))+(a[n-1].y-y0)*(-sin(p))+x0-r),round(-(a[n-1].x-x0)*sin(p)+(a[n-1].y-y0)*cos(p)+y0));
  sleep(1);//çàäåðæêà, ìîæíî óìåíüøèòü
  Application.ProcessMessages;
  u:=u+0.01;//?????????? ????
 
end;
end;
 
end.