求图像变形技术完整代码

[wjf5147]

利用图像变形算法产生图像A逐渐变换到图像B的过程中的每一“祯”图像，并将由变形而生成的图像序列生成一个视频文件（AVI格式）

整个图像变形过程可以用伪代码描述为：
：
procedure MorphingImages；
begin
f = LoadImage(A); // 读入图像文件A和B，变形为 A -> B
g = LoadImage(B);
avi = CreateAVIFile; // 创建一个 AVI 动画文件
t = 0.00;
while (t <= 1.00) do
begin
h(x,y) = (1-t) * f(x,y) + t * g(x,y); // 图像变形
AddFrame(avi,h); // 将变形后的图像加入AVI文件，使之成为“一祯”
t = t + Step; // 处理下一祯（step 为可以调节的时间步长）
end;
SaveAVIFile(avi); // 生成最终的AVI文件
end;




初学者 ，请老鸟们帮帮忙，谢谢