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

时间:2010-02-26 18:24:27  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:值(RGB值)是 0~255 ,所以我们只需去的图像上各个点的RGB值,然后用255减去这个值,并将这个值重新赋值给各个点,就会达到我们想要的底片效果了,下面我们看具体过程:所用函数:getRvalue:取得某一点的红色的值          getGvalue:取得某一点的绿色的值        ...
  正文:大家对照片的底片一定都很熟悉了,底片上的颜色与色彩鲜艳的照片的颜色是正好相反的,即反色,这也是我们制作反色图像的核心。

编程原理:你所见到的各种色彩都是由红、绿、蓝三种颜色按不同的比例混合而成的,这就是我们所说的三基色,它们的颜色值(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.
如何制作照片底片效果的图像(即反色)》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12936.html


关键字:

关于《如何制作照片底片效果的图像(即反色)》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td