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

光芒






size 400 100
{
paper 100
pen 100 100 0
set B 50
repeat A 0 100
{
same? A B
{
line A 0 A B
line (A*10) 0 (A*10) (B*10)
line (A*20) 0 (A*20) (B*20)
line (A*30) 0 (A*40) (B*30)
line (A*40) 0 (A*50) (B*15)
}
notsame? A B
{
line (A*10) 0 (A*2) (B*2)
line (A*20) 15 (A*20) (B*3)
line (A*30) 25 (A*40) (B*4)
line (A*5) 35 (A*50) (B*15)
}
}
}