浮雕效果
来源:互联网 发布:电子商务数据分析报告 编辑:程序博客网 时间:2024/04/27 15:47
procedure Effect_Emboss(Picture:TBitmap);
var
BB1,BB2:TBitmap;
begin
BB1:=TBitmap.Create;
BB1.PixelFormat :=pf24bit;
BB1.Assign(Picture.Bitmap);
BB2:=TBitmap.Create;
BB2.PixelFormat:=pf24bit;
BB2.Assign(BB1);
Emboss(BB2);
Picture.Bitmap.Assigned(BB2);
BB1.Free;
BB2.Free;
end;
procedure Emboss(var Bmp:TBitmap);
var
x,y:integer;
p1,p2:PByteArray;
begin
for y:=0 to Bmp.Height-2 do
begin
p1:=bmp.Scanline[y];
p2:=bmp.Scanline[y+1];
for x:=0 to Bmp.Width-4 do
begin
p1[x*3]:=(p1[x*3]+(p2[(x+3)*3] xor $FF)) shr 1;
p1[x*3+1]:=(p1[x*3+1]+(p2[(x+3)*3+1] xor $FF)) shr 1;
p1[x*3+2]:=(p1[x*3+2]+(p2[(x+3)*3+2] xor $FF)) shr 1;
end;
end;
end;
- 浮雕效果
- 浮雕效果
- 浮雕效果
- VB6浮雕效果源代码
- 图像处理 浮雕效果
- Emboss bump mapping (浮雕效果)
- android EmbossMaskFilter 浮雕效果实现
- unity3d shader之浮雕效果
- 制作地图的浮雕效果
- 浮雕效果一键工具
- 图像浮雕效果的实现
- 【22】字体效果(阴影/浮雕)
- 【数字图像处理】浮雕效果和倒影效果
- C#实现浮雕效果显示图片
- android图像处理(3)浮雕效果
- android图像处理(3)浮雕效果
- android图像处理(3)浮雕效果
- android图像处理(3)浮雕效果
- Use regular expression to find something
- algebra单元
- 磁盘工具
- CMOS单元
- 保存的各函数
- 浮雕效果
- 获取网页快照
- 列举串口
- 用TNMFTP上传文件
- 高斯模糊
- 转变
- Google Chrome
- JVM(JAVA虚拟机)
- jbpm支持xpdl的标准了吗?