Ngày tải lên :
06/11/2013, 08:15
... x,y,mauto, maubien :integer); var mau_ ht : integer; begin mau_ ht:= getpixel(x,y); if (mau_ ht mauto) and (mau_ ht maubien) then begin putpixel(x,y,color); Boundary_fill ( x+1,y, mauto, maubien ... putpixel(x,y,color); Boundary_fill ( x+1,y, mauto, maubien ); Boundary_fill ( x-1,y, mauto, maubien ); Boundary_fill ( x,y+1, mauto, maubien ); Boundary_fill ( x,y-1, mauto, maubien ); end; end; Nhận xét : ... Boundary_fill ( x,y,mauto, maubien :integer); var mau_ ht : integer; Trang 43 Chương 2: Các thuật toán tô màu begin mau_ ht:= getpixel(x,y); if (mau_ ht mauto) and (mau_ ht maubien) then begin...