unit pcxcomn;

{$mode objfpc}{$H+}

interface

type

  TRGB = packed record
    Red, Green, Blue: byte;
  end;

  TPCXHeader = record
    FileID:   byte;                      // signature $0A fichiers PCX, $CD fichiers SCR
    Version:  byte;                     // 0: version 2.5
    // 2: 2.8 avec palette
    // 3: 2.8 sans palette
    // 5: version 3
    Encoding: byte;                    // 0: non compresser
    // 1: encodage RLE
    BitsPerPixel: byte;                // nombre de bits par pixel de l'image: 1, 4, 8, 24
    XMin,                              // abscisse de l'angle supérieur gauche
    YMin,                              // ordonnée de l'angle supérieur gauche
    XMax,                              // abscisse de l'angle inférieur droit
    YMax,                              // ordonnée de l'angle inférieur droit
    HRes,                              // résolution horizontale en dpi
    VRes:     word;                        // résolution verticale en dpi
    ColorMap: array[0..15] of TRGB;    // Palette
    Reserved,                          // Réservé
    ColorPlanes: byte;                 // Nombre de plans de couleur
    BytesPerLine,                      // Nombre de bits par ligne
    PaletteType: word;                 // Type de palette
    //      1: couleur ou N/B
    //      2: dégradé de gris
    Fill:     array[0..57] of byte;        // Remplissage
  end;

implementation

end.
