作業五:時間變化

//設定畫布大小
size 200 200
//設定背景

repeat w 0 100
{
paper (/8) (*1) (/w)
}

//利用時間控制
repeat y 0 9
{
repeat x 0 200
{
repeat z 100 200
{

pen (x/4) (y*10)
line (100-z) ((y*z)*2) (z+100) (((y+1)*z)*2)

pen (x*5) (y/2)
line (250-z) ((y*z)*5) (0-z) (((y+1)*z)*5)

}
refresh
repeat q 0 200
{
pen q
line 0 q q 0
pen q
line 200 (200-q) (200-q) 200
}
//設計一個以中心點為座標的空心方形
command rect a b c d e
{
pen e (e/2) (e*10)
line (a-c/2) (b-d/2) (a+c/2) (b-d/2)
line (a+c/2) (b-d/2) (a+c/2) (b+d/2)
line (a+c/2) (b+d/2) (a-c/2) (b+d/2)
line (a-c/2) (b+d/2) (a-c/2) (b-d/2)

}

repeat v1 0 200
{
rect 100 100 v1 v1
}
repeat q 0 200
{
pen q
line (q+200) 0 0 (q+200)
pen q
line 0 (200-q) (200-q) 0
}
}

}