Discussion :

[Jipété]

Bonsoir à toutes et à tous.

Ayant décidé d'étudier Scanline, j'ai utilisé l'ami F1 dans mon D7 et suis tombé sur un exemple sympathique (à première vue) que je me suis empressé de copier/coller. Voici la chose :

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
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
// Cet exemple montre le dessin direct dans le BitMap
var
  x,y : Integer;
  BitMap : TBitMap;
  P : PByteArray;
begin
  BitMap := TBitMap.create;
  try
    // Sous Windows remplacer MyBitmap.png par un nom de chemin complet tel que
    // C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
    BitMap.LoadFromFile('MyBitmap.png');
    for y := 0 to BitMap.Height -1 do
    begin
      P := BitMap.ScanLine[y];
      for x := 0 to BitMap.Width -1 do
        P[x] := y;
    end;
    Canvas.Draw(0,0,BitMap);
  finally
    BitMap.Free;
  end;
end;

Le problème (constaté avec plusieurs images qui s'ouvrent parfaitement bien avec PSP, MSPaint et/ou Photoshop), vous le voyez sur l'image ci-dessous à gauche, le tiers gauche est un dégradé de gris...
Je dis "le tiers" car j'ai mesuré, c'est bien le tiers : par exemple, l'image originale fait 189 pixels de large, la zone grise 63. Pareil avec d'autres images.

Par ailleurs, quand on voit le commentaire Borland dans l'exemple, on se dit que ça fonctionnerait mieux avec des images en 256 couleurs, non ? Hé ben, laisse tomber, j'ai essayé avec leur "factory.bmp", résultat c'est complètement n'importe quoi dans ce cas, voir à droite.
Voilà...
Oui, j'ai lu le tuto de Nono mais pour bien le comprendre il me faut connaître les bases, et les bases c'est l'aide de Delphi, et sur ce coup-là, sale temps !

Y aura-t-il un(e) spécialiste du graphisme pour m'éclairer ?

Merci,
--
jp

[Jipété]

Yep,
J'ai un peu creusé (« Aide-toi et le Ciel t'aidera » ) et suis en mesure d'apporter la précision suivante :
« ils » racontent n'importe quoi dans l'aide puisque cet exemple n'utilise pas le résultat de la fonction Scanline (la PByteArrray), la preuve c'est qu'en virant la boucle « For », l'image chargée s'affiche parfaitement (on s'en serait douté), qu'elle soit en 8 ou en 24 bits.

La bonne question, maintenant, est : pourquoi le traitement dans cette boucle met-il la panique, alors qu'il n'est pas utilisé ? Y a-t'il un rapport entre la PByteArray et le BitMap (indépendamment du fait qu'il y a sûrement une ByteArray dans chaque bitmap) ?
Mais la déclaration des variables ne montre pas de lien entre P et BitMap...
Et même s'il y en a un caché, pourquoi le fait de simplement lire me trafique les données de l'image ? Je suis perdu, là...

Si quelqu'un pouvait m'expliquer en deux mots, ça serait cool.
Merci,
--
jp

[tourlourou]

Code :

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

P := BitMap.ScanLine[y];

stocke l'adresse de la yème ligne de l'image dans P (balayage vertical)

Code :

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

P[x] := y;

affecte la yème couleur de la palette ou la couleur y au xème pixel de la ligne

pour une image codée en pf24bits (couleurs réelles sur 3 octets), on aurait déclaré P: ^array of TRGBTriple (ou qqch comme ça !)

[Jipété]

Ah, on se retrouve,

P := BitMap.ScanLine[y]; stocke l'adresse de la yème ligne de l'image dans P (balayage vertical)

D'accord, mais quel rapport entre ce P et le BitMap dans lequel l'image est chargée ?

P[x] := y; affecte la yème couleur de la palette ou la couleur y au xème pixel de la ligne

De quelle ligne ? Quel rapport, quel lien entre une PByteArray et un bitmap ?
Si j'avais vu un truc style BitMap.PByteArray (ça veut rien dire mais c'est l'idée) j'aurais compris, mais là ?
C'est comme si on me disait x := 5; et que ça modifie y.
Comprends rien à c'truc, moi...
--
jp

