【作業六】 Mouse-paint ─自畫像&自由創作

自畫像

























size 400 400
paper 100


command rect x y w
{
set [＜mouse 1>＜ mouse 2>] ＜mouse 3>

}
forever
{
rect ＜mouse 1>＜ mouse 2>]＜mouse 3>

}


自由創作



























size 400 400
paper 0


command rect x y w
{
set [＜mouse 1>＜ mouse 2>] ＜mouse 3>

}
forever
{
rect ＜mouse 1>＜ mouse 2>]＜mouse 3>

}