V1.6

2020-04-23 18:25:00 +02:00
parent ce096cfcb7
commit 505a2d400e
14 changed files with 2511 additions and 855 deletions
--- a/signaux_complexes_GL_V1.6.pdf
+++ b/signaux_complexes_GL_V1.6.pdf
--- a/Signaux_complexes_GL.dof
+++ b/Signaux_complexes_GL.dof
@@ -130,3 +130,6 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--- a/Signaux_complexes_GL.dpr
+++ b/Signaux_complexes_GL.dpr
@@ -19,8 +19,8 @@ begin
  Application.CreateForm(TFormDebug, FormDebug);
  Application.CreateForm(TFormPilote, FormPilote);
  Application.CreateForm(TFormSimulation, FormSimulation);
-  Application.CreateForm(TFormTCO, FormTCO);
  Application.CreateForm(TFormConfig, FormConfig);
  Application.CreateForm(TFormConfigTCO, FormConfigTCO);
+  Application.CreateForm(TFormVersion, FormVersion);
  Application.Run;
 end.
--- a/UnitConfigTCO.dfm
+++ b/UnitConfigTCO.dfm
@@ -1,9 +1,10 @@
 object FormConfigTCO: TFormConfigTCO
-  Left = 542
-  Top = 389
-  Width = 360
-  Height = 251
+  Left = 311
+  Top = 218
+  BorderStyle = bsDialog
  Caption = 'Configuration du TCO'
+  ClientHeight = 264
+  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@@ -15,14 +16,14 @@ object FormConfigTCO: TFormConfigTCO
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
-    Left = 8
+    Left = 32
    Top = 16
    Width = 83
    Height = 13
    Caption = 'Taille des cellules'
  end
  object Label2: TLabel
-    Left = 160
+    Left = 176
    Top = 16
    Width = 5
    Height = 13
@@ -49,8 +50,8 @@ object FormConfigTCO: TFormConfigTCO
    Height = 13
  end
  object ButtonOK: TButton
-    Left = 240
-    Top = 176
+    Left = 168
+    Top = 224
    Width = 75
    Height = 25
    Caption = 'OK'
@@ -58,7 +59,7 @@ object FormConfigTCO: TFormConfigTCO
    OnClick = ButtonOKClick
  end
  object EditTailleCellX: TEdit
-    Left = 104
+    Left = 128
    Top = 16
    Width = 41
    Height = 21
@@ -66,7 +67,7 @@ object FormConfigTCO: TFormConfigTCO
    Text = 'EditTailleCellX'
  end
  object EditTailleCellY: TEdit
-    Left = 176
+    Left = 192
    Top = 16
    Width = 41
    Height = 21
@@ -74,11 +75,11 @@ object FormConfigTCO: TFormConfigTCO
    Text = 'EditTailleCellY'
  end
  object ButtonDessine: TButton
-    Left = 24
-    Top = 176
+    Left = 16
+    Top = 224
    Width = 75
    Height = 25
-    Caption = 'Dessine'
+    Caption = 'Redessine'
    TabOrder = 3
    OnClick = ButtonDessineClick
  end
@@ -106,4 +107,104 @@ object FormConfigTCO: TFormConfigTCO
    TabOrder = 6
    Text = 'EditNbCellY'
  end
+  object GroupBox1: TGroupBox
+    Left = 256
+    Top = 8
+    Width = 353
+    Height = 217
+    Caption = 'Couleurs '
+    TabOrder = 7
+    object Label5: TLabel
+      Left = 21
+      Top = 32
+      Width = 84
+      Height = 13
+      Caption = 'Couleur des voies'
+    end
+    object ImageAig: TImage
+      Left = 128
+      Top = 16
+      Width = 41
+      Height = 41
+      OnClick = ImageAigClick
+    end
+    object ImageFond: TImage
+      Left = 128
+      Top = 64
+      Width = 41
+      Height = 41
+      OnClick = ImageFondClick
+    end
+    object Label6: TLabel
+      Left = 30
+      Top = 80
+      Width = 75
+      Height = 13
+      Caption = 'Couleur de fond'
+    end
+    object ImageGrille: TImage
+      Left = 128
+      Top = 112
+      Width = 41
+      Height = 41
+      OnClick = ImageGrilleClick
+    end
+    object Label7: TLabel
+      Left = 31
+      Top = 128
+      Width = 74
+      Height = 13
+      Caption = 'couleur de grille'
+    end
+    object ImageDetAct: TImage
+      Left = 128
+      Top = 160
+      Width = 41
+      Height = 41
+      OnClick = ImageDetActClick
+    end
+    object Label8: TLabel
+      Left = 26
+      Top = 176
+      Width = 79
+      Height = 13
+      Caption = 'D'#233'tecteur activ'#233
+    end
+    object Label9: TLabel
+      Left = 218
+      Top = 176
+      Width = 66
+      Height = 13
+      Caption = 'Canton activ'#233
+    end
+    object Imagecanton: TImage
+      Left = 296
+      Top = 160
+      Width = 41
+      Height = 41
+      OnClick = ImagecantonClick
+    end
+  end
+  object Memo1: TMemo
+    Left = 8
+    Top = 128
+    Width = 241
+    Height = 81
+    BevelInner = bvLowered
+    BevelKind = bkFlat
+    BorderStyle = bsNone
+    Lines.Strings = (
+      'Si vous d'#233'finissez un nombre de cellules en '
+      'horizontal ou en vertical plus petit(s) que l'#39'actuel'
+      '(s), alors le TCO sera tronqu'#233', et les '#233'l'#233'ments '
+      'tronqu'#233's seront perdus '#224' la prochaine '
+      'sauvegarde.')
+    ReadOnly = True
+    TabOrder = 8
+  end
+  object ColorDialog1: TColorDialog
+    OnShow = ColorDialog1Show
+    Left = 48
+    Top = 24
+  end
 end
