FMX.PathData, rotation d'un élément

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

plus ou moins promis voilà le problème de la rotation d'un élément plus ou moins résolu, mais il va falloir m'expliquer ce que j'ai fini par trouver après moult tests :aie:

dans le projet (réduit) joint dans le zip je dessine cette fameuse hermine bretonne dont le fichier SVG est le suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
 
<?xml version="1.0" encoding="UTF-8"?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="1350" height="900">
	<rect width="1350" height="900" fill="#aaa"/>
 
	<path d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z" fill="#000"/>
	<path d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z" fill="#000" transform="rotate(-90 300,167.5)"/>
	<path d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z" fill="#000" transform="rotate(90 300,167.5)"/>
        <path d="M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z" fill="#000"/>
 
 </svg>

Par tâtonnements successifs j'ai bien fini par l'obtenir en utilisant le code suivant

Code:

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
 
// je ne m'occupe pas du rectangle blanc
procedure TForm80.btnHermineClick(Sender: TObject);
var s : String;
    n : single;
    aP,al,ar : Tpath;  // ap triangle haut, al triangle gauche, ar triangle droit
    M : TMatrix;
 
begin
 ap:=Tpath.Create(Self);
 al:=Tpath.Create(Self);
 ar:=Tpath.Create(Self);
 try
 
  aP.Data.Data:='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
  al.Data.Data:=ap.Data.Data;
  ar.Data.Data:=ap.Data.Data;
 
  Path1.Fill.Color:=Talphacolors.Black;
  Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';
 
  Path1.Data.AddPath(ap.data);
 
    m:=Tmatrix.CreateTranslation(-300,-167.5);
    al.data.applymatrix(m);
    M := TMatrix.CreateRotation(30);   // angle normalement 90  
    al.data.applymatrix(m);
    M:=TMatrix.CreateTranslation(300,167.5);
    al.data.applymatrix(m);
    Path1.Data.AddPath(al.data);
 
 
    m:=Tmatrix.CreateTranslation(-300,-167.5);
    ar.data.applymatrix(m);
    M := TMatrix.CreateRotation(-30);    // // angle normalement -90  
    ar.data.applymatrix(m);
    M:=TMatrix.CreateTranslation(300,167.5);
    ar.data.applymatrix(m);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;
end;

Comme vous le constatez, j'applique trois étapes, un premier déplacement , négatif des coordonnées indiquées transform="rotate(-90 300,167.5)"
procède ensuite à une rotation mais avec la valeur 30 !
Puis refait un déplacement aux coordonnées

N.B. Le code est simplifiable en multipliant les matrices

Code:

1
2
3
4
5
6
7
8
 
    M:=Tmatrix.CreateTranslation(-300,-167.5);
    M := M * TMatrix.CreateRotation(30);   // angle normalement 90  
    M := M* TMatrix.CreateTranslation(300,167.5);
    // ou encore
   //    M:=TMatrix.CreateTranslation(-300,-167.5) * TMatrix.CreateRotation(30) * TMatrix.CreateTranslation(300,167.5); 
    al.data.applymatrix(M);
    Path1.Data.AddPath(al.data);

simplifiant le "mystère" à l'explication de la transformation de 90° en 30 (expression en ?)
Ma trigonométrie est loin ...

[Edit] en fait je crois que convertir l'angle en radian est la solution

:resolu: C'était bien des radians qui étaient attendu dans la fonction CreateRotation

Code:

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
procedure TForm80.btnHermineClick(Sender: TObject);
var aP,al,ar : Tpath;
    M : TMatrix;
 
begin
 ap:=Tpath.Create(Self);
 al:=Tpath.Create(Self);
 ar:=Tpath.Create(Self);
 try
 
    aP.Data.Data:='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
    al.Data.Data:=ap.Data.Data;
    ar.Data.Data:=ap.Data.Data;
 
    Path1.Fill.Color:=Talphacolors.Black;
    Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';
 
    Path1.Data.AddPath(ap.data);
 
    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(90))*TMatrix.CreateTranslation(300,167.5);
    al.data.applymatrix(m);
    Path1.Data.AddPath(al.data);
 
 
    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(-90))*TMatrix.CreateTranslation(300,167.5);
    ar.data.applymatrix(m);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;
 
end;

Tout cela me donne déjà les idées nécessaires pour gérer les groupes (<g> </g>) des fichiers SVG

17/12/2019, 12h57
anapurna

salut

est tu sur que les translation soit nécessaire ?
cela me parait bizarre d’être obligé de faire 2 translation qui s'annule ?

j'ai cru voir deux propriété intéressante : RotationCenter et RotationAngle
ne pense tu pas que c'est celle-ci qui devrais être utilisé
17/12/2019, 14h44
SergioMaster

1 pièce(s) jointe(s)
Citation:

Envoyé par anapurna

est tu sur que les translation soit nécessaire ?
cela me parait bizarre d’être obligé de faire 2 translations qui s'annule ?

C'est bien pour cela que j'ai posté, cela me paraissait bizarre mais sans ça, voilà ce que cela donne
Pièce jointe 525017

Citation:

j'ai cru voir deux propriétés intéressantes : RotationCenter et RotationAngle
ne penses-tu pas que c'est celle-ci qui devrais être utilisé

Je ne fais pas "tourner" le composant TPath mais les Datas contenues (TPath.data) donc non rotationcenter et rotationangle ne s'applique pas, elles s'appliqueraient si je voulais faire tourner l'image entière
Code:

1 2 3 4 5 6 7 procedure TForm80.btnRotationPathClick(Sender: TObject); begin Path1.RotationAngle:=90; // par défaut // Path1.RotationCenter.x:=0.5; // Path1.RotationCenter.Y:=0.5; end;

salut

je voyais plus un truc de ce genre là

Code:

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
 
procedure TForm80.RotationPath(Apath : Tpath;Origine : Tpoint;Angle : Double);
begin
  Apath.RotationCenter.x:=Origine.x;
  Apath.RotationCenter.Y:=Origine.y;
  Apath.RotationAngle:=DegToRad(Angle);
// par défaut 
end;
 
