Discussion :

[Sparky95]

Bonjour,
voila j'ai un carré de 256 sur 256 et dedans un nombre x de carrés de 4 pixels (2 sur 2) tous de la même couleur.
Je me demandais comment faire pour récupérer le nombre de fois que ce groupe apparaît ainsi que les coordonnées du pixel supérieur gauche de chaque pixel sachant que parfois les groupes peuvent se superposés et que je n'ai qu'une vue en 2D.
Merci d'avance.
Configuration: Scar-divi / Pascal

[wiwaxia]

Bonjour,

Tu cherches si j'ai bien compris à détecter les blocs de 4 pixels, de couleur uniforme, présents dans un tableau carré, d'arête égale à 256, visible sur l'écran graphique.

La fonction GetPixel

Code :

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

Function GetPixel(u, v: Integer): Word;

renvoyant le numéro de la couleur actuelle du point de coordonnées (u, v), te donne accès aux quatre indices relatifs au bloc dont le coin supérieur gauche admet pour coordonnées (x, y):

Code :

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

1
2
3
4
 h:= GetPixel(x, y);
 i:= GetPixel(x, y+1);
 j:= GetPixel(x+1, y);
 k:= GetPixel(x+1, y+1);

Le test d'uniformité de couleur est donné au choix par l'un des algorithmes simples suivants (il y en a bien d'autres):

Code :

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

1
2
3
4
5
6
7
 Test1:= ((h=i) AND ((h=j) AND (h=k)));
 
 s:= Abs(i - h); Inc(s, Abs(j - h)); Inc(s, Abs(k - h)); Test2:= (s=0);
 
 s:= h; 
 IF (h=i) THEN Inc(s, 50); IF (h=j) THEN Inc(s, 50);
 IF (h=k) THEN Inc(s, 50); Test3:= (s>149);

Un inventaire méthodique te permet de repérer tous les blocs, de les dénombrer et de mémoriser les coordonnées du coin s.g., et même la couleur:

Code :

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

1
2
3
4
5
6
 Nb:= 0;
 FOR x:= 0 TO 254 DO
   FOR y:= 0 TO 254 DO
     IF Test(x, y, h) THEN BEGIN
                             Inc(Nb); WriteLn(Fichier, Nb:8, x:5, y:5, h:4)
                           END;

La dernière instruction <WriteLn> (citée de mémoire) doit sans doute être complétée, afin de conduire à une ligne lisible.
La variable (Nb) peut être de type Word, puisqu'elle est au plus égale à 255² = 65025 .

Si on la déclare comme liste de 16 éléments tous initialisés à zéro:

Code :

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

1
2
 Nb: ARRAY[0..15] OF Word; 
FOR h:= 0 TO 15 DO Nb[h]:= 0;

un décompte séparé sur les 16 couleurs devient possible en introduisant la nouvelle instruction:

Code :

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

 Inc(Nb[h])

[Jipété]

Tiens, salut voisin (de forum)

Juste une microscopique question :

Un inventaire méthodique te permet de repérer tous les blocs, de les dénombrer et de mémoriser les coordonnées du coin s.g., et même la couleur:

Code :

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

1
2
3
4
5
6
 Nb:= 0;
 FOR x:= 0 TO 254 DO
   FOR y:= 0 TO 254 DO
     IF Test(x, y, h) THEN BEGIN
                             Inc(Nb); WriteLn(Fichier, Nb:8, x:5, y:5, h:4)
                           END;

Pourquoi 0 TO 254 DO et pas 0 TO 255 DO puisqu'on a 256 possibilités ?
Merci et à l'année prochaine,

[wiwaxia]

Code :

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

Pourquoi 0 TO 254 DO et pas 0 TO 255 DO puisqu'on a 256 possibilités ?

Parce que le bloc dont le coin supérieur gauche se situe en (x, y) comporte 3 pixels sur la colonne à droite et/ou la ligne en-dessous :

Code :

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

1
2
3
4
 h:= GetPixel(x, y);
 i:= GetPixel(x, y+1);
 j:= GetPixel(x+1, y);
 k:= GetPixel(x+1, y+1);

Dans un tableau déclaré ARRAY[0..(m-1), 0..(m-1)] OF Element et comportant (m²) termes, il n'y a que (m - 1)² blocs, dont l'énumération résulte de 2 boucles imbriquées sur [0..(m-2)].

Bon réveillon à tous !

[Sparky95]

Bonjour,

Tu cherches si j'ai bien compris à détecter les blocs de 4 pixels, de couleur uniforme, présents dans un tableau carré, d'arête égale à 256, visible sur l'écran graphique.

La fonction GetPixel

Code :

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

Function GetPixel(u, v: Integer): Word;

renvoyant le numéro de la couleur actuelle du point de coordonnées (u, v), te donne accès aux quatre indices relatifs au bloc dont le coin supérieur gauche admet pour coordonnées (x, y):

Code :

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

1
2
3
4
 h:= GetPixel(x, y);
 i:= GetPixel(x, y+1);
 j:= GetPixel(x+1, y);
 k:= GetPixel(x+1, y+1);

Le test d'uniformité de couleur est donné au choix par l'un des algorithmes simples suivants (il y en a bien d'autres):

Code :

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

1
2
3
4
5
6
7
 Test1:= ((h=i) AND ((h=j) AND (h=k)));
 
 s:= Abs(i - h); Inc(s, Abs(j - h)); Inc(s, Abs(k - h)); Test2:= (s=0);
 
 s:= h; 
 IF (h=i) THEN Inc(s, 50); IF (h=j) THEN Inc(s, 50);
 IF (h=k) THEN Inc(s, 50); Test3:= (s>149);

Un inventaire méthodique te permet de repérer tous les blocs, de les dénombrer et de mémoriser les coordonnées du coin s.g., et même la couleur:

Code :

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

1
2
3
4
5
6
 Nb:= 0;
 FOR x:= 0 TO 254 DO
   FOR y:= 0 TO 254 DO
     IF Test(x, y, h) THEN BEGIN
                             Inc(Nb); WriteLn(Fichier, Nb:8, x:5, y:5, h:4)
                           END;

La dernière instruction <WriteLn> (citée de mémoire) doit sans doute être complétée, afin de conduire à une ligne lisible.
La variable (Nb) peut être de type Word, puisqu'elle est au plus égale à 255² = 65025 .

Si on la déclare comme liste de 16 éléments tous initialisés à zéro:

Code :

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

1
2
 Nb: ARRAY[0..15] OF Word; 
FOR h:= 0 TO 15 DO Nb[h]:= 0;

un décompte séparé sur les 16 couleurs devient possible en introduisant la nouvelle instruction:

Code :

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

 Inc(Nb[h])

tout d'abord merci de votre aide,
Oui effectivement j'ai donc un tableau avec un background et je cherche a détecter des bloques de couleur et tout ces bloques on la même couleur.
Le truc c'est que j'emploie scar-divi qui est un compilateur qui permette de gérer plus facilement la partie détection de l'écran,... mais qui na pas les fonction prédéfinies de pascal il en à d'autres qui sont tout aussi utiles même parfois plus.
j'avais déjà essayé de détecter toutes ces couleurs grace au code suivant (j'ai fais un bloque de 90 sur 90 pour que ce soit plus petit)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program New;
var 
  Points : TPointArray;
  Idx, Len : Integer;
  P : TPoint;
 
begin
  if FindColorEx(Points, 1721408, 0, 0, 90, 90) then // retourne un tableau contenant toutes les coordonnées détectée de la couleur
  begin
    Len := Length(Points);
    for idx := 0 to Len - 1 do
    begin
      P := Points[Idx];
      WriteLn(IntToStr(P.X) + ', ' + IntToStr(P.Y));
      Inc(P.X);//j'incrémente pour exclure le x+1 des points
      //Pas trop d'idée pour exclude le y+1 de chaque point
     // ainsi que le x+1, y+1 
    end;
  end;
end.

mais le problème étant qu'il me retourne les coordonnées du haut de chaque bloque ainsi qu du bas évidement et je ne sais pas comment exclure la partie basse de chaque bloque.
J'ai d'abord pensé à incrémenter aussi a chaque fois l'Y mais après me suis fais la réflexion qu'il n'irait jamais à la fin de la ligne alrs quand il en trouverait 1



Ajout
devrais-je peut être faire une deuxième boucle ou j'enregistre les point déjà trouvé dans le tableau le parcourir pour comparer avec le point actuel? Car je n'ai pas trop d'autre idée

Rectification

Code :

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

 Inc(P.X);//j'incrémente pour exclure le x+1 des points

pour

Code :

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

 Inc(Idx);//j'incrémente pour exclure le x+1 des points

[wiwaxia]

Intéressant, ce compilateur qui utilise le langage Pascal ... mais seul un utilisateur aguerri pourra te fournir une réponse complète.
Quelques remarques, simplement, après lecture du texte:

1°) Quelles sont les dimensions du tableau proposé ? 90×90 ou 91×91 ? Car j'ai l'impression d'informations contradictoires:

... j'ai fait un bloc de 90 sur 90 pour que ce soit plus petit ...

Code :

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

 ... if FindColorEx(Points, 1721408, 0, 0, 90, 90) then ...

2°) Quelle est la valeur de l'entier (Len) ? 90 ou 90² , 91 ou 91² , ou une valeur plus faible ? Je n'ai pas compris quelle est la boucle décrite - on n'en voit d'ailleurs qu'une seule, ce qui suppose un parcours de tous les éléments d'un tableau unidimensionnel (*):

Code :

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

1
2
3
4
5
6
    for idx := 0 to Len - 1 do
    begin
      P := Points[Idx];
      WriteLn(IntToStr(P.X) + ', ' + IntToStr(P.Y));
      Inc(P.X); 
    end

(*) j'aurais dû y penser, (Len) est la longueur de la liste.
Les instructions semblent correspondre à la copie des coordonnées de tous les points listés - un couple (P.X, P.Y) par ligne; ce qui suppose que la sélection des blocs monochromes de 4 pixels a été faite dès le départ ... ou dans un autre programme (ou une autre macro). De quel ensemble de pixels est-tu parti ? Du tableau nommé Points, sans doute ... Mais qu'y a-t-il dans chacun de ses éléments: les coordonnées (x, y), et la couleur, sous forme de triplet (r, v, b) ?

