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

黑白漏斗

漸成下變化 時間不斷消逝 漸白



老舊電視的雜訊

這創作讓我想起了起前復古的黑白電視機
常常收不到訊號 就會出現雜訊



程式碼

size 400 400
paper 80
fast

command rects x y w h c
{
pen
repeat w (x*w) (c*w)
{
pen
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? 0
{
rects 10 10 (100-)
paper (/4)
}
same? 100
{
rects 10 10 (100-)
}
}