procedure TForm80.btnHermineClick(Sender: TObject);
var aP,al,ar : Tpath;
begin
 ap:=Tpath.Create(Self);
 al:=Tpath.Create(Self);
 ar:=Tpath.Create(Self);
 try
 
    aP.Data.Data:='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
    al.Data.Data:=ap.Data.Data;
    ar.Data.Data:=ap.Data.Data;
 
    Path1.Fill.Color:=Talphacolors.Black;
    Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';
    Path1.Data.AddPath(ap.data);
 
    RotationPath(al,Tpoint(300,167.5),90);
    Path1.Data.AddPath(al.data);
 
    RotationPath(ar,Tpoint(300,167.5),-90);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;
end;

mais bon j'ai pas testé

Bonjour,

j'ai testé de mon coté et j'ai fait ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Path1.Fill.Color:=Talphacolors.Black;
  Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';
 
  Path1.Data.AddPath(ap.data);
 
    M := TMatrix.CreateTranslation(300, 167.5);
    M := M.Inverse * TMatrix.CreateRotation(DegToRad(90)) * M;
 
    al.data.applymatrix(m);
    Path1.Data.AddPath(al.data);
 
    ar.data.applymatrix(M.Inverse);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;

qui donne le même résultat ;)

Cordialement,

@+

1 pièce(s) jointe(s)

Bonjour,

Merci à vous deux.
@Cirec l'inversion de matrice ne change pas la face du code :D

@Anapurna tu obtiendras
Pièce jointe 525272
AddPath ajoute les chemins non transformés
en gros, addpath est une concaténation de chaîne ta proposition fait donc quelque chose comme basHermine+losangehaut+losangehaut+losangehaut
où bashermine= 'M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z'
et losangehaut='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z'
ce n'est pas de la fusion de canvas
Cela fonctionnerait certainement si chaque TPath était indépendant et affiché. Mais l'objectif est d'obtenir un seul TPath identifié ("hermine" dessiné à partir d'un groupe)
note : bon dans le xml on a affaire à "ermine" anglais oblige , l'auteur du drapeau aurait utilisé "erminig" pour coller au contexte du Gwenn_ha_du ;) aux bretons
Code:

1 2 3 4 5 6 7 <g id="ermine" fill="#000"> <use xlink:href="#s" transform="rotate(-90 300,167.5)"/> <path id="s" d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z"/> <use xlink:href="#s" transform="rotate(90 300,167.5)"/> <path d="M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z"/> </g>
pour ensuite utiliser cette "hermine" plusieurs fois en décalant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <use xlink:href="#ermine" x="-225" y="-122.5"/> <use xlink:href="#ermine" x="-75" y="-122.5"/> <use xlink:href="#ermine" x="75" y="-122.5"/> <use xlink:href="#ermine" x="225" y="-122.5"/> // ici groupe hermine <use xlink:href="#ermine" x="-150"/> <use xlink:href="#ermine" x="150"/> <use xlink:href="#ermine" x="-225" y="122.5"/> <use xlink:href="#ermine" x="-75" y="122.5"/> <use xlink:href="#ermine" x="75" y="122.5"/> <use xlink:href="#ermine" x="225" y="122.5"/>
En plus vous remarquerez, pour corser, que l'appel à #ermine, comme à #s, ne se fait pas forcément après que le modèle soit construit :evilred: encore une chose que je dois prendre en compte !
Un algorithme genre :

Citation:

si le modèle n'existe pas mettre le noeud dans une liste (queue ? pile ?) jusqu'à ce que le modèle (stocké dans une liste de TPathData) existe

J'ai encore des cheveux à me faire pour la gestion des groupes :roll:

18/12/2019, 11h49
Cirec

Citation:

Envoyé par SergioMaster

Bonjour,

Merci à vous deux.
@Cirec l'inversion de matrice ne change pas la face du code :D

non elle te permet de faire une translation et une rotation sans avoir à inverser les chiffres de départ
juste en utilisant les données fourni de base

La deuxième inversion celle de "ar" était juste plus pratique d'un point de vue écriture mais peut, bien sur, s’écrire comme la première

si j'avais plus de temps je me pencherais bien dessus mais ... :D

Cordialement,

@+

1 pièce(s) jointe(s)

re,

je voyais quelque chose comme ça:
c'est juste un premier jet ;)

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
  public
    { Déclarations publiques }
    path_Hermine: TPath;
  end;
 
var
  Form80: TForm80;
 
implementation
 
{$R *.fmx}
 
uses System.math.vectors, math;
 
procedure TranslateRotatePath(CurrentData: TPathData; const Angle, X, Y: Single;
  Data: string);
var
  aP, al, ar: TPathData;
  M: TMatrix;
begin
  aP := TPathData.Create;
  try
    aP.Data := Data;
    M := TMatrix.CreateTranslation(X, Y);
    M := M.Inverse * TMatrix.CreateRotation(DegToRad(Angle)) * M;
    aP.ApplyMatrix(M);
    CurrentData.AddPath(aP);
  finally
    aP.Free
  end;
end;
 
 
procedure TranslatePath(CurrentData, Path2Translate: TPathData;
  const X, Y: Single);
var
  aP: TPathData;
  M: TMatrix;
begin
  aP := TPathData.Create;
  try
    aP.Data := Path2Translate.Data;
    M := TMatrix.CreateTranslation(X, Y);
    aP.ApplyMatrix(M);
    CurrentData.AddPath(aP);
  finally
    aP.Free
  end;
end;
 
procedure TForm80.FormCreate(Sender: TObject);
const
  HERMINE_BASE = 'M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';
  HERMINE_TOP = 'M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
begin
  path_Hermine := TPath.Create(Self);
  Path1.Fill.Color := Talphacolors.Black;
  path_Hermine.Data.Data := HERMINE_BASE;
 
  TranslateRotatePath(path_Hermine.Data, 0, 0, 0, HERMINE_TOP);
  TranslateRotatePath(path_Hermine.Data, 90, 300, 167.5, HERMINE_TOP);
  TranslateRotatePath(path_Hermine.Data, -90, 300, 167.5, HERMINE_TOP);
end;
 
 
procedure TForm80.btn_TestClick(Sender: TObject);
begin
  Path1.Data.AddPath(path_Hermine.Data);
  TranslatePath(Path1.Data, path_Hermine.Data, -225, -122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, -75, -122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, 75, -122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, 225, -122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, -150, 0);
  TranslatePath(Path1.Data, path_Hermine.Data, 150, 0);
  TranslatePath(Path1.Data, path_Hermine.Data, -225, 122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, -75, 122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, 75, 122.5);
  TranslatePath(Path1.Data, path_Hermine.Data, 225, 122.5);
end;

ce qui répond partiellement à ton problème :D

Citation:

Envoyé par SergioMaster

...
Mais l'objectif est d'obtenir un seul TPath identifié ("hermine" dessiné à partir d'un groupe)
...
pour ensuite utiliser cette "hermine" plusieurs fois en décalant

et voici le résultat en image :)

Pièce jointe 525435

Cordialement,

@+

1 pièce(s) jointe(s)

Bonsoir,

tu me fais ça directement à partir du fichier SVG

Code:

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
<?xml version="1.0" encoding="UTF-8"?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="1350" height="900">
	<rect width="1350" height="900" fill="#fff"/>
	<rect x="600" width="1350" height="100" fill="#000"/>
	<rect x="600" y="200" width="1350" height="100" fill="#000"/>
	<rect y="400" width="1350" height="100" fill="#000"/>
	<rect y="600" width="1350" height="100" fill="#000"/>
	<rect y="800" width="1350" height="100" fill="#000"/>
 
    <use xlink:href="#ermine" x="-225" y="-122.5"/>
	<use xlink:href="#ermine" x="-75" y="-122.5"/>
	<use xlink:href="#ermine" x="75" y="-122.5"/>
	<use xlink:href="#ermine" x="225" y="-122.5"/>
	<use xlink:href="#ermine" x="-150"/>
	<g id="ermine" fill="#000">
		<use xlink:href="#s" transform="rotate(-90 300,167.5)"/>
		<path id="s" d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z"/>
		<use xlink:href="#s" transform="rotate(90 300,167.5)"/>
		<path d="M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z"/>
	</g>
	<use xlink:href="#ermine" x="150"/>
	<use xlink:href="#ermine" x="-225" y="122.5"/>
	<use xlink:href="#ermine" x="-75" y="122.5"/>
	<use xlink:href="#ermine" x="75" y="122.5"/>
	<use xlink:href="#ermine" x="225" y="122.5"/> 
 
</svg>

et on en reparle ;)
Cela dit, la rotation est résolue (le principal du sujet), je pense avoir résolu le problème des href non encore définies et même les groupes

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
unit UnitRotation;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects,
  System.Generics.Collections,
  Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Xml.adomxmldom, Xml.omnixmldom;

