旋转一个图像,并且是自绘。
附带算法,要是旋转别的角度自己去想想吧,反正很简单的算法。
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 图片编号, 整数型, , , 图片编号
图片编号 = 载入图片 (#图片1) ' 载入图片
画板1.画图片 (图片编号, 0, 0, 画板1.宽度, 画板1.高度, ) ' 画出图片
按钮2.禁止 = 假 ' 免得错误
.子程序 _按钮2_被单击
.局部变量 A, 整数型, , , 点位置
.局部变量 B, 整数型, , , 点位置
.局部变量 C, 整数型, , , 被点位置A
.局部变量 D, 整数型, , , 被点位置B
.局部变量 F, 整数型, , , 赋值
.局部变量 G, 整数型, , , 赋值
.计次循环首 (画板1.宽度, A)
.计次循环首 (画板1.高度, B)
C = 画板1.宽度 ' 赋值旋转位置
D = 画板1.高度 ' 赋值旋转位置
F = A ' 预定旋转位置
G = B ' 预定旋转位置
C = C - F ' 算法倒转
D = D - G ' 算法倒转
画板2.画点 (C, D, 画板1.取点 (A, B)) ' 开始自绘倒转图像
.计次循环尾 ()
.计次循环尾 ()