Quadrillage dans un cercleRésolu

Question

Bonjour à Tous,

J'aurai besoin de savoir comment tracer un quadrillage dans un cercle avec Line(x1,y1)-(x2,y2).
Pour faire une croix ou tracer des rayons c'est facile mais je n'ai pas assez de notions en géométrie pour tracer un quadrillage. J'ai besoin également de connaitre l'angle des bouts de lignes inscrits dans le cercle, mais cela je sais le faire avec Atn() à placer dans le bon quadrant car, selon les besoins, l'angle quadrillage pourra varier. Le nombre de lignes du quadrillage est variable mais égal dans les deux axes.

Merci de bien vouloir me dépanner  Bonne journée.

 Cheyenne
--

vb95 · Answer

Bonjour 
Une piste pour ton problème ( dommage je ne fais que du VB Net )
Tu traces un cercle sur une feuille de papier 
Tu traces un diamètre horizontalement : ce diamètre va nous servir de base pour les lignes verticales du quadrillage
En trigonométrie on considère que le rayon vaut 1 donc le diamètre vaut 2

Supposes qu'en vertical tu désires 5 lignes de quadrillage : donc il faut diviser ton diamètre en 6 portions et tu auras 7 points et chaque portion vaut 2/6 du rayon 

-1       -0.66      -0.33       0        +0.33       +0.66        +1

Le point 0 est le centre du cercle

Le problème est de connaître la longueur d'une ligne de quadrillage qui passe par ces points en vertical

Prenons la ligne verticale qui passe par le point -0.33 ou + 0.33 : sa longueur est égale à 2 * sin(0.33) * rayon



il faut faire ainsi pour toutes les lignes verticales du quadrillage.
Pour les lignes horizontales du quadrillage c'est le cosinus qu'il faut prendre dans la formule
La formule devient 
Line(PX - (cos(0.33) * rayon),PY)-(PX + (cos(0.33) * rayon),PY)


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

cs_ShayW · Answer

Bonjour 
En cherchant dans mes archives ...
J'avais jadis dessiné  un radar  representé par un cercle quadrillé

radarbox est un picturebox 
Private Sub DrawGrid()Dim x1, x2, y1, y2 As IntegerDim angle As IntegerDim segment As Integersegment = 3centerx = Me.radarbox.Width / 2centery = Me.radarbox.Height / 2Me.radarbox.FillStyle = 0Me.radarbox.Circle (centerx, centery), radiusradar, RGB(0, 0, 255)For angle = segment To 180 - segment Step segment   x1 = centerx + (radiusradar) * Cos(DegreeToRad(angle))  y1 = centery + (radiusradar) * Sin(DegreeToRad(angle))  x2 = centerx + (radiusradar) * Cos(DegreeToRad(-angle))  y2 = centery + (radiusradar) * Sin(DegreeToRad(-angle))   Me.radarbox.Line (x1, y1)-(x2, y2), RGB(0, 0, 255)Next angleFor angle = 90 - segment To -(90 - segment) Step -segment   x1 = (radiusradar) * Cos(DegreeToRad(angle)) + centerx   y1 = (radiusradar) * Sin(DegreeToRad(angle)) + centery   x2 = (radiusradar) * Cos(DegreeToRad(180 - angle)) + centerx   y2 = (radiusradar) * Sin(DegreeToRad(180 - angle)) + centery   Me.radarbox.Line (x1, y1)-(x2, y2), RGB(0, 0, 255)Next angleEnd Sub

cs_cheyenne · Answer

Bonjour ShayW,

Merci pour ton code qui m'a permis de bien comprendre la façon de procéder en plus des explications de vb95.
C'est exactement ce que je cherchais à faire.

Cheyenne

Quadrillage dans un cercle

3 réponses

Votre réponse

Discussions similaires