Discussion :

[zuulcoder]

Par contre j'ai tenté de modifier le code pour gérer la continuité "sphérique". Mon but étant d'appliquer cet algorithme à l'étiquetage de continents, îles et océans, et donc un océan sur le bord droit de l'image continu à gauche. On ne devrait trouver qu'un seul label et pas deux.

J'ai essayé avec les modulos (code ci-dessous) tels que déjà implémentés dans l'algo du "Diamond Square". Mais cela ne marche pas. Une idée ?

Code Delphi :

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

1
2
3
4
5
 
     If ( (X>0)   And (fMatrixC[(X-1+W) Mod W,Y Mod H] = fMatrixC[X Mod W,Y Mod H]))             Then Root := CCunion(CCfind(PosI - 1),     Root);
      If ( (X>0)   And (Y>0) And (fMatrixC[(X-1+W) Mod W, (Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H])) Then Root := CCunion(CCfind(PosI - 1 - W), Root);
      If ( (Y>0)   And (fMatrixC[X Mod W,(Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H]))             Then Root := CCunion(CCfind(PosI - W),     Root);
      If ( (X<W-1) And (Y>0) And (fMatrixC[(X+1) Mod W, (Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H])) Then Root := CCunion(CCfind(PosI + 1 - W), Root);

[pseudocode]

Par contre j'ai tenté de modifier le code pour gérer la continuité "sphérique". Mon but étant d'appliquer cet algorithme à l'étiquetage de continents, îles et océans, et donc un océan sur le bord droit de l'image continu à gauche. On ne devrait trouver qu'un seul label et pas deux.

J'ai essayé avec les modulos (code ci-dessous) tels que déjà implémentés dans l'algo du "Diamond Square". Mais cela ne marche pas. Une idée ?

Le plus simple c'est de gérer spécifiquement les pixels qui assurent la continuité sphérique, c'est à dire les pixels sur les bords.

Donc, une fois la double boucle effectuée, on s'occupe de fusionner les bords gauche/droit, puis ensuite les bords haut/bas.

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
For Y := 0 to H - 1 do Begin
  For X := 0 to W - 1 do Begin
    (...)
  End;
End;
 
// merge left/right border
Pos := 0;
For Y := 0 to H - 1 do Begin
  if (Image1[0,Y] = Image1[W-1,Y]) then CCunion( CCfind(Pos), CCfind(Pos+W-1) );
  Pos := Pos + W;
End;
 
// merge top/bottom border
Pos := 0;
For X := 0 to W - 1 do Begin
  if (Image1[X,0] = Image1[X,H-1]) then CCunion( CCfind(Pos), CCfind(Pos+(H-1)*W) );
  Pos := Pos + 1;
End;
 
// Remove indirection...
(...)

(je ne maitrise pas trop Delphi )

[zuulcoder]

Le plus simple c'est de gérer spécifiquement les pixels qui assurent la continuité sphérique, c'est à dire les pixels sur les bords.

Donc, une fois la double boucle effectuée, on s'occupe de fusionner les bords gauche/droit, puis ensuite les bords haut/bas.

(je ne maitrise pas trop Delphi )

Pour quelqu'un qui ne maitrise pas Delphi tu te débrouilles plutôt bien
Cela fonctionne

J'ai mis à jour l'algo Delphi avec cette modif.

Un grand merci pour ta disponibilité et tes conseils avisés

[mjobert]

Bonjour,

Quelqu'un a-t-il testé la vitesse en C et en Java pour confirmer (ou non) si le C va (beaucoup ?) plus vite que Java

Merci

[LTrbl]

Bonjour,

Je relance la discussion quelques années plus tard, je m'en rends bien compte, mais j'espère que quelqu'un pourra m'aider tout de même
J'utilise le code de labellisation en C ( Il fonctionne globalement très bien et est très rapide ! ) Mon problème est que dans certains cas, il labellise un objet et des pixels totalement dissociés avec un même label... Je me retrouve avec un objet bien labellisé et deux ou trois pixels, ailleurs dans l'image, avec le même label. Cela me pose problème dans mon cadre d'application, et je n'en trouve pas la cause.

Si quelqu'un a déjà eût un problème similaire, ou éventuellement une explication, merci d'avance

[ToTo13]

Si quelqu'un a déjà eût un problème similaire, ou éventuellement une explication, merci d'avance

Là ça veut clairement dire que le code ne fonctionne pas !!!
Tu as dû faire une erreur lorsque tu as transcrit le code en C.