谁知道三维立体算法！关于用红绿眼镜看的！

Question

Step.1 得到两张视角图(左眼视角图，右眼视角图)
Step.2 左眼视角图异或红色 右眼视角图异或绿色
Step.3 错位重合两张处理后de视角图

Answer 1

to zswang(伴水)(需要充充电): 能给我源码吗??
谢谢了！
http://www30.brinkster.com/kiss2/sample_left.jpg  左眼视角图
http://www30.brinkster.com/kiss2/sample_right.jpg  右眼视角图

Answer 2

谢谢！等你的好消息！
我的油箱是 [email protected]

Answer 3

//把两张图转换成位图先//Image1 = Left
//Image2 = Rightprocedure TForm1.Button1Click(Sender: TObject);
var
  vRect: TRect;
  vGreen, vRed: TColor;
begin
(*
  vGreen := clGreen;
  vRed := vGreen xor $FFFFFF;
*)
  vRed := clRed; //在此调整比例
  vGreen := vRed xor $FFFFFF;
  Image3.Picture.Bitmap.Width := Image1.Width;
  Image3.Picture.Bitmap.Height := Image1.Height;
  vRect := Rect(0, 0, Image3.Picture.Bitmap.Width, Image3.Picture.Bitmap.Height);  Image3.Picture.Bitmap.Canvas.Brush.Color := vGreen;
  Image3.Picture.Bitmap.Canvas.FillRect(vRect);
  Image1.Canvas.CopyMode := cmSrcPaint;
  Image1.Canvas.CopyRect(vRect, Image3.Picture.Bitmap.Canvas, vRect);  Image3.Picture.Bitmap.Canvas.Brush.Color := vRed;
  Image3.Picture.Bitmap.Canvas.FillRect(vRect);
  Image2.Canvas.CopyMode := cmSrcPaint;
  Image2.Canvas.CopyRect(vRect, Image3.Picture.Bitmap.Canvas, vRect);  Image3.Canvas.CopyRect(vRect, Image1.Picture.Bitmap.Canvas, vRect);
  Image3.Canvas.CopyMode := cmSrcAnd;
  Image3.Canvas.CopyRect(vRect, Image2.Picture.Bitmap.Canvas, vRect);
end;