作業九: 應用 判斷 same? notsame? 結構式 配合其它的指令創作

像是漁網一樣

滑鼠往右 網子就往左

像是一場追足戰(詳見影片)

size 400 400

paper 80

fast

command rects x y w h c

{

pen c

repeat w (5*(-w)) (5*(w))

{

pen c

line (y+h/800) (x-w/600) (y+h) (y+w)

}

}

forever

{

same? 0

{

rects 10 10 (100-)

paper (/4)

}

same? 100

{

rects 10 10 (100-)

}

}