--- a/UnitConfigTCO.pas
+++ b/UnitConfigTCO.pas
@@ -4,7 +4,7 @@ interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls , UnitTCO;
+  Dialogs, StdCtrls , UnitTCO, ExtCtrls;

 type
  TFormConfigTCO = class(TForm)
@@ -20,9 +20,28 @@ type
    EditNbCellX: TEdit;
    EditNbCellY: TEdit;
    LabelErreur: TLabel;
+    ColorDialog1: TColorDialog;
+    GroupBox1: TGroupBox;
+    Label5: TLabel;
+    ImageAig: TImage;
+    ImageFond: TImage;
+    Label6: TLabel;
+    ImageGrille: TImage;
+    Label7: TLabel;
+    ImageDetAct: TImage;
+    Label8: TLabel;
+    Memo1: TMemo;
+    Label9: TLabel;
+    Imagecanton: TImage;
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonDessineClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
+    procedure ImageAigClick(Sender: TObject);
+    procedure ImageFondClick(Sender: TObject);
+    procedure ImageGrilleClick(Sender: TObject);
+    procedure ImageDetActClick(Sender: TObject);
+    procedure ImagecantonClick(Sender: TObject);
+    procedure ColorDialog1Show(Sender: TObject);
  private
    { Déclarations privées }
  public
@@ -31,14 +50,100 @@ type

 var  FormConfigTCO: TFormConfigTCO;
     AvecGrille : boolean;
-
+     titre_couleur : string;
+     
 implementation

-uses UnitPrinc;
+uses UnitPrinc ;


 {$R *.dfm}

+procedure icone_aig;
+var r : Trect;
+    x1,y1,x2,y2,x3,y3,x4,y4 : integer;
+begin
+      with FormConfigTCO.ImageAig do
+      begin
+        canvas.Pen.color:=fond;
+        canvas.Brush.Color:=fond;
+        canvas.Rectangle(0,0,Width,Height);
+
+        canvas.pen.color:=clVoies;
+        canvas.brush.color:=clvoies;
+        // bande horizontale
+        r:=Rect(0,(height div 2)-3,width,(height div 2)+3);
+        canvas.FillRect(r);
+
+        x1:=(width div 2); y1:=(height div 2)-3;
+        x2:=3; y2:=0;
+        x3:=0; y3:=3;
+        x4:=0+(width div 2)-1; y4:=(height div 2)+3-1;
+        canvas.Polygon([point(x1,y1),Point(x2,y2),Point(x3,y3),Point(x4,y4)]);
+      end;
+
+end;
+
+procedure dessine_icones;
+var r : Trect;
+begin
+  // 1
+  icone_aig;
+  // 2
+  with formConfigTCO.ImageFond do
+  begin
+    canvas.Pen.color:=fond;
+    canvas.Brush.Color:=fond;
+    canvas.Rectangle(0,0,Width,Height);
+  end;
+  // 3
+  with formConfigTCO.ImageGrille do
+  begin
+    canvas.Pen.color:=fond;
+    canvas.Brush.Color:=fond;
+    canvas.Rectangle(0,0,Width,Height);
+    canvas.Pen.color:=ClGrille;
+    canvas.moveto(0,5); canvas.LineTo(width,5);
+    canvas.moveto(27,0); canvas.LineTo(27,Height);
+  end;
+  // 4 détecteur
+  with formConfigTCO.ImageDetAct do
+  begin
+    canvas.Pen.color:=fond;
+    canvas.Brush.Color:=fond;
+    canvas.Rectangle(0,0,Width,Height);
+
+    
+    canvas.Brush.Color:=clAllume;
+    canvas.pen.color:=clAllume;
+    canvas.Pen.Mode:=pmCopy;
+    r:=Rect(1,(height div 2)-6,width-1,(height div 2)+6);
+    canvas.FillRect(r);
+    
+    canvas.pen.color:=clVoies;
+    canvas.brush.color:=clVoies;
+    // bande horizontale
+    r:=Rect(0,(height div 2)-3,width,(height div 2)+3);
+    canvas.FillRect(r);
+  end;
+
+  // 5 canton 
+  with formCOnfigTCO.Imagecanton do
+  begin
+    canvas.Pen.color:=fond;
+    canvas.Brush.Color:=fond;
+    canvas.Rectangle(0,0,Width,Height);
+    
+   
+    canvas.pen.color:=clAllume;
+    canvas.brush.color:=clAllume;
+    // bande horizontale
+    r:=Rect(0,(height div 2)-3,width,(height div 2)+3);
+    canvas.FillRect(r);
+  end;
+
+end;
+
 function verif_config_TCO : boolean;  // renvoie true si ok
 var erreur : integer;
    nokNbX,nokNbY,nokHt,nokLg : boolean;
