作業五----

size 400 400
paper 10

repeat x 0 400
{
pen (()*10)((%10)*20)((*10)%25)
line 200 200 400 x
line 200 200 0 x
line 200 200 x 400
line 200 200 x 0
}

repeat x 0 200
{
pen 10 10
line 100 100 200 x
line 100 100 0 x
line 100 100 x 200
line 100 100 x 0

pen 50 10
line 300 100 200 x
line 300 100 400 x

pen 50 10
line 100 300 x 200
line x 400 100 300

}
repeat x 200 400
{

pen 50 10
line 300 100 x 0
line 300 100 x 200

pen 50 10
line 200 x 100 300
line 0 x 100 0300

pen 10 10
line 300 300 x 400
line 300 300 x 200
line 300 300 200 x
line 300 300 400 x
}

repeat x 400 0
{
pen 10 (*20)
line 300 300 400 x
line 300 300 0 x
line 300 300 x 400
line 300 300 x 0
}