Discussion :

[Annibal]

Bonjour,

J'essaye de "dessiner" un cercle sur un DrawGrid comme présenté sur la figure dessous. Ceci doit étre réaliser avec un code en Delphi bien évidemment et non par la souris par exemple. Dans l'image en PJ j'ai fait un "zoom in" pour que vous poussiez analyser la situation. Chaque cellule (en rouge) ne doit avoir que 2 cellules voisines de 8 cellues autour d'elle. Dans le cas réel, ce DrawGrid aura comme largeur de cellule 1mm, donc je ne cherche pas vraiment un cercle "parfait" (comme le cercle en bleu) mais une bonne approximation de façon après faire un "zoom out" je vois presque un cercle parfait.

Alors, j'ai codé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
procedure TForm10.okClick(Sender: TObject);
var
x,y,r,i,k1,k2:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit1.Text);
r:=strtoint(edit3.Text);
if (r<0) then
MessageBox(0,'Erreur : Rayon négatif !','Attention !',MB_OK)
else
begin
k1:=x;
k2:=y+r;
for i:=0 to r do
  begin
  form7.dg.canvas.brush.color := clyellow;
  rect := form7.dg.CellRect(k1,k2);
  form7.dg.Canvas.FillRect(rect);
  k1:=k1+1;
  k2:=k2-1;
  end;
 
for i:=0 to r do
  begin
  form7.dg.canvas.brush.color := clyellow;
  rect := form7.dg.CellRect(k1,k2);
  form7.dg.Canvas.FillRect(rect);
  k1:=k1-1;
  k2:=k2-1;
  end;
for i:=0 to r do
  begin
  form7.dg.canvas.brush.color := clyellow;
  rect := form7.dg.CellRect(k1,k2);
  form7.dg.Canvas.FillRect(rect);
  k1:=k1-1;
  k2:=k2+1;
  end;
for i:=0 to r do
  begin
  form7.dg.canvas.brush.color := clyellow;
  rect := form7.dg.CellRect(k1,k2);
  form7.dg.Canvas.FillRect(rect);
  k1:=k1+1;
  k2:=k2+1;
  end;
end;
 
end;

Mais ce code trace un losange

Les données à fournir par l'utilisateur pour tracer le cercle sont X et Y coordonnées du centre du cercle et R le rayon.

J'ai essayé d'utilse une équation paramétrique d'un cercle mais toujours bloqué.

Avez-vous une proposition (ou un code pourquoi pas ^^) pour améliorer le code au-dessus ou pour recommencer dès le début SVP ?

Merci d'avance.

[ShaiLeTroll]

Pourquoi ne pas appliquer Pythagore ?

En Pseudo Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
for CurrX := 0 to MaxX do
begin
  for CurrY := 0 to MaxY do
  begin
    if Sqr(CentreX - CurrX) + Sqr(CentreY - CurrY) <= Sqr(R) then
    begin
      DessinePastille
    end
  end;
end;

Cela va te remplir tout le disque, ... à toi de trouver la fourchette qui fera que cela ne remplira que le cercle ... genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if (Sqr(CentreX - CurrX) + Sqr(CentreY - CurrY) <= Sqr(R) * 0.95)
and (Sqr(CentreX - CurrX) + Sqr(CentreY - CurrY) <= Sqr(R) * 1.05) then

à la place de la fourchette, tu peux aussi vérifier les 4 Pastilles à coté ...

[Archimède]

le mieux pour tracer un cercle, est de raisonner en coordonnées polaires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
x:=O.x+round(R*cos teta);
y:=O.y+round(R*sin teta);

R représentera ton rayon en nombre de cases.

O un tpoint, le centre de ton cercle (coordonnées d'une case Oarow,Oacol)
dans ta drawgrid
x et y seront les coordonnées des cases qui représentent le cercle.

tu fais évoluer teta de 0 à 2 pi avec for to do et tu colories tes cases avec des fillrect.

[Graffito]

Bonjour,

Si on est pas géné par le temps de calcul, on crée une liste de cellules candidates qui sont l'ensemble des cellules du plan telles que la distance de leur centre au cercle soit inférieure ou égale au coté de la cellule.

Ensuite on traite la liste, jusqu'à ce qu'elle soit vide, de la façon suivante :

• on valide la cellule de la liste dont le centre est le plus proche du cercle. En triant la liste sur la distance du centre de la cellule au cercle, il suffit de prendre le premier candidat.
• on élimine de la liste la cellule retenue et les candidats restants devenus inadéquats (ceux qui ont plus de 2 cellules déjà tracées contigues). En fait si la liste est triée, il suffit au moment de traiter la case suivante de la liste de vérifier si elle reste toujours Ok en testant son nombre de voisins, et en cas d'échec on passe au suivant.

[ShaiLeTroll]

L'Idée d'exclusion de Graffito est pas mal, le calcul de distance peu se faire via Pythagore

Pour le Sin\Cosinus, effectivement, c'est comme cela que j'ai procédé pour faire une horloge analogique sur mon HP48Gx il y a bien cela 10ans ... faudrait qu'un jour, je le refasse en delphi ...

PS : Form10, Form7, ça va tu t'y retrouves, pense à prendre l'habitude de nommer tes labels, bouton, formulaire, ..

[Paul TOTH]

Le mieux c'est de dessiner un polygone avec suffisamment de segments pour lui donner l'apparence d'un cercle

j'ai fait ça y'a déjà fort longtemps dans DOSBOX par exemple. Pour le tracé de chaque segment on prendra l'algorithme de bresenham qui donne cet effet d'escalier recherché.

[tourlourou]

un exemple d'implémentation de l'algo de Bresenham par firejoker sur Phidels.com : http://www.phidels.com/php/index.php...u=dessin#id609

[Annibal]

Bonjour,

Merci à vous !

@ ShaiLeTroll >> nickel disque plein ^^ mais du coup, la fourchette ne fonctionne pas correctement. Enfait j'ai mis l'application zippée en PJ, elle fonctionne pour une valeur de rayon =15 parfaitement mais si je change R=16 alors là j'ai un cercle non continu (ya des cellules qui n'ont qu'un seul voisin). En plus si j'augmente R, parfois j'aurais des cellules qui ont plus que 2 voisins. Aussi pour R<15 cela ne fonctionne pas (bon oublions R<15 pour le moment car je n'ai pas besoin de cercles de rayon inférieur à 15).

J'ai remis tas solution deux fois successive pour vider le disque de façon que j'ai jouer sur les valeurs de la fourchette de façon que je dessine un disque blanc dans le disque rouge inférieur à lui d'un seul pas. bon à re-voir ceci dans ce code (il est commenté déjà).

Donc je veux tracer un cercle de R=16 ou plus en respectant la condition mentionnée dans mon poste initiale : chaque cellule DOIT avoir QUE 2 seules cellules voisines.



@ Archimède >> Hum .. là j'ai déjà pensé aussi aux coordonnées polaires (malgré que j'ai "sautté" le préparatoire dans mon cursus ). Mais je dois dans ce cas évoluer téta. La boucle FOR n'accepte que le type entier comme compteur, donc j'ai lancer un "i" de 0 à 360 en augmentant téta chaque fois mais j'ai pas eu le cercle malgré tout
puis-je voir une petite boucle illustant ton idée STP ? car là, je vois pas trop comment rédiger ce que tu viens de dire.

Et pour les autres postes, je n'ai pas lu que les deux premiers postes , donc je vais jetter un oeil ce soir et je vous tiendrais au courant demain ! Merci pour vous tous.


A+