@@ -109,8 +214,6 @@ begin
 end;


-
-
 procedure TFormConfigTCO.FormActivate(Sender: TObject);
 begin
  EditTailleCellX.Text:=IntToSTR(LargeurCell);
@@ -118,6 +221,68 @@ begin
  EditNbCellX.Text:=IntToSTR(NbreCellX);
  EditNbCellY.Text:=IntToSTR(NbreCellY);
  checkDessineGrille.Checked:=AvecGrille;
+  dessine_icones;
+end;
+
+
+procedure TFormConfigTCO.ImageAigClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur des voies';
+  if ColorDialog1.execute then
+  begin
+    clVoies:=ColorDialog1.Color;
+    TCO_modifie:=true;
+    dessine_icones;
+  end; 
+end;
+
+procedure TFormConfigTCO.ImageFondClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur de fond';
+  if ColorDialog1.execute then
+  begin
+    fond:=ColorDialog1.Color;
+    TCO_modifie:=true;
+    dessine_icones;
+  end;
+end;
+
+procedure TFormConfigTCO.ImageGrilleClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur de la grille';
+  if ColorDialog1.execute then
+  begin
+    ClGrille:=ColorDialog1.Color;
+    TCO_modifie:=true;
+    dessine_icones;
+  end; 
+end;
+
+procedure TFormConfigTCO.ImageDetActClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur de détecteur activé';
+  if ColorDialog1.execute then
+  begin
+    ClAllume:=ColorDialog1.Color;
+    TCO_modifie:=true;
+    dessine_icones;
+  end; 
+end;
+
+procedure TFormConfigTCO.ImagecantonClick(Sender: TObject);
+begin
+  titre_couleur:='Changer la couleur de canton activé';
+  if ColorDialog1.execute then
+  begin
+    ClAllume:=ColorDialog1.Color;
+    dessine_icones;
+  end; 
+end;
+
+// change le titre de la fenêtre de choix des couleurs à son ouverture
+procedure TFormConfigTCO.ColorDialog1Show(Sender: TObject);
+begin
+   SetWindowText(ColorDialog1.Handle,pchar(titre_couleur));
 end;

 end.
--- a/UnitDebug.dcu
+++ b/UnitDebug.dcu
--- a/UnitPrinc.dcu
+++ b/UnitPrinc.dcu
--- a/UnitPrinc.dfm
+++ b/UnitPrinc.dfm
@@ -1339,7 +1339,6 @@ object FormPrinc: TFormPrinc
    Width = 273
    Height = 169
    Anchors = [akTop, akRight]
-    Caption = 'Panel1'
    TabOrder = 5
    object BoutonRaf: TButton
      Left = 8
--- a/UnitPrinc.pas
+++ b/UnitPrinc.pas
@@ -184,11 +184,11 @@ type TBranche = record
                 InversionCDM : integer ;   // inversion pour les aiguillages BIS en lecture (pour parer bug CDM)
                 vitesse : integer;         // vitesse de franchissement de l"aiguillage en position déviée (60 ou 90)

-                 ADroit : integer ;         // (identifiant extérieur à la TJD) connecté sur la position droite en talon
+                 ADroit : integer ;         // (TJD:identifiant extérieur) connecté sur la position droite en talon
                 ADroitB : char ;           // id de branche pour TJD
                 ADroitBis : integer ;      // 0=pas connecté à aiguillage dont l'adresse est bis  =1 connecté à un aig bis

-                 ADevie : integer ;         // (identifiant extérieur) adresse de l'élément connecté en position déviée
+                 ADevie : integer ;         // (TJD:identifiant extérieur) adresse de l'élément connecté en position déviée
                 ADevieB : char;            // caractère (D ou S)si aiguillage de l'élément connecté en position déviée
                 AdevieBis : integer ;      // 0=pas connecté à aiguillage dont l'adresse est bis  =1 connecté à un aig bis

@@ -410,13 +410,6 @@ var Temp,code,rayon,xViolet,YViolet,xBlanc,yBlanc,
    LgImage,HtImage : integer;
    ech : real;
 begin
-  with ACanvas do
-  begin
-    pen.mode:=PmCopy;
-    Brush.Color:=fond;
-    pen.color:=clyellow;
-  end; 
-
  code:=code_to_aspect(Etatsignal); // et aspect
  rayon:=round(6*frX);

@@ -463,12 +456,6 @@ var Temp,code,rayon,xSem,Ysem,xJaune,Yjaune,Xvert,Yvert,
    s : string;
    ech : real;
 begin
