Discussion :

[SergioMaster]

Bonjour

Je sais que certains me considèrent comme le plus pointu sur les Tpaths mais il y a encore beaucoup de choses qui m'échappent.

Je veux dessiner un polygone

Code XML :

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

1
2
3
4
<svg viewBox="0 0 200 100" xmlns="http://www.w3.org/2000/svg">
  <!-- Exemple d'un polygone avec le remplissage par défaut -->
  <polygon points="0,100 50,25 50,75 100,0" />
</svg>

Seulement voilà mon résultat n'est pas bon , tout d'abord il est "à l'envers"



et il prend tout l'espace au lieu d'être limité à la zone comme le montre les deux composants tiers

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
procedure TLoadSVGForm.SVGPolygone(aNode: IXMLNode; LytParent: TLayout; F : TBrush=nil; S : TStrokeBrush=nil);
var val : String;
    vals,vpoint : TArray<String>;
    aPoint : TPointF;
    i : Integer;
    ChildPath : Tpath;
begin
  ChildPath:=TPath.Create(lytParent);
  ChildPath.Parent:=lytParent;
  ChildPath.WrapMode:=TPathWrapMode.Stretch; 
  ChildPath.Align:=TAlignLayout.Contents;
  val:=Trim(anode.Attributes['points']);
  // retire la mise en forme
  val:=StringReplace(val,#$A,' ',[rfReplaceAll]);
  val:=Trim(val); // pour être sur de commencer avec le premier point
  vals:=val.Split([' ']);
  for I := Low(vals) to High(vals) do
    begin
       if not vals[i].isempty then  // c'est un point
         begin
           vpoint:=Vals[i].Split([',']);
           aPoint:=TPointF.Zero;
           aPoint.y:=StrToFloatDef(vpoint[0],0,USFormatSettings);
           aPoint.x:=StrToFloatDef(vpoint[1],0,USFormatSettings);
           if i>0 then ChildPath.Data.LineTo(aPoint)
                  else ChildPath.Data.MoveTo(aPoint);
         end;
    end;
  ChildPath.Data.ClosePath;
end;

c'est encore plus flagrant avec

Code XML :

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

1
2
3
4
5
6
7
<svg viewBox="0 0 200 100" xmlns="http://www.w3.org/2000/svg">
  <!-- Exemple d'un polygone avec le remplissage par défaut -->
  <polygon points="0,100 50,25 50,75 100,0" />
 
  <!-- Le même polygone sans remplissage et avec un contour -->
  <polygon points="100,100 150,25 150,75 200,0" fill="none" stroke="red" />
</svg>

Jouer sur ChildPath.WrapMode ne fonctionne pas.

[SergioMaster]

Premier élément de réponse pour corriger le "à l'envers"
je me suis tout bêtement planté entre les coordonnées x et y

Code :

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

1
2
  aPoint.x:=StrToFloatDef(vpoint[0],0,USFormatSettings);
           aPoint.y:=StrToFloatDef(vpoint[1],0,USFormatSettings);

[Paul TOTH]

sur TPath tu as la propriété WrapMode pour déterminer comme la forme est dessinée

NB: il y a un bug sur le mode Fit car il utilise GetBounds qui est buggé https://quality.embarcadero.com/browse/RSP-24659 il ne tient pas compte des courbes de Bézier, du coup les dimensions ne sont pas bonnes

[SergioMaster]

Bon, cette partie est résolue (ou presque)

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
 
  Childpath.Data.MoveTo(Tpointf.Zero); // se poistionner au point 0,0 équivalment de M
  for I := Low(vals) to High(vals) do
    begin
       if not vals[i].isempty then  // c'est un point
         begin
           vpoint:=Vals[i].Split([',']);
           aPoint:=TPointF.Zero;
           aPoint.x:=StrToFloatDef(vpoint[0],0,USFormatSettings);
           aPoint.y:=StrToFloatDef(vpoint[1],0,USFormatSettings);
           if i>0 then ChildPath.Data.LineTo(aPoint)
                  else ChildPath.Data.MoveTo(aPoint);
         end;
    end;
 ChildPath.Data.ClosePath; // fermer le dessin 
 {todo : mémoriser la fenêtre (viewBox="0 0 200 100") }  
 Childpath.Data.MoveTo(Tpointf.Create(200,100)); // se positionner en bas à droite

même s'il semble que le pourtour soit un peu fin, je mets pour cette partie (j'en ai d'autres sous le coude, désormais, je vais m'attaquer aux translation, rotation et échelle

[SergioMaster]

sur TPath tu as la propriété WrapMode pour déterminer comme la forme est dessinée

j'avais déjà tenté, pas la bonne piste

NB: il y a un bug sur le mode Fit car il utilise GetBounds qui est buggé https://quality.embarcadero.com/browse/RSP-24659 il ne tient pas compte des courbes de Bézier, du coup les dimensions ne sont pas bonnes

Pour ce qui est des courbes de Bézier, j'avais déjà fait le nécessaire (modification des sources) pour la 10.3, c'est maintenant corrigé en 11.2.
Je n'ai pas vérifié cette histoire de Fit et surtout de Getbounds , affaire à suivre.

[pprem]

va falloir qu'on se le fasse ce LOGO pour dessiner des TPath

[ALWEBER]

Pourquoi pas une triangulation de delauney pour simplifier ton dessin ?