Ускорить процесс.

[Victor1963]

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

[p51x]

поворот эллепса по пиксельно

Это что за изврат? Стерли старый и нарисовали новый.

[ZvEr_HaCkEr]

А где код?
ЗЫ для этих целей лучше использовать ScanLine

[Victor1963]

Смысол всей песни в том, мышью рисуется произвольно эллипс, орентируеться по оси X вершиной, проходит 3 раза через ось, для точного определения. В фигурных скобках другие параметры.

procedure TForm1.Button1Click(Sender: TObject);
Label k1,k2,k3,k4,k5,k6;
 var
 y,ang:real;
 x,c,r,m,l,count,count1:integer;
begin
{ Canvas.Pixels[594,297]:=clBlack;
 Canvas.Pixels[596,298]:=clBlack;
 Canvas.Pixels[598,299]:=clBlack;
 Canvas.Pixels[600,300]:=clBlack;
 Canvas.Pixels[598,301]:=clBlack;
 Canvas.Pixels[596,302]:=clBlack;
 Canvas.Pixels[594,303]:=clBlack; }
  l:=0;
  k1:count:=0;
  k2:x:=500;//Вращение по часовой.
  m:=0;
  y:=300;
  ang:=6.2799;
{for r:=94 to 100 do}for r:=1 to 400 do //Перенос первой точки по часовой.
 begin
 c:=Canvas.Pixels[round(x+r*cos(6.28)),round(y+r*sin(6.28))];
 if c=clBlack then
  begin
  m:=r;
 Canvas.Pixels[round(x+r*cos(6.28)),round(y+r*sin(6.28))]:=clWhite;
 end;
  end;
{While ang>(6.279) do }While ang>(0) do //Вращение по часовой.
 begin
{for r:=94 to 100 do }for r:=1 to 400 do
 begin
 c:=Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))];
 if c=clBlack then
  begin
   Canvas.Pixels[round(x+r*cos(ang+0.01)),round(y+r*sin(ang+0.01))]:=clBlack;
   Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))]:=clWhite;
   end;
    end;
     ang:=ang-0.0001;
     end;
     Canvas.Pixels[round(x+m*cos(6.28+0.01)),round(y+m*sin(6.28+0.01))]:=clBlack;//Установ первой точки по часовой.
 begin
for x:=603 downto 594 do//for x:=1134 downto 500 do//Определение вершини эллипса на оси X, по часовой.
 begin
 c:=Canvas.Pixels[x,300];
if (c=clBlack) and (x>=l) then //Определение количество разрывов, дефектов в эллипсе, по часовой.
 begin
 l:=x;
 goto k1;
 end;
  end;
 count:=count+1;
if count<2 then
 begin
 goto k2;
 end
else
 begin
 goto k3;
  end;
   end;
k3:count1:=0;
k4:{ang:=0;}ang:=0.011;//Вращение против чассовой.
 m:=0;
 x:=500;
 y:=300;
{for r:=94 to 100 do }for r:=1 to 400 do
 begin
 c:=Canvas.Pixels[round(x+r*cos(0.01)),round(y+r*sin(0.01))];//Перенос первой точки против часовой.
 if c=clBlack then
 begin
 m:=r;
 Canvas.Pixels[round(x+r*cos(0.01)),round(y+r*sin(0.01))]:=clWhite;
 end;
  end;
{While ang<(0.0009) do}While ang<(6.28) do//Вращение против час.
 begin
{for r:=94 to 100 do}for r:=1 to 400 do
 begin
 c:=Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))];
 if c=clBlack then
 begin
  Canvas.Pixels[round(x+r*cos(ang-0.01)),round(y+r*sin(ang-0.01))]:=clBlack;
  Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))]:=clWhite;
  end;
   end;
    ang:=ang+0.0001;
    end;
    Canvas.Pixels[round(x+m*cos(0)),round(y+m*sin(0))]:=clBlack;//Установ первой точки против часовой.
  begin
{for x:=603 downto 594 do}for x:=1134 downto 500 do//Олределение вершини эллипса на оси X, против часовой.
 begin
 c:=Canvas.Pixels[x,300];
    
if (c=clBlack) and (x>=l) then // Определение количество разрывов, дефектов в эллипсе, против часовой.
 begin
 l:=x;
 goto k3;
 end;
  end;
 count1:=count1+1;
  if count1<2 then
   begin
   goto k4;
    end
   else
    begin
    goto k5;
     end;
      end;

 k5:x:=500; //Вращение по часовой заключительный цикл.k5
 m:=0;
 y:=300;
 ang:=6.2799;
{for r:=94 to 100 do }for r:=1 to 400 do //Перенос первой точки по часовой.
 begin
 c:=Canvas.Pixels[round(x+r*cos(6.28)),round(y+r*sin(6.28))];
  if c=clBlack then
 begin
  m:=r;
  Canvas.Pixels[round(x+r*cos(6.28)),round(y+r*sin(6.28))]:=clWhite;
  end;
   end;
  {While ang>(6.279) do}While ang>(0) do //Вращение по часовой.
 begin
{for r:=94 to 100 do}for r:=1 to 400 do
 begin
 c:=Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))];
 if c=clBlack then
 begin
  Canvas.Pixels[round(x+r*(ang+0.01)),round(y+r*sin(ang+0.01))]:=clBlack;
  Canvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))]:=clWhite;
  end;
   end;
   ang:=ang-0.0001;
    end;

    Canvas.Pixels[round(x+m*(6.28+0.01)),round(y+m*(6.28+0.01))]:=clBlack;//Установка первой точки по часовой.
  begin
  {for x:=603 downto 594 do }for x:=1134 downto 500 do//Определение вершини эллипса по часовой.
  begin
  c:=Canvas.Pixels[x,300];
   if (c=clBlack) and (x>=l) then //Определение вершини окончательно.
    begin
    goto k6;
    end;
     end;
      goto k5;
       end;
        k6:ListBox1.Items.Add('Финиш');
          end;




procedure TForm1.Form1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Canvas.Pixels[500,300]:=clBlack;//Центр.
 Caption:=Format('Mouse in x=%d, y=%d',[x,y]);
 if ssShift in shift then
 Canvas.Pixels[x,y]:=clBlack;
end;

end.