一筆書きでピラミッドをつくってみたんですが
もっと効率のいい組み方は無いでしょうか

screen 0,400,400 : cls 4 :x=200 : y=100 : xx=-1 : yy=1
color 0,255,0
repeat
pset x,y : x+=xx : y+=yy : a+=1
if a=50 : xx=1 : yy=0
if a=150 : xx=-1 : yy=1
if a=200 : yy=-1
if a=250 : yy=1
if a=300 : xx=1 : yy=0
if a=400 : xx=-1 : yy=1
if a=450 : yy=-1
if a=500 : yy=1
if a=550 : xx=1 : yy=0
if a=750 : xx=-1 : yy=-1
if a=800 : xx=1 : yy=0
if a=900 : xx=-1 : yy=1
if a=950 : xx=1 : yy=0
if a=1050 : xx=-1 : yy=-1
if a=1200 : stop
await 1
loop