1000Polygones emboîtés800800créer une liste avec                              glissNn = 31051glissNBnombre = 15051glissRrayon = 104003001glissCOEFcoefficient = -1100.01glissROTrotation = 0500.010formatfixeralphaàCréer glissière+valeurtitreminimummaximumvaleur initialepasInsérer un saut de ligneCréer glissière+valeurtitreminimummaximumvaleur initialepasInsérer un saut de ligneCréer glissière+valeurtitreminimummaximumvaleur initialepasInsérer un saut de ligneCréer glissière+valeurtitreminimummaximumvaleur initialepasInsérer un saut de ligneCréer glissière+valeurtitreminimummaximumvaleur initialepasInsérer un saut de lignefixercouleursàCanevas : dim horizontaledimension verticaleAxes du canevas de typemathématique (origine au centre)Créer un titrecontenantDisposerau centreles objets dans une page web de largeurpixelspouractions initiales pourpolygones emboitésavec : n, nombre, rayon, coeff, x, y, alphacoeff180n÷×1nombre1icouleurslongueur dereste de÷couleursélément numérode la listexrayonalphacos×+yrayonalphasin×+1n1xrayonj360n÷×alpha+cos×+yrayonj360n÷×alpha+sin×+aller au point (,)rayon180n÷cos×thetacos÷alpha180n÷+theta+fixeralphaàfixerrayonàTerminer le polygonebouclejde minà maxavec pasfairesauter au point (,)Débuter le polygoneremplissageboucleide minà maxavec pasfairefixerthetaà   position en X de la souris400-400position en Y de la souris-le bouton de la souris est enfoncéxvaleur absolue400<yvaleur absolue400<etetpas00fixeryàfixerxàalphaglissROTvaleur de+nnombrerayoncoeffxyalphapolygones emboitésavec :glissNvaleur deglissNBvaleur deglissRvaleur deglissCOEFvaleur dexyalphafixeralphaàsifairefixeryàfixerxàfondpouractions en boucle glissNlargeur500pxglissNBlargeur500pxglissCOEFlargeur500pxglissRlargeur500pxglissROTlargeur500pxglissCOEFtaille-caractère36pxglissNtaille-caractère36pxglissNBtaille-caractère36pxglissRtaille-caractère36pxglissROTtaille-caractère36pxPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurPour l'objetstylevaleurpourformat 
Exécuter