2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 дуга в делфи
Сообщение02.06.2009, 11:33 
Я пытаюсь нарисовать дугу и заставить ее двигаться. Но получается что часть дуги движется, а другая стоит на месте. Подскажите в чем проблема, вот код

var
Form1: TForm1;
x1:integer=-5;
x2:integer=160;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
with Form1.Canvas do begin
brush.color:=clgray;
rectangle(0,Form1.Height div 2,10000,10000);
brush.color:=claqua;
rectangle(0,0,10000,Form1.Height div 2);
brush.color:=clwhite;
x1:=x1+5;
x2:=x2+10;
Canvas.Arc(x1,30,50,60,50,30,20,x2);
end;
end;
end.

 
 
 
 Re: дуга в делфи
Сообщение05.06.2009, 23:14 
Метод Arc рисует дугу по 4 точкам:
(х1,30);(50,60);(50,30);(20,х2)
Меняются только координаты двух точек. Как же должна двигаться вся дуга, ведь движение - это изменение всех координат кривой

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group