自绘旋转图片源码

旋转一个图像，并且是自绘。

附带算法，要是旋转别的角度自己去想想吧，反正很简单的算法。

.版本 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))  ' 开始自绘倒转图像
    .计次循环尾 ()
.计次循环尾 ()

@Fleey