Aktív témák

• #7 kicsitomi88 őstag pendragonhu #6

  2007-10-13 16:57:54 #7

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

  

  kicsitomi88

  őstag

  válasz pendragonhu #6 üzenetére

  Akkor valamit rosszul csinalsz. Van valamilyen könyved?

• #5 kicsitomi88 őstag pendragonhu #4

  2007-10-13 16:04:54 #5

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

  

  kicsitomi88

  őstag

  válasz pendragonhu #4 üzenetére

  Azt rtfm es a kereso melyik reszet nem erted?

  Ha azt akarod, hogy a teljes progit megirjam akkor priviben kuldom a szamlaszamom.

  Tudtam, h delphis totyikot is nyitni kellett volna ujat

• #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

• #2 kicsitomi88 őstag pendragonhu #1

  2007-10-13 15:54:08 #2

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

  

  kicsitomi88

  őstag

  válasz pendragonhu #1 üzenetére

  Kereső, rtfm
  

Aktív témák