Unité Graph : Fonction ImageSize

Déclaration

Description

Avant d'appeler ImageSize, vous devez passer en mode graphique avec InitGraph ou SetGraphMode.

Références croisées GetImage PutImage

Exemple

uses Graph;
var
  driver, mode : Integer;
  p : Pointer;
  size : LongInt;
begin
  driver := Detect;
  InitGraph( driver, mode, '' );
  Bar( 20, 20, 80, 80 );
  SetFillStyle( HatchFill, 1 );
  Bar( 40, 40, 100, 100 );
  size := ImageSize( 30, 30, 70, 70 );
  GetMem( p, size );
  GetImage( 30, 30, 70, 70, p^ );
  Readln;
  PutImage( 130, 30, p^, NormalPut );
  PutImage( 20, 20, p^, XORPut );
  Readln;
  CloseGraph;
end.

Format de sauvegarde (Ajout du webmaster Bruno AUBIN)

1. Largeur en pixels (Type word)
2. hauteur en pixels (Type word)
3. nombre de bits par pixels (Type word) : 65536 bit maxi (le maximum possible dans tous les systèmes informatique actuels est de 24 bits, ou 32 avec le masque)
4. Données...

Le format des données dépend du nombre de bits données dans le 3^ème paramètre d'entête. En général, le nombre de bits est de 1 bit (2 couleurs possibles), 2 bits (4 couleurs possibles), 4 bits (16 couleurs), 8 bits (256 couleurs), 16 bits soit 2 octets (65536 couleurs comme sur l'Atari Falcon 030) ou 24 bits soit 3 octets (Format true color).
Ce nombre de bits dépend du nombre de couleurs gérées sur votre mode vidéo courant, il peut être supérieur à ce que Graph peut gérer en nombre de couleurs (qui est de 16 couleurs max sur Turbo Pascal et Pure Pascal).

Si vous voulez écrire une fonction ou une procédure pour manipuler les données du pointeur image, vous devez donc tenir compte du nombre de bits par couleur (3^ème paramètre) sauvegardé dans cette zone. S'il s'agit de 4 bits, cela signifie qu'un octet (8 bits) donne les couleurs de 2 pixels consécutifs. S'il s'agit de 2 bits, un octet donnera les couleurs de 4 pixels consécutifs.
Pour gérer les couleurs de pixels par octet de data, vous devez créer une variable "masque" dont la valeur est 2^nb_bits-1 pour avoir la couleur du pixel le plus à droite de l'octet, puis diviser par 2^nb_bits pour décaler les bits de gauche vers la droite. Il vaut mieux utiliser la division que les décalages de bits, cette opération est au moins aussi rapide, voire plus, lorsque converti en langage machine que les seuls décalages de bits!!.

Important : Il est à noter aussi que pour chaque rangée, le format image utilise des données pour un multiple de 8 pixels par excès. Ca signifie que si vous enregistrez 65 pxl de large (64+1), la fonction GetImagesize prendra en compte 72 pixels de large (au lieu de 65)!

Exemple

• 6 + (40×32) = 1286 octets si vous avez 8 bits par pixel
• 6 + (40×32)/2 = 646 octets si vous avez 4 bits par pixel
• 6 + (40×32)/4 = 326 octets si vous avez 2 bits par pixel
• 6 + (40×32)/8 = 166 octets si vous avez 2 bits par pixel