Présentation de picture_01.jps

%% 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)