type
  TForm80 = class(TForm)
    Path1: TPath;
    btnHermine: TButton;
    btnGroupe: TButton;
    procedure btnHermineClick(Sender: TObject);
    procedure btnGroupeClick(Sender: TObject);
  private
    { Déclarations privées }
    ListeUses : TQueue<IXMLNode>;
    ListeRef  : TDictionary<String,String>;
    procedure Add_Path(aNode : IXMLNode; APath : TPath;
                       List_U : TQueue<IXMLNode>;
                       List_R  : TDictionary<String,String>);
    procedure Transformation(transform: String; Cible: TPathData);
    procedure GetNumbers(const S: String; var QNumbers: TQueue<Single>);
  public
    { Déclarations publiques }
  end;

var
  Form80: TForm80;
  USFormatSettings : TFormatSettings;

implementation

{$R *.fmx}



uses system.math.vectors, System.Math;

procedure TForm80.Add_Path(aNode: IXMLNode; APath: TPath;
                            List_U : TQueue<IXMLNode>;
                            List_R  : TDictionary<String,String>);
var P : TPathData;
    NameSpaceTag, tagURI : String;
    idx : Integer;
    node : IXMLNode;
    GList_U : TQueue<IXMLNode>;
    GList_R  : TDictionary<String,String>;

begin
 P:=TPathData.Create;
 try
 if (aNode.NodeName = 'path') then
   begin
     P.Data:=anode.Attributes['d'];
     if aNode.HasAttribute('transform')
       then Transformation(anode.Attributes['transform'],P);
     APath.Data.AddPath(P);
    if  anode.HasAttribute('id')
      then List_R.Add('#'+anode.Attributes['id'],P.data);
   end;
 if (aNode.NodeName='use') then
  begin
     if aNode.HasAttribute('xlink:href') then
     begin
      NameSpaceTag:=aNode.FindNamespaceURI('xlink');
      TagURI:=aNode.GetAttributeNS('href',NameSpaceTag);
     end;
    if List_R.ContainsKey(TagURI)
       then begin
          P.Data:=List_R.Items[TagURI];
          if  anode.HasAttribute('id')
            then ListeRef.Add('#'+anode.Attributes['id'],P.Data);
          if aNode.HasAttribute('transform')
            then Transformation(anode.Attributes['transform'],P);
          APath.Data.AddPath(P);
       end
       else List_U.EnQueue(aNode);
  end;
  if Anode.NodeName='g' then
   begin
     if aNode.HasAttribute('fill') then
       APath.Fill.Color:=TAlphaColors.black;
     GList_U:=TQueue<IXMLNode>.Create;
     GList_R:=TDictionary<String,String>.Create;
     try
     for idx := 0 to ANode.ChildNodes.Count - 1 do
     begin
      node := Anode.ChildNodes[idx];
      Add_Path(node,Path1,GList_U,GList_R);
     end;
    while GList_U.Count>0 do
     begin
       node:=GList_U.Dequeue;
       add_path(node,Path1,GList_U,GList_R);
     end;

     if  anode.HasAttribute('id')
      then GList_R.Add('#'+anode.Attributes['id'],P.data);

     finally
       GList_U.Free;
       GList_R.Free;
     end;
   end;
 finally
   P.Free;
 end;
end;


procedure TForm80.btnGroupeClick(Sender: TObject);
var
  XmlSvg: IXMLDocument;
  idx: Integer;
  node: IXMLNode;
