
size 200 200
paper 50
command square x y s c
{
pen (5*c)(c+12)(2*c-20)
line x y x (y+c)
line x (y+s) (x+y) (y+s)
line (x+s) (y+s) (x+s) y
line (x+s) y x y
}
repeat A 0 18
{
repeat B 0 18
{
square (a*12) (b*15) -20 (100-(A*B))
}
}
repeat A 0 9
{
repeat B 0 9
{
square (a*20) (b*20) 5 (100-(A*B))
}
}
repeat A -1 9
{
repeat B -1 9
{
square (a*40) (b*40) 40 ((a-10)*b*30+20)
}
}
其他顏色



