Кривая Безье.

[Muaxaxa]

Доброго времени суток.
Проблема в том , что закрашиваются не те пикселы, и получается не совсем прямая кривая. )

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Procedure BezierCurve();
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
    P:array of record           {Koordinati mishi}
        x,y : integer;
        end;
    B:array of real;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BezierCurve;
var i:integer;
    t:real;
    x,y,xa,ya:integer;
    n,m,nm,mc,nmc:real;
    nf,mf,nmf:real;
    t1:real;
    mp,xc,yc,z,m1:integer;
    mb:integer;
begin

  n:=(StrToInt(Edit1.Text)-1);
  m1:=(strtoint(Edit1.Text)-1);
  t:=0;
  t1:=(StrToFloat(edit2.Text));
  nf:=1;
  while n>1 do
   begin
    nf:=n*(n-1)*nf;
    n:=n-2;
   end;
while t<=1 do
begin

  mb:=0;
  m:=0;
begin
  for z:=0 to m1 do
    begin
    nmf:=1;
    mf:=1;
      n:=(StrTofloat(Edit1.Text)-1);
      nm:=n-m;

   if m<=1 then
      mf:=1
   else
    begin
      mc:=m;
        while mc>1 do
          begin
            mf:=mc*(mc-1)*mf;
            mc:=mc-2;
          end;
    end;
   if nm<=1 then
      nmf:=1
   else
    begin
      nmc:=nm;
       while (nmc)>1 do
        begin
          nmf:=(nmc)*(nmc-1)*nmf;
          nmc:=nmc-2;
        end;
    end;

            B[mb]:= ((nf)/((mf)*(nmf)))*(POWER((1-t),nm))*(Power(t,m));
        begin
        mb:=mb+1;
        m:=m+1;
        end;
  end;
end;

                  {Вроде , что -то не так с этой частью }
                 {---------------------}

      xa:=0;
      mp:=0;
      mb:=0;
      for xc:=0 to m1 do
        begin

          xa:=(Round(B[mb]*P[mp].x)+xa);
          mb:=mb+1;
          mp:=mp+1;
        end;

      ya:=0;
      mp:=0;
      mb:=0;
      for yc:=0 to m1 do
        begin

          ya:=(Round(B[mb]*P[mp].y)+ya);
          mb:=mb+1;
          mp:=mp+1;
        end;

        x:=xa;
        y:=ya;
        Image1.Canvas.Pixels[x,y]:=clBlack; 
                   {---------------------------}

        t:=t+t1;
      end;
        
        for i:=0 to m1 do      {cikls lai redzet kas notiek}
    begin

    image1.Canvas.TextOut(P[i].x,P[i].y,IntToStr(i+1));
    Image1.Canvas.Ellipse(P[i].x-3,P[i].y-3,P[i].x+3,P[i].y+3);
    end;
      
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);       { Na klik mishi activiruet okno}
                                                   { i kol-vo knopok }
begin

  P[RadioGroup1.ItemIndex].x:=x;
  P[Radiogroup1.ItemIndex].y:=y;
  Image1.Picture:=nil;{ nulle vai neeksiste}
  BezierCurve();

end;

procedure TForm1.Button1Click(Sender: TObject);
var n,i,mp,e: integer;
begin
n:=(strtoint(Edit1.Text));
SetLength(P, n);
SetLength(B, n);

n:=(strtoint(Edit1.Text)-1);
RadioGroup1.Items.Clear;
e:=1;
for i:=0 to n do
  begin
    RadioGroup1.Items.Add('Tochka');
    e:=e+1;
  end;

  Randomize;
  mp:=0;
  for i:= 0 to n do
    begin
      P[mp].x:=Random(image1.Width);
      P[mp].y:=Random(image1.Height);
      mp:=mp+1;
    end;
end;

end.

*Как спрятать код в разворот?

Ап?qwertyu

Читаем правила :
3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь вам не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- "апание" темы, т.е. попытка привлечь к теме повышенное внимание за счет других, чужих тем;

[Johnson]

не совсем прямая кривая

Рисуйте не точками, а линиями.
При вычислении используйте Extended, и округляйте его только непосредственно перед отрисовкой.

[Muaxaxa]

Спасибо! х_х