Présentation de picture_01.jps

/syracuse/bbgraf/icons/tutoriel/picture_01.jpg
%% on desactive la commande de tracage des vecteurs unite /unites {} def %% puis on dessine le fond quadrillage tracerepere marks %% on definit le dessin de notre nouvel objet /mon_dessin { gsave currentpoint translate %% incantation a rajouter pour pouvoir %% utiliser cette procedure dans %% l'environnement 'picture' %% Maintenant le dessin 0 0 point 0 1 1 1.5 ellipse bleu [-1 0 2 0] (->) ligne orange [0 -1 0 1 ] (->) ligne grestore } def %% puis la procedure donnant ses dimensions /mon_dessin_dim { %% les dimensions, dans le repere ps, de la BB du dessin; -1 -1 jtoppoint 2 2.5 jtoppoint } def %% on encadre les dessins produits, pour mieux voir la Bounding Box boxit_all %% puis on place les dessins 0 0 (mon_dessin) bbpict %% point bb au point (0, 0) -4 4 [1 dup] {30} (mon_dessin) ccpict %% point cc au point (-4, 4) %% echelle (1, 1) %% rotation : 30 degre -4 4 times2 %% une croix pour bien voir (-4, 4) -4 -2 (mon_dessin) drpict %% dans la direction down/right %% par rapport au point (-4, -2) %% d'ou un leger decalage %% ajoute par le format -4 -2 times2 %% une croix pour bien voir (-4, -2) 3 -2 () (mon_dessin) dcpict %% dans la direction down/center %% par rapport au point (3, -2) %% mais le () supprime le decalage %% ajoute par le format 3 -2 times2 %% une croix pour bien voir (3, -2)