Aktív témák

• #4 pendragonhu csendes tag pendragonhu #3

  2007-10-13 16:02:13 #4

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  válasz pendragonhu #3 üzenetére

  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

Aktív témák