Pattern -刺繡

程式碼 :
　

size 100 100 2


Repeat a 0 100
{
pen 30 (a-10)(a*120)
line 0 a 100 a
}


Repeat a 0 10
{
pen 0

line 0 ((10-a)*10+10) 100 (a*10+10)

line ((10-a)*10+10) 0 (a*10+10) 100

line 0 ((10-a)*10-10) 100 (a*10-10)

line ((10-a)*10-10) 0 (a*10-10) 100

}