3°) On en vient à ce qui aurait dû être posé en premier lieu: à quoi correspond la fonction booléenne FindColorEx(...), que représentent ses arguments (notamment les deux premiers: (Points, 1721408, ... ) .

Code :

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

 ... if FindColorEx(Points, 1721408, 0, 0, 90, 90) then ...

Après quelques explications, on pourrait peut-être ébaucher un algorithme ...
Avec un peu de chance, ton travail de traduction restera assez limité.

[Sparky95]

Intéressant, ce compilateur qui utilise le langage Pascal ... mais seul un utilisateur aguerri pourra te fournir une réponse complète.
Quelques remarques, simplement, après lecture du texte:

1°) Quelles sont les dimensions du tableau proposé ? 90×90 ou 91×91 ? Car j'ai l'impression d'informations contradictoires:

effectivement je me suis trompé alrs qu'on venaient d'en parler juste avant

[Sparky95]

2°) Quelle est la valeur de l'entier (Len) ? 90 ou 90² , 91 ou 91² , ou une valeur plus faible ? Je n'ai pas compris quelle est la boucle décrite - on n'en voit d'ailleurs qu'une seule, ce qui suppose un parcours de tous les éléments d'un tableau unidimensionnel (*):

Code :

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

1
2
3
4
5
6
    for idx := 0 to Len - 1 do
    begin
      P := Points[Idx];
      WriteLn(IntToStr(P.X) + ', ' + IntToStr(P.Y));
      Inc(P.X); 
    end

(*) j'aurais dû y penser, (Len) est la longueur de la liste.
Les instructions semblent correspondre à la copie des coordonnées de tous les points listés - un couple (P.X, P.Y) par ligne; ce qui suppose que la sélection des blocs monochromes de 4 pixels a été faite dès le départ ... ou dans un autre programme (ou une autre macro). De quel ensemble de pixels est-tu parti ?

LEN retourne 16 dans ce cas si car il y a 16 pixels de la mm couleur

[Sparky95]

3°) On en vient à ce qui aurait dû être posé en premier lieu: à quoi correspond la fonction booléenne FindColorEx(...), que représentent ses arguments (notamment les deux premiers: (Points, 1721408, ... ) .

Code :

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

 ... if FindColorEx(Points, 1721408, 0, 0, 90, 90) then ...

Après quelques explications, on pourrait peut-être ébaucher un algorithme ...
Avec un peu de chance, ton travail de traduction restera assez limité.

et oui effectivement j'ai oublié de remettre les types demandés par la fonction (pointarray, color, xs, ys, xe, ye):boolean

[Sparky95]

c'est vrais que j'aurais du rajouter des commentaire :p
donc en claire:
- FindColorEx retourne un boolean si il trouve des points
FindColorEx(out Points: TPointArray, Color: LongInt, Xs:LongIng, Ys:LongIng, Xe:LongIng, Ye:LongIng): boolean;

-Len
taille du tableau (nombre de fois que le pixel à été trouvé)

-P := Points[Idx];
les coordonnées de chaque point