-  with ACanvas do
-  begin
-    pen.mode:=PmCopy;
-    Brush.Color:=fond;
-    pen.color:=clyellow;
-  end; 
  code:=code_to_aspect(Etatsignal); // et aspect
  rayon:=round(6*frX);

@@ -518,12 +505,6 @@ var Temp,code,rayon,xSem,Ysem,xJaune,Yjaune,Xcarre,Ycarre,Xvert,Yvert,
    LgImage,HtImage : integer;
    ech : real;
 begin
-  with ACanvas do
-  begin
-    pen.mode:=PmCopy;
-    Brush.Color:=fond;
-    pen.color:=clyellow;
-  end; 
  code:=code_to_aspect(Etatsignal); // et aspect
  rayon:=round(6*frX);

@@ -539,10 +520,10 @@ begin
  begin
    //rotation 90° vers la gauche des feux
    ech:=frY;frY:=frX;FrX:=ech;
-    Temp:=HtImage-yjaune;YJaune:=XJaune;Xjaune:=Temp;
-    Temp:=HtImage-ycarre;Ycarre:=Xcarre;Xcarre:=Temp;
-    Temp:=HtImage-ySem;YSem:=XSem;XSem:=Temp;
-    Temp:=HtImage-yvert;Yvert:=Xvert;Xvert:=Temp;
+    Temp:=HtImage-yjaune; YJaune:=XJaune;Xjaune:=Temp;
+    Temp:=HtImage-ycarre; Ycarre:=Xcarre;Xcarre:=Temp;
+    Temp:=HtImage-ySem;   YSem:=XSem;XSem:=Temp;
+    Temp:=HtImage-yvert;  Yvert:=Xvert;Xvert:=Temp;
  end;
 
  if (orientation=3) then
@@ -651,13 +632,6 @@ var code, XBlanc,Yblanc,xJaune,yJaune,Xsem,YSem,Xvert,YVert,Xcarre,Ycarre,Xral1,
    Temp,rayon,LgImage,HtImage : integer;
    ech : real;
 begin
-  with ACanvas do
-  begin
-    pen.mode:=PmCopy;
-    Brush.Color:=fond;
-    pen.color:=clyellow;
-  end; 
-
  code:=code_to_aspect(Etatsignal); // et combine
  rayon:=round(6*frX);
  XBlanc:=13; YBlanc:=23;
@@ -742,12 +716,6 @@ var code,rayon,
    LgImage,HtImage,xt,yt : integer;
    ech : real;
 begin
-  with ACanvas do
-  begin
-    pen.mode:=PmCopy;
-    Brush.Color:=fond;
-    pen.color:=clyellow;
-  end; 
  rayon:=round(6*frX);
  code:=code_to_aspect(Etatsignal); // et aspect
  // mise à l'échelle des coordonnées des feux en fonction du facteur de réduction frX et frY et x et y (offsets)
@@ -3228,6 +3196,7 @@ begin
 // pilotage d'un signal
 procedure envoi_signal(Adr : integer);
 var i,adresse,a,aspect,x,y,TailleX,TailleY,Orientation : integer;
+    ImageFeu : TImage;
    frX,frY : real;
 begin
  i:=index_feu(Adr);
@@ -3237,15 +3206,16 @@ begin
    case feux[i].decodeur of
     0 : envoi_virtuel(Adr);
     1 : envoi_signalBahn(Adr);
-     2 : envoi_CDF(Adr);
-     3 : envoi_LDT(Adr);
     2 : envoi_CDF(Adr);
-     5 : envoi_NMRA(Adr);
+     3 : envoi_LDT(Adr);
+     4 : envoi_LEB(Adr);
+     5 : envoi_NMRA(Adr);
+     6 : envoi_UniSemaf(Adr);
    end;

-    // dessine le feu dans la fenêtre de droite
+    // allume les signaux du feu dans la fenêtre de droite
    Dessine_feu_mx(Feux[i].Img.Canvas,0,0,1,1,adr,1);   
-
+
    // allume les signaux du feu dans le TCO
    if AvecTCO then  
    begin
@@ -3267,21 +3237,21 @@ begin
          end;
          x:=(FeuTCO[i].x-1)*LargeurCell;  // coordonnées XY et feu
          y:=(FeuTCO[i].y-1)*HauteurCell;
