亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? bseffects.pas

?? 實現網絡流量的生成,為cs結構,可以控制流量大小
?? PAS
?? 第 1 頁 / 共 2 頁
字號: 
       r := Round(Line^[x].r * kf1 + L^[x].r * (1 - kf1));
       g := Round(Line^[x].g * kf1 + L^[x].g * (1 - kf1));
       b := Round(Line^[x].b * kf1 + L^[x].b * (1 - kf1));
       CheckRGB(r, g, b);
       Line^[x].r := r;
       Line^[x].g := g;
       Line^[x].b := b;
     end;
     ScanLines[y] := Line;
     kf1 := kf1 + Step;
     if kf1 > 1 then kf1 := 1;
   end;

  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.MorphGrad;
begin
  if Width >= Height
  then MorphHGrad(BMP, kf)
  else MorphVGrad(BMP, kf);
end;

procedure TbsEffectBmp.MorphLeftGrad;
var
  x, y, r, g, b: Integer;
  Line, L: PLine;
  kf1: Double;
  step: Double;
  f : Integer;
begin
  if (BMP.Width <> Width) or (BMP.Height <> Height) then Exit;

  GetMem(Line, Width * 3);

  f := Round(Width * kf);
  if f < 1 then f := 1;
  if f > Width - 1 then f := Width - 1;

  if f > 0
  then
    Step := 1 / f
  else
    Step := 1;

  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    kf1 := 0;
    for x := 0 to f do
    begin
      r := Round(Line^[x].r * kf1 + L^[x].r * (1 - kf1));
      g := Round(Line^[x].g * kf1 + L^[x].g * (1 - kf1));
      b := Round(Line^[x].b * kf1 + L^[x].b * (1 - kf1));
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
      kf1 := kf1 + Step;
      if kf1 > 1 then kf1 := 1;
     end;
     ScanLines[y] := Line;
   end;

  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.MorphRightGrad;
var
  x, y, r, g, b: Integer;
  Line, L: PLine;
  kf1: Double;
  step: Double;
  f : Integer;
begin
  if (BMP.Width <> Width) or (BMP.Height <> Height) then Exit;

  GetMem(Line, Width * 3);

  f := Width - Round(Width * kf);
  if f < 0 then f := 0;
  if f > Width - 1 then f := Width - 1;

  if Width - f > 0
  then
    Step := 1 / (Width - f)
  else
    Step := 1;

  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    kf1 := 0;
    for x := Width - 1 downto f do
    begin
      r := Round(Line^[x].r * kf1 + L^[x].r * (1 - kf1));
      g := Round(Line^[x].g * kf1 + L^[x].g * (1 - kf1));
      b := Round(Line^[x].b * kf1 + L^[x].b * (1 - kf1));
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
      kf1 := kf1 + Step;
      if kf1 > 1 then kf1 := 1;
     end;
     ScanLines[y] := Line;
   end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.MorphPush(BMP: TbsEffectBMP; Kf: Double);
var
  x, y, x1: Integer;
  Line, L: PLine;
  f : Integer;
begin
  if (BMP.Width <> Width) or (BMP.Height <> Height) then Exit;

  GetMem(Line, Width * 3);

  f := Round(Width * kf);
  if f < 0
  then f := 0
  else if f > Width - 1 then f := Width - 1;

  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    for x := Width - 1 downto f do
    begin
      x1 := x - f - 1;
      if x1 < 0 then x1 := 0;
      Line^[x].r := Line^[x1].r;
      Line^[x].g := Line^[x1].g;
      Line^[x].b := Line^[x1].b;
     end;
     ScanLines[y] := Line;
   end;           

  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    x1 := Width - f - 1;
    if x1 < 0 then x1 := 0;
    for x := 0 to f do
    begin
      Line^[x].r := L^[x1].r;
      Line^[x].g := L^[x1].g;
      Line^[x].b := L^[x1].b;
      inc(x1);
      if x1 > Width - 1 then x1 := Width - 1;
    end;
    ScanLines[y] := Line;
  end;

  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.MorphLeftSlide;
var
  x, y, x1: Integer;
  Line, L: PLine;
  f : Integer;
begin
  if (BMP.Width <> Width) or (BMP.Height <> Height) then Exit;

  GetMem(Line, Width * 3);

  f := Round(Width * kf);
  if f < 1 then f := 1;
  if f > Width - 1 then f := Width - 1;
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    x1 := Width - 1 - f;
    if x1 < 0 then x1 := 0;
    for x := 0 to f - 1 do
    begin
      inc(x1);
      if x1 > Width -1 then x1 := Width - 1;
      Line^[x].r := L^[x1].r;
      Line^[x].g := L^[x1].g;
      Line^[x].b := L^[x1].b;
    end;
    ScanLines[y] := Line;
  end;

  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.MorphRightSlide;
