作業4 - 階梯

size 300 300

paper 100

command square x y s c

{

pen c

line x (x) (x+x) (y+x)

line x x (x) y

}

repeat A 0 20

{

repeat B -10 0

{

square (A*20) (B*10+10) 10 (A+B*20)

}

}

repeat A 0 30

{

repeat B 20 -50

{

square (A*20) (B*10) 5 (A+B*20)

}

}