Rad:integer = 5; // poloměr kruhu
  Pocet:integer = 5; // pocet testovanych pixelu
  CoKreslit:(ctverce,kruhy) = kruhy; // co kreslit

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 // velikost kruhů...
 Rad:=TrackBar1.Position;
 Label1.Caption:='Radius kruhu - '
 +InTToSTr(TrackBar1.Position);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
 // počet testovaných pixelů
 Pocet:=TrackBar2.Position;
 Label2.Caption:='Počet testovaných pix. - '
 +InTToSTr(TrackBar2.Position);
end;

// DXTIMER ===========================
procedure TForm1.DXTimer1Timer
(Sender: TObject; LagCount: Integer);
var  X,Y: integer;// pozice aktualniho kruhu
     c: TColor;   // barva testovaneho pixelu z image
     r,g,b: byte; // vysledna barva kruhu
     sr,sg,sb: integer; // pomocne promenne pro barvu
     i,j: integer;// pom. promenne pro cyklus
begin
   for i:=1 to 1000 do
    begin
     // nastavime nahodnou pozici stredu kruhu - x,y
     x := random( Image1.Width );
     y := random( Image1.Height );

     sr := 0; sg := 0; sb := 0;

     for j:=1 to pocet do
      begin
       // vezmeme nahodny bod z obrazku, ktery je nekde
       // uvnitr kruhu, ktery budeme kreslit...
       c := Image1.Canvas.Pixels
       [x-Rad+random(2*Rad+1),y-Rad+random(2*Rad+1)];
       // slozky barvy RGB pricteme k sr,sg,sb
       sr := sr+GetRValue(c); // R slozka barvy
       sg := sg+GetGValue(c); // G    --//--
       sb := sb+GetBValue(c); // B    --//--
      end;

     // delenim promennou pocet ziskame
     // konecnou barvu kresleneho kruhu...
     r := sr div pocet;
     g := sg div pocet;
     b := sb div pocet;

     // takze to uz staci jen nakreslit..
     DXDraw1.Surface.Canvas.pen.Style := psClear;
     DXDraw1.Surface.Canvas.Brush.Color := RGB(r,g,b);
     if CoKreslit = kruhy then
      DXDraw1.Surface.Canvas.Ellipse( x-Rad, y-Rad, x+Rad, y+Rad )
     else
      DXDraw1.Surface.Canvas.Rectangle( x-Rad, y-Rad, x+Rad, y+Rad );
    end;

   // jeste pridame FPS
   with DXDraw1.Surface.Canvas do
    begin
     Brush.Color:=clWhite;
     TextOut(5,5,'FPS: '+IntTOStr(DXTimer1.Framerate));

     Release; // !!!!
    end;

 DXDraw1.Flip;
end;

// DXTIMER ======================
procedure TForm1.DXTimer1Timer
(Sender: TObject; LagCount: Integer);
var
     c: TColor;   // barva testovaneho pixelu z image
     r,g,b: byte; // vysledna barva kruhu
     sr,sg,sb: integer; // pomocne promenne pro barvu
     i,j: integer;// pom. promenne pro cyklus
     ix,iy:integer;// pozice kresleného čtverce
begin
   DXDraw1.Surface.Fill(0);

// kreslit pixelovany obrazek, nebo normal ?
if RSize <> 0 then
 begin

   // pocet kruhu, ktere se kresli
   for ix:=0 to (DXDraw1.SurfaceWidth div RSize-1) do
    begin
     for iy:=0 to (DXDraw1.SurfaceHeight div RSize-1) do
      begin
       sr := 0; sg := 0; sb := 0;

        for j:=1 to pocet do
        begin
         // vezmeme nahodny bod z obrazku, ktery je nekde
         // uvnitr kruhu, ktery budeme kreslit...
         c := Image1.Canvas.Pixels
         [ix*(RSize)+random(RSize),iy*RSize+random(RSize)];
         // slozky barvy RGB pricteme k sr,sg,sb
         sr := sr+GetRValue(c); // R slozka barvy
         sg := sg+GetGValue(c); // G    --//--
         sb := sb+GetBValue(c); // B    --//--
        end;

       // delenim promennou pocet ziskame
       // konecnou barvu kresleneho kruhu...
       r := sr div pocet;
       g := sg div pocet;
       b := sb div pocet;

       // takze to uz staci jen nakreslit..
       DXDraw1.Surface.Canvas.pen.Style := psClear;
       DXDraw1.Surface.Canvas.Brush.Color := RGB(r,g,b);
       DXDraw1.Surface.Canvas.Rectangle
       (ix*RSize,iy*RSize,
       (ix*RSize+RSize)+1,(iy*RSIze+RSize)+1);
      end;
    end;

  RSize:=RSize-1;
  if RSize=2 then RSize:=0;

  // podle velikosti ctverce nastavime
  // pocet testovanych pixelu
  Pocet:=(RSize div 2)+1;
  if Pocet = 1 then Pocet:=2;

 end
else
 begin
  // pokud je RSize 0, tj ctverce jsou velke 1 pixel,
  // nekreslime ctverce, ale kopirujeme obrazek...
  DXDraw1.Surface.Canvas.CopyRect
  (rect(0,0,200,300),Image1.Picture.Bitmap.Canvas,
  rect(0,0,200,300));
 end;


   // jeste pridame FPS
   with DXDraw1.Surface.Canvas do
    begin
     Brush.Color:=clBlack;
     Font.Color:=clAqua;
     TextOut(5,5,'FPS: '+IntTOStr(DXTimer1.Framerate));

     Release; // !!!!
    end;

 DXDraw1.Flip;
end;