var
  x, y, x1: Integer;
  Line, L: PLine;
  f : Integer;
begin
  if (BMP.Width <> Width) or (BMP.Height <> Height) then Exit;

  GetMem(Line, Width * 3);

  f := Round(Width * kf);
  if f < 1 then f := 1;
  if f > Width - 1 then f := Width - 1;

  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    L := BMP.ScanLines[y];
    x1 := Width - 1 - f;
    if x1 < 0 then x1 := 0;
    for x := 0 to f - 1 do
    begin
      inc(x1);
      if x1 > Width -1 then x1 := Width - 1;
      Line^[x1].r := L^[x].r;
      Line^[x1].g := L^[x].g;
      Line^[x1].b := L^[x].b;
    end;
    ScanLines[y] := Line;
  end;

  FreeMem(Line, Width * 3);
end;

destructor TbsEffectBmp.Destroy;
begin
  DeleteObject(Handle);
  inherited;
end;

procedure TbsEffectBmp.ChangeBrightness(Kf: Double);
var
  x, y, r, g, b: Integer;
  Line: PLine;
begin
  if Kf < 0 then Kf := 0 else if Kf > 1 then Kf := 1;
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y, Line);
    for x := 0 to Width - 1 do
    begin
      r := Round(Line^[x].r * (1 - Kf) + 255 * Kf);
      g := Round(Line^[x].g * (1 - Kf) + 255 * Kf);
      b := Round(Line^[x].b * (1 - Kf) + 255 * Kf);
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.Invert;
var
  x, y, r, g, b: Integer;
  Line: PLine;
begin
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y, Line);
    for x := 0 to Width - 1 do
    begin
      r := not Line^[x].r;
      g := not Line^[x].g;
      b := not Line^[x].b;
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;


procedure TbsEffectBmp.ChangeDarkness(Kf: Double);
var
  x, y, r, g, b: Integer;
  Line: PLine;
begin
  if Kf < 0 then Kf := 0 else if Kf > 1 then Kf := 1;
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y, Line);
    for x := 0 to Width - 1 do
    begin
      r := Round(Line^[x].r * (1 - Kf));
      g := Round(Line^[x].g * (1 - Kf));
      b := Round(Line^[x].b * (1 - Kf));
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.GrayScale;
var
  x, y: Integer;
  Line: PLine;
  Gray: Byte;
begin
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y, Line);
    for x := 0 to Width - 1 do
    begin
      Gray := Round(Line^[x].r * 0.3 + Line^[x].g * 0.59 + Line^[x].b * 0.11);
      if Gray > 255 then Gray := 255 else if Gray < 0 then Gray := 0;
      Line^[x].r := Gray;
      Line^[x].g := Gray;
      Line^[x].b := Gray;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.SplitBlur(Amount: Integer);
var
  cx, x, y: Integer;
  L, L1, L2: PLine;
  Buf: array[0..3] of TFColor;
  Tmp: TFColor;
begin
  if Amount = 0 then Exit;
  for y := 0 to Height-1 do
  begin
    L := ScanLines[y];
    if y - Amount < 0
    then L1:=ScanLines[y]
    else L1:=ScanLines[y - Amount];
    if y + Amount < Height
    then L2:=ScanLines[y + Amount]
    else L2:=ScanLines[Height - y];
    for x := 0 to Width - 1 do
    begin
      if x - Amount < 0 then cx := x else cx := x - Amount;
      Buf[0] := L1[cx];
      Buf[1] := L2[cx];
      if x + Amount < Width then cx := x + Amount else cx := Width - x;
      Buf[2] := L1^[cx];
      Buf[3] := L2^[cx];
      Tmp.r := (Buf[0].r + Buf[1].r + Buf[2].r + Buf[3].r) div 4;
      Tmp.g := (Buf[0].g + Buf[1].g + Buf[2].g + Buf[3].g) div 4;
      Tmp.b := (Buf[0].b + Buf[1].b + Buf[2].b + Buf[3].b) div 4;
      L^[x] := Tmp;
    end;
  end;
end;

procedure TbsEffectBmp.Mosaic(ASize: Integer);
var
  x, y, i, j : Integer;
  L1, L2: PLine;
  r, g, b : Byte;
