作業六 自由創作_紅樓夢

程式碼
// enter program
size 400 600
paper 0
fast

command rpect x y w h c
{
pen 100
line (x-w/x) (y-h/y) (x+w/x) (y-h/y)
line (x+w/x) (y-h/y) (x+w/x) (y+h/y)
line (x+w/x) (y+h/y) (x-w/x) (y+h/y)
line (x-w/x) (y+h/y) (x-w/x) (y-h/y)
}
forever
{
set [＜mouse 1>＜ mouse 2>] ＜mouse 3>
}