Tracé de polygone
Contenu du snippet
Ce petit code permet très simplement de tracer un polygône à n faces, de rayon r, de centre (x0,y0) et d'angle a.
La sortie se fait sur un contrôle picture dont j'ai changé le système de coordonnées :
scaleleft = -20
scaletop = 20
scalewidth = 40
scaleheight = -40
Source / Exemple :
Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n
Px2 = Val(r) * Cos(a + 2 * Pi * j / n) + x0
Py2 = Val(r) * Sin(a + 2 * Pi * j / n) + y0
Picture1.Line (Px, Py)-(Px2, Py2)
Px = Px2
Py = Py2
Next j
Conclusion :
La sortie se fait sur un contrôle picture dont j'ai changé le système de coordonnées :
scaleleft = -20
scaletop = 20
scalewidth = 40
scaleheight = -40
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.