Движение полукруга горизонтально по форме - отражение от краёв. Графика Delphi7

[detalik]

и по достижении границы делаем
dR:=-dR;

По этому поводу мне самое главное не понятно, как указать-то эту границу? И dR это переменная?

[detalik]

И кроме того, дуга не просто меняет направление, она должна отразиться, т.е повернуться выпуклой стороной в др.сторону...

[OlegVE]

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

Дело не в том, что не понравилось, задание так построено, т.е. дуга должна начинать движение сразу после запуска приложения...а не после нажатия кнопки, спасибо большое за совет!!!!

Главный вопрос в другом рисовать или не рисовать. При необходимости, по простому, очистить и перерисовать только Image1 или скопировать в переменные типа TBitmap все фазы (их думается немного) Ваших "преВРАЩЕНИЙ".

[Serge_Bliznykov]

detalik, ну что ж Вы так мучаетесь то? Задача то совсем несложная!!
Выложите исходники проекта!

[evg_m]

Если я уберу цикл, как в программе задать, чтобы дуга дошла до правого края и форма, а затем отразилась и до левого, как прописать эти условия?

точно также
.// while i<XM do begin

if i>=XM // lдошли до правого края
then // меняем направление
dr:= - dr; // dr:= -4;
if i<=0 //дошли до левого края
then // опять меняем направление
dr:= - dr; // dr:= +4;

R;=R +dR;

[detalik]

Вот исходник программы в последнем варианте с учетом всех ваших замечаний, насколько я их понял, буду очень благодарен за помощь, потму как я уже сам себя окончательно запутал. Напомню суть задачи "Полукруг с дугой справа, находящийся в центре формы, начинает движение вправо и, отразившись от правого края формы, движется в обратном направлении. За-тем таким же образом отражается от левого края формы и т.д."

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
XM,YM,XX,YY,X1,Y1,kx,c,i,b,a,R:integer;

  Form1: TForm1;

const
hx=2;hy=2;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
X1:=10; Y1:=10;
kx:=1; b:=40; a:=40; c:=900;
  end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
   XM:=Form1.Width;
   YM:=Form1.Height;
    i:=trunc(XM/2);
     while i<XM  do begin
     Form1.Canvas.Pen.Color:=Form1.Color;
     Form1.Canvas.Arc(trunc(XM/2),trunc(YM/2)-trunc(a/2),trunc(XM/2)+b,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)-trunc(a/2));
     Form1.Canvas.Pen.Color:=Form1.Color;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
     R:=R+4;
     Form1.Canvas.Pen.Color:=ClBlue;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
     i:=trunc(XM/2)+b+R;
      end;
      //if   c>0 then begin
      Form1.Canvas.Pen.Color:=Form1.Color;
      Form1.Canvas.Arc(trunc(XM)-trunc(b/2),trunc(YM/2)-trunc(a/2),trunc(XM)+trunc(b/2),trunc(YM/2)+trunc(a/2),trunc(XM),trunc(YM/2)-trunc(a/2),trunc(XM),trunc(YM/2)+trunc(a/2));
      Form1.Canvas.Pen.Color:=Form1.Color;
      Form1.Canvas.Arc(trunc(XM)-trunc(b/2)-R,trunc(YM/2)-trunc(a/2),trunc(XM)+trunc(b/2)-R,trunc(YM/2)+trunc(a/2),trunc(XM)-R,trunc(YM/2)-trunc(a/2),trunc(XM)-R,trunc(YM/2)+trunc(a/2));
      R:=R+4;
      Form1.Canvas.Pen.Color:=ClBlue;
      Form1.Canvas.Arc(trunc(XM)-trunc(b/2)-R,trunc(YM/2)-trunc(a/2),trunc(XM)+trunc(b/2)-R,trunc(YM/2)+trunc(a/2),trunc(XM)-R,trunc(YM/2)-trunc(a/2),trunc(XM)-R,trunc(YM/2)+trunc(a/2));
       c:=trunc(XM)-trunc(a/2)-R;
     //X:=XX+kx*hx; YY:=YY+ky*hy;
//end;

end;

end.

end.

Огромное спасибо.
Oleg_VE, ваш совет, кстати, оч. хорош, но я уже настолько долго с этим мучился, что хочется просто разобраться до конца. Спасибо.

[evg_m]

   XM:=Form1.Width;
   YM:=Form1.Height;
//    i:=trunc(XM/2);
//     while i<XM  do begin
// стираем старое
//     Form1.Canvas.Pen.Color:=Form1.Color;
//     Form1.Canvas.Arc(trunc(XM/2),trunc(YM/2)-trunc(a/2),trunc(XM/2)+b,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)-trunc(a/2));
     Form1.Canvas.Pen.Color:=Form1.Color;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
// меняем координаты
R:=R +dr;
// проверяем слева и справа 
if trunc(XM/2)+b+R>XM then begin // проверяем условие МЫ(дуга) справа 
  dr:= -dr; //dr:=-4; // и меняем направление
//  R:=R + dr; если хотим восстанавливаем старое положение
end;
if trunc(XM/2)+b+R<0 then begin // проверяем условие дуга слева 
  dr:= -dr; //dr:=4; // и меняем направление
//  R:=R + dr; если хотим восстанавливаем старое положение
end;
// а теперь условия выполнены новые координаты посчитаны и рисуем
     Form1.Canvas.Pen.Color:=ClBlue;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
//     i:=trunc(XM/2)+b+R;
//      end;

[detalik]

....не работает, дуга при первом запуске улетает за края формы и больше не возвращается.....Сделал все точно как у вас написано....

[detalik]

Помогите, пожалуйста,написать траекторию для движения этой дуги, уже третий день бьюсь....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   XM:=Form1.Width;
   YM:=Form1.Height;
    //i:=trunc(XM/2)+b;

     Form1.Canvas.Pen.Color:=Form1.Color;
     Form1.Canvas.Arc(trunc(XM/2),trunc(YM/2)-trunc(a/2),trunc(XM/2)+b,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2),trunc(YM/2)-trunc(a/2));
     Form1.Canvas.Pen.Color:=Form1.Color;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
     R:=R+dr;
     Form1.Canvas.Pen.Color:=ClBlue;
     Form1.Canvas.Arc(trunc(XM/2)+R,trunc(YM/2)-trunc(a/2),trunc(XM/2)+b+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)+trunc(a/2),trunc(XM/2)+trunc(b/2)+R,trunc(YM/2)-trunc(a/2));
     i:=i+R;

     if trunc(XM/2)+b+R>XM then begin
    

     dr:=-dr;

Сделал,как советовал Evg_m, дуга отражается от правого края формы, уходит за левый край и не возвращается....а нужно ,чтобы она отразилась от левого и т.д, и причем кода отражается соответственно от правого и от левого края формы, дуга обращалась выпуклой стороной в др сторону. Спасибо.

[evg_m]

это проверка СПРАВА

if trunc(XM/2)+b+R>XM then begin
dr:=-dr;

а где проверка СЛЕВА?
читайте предыдущие сообщения.

дуга обращалась выпуклой стороной в др сторону

Добавьте еще одну переменную (дуга вверх/вниз) меняйте ее(переменную) и рисуйте в соответствии с ней.