begin
  Path1.Data.Clear;
  DefaultDOMVendor := 'ADOM XML v4';
  XmlSvg := LoadXMLDocument('D:\LiveBindings\Hors Sujet\Path\Sources\examples\erminig.svg');
  ListeRef:=TDictionary<String,String>.Create;
  ListeUses:=TQueue<IXMLNode>.Create;
  try
    Path1.Fill.Color:=Talphacolors.Red;
    for idx := 0 to XmlSvg.DocumentElement.ChildNodes.Count - 1 do
     begin
      node := XmlSvg.DocumentElement.ChildNodes[idx];
      Add_Path(node,Path1,ListeUses,ListeRef);
     end;
    while ListeUses.Count>0 do
     begin
       node:=ListeUses.Dequeue;
       add_path(node,Path1,ListeUses,ListeRef);
     end;
  finally
   ListeRef.Free;
   ListeUses.Free;
  end;
end;


procedure TForm80.btnHermineClick(Sender: TObject);
var aP,al,ar : Tpath;
    M : TMatrix;
begin
 Path1.Data.Clear;
 ap:=Tpath.Create(Self);
 al:=Tpath.Create(Self);
 ar:=Tpath.Create(Self);
 try

    aP.Data.Data:='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
    al.Data.Data:=ap.Data.Data;
    ar.Data.Data:=ap.Data.Data;

    Path1.Fill.Color:=Talphacolors.Black;
    Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';

    Path1.Data.AddPath(ap.data);

    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(90))*TMatrix.CreateTranslation(300,167.5);
    al.data.applymatrix(m);
    Path1.Data.AddPath(al.data);


    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(-90))*TMatrix.CreateTranslation(300,167.5);
    ar.data.applymatrix(m);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;

end;

procedure TForm80.GetNumbers(const S: String; var QNumbers: TQueue<Single>);
var
  P : Integer;
  r : TStringList;
begin
  P:=0;
  R := TStringList.Create;
  try
  R.CommaText:=S;
  for p := 0 to r.Count-1 do
     QNumbers.EnQueue(StrToFloatDef(R[p],0.0,USFormatSettings));
  Finally
    FreeAndNil(R);
  End;
end;

procedure TForm80.Transformation(transform: String; Cible: TPathData);
var  Numbers : TQueue<Single>;
     M : TMatrix;
     PS : integer;
     a,x,y : Single;
begin
Numbers:=TQueue<Single>.Create;
try
if Pos('translate(',transform)>0 then
  begin
     PS:=Pos('translate(',transform)+Length('translate(');
     GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
     if Numbers.Count=1
      then Cible.Translate(Numbers.Dequeue,0)
      else Cible.Translate(Numbers.Dequeue,Numbers.Dequeue);
     Numbers.Clear;
   end;
if Pos('scale(',transform)>0 then
    begin
      PS:=Pos('scale(',transform)+Length('scale(');
      GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
      if Numbers.Count=1 then Cible.Scale(Numbers.Dequeue,0)
                         else Cible.Scale(Numbers.Dequeue,Numbers.Dequeue);
      Numbers.Clear;
    end;
{ Todo :  à vérifier rotate}
if Pos('rotate(',transform)>0 then
 begin
    PS:=Pos('rotate(',transform)+Length('rotate(');
    GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
    a:=DegToRad(Numbers.Dequeue);
    try x:=Numbers.Dequeue; except x:=0; end;
    try y:=Numbers.Dequeue; except y:=0; end;
    M:=TMatrix.CreateTranslation(-X,-Y)* TMatrix.CreateRotation(A) * TMatrix.CreateTranslation(X,Y);
    Cible.ApplyMatrix(M);
    Numbers.Clear;
 end;

if Pos('matrix(',transform)>0 then
 begin
    PS:=Pos('matrix(',transform)+Length('matrix(');
    GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
    M.m11:=Numbers.Dequeue;
    M.m12:=Numbers.Dequeue;
    M.m13:=0;
    M.m21:=Numbers.Dequeue;
    M.m22:=Numbers.Dequeue;
    M.m23:=0;
    M.m31:=Numbers.Dequeue;
    M.m32:=Numbers.Dequeue;
    M.m33:=0;
    Cible.ApplyMatrix(M);
 end;

//skewx (1) ? , skewy(1)  déformations équivalent de matrix ?
finally
  Numbers.Clear;
  Numbers.Free;
end;
end;

initialization
  USFormatSettings.DecimalSeparator:='.'
finalization

end.

un peu plus compliqué qu'avec des constantes non ;)
Reste qu'il faut que j'intègre ça dans un programme plus global qui me dessine déjà pas mal de drapeaux (cf mes autres posts sur le FMX.PathData)
et les casses-têtes ne sont pas finis ! j'ai un problème de couleur avec ma seiche (je sèche)
Pièce jointe 525459
À cause de paths définis sans couleur de remplissage (je ne sais quelle couleur adopter)

18/12/2019, 21h31
Cirec

1 pièce(s) jointe(s)

Citation:

Envoyé par SergioMaster

Bonsoir,

tu me fais ça directement à partir du fichier SVG
et on en reparle ;)

hahaha!
Oui tout se suite :p
Encore que, pour ce faire, il aurait fallu fournir le fichier SVG complet avec le premier message
Mais ce faisant je t'aurais coupé l'herbe sous le pied et comme je ne voudrais pas te priver de ce bonheur ... :mouarf:

plus sérieusement, je ne prétendais pas résoudre tous les problèmes. Surtout que, si j'ai bien compris, ils sont très nombreux.

à propos, j'ai tenté le trident du "Barbados Flag"
le dessin est correcte mais il me reste une bande blanche en plein milieu que je n'arrive pas à comprendre,

Pièce jointe 525499
as tu également eut ce cas ?

Citation:

Envoyé par SergioMaster

Reste qu'il faut que j'intègre ça dans un programme plus global qui me dessine déjà pas mal de drapeaux (cf mes autres posts sur le FMX.PathData)
et les casses-têtes ne sont pas finis ! j'ai un problème de couleur avec ma seiche (je sèche)
À cause de paths définis sans couleur de remplissage (je ne sais quelle couleur adopter)

