作業九: same? notsame? 配合其它指令創作- 梯田綠化

梯田綠化






梯田

size 300 250
forever
{
paper 0
pen
set B 50
repeat A 0 100
{
same? A B
{
line A B A 0
line (A*3) 0 (A*2) (B*1)
line (A*4) 0 (A*3) (B*2)
}
notsame? A B
{
line (A*5) 0 (A*4) (B*3)
line (A*4) 5 (A*3) (B*5)
line (A*3) 10 (A*2) (B*1)
}
}
}