Ecco di seguito il listato in Pascal che utilizza la grafica della tartaruga nella versione prevista dal modulo precompilato graf.pas (Didattica delle scienze e informatica nella scuola n. 163 genn 1993 O. Casella, S. Grillo, G. Lamartina). Di seguito alcuni commenti.

---

program grafico_sole;
uses graf, crt;

procedure arco(raggio, gra : integer);
var i : integer; lung :real; {disegna un arco con input raggio e angolo}
begin { lunghezza circonf/ 360}
lung:= ((Pi*raggio)/180);
i:=0;
repeat
avanti(lung); destra(1); i:=i+1

{ gira di 1 grado ogni volta}
until i>= ( gra) end;
begin
iniziagrafica; {1} pennasu; sinistra(90); avanti(200); destra(90); pennagiu; {2} arco(200,360); pennasu; tana; pennagiu;
mostratarta(32);
destra(90-23); avanti(400); {tropico}
tana; destra(90-37.5); avanti(250); {raggio Terra filo a piombo}
tana; destra(90); avanti(200); {equatore}
tana; avanti(220); indietro(440); {asse terrestre}
tana; destra(90-37.5); avanti(200); {tarta a Ct}
destra(90); avanti(80); indietro(160); avanti(80); { orizzonte}
asdir(90-23);
avanti(400); indietro(400);
{ raggio di Sole a Ct }
nasconditarta;
readln
end.

---

Le righe 1 e 2 servono a disegnare la circonferenza terrestre con centro nel centro dello schermo. Il comando tana riporta la tartaruga al centro con direzione zero (punta verso l'alto).
Per disegnare il raggio terrestre corrispondente al Tropico (con latitudine 23.45 circa) bisogna eseguire destra(90- 23.45): la latitudine zero e` all'Equatore, mentre la tartaruga misura gli angoli a partire dal polo Nord. Analogamente per disegnare il raggio terrestre alla latitudine di Catania (circa 37.5) bisogna ruotare di (90- 37.5).
Con piccoli programmi analoghi a questo appena presentato si possono ottenere i disegni relativi alle situazioni che si determinano nel solstizio d'inverno e durante ciascun equinozio.