DirectX2D支持库图片快速缩放移动例程

.如果 (文件是否存在 (取运行目录 () ＋ “\1.bmp”))
比例 ＝ 50 ' 这里修改放大倍数，这个数值越小，放大倍数越大,100为1:1显示
LDX ＝ { 50, 0, 50, 50, 100, 0, 100, 100, 0 } ' 这是顺序目的地坐标的地位，X轴的百分比位置
LDY ＝ { 50, 0, 100, 0, 0, 100, 50, 100, 50 } ' Y轴的百分比位置
LD ＝ 1
显示光标 (假)
系统屏幕.创建全屏模式 (取窗口句柄 (), 800, 600, 32, 真)
资源页面.建位图页面 (系统屏幕, 取运行目录 () ＋ “\1.bmp”, )
后台页面 ＝ 系统屏幕.取后台页面 ()
图片X ＝ 资源页面.取宽度 () － 8 × 比例
图片Y ＝ 资源页面.取高度 () － 6 × 比例
OX ＝ LDX [LD]
OY ＝ LDY [LD]
设置矩形 (LDX [LD], LDY [LD])
资源页面.拉伸块复制 (后台页面, 0, 0, 页面大小, 800, 600)
系统屏幕.交换页面 (假, 假, 假)
输入设备1.初始化 (取窗口句柄 ())
输入设备1.置刷新时间 (16)
.否则
信息框 (“资源文件出错，程序退出！”, 0, )

.判断循环首 (循环 ＜ 19)
时间 ＝ 取启动时间 ()
循环 ＝ 循环 ＋ 1
累加 ＝ 累加 ＋ 循环
设置矩形 (CX ＋ (MX － CX) ÷ 19 ÷ 20 × 累加, CY ＋ (MY － CY) ÷ 19 ÷ 20 × 累加)
资源页面.拉伸块复制 (后台页面, 0, 0, 页面大小, 800, 600)
系统屏幕.交换页面 (假, 假, 假)
.判断循环首 (取启动时间 () － 时间 ＜ 15)
输出调试文本 (“等待中。。。”) ' 这个用来测速，实践表明，这个缩放比画板缩放快多了
.判断循环尾 ()
.判断循环尾 ()
.判断循环首 (循环 ＞ 0)
时间 ＝ 取启动时间 ()
累加 ＝ 累加 ＋ 循环
设置矩形 (CX ＋ (MX － CX) ÷ 19 ÷ 20 × 累加, CY ＋ (MY － CY) ÷ 19 ÷ 20 × 累加)
资源页面.拉伸块复制 (后台页面, 0, 0, 页面大小, 800, 600)
系统屏幕.交换页面 (假, 假, 假)
循环 ＝ 循环 － 1
.判断循环首 (取启动时间 () － 时间 ＜ 15)
输出调试文本 (“等待中。。。”)
.判断循环尾 ()
.判断循环尾 ()