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 equ1_023a.jps
Retour
%% code jps desormais obsolete (23/09/2003) -5 5 setxrange -8 4.5 setyrange /A {-2 -1} def /B {0 -1} def /C {2 -1} def /P {0 -6} def %% point d'attache du parachute /l .3 def /L 1 def /Q {P 0 L 2 div neg addvecteur} def /arcpath { 5 copy pop dup %% x0, y0, r, ang1, ang2, x0, y0, r, ang1, ang1 cos 5 1 roll %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, r, ang1 sin exch dup %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, sin(ang1),r, r 6 1 roll %% x0, y0, r, ang1, ang2, r, cos(ang1), x0, y0, sin(ang1),r mul add 4 1 roll %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), r, cos(ang1), x0 3 1 roll mul add %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), x0 + r cos(ang1) exch smoveto sarc } def /arcnpath { %% x0 y0 r ang1 ang2 5 copy pop dup %% x0, y0, r, ang1, ang2, x0, y0, r, ang1, ang1 cos 5 1 roll %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, r, ang1 sin exch dup %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, sin(ang1),r, r 6 1 roll %% x0, y0, r, ang1, ang2, r, cos(ang1), x0, y0, sin(ang1),r mul add 4 1 roll %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), r, cos(ang1), x0 3 1 roll mul add %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), x0 + r cos(ang1) exch smoveto sarcn } def .7 setgray gsave newpath O smoveto 1 .8 scale O 3.2 185 -5 arcnpath O slineto clip fill grestore 1 setgray gsave newpath C smoveto C 2 sqrt 33 140 arcpath clip fill grestore gsave newpath B smoveto B 2 sqrt 40 140 arcpath clip fill grestore gsave newpath A smoveto A 2 sqrt 40 147 arcpath clip fill grestore 0 setgray gsave A 2 sqrt 45 147 tracearc B 2 sqrt 45 135 tracearc C 2 sqrt 33 135 tracearc 1 .8 scale O 3.2 -5 185 tracearc grestore /A1 {A 2 sqrt 0 addvecteur A 147 rotatepoint} def /A2 {A 2 sqrt 0 addvecteur A 45 rotatepoint} def /A3 {B 2 sqrt 0 addvecteur B 45 rotatepoint} def /A4 {C 2 sqrt 0 addvecteur C 33 rotatepoint} def thin setcourbelinewidth [P A1] traceligne [P A2] traceligne [P A3] traceligne [P A4] traceligne 0 4 point setTimesItalic (O) 0 4 lefttext (i) 0 3.4 righttext newpath 0 4 hadjust xunit div -.7 addvecteur 0 fontcorps yunit div addvecteur 2 copy .5 0 addvecteur tracevecteur stroke 0 4 0 3 tracevecteur Q times2 Q Q 0 -1.3 addvecteur tracevecteur Q Q 0 1.3 addvecteur tracevecteur (P) Q 0.1 -.7 addvecteur righttext (R) Q 0.1 .2 addvecteur righttext %% fleche sur P newpath Q hadjust xunit div -.7 addvecteur 0.1 fontcorps yunit div addvecteur 2 copy .5 0 addvecteur tracevecteur stroke %% fleche sur R newpath Q hadjust xunit div .2 addvecteur 0.1 fontcorps yunit div addvecteur 2 copy .5 0 addvecteur tracevecteur stroke newpath P smoveto l -2 div 0 srmoveto l 0 srlineto 0 L neg srlineto l neg 0 srlineto 0 L srlineto closepath stroke
Tapez les 3 lettres : AWE