-          TailleY:=ImageFeu.picture.BitMap.Height; // taille du feu d'origine  (verticale)
-          TailleX:=ImageFeu.picture.BitMap.Width; 
-          Orientation:=FeuTCO[i].FeuOriente; 
-          // réduction variable en fonction de la taille des cellules
-          calcul_reduction(frx,fry,round(TailleX*LargeurCell/ZoomMax),round(tailleY*HauteurCell/ZoomMax),TailleX,TailleY);
-
-              // décalage en X pour mettre la tete du feu alignée sur le bord droit de la cellule pour les feux tournés à 90G
-              if orientation=2 then
-              begin
-                if aspect=9 then x:=x+round(10*frX); 
-                if aspect=7 then x:=x+round(10*frX);  
-                if aspect=5 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
-                if aspect=4 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
-                if aspect=3 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
-                if aspect=2 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
+          TailleY:=ImageFeu.picture.BitMap.Height; // taille du feu d'origine  (verticale)
+          TailleX:=ImageFeu.picture.BitMap.Width; 
+          Orientation:=FeuTCO[i].FeuOriente; 
+          // réduction variable en fonction de la taille des cellules
+          calcul_reduction(frx,fry,round(TailleX*LargeurCell/ZoomMax),round(tailleY*HauteurCell/ZoomMax),TailleX,TailleY);
+
+          // décalage en X pour mettre la tete du feu alignée sur le bord droit de la cellule pour les feux tournés à 90G
+          if orientation=2 then
+          begin
+            if aspect=9 then x:=x+round(10*frX); 
+            if aspect=7 then x:=x+round(10*frX);  
+            if aspect=5 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
+            if aspect=4 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
+            if aspect=3 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
+            if aspect=2 then begin x:=x+round(10*frX);y:=y+HauteurCell-round(tailleX*frY); end;
          end;
          Dessine_feu_mx(PCanvasTCO,x,y,frx,fry,adresse,orientation);
        end;
@@ -4743,11 +4713,13 @@ begin
          A:=aiguillage[Adr].Adevie2B;
          Adr:=aiguillage[Adr].Adevie2;
          if A='Z' then TypeEl:=1 else TypeEL:=2;  //TypeEL=(1=détécteur 2=aig  3=aig Bis)
+          if Abis=1 then TypeEl:=3;
          trouve_element(Adr,TypeEl); // branche_trouve  IndexBranche_trouve
          typeGen:=BrancheN[branche_trouve,IndexBranche_trouve].BType;
          suivant_alg3:=adr;exit;
        end;
-        end;
+        begin
+          if aiguillage[Adr].position=9 then begin suivant_alg3:=9999;exit;end; // pour échappement
          s:='Aiguillage triple '+IntToSTR(Adr)+' : configuration des aiguilles interdite';
          if CDM_connecte then s:=s+': '+IntToSTR(aiguillage[Adr].position);
          AfficheDebug(s,clYellow);
@@ -5078,6 +5050,11 @@ begin
  begin
    carre_signal:=FALSE;   // pour l'instant verrouillé
    exit;
+  end;
+
+  //Affiche(IntToSTR(actuel),clyellow);
+  repeat
+    inc(j);
    AdrSuiv:=suivant_alg3(prec,typeElPrec,actuel,typeELActuel,2);
    if AdrSuiv=9999 then // élément non trouvé
    begin
@@ -5894,6 +5871,11 @@ begin
          if TraceListe then
          begin
            AfficheDebug('Nouveau Tampon train '+intToStr(i)+'--------',clyellow);
+            AfficheDebug(intToSTR(event_det_train[i].det[1]),clyellow);
+            AfficheDebug(intToSTR(event_det_train[i].det[2]),clyellow);
+          end;
+          rafraichit;
+          rafraichit;
          rafraichit;
          if avecTCO then
          begin
@@ -6790,12 +6772,13 @@ begin
                    PChar('C:\Program Files (x86)\CDM-Rail\')  // répertoire
                    ,SW_SHOWNORMAL)<=32 then 
      begin              
-        ShowMessage(SysErrorMessage(GetLastError));
+        ShowMessage(SysErrorMessage(GetLastError));
+        Lance_CDM:=false;exit;
      end
      
  else
  begin
-  begin
+    Sleep(2000); 
    Application.ProcessMessages;  
    // démarre  le serveur IP : Alt C , return 2 fois
    SendKey(CDMHd,ord('C'),false,true,false);
@@ -6803,14 +6786,14 @@ begin
    SendKey(CDMHd,VK_RETURN,false,false,false);
    Sleep(200);
    Application.ProcessMessages;
-
+
    // Ouvre le fichier réseau : Alt F , Return, O, return
    SendKey(CDMHd,ord('F'),false,true,false);
    SendKey(CDMHd,VK_RETURN,false,false,false);
    SendKey(CDMHd,ord('O'),false,false,false);
    SendKey(CDMHd,VK_RETURN,false,false,false);
    Sleep(500);  // attendre ouverture de la fenêtre
-    Application.ProcessMessages;
+    Application.ProcessMessages;
    
    // ouvre le fichier réseau

@@ -6891,7 +6874,7 @@ begin

  // créée la fenetre debug
  FormDebug:=TFormDebug.Create(Self);
-  FormDebug.Caption:=AF+' debug';
+  FormDebug.Caption:=AF+' debug';
  N_Trains:=0;
  NivDebug:=0;
  TempoAct:=0;
@@ -6904,7 +6887,6 @@ begin
  FormVersion:=TformVersion.Create(Self);

  ferme:=false;
-  CDM_connecte:=false;
  CDM_connecte:=false;
  pasreponse:=0;
  Nbre_recu_cdm:=0;
@@ -6912,7 +6894,7 @@ begin
  N_routes:=0;
  N_trains:=0;
  // Train[1].index:=0;
