Üdv

olyan gondom van hogy felezéses algoritmus szerint kellene vonalat kirajzoltatnom delphiben.
találtam is olyan függványt hogy writepixel de ezt kifügyülte a delphi.
hogy kell nekiesnem ennek a proginak?
esetleg tudnátok ide (pendragonhu@gmail.hu)küldeni egy elkészült progit?
(2 egér katt után, ami kijelöli a kezdő és végpontot, megrajzolja az egyenest)

előre is kösz minden segítséget

nekem olyan kéne ahol én tudok képpontonként rajzoltatni

procedure MidpointLine(x0,y0,x1,y1,value : integer);
var
dx,dy,incrE,incrNE,d,x,y : integer;
begin
dx := x1-x0;
dy := y1-y0;
d := 2*dy-dx;
incrE := 2*dy;
incrNE := 2*(dy-dx);
x := x0;
y := y0;
WritePixel(x,y,value);
while x < x1 do
begin
if d <= 0 then
begin
d := d + incrE;
x := x + 1
end
else
begin
d := d + incrNE;
x := x + 1;
y := y + 1
end;
WritePixel(x,y,value)
end {while}
end; {MidpointLine}

szal ezt kéne működésre bírni

ott a gondom hogy a fenn lévő cuccok nekem nem működnek (delphi 6 alatt)

jugyus jegyzetem van csak.
próbálok aszerint haladni de sok mindent nem említ, amire már rájöttem:
canvasra kellene rajzolni és writepixel helyett form1.canvas.Pixels[ x, y ] := clBlack; utasítással működik, csak nem a megfelelő kezdő és végpontra rakja ki az egyenest