画图问题

已注销520760

已经知道矩形4个点坐标   

想画一个立体的矩形

gx8451

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 点x, 整数型, , "0"
.程序集变量 点y, 整数型, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 x, 整数型


清除数组 (点x)
清除数组 (点y)
点x ＝ { 40, 120, 120, 40, 40 }
点y ＝ { 40, 40, 200, 200, 40 }


.子程序 _按钮1_被单击
.局部变量 x, 整数型

.计次循环首 (4, x)
    画板1.画直线 (点x [x], 点y [x], 点x [x ＋ 1], 点y [x ＋ 1])
    画板1.画直线 (点x [x] － 30, 点y [x] － 30, 点x [x ＋ 1] － 30, 点y [x ＋ 1] － 30)
    画板1.画直线 (点x [x], 点y [x], 点x [x] － 30, 点y [x] － 30)

.计次循环尾 ()

梦寻简单

再画一个一模一样的矩形
x-平移长度
y-平移长度

得到坐标连接起来