画板出现织布效果

.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 图片数据, 字节集
调试输出 (位置1 [1], 位置1 [2], 横向位置, 纵向位置)
.如果真 (图片被按下 ＝ 真)
位置1 [1] ＝ 位置1 [1] － (位置2 [1] － 横向位置)
位置1 [2] ＝ 位置1 [2] － (位置2 [2] － 纵向位置)
画板1.清除 (, , , )
画板1.画图片 (图片号, 位置1 [1], 位置1 [2], 画板1.取图片宽度 (图片号), 画板1.取图片高度 (图片号), )
图片被按下 ＝ 假