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 336.jps
Retour
%% taille fenetre en jps -10 10 setxrange -2 5 setyrange 20 setxunit %% le fichier de Manuel Luque % (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 %% suppression du decalage de ML %% 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 warphalf neg 30 moveto warphalf neg 1 warphalf { 30 lineto } for % les 2 sinusoïdes warphalf -1 warphalf neg { 32 lineto } for closepath warphalf neg 0 moveto warptxt true charpath warpit gsave .6 1 1 setrgbcolor fill grestore stroke %showpage
Tapez les 3 lettres : AWE