delphi_三维图片的核心算法

(原)red-green Image.合成三维立体效果, 红绿眼镜 3D 图 ,三维图片的核心

算法。googler.cc 上面有完善的程序和源码下载。

unit the3D;

//(原)合成三维电影效果，红绿立体图像，无汇编便于理解，觉的有帮助就顶一个，顶的多

就发布下一篇图像处理，转帖的话请写明/转帖和原作者： 睿割氏窝老攻 ，QQ 235483710

EMAIL: jennievictor@163.com

interface

THSVRecord = record

H : Double ;

S : Double ;

V : Double ;

end ;

TRGBRecord = record

R : Byte ;

G : Byte ;

Label2: TLabel;

Label3: TLabel;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

ResultImg: TImage;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

alphaTbr: TTrackBar;

Label7: TLabel;

procedure Button2Click(Sender: TObject);

//生成红图

function CreateRedBmp : TBitmap ;

//生成绿图

//调节背景图亮度对比度

//参数定义 brightness 亮度

// contrast 对比度

function BrightnessAndContrast( brightness : Integer ; contrast : Integer ) : TBitmap ;

//生成结果图

function CreateResultBmp( Alpha, TransR, TransG, TransB : Integer ) : TBitmap ;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure alphaTbrChange(Sender: TObject);

procedure RtbrChange(Sender: TObject);

procedure GtbrChange(Sender: TObject);

procedure BTbRChange(Sender: TObject);

//HSV 转为 RGB

//RGB 转为 HSV

function max( r,g,b : Integer ) : Integer ;

function min( r,g,b : Integer ) : Integer ;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

========

//

======================================================================

========

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

end ;

RedImg.Picture.LoadFromFile(ImagePath);

Image1.Picture.LoadFromFile(ImagePath);

end ;

RedBmp := TBitmap.Create ;

========

// 生成红图

//

======================================================================

========

function TForm1.CreateRedBmp: TBitmap;

try

RedBmp.Assign(RedImg.Picture);

RedBmp.PixelFormat := pf24bit ;

for i := 0 to RedBmp.Height-1 do

begin

G1 := PRed[j*3+1] ;

R1 := PRed[j*3+2] ;

PRed[j*3] := B1 and $00 ;

PRed[j*3+1] := G1 and $00 ;

PRed[j*3+2] := R1 ;

end ;

end ;

RedImg.Canvas.Draw( 0,0,RedBmp );

end;

//

======================================================================

========

//

======================================================================

begin

try

GreenBmp.Assign(GreenImg.Picture);

GreenBmp.PixelFormat := pf24bit ;

for i := 0 to GreenBmp.Height - 1 do