-
+
  // lecture fichier de configuration  client_GL.cfg et config.cfg
  lit_config;

@@ -6984,8 +6966,8 @@ begin
  I_Simule:=0;
  tick:=0;

-  N_Event_tick:=0 ; // dernier index
-  NombreImages:=0;
+  N_Event_tick:=0 ; // dernier index
+  NombreImages:=0;

   // TCO
  if avectco then
@@ -7996,7 +7978,7 @@ end;


 procedure TFormPrinc.Quitter1Click(Sender: TObject);
-begin
+begin
  close;
 end;

@@ -8077,18 +8059,11 @@ begin
      readln(fte,s);
      Affiche(s,clLime);
      Interprete_trameCDM(s);
-    end;  
-    closeFile(fte);
    end;  
    closeFile(fte);
  end;  
-
-
-
-procedure TFormPrinc.ButtonAffTCOClick(Sender: TObject);
-var hd : THandle;
-begin
-  //SetactiveWindow(formTCO.handle);
+  
+end;

 procedure TFormPrinc.ButtonAffTCOClick(Sender: TObject);
 var hd : THandle;
@@ -8097,10 +8072,13 @@ begin
  formTCO.BringToFront;
 end;

+
 procedure TFormPrinc.ButtonLanceCDMClick(Sender: TObject);
 begin
  if Lance_CDM then connecte_CDM;
 end;


+begin
+

--- a/UnitSimule.dcu
+++ b/UnitSimule.dcu
--- a/UnitTCO.dcu
+++ b/UnitTCO.dcu
--- a/UnitTCO.dfm
+++ b/UnitTCO.dfm
@@ -1,8 +1,8 @@
 object FormTCO: TFormTCO
-  Left = 232
-  Top = 211
-  Width = 992
-  Height = 681
+  Left = 1326
+  Top = 122
+  Width = 1139
+  Height = 694
  VertScrollBar.Visible = False
  Caption = 'FormTCO'
  Color = clBtnFace
@@ -14,19 +14,21 @@ object FormTCO: TFormTCO
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
+  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDockOver = FormDockOver
  OnKeyDown = FormKeyDown
+  OnResize = FormResize
  DesignSize = (
-    976
-    643)
+    1123
+    656)
  PixelsPerInch = 96
  TextHeight = 13
  object LabelX: TLabel
-    Left = 72
-    Top = 6
+    Left = 64
+    Top = 0
    Width = 7
    Height = 16
    Caption = '0'
@@ -38,8 +40,8 @@ object FormTCO: TFormTCO
    ParentFont = False
  end
  object Label2: TLabel
-    Left = 16
-    Top = 6
+    Left = 8
+    Top = 0
    Width = 49
    Height = 16
    Caption = 'Cellule'
@@ -51,8 +53,8 @@ object FormTCO: TFormTCO
    ParentFont = False
  end
  object LabelY: TLabel
-    Left = 96
-    Top = 6
+    Left = 88
+    Top = 0
    Width = 7
    Height = 16
    Caption = '0'
@@ -63,36 +65,29 @@ object FormTCO: TFormTCO
    Font.Style = [fsBold]
    ParentFont = False
  end
-  object Label1: TLabel
-    Left = 776
-    Top = 8
-    Width = 3
-    Height = 13
-    Caption = '-'
-  end
  object SourisX: TLabel
-    Left = 232
-    Top = 8
+    Left = 128
+    Top = 2
    Width = 6
    Height = 13
    Caption = '0'
  end
  object SourisY: TLabel
-    Left = 288
-    Top = 8
+    Left = 168
+    Top = 2
    Width = 6
    Height = 13
    Caption = '0'
  end
  object ImageTemp: TImage
-    Left = 16
-    Top = 464
+    Left = 24
+    Top = 394
    Width = 97
    Height = 97
  end
  object Label19: TLabel
-    Left = 912
-    Top = 456
+    Left = 1059
+    Top = 407
    Width = 32
    Height = 13
    Anchors = [akRight, akBottom]
@@ -106,23 +101,24 @@ object FormTCO: TFormTCO
  end
  object ScrollBox: TScrollBox
    Left = 8
-    Top = 32
-    Width = 889
-    Height = 433
+    Top = 18
+    Width = 1036
+    Height = 375
    HorzScrollBar.Smooth = True
    HorzScrollBar.Tracking = True
    VertScrollBar.Smooth = True
    VertScrollBar.Tracking = True
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Anchors = [akLeft, akTop, akRight]
+    BevelEdges = [beLeft, beTop, beRight]
    TabOrder = 0
    DesignSize = (
-      885
-      429)
+      1032
+      371)
    object ImageTCO: TImage
      Left = 0
      Top = 0
-      Width = 865
-      Height = 361
+      Width = 1012
+      Height = 303
      Anchors = [akLeft, akTop, akRight, akBottom]
      PopupMenu = PopupMenu1
      OnClick = ImageTCOClick
@@ -134,10 +130,10 @@ object FormTCO: TFormTCO
    end
  end
  object TrackBarZoom: TTrackBar
