348.jps

%% taille fenetre en jps

-10 10 setxrange
-4 4 setyrange
20 setxunit

%% le fichier no2 d'Arnaud Schmittbuhl

% (c) P. Kleiweg 1997

% adaptation plagiat M.L. 05/06/2006

 
%/Font /Utopia-Regular def

/Font /Times-Roman def
 
/warp { % x y 1 index => x y x

1 index % position  horizontale du point courant X

periode N mul  mul
cos 2 add
mul     % hauteur finale Y

} bind def
 
/warpmove{
2 index { % détecte la position éventuelle  d'un caractère ???

newpath
} if
warp  moveto
pop false
} bind def
 
/warpline {
warp
lineto
} bind def
 
/warpcurve {
6 2 roll warp
6 2 roll warp
6 2 roll warp
curveto
}  bind def
 
/warpit {
true
{ warpmove } {  warpline } { warpcurve } { closepath } pathforall
pop
}  bind def
 
%% modif jpv

%% 297 600 translate


% taille de des caractères

Font findfont 40 scalefont setfont
 
/warptxt (Modulation d'amplitude) def % texte à déformer

/warpwidth  warptxt stringwidth pop def % largeur horizontale du texte

/warphalf  warpwidth 2 div def % demi-largeur horizontale

 
/periode {360 warpwidth div} bind def % une sinusoïde

/N 3 def %  ondulation sur 3 périodes


%% modif 1

%% sinusoïde du haut

%% 2 sinusoïdes clippées

warphalf neg 20 moveto
warphalf neg 1 warphalf { 20 lineto } for % les 2  sinusoïdes

warphalf -1 warphalf neg { 22 lineto } for
closepath

%% modif 2

%% sinusoïde du bas

%% 2 sinusoïdes clippées

warphalf neg -20 moveto
warphalf neg 1 warphalf { -20 lineto } for % les 2  sinusoïdes

warphalf -1 warphalf neg { -22 lineto } for
closepath

%% modif 3

warphalf neg -12 moveto
warptxt true charpath

%% c'est parti !

warpit
gsave
.6 1 1  setrgbcolor
fill
grestore
stroke
 
%%showpage