Tom
2006-07-26 08:54:35 UTC
Salut,
J'ai fait un programme postscript pour me générer une « image de fonte
». Le principe : je lui donne une liste de caractères et il m'affiche un
tableau de 16 colonnes, avec chaque lettre centrée dans la colonne.
C'est pour générer un bitmap pour faire des polices que je charge en
openGL plus tard.
Bref mon problème c'est les caractères accentués : ils en sont pas
affichés, ou affichent n'importe quoi. Alors y a-t-il un moyen de
spécifier l'encodage ?
Pour info voici mon source :
%!PS-Adobe EPSF-3.0
%%Pages:1
%%BoundingBox: 0 0 320 210
%%EndComments
/fontsize 20 def
/space 10 def
/letters
(abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890
àâäéè^ëîïôöùûüÿç\050\051{}[]+-/*=,.:.!?<>'#\"~@_\\°) def
/Helvetica findfont
fontsize scalefont setfont
gsave
0 1 letters length 1 sub
{
/ii exch def
fontsize ii 16 mod mul
fontsize letters ii 1 getinterval stringwidth pop sub 2 div add
letters length 16 idiv fontsize space add mul
fontsize ii 16 idiv 1 sub fontsize space add mul add sub
moveto
letters ii 1 getinterval show
} for
grestore
% showpage
%%Trailer
% end
% userdict /end-hook known{end-hook}if
%%EOF
J'ai fait un programme postscript pour me générer une « image de fonte
». Le principe : je lui donne une liste de caractères et il m'affiche un
tableau de 16 colonnes, avec chaque lettre centrée dans la colonne.
C'est pour générer un bitmap pour faire des polices que je charge en
openGL plus tard.
Bref mon problème c'est les caractères accentués : ils en sont pas
affichés, ou affichent n'importe quoi. Alors y a-t-il un moyen de
spécifier l'encodage ?
Pour info voici mon source :
%!PS-Adobe EPSF-3.0
%%Pages:1
%%BoundingBox: 0 0 320 210
%%EndComments
/fontsize 20 def
/space 10 def
/letters
(abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890
àâäéè^ëîïôöùûüÿç\050\051{}[]+-/*=,.:.!?<>'#\"~@_\\°) def
/Helvetica findfont
fontsize scalefont setfont
gsave
0 1 letters length 1 sub
{
/ii exch def
fontsize ii 16 mod mul
fontsize letters ii 1 getinterval stringwidth pop sub 2 div add
letters length 16 idiv fontsize space add mul
fontsize ii 16 idiv 1 sub fontsize space add mul add sub
moveto
letters ii 1 getinterval show
} for
grestore
% showpage
%%Trailer
% end
% userdict /end-hook known{end-hook}if
%%EOF
--
Tom
Tom