作業九: 應用 判斷 same? notsame? 結構式 配合其它的指令創作

迷幻





程式碼
size 300 300
forever
{
paper 100
pen 80 40
set B 10
repeat A 0 100
{
same? A B
{
line A 0 A B
line (B*2) 0 (B*2) (A*2)
line (B*3) 0 (B*3) (A*3)
line (B*4) 0 (B*4) (A*4)
line (B*5) 0 (B*5) (A*5)
line (B*6) 0 (B*6) (A*6)

}
notsame? A B
{
line (A*1) 45 (B*1) (A*1)
line (A*2) 40 (B*2) (A*2)
line (A*3) 35 (B*3) (A*3)

line (A*6) 20 (B*6) (A*6)
line (A*7) 15 (B*7) (A*7)
line (A*8) 10 (B*8) (A*8)
line (A*9) 5 (B*9) (A*9)
line (A*9) 0 (B*10) (A*10)

}
}
}