【作業四】command square 結構綜合設計-編織

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)
}
}


其他顏色