双线性插值图象的缩放旋转例程

操作图 ＝ 原始位图.取像素点阵 ()
每行字节数 ＝ (lWidth － lWidth ％ 4 ＋ 4) × 原始位图.取位深度 () ÷ 8 ' 位图宽为239，但实际占位行为240,必须是4的倍数

双线性插值旋转要比临近插值，易语言位图支持库过渡更加平滑，很多类型的图形旋转的效果要好很多。

.子程序 _旋转并柔化_被单击, , , 查看图象旋转支持库旋转的效果
.局部变量 数据, 字节集
.局部变量 临时位图操作, 位图
.局部变量 临时位图操作B, 位图
.局部变量 旋转角度, 整数型
.局部变量 临时位置变量, 整数型, , "2"
.局部变量 a

画板2.清除 (, , , )
旋转角度 ＝ 取整 (到数值 (编辑框_旋转角度.内容))
a ＝ 取启动时间 ()
数据 ＝ 双线性插值旋转 (旋转角度, 当前图像)
输出调试文本 (“耗时：” ＋ 到文本 (取启动时间 () － a))
画板2.底图 ＝ 数据

数据 ＝ 位图旋转 (当前图像, 到数值 (编辑框_旋转角度.内容))
输出调试文本 (“耗时：” ＋ 到文本 (取启动时间 () － a))
画板2.底图 ＝ 数据