ben d'instinct je dirais, si pas de couleur définie alors on utilise la précédente
Mais ça semble tellement simple que ce ne doit pas être le cas !!!

Cordialement,

@+
19/12/2019, 07h02
SergioMaster

2 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par Cirec

hahaha!
Oui tout se suite :p
Encore que, pour ce faire, il aurait fallu fournir le fichier SVG complet avec le premier message

Wikipedia est mon fournisseur pour tous les drapeaux flag_of_<nom du pays en anglais>, ou https://fr.wikipedia.org/wiki/Galeri..._pays_du_monde

Citation:

Mais ce faisant je t'aurais coupé l'herbe sous le pied et comme je ne voudrais pas te priver de ce bonheur

La joie d'arriver à charger un SVG complet sans buter restera :lol:

Citation:

plus sérieusement, je ne prétendais pas résoudre tous les problèmes.

La transformation est néanmoins résolue, j'ai même fini par trouver les matrices pour les déformations comme skewx, skewy . Ce n'est pas qu'il n'y a pas de documentation sur le format SVG c'est plutôt que trouver une aiguille dans une botte de foin avec des gants de boxe c'est pas chose facile

Citation:

Surtout que, si j'ai bien compris, ils sont très nombreux.

Il suffit de voir tout ce qu'il est possible de faire avec les SVG pour comprendre que transposer en Delphi n'est pas aisé (on n'a que le TPath comme base).
Bien sûr, il y a la solution GitHub https://github.com/ekot1/DelphiSVG ou même le nouveau composant TMS mais les deux ne traite pas tout (comme mes essais)

Citation:

à propos, j'ai tenté le trident du "Barbados Flag", le dessin est correct mais il me reste une bande blanche en plein milieu que je n'arrive pas à comprendre, as-tu également eut ce cas ?

Non, mais je ne l'ai jamais mis seul, je l'ai toujours dessiné en entier (cumul de n TPath dans un Layout), encore un truc à tenter dès que j'aurais clos Firefox ;)

Citation:

ben d'instinct je dirais, si pas de couleur définie alors on utilise la précédente
Mais ça semble tellement simple que ce ne doit pas être le cas !!!

Ton instinct, je l'ai moi aussi suivi mais ...
Pièce jointe 525568
Là seule option qu'il me reste à essayer est de mettre ces couches "sans" couleurs en arrière-plan. Dans un premier temps je vais modifier le SVG et mettre ces éléments en premier pour voir, si c'est concluant j'en prendrai acte pour tenter cette histoire d'arrière-plan :calim2:
Encore une journée à rebondissements

pour les fans de dragons voilà ce que j'obtiens pour l'instant (il me manque le fond ! Gros problème dans ma gestion des groupes là) avec le drapeau du Bouthan (fag_of_bhutan)
Pièce jointe 525571
@+
19/12/2019, 08h15
SergioMaster
Re,

Ok, j'ai le même trident, tu as dû utiliser cette matrice ?

Code:

M:=TMatrix.CreateTranslation(-12000,0)*TMatrix.CreateScaling(-1,1)*TMatrix.CreateTranslation(12000,0);

Alors que moi, dans ma version, je crée deux Tpaths (il ne s'agit pas, comme de l'hermine, d'un groupe) et j'utilise directement les fonctions translate et scale fournies pour TPathdata.data
mais il y a aussi le "contexte" que je prends en compte : les valeurs width="1500" height="1000" viewBox="0 0 24000 16000"
Bref, je ne sais pas trop pourquoi ça fonctionne mais cela fonctionne :mouarf:

Mon avis, il est possible que l'ajout des deux chemins (addpath) fasse que des lignes s'entre-croisent c'est un problème de remplissage.
[Edit] confirmé par une modification dans le décalage
Code:

1 2 3 ap.Data.Translate(-12000,0); ap.Data.Scale(-1,1); ap.Data.Translate(12200,0);
tu remarqueras qu'entre le haut de la pointe et le bas il s'agit d'une courbe et non d'une droite (SVG ou bogue de Delphi je ne lis pas suffisamment bien le "path" pour le savoir).
[/Edit]
J'ai ce même problème avec les étoiles, Embarcadero ne fourni pas l'option de remplissage (fill-rule = nonzero valeur par défaut pour la norme SVG/CSS) mais utilise (fill-rule = evenodd) cf https://www.w3.org/TR/fill-stroke-3/#fill-rule.
J'ai vu qu'il y avait une demande en ce sens sur le portail qualité.

re,

en tous cas, plus je lis tes interventions sur le sujet, plus je me penche sur le "TPath"
plus je m'aperçois que c'est un Iceberg dont je n'ai même pas encore saisi la taille
de la partie émergée :aie:

Citation:

Envoyé par SergioMaster

Re,

Ok, j'ai le même trident, tu as dû utiliser cette matrice ?

Code:

M:=TMatrix.CreateTranslation(-12000,0)*TMatrix.CreateScaling(-1,1)*TMatrix.CreateTranslation(12000,0);

non coté matrice j'ai:

Code:

M := TMatrix.CreateScaling(-1, 1) * TMatrix.CreateTranslation(24000, 0);

Mais j'ai remarqué 2 choses:
1 que tu as divisé la valeur de translation par 2 !
2 que l'ordre des matrice est importante !!!

ainsi:

Code:

M := TMatrix.CreateTranslation(24000,0) * TMatrix.CreateScaling(-1,1);

ne donnera pas le même résultat !!!

j'ai également essayé par addition de path, d'utiliser Scale & translate de TPath
rien n'y fait j'ai toujours cette bande blanche au centre
ça doit donc venir, comme tu le dis, du "contexte" des valeurs width="1500" height="1000" viewBox="0 0 24000 16000"

sinon j'ai testé ton code:

Citation:

Envoyé par SergioMaster

Bonsoir,

tu me fais ça directement à partir du fichier SVG

Code:

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
<?xml version="1.0" encoding="UTF-8"?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="1350" height="900">
	<rect width="1350" height="900" fill="#fff"/>
	<rect x="600" width="1350" height="100" fill="#000"/>
	<rect x="600" y="200" width="1350" height="100" fill="#000"/>
	<rect y="400" width="1350" height="100" fill="#000"/>
	<rect y="600" width="1350" height="100" fill="#000"/>
	<rect y="800" width="1350" height="100" fill="#000"/>
 
    <use xlink:href="#ermine" x="-225" y="-122.5"/>
	<use xlink:href="#ermine" x="-75" y="-122.5"/>
	<use xlink:href="#ermine" x="75" y="-122.5"/>
	<use xlink:href="#ermine" x="225" y="-122.5"/>
	<use xlink:href="#ermine" x="-150"/>
	<g id="ermine" fill="#000">
		<use xlink:href="#s" transform="rotate(-90 300,167.5)"/>
		<path id="s" d="M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z"/>
		<use xlink:href="#s" transform="rotate(90 300,167.5)"/>
		<path d="M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z"/>
	</g>
	<use xlink:href="#ermine" x="150"/>
	<use xlink:href="#ermine" x="-225" y="122.5"/>
	<use xlink:href="#ermine" x="-75" y="122.5"/>
	<use xlink:href="#ermine" x="75" y="122.5"/>
	<use xlink:href="#ermine" x="225" y="122.5"/> 
 
</svg>

et on en reparle ;)
Cela dit, la rotation est résolue (le principal du sujet), je pense avoir résolu le problème des href non encore définies et même les groupes

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
unit UnitRotation;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects,
  System.Generics.Collections,
  Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Xml.adomxmldom, Xml.omnixmldom;

type
  TForm80 = class(TForm)
    Path1: TPath;
    btnHermine: TButton;
    btnGroupe: TButton;
    procedure btnHermineClick(Sender: TObject);
    procedure btnGroupeClick(Sender: TObject);
  private
    { Déclarations privées }
    ListeUses : TQueue<IXMLNode>;
    ListeRef  : TDictionary<String,String>;
    procedure Add_Path(aNode : IXMLNode; APath : TPath;
                       List_U : TQueue<IXMLNode>;
                       List_R  : TDictionary<String,String>);
    procedure Transformation(transform: String; Cible: TPathData);
    procedure GetNumbers(const S: String; var QNumbers: TQueue<Single>);
  public
    { Déclarations publiques }
  end;

var
  Form80: TForm80;
  USFormatSettings : TFormatSettings;

implementation

{$R *.fmx}



uses system.math.vectors, System.Math;

procedure TForm80.Add_Path(aNode: IXMLNode; APath: TPath;
                            List_U : TQueue<IXMLNode>;
                            List_R  : TDictionary<String,String>);
var P : TPathData;
    NameSpaceTag, tagURI : String;
    idx : Integer;
    node : IXMLNode;
    GList_U : TQueue<IXMLNode>;
    GList_R  : TDictionary<String,String>;

begin
 P:=TPathData.Create;
 try
 if (aNode.NodeName = 'path') then
   begin
     P.Data:=anode.Attributes['d'];
     if aNode.HasAttribute('transform')
       then Transformation(anode.Attributes['transform'],P);
     APath.Data.AddPath(P);
    if  anode.HasAttribute('id')
      then List_R.Add('#'+anode.Attributes['id'],P.data);
   end;
 if (aNode.NodeName='use') then
  begin
     if aNode.HasAttribute('xlink:href') then
     begin
      NameSpaceTag:=aNode.FindNamespaceURI('xlink');
      TagURI:=aNode.GetAttributeNS('href',NameSpaceTag);
     end;
    if List_R.ContainsKey(TagURI)
       then begin
          P.Data:=List_R.Items[TagURI];
          if  anode.HasAttribute('id')
            then ListeRef.Add('#'+anode.Attributes['id'],P.Data);
          if aNode.HasAttribute('transform')
            then Transformation(anode.Attributes['transform'],P);
          APath.Data.AddPath(P);
       end
       else List_U.EnQueue(aNode);
  end;
  if Anode.NodeName='g' then
   begin
     if aNode.HasAttribute('fill') then
       APath.Fill.Color:=TAlphaColors.black;
     GList_U:=TQueue<IXMLNode>.Create;
     GList_R:=TDictionary<String,String>.Create;
     try
     for idx := 0 to ANode.ChildNodes.Count - 1 do
     begin
      node := Anode.ChildNodes[idx];
      Add_Path(node,Path1,GList_U,GList_R);
     end;
    while GList_U.Count>0 do
     begin
       node:=GList_U.Dequeue;
       add_path(node,Path1,GList_U,GList_R);
     end;

     if  anode.HasAttribute('id')
      then GList_R.Add('#'+anode.Attributes['id'],P.data);

     finally
       GList_U.Free;
       GList_R.Free;
     end;
   end;
 finally
   P.Free;
 end;
end;


procedure TForm80.btnGroupeClick(Sender: TObject);
var
  XmlSvg: IXMLDocument;
  idx: Integer;
  node: IXMLNode;
begin
  Path1.Data.Clear;
  DefaultDOMVendor := 'ADOM XML v4';
  XmlSvg := LoadXMLDocument('D:\LiveBindings\Hors Sujet\Path\Sources\examples\erminig.svg');
  ListeRef:=TDictionary<String,String>.Create;
  ListeUses:=TQueue<IXMLNode>.Create;
  try
    Path1.Fill.Color:=Talphacolors.Red;
    for idx := 0 to XmlSvg.DocumentElement.ChildNodes.Count - 1 do
     begin
      node := XmlSvg.DocumentElement.ChildNodes[idx];
      Add_Path(node,Path1,ListeUses,ListeRef);
     end;
    while ListeUses.Count>0 do
     begin
       node:=ListeUses.Dequeue;
       add_path(node,Path1,ListeUses,ListeRef);
     end;
  finally
   ListeRef.Free;
   ListeUses.Free;
  end;
end;


procedure TForm80.btnHermineClick(Sender: TObject);
var aP,al,ar : Tpath;
    M : TMatrix;
begin
 Path1.Data.Clear;
 ap:=Tpath.Create(Self);
 al:=Tpath.Create(Self);
 ar:=Tpath.Create(Self);
 try

    aP.Data.Data:='M 300,167.5 l -9,-13.5 l 9,-22.5 l 9,22.5 z';
    al.Data.Data:=ap.Data.Data;
    ar.Data.Data:=ap.Data.Data;

    Path1.Fill.Color:=Talphacolors.Black;
    Path1.Data.Data:='M 300,167.5 l 40.5,99 l -31.5,-13.5 l -9,18 l -9,-18 l -31.5,13.5 z';

    Path1.Data.AddPath(ap.data);

    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(90))*TMatrix.CreateTranslation(300,167.5);
    al.data.applymatrix(m);
    Path1.Data.AddPath(al.data);


    m:=Tmatrix.CreateTranslation(-300,-167.5)*TMatrix.CreateRotation(DegToRad(-90))*TMatrix.CreateTranslation(300,167.5);
    ar.data.applymatrix(m);
    Path1.Data.AddPath(ar.data);
  finally
   ap.free;
   al.Free;
   ar.Free;
 end;

