Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier 348.jps
Retour
%% 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
Tapez les 3 lettres : AWE