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 cerc_clip_3.jps
Retour
%% auteur : -3 3 setxrange -3 3 setyrange /fillstyle {bleu hachure} def /cerc {3 3 1} def %% la famille des 4 cercles de l'extremite droite du dessin [cerc 3 {dupc 0 -2 translatecercle} repeat] %% chaque cercle est duplique puis tranlate de 2 colonnes {dupc -4 0 translatecercle} capply %% chaque cercle est duplique puis tranlate d'une colonne {dupc -2 0 translatecercle} capply /les_cercles exch def %% on stocke le tableau de cercles les_cercles {pop} capply %% on recupere le tableau des centres /les_centres exch def %% et on le stocke les_cercles {cercle} capply %% on dessine les cercles %% on cree le tableau [/A1 /A2 ... /A16] /les_noms [/A les_centres length 2 idiv %% le nombre de points genMiname] def %% on associe les noms aux points les_noms les_centres mapnp gsave newpath [A2 A12 A15 A5] polygone_ closepath clip les_cercles {cercle*} capply %% on dessine les cercles hachures grestore
Tapez les 3 lettres : AWE