Задача на Delphi

[Stalkon]

Прошу помощи в реализации задачи на делфи.
Задача:Разработать программную модель взаимного качения квадрата и эллипса.
Эллипс расположен внутри квадрата, и вращается в одну сторону с ним.

[Vedrus]

Не очень понятно, что нужно. Картинку можешь нарисовать?

[Stalkon]

Картинка есть, но я так и не нашел FAQ по прикреплению ее.

[slips]

Как загрузить картинку во вложении

[Nemon]

Сообщение от Stalkon

Картинка есть, но я так и не нашел FAQ по прикреплению ее.

Улыбнула откровенность
Внимательнее надо быть.
Чуть ниже поля для ввода "Быстрого ответа" есть кнопка "Расширенный режим" жмешь ее и мотаешь вниз там увидишь пыптик "управление вложениями"... он тебе и нужен

[Stalkon]

Вот рисунок того что имеется ввиду в задаче

[Vedrus]

Т.е., квадрат и эллипс взаимно не связаны. Плюс квадрат качается сам, а эллипс качается под действием качений квадрата. Я правильно понял?

[Stalkon]

Он не качается, а катится по какой-либо поверхности. Но по их взаимодействию вы правы.

[Vedrus]

Какой-либо это не ответ. Нарисуйте.

[Stilet]

м.м.м Значит я примерно так это продставляю:
Находим центр квадрата, допустим он стоит на одной из сторон. Чтоб его перекатить нужно его центр провести по пути, который представляет собой дугу, начало которой в координатах текущего центра с радиусом описанной около квадрата окружности. При проходе центра квадрата по дуге меняй его угол )

Вот ради интереса (собственного) решил эту задачу так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure scr(cx,cy:integer;ang:Double);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.scr;
const cn=100;
var i,k:integer;ax,ay:real;
begin
       ang:=ang;
       with Canvas do begin
        MoveTo(cx,cy);
          for k:=1 to 4 do begin
          ax:=cos(ang*pi/180);
          ay:=sin(ang*pi/180);
            cx:=cx+round(ax*cn);
            cy:=cy+round(ay*cn);
//             Rectangle(cx-10,cy-10,cx+10,cy+10);
            LineTo(cx,cy);
            ang:=ang+90;
         END;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k,i:integer;
begin
for k:=1 to 5 do
for i:=0 to 90 do begin
 scr(100*k,100,i+180);
 sleep(10);
 Canvas.FillRect(ClientRect);
end;
end;

end.

P.S. В 3DStudio это бы решилось парочкой строк в одном цикле...