/positionimagebasgauche {
margehoriz hauteurpage tailleimage exch pop sub
margevert sub } def
/largeurligne {
largeurpage margehoriz 2 mul sub
currentpoint exch pop positionimagebasgauche exch pop ge
{ tailleimage pop margehoriz add sub } if
} def
/tracerligne { largeurligne 0 rlineto stroke } def
newpath
couleurtrait
epaisseurtrait setlinewidth
hauteurpage margevert sub dup margehoriz
fichierimage () ne
{ 2 mul tailleimage pop add } if
exch moveto
{ tracerligne
espaceligne sub dup dup
positionimagebasgauche exch pop ge
{ margehoriz 2 mul tailleimage pop add }
{ margehoriz } ifelse
exch dup
margevert lt
{ exit } if
moveto } loop
fichierimage () ne
{ gsave
positionimagebasgauche translate
/showpage { } def % saloperie d'EPS avec des showpage dedans
fichierimage run
pop pop pop
grestore } if
showpage
Et voilà ! C'est pas parfait mais bon ;)
Attention, je ne critique pas, je voulais juste me péter un délire en PostScript :)
# Houlà mais LaTeX c'est de l'overkill :)
Posté par Jean-Yves B. . En réponse à la dépêche Papier à lettre linux/BSD. Évalué à 9.
%!PS-Adobe-2.0
%Pages: 1
% Flemme de specifier la bounding box, les valeurs en dessous sont
% pour du A4
/centimetres { 2.54 div 72 mul } def
/largeurpage 21 centimetres def
/hauteurpage 29.7 centimetres def
/margehoriz 1 centimetres def
/margevert 1.2 centimetres def
/espaceligne 1 centimetres def
/epaisseurtrait .001 centimetres def
/fichierimage (testgrad.eps) def % nom de l'image en .eps , () si pas de fichier
/tailleimage { 138 160 } def % taille x y (pixels si image en 72 ppi)
%% -- choisir un des 3 modes --
% /couleurtrait { .4 0 0 .4 setcmykcolor } def
/couleurtrait { .8 setgray } def
% /couleurtrait { 0 .4 .8 setrgbcolor } def
%%%%% rien à paramétrer plus loin !
fichierimage () eq
{ /tailleimage { 0 dup } def } if
/positionimagebasgauche {
margehoriz hauteurpage tailleimage exch pop sub
margevert sub } def
/largeurligne {
largeurpage margehoriz 2 mul sub
currentpoint exch pop positionimagebasgauche exch pop ge
{ tailleimage pop margehoriz add sub } if
} def
/tracerligne { largeurligne 0 rlineto stroke } def
newpath
couleurtrait
epaisseurtrait setlinewidth
hauteurpage margevert sub dup margehoriz
fichierimage () ne
{ 2 mul tailleimage pop add } if
exch moveto
{ tracerligne
espaceligne sub dup dup
positionimagebasgauche exch pop ge
{ margehoriz 2 mul tailleimage pop add }
{ margehoriz } ifelse
exch dup
margevert lt
{ exit } if
moveto } loop
fichierimage () ne
{ gsave
positionimagebasgauche translate
/showpage { } def % saloperie d'EPS avec des showpage dedans
fichierimage run
pop pop pop
grestore } if
showpage
Et voilà ! C'est pas parfait mais bon ;)
Attention, je ne critique pas, je voulais juste me péter un délire en PostScript :)