Cómo el logotipo de Pc dibuja la tierra alrededor del sol (animación)
A xQ :c :r
setpc :c pd (stampoval :r :r "true)
Fin
A yd:j
PD xq 9 20 rt:J pu FD 50 rt 90 PD xq 8 10wait 15 xq 15 10 lt 90 bk 50 lt:J xq 15 20
pu rt 2.5 fd 200*0.0872 rt 2.5< / p>
yd :j+15
Fin
A ryx sol, luna y estrella
Dibujar pd xq 12 50 pu fd 200 rt 90 yd 0
Fin
cs ryx