作業玖

主題:小山閃阿閃



size 300 400
forever
{

paper 0 0 40
pen 10 90
set B 0
repeat A 40 5
{
same? A B
{
line A 0 B 0

line 30 (A*3) 10 (B*6)
line 30 (A*4) 20 (B*7)
line 30 (A*5) 30 (B*8)

line 30 (B*3) 10 (A*6)
line 30 (B*4) 20 (A*7)
line 30 (B*5) 30 (A*8)


}

notsame? A B
{

line 100 (B*10) 0 (A*10)
line 200 (B*20) 0 (A*20)
line 300 (B*10) 0 (A*30)

line 100 (A*10) 0 (B*10)
line 200 (A*20) 0 (B*20)
line 300 (A*10) 0 (B*30)

}

}