[Lung]

D'accord, mais quel rapport entre ce P et le BitMap dans lequel l'image est chargée ?

Le rapport est là :

Code :

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

P := BitMap.ScanLine[y];

[Jipété]

Bonjour Lung,

Et merci de ta réponse, mais je la trouve plus que « light » et sybilline (ou alors ch'suis vraiment un boulet). En tout cas, désolé mais je n'ai toujours pas compris, et je ne vois toujours pas le lien...

Code :

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

P := Bitmap.Scanline[y]

Bien. Je traduis ça comme ça, moi :
La propriété Scanline (en lecture seule !) du Bitmap va analyser la ligne [y] de l'image et retourner son résultat dans la PByteArray P.
D'accord ?
(Aide Delphi :

ScanLine, propriété (TBitmap) : Offre un accès indicé à chaque ligne de pixels.

)
Comment/pourquoi la modification de cette PByteArray me modifie-t-elle l'image d'origine ?
C'est un peu comme si on avait

Code :

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

1
2
3
4
var
  hauteur : integer;
begin
  hauteur := BitMap.Height;

et que du coup la Height du Bitmap soit modifiée.
Vous voyez ma perplexité ?

--
jp

[Lung]

L'aide dit que ça renvoi un pointeur :

property ScanLine[Row: Integer]: Pointer;

Donc, pour moi :

Code :

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

P[x] := y;

est la même chose que

Code :

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

BitMap.ScanLine[y][x] := y;

Je me trompe ?

[Jipété]

Je me trompe ?

Je ne sais, Lung, je ne sais pas (et c'est pour ça que je poste, note bien ! )
Je viens de faire la chose suivante :

1. « Nouvelle application », juste une form et un bouton ;
2. Appeler l'aide Delphi de Scanline ;
3. Copier/coller l'exemple dans l'évènement du bouton et adapter le chemin ;
4. À l'exécution je gagne l'image ci-dessous.

Peut-être que c'est ça que Borland veut montrer ? Auquel cas je trouve leur commentaire (Cet exemple montre le dessin direct dans le BitMap) plus qu'inadapté et n'expliquant rien du tout...
Pas vous ?

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
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
// Cet exemple montre le dessin direct dans le BitMap
var
  x,y : Integer;
  BitMap : TBitMap;
  P : PByteArray;
begin
  BitMap := TBitMap.create;
  try
    // Sous Windows remplacer MyBitmap.png par un nom de chemin complet tel que
    // C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
// Donc :
//    BitMap.LoadFromFile('MyBitmap.png');
// Et :
    BitMap.LoadFromFile
      ('C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color\factory.bmp');
    for y := 0 to BitMap.Height -1 do
    begin
      P := BitMap.ScanLine[y];
      for x := 0 to BitMap.Width -1 do
        P[x] := y;
    end;
    Canvas.Draw(0,0,BitMap);
  finally
    BitMap.Free;
  end;
end;

--
jp de + en + perplexe...

[Jipété]

Cherchez plus j'ai trouvé !

L'explication vient de chez efg (avec un bout de chez Michel Bardou), dans un exemple de random :

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
  VAR
   Bitmap:  TBitmap;
   i     :  INTEGER;
   j     :  INTEGER;
   Row   :  pByteArray;
begin
...
    FOR j := 0 TO Bitmap.Height-1 DO
    BEGIN
      // MB : Scanline est un pointeur sans type vers un tableau des lignes du bitmap
      Row := pByteArray(Bitmap.Scanline[j]);
      FOR i := 0 TO (Bitmap.Width DIV PixelsPerByte)-1  DO // PixelsPerByte = 8
      BEGIN
        Row[i] := Random(256)
      END
    END;

L'exemple de l'aide n'est donc pas terrible terrible (pour rester poli) !
Bah, il m'aura au moins servi à chercher pour comprendre, et c'est toujours ça de gagné,
--
jp