-    Left = 912
-    Top = 40
+    Left = 1051
+    Top = 34
    Width = 41
-    Height = 409
+    Height = 366
    Anchors = [akTop, akRight, akBottom]
    Max = 50
    Min = 20
@@ -149,9 +145,9 @@ object FormTCO: TFormTCO
  end
  object Panel1: TPanel
    Left = 8
-    Top = 472
-    Width = 953
-    Height = 153
+    Top = 479
+    Width = 1100
+    Height = 166
    Anchors = [akLeft, akRight, akBottom]
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
@@ -160,6 +156,9 @@ object FormTCO: TFormTCO
    Font.Style = []
    ParentFont = False
    TabOrder = 2
+    DesignSize = (
+      1100
+      166)
    object Label4: TLabel
      Left = 8
      Top = 8
@@ -256,14 +255,14 @@ object FormTCO: TFormTCO
      Font.Style = [fsBold]
      ParentFont = False
    end
-    object ImagePaletteDroit: TImage
+    object ImagePalette1: TImage
      Left = 216
      Top = 8
      Width = 41
      Height = 41
      DragMode = dmAutomatic
-      OnEndDrag = ImagePaletteDroitEndDrag
-      OnMouseDown = ImagePaletteDroitMouseDown
+      OnEndDrag = ImagePalette1EndDrag
+      OnMouseDown = ImagePalette1MouseDown
    end
    object ImageSupG: TImage
      Left = 216
@@ -442,7 +441,7 @@ object FormTCO: TFormTCO
      ParentFont = False
    end
    object ImageFeu: TImage
-      Left = 368
+      Left = 376
      Top = 104
      Width = 25
      Height = 41
@@ -565,6 +564,160 @@ object FormTCO: TFormTCO
      Font.Style = []
      ParentFont = False
    end
+    object ImagePalette16: TImage
+      Left = 504
+      Top = 56
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette16EndDrag
+      OnMouseDown = ImagePalette16MouseDown
+    end
+    object Label24: TLabel
+      Left = 480
+      Top = 70
+      Width = 18
+      Height = 19
+      Caption = '16'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette17: TImage
+      Left = 576
+      Top = 56
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette17EndDrag
+      OnMouseDown = ImagePalette17MouseDown
+    end
+    object Label25: TLabel
+      Left = 552
+      Top = 70
+      Width = 18
+      Height = 19
+      Caption = '17'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette18: TImage
+      Left = 648
+      Top = 56
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette18EndDrag
+      OnMouseDown = ImagePalette18MouseDown
+    end
+    object Label26: TLabel
+      Left = 624
+      Top = 70
+      Width = 18
+      Height = 19
+      Caption = '18'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette19: TImage
+      Left = 720
+      Top = 56
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette19EndDrag
+      OnMouseDown = ImagePalette19MouseDown
+    end
+    object Label27: TLabel
+      Left = 696
+      Top = 70
+      Width = 18
+      Height = 19
+      Caption = '19'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette20: TImage
+      Left = 792
+      Top = 56
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette20EndDrag
+      OnMouseDown = ImagePalette20MouseDown
+    end
+    object Label28: TLabel
+      Left = 768
+      Top = 70
+      Width = 18
+      Height = 19
+      Caption = '20'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette21: TImage
+      Left = 864
+      Top = 8
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette21EndDrag
+      OnMouseDown = ImagePalette21MouseDown
+    end
+    object Label29: TLabel
+      Left = 840
+      Top = 22
+      Width = 18
+      Height = 19
+      Caption = '21'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ImagePalette22: TImage
+      Left = 936
+      Top = 8
+      Width = 41
+      Height = 41
+      DragMode = dmAutomatic
+      OnEndDrag = ImagePalette22EndDrag
+      OnMouseDown = ImagePalette22MouseDown
+    end
+    object Label30: TLabel
+      Left = 912
+      Top = 22
+      Width = 18
+      Height = 19
+      Caption = '22'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = 'Arial'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
    object EditAdrElement: TEdit
      Left = 152
      Top = 8
@@ -578,12 +731,13 @@ object FormTCO: TFormTCO
      ParentFont = False
      TabOrder = 0
      OnChange = EditAdrElementChange
+      OnKeyDown = EditAdrElementKeyDown
    end
    object EditTypeElement: TEdit
      Left = 152
      Top = 32
      Width = 33
-      Height = 33
+      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
@@ -608,27 +762,29 @@ object FormTCO: TFormTCO
      OnKeyPress = EditTypeImageKeyPress
    end
    object ButtonSauveTCO: TButton
-      Left = 854
+      Left = 992
      Top = 48
-      Width = 91
+      Width = 92
      Height = 33
+      Anchors = [akTop, akRight]
      Caption = 'Sauvegarder TCO'
      TabOrder = 3
      WordWrap = True
      OnClick = ButtonSauveTCOClick
    end
    object ButtonRedessine: TButton
-      Left = 856
+      Left = 992
      Top = 8
-      Width = 89
+      Width = 92
      Height = 33
