作業5 - 鑽石

size 400 400
paper 0

//紅
repeat x 0 400
{
pen 5 (*20)
line 400 400 x 0
line 0 400 x 0
}

set a 400
//藍
repeat x 0 400
{
pen 5 (*20)
line (a/2) 200 x 400
}

set a 400
//橘
repeat x 400 0
{
pen 100 (*20)
line (a/2) 200 400 x
}

set a 400
//綠
repeat x 400 0
{
pen 0 (*20)
line (a/2) 200 x 0
}


set a 400
//粉紅
repeat x 0 400
{
pen 100 90
line (a/2) 200 0 x
}


set a 400
//鑽石
repeat x 0 400
{
pen 45 (*20)
line (a/2) 0 x 225
line (a/2) 400 x 225

}