grComparatifPositionSérie(GRF_SansNom1, 1, grADroite)
grComparatifPositionSérie(GRF_SansNom1, 2, grAGauche)
grCouleurSérie(GRF_SansNom1, 1, DonneCouleur())
grCouleurSérie(GRF_SansNom1, 2, DonneCouleur())
rDroite est un réel
rGauche est un réel
nRayon est un entier = 250
POUR n = 1 À 360
rDroite = nRayon + nRayon * Cosinus(n)
rGauche = nRayon + nRayon * Sinus(n + 180)
grAjouteDonnée(GRF_SansNom1, 1, n, rDroite)
grAjouteDonnée(GRF_SansNom1, 2, n, rGauche)
grEtiquetteCatégorie(GRF_SansNom1, n, n)
FIN
grDessine(GRF_SansNom1)