+      Anchors = [akTop, akRight]
      Caption = 'Redessine'
      TabOrder = 4
      OnClick = ButtonRedessineClick
    end
    object Button1: TButton
-      Left = 672
-      Top = 88
+      Left = 440
+      Top = 112
      Width = 89
      Height = 25
      Caption = 'Simu det 1'
@@ -636,8 +792,8 @@ object FormTCO: TFormTCO
      OnClick = Button1Click
    end
    object Button2: TButton
-      Left = 672
-      Top = 120
+      Left = 536
+      Top = 112
      Width = 89
      Height = 25
      Caption = 'Simu Det 0'
@@ -645,10 +801,11 @@ object FormTCO: TFormTCO
      OnClick = Button2Click
    end
    object ButtonConfigTCO: TButton
-      Left = 832
+      Left = 992
      Top = 88
-      Width = 113
+      Width = 92
      Height = 33
+      Anchors = [akTop, akRight]
      Caption = 'Configuration TCO'
      TabOrder = 7
      OnClick = ButtonConfigTCOClick
@@ -661,6 +818,46 @@ object FormTCO: TFormTCO
      TabOrder = 8
      OnChange = EditTexteChange
    end
+    object ButtonSimu: TButton
+      Left = 632
+      Top = 112
+      Width = 113
+      Height = 25
+      Caption = 'Simu canton occup'#233
+      TabOrder = 9
+      OnClick = ButtonSimuClick
+    end
+    object CheckPinv: TCheckBox
+      Left = 16
+      Top = 120
+      Width = 161
+      Height = 17
+      Caption = 'Pilotage aiguillage invers'#233
+      TabOrder = 10
+      OnClick = CheckPinvClick
+    end
+    object ButtonMasquer: TButton
+      Left = 992
+      Top = 128
+      Width = 92
+      Height = 33
+      Anchors = [akTop, akRight]
+      Caption = 'Masquer bandeau'
+      TabOrder = 11
+      WordWrap = True
+      OnClick = ButtonMasquerClick
+    end
+  end
+  object ButtonAfficheBandeau: TButton
+    Left = 1051
+    Top = 431
+    Width = 57
+    Height = 33
+    Anchors = [akRight, akBottom]
+    Caption = 'Affiche Bandeau'
+    TabOrder = 3
+    WordWrap = True
+    OnClick = ButtonAfficheBandeauClick
  end
  object PopupMenu1: TPopupMenu
    Left = 360
--- a/UnitTCO.pas
+++ b/UnitTCO.pas
--- a/tco.cfg
+++ b/tco.cfg
@@ -1,12 +1,32 @@
-/type(0=rien 1=voie/détecteur 2=aig 3=aigBis , adresse , image=1 à 10 
+/ Couleurs : fond, voies, détecteur_activé, grille
+000040
+0077FF
+00FFFF
+404040
+/ Taille de la matrice x,y
+43,21
+/ Largeur et hauteur des cellules en pixels
+32,32
 /Dalle TCO
-(2,123,1)(2,100,1)(1,513,5)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(2,124,2)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,8)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,9)(1,000,5)(2,000,1)(1,000,5)(0,000,8)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(2,007,0)(1,520,0)(2,020,0)(2,021,0)(2,028,0)(2,026,0)(0,000,10)(2,027,0)(2,025,0)(2,031,0)(1,534,0)(2,023,0)(0,000,11)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(1,000,5)(2,000,3)(1,000,5)(1,000,5)(1,000,5)(1,000,5)(1,000,5)(1,000,5)(1,000,5)(2,000,1)(1,000,5)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
-(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)(0,000,0)
+/ type,adresse,image,inversion aiguillage,Orientation du feu, pied du feu , [texte]
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,177,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 1)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,161,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,569,1,0,0,0,)(1,000,1,0,0,0,)(2,023,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,538,1,0,0,0,)(1,000,1,0,0,0,)(2,032,2,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 2)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,021,5,1,0,0,)(2,025,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,570,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,028,2,0,0,0,)(2,030,3,1,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,539,1,0,0,0,)(1,000,1,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,225,30,0,2,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,185,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 3)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,193,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,169,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(2,020,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,547,1,0,0,0,)(1,000,1,0,0,0,)(1,561,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(2,022,5,0,0,0,)(1,000,1,0,0,0,)(2,024,4,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,513,1,0,0,0,)(1,513,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,516,1,0,0,0,)(1,000,1,0,0,0,)(2,029,2,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,233,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,209,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 4)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,201,30,0,2,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,6,0,0,0,)(1,000,1,0,0,0,)(1,548,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(0,000,8,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,026,12,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,514,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,517,1,0,0,0,)(1,000,1,0,0,0,)(2,031,2,0,0,0,)(2,027,2,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,241,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,16,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,11,0,0,0,)(0,217,30,0,3,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,Voie 5)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,10,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,6,0,0,0,)(1,515,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,000,1,0,0,0,)(1,510,1,0,0,0,)(0,000,7,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,209,30,0,1,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,20,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)
+(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)(0,000,0,0,0,0,)