begin
  y := 0;
  repeat
    L1 := Scanlines[y];
    x := 0;
    repeat
      j := 1;
      repeat
      L2 := Scanlines[y];
      x := 0;
      repeat
        r := L1[x].r;
        g := L1[x].g;
        b := L1[x].b;
        i:=1;
       repeat
       L2[x].r := r;
       L2[x].g := g;
       L2[x].b := b;
       inc(x);
       inc(i);
       until (x >= Width) or (i > ASize);
      until x >= Width;
      inc(j);
      inc(y);
      until ( y >= Height) or (j > ASize);
    until (y >= Height) or (x >= Width);
  until y >= Height;
end;


procedure TbsEffectBmp.AddMonoNoise(Amount:Integer);
var
  x,y,r,g,b,z: Integer;
  Line: PLine;
begin
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    for x:=0 to Width-1 do
    begin
      z := Random(Amount) - Amount div 2;
      r := Line^[x].r + z;
      g := Line^[x].g + z;
      b := Line^[x].b + z;
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.AddColorNoise(Amount:Integer);
var
  x,y,r,g,b: Integer;
  Line: PLine;
begin
  GetMem(Line, Width * 3);
  for y := 0 to Height - 1 do
  begin
    GetScanLine(y,Line);
    for x:=0 to Width-1 do
    begin
      r := Line^[x].r + (Random(Amount) - (Amount div 2));
      g := Line^[x].g + (Random(Amount) - (Amount div 2));
      b := Line^[x].b + (Random(Amount) - (Amount div 2));
      CheckRGB(r, g, b);
      Line^[x].r := r;
      Line^[x].g := g;
      Line^[x].b := b;
    end;
    ScanLines[y] := Line;
  end;
  FreeMem(Line, Width * 3);
end;

procedure TbsEffectBmp.Rotate90_1(Dst: TbsEffectBmp);
var
  x, y: Integer;
begin
  for y := 0 to Height - 1 do
  for x := 0 to Width - 1 do
    Dst.Pixels[y, Width - 1 - x] := Pixels[x, y];
end;

procedure TbsEffectBmp.Rotate90_2(Dst: TbsEffectBmp);
var
  x, y: Integer;
begin
  for y := 0 to Height - 1 do
  for x := 0 to Width - 1 do
    Dst.Pixels[Height - 1 - y, x] := Pixels[x, y];
end;