end;

procedure TForm80.GetNumbers(const S: String; var QNumbers: TQueue<Single>);
var
  P : Integer;
  r : TStringList;
begin
  P:=0;
  R := TStringList.Create;
  try
  R.CommaText:=S;
  for p := 0 to r.Count-1 do
     QNumbers.EnQueue(StrToFloatDef(R[p],0.0,USFormatSettings));
  Finally
    FreeAndNil(R);
  End;
end;

procedure TForm80.Transformation(transform: String; Cible: TPathData);
var  Numbers : TQueue<Single>;
     M : TMatrix;
     PS : integer;
     a,x,y : Single;
begin
Numbers:=TQueue<Single>.Create;
try
if Pos('translate(',transform)>0 then
  begin
     PS:=Pos('translate(',transform)+Length('translate(');
     GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
     if Numbers.Count=1
      then Cible.Translate(Numbers.Dequeue,0)
      else Cible.Translate(Numbers.Dequeue,Numbers.Dequeue);
     Numbers.Clear;
   end;
if Pos('scale(',transform)>0 then
    begin
      PS:=Pos('scale(',transform)+Length('scale(');
      GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
      if Numbers.Count=1 then Cible.Scale(Numbers.Dequeue,0)
                         else Cible.Scale(Numbers.Dequeue,Numbers.Dequeue);
      Numbers.Clear;
    end;
{ Todo :  à vérifier rotate}
if Pos('rotate(',transform)>0 then
 begin
    PS:=Pos('rotate(',transform)+Length('rotate(');
    GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
    a:=DegToRad(Numbers.Dequeue);
    try x:=Numbers.Dequeue; except x:=0; end;
    try y:=Numbers.Dequeue; except y:=0; end;
    M:=TMatrix.CreateTranslation(-X,-Y)* TMatrix.CreateRotation(A) * TMatrix.CreateTranslation(X,Y);
    Cible.ApplyMatrix(M);
    Numbers.Clear;
 end;

