作業九: 收播囉

size 400 400
forever
{
paper 100
pen 60
set B 50
repeat A 0 100
{
same? A B
{
line A 0 A B
line (A*2) 0 (A*2) (B*2)
line (A*4) 0 (A*4) (B*4)
}
notsame? A B
{
line (A*3) 5 (A*3) (B*3)
line (A*5) 15 (A*5) (B*5)
line (A*7) 25 (A*7) (B*7)
line (A*9) 35 (A*9) (B*9)
line (A*11) 45 (A*11) (B*11)
}
}
}