end.

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
精品伊人久久久久7777人| 蜜桃av一区二区| 日本不卡一区二区三区| 国产一区二区三区| 精品国产sm最大网站| 亚洲视频在线一区二区| 国产一区在线不卡| 欧美精品乱码久久久久久按摩| 久久久精品影视| 美女尤物国产一区| 欧美日韩在线不卡| 亚洲一区在线视频观看| 成人毛片老司机大片| 精品播放一区二区| 日本视频免费一区| 欧美精品乱码久久久久久| 亚洲精品久久7777| 97久久精品人人做人人爽50路 | 欧美日韩在线亚洲一区蜜芽| 中文字幕va一区二区三区| 国内精品视频666| 日韩精品一区二区三区蜜臀 | 丁香另类激情小说| 久久网站热最新地址| 美国三级日本三级久久99| 欧美日韩夫妻久久| 亚洲国产日韩a在线播放性色| jlzzjlzz国产精品久久| 中文一区二区完整视频在线观看| 国产综合色在线视频区| 欧美精品一区二区在线播放| 另类成人小视频在线| 欧美videos中文字幕| 精品在线观看免费| 亚洲高清免费视频| 欧美揉bbbbb揉bbbbb| 婷婷开心久久网| 欧美日本一区二区| 免费视频一区二区| 精品欧美一区二区三区精品久久 | 久久久久久久久久久久久夜| 国产成人自拍高清视频在线免费播放| 久久综合色之久久综合| 国产凹凸在线观看一区二区| 国产精品久久久久久久第一福利| 97国产精品videossex| 亚洲综合在线电影| 7777精品伊人久久久大香线蕉经典版下载 | 日韩一卡二卡三卡| 国产经典欧美精品| 亚洲精品乱码久久久久久日本蜜臀| 欧美自拍偷拍午夜视频| 日韩电影一区二区三区四区| 精品免费日韩av| 成人黄色在线看| 性久久久久久久久| 久久色在线视频| 94-欧美-setu| 天堂久久一区二区三区| 久久久欧美精品sm网站| 91久久线看在观草草青青| 老司机午夜精品| 一色桃子久久精品亚洲| 欧美高清激情brazzers| 国产精品18久久久| 午夜久久久久久| 国产女主播视频一区二区| 欧美午夜影院一区| 国产精品一区二区果冻传媒| 一区二区三区高清不卡| 日韩欧美国产三级| 91视频www| 国产一区二区三区免费| 夜夜精品视频一区二区| www激情久久| 欧美日韩在线直播| bt7086福利一区国产| 麻豆成人久久精品二区三区小说| 中文字幕制服丝袜成人av| 日韩一区二区三| 91蜜桃免费观看视频| 国内精品国产三级国产a久久| 樱花影视一区二区| 国产精品理伦片| 欧美大胆人体bbbb| 欧美日韩精品专区| 91毛片在线观看| 国产成人午夜高潮毛片| 免费的国产精品| 一区二区三区视频在线看| 久久久天堂av| 日韩免费高清电影| 欧美日韩在线播放三区四区| 99久久精品国产精品久久| 久久9热精品视频| 日产国产高清一区二区三区| 一区二区三区加勒比av| 亚洲色图视频网站| 中文字幕亚洲一区二区va在线| 久久综合久久久久88| 91精品国产手机| 欧美影院一区二区三区| jizzjizzjizz欧美| 成人免费视频caoporn| 国产福利91精品一区二区三区| 蜜桃一区二区三区在线观看| 欧美一区二区三区四区久久| 天天射综合影视| 最新国产成人在线观看| 国产日韩影视精品| 久久久亚洲欧洲日产国码αv| 欧美一区二区日韩一区二区| 欧美日韩精品福利| 欧美在线免费观看视频| 一本到不卡免费一区二区| www.激情成人| 成人激情午夜影院| 国产91精品一区二区麻豆网站| 老司机精品视频导航| 日本一区中文字幕| 日本美女视频一区二区| 日本特黄久久久高潮| 亚洲高清在线精品| 日韩国产精品久久久久久亚洲| 日韩成人dvd| 国产一区二区在线免费观看| 国产精品传媒在线| 国产精品美女久久福利网站| 国产精品国产三级国产aⅴ中文 | 久久综合狠狠综合| 精品国产91乱码一区二区三区| 久久精品人人爽人人爽| 国产女主播视频一区二区| 日韩美女视频19| 亚洲最大的成人av| 美女一区二区在线观看| 成人深夜在线观看| 欧美午夜精品久久久久久孕妇| 欧美视频在线不卡| 欧美成人精品高清在线播放| 国产日韩精品一区二区三区在线| 亚洲精品免费看| 免费成人av在线播放| 成人午夜激情在线| 欧美日韩一区二区三区不卡 | 欧美日韩在线电影| 亚洲精品在线免费播放| 综合激情成人伊人| 日本欧美加勒比视频| 成人av网址在线观看| 91麻豆精品国产| 国产偷国产偷亚洲高清人白洁| 一区二区三区成人| 美美哒免费高清在线观看视频一区二区| 国产成人在线视频播放| 欧美性色综合网| 欧美国产激情二区三区| 视频在线观看91| 成人av影院在线| 日韩精品一区二区三区在线| 亚洲精品国产视频| 国产一区二区三区最好精华液| 欧美伊人久久久久久午夜久久久久| 久久久亚洲高清| 日韩一区精品视频| 91精品福利视频| 中文字幕欧美激情| 久久精品国产在热久久| 欧美日韩国产美| 亚洲三级在线观看| 国产一区二区三区国产| 3d成人动漫网站| 亚洲一区视频在线| eeuss鲁一区二区三区| 久久一二三国产| 奇米在线7777在线精品| 精品视频一区 二区 三区| 亚洲欧美激情在线| 成人小视频免费在线观看| 精品国产乱码久久久久久牛牛| 亚洲成av人片在线观看| 精品欧美一区二区三区精品久久| 亚洲一卡二卡三卡四卡| 日本二三区不卡| 亚洲日本va午夜在线影院| 懂色av一区二区三区蜜臀| 久久久久久免费网| 国产精品原创巨作av| 欧美va在线播放| 美女视频黄 久久| 日韩一区二区三| 日日夜夜精品视频天天综合网| 欧美午夜精品久久久久久孕妇| 亚洲欧美电影一区二区| 91网站在线播放| 一区二区三区在线免费播放| 91免费在线看| 亚洲一区二区黄色| 欧美卡1卡2卡| 日本aⅴ亚洲精品中文乱码|