A B C D
E F G H
I J K L
M N O P

{ A B C D E F
  G H I J K L
  M N O P Q R
  S T U V W X
  Y Z [ \ ] ^    Police de caracteres vectorielle et proportionnelle
  _ ` a b c d
  e f g h i j
  k l m n o p
  q r s t u v }

Type String20  = String[20];
     String255 = String[255];

Var Leve : Boolean;
    Taille, EchX, EchY,Xp,Yp,XDeb : Integer;

Procedure DspVecPic(Dessin:String20);
Var i,v:Integer;
Begin
 Leve:=True;
 GetGraCur(Xp,Yp);
 For i:=2 To Length(Dessin) Do
  Case Dessin[i] Of
    'A'..'z': Begin
      v:=Ord(Dessin[i])-65;
      If Leve Then Begin
        MovAbs(xp+(v mod Taille)*EchX,yp-(v div Taille)*EchY);
        Leve:=False;
      End Else
        DrwLinAbs(xp+(v mod Taille)*EchX,yp-(v div Taille)*EchY);
    End;
    '-' : Leve:=True;
  End;
 Val(Dessin[1],v,i);
 MovAbs(Xp+v*EchX+EchX,Yp);
End;

Procedure DspVecChr(c:Char);
Begin
  Taille:=6;
  Case C of
    'a' : DspVecPic('3mleYTUm');
    'b' : DspVecPic('3lkG-ST[gl');
    'c' : DspVecPic('3mleYTU');
    'd' : DspVecPic('3ImleYTU');
    'e' : DspVecPic('3mleYT[a_');
    'f' : DspVecPic('2kMH-YZ');
    'g' : DspVecPic('3gf_YTUmrq');
    'h' : DspVecPic('3kG-ST[m');
    'i' : DspVecPic('1GG-Sk');
    'j' : DspVecPic('2HH-Tlq');
    'k' : DspVecPic('3kG-eU-_m');
    'l' : DspVecPic('1Gk');
    'm' : DspVecPic('5kYT[m-[V]o');
    'n' : DspVecPic('3kST[m');
    'o' : DspVecPic('3leYT[gl');
    'p' : DspVecPic('3qST[afe');
    'q' : DspVecPic('3gf_YTUs');
    'r' : DspVecPic('3kST[');
    's' : DspVecPic('3klgYTU');
    't' : DspVecPic('2Gel-ST');
    'u' : DspVecPic('3SelmU');
    'v' : DspVecPic('3SlU');
    'w' : DspVecPic('5Selga-gniW');
    'x' : DspVecPic('3ke[U-SYgm');
    'y' : DspVecPic('3S__fgmrq-gU');
    'z' : DspVecPic('4nkVS');
    'A' : DspVecPic('4kMHIPn-Y\');
    'B' : DspVecPic('5knic\Z-lH-GIP[Z-');
    'C' : DspVecPic('4nleMHJ');
    'D' : DspVecPic('5GJQink-lH');
    'E' : DspVecPic('4nkGJ-Y[');
    'F' : DspVecPic('4kGJ-Y[');
    'G' : DspVecPic('4[\hmleMHJ');
    'H' : DspVecPic('4kG-nJ-Y\');
    'I' : DspVecPic('3km-lH-GI');
    'J' : DspVecPic('4elmhJ');
    'K' : DspVecPic('4kG-YJ-Yn');
    'L' : DspVecPic('4Gkn');
    'M' : DspVecPic('5kGUKo');
    'N' : DspVecPic('4kG-Mh-nJ');
    'O' : DspVecPic('4mleMHIPhm');
    'P' : DspVecPic('4kGIPV[Y');
    'Q' : DspVecPic('4mleMHIPhm-gt');
    'R' : DspVecPic('4kGIPV[Y-[n');
    'S' : DspVecPic('4JHMSZ[bhmk');
    'T' : DspVecPic('5GK-Im');
    'U' : DspVecPic('4GelmhJ');
    'V' : DspVecPic('5GmK');
    'W' : DspVecPic('5GkaoK');
    'X' : DspVecPic('3GSam-k_UI');
    'Y' : DspVecPic('3GMZl-ZUI');
    'Z' : DspVecPic('4GJkn');
    '&' : DspVecPic('3mleYT[a_-GB');
    '$' : DspVecPic('3mleYT[a_-BI');
    '^' : DspVecPic('3mleYT[a_-GBI');
    '''': DspVecPic('2BHM');
    '.' : DspVecPic('1kk');
    '@' : DspVecPic('3mleYTUm-BI');
    '?' : DspVecPic('4ll-MHIPZ`');
    ',' : DspVecPic('2flq');
    ';' : DspVecPic('2flq-ZZ');
    '!' : DspVecPic('1kk-_G');
    ' ' : DspVecPic('1');
    '"' : DspVecPic('3GM-IO');
    '/' : DspVecPic('3Ok');
    '-' : DspVecPic('3_a');
    ':' : DspVecPic('1SS-ee');
    '=' : DspVecPic('4SV-eh');
    '[' : DspVecPic('2HGkl');
    ']' : DspVecPic('2GHlk');
    '(' : DspVecPic('2HMel');
    ')' : DspVecPic('2GNfk');
    '_' : DspVecPic('3leYT[gl-Tl');
    '0' : DspVecPic('3kSNOglk');
    '1' : DspVecPic('3SNlkm');
    '2' : DspVecPic('3MNU[ekm');
    '3' : DspVecPic('3MO[Z-[glk');
    '4' : DspVecPic('3M_a[m');
    '5' : DspVecPic('3OMYZaglk');
    '6' : DspVecPic('3ONSelgaZY');
    '7' : DspVecPic('3MOl');
    '8' : DspVecPic('3YSNO[Yklg[');
    '9' : DspVecPic('3klgUNSYa');
    '{' : DspVecPic('3SUgeS');
    '}' : DspVecPic('3SUgeSTf');
    '+' : DspVecPic('3_a-Zf');
    #00 : SetGraPen(0);
    #01 : SetGraPen(1);
    #02 : SetGraPen(2);
    #03 : SetGraPen(3);
    #13 : Begin MovAbs(XDeb,Yp-(2*(Taille))*EchY); End;
  End;
End;

 Procedure DspVecStr(S:String255);
  Var i:Byte;
  Begin
   GetGraCur(Xp,Yp); XDeb:=Xp;
   For i:=1 To Length(S) Do DspVecChr(S[i]);
  End;