
to dmn ;多米诺骨牌
cs pu
for i 11  30 [setxy (i-20)*40  0 new pd fd 45 rt 120 fd 25 lt 120 pu ] ;摆放骨牌
for i 1 21 [ repeat 30 [wait 2 prt  i 2]  wait 5 ]  ;翻
end
to dmn1 ;多米诺骨牌1
cs pu
for i 11 30 [new pu fd 150 new pd fd 50 rt 120 fd 13 bk 13 lt 120  pu bk 200 rt 18]
for i 1 20 [ repeat 30 [wait 1 prt  i*2+1 2.8]  wait 5 ]  ;翻
end

