pc logo地球绕太阳转怎么画(动画）

TO xQ :c :r
setpc :c pd (stampoval :r :r "true)
END
TO yd :j
pd xq 9 20 rt :J pu fd 50 rt 90 pd xq 8 10 wait 15 xq 15 10 lt 90 bk 50 lt :J xq 15 20
pu rt 2.5 fd 200*0.0872 rt 2.5
yd :j+15
END
to ryx ;日月星
draw pd xq 12 50 pu fd 200 rt 90 yd 0
end
cs ryx