un fil à la patte

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.