code : pascal
function grayscaling(var gbrIn:TBitmap):TBitmap;
Var
  GbrTmp:TBitmap;
  //GbrTmpTinggi,GbrTmpLebar:Cardinal;
  Bheight,Bwidth,i,j,c,GrayVal,GrayValCount :Cardinal;
  pixArrRGB,pixArrGrey:pbytearray;
  gbrOut:TBitmap;
Begin
  GbrTmp:=TBitmap.Create;
  GbrIn.PixelFormat:=pf24bit;
  Try
    With GbrTmp Do
    Begin
    PixelFormat:=pf24bit;
    Height:=gbrIn.Height;
    Width:=gbrIn.Width;
    End;
    for i:=0 to gbrIn.height-1 do
      begin
      pixArrRGB:=gbrIn.ScanLine[i];
      pixArrGrey:=GbrTmp.ScanLine[i];
        for j:=0 to gbrIn.width-1 do
        begin
        GrayVal:=round((pixArrRGB[j*3]) * 0.11{Blue my Man!!}) round((pixArrRGB[j*3 1]) * 0.59{Green Cing!}) round((pixArrRGB[j*3 2]) * 0.3{MERAH Euy!});
        pixArrGrey[j*3]:= GrayVal;
        pixArrGrey[j*3 1]:= GrayVal;
        pixArrGrey[j*3 2]:= GrayVal;
        GrayValCount:=GrayValCount GrayVal;//**
        c:=c 1;     //**
        end
    end;
    GbrTmp.PixelFormat:=pf8bit;
    grayscaling:=GbrTmp;
  Finally
  //GbrTmp.Free;
  End;
End;
 
function binerisasi(var gbrIn:TBitmap):TBitmap;
Var
  GbrTmp:TBitmap;
  GbrTmpTinggi,GbrTmpLebar:Cardinal;
  Bheight,Bwidth,i,j,c,GrayVal,GrayValCount :Cardinal;
  pixArrBin,pixArrGrey:pbytearray;
  gbrOut:TBitmap;
Begin
  GbrTmp:=TBitmap.Create;
  GbrIn.PixelFormat:=pf8bit;
  Try
    With GbrTmp Do
    Begin
    PixelFormat:=pf1bit;
    Height:=gbrIn.Height;
    Width:=gbrIn.Width;
    End;
    for i:=0 to gbrIn.height-1 do
      begin
      pixArrGrey:=gbrIn.ScanLine[i];
      pixArrBin:=GbrTmp.ScanLine[i];
        for j:=0 to gbrIn.width-1 do
        begin
          if pixArrGrey[j]>=128then
            begin
              pixArrBin[j div 8]:=1;
              //gbrOut.Canvas.Pixels[i,j]:=255;
              //pixArrBin[j*3 1]:= 255;
              //pixArrBin[j*3 2]:= 255;
            end
            else
              pixArrBin[j div 8]:= 0;//ColorToRGB(clBlack);;
              //gbrOut.Canvas.Pixels[i,j]:=0;
              //pixArrBin[j*3 1]:= 0;
              //pixArrBin[j*3 2]:= 0;
        end
    end;
    binerisasi:=GbrTmp;
  Finally
  //GbrTmp.Free;
  End;
 
End;
Parsed in 0.026 seconds, using GeSHi

code : pascal
for j:=0 to gbrIn.width-1 do
        begin
          if pixArrGrey[j]>=128then
            begin
              pixArrBin[j div 8] := pixArrBin[j div 8] or (1 shl j mod "modules/PNphpBB2/images/smiles/icon_cool.gif" alt="Cool" border="0" />;
            end
            else
              pixArrBin[j div 8] := pixArrBin[j div 8] or (0 shl j mod "modules/PNphpBB2/images/smiles/icon_cool.gif" alt="Cool" border="0" />;
        end
Parsed in 0.007 seconds, using GeSHi

code : pascal
pixArrBin[j div 8] := pixArrBin[j div 8] and not (1 shl j mod "modules/PNphpBB2/images/smiles/icon_cool.gif" alt="Cool" border="0" />;
Parsed in 0.003 seconds, using GeSHi