if Pos('matrix(',transform)>0 then
 begin
    PS:=Pos('matrix(',transform)+Length('matrix(');
    GetNumbers(Copy(transform,PS,Pos(')',transform,PS)-PS), Numbers);
    M.m11:=Numbers.Dequeue;
    M.m12:=Numbers.Dequeue;
    M.m13:=0;
    M.m21:=Numbers.Dequeue;
    M.m22:=Numbers.Dequeue;
    M.m23:=0;
    M.m31:=Numbers.Dequeue;
    M.m32:=Numbers.Dequeue;
    M.m33:=0;
    Cible.ApplyMatrix(M);
 end;

//skewx (1) ? , skewy(1)  déformations équivalent de matrix ?
finally
  Numbers.Clear;
  Numbers.Free;
end;
end;

initialization
  USFormatSettings.DecimalSeparator:='.'
finalization

end.

et j'ai du y faire de petites modifs pour qu'il charge le fichier "ermine" correctement avec le boutton Groupe
sans les modifs le code restait coincé et tournait en boucle sur

Code:

1
2
3
4
5
    while ListeUses.Count > 0 do
    begin
      node := ListeUses.Dequeue;
      Add_Path(node, Path1, ListeUses, ListeRef);
    end;

ListeUses.Count était continuellement soit à 9 ou 10.

Le code modifié:

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
procedure TForm80.Add_Path(aNode: IXMLNode; APath: TPath;
  List_U: TQueue<IXMLNode>; List_R: TDictionary<string, string>);
var
  P: TPathData;
  NameSpaceTag, tagURI: string;
  idx: Integer;
  node: IXMLNode;
  GList_U: TQueue<IXMLNode>;
  GList_R: TDictionary<string, string>;
  X, Y: Single;
begin
  P := TPathData.Create;
  try
    if (aNode.NodeName = 'path') then
    begin
      P.Data := aNode.Attributes['d'];
      if aNode.HasAttribute('transform') then
        Transformation(aNode.Attributes['transform'], P);
      APath.Data.AddPath(P);
      if aNode.HasAttribute('id') then
        List_R.Add('#' + aNode.Attributes['id'], P.Data);
    end;
    if (aNode.NodeName = 'use') then
    begin
      if aNode.HasAttribute('xlink:href') then
      begin
        NameSpaceTag := aNode.FindNamespaceURI('xlink');
        tagURI := aNode.GetAttributeNS('href', NameSpaceTag);
      end;
      if List_R.ContainsKey(tagURI) then
      begin
        P.Data := List_R.Items[tagURI];
        if aNode.HasAttribute('id') then
          ListeRef.Add('#' + aNode.Attributes['id'], P.Data);
        if aNode.HasAttribute('transform') then
          Transformation(aNode.Attributes['transform'], P);
 
      {*********************** Ajouté **********************}
        if (aNode.HasAttribute('x')) or (aNode.HasAttribute('y')) then
        begin
          X := 0; Y := 0;
          if aNode.HasAttribute('x') then
            X := StrToFloatDef(string(aNode.Attributes['x']), 0.0, USFormatSettings);
          if aNode.HasAttribute('y') then
            Y := StrToFloatDef(string(aNode.Attributes['y']), 0.0, USFormatSettings);
          P.Translate(X, Y);
        end;
      {*****************************************************}
 
        APath.Data.AddPath(P);
      end
      else
        List_U.EnQueue(aNode);
    end;
    if aNode.NodeName = 'g' then
    begin
      if aNode.HasAttribute('fill') then
        APath.Fill.Color := TAlphaColors.black;
      GList_U := TQueue<IXMLNode>.Create;
      GList_R := TDictionary<string, string>.Create;
      try
 
        for idx := 0 to aNode.ChildNodes.Count - 1 do
        begin
          node := aNode.ChildNodes[idx];
          Add_Path(node, APath, GList_U, GList_R);
        end;
        while GList_U.Count > 0 do
        begin
          node := GList_U.Dequeue;
          Add_Path(node, APath, GList_U, GList_R);
        end;
 
      {******************** ne me semble plus être utilisé! *******************}
        if aNode.HasAttribute('id') then
          GList_R.Add('#' + aNode.Attributes['id'], P.Data);
      {************************************************************************}
      finally
        GList_U.Free;
        GList_R.Free;
      end;
      {*********************** Ajouté **********************}
      if aNode.HasAttribute('id') then
        List_R.Add('#' + aNode.Attributes['id'], APath.Data.Data);
      {*****************************************************}
    end;
  finally
    P.Free;
  end;
