UNIT POSITION_BY_COLOR

Commentaire de DeltaFX le 28/12/2005 12:46:00

Exact ! je ponds ca et j'ajoute.

Commentaire de MAURICIO le 28/12/2005 18:42:43 administrateur CS

Le ScanLine est bien plus rapide en effet.
Par contre, le contrat est rempli même si on peut optimiser simplement en transformant le bmp en 256 couleurs, voire 16 couleurs :)

Je vais peut etre faire un update à mon compo pour implémenter cette fontion si ça interesse des personnes ...
A+

Commentaire de DeltaFX le 29/12/2005 12:55:37

Scanline:

Sur Y ca ne changerait rien, et déja je n'utilise qu'une ligne sur 2. Je pourrais scanner une ligne sur 3 aussi, mais dans l'identification des retctangle, ca alourdit la recherche du coin supérieur gauche du rectangle.

Sur x, mouaip, mais je devrais quand meme explorer "pixel" à "pixel" le resultat du scanline. Pour pas réexplorer chaque ligne d'un rectangle identifié, je fais un "jump" hors du rectangle, donc pas possible d'utiliser un "for" car je devrais modifier l'indice du compteur, ce qui me déplait, et donc je dois garder un while.

Mainteant si acceder au n-ieme élément du scanline me prend carrément moins de temps que de regarder le n-ieme pixel de la ligne y du bitmap, ouaip, je vais tester. :)

Commentaire de f0xi le 30/12/2005 20:28:06 administrateur CS

bravo! belle nouvelle performance.

comme tu dis, le resultat est sympa. 15ms c'est mieux que 140ms a l'origine, un gain non negligeable.

moi je considere une performance bonne quand les resultats sur un gros traitement donne a moins de 70ms.

15ms la ... c'est carrement acceptable.

sinon, pourquoi ne pas simplement utiliser une template XML ou pseudo-sctructuré-XML ?

genre :

<newzone><z>numero</z><r>left,top,width,height</r></newzone>

ou a la francis :

%numero{left,top,width,height}

ce serais moins lourd et plus simple ne pense tu pas ?


en tout cas ton truc reste interressant pour le skinning d'appli.

Commentaire de DeltaFX le 31/12/2005 22:00:40

Addendum : Je vais devoir réécrire un bout du code car il y a une possibilité de boucle infinie, et j'aime pas.

Je vais explorer du coté des régions, histoire d'etre étanche si la tache colorée est pas parfaitement rectangulaire.

En gros à chaque ligne explorée, dès que j'ai un pixel pas blanc, je crée une region (1 pixel de haut et n de long). Si cette région à la meme couleur qu'une déja vue, je fusionne, sinon je crée une nouvelle ligne dans l'AreaColorList. Et ainsi de suite.

A la fin , GetRgnBox pour avoir le rectangle englobant de chaque région et zoooooo !

Ca sera peut-etre pas aussi rapide, mais niveau sécurité, impossible d'avoir un cercle visqueux.

Bonne Année 100000000110  :)

Commentaire de DeltaFX le 03/01/2006 00:19:43

Je l'ai réécrit comme ca :

procedure PlaceCtrl(const Ctrl: TControl);
var
  R: TRect;
begin
  if GetTLWH(Ctrl.Tag, R) then
  begin
    Ctrl.Left   := R.Left;
    Ctrl.Top    := R.Top;
    Ctrl.Width  := R.Right;
    Ctrl.Height := R.Bottom;
  end;
end;


procedure BrowseControls(const Main: TWinControl);
var
  I: Integer;
begin
  for I := 0 to Main.ControlCount -1 do
  if Main.Controls[I].Tag <> 0 then
    PlaceCtrl(Main.Controls[I]);
end;

Il se peut que certains ne doivent pas etre repositionnés, et comme il me faut de toute manière lire la couleur utilisée par chaque Control dans un .ini, dans le FormCreate je regle au cas par cas comme suit:

B1.Tag:=RGB(255,0,128); // sera remplacé par une lecture de Ini
PlaceCtrl(B1);

Une putain de bonne idée. Merci Florenth.

Commentaire de wolf691300 le 22/01/2006 18:45:43

Pour améliorer ton programme, y placer un peu de finesse dans son ensemble, j'y vois une représentation fort grossière dans le graphisme. Aller améliore ...Et bonne continuation ... J'ai l'impression de voir des oeux déposé par des cloches ...

Wolf691300 + Joyeuses Pâques ...