%% taille fenetre en jps
-30 30 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 (MATHEMATIQUE 
AU 
LYCEE PHILIPPE LAMOUR) 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