如何制作照片底片效果的图像(即反色)

大家对照片的底片一定都很熟悉了，底片上的颜色与色彩鲜艳的照片的颜色是正好相反的，即反色，这也是我们制作反色图像的核心。 编程原理：你所见到的各种色彩都是由红、绿、蓝三种颜色按不同的比例混合而成的，这就是我们所说的三基色，它们的颜色值（RGB值）是 0～255 ，所以我们只需去的图像上各个点的RGB值，然后用255减去这个值，并将这个值重新赋值给各个点，就会达到我们想要的底片效果了，下面我们看具体过程：
源代码网推荐 所用函数：getRvalue:取得某一点的红色的值
源代码网推荐 getGvalue:取得某一点的绿色的值
源代码网推荐 getBvalue:取得某一点的蓝色的值
源代码网推荐
源代码网推荐 新建一个窗体，上面放置一个image控件，autosize设为true，一个按钮控件，用默认属性，一个进度条控件ProgressBar，name设为p，用来显示处理进程，下面是完整的代码：
源代码网推荐 unit Unit1;
源代码网推荐 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, shellapi,OleCtrls, SHDocVw, Menus, ExtCtrls, ComCtrls;
源代码网推荐 type
源代码网推荐 TForm1 = class(TForm)
源代码网推荐 Image1: TImage;
源代码网推荐 Button1: TButton;
源代码网推荐 P: TProgressBar;
源代码网推荐 procedure Button1Click(Sender: TObject);
源代码网推荐 private
源代码网推荐 { Private declarations }
源代码网推荐 public
源代码网推荐 { Public declarations }
源代码网推荐 end;
源代码网推荐 var Form1:
源代码网推荐 TForm1; implementation {$R *.dfm}
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 var r,g,b,i,j:integer;
源代码网推荐 begin
源代码网推荐 p.Max:=image1.Width;
源代码网推荐 for i:=0 to image1.Width-1 do
源代码网推荐 begin p.Position:=i;
源代码网推荐 for j:=0 to image1.Height-1 do
源代码网推荐 begin
源代码网推荐 r:=255-getrvalue(image1.Canvas.Pixels[i,j]);//取得各点红色值 g:=255-getgvalue(image1.Canvas.Pixels[i,j]);//取得各点绿色值 b:=255-getbvalue(image1.Canvas.Pixels[i,j]);//取得各点蓝色值 image1.Canvas.Pixels[i,j]:=rgb(r,g,b);//重新设置各点的rgb值
源代码网推荐 end;
源代码网推荐 image1.Refresh;
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 end.