VPF::Витирание графика - Форум программистов

Sunvas

Дата 8.4.2006, 07:55 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Вот есть процедура, которая рисует на канве вращающийся график косинусоиды:

Код


var
  a,ao:word; //а - угол поворота, ао - старый угол поворота
implementation

{.............}
function rotate(t,p:tpoint;angle:integer):tpoint; //Процедура вращающая точку вокруг другой точки на определенное число градусов
begin
  result.x:=trunc((t.x-p.X)*cos(angle*pi/180) - (t.y-p.Y)*sin(-angle*pi/180)+p.X);
  result.y:=trunc((t.y-p.Y)*cos(angle*pi/180) + (t.x-p.X)*sin(-angle*pi/180)+p.y);
end;

procedure TForm1.Timer1Timer(Sender: TObject); //Происходит по таймеру с интервалом 50
var x,y:word;
p:tpoint;
begin
if a>=360 then a:=0; //Чтобы градус был не более 360
inc(a); 

//Стираем прошлое
imm.Canvas.Pen.Mode:=pmnotxor;
if ao<>740 then
for x:=0 to 180 do begin
y:=round(cos(x*pi/30)*40)+100;
p:=rotate(point(x,y),point(120,120),ao);
imm.Canvas.Pixels[p.X,p.Y]:=clblack;
end;

//Рисуем новое
imm.Canvas.Pen.Mode:=pmcopy;
for x:=0 to 180 do begin
y:=round(cos(x*pi/30)*40)+100;
p:=rotate(point(x,y),point(120,120),a);
imm.Canvas.Pixels[p.X,p.Y]:=clblack;
end;

ao:=a;
end;
//imm - это timage.

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

--------------------

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

Poseidon

Дата 8.4.2006, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Установи

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:= True;
end;

иначе будет мерцание.

и стирай не так как ты:

Код


//Стираем прошлое
imm.Canvas.Pen.Mode:=pmnotxor;
if ao<>740 then
for x:=0 to 180 do begin
y:=round(cos(x*pi/30)*40)+100;
p:=rotate(point(x,y),point(120,120),ao);
imm.Canvas.Pixels[p.X,p.Y]:=clblack;
end;

а вот так:

Код


imm.Picture:= nil;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunvas

Дата 9.4.2006, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Poseidon, спасибо!

--------------------

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »