OldComp.cz

procedure SEED FILL ( x , y, { s tartovací bod }
                      bc, { barva hranice }
                      fc : integer { barva plnění } );
var i: integer;
begin
     i : = Get Pixel Color ( x , y ); { vrací barvu p ixelu ( x, y) }
     if (i <> bc ) and (i <> fc ) then
     begin
          Set Pixel Color ( x , y , fc ); { nastaví barvu pixelu (x, y) }
          SEED FILL ( x+ l , y , bc , fc );
          SEED FILL ( x- I , Y , bc , fc );
          SEED FILL ( x , y+ l , bc , fc );
          SEED FILL ( x , y- l , bc , fc );
     end
end { SEED FILL }