j'ai fais bon usage du code mais je ne parviens pas à me debarasser de l'element parasite qui gene un peu lorqu'on veut jouer sur la translation
ou le rotation de la figure

Code:

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,h rem coordonnées du centre x0=250 Y0=200 rem rayon r=100 rem nombre de côtés n%=5 rem angle de début a=10 Pi = 3.1415926535898 Px = r * Cos(a) + x0 Py = r * Sin(a) + y0 2D_poly_from Px,Py for h= 1 to 20 For j% = 0 To n%+1     Px2 = r*Cos(a + 2*Pi*j%/n%) + x0     Py2 = r*Sin(a + 2*Pi*j%/n%) + y0     2D_poly_to Px, Py     Px = Px2     Py = Py2 Next j% wait 500:cls a=a+1 next h

Je n'ai pas approfondi pourquoi, mais c'est ton polygone qui est mal dessiné dès h = 2
Mets
For h = 1 to 2
et rajoute
MESSAGE ""
après le Next j%, pour voir

J'ai un peu remanié ton programme:

Code:

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h Pi = 4*ATN(1) rem coordonnées du centre x0=250 Y0=200 rem rayon r=100 rem nombre de côtés n%=5 a1 = 2*Pi/n%: ' angle de rotation de chaque côté rem angle de début a0=10 for h = 1 to 20     Px = r * Cos(a0) + x0     Py = r * Sin(a0) + y0     2D_poly_from Px,Py     a = a0     For j% = 1 To n%         a = a + a1         Px = r*Cos(a) + x0         Py = r*Sin(a) + y0         2D_poly_to Px, Py     Next j%     wait 300: cls     a0 = a0 + 1 next h END

A noter, le Pi = 4*ATN(1), bien pratique.

Merci JL35 pour tes lumieres.
Le code est derive de celui que m'a fourni Jack .
Ton amelioration fonctionne tres bien en translation et en rotation.
Mais on en veut toujours plus.
Du polygone on arrive au cercle,puis a une hellipse.
Et je retrouve mon fil a la patte:
[code]
dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w,p
Pi = 4*ATN(1)
p=1
width 0,2000
rem coordonnées du centre
x0=250
Y0=200

rem rayon
r=200

rem nombre de côtés
n%=55
a1 = 2*Pi/n%: ' angle de rotation de chaque côté

rem angle de début
a0=10
for w=1 to 10
for h = 1 to 2
Px = r * Cos(a0) + x0
Py = r * Sin(a0) + y0
2D_poly_from Px,Py
a = a0
For j% = 1 To n%
a = a + a1
Px = r*Cos(a) + x0
Py = r/p*Sin(a) + y0
2D_poly_to Px, Py
Next j%
wait 300:cls
a0 = a0 + 1
next h

p=p+pi/6
next w
END

Ma trigo est bien loin... je te laisse chercher un peu pour le moment...

Je viens de trouver par hazard.
Jai bien ete aide il faut le dire

Code:

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w Pi = 4*ATN(1) w=1 rem coordonnées du centre x0=750 Y0=500 width 0,1500 height 0,1000 rem rayon r=500 rem nombre de côtés n%=80 a1 =( 2*Pi/n%)/w: ' angle de rotation de chaque côté rem angle de début a0=1 for h = 1 to 120     Px = r * Cos(a0) + x0     Py = r/w * Sin(a0) + y0     2D_poly_from px,py     a = a0     For j% = 0 To n%         a = a + a1         Px = r*Cos(a) + x0         Py = r/w*Sin(a) + y0         2D_poly_to Px, Py     Next j%     wait 100     cls     a0 = a0 + 1     w=w+0.1 next h END

maintenant je vais pouvoir creer des objets et les animer.!!!

C'est quand même plus joli comme ça !
Si tu enlèves le cls c'est joli aussi.