end;

et comme je l'ai dit plus haut "l'ordre des matrice est importante"

Code:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
procedure TForm8.Transformation(transform: string; Cible: TPathData);
var
  Numbers: TQueue<Single>;
  M: TMatrix;
  PS: Integer;
  a, x, y: Single;
begin
  Numbers := TQueue<Single>.Create;
  try
    // **************** déplacé avant Translate ******************************
    if Pos('scale(', transform) > 0 then
    begin
      PS := Pos('scale(', transform) + Length('scale(');
      GetNumbers(Copy(transform, PS, Pos(')', transform, PS) - PS), Numbers);
      if Numbers.Count = 1 then
        Cible.Scale(Numbers.Dequeue, 0)
      else
        Cible.Scale(Numbers.Dequeue, Numbers.Dequeue);
      Numbers.Clear;
    end;
    // *****************************************************************
    if Pos('translate(', transform) > 0 then
    begin
      PS := Pos('translate(', transform) + Length('translate(');
      GetNumbers(Copy(transform, PS, Pos(')', transform, PS) - PS), Numbers);
      if Numbers.Count = 1 then
        Cible.Translate(Numbers.Dequeue, 0)
      else
        Cible.Translate(Numbers.Dequeue, Numbers.Dequeue);
      Numbers.Clear;
    end;
    { Todo :  à vérifier rotate }
    if Pos('rotate(', transform) > 0 then
    begin
      PS := Pos('rotate(', transform) + Length('rotate(');
      GetNumbers(Copy(transform, PS, Pos(')', transform, PS) - PS), Numbers);
      a := DegToRad(Numbers.Dequeue);
      try
        x := Numbers.Dequeue;
      except
        x := 0;
      end;
      try
        y := Numbers.Dequeue;
      except
        y := 0;
      end;
      M := TMatrix.CreateTranslation(-x, -y) * TMatrix.CreateRotation(a) *
        TMatrix.CreateTranslation(x, y);
      Cible.applymatrix(M);
      Numbers.Clear;
    end;
 
    if Pos('matrix(', transform) > 0 then
    begin
      PS := Pos('matrix(', transform) + Length('matrix(');
      GetNumbers(Copy(transform, PS, Pos(')', transform, PS) - PS), Numbers);
      M.m11 := Numbers.Dequeue;
      M.m12 := Numbers.Dequeue;
      M.m13 := 0;
      M.m21 := Numbers.Dequeue;
      M.m22 := Numbers.Dequeue;
      M.m23 := 0;
      M.m31 := Numbers.Dequeue;
      M.m32 := Numbers.Dequeue;
      M.m33 := 0;
      Cible.applymatrix(M);
    end;
 
    // skewx (1) ? , skewy(1)  déformations équivalent de matrix ?
  finally
    Numbers.Clear;
    Numbers.Free;
  end;
end;

du coup le fichier se charge et s'affiche correctement.
au passage bravo j'aime bien la manière que tu utilises pour regler les soucis de chargements de commandes avant même que
les données ne soient connues :ccool:

je manque de temps (rien de nouveau) mais le weekend approche, j'y trouverais peut être quelques heures :)

Pour finir,
tu avais raison ... si tu y mets le petit doigt ne t'éttones pas si tout le bras passe avec ... voir plus.

Cordialement,

@+

20/12/2019, 11h10
SergioMaster

Bonjour,

Citation:

Envoyé par Cirec

en tout cas, plus je lis tes interventions sur le sujet, plus je me penche sur le "TPath"
plus je m'aperçois que c'est un Iceberg dont je n'ai même pas encore saisi la taille
de la partie émergée :aie:
tu avais raison ... Si tu y mets le petit doigt ne t'étonnes pas si tout le bras passe avec ... voire plus.

J'avais prévenu, :ptdr:, et encore ce n'est que de la 2D pour la 3D c'est pire

Citation:

j'ai également essayé par addition de path, d'utiliser Scale & translate de TPath,rien n'y fait j'ai toujours cette bande blanche au centre
ça doit donc venir, comme tu le dis, du "contexte" des valeurs width="1500" height="1000" viewBox="0 0 24000 16000"

Non, c'est le problème de remplissage de couleur fait par Embarcadero comme les paths s'entrecroisent il y a zone blanche

Citation:

sinon j'ai testé ton code, et j'ai du y faire de petites modifs pour qu'il charge le fichier "ermine" correctement avec le bouton Groupe

Oui, mais là c'est logique, le code que j'avais mis n'était pas complétement fini ;) je n'en suis pas encore au groupe dans des groupes dans des etc.
Donc je joue avec le fichier à coup de Notepad++ pour avoir les portions que je veux tester, le programme plus complet (choix d'un fichier SVG et chargement n'a pas encore pris en compte ces avancées)

Citation:

au passage bravo j'aime bien la manière que tu utilises pour régler les soucis de chargements de commandes avant même que
les données ne soient connues

Utiliser des piles et dictionnaires me semblait logique :mouarf: