Canvas.ellipse(Trect), résultat bizarre ?Résolu

Question

Vala mon probl&#232;me du jour :

j'ai un Trect, une form et son canvas, et l'envie de dessiner un cercle. Donc pouf, mon trect, j'en fais un carr&#233;, et dans  le onPaint de ma form, zou :

With myform do
begin
    Canvas.Pen.Width:=1;
    Canvas.Ellipse(MyRect)
end;

Et hop. D'apres la doc de delphi, blahblah la fonction ellipse dessine l'ellipse inscrite dans le rectangle, etc etc.... Ouais, ca c'est avec un Pen.width de 1. Des que j'essaye autre chose, blam dans le mur la fonction ellipse, un coup  sur deux elle commence 1 pixel trop tot en top/left et d&#233;borde aussi en bottom/right. 
A croire que la fonction est pas foutue de prendre en compte l'&#233;paisseur du trait.

Ca se corrige un truc comme ca ? (Oui je suis maniac, en plus je m'amuse a faire une capture d'&#233;cran pour verifier que mon ellipse est bien sym&#233;trique, au pixel pres).

Y a pas moyen de tracer un cercle &#224; partir des coords du pixel du centre, et un rayon ?

DeltaFX · Accepted Answer

Bon ben apres tests, c'est toute la fonction de dessin d'ellipse qui me semble foireuse. Je m'explique, une ellispe, meme dans un espace discret (des pixels cote a cote) c'est symetrique, or dans le cas ou l'on donne un Trect qui est carr&#233;, ca plante, elle est pas symetrique.

Alors c'est peut-etre pas important, d'ailleurs Paintshoppro7 a cette tendance aussi, mais pour moi, un cercle c'est  un cercle, et un cercle en pixel il doit se superposer a lui-meme (pixel a pixel) &#224; chaque quart de tour.

florenth · Answer

Salut,
Mauricio avait reconnu ce probl&#232;me il y a quelque temps et avait fourni sa solution au probl&#232;me.
Regardes donc ici : Utilisation de Canvas.Rectangle() 

Il avait fait cela pour dessiner un rectangle avec un Pen.Width > 1 mais je pense que tu peux assez facilement modifier sa proc&#233;drue pour l'adapter au dessin de cercles.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

DeltaFX · Answer

Merci ;)

Adapt&#233; :

procedure DrawInnerEllipse(aCanvas: TCanvas; aRect: TRect);
begin
  if aCanvas.Pen.Width > 1 then
  aRect := RECT(aRect.Left + aCanvas.Pen.Width div 2,
                aRect.Top + aCanvas.Pen.Width div 2,
                aRect.Right +1 -(aCanvas.Pen.Width-1) div 2,
                aRect.Bottom +1 -(aCanvas.Pen.Width-1) div 2);

  aCanvas.Ellipse(aRect);
end;

florenth · Answer

C'est bien d'avoir post&#233; la r&#233;ponse pour ceux qui passeront peut &#234;tre apr&#232;s toi.
Mais alors valide-l&#224;, histoire que l'on sache que ton probl&#232;me est r&#233;solu.

++

Canvas.ellipse(Trect), résultat bizarre ?

4 réponses

Votre réponse

Discussions similaires