作業9

程式碼:

size 300 300

forever

{

paper 100 100 100
pan 90 10

set B 70

repeat A 0 100

{

same?A B

{

line A 0 A B

line(a*2) 0 (a*2) (b*2)

line(a*3) 0 (a*3) (b*3)

line(a*5) 0 (a*5) (b*5)

}

notsame? A B

{

line(a*2) 0 (a*2) (b*2)

line(a*4) 10 (a*4) (b*4)

line(a*7) 25 (a*7) (b*7)

line(a*10) 40 (a*10) (b*10)

line(a*12) 50 (a*12) (a*12)

line 30(a*6) (b*3) (a*6)

line 200 (a*10) (b*10) (a*10)

}

}

}