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

展開光譜








size 300 300
forever
{
paper 0 0 7
pen 90 10
set B 50
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) 4 (B*1) (A*1)
line (A*2) 2 (B*2) (A*2)
line (A*3) 3 (B*3) (A*3)

line (A*6) 280 (B*6) (A*6)
line (A*7) 180 (B*7) (A*7)
line (A*8) 80 (B*8) (A*8)
line (A*9) 8(B*9) (A*9)
line (A*10) 0(B*10) (A*10)


}
}
}