作業七: 應用 Mouse-1-2-3 配合Time 4 --> 創作

河流






size 400 400
paper 100
fast
command rect x y w h c
{
pen 60 70
line (x-w/3) (y-h/3) (x+w/3) (y-h/3)
line (x+w/2) (y-h/2) (x+w/2) (y+h/2)
line (x+w/2) (y+h/2) (x-w/2) (y+h/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}
forever
{

same? 100

{
rect 50 20
}
}