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 481.jps
Retour
1 setlinewidth %% epaisseur du trait %% definition d'une macro executable a 2 arguments %% syntaxe : largeur longueur rectangle --> produit un rectangle de %% coin inferieur droit le point (0, 0) /rectangle { 2 dict begin %% definition d'un nouveau dictionnaire a 2 variables newpath %% nouveau chemin /longueur exch def /largeur exch def 0 0 moveto %% deplacement 0 largeur rlineto %% deplacement relatif longueur 0 rlineto %% deplacement relatif 0 largeur neg rlineto %% deplacement relatif closepath %% fermeture du chemin stroke %% encrage end %% on jette le dictionnaire ==> les 2 %% variables sont locales } def gsave %% sauvegarde de l'etat graphique 10 10 translate %% deplacement 30 30 rectangle %% dessin du rectangle grestore %% restauration de l'etat graphique gsave %% sauvegarde de l'etat graphique 2 setlinewidth %% epaisseur du trace 50 50 translate %% deplacement 30 60 rectangle %% dessin du rectangle grestore %% restauration de l'etat graphique
Tapez les 3 lettres : AWE