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

以帆船作發想 背景改為黑色夜空 更凸顯帆船的顏色 自由徜徉

size 200 500
paper 0 0 0

fast

command rects x y w h r g b
{
pen b
repeat w1 10 60
{
pen (r+50) (g+90) b
line (x+w1) (h+w/80) (x/(w1*80)) (y+h/2)
line (x+(w/8)) (y-(9*(w))) (x+(w/2)) (y+(5*(w))/3)

}
}

forever

{
same? 100

{
rects 100 300

}
}