echo x - plot_ps.doc
sed 's/^X//' >plot_ps.doc <<'*-*-END_of_plot_ps.doc-*-*'
X
X
X
X
X
X
X
X                                 ***********
X                                 * INIPLOT *
X                                 ***********
X
X
X
X
X
XNAME:   INIPLOT -- Initialize the PostScript plotter
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        iniplot(plot_file,paper);
X        char *plot_file;        File for the plot
X        float paper;            Paper width in cm
X
XDESCRIPTION:
X
X        INIPLOT opens the PostScript file and draws a frame corresponding a
X        the flag page of a line-printer
X
XAUTHOR:
X
X        Dr Jean-Francois Vibert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        plopen() and plclose()
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XINIPLOT                                                              2
X
X
X                                 ***********
X                                 * ENDPLOT *
X                                 ***********
X
X
X
X
X
XNAME:   ENDPLOT -- Close and spools the PostScript file
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        endplot(file,action);
X        char action;    /* Action to take about the plot file
X
X
X                                s: spool and keep
X                                d: spool and delete
X                                f: freeze (no spool)
X                        */
X
XDESCRIPTION:
X
X        ENDPLOT closes the PostScript file and process it according to
X        the action indicated by the char argument:
X
X
X                s: spool and keep
X
X                d: spool and delete
X
X                f: freeze (no spool)
X
XAUTHOR:
X
X        Dr Jean-Francois Vibert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        plopen() and plclose()
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XENDPLOT                                                              3
X
X
X                                  **********
X                                  * PLOT0S *
X                                  **********
X
X
X
X
X
XNAME:   PLOT0S -- Niveau 0 des routines PostScript pour C
X
XDESCRIPTION:
X
X                   Routines de dessin sur la Laser PostScript
X                   en mode symbolique.
X
X        NIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X
X                elementaires qui controlent directement la laser
X                sans pratiquement d'aide a l'utilisateur.
X
X        ATTENTION : Toute les variables de travail des modules commen-
X        cent
X
X                        par 'pl_'
X                    Tous les sous programmes de travail commencent
X                        par 'p_'
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT2_PS
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLOT0S                                                               4
X
X
XNAME    ROUTINES_INTERNES ROUTINES INTERNES DE TRAVAIL:
X
XDESCRIPTION:
X
X                   Routines internes de travail pour
X        creer le fichier de dessin pour la PostScript.
X
X        NIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X
X                elementaires qui controlent directement le traceur
X                sans pratiquement d'aide a l'utilisateur.
X
X        ATTENTION : Toute les variables de travail des modules commen-
X        cent
X
X                        par 'pl_'
X                    Tous les sous programmes de travail commencent
X                        par 'p_'
X
X        P_DEPL Envoi un groupe de 2 valeurs x,y au  format  PostScript
X        avec gestion du deplacement et de la plume
X
X        P_PUTS Envoi une chaine de caracteres avec le  dernier  format
X        (hx,hy,cosa,sina) utilise
X
X        PLOT Deplace la plume au point indique, actualise la  position
X        courante
X
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT2_PS
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLOT0S                                                               5
X
X
X                                  **********
X                                  *  TRAA  *
X                                  **********
X
X
X
X
XNAME    TRAA    MOVE THE PEN IN POSTSCRIPT SPACE (IN CM):
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        traa(x,y,j);
X        float x, y;     x and y coordinates
X                        given in cm
X        int j;           the Benson j parameter
X
XDESCRIPTION:
X
X        TRAA replicates the Benson traa fortran routine.
X
X
X                X and Y are the coordinates of the target given in PostScript
X        space (in centimeters).
X
X                These coordinates are considered as absolute (j=0 or j=1) or
X        relative (j=2 or j=3) according to the value of j.
X
X                During the move, the pen is up (j=0 or j=2) or down
X        (j=1 or j=3) according to the value of j.
X
X                The following constants are defined in PLOT_PS.H:
X
X                Code des deplacements de la plume
X
X        #define PL_AH 0         Absolu Plume Haute
X        #define PL_AB 1         Absolu Plume Basse
X        #define PL_RH 2         Relatif Plume Haute
X        #define PL_RB 3         Relatif Plume Basse
X
X                Normally it is not necessary to call traa since puser,
X        pcms,  pmover,  pmovwa, pdrawr and pdrawa are also defined and
X        easier to use.
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
XSEE ALSO:
X
X        PMOVBR and PMOVBA to move the pen PLINBR and PLINBA to draw  a
X        line
X
X
X9
X
X9
X
X
X
X
X
X
X
XTRAA                                                                 6
X
X
X                                  **********
X                                  *  TRAS  *
X                                  **********
X
X
X
X
XNAME    TRAS    MOVE THE PEN IN SUBJECT SPACE (NOT IN CM):
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        tras(x,y,j);
X        float x, y;      x and y coordinates
X                        given in subject units m
X        int j;           the Benson j parameter
X
XDESCRIPTION:
X
X                TRAS replicates the Benson tras fortran routine.
X
X                X and Y are the coordinates of the target given in subject
X        units (NOT in centimeters).
X
X                These coordinates are considered as absolute (j=0 or j=1) or
X        relative (j=2 or j=3) according to the value of j.
X
X                During the move, the pen is up (j=0 or j=2) or down
X        (j=1 or j=3) according to the value of j.
X
X                The following constants are defined in PLOT.H:
X
X                Code des deplacements de la plume
X
X        #define PL_AH 0         Absolu Plume Haute
X        #define PL_AB 1         Abslou Plume Basse
X        #define PL_RH 2         Relatif Plume Haute
X        #define PL_RB 3         Relatif Plume Basse
X
X                Normally it is not necessary to call traa since puser,
X        pcms,  pmovsr,  pmovsa, plinsr and plinsa are also defined and
X        easier to use.
X
XAUTHOR:
X
X        Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PMOVSR and PMOVSA to move the pen PLINSR and PLINSA to draw  a
X        line
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XTRAS                                                                 7
X
X
X                                 ************
X                                 *  PLOPEN  *
X                                 ************
X
X
X
XNAME    PLOPEN  INITIALIZATION OF THE POSTSCRIPT FILE:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        plopen(name);
X        char *name;     /* File name of the PostScript file */
X
XDESCRIPTION:
X
X        PLOPEN: Open the file in wich the plot will be send,
X        and initialize the plotter.
X
X        It must be called once at the very before using any plotter statement
X        The working buffer beginning is defined in PLOT.H and has a fixed
X        length, (that can be modified).
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        INIPLOT and PLCLOSE
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLOPEN                                                               8
X
X
X                                 ***********
X                                 *  PCARA  *
X                                 ***********
X
X
X
X
XNAME    PCARA   WRITE A STRING IN POSTSCRIPT SPACE, STAYS AT THE END:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        pcara(x,y,j,str,hy,rot);
X        float   x, y;    x and y coordinates
X                                given in PostScript units (cm)
X        int     j;       the Benson j parameter
X        char    *str;    the string to write
X        float   hy,      character  height (hy)
X                                (in cm)
X                rot;     rotation in degres
X
X
XDESCRIPTION:
X
X                PCARA writes a string at the position indicated by x,y
X        and  j, with the rotation given by cosa and sina, and stays at
X        the end of the string.
X
X                PCARA replicates the Benson pcara fortran routine.
X
X                X and Y are the coordinates of  the  target  given  in
X        PostScript units (in centimeters).
X
X                These coordinates are considered as absolute  (j=0  or
X        j=1) or relative (j=2 or j=3) according to the value of j.
X
X                During the move, the pen is up (j=0 or  j=2)  or  down
X        (j=1 or j=3) according to the value of j.
X
X                The following constants are defined in PLOT_PS.H:
X
X                Code des deplacements de la plume
X
X        #define PL_AH 0         Absolu Plume Haute
X        #define PL_AB 1         Abslou Plume Basse
X        #define PL_RH 2         Relatif Plume Haute
X        #define PL_RB 3         Relatif Plume Basse
X
X                The size of characters is given in centimeters  by  hx
X        (width) and hy (height) of the characters.
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X
X
X
X
X
X
X
X
X
XPCARA                                                                9
X
X
X        All text writing functions
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPCARA                                                               10
X
X
X                                 ***********
X                                 *  PCARS  *
X                                 ***********
X
X
X
X
XNAME    PCARS   WRITE A STRING IN USER SPACE, STAYS AT THE END:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        pcars(x,y,j,str,hy,rot);
X        float   x, y;    x and y coordinates
X                        given in user units (not in cm)
X        int     j;       the Benson j parameter
X        char    *str;    the string to write
X        float   hy,      character height (hy)
X                                (in cm)
X                rot;     rotation
X
X
XDESCRIPTION:
X
X                PCARS writes a string at the position indicated by x,y
X        and  j, with the rotation given in degre, and stays at the end
X        of the string.
X
X                PCARS almost replicates the Benson pcars fortran  rou-
X        tine.
X
X                X and Y are the coordinates of  the  target  given  in
X        user units (NOT in centimeters).
X
X                These coordinates are considered as absolute  (j=0  or
X        j=1) or relative (j=2 or j=3) according to the value of j.
X
X                During the move, the pen is up (j=0 or  j=2)  or  down
X        (j=1 or j=3) according to the value of j.
X
X                The following constants are defined in PLOT.H:
X
X                Code des deplacements de la plume
X
X        #define PL_AH 0         Absolu Plume Haute
X        #define PL_AB 1         Abslou Plume Basse
X        #define PL_RH 2         Relatif Plume Haute
X        #define PL_RB 3         Relatif Plume Basse
X
X                The size of characters is given in centimeters  by  hy
X        (height) of the characters.
X
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
X
X
X
X
X
X
X
X
XPCARS                                                               11
X
X
XSEE ALSO:
X
X        All text writing functions
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPCARS                                                               12
X
X
X                                *************
X                                *  PLCLOSE  *
X                                *************
X
X
X
X
X
XNAME    PLCLOSE CLOSE THE POSTSCRIPT FILE:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        plclose();
X
XDESCRIPTION:
X
X                PLCLOSE: Stops the plotter and closes the file in wich the
X        plot has been send.
X
X                The PostScript file must be send to the plotter in order to be drawn.
X        The file can be spooled as for any ascii file.
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
XSEE ALSO:
X
X        PLOPEN and ENDPLOT
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLCLOSE                                                             13
X
X
X                                *************
X                                 *  PNUMA  *
X                                *************
X
X
X
X
X
XNAME    PNUMA   DEFINE NEW ORIGINE AND MOVE THE PEN:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        pnuma(xf,yf,xa,ya);
X        float   xf, yf, /* Absolute coordinates in cm */
X                xa, ya; /* Absolute (en cm) coordinates
X                                        of new position */
XDESCRIPTION:
X
X                PNUMA defines a new absolute origine. The pen if first
X        moved to xf and yf coordinates. xa and ya corespond to the new
X        coordinates of the pen.
X
X                All coordinates are given in centimeters (also refered
X        as PostScript space).
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPNUMA                                                               14
X
X
X                                 ***********
X                                 *  ECHEL  *
X                                 ***********
X
X
X
X
XNAME    ECHEL   DEFINE SCALE OF DRAWINGS  (SUBJECT  VERSUS  POSTSCRIPT
X        UNITS):
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        BOOLEAN echel(ex,ey,xs,ys,ca,sa);
X        float   ex, ey, /* Number of cms by user unit   */
X                xs, ys, /* Absolute (en cm) coordinates
X                                        of user origine */
X                ca, sa; /* Cos and Sin of the drawing
X                                        (rotation)      */
X
XDESCRIPTION:
X
X                ECHEL Define the scale of the drawing, and its origine
X        in  the  PostScript  coordinates (relative to the last call to
X        Pnuma). Its allows also rotation of the entire drawing.
X
X                The scales must be given in centimeters  by  user  (or
X        subject) unit. They must have a value greater than 0.008 since
X        the PostScript draws one centimeter using 118 steps.  If  not,
X        the function returns FALSE.
X
X                The coordinates of the new origine must  be  given  in
X        PostScript units, i.e. in centimeters.
X
X                Cosinus and Sinus of the angle of the drawing relative
X        to the X axis gives a rotation possibility.
X
X        Horizontal endroit: cosa=0. sina=-1.
X
X        Horizontal envers: cosa=0. sina=1.
X
X        Verticalement ascendant: cosa=1. sina=0.
X
X        Verticalement descendant: cosa=-1. sina=0.
X
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X9
X
X9
X
X
X
X
X
X
X
XECHEL                                                               15
X
X
X                                 ***********
X                                 *  PLUME  *
X                                 ***********
X
X
X
X
XNAME    PLUME   CHANGE THE DRAWING PEN:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        BOOLEAN plume(k);
X        int k;          /* pen number (0, 1 or 2) */
X
XDESCRIPTION:
X
X                PLUME: selects the drawing pen. If the pen number (k) is not one of
X        0, 1 or 2, the function returns FALSE, else it returns TRUE.
X        If plume() is not called, the default pen is 0 (BLACK).
X
X        1 gives a gray at 0.3, 2 a light gray at 0.7.
X
X
X                PLOT_PS.H includes the following _#defines:
X
X                #define BLACK   0
X                #define NOIR    0
X                #define RED     1
X                #define ROUGE   1
X                #define GREEN   2
X                #define VERT    2
X                #define BLUE    2
X                #define BLEU    2
X        in order to indicate named colours instead of coded values.
X
XAUTHOR:
X
X        Jean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLUME                                                               16
X
X
X                               ***************
X                               *  PL_ROTATE  *
X                               ***************
X
X
X
X
XNAME    PL_ROTATE       ALLOWS A ROTATION IN DEGRES:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        pl_rotate(rot);
X        float   rot;    /* Rotation in degres */
X
X
XDESCRIPTION:
X
X        PL_ROTATE() Allows a rotation in degres of the previous graph.
X
XAUTHOR:
X
X        Jean-Francois
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPL_ROTATE                                                           17
X
X
X                                 ************
X                                 *  POLICE  *
X                                 ************
X
X
X
X
XNAME    POLICE  ALLOWS TO CHANGE THE FONT:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        police(font,hy);
X        char    *font;  /* font name */
X        float   hy;     /* Rotation in degres */
X
X
XDESCRIPTION:
X
X                POLICE() allows to choose a new font as the current font. The first
X        argument is the PostScript build in font name. The size of the font
X        is given in centimer by hy. It can be changed alone by plsize().
X
XAUTHOR:
X
X        Jean-Francois VIBERT
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPOLICE                                                              18
X
X
X                                 ************
X                                 *  PLSIZE  *
X                                 ************
X
X
X
X
X
XNAME    PLSIZE  DEFINE SIZE (IN CM)  OF CHARACTERS:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        plsize(hy);
X        float   hy;     /* Size of height
X                        of characters given
X                        in centimeters  */
X
XDESCRIPTION:
X
X                PLSIZE() defines the size of characters, given in cen-
X        timeters, and acts on he current font choosen by police().
X
XAUTHOR:
X
X        Jean-Francois VIBERT
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPLSIZE                                                              19
X
X
X                                **************
X                                *  SET_GRAY  *
X                                **************
X
X
X
X
X
XNAME    SET_GRAY        DEFINE A NEW DEFAULT GRAY:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        set_gray(gray);
X        float   gray;   /* gray for the subsequent drawings */
X
X
XDESCRIPTION:
X
X                SET_GRAY() defines a new gray value for the subsequent drawings. It
X        on the line color.
X
XAUTHOR:
X
X        Jean-Francois VIBERT
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XSET_GRAY                                                            20
X
X
X                               ****************
X                               *  LINE_WIDTH  *
X                               ****************
X
X
X
X
X
XNAME    LINE_WIDTH      DEFINES A NEW LINE WIDTH FOR THE LINES:
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        line_width(width);
X        int width;      /* PostScript width */
X
X
XDESCRIPTION:
X
X                LINE_WIDTH() defines a new line width for the lines subsequently
X        drawn. The width is given in PostScript units (picas).
X
XAUTHOR:
X
X        Jean-Francois VIBERT
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        PLOT1 et PLOT2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XLINE_WIDTH                                                          21
X
X
X                              ******************
X                              *  CLOSED_CURVE  *
X                              ******************
X
X
X
X
X
Xname    closed_curve draws a possibly filled surface:
X
Xsynoptique:
X
X        #include <plot_ps.h>
X
X        closed_curve(x,y,nb_pts,contour,fill,gray)
X        float   x[],    /* array with x coordinates */
X                x[];    /* array with y coordinates */
X        int     nb_pts, /* nb of values in x (and y) */
X                contour,/* t or f line around or not */
X                fill;   /* t or f filled or not */
X        float   gray;   /* gray filling color */
X
X
Xdescription:
X
X                closed_curve() draws polygonal surface  whose  coordi-
X        nates  are  in  2  arrays x and y, beginning and ending at the
X        current position. it is possible to decide to draw  a  contour
X        around  the surface. this surface can be filled in gray, whose
X        color is given by grey.
X
Xauthor:
X
X        jean-francois vibert
X
X        chu saint-antoine cnrs ua1162 universite paris vi
X
Xsee also:
X
X        plot1 et plot2
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XCLOSED_CURVE                                                        22
X
X
X                             *******************
X                             *  PEN MOVEMENTS  *
X                             *******************
X
X
X
X
X
Xname:   plot2_ps -- jeu de fonctions de mouvements de plume
X
Xsynoptique:
X
X        #include <plot_ps.h>
X
X        puser()
X
X        pcms()
X
X        pmover(x,y)
X        float x, y;
X
X        pmovea(x,y)
X        float x, y;
X
X        pdrawr(x,y)
X        float x, y;
X
X        pdrawa(x,y)
X        float x, y;
X
X        phome()
X
X        les fonctions suivantes ne devraient jamais etre appelees.
X
X        pmover(x,y)
X        float x, y;
X
X        pmovea(x,y)
X        float x, y;
X
X        plinsa(x,y)
X        float x, y;
X
X        plinba(x,y)
X        float x, y;
X
X        plinsr(x,y)
X        float x, y;
X
X        plinbr(x,y)
X        float x, y;
X
Xdescription:
X
X                PUSER() permet de passer en mode espace sujet, tous les ordres de
X        mouvement de plume seront consideres comme ayant des coordonnees x
X        et y en unites sujet (pas en cms!).
X
X                PCMS()  permet de passer en mode espace papier, tous les ordres de
X
X
X
X
X
X
X
X
X
X
XPEN MOVEMENTS                                                       23
X
X
X        mouvement de plume seront consideres comme ayant des coordonnees x
X        et y en  cms sur le papier.
X
X                Les functions suivantes permetettent de dessiner dans l'espace
X        courant: pmove deplace sans dessiner, draw deplace en dessinant, et
X        les coordonnees sont prises en absolu (suffixe a) ou relative
X        (suffixe r).
X
X        PMOVEA() se deplace au point x,y en absolu
X
X        PMOVER() se deplace au point x,y en relatif
X
X        PDRAWA() trace un trait jusqu'au point x,y en absolu
X
X        PDRAWR() trace un trait jusqu'au point x,y en relatif
X
X        PHOME() retourne au point absolu 0,0
X
X                Les fonctions suivantes ne devraient jamais etre appelees:
X        Elles permettent eventuellement de faire un deplacement dans un
X        autre espace que l'espace courant.
X
X                Routines de mouvement de la plume
X
X
X                b -> espace papier (en cm)
X                s -> espace utilisateur c-a-d sujet (a l'echelle)
X                a -> mouvement en absolu
X                r -> mouvement en relatif
X
X
X                xxxxba  -> espace papier en absolu
X                xxxxsa  -> espace utilisateur en absolu
X                xxxxbr  -> espace benson en relatif
X                xxxxsr  -> espace utilisateur en relatif
X
X                P pour plume
X                MOV pour deplacement plume haute (sans trace)
X                LIN pour deplacement plume basse (trace de trait)
X
X        pmovsa(x,y) se deplace au point x,y en  absolu  dans  l'espace
X        sujet
X
X        pmovba(x,y) se deplace au point x,y en  absolu  dans  l'espace
X        papier
X
X        pmovsr(x,y) se deplace au point x,y en relatif  dans  l'espace
X        sujet
X
X        pmovbr(x,y) se deplace au point x,y en relatif  dans  l'espace
X        papier
X
X        plinsa(x,y) trace jusqu'au point x,y en absolu  dans  l'espace
X        sujet
X
X        plinba(x,y) trace jusqu'au point x,y en absolu  dans  l'espace
X        papier
X
X        plinsr(x,y) trace jusqu'au point x,y en relatif dans  l'espace
X
X
X
X
X
X
X
X
X
X
XPEN MOVEMENTS                                                       24
X
X
X        sujet
X
X        plinbr(x,y) trace jusqu'au point x,y en relatif dans  l'espace
X        papier
X
XAUTHOR:
X
X        Dr Jean-Francois Vibert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X        plot0_ps, iniplot_ps, endplot_ps, newpage_ps
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
X
X
X
X
XPEN MOVEMENTS                                                       25
X
X
X                                **************
X                                * PL_NEWPAGE *
X                                **************
X
X
X
X
X
XNAME:   PL_NEWPAGE -- Go to the next page
X
XSYNOPTIQUE:
X
X        #include <plot_ps.h>
X
X        pl_newpage()
X
XDESCRIPTION:
X
X        PL_NEWPAGE go to the next page and redraw the banner and numbers the pages
X
XAUTHOR:
X
X        Dr Jean-Francois Vibert
X
X        CHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
XSEE ALSO:
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X9
X
X9
X
X
X
*-*-END_of_plot_ps.doc-*-*
echo x - plot_ps.tex
sed 's/^X//' >plot_ps.tex <<'*-*-END_of_plot_ps.tex-*-*'
X% -*-LaTeX-*-
X% Converted automatically from troff to LaTeX by tr2tex on Thu Feb 16 12:33:28 1989
X% tr2tex was written by Kamal Al-Yahya at Stanford University
X% (Kamal%Hanauma@SU-SCORE.ARPA)
X
X
X\documentstyle[troffms,12pt,ncs]{article}
X\begin{document}
X\pagestyle{headings}
X\markboth{Plot\_ps}{Plot\_ps}
X\pagenumbering{arabic}
X%
X% input file: plot_ps.nroff
X%
X
X\begin{centering}
X{\bf
X	{\Huge \bf
X	PLOT\_PS\\
X	}
X\vspace{1cm}
X{\Large \bf Bibliotheque graphique PostScript\\}
X
X}
X\vspace{2cm}
X{\large \bf Manuel d'utilisation\\}
X\vspace{1cm}
XCe manuel correspond \`{a} la version 1.0 de plot\_ps.
X\\
X\end{centering}
X\vspace{2cm}
X
X\begin{centering}
Xpar\\
X\vspace{1cm}
X{\bf Dr J.-F.  VIBERT} \\
X\vspace{1cm}
XLaboratoire de Physiologie  \\
XCHU Saint Antoine \\
XUniversit\'{e} Pierre et Marie CURIE \\
XCNRS UA 1162 \\
XPARIS  \\
XFRANCE\\
X\end{centering}
X\vspace{4cm}
X
X
X     Pri\`{e}re   de   communiquer   toute   erreur, ambiguit\'{e}, ou
Xomission \`{a} l'auteur.
X
X\newpage
X%
X%
X%.pn
X%.pl 72
X%.ll 70
X\hoffset=0.5cm
X
X%.tl 'INIPLOT' '       %'
X
X{\huge
X\begin{centering}
X
X INIPLOT 
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	INIPLOT -- Initialize the PostScript plotter
X
X{\bf SYNOPTIQUE:}
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             iniplot(plot_file,paper);
X             char *plot_file;	File for the plot
X             float paper;		Paper width in cm
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XINIPLOT opens the PostScript file and draws a frame corresponding to
Xthe flag page of a line-printer. The date and time of the file production,
Xthe file name and the user name are indicated as well as a page number. This
Xbanner is output on each page by pl\_newpage(). It is drawn at the bottom of
Xthe page and is 1 cm wide.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XDr Jean-Fran\c{c}ois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
Xplopen() and plclose()
X
X\newpage
X%.tl 'ENDPLOT' '       %'
X
X{\huge
X\begin{centering}
X
X ENDPLOT 
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	ENDPLOT -- Close and spools the PostScript file
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             endplot(file,action);
X             char action; /* Action to take about the plot file
X                          s: spool and keep
X                          d: spool and delete
X                          f: freeze (no spool)
X                          */
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XENDPLOT closes the PostScript file and process it according
Xto the action indicated by the char argument:
X
X	s: spool and keep
X
X	d: spool and delete
X
X	f: freeze (no spool)
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XDr Jean-Fran\c{c}ois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
Xplopen() and plclose()
X
X\newpage
X%.tl 'ECHEL' '       %'
X
X{\huge
X\begin{centering}
X
X  ECHEL  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	ECHEL -- Define scale of drawings (subject versus postscript units)
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             echel(ex,ey,xs,ys,ca,sa);
X             float  ex, ey,	/* Number of cms by user unit	*/
X                    xs, ys,	/* Absolute (en cm) coordinates
X                                       of user origine */
X                    ca, sa;	/* Cos and Sin of the drawing
X                                       (rotation)	*/
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	ECHEL Define the scale of the drawing, and its origine in the
XPostScript coordinates (relative to the last call to Pnuma). Its
Xallows also rotation of the entire drawing.
X
X	The scales must be given in centimeters by user (or subject)
Xunit. They must have a value greater than 0.008 since the PostScript
Xdraws one centimeter using 118 steps. If not, the function returns
XFALSE.
X
X	The coordinates of the new origine must be given in
XPostScript units, i.e. in centimeters.
X
X	Cosinus and Sinus of the angle of the drawing relative to
Xthe X axis gives a rotation possibility.
X
XHorizontal endroit: cosa=0. sina=-1.
X
XHorizontal envers: cosa=0. sina=1.
X
XVerticalement ascendant: cosa=1. sina=0.
X
XVerticalement descendant: cosa=-1. sina=0.
X
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'PNUMA' '       %'
X
X{\huge
X\begin{centering}
X
X   PNUMA  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PNUMA -- Defines a new origine and moves the pen
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             pnuma(xf,yf,xa,ya);
X             float      xf, yf,	/* Absolute coordinates in cm */
X                        xa, ya;	/* Absolute (en cm) coordinates
X				of new position */
X\end{verbatim}
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PNUMA defines a new absolute origine. The pen if first moved to xf
Xand yf coordinates. xa and ya corespond to the new coordinates of
Xthe pen.
X
X	All coordinates are given in centimeters (also refered as PostScript
Xspace).
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'PLUME' '       %'
X
X{\huge
X\begin{centering}
X
X  PLUME  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLUME -- Changes the drawing pen
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             plume(k);
X             int k;  /* pen number (0, 1 or 2) */
X
X\end{verbatim}
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PLUME selects the drawing pen. If the pen number (k) is not one of
X0, 1 or 2, the function returns FALSE, else it returns TRUE.
XIf plume() is not called, the default pen is 0 (BLACK).
X
X1 gives a gray at 0.3, 2 a light gray at 0.7.
X
X
X	PLOT\_PS.H includes the following \#defines:
X
X\nofill
X	\#define BLACK	0
X	\#define NOIR	0
X	\#define RED	1
X	\#define ROUGE	1
X	\#define GREEN	2
X	\#define VERT	2
X	\#define BLUE	2
X	\#define BLEU	2
X\fill
Xin order to indicate named colours instead of coded values.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'PEN MOVEMENTS' '       %'
X
X{\huge
X\begin{centering}
X
X  PEN MOVEMENTS  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLOT2\_PS -- Jeu de fonctions de mouvements de plume
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             puser()
X
X             pcms()
X
X             pmover(x,y)
X             float x, y;
X
X             pmovea(x,y)
X             float x, y;
X
X             pdrawr(x,y)
X             float x, y;
X
X             pdrawa(x,y)
X             float x, y;
X
X             phome()
X\end{verbatim}
X
Xles fonctions suivantes ne devraient jamais etre appelees.
X
X\begin{verbatim}
X             pmover(x,y)
X             float x, y;
X
X             pmovea(x,y)
X             float x, y;
X
X             plinsa(x,y)
X             float x, y;
X
X             plinba(x,y)
X             float x, y;
X
X             plinsr(x,y)
X             float x, y;
X
X             plinbr(x,y)
X             float x, y;
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PUSER permet de passer en mode espace sujet, tous les ordres de
Xmouvement de plume seront consideres comme ayant des coordonnees x
Xet y en unites sujet (pas en cms!).
X
X	PCMS  permet de passer en mode espace papier, tous les ordres de
Xmouvement de plume seront consideres comme ayant des coordonnees x
Xet y en  cms sur le papier.
X
X	Les functions suivantes permetehugeent de dessiner dans l'espace
Xcourant: pmove deplace sans dessiner, draw deplace en dessinant, et
Xles coordonnees sont prises en absolu (suffixe a) ou relative
X(suffixe r).
X
XPMOVEA se deplace au point x,y en absolu
X
XPMOVER se deplace au point x,y en relatif
X
XPDRAWA trace un trait jusqu'au point x,y en absolu
X
XPDRAWR trace un trait jusqu'au point x,y en relatif
X
XPHOME retourne au point absolu 0,0
X
X	Les fonctions suivantes ne devraient jamais etre appelees:
XElles permettent eventuellement de faire un deplacement dans un
Xautre espace que l'espace courant.
X
X	Routines de mouvement de la plume
X
X\nofill
X
X	b -$>$ espace papier (en cm)
X	s -$>$ espace utilisateur c-a-d sujet (a l'echelle)
X	a -$>$ mouvement en absolu
X	r -$>$ mouvement en relatif
X
X
X	xxxxba	-$>$ espace papier en absolu
X	xxxxsa	-$>$ espace utilisateur en absolu
X	xxxxbr	-$>$ espace benson en relatif
X	xxxxsr	-$>$ espace utilisateur en relatif
X
X	P pour plume
X	MOV pour deplacement plume haute (sans trace)
X	LIN pour deplacement plume basse (trace de trait)
X\fill
X
Xpmovsa(x,y) se deplace au point x,y en absolu dans l'espace sujet
X
Xpmovba(x,y) se deplace au point x,y en absolu dans l'espace papier
X
Xpmovsr(x,y) se deplace au point x,y en relatif dans l'espace sujet
X
Xpmovbr(x,y) se deplace au point x,y en relatif dans l'espace papier
X
Xplinsa(x,y) trace jusqu'au point x,y en absolu dans l'espace sujet
X
Xplinba(x,y) trace jusqu'au point x,y en absolu dans l'espace papier
X
Xplinsr(x,y) trace jusqu'au point x,y en relatif dans l'espace sujet
X
Xplinbr(x,y) trace jusqu'au point x,y en relatif dans l'espace papier
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XDr Jean-Fran\c{c}ois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
Xplot0\_ps, iniplot\_ps, endplot\_ps, newpage\_ps
X
X
X\newpage
X%.tl 'PCARA' '       %'
X
X{\huge
X\begin{centering}
X
X  PCARA  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PCARA -- Writes a string in postscript space, stays at the end
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             pcara(x,y,j,str,hy,rot);
X             float	x, y;	 x and y coordinates
X                              given in PostScript units (cm)
X             int	j;	 the Benson j parameter
X             char	*str;	 the string to write
X             float	hy,	 character  height (hy)
X                          (in cm)
X             rot;	 rotation in degres
X\end{verbatim}
X
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PCARA writes a string at the position indicated by x,y and j,
Xwith the rotation given by cosa and sina, and stays at the end
Xof the string.
X
X	PCARA replicates the Benson pcara fortran routine.
X
X	X and Y are the coordinates of the target given in PostScript
Xunits (in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT\_PS.H:
X
X 	Code des deplacements de la plume
X
X\nofill
X\#define PL\_AH 0		Absolu Plume Haute
X\#define PL\_AB 1		Abslou Plume Basse
X\#define PL\_RH 2		Relatif Plume Haute
X\#define PL\_RB 3		Relatif Plume Basse
X\fill
X
X	The size of characters is given in centimeters by hx (width) and hy
X(height) of the characters.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
X\newpage
X%.tl 'PCARS' '       %'
X
X{\huge
X\begin{centering}
X
X  PCARS  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PCARS -- Writes a string in user space, stays at the end
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             pcars(x,y,j,str,hy,rot);
X             float	x, y;	 x and y coordinates
X                          given in user units (not in cm)
X             int	j;	 the Benson j parameter
X             char	*str;	 the string to write
X             float	hy,	 character height (hy)
X                          (in cm)
X             rot;	 rotation
X\end{verbatim}
X
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PCARS writes a string at the position indicated by x,y and j,
Xwith the rotation given in degre, and stays at the end
Xof the string.
X
X	PCARS almost replicates the Benson pcars fortran routine.
X
X	X and Y are the coordinates of the target given in user
Xunits (NOT in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT.H:
X
X 	Code des deplacements de la plume
X
X\nofill
X\#define PL\_AH 0		Absolu Plume Haute
X\#define PL\_AB 1		Abslou Plume Basse
X\#define PL\_RH 2		Relatif Plume Haute
X\#define PL\_RB 3		Relatif Plume Basse
X\fill
X
X	The size of characters is given in centimeters by hy (height) of the
Xcharacters.
X
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
X\newpage
X%.tl 'POLICE' '       %'
X
X{\huge
X\begin{centering}
X
X  POLICE  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	POLICE -- Allows to change the PotScript font
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             police(font,hy);
X             char	*font;	/* font name */
X             float	hy;	/* Rotation in degres */
X
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	POLICE allows to choose a new font as the current font. The first
Xargument is the PostScript build in font name. The size of the font
Xis given in centimer by hy. It can be changed alone by plsize().
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'PLSIZE' '       %'
X
X{\huge
X\begin{centering}
X
X  PLSIZE  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLSIZE	-- Define size (in cm)  of characters
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X#include <plot_ps.h>
X
X             plsize(hy);
X             float	hy;	/* Size of height
X                          of characters given
X                          in centimeters 	*/
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PLSIZE defines the size of characters, given in centimeters,
Xand acts on he current font choosen by police().
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'SET_GRAY' '       %'
X
X{\huge
X\begin{centering}
X
X  SET\_GRAY  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	SET\_GRAY -- Define a new default gray
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             set_gray(gray);
X             float	gray;	/* gray for the subsequent drawings */
X
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	SET\_GRAY defines a new gray value for the subsequent drawings. It
Xon the line color.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'LINE_WIDTH' '       %'
X
X{\huge
X\begin{centering}
X
X  LINE\_WIDTH  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	LINE\_WIDTH -- Defines a new line width for the linesp
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             line_width(width);
X             int width;	/* PostScript width */
X
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	LINE\_WIDTH defines a new line width for the lines subsequently
Xdrawn. The width is given in PostScript units (picas).
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT1 et PLOT2
X
X\newpage
X%.tl 'CLOSED_CURVE' '       %'
X
X{\huge
X\begin{centering}
X
X  CLOSED\_CURVE  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	CLOSED\_CURVE -- Draws a possibly filled surface
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             closed_curve(x,y,nb_pts,contour,fill,gray)
X             float  x[],    /* array with x coordinates */
X                    x[];    /* array with y coordinates */
X             int    nb_pts, /* nb of values in x (and y) */
X                    contour,/* t or f line around or not */
X                    fill;   /* t or f filled or not */
X             float  gray;   /* gray filling color */
X
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	CLOSED\_CURVE draws polygonal surface whose coordinates are in 2
Xarrays x and y, beginning and ending at the current position. it is
Xpossible to decide to draw a contour around the surface. this
Xsurface can be filled in gray, whose color is given by grey.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT2
X
X\newpage
X%.tl 'PL_NEWPAGE' '       %'
X
X{\huge
X\begin{centering}
X
X PL\_NEWPAGE 
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PL\_NEWPAGE -- Go to the next page
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             pl_newpage()
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XPL\_NEWPAGE outputs the current page, begins the next page by redrawing
Xthe banner and the number of the page
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XDr Jean-Fran\c{c}ois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
X\newpage
X%.tl 'PL_ROTATE' '       %'
X
X{\huge
X\begin{centering}
X
X  PL\_ROTATE  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PL\_ROTATE -- Allows a rotation in degres
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             pl_rotate(rot);
X             float	rot;	/* Rotation in degres */
X
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XPL\_ROTATE Allows a rotation in degres of the previous graph.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
X\newpage
X%.tl 'PLOT0S' '       %'
X
X{\huge
X\begin{centering}
X
X PLOT0S 
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLOT0S -- Niveau 0 des routines PostScript pour C
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X%.ap
X
X	   Routines de dessin sur la Laser PostScript
X	   en mode symbolique.
X
X
XNIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X
X	elementaires qui controlent directement la laser
X	sans pratiquement d'aide a l'utilisateur.
X
XATTENTION : Toute les variables de travail des modules commencent
X
X		par 'pl\_'
X	    Tous les sous programmes de travail commencent
X	    	par 'p\_'
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT2\_PS
X
X\newpage
X
X\tmpind{-1.0cm}
X{\bf NAME}:	ROUTINES\_INTERNES ROUTINES INTERNES DE TRAVAIL:
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X%.ap
X
X
X	   Routines internes de travail pour
Xcreer le fichier de dessin pour la PostScript.
X
XNIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X	elementaires qui controlent directement le traceur
X	sans pratiquement d'aide a l'utilisateur.
X
XATTENTION : Toute les variables de travail des modules commencent
X
X		par 'pl\_'
X	    Tous les sous programmes de travail commencent
X		par 'p\_'
X
X
XP\_DEPL
XEnvoi un groupe de 2 valeurs x,y au format PostScript avec gestion
Xdu deplacement et de la plume
X
XP\_PUTS
XEnvoi une chaine de caracteres avec le dernier format (hx,hy,cosa,sina)
Xutilise
X
XPLOT
XDeplace la plume au point indique, actualise la position courante
X
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOT2\_PS
X
X
X\newpage
X%.tl 'TRAA' '       %'
X
X{\huge
X\begin{centering}
X
X  TRAA  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	TRAA -- Moves the pen in PostScript space (in cm)
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             traa(x,y,j);
X             float x, y;    x and y coordinates
X                            given in cm
X             int j; the Benson j parameter
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XTRAA replicates the Benson traa fortran routine.
X
X
X	X and Y are the coordinates of the target given in PostScript
Xspace (in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT\_PS.H:
X
X	Code des deplacements de la plume
X
X\nofill
X\#define PL\_AH 0		Absolu Plume Haute
X\#define PL\_AB 1		Absolu Plume Basse
X\#define PL\_RH 2		Relatif Plume Haute
X\#define PL\_RB 3		Relatif Plume Basse
X\fill
X
X	Normally it is not necessary to call traa since puser, pcms,
Xpmover, pmovwa, pdrawr and pdrawa are also defined and easier to use.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPMOVBR and PMOVBA to move the pen
XPLINBR and PLINBA to draw a line
X
X\newpage
X%.tl 'TRAS' '       %'
X
X{\huge
X\begin{centering}
X
X  TRAS  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	TRAS -- Moves the pen in subject space (not in cm)
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             tras(x,y,j);
X             float x, y;  x and y coordinates
X                          given in subject units m
X             int j;   the Benson j parameter
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	TRAS replicates the Benson tras fortran routine.
X
X	X and Y are the coordinates of the target given in subject
Xunits (NOT in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT.H:
X
X 	Code des deplacements de la plume
X
X\nofill
X\#define PL\_AH 0		Absolu Plume Haute
X\#define PL\_AB 1		Abslou Plume Basse
X\#define PL\_RH 2		Relatif Plume Haute
X\#define PL\_RB 3		Relatif Plume Basse
X\fill
X
X	Normally it is not necessary to call traa since puser, pcms, pmovsr,
Xpmovsa, plinsr and plinsa are also defined and easier to use.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPMOVSR and PMOVSA to move the pen
XPLINSR and PLINSA to draw a line
X\newpage
X%.tl 'PLOPEN' '       %'
X
X{\huge
X\begin{centering}
X
X  PLOPEN  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLOPEN -- Initialization of the PostScript file
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             plopen(name);
X             char *name;  /* File name of the PostScript file */
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
XPLOPEN: Open the file in wich the plot will be send,
Xand initialize the plotter.
X
XIt must be called once at the very before using any plotter statement
XThe working buffer beginning is defined in PLOT.H and has a fixed
Xlength, (that can be modified).
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XINIPLOT and PLCLOSE
X
X
X\newpage
X%.tl 'PLCLOSE' '       %'
X
X{\huge
X\begin{centering}
X
X  PLCLOSE  
X
X\end{centering}
X}
X\vspace{1.0cm}
X
X
X\tmpind{-1.0cm}
X{\bf NAME}:	PLCLOSE	-- Closes the PostScript file
X
X\tmpind{-1.0cm}
X{\bf SYNOPTIQUE}:
X
X\begin{verbatim}
X             #include <plot_ps.h>
X
X             plclose();
X\end{verbatim}
X
X\tmpind{-1.0cm}
X{\bf DESCRIPTION}:
X
X	PLCLOSE: Stops the plotter and closes the file in wich the
Xplot has been send.
X
X	The PostScript file must be send to the plotter in order to be drawn.
XThe file can be spooled as for any ascii file.
X
X\tmpind{-1.0cm}
X{\bf AUTHOR}:
X
XJean-Fran\c{c}ois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
X\tmpind{-1.0cm}
X{\bf SEE ALSO}:
X
XPLOPEN and ENDPLOT
X
X\end{document}
*-*-END_of_plot_ps.tex-*-*
echo x - plot_ps.nroff
sed 's/^X//' >plot_ps.nroff <<'*-*-END_of_plot_ps.nroff-*-*'
X.pn
X.pl 72
X.ll 70
X.in 8
X.ad n
X.bp
X.tl 'INIPLOT' '       %'
X
X.ce
X***********
X.ce
X* INIPLOT *
X.ce
X***********
X
X
X.ti -8
XNAME:	INIPLOT -- Initialize the PostScript plotter
X
X.fi
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xiniplot(plot_file,paper);
Xchar *plot_file;	File for the plot
Xfloat paper;		Paper width in cm
X.fi
X
X.ti -8
XDESCRIPTION:
X
XINIPLOT opens the PostScript file and draws a frame corresponding a
Xthe flag page of a line-printer
X
X.ti -8
XAUTHOR:
X
XDr Jean-Francois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
Xplopen() and plclose()
X
X.bp
X.tl 'ENDPLOT' '       %'
X
X.ce
X***********
X.ce
X* ENDPLOT *
X.ce
X***********
X
X
X
X
X.ti -8
XNAME:	ENDPLOT -- Close and spools the PostScript file
X
X.fi
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xendplot(file,action);
Xchar action;	/* Action to take about the plot file
X
X.nf
X
X			s: spool and keep
X			d: spool and delete
X			f: freeze (no spool)
X		*/
X.fi
X
X.ti -8
XDESCRIPTION:
X
XENDPLOT closes the PostScript file and process it according
Xto the action indicated by the char argument:
X
X.nf
X
X	s: spool and keep
X
X	d: spool and delete
X
X	f: freeze (no spool)
X
X.fi
X.ti -8
XAUTHOR:
X
XDr Jean-Francois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
Xplopen() and plclose()
X
X.bp
X.tl 'PLOT0S' '       %'
X
X.ce
X**********
X.ce
X* PLOT0S *
X.ce
X**********
X
X
X
X
X.ti -8
XNAME:	PLOT0S -- Niveau 0 des routines PostScript pour C
X
X.fi
X.ti -8
XDESCRIPTION:
X.ap
X.nf
X
X	   Routines de dessin sur la Laser PostScript
X	   en mode symbolique.
X
X.fi
XNIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X.nf
X
X	elementaires qui controlent directement la laser
X	sans pratiquement d'aide a l'utilisateur.
X
X.fi
XATTENTION : Toute les variables de travail des modules commencent
X.nf
X
X		par 'pl_'
X	    Tous les sous programmes de travail commencent
X	    	par 'p_'
X
X.fi
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT2_PS
X
X.bp
X
X.ti -8
XNAME	ROUTINES_INTERNES ROUTINES INTERNES DE TRAVAIL:
X
X.ti -8
XDESCRIPTION:
X.ap
X.nf
X
X	   Routines internes de travail pour
X.fi
Xcreer le fichier de dessin pour la PostScript.
X
XNIVEAU 0 : Ce jeu de routine regroupe les routines les plus
X.nf
X
X	elementaires qui controlent directement le traceur
X	sans pratiquement d'aide a l'utilisateur.
X
X.fi
XATTENTION : Toute les variables de travail des modules commencent
X.nf
X
X		par 'pl_'
X	    Tous les sous programmes de travail commencent
X		par 'p_'
X
X.fi
XP_DEPL
XEnvoi un groupe de 2 valeurs x,y au format PostScript avec gestion
Xdu deplacement et de la plume
X
XP_PUTS
XEnvoi une chaine de caracteres avec le dernier format (hx,hy,cosa,sina)
Xutilise
X
XPLOT
XDeplace la plume au point indique, actualise la position courante
X
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT2_PS
X
X.bp
X.tl 'TRAA' '       %'
X
X.ce
X**********
X.ce
X*  TRAA  *
X.ce
X**********
X
X
X
X.ti -8
XNAME	TRAA	MOVE THE PEN IN POSTSCRIPT SPACE (IN CM):
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
X.nf
Xtraa(x,y,j);
Xfloat x, y;	x and y coordinates
X		given in cm
Xint j;		 the Benson j parameter
X.fi
X
X.ti -8
XDESCRIPTION:
X
XTRAA replicates the Benson traa fortran routine.
X
X
X	X and Y are the coordinates of the target given in PostScript
Xspace (in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT_PS.H:
X
X	Code des deplacements de la plume
X
X.nf
X#define PL_AH 0		Absolu Plume Haute
X#define PL_AB 1		Absolu Plume Basse
X#define PL_RH 2		Relatif Plume Haute
X#define PL_RB 3		Relatif Plume Basse
X.fi
X
X	Normally it is not necessary to call traa since puser, pcms,
Xpmover, pmovwa, pdrawr and pdrawa are also defined and easier to use.
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
X.ti -8
XSEE ALSO:
X
XPMOVBR and PMOVBA to move the pen
XPLINBR and PLINBA to draw a line
X
X.bp
X.tl 'TRAS' '       %'
X
X.ce
X**********
X.ce
X*  TRAS  *
X.ce
X**********
X
X
X
X.ti -8
XNAME	TRAS	MOVE THE PEN IN SUBJECT SPACE (NOT IN CM):
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xtras(x,y,j);
Xfloat x, y;	 x and y coordinates
X		given in subject units m
Xint j;		 the Benson j parameter
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	TRAS replicates the Benson tras fortran routine.
X
X	X and Y are the coordinates of the target given in subject
Xunits (NOT in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT.H:
X
X 	Code des deplacements de la plume
X
X.nf
X#define PL_AH 0		Absolu Plume Haute
X#define PL_AB 1		Abslou Plume Basse
X#define PL_RH 2		Relatif Plume Haute
X#define PL_RB 3		Relatif Plume Basse
X.fi
X
X	Normally it is not necessary to call traa since puser, pcms, pmovsr,
Xpmovsa, plinsr and plinsa are also defined and easier to use.
X
X.ti -8
XAUTHOR:
X
XJean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPMOVSR and PMOVSA to move the pen
XPLINSR and PLINSA to draw a line
X.bp
X.tl 'PLOPEN' '       %'
X
X.ce
X************
X.ce
X*  PLOPEN  *
X.ce
X************
X
X
X.ti -8
XNAME	PLOPEN	INITIALIZATION OF THE POSTSCRIPT FILE:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xplopen(name);
Xchar *name;	/* File name of the PostScript file */
X.fi
X
X.ti -8
XDESCRIPTION:
X
XPLOPEN: Open the file in wich the plot will be send,
Xand initialize the plotter.
X
XIt must be called once at the very before using any plotter statement
XThe working buffer beginning is defined in PLOT.H and has a fixed
Xlength, (that can be modified).
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XINIPLOT and PLCLOSE
X
X.bp
X.tl 'PCARA' '       %'
X
X.ce
X***********
X.ce
X*  PCARA  *
X.ce
X***********
X
X
X
X.ti -8
XNAME	PCARA	WRITE A STRING IN POSTSCRIPT SPACE, STAYS AT THE END:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
X.nf
Xpcara(x,y,j,str,hy,rot);
Xfloat	x, y;	 x and y coordinates
X			given in PostScript units (cm)
Xint	j;	 the Benson j parameter
Xchar	*str;	 the string to write
Xfloat	hy,	 character  height (hy)
X			(in cm)
X	rot;	 rotation in degres
X.fi
X
X
X.ti -8
XDESCRIPTION:
X
X	PCARA writes a string at the position indicated by x,y and j,
Xwith the rotation given by cosa and sina, and stays at the end
Xof the string.
X
X	PCARA replicates the Benson pcara fortran routine.
X
X	X and Y are the coordinates of the target given in PostScript
Xunits (in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT_PS.H:
X
X 	Code des deplacements de la plume
X
X.nf
X#define PL_AH 0		Absolu Plume Haute
X#define PL_AB 1		Abslou Plume Basse
X#define PL_RH 2		Relatif Plume Haute
X#define PL_RB 3		Relatif Plume Basse
X.fi
X
X	The size of characters is given in centimeters by hx (width) and hy
X(height) of the characters.
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XAll text writing functions
X
X.bp
X.tl 'PCARS' '       %'
X
X.ce
X***********
X.ce
X*  PCARS  *
X.ce
X***********
X
X
X
X.ti -8
XNAME	PCARS	WRITE A STRING IN USER SPACE, STAYS AT THE END:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xpcars(x,y,j,str,hy,rot);
Xfloat	x, y;	 x and y coordinates
X		given in user units (not in cm)
Xint	j;	 the Benson j parameter
Xchar	*str;	 the string to write
Xfloat	hy,	 character height (hy)
X			(in cm)
X	rot;	 rotation
X.fi
X
X
X.ti -8
XDESCRIPTION:
X
X	PCARS writes a string at the position indicated by x,y and j,
Xwith the rotation given in degre, and stays at the end
Xof the string.
X
X	PCARS almost replicates the Benson pcars fortran routine.
X
X	X and Y are the coordinates of the target given in user
Xunits (NOT in centimeters).
X
X	These coordinates are considered as absolute (j=0 or j=1) or
Xrelative (j=2 or j=3) according to the value of j.
X
X	During the move, the pen is up (j=0 or j=2) or down
X(j=1 or j=3) according to the value of j.
X
X	The following constants are defined in PLOT.H:
X
X 	Code des deplacements de la plume
X
X.nf
X#define PL_AH 0		Absolu Plume Haute
X#define PL_AB 1		Abslou Plume Basse
X#define PL_RH 2		Relatif Plume Haute
X#define PL_RB 3		Relatif Plume Basse
X.fi
X
X	The size of characters is given in centimeters by hy (height) of the
Xcharacters.
X
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XAll text writing functions
X
X.bp
X.tl 'PLCLOSE' '       %'
X
X.ce
X*************
X.ce
X*  PLCLOSE  *
X.ce
X*************
X
X
X
X
X.ti -8
XNAME	PLCLOSE	CLOSE THE POSTSCRIPT FILE:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xplclose();
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	PLCLOSE: Stops the plotter and closes the file in wich the
Xplot has been send.
X
X	The PostScript file must be send to the plotter in order to be drawn.
XThe file can be spooled as for any ascii file.
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X
X.ti -8
XSEE ALSO:
X
XPLOPEN and ENDPLOT
X
X
X.bp
X.tl 'PNUMA' '       %'
X
X.ce
X*************
X.ce
X*  PNUMA  *
X.ce
X*************
X
X
X
X
X.ti -8
XNAME	PNUMA 	DEFINE NEW ORIGINE AND MOVE THE PEN:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xpnuma(xf,yf,xa,ya);
Xfloat	xf, yf,	/* Absolute coordinates in cm */
X	xa, ya;	/* Absolute (en cm) coordinates
X				of new position */
X.fi
X.ti -8
XDESCRIPTION:
X
X	PNUMA defines a new absolute origine. The pen if first moved to xf
Xand yf coordinates. xa and ya corespond to the new coordinates of
Xthe pen.
X
X	All coordinates are given in centimeters (also refered as PostScript
Xspace).
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'ECHEL' '       %'
X
X.ce
X***********
X.ce
X*  ECHEL  *
X.ce
X***********
X
X
X
X.ti -8
XNAME	ECHEL 	DEFINE SCALE OF DRAWINGS (SUBJECT VERSUS POSTSCRIPT UNITS):
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
XBOOLEAN echel(ex,ey,xs,ys,ca,sa);
Xfloat	ex, ey,	/* Number of cms by user unit	*/
X	xs, ys,	/* Absolute (en cm) coordinates
X				of user origine */
X	ca, sa;	/* Cos and Sin of the drawing
X				(rotation)	*/
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	ECHEL Define the scale of the drawing, and its origine in the
XPostScript coordinates (relative to the last call to Pnuma). Its
Xallows also rotation of the entire drawing.
X
X	The scales must be given in centimeters by user (or subject)
Xunit. They must have a value greater than 0.008 since the PostScript
Xdraws one centimeter using 118 steps. If not, the function returns
XFALSE.
X
X	The coordinates of the new origine must be given in
XPostScript units, i.e. in centimeters.
X
X	Cosinus and Sinus of the angle of the drawing relative to
Xthe X axis gives a rotation possibility.
X
XHorizontal endroit: cosa=0. sina=-1.
X
XHorizontal envers: cosa=0. sina=1.
X
XVerticalement ascendant: cosa=1. sina=0.
X
XVerticalement descendant: cosa=-1. sina=0.
X
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'PLUME' '       %'
X
X.ce
X***********
X.ce
X*  PLUME  *
X.ce
X***********
X
X
X
X.ti -8
XNAME	PLUME	CHANGE THE DRAWING PEN:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
XBOOLEAN plume(k);
Xint k;		/* pen number (0, 1 or 2) */
X
X.fi
X.ti -8
XDESCRIPTION:
X
X	PLUME: selects the drawing pen. If the pen number (k) is not one of
X0, 1 or 2, the function returns FALSE, else it returns TRUE.
XIf plume() is not called, the default pen is 0 (BLACK).
X
X1 gives a gray at 0.3, 2 a light gray at 0.7.
X
X.nf
X
X	PLOT_PS.H includes the following _#defines:
X
X.nf
X	#define BLACK	0
X	#define NOIR	0
X	#define RED	1
X	#define ROUGE	1
X	#define GREEN	2
X	#define VERT	2
X	#define BLUE	2
X	#define BLEU	2
X.fi
Xin order to indicate named colours instead of coded values.
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT a partir de PLOT0.C de Jean-Noel Albert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'PL_ROTATE' '       %'
X
X.ce
X***************
X.ce
X*  PL_ROTATE  *
X.ce
X***************
X
X
X
X.ti -8
XNAME	PL_ROTATE	ALLOWS A ROTATION IN DEGRES:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xpl_rotate(rot);
Xfloat	rot;	/* Rotation in degres */
X
X.fi
X
X.ti -8
XDESCRIPTION:
X
XPL_ROTATE() Allows a rotation in degres of the previous graph.
X
X.ti -8
XAUTHOR:
X
XJean-Francois
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'POLICE' '       %'
X
X.ce
X************
X.ce
X*  POLICE  *
X.ce
X************
X
X
X
X.ti -8
XNAME	POLICE	ALLOWS TO CHANGE THE FONT:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xpolice(font,hy);
Xchar	*font;	/* font name */
Xfloat	hy;	/* Rotation in degres */
X
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	POLICE() allows to choose a new font as the current font. The first
Xargument is the PostScript build in font name. The size of the font
Xis given in centimer by hy. It can be changed alone by plsize().
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'PLSIZE' '       %'
X
X.ce
X************
X.ce
X*  PLSIZE  *
X.ce
X************
X
X
X
X
X.ti -8
XNAME	PLSIZE	DEFINE SIZE (IN CM)  OF CHARACTERS:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xplsize(hy);
Xfloat	hy;	/* Size of height
X		of characters given
X		in centimeters 	*/
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	PLSIZE() defines the size of characters, given in centimeters,
Xand acts on he current font choosen by police().
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'SET_GRAY' '       %'
X
X.ce
X**************
X.ce
X*  SET_GRAY  *
X.ce
X**************
X
X
X
X
X.ti -8
XNAME	SET_GRAY	DEFINE A NEW DEFAULT GRAY:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xset_gray(gray);
Xfloat	gray;	/* gray for the subsequent drawings */
X
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	SET_GRAY() defines a new gray value for the subsequent drawings. It
Xon the line color.
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'LINE_WIDTH' '       %'
X
X.ce
X****************
X.ce
X*  LINE_WIDTH  *
X.ce
X****************
X
X
X
X
X.ti -8
XNAME	LINE_WIDTH 	DEFINES A NEW LINE WIDTH FOR THE LINES:
X
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xline_width(width);
Xint width;	/* PostScript width */
X
X.fi
X
X.ti -8
XDESCRIPTION:
X
X	LINE_WIDTH() defines a new line width for the lines subsequently
Xdrawn. The width is given in PostScript units (picas).
X
X.ti -8
XAUTHOR:
X
XJean-Francois VIBERT
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
XPLOT1 et PLOT2
X
X.bp
X.tl 'CLOSED_CURVE' '       %'
X
X.ce
X******************
X.ce
X*  CLOSED_CURVE  *
X.ce
X******************
X
X
X
X
X.ti -8
Xname	closed_curve draws a possibly filled surface:
X
X.ti -8
Xsynoptique:
X
X.nf
X#include <plot_ps.h>
X
Xclosed_curve(x,y,nb_pts,contour,fill,gray)
Xfloat	x[],	/* array with x coordinates */
X	x[];	/* array with y coordinates */
Xint	nb_pts, /* nb of values in x (and y) */
X	contour,/* t or f line around or not */
X	fill;	/* t or f filled or not */
X.fi
Xfloat	gray;	/* gray filling color */
X
X.fi
X
X.ti -8
Xdescription:
X
X	closed_curve() draws polygonal surface whose coordinates are in 2
Xarrays x and y, beginning and ending at the current position. it is
Xpossible to decide to draw a contour around the surface. this
Xsurface can be filled in gray, whose color is given by grey.
X
X.ti -8
Xauthor:
X
Xjean-francois vibert
X
Xchu saint-antoine cnrs ua1162 universite paris vi
X
X.ti -8
Xsee also:
X
Xplot1 et plot2
X
X
X
X.bp
X.tl 'PEN MOVEMENTS' '       %'
X
X.ce
X*******************
X.ce
X*  PEN MOVEMENTS  *
X.ce
X*******************
X
X
X
X
X.ti -8
Xname:	plot2_ps -- jeu de fonctions de mouvements de plume
X
X.fi
X.ti -8
Xsynoptique:
X
X.nf
X#include <plot_ps.h>
X
Xpuser()
X
Xpcms()
X
Xpmover(x,y)
Xfloat x, y;
X
Xpmovea(x,y)
Xfloat x, y;
X
Xpdrawr(x,y)
Xfloat x, y;
X
Xpdrawa(x,y)
Xfloat x, y;
X
Xphome()
X
Xles fonctions suivantes ne devraient jamais etre appelees.
X
Xpmover(x,y)
Xfloat x, y;
X
Xpmovea(x,y)
Xfloat x, y;
X
Xplinsa(x,y)
Xfloat x, y;
X
Xplinba(x,y)
Xfloat x, y;
X
Xplinsr(x,y)
Xfloat x, y;
X
Xplinbr(x,y)
Xfloat x, y;
X
X.ti -8
Xdescription:
X
X	PUSER() permet de passer en mode espace sujet, tous les ordres de
Xmouvement de plume seront consideres comme ayant des coordonnees x
Xet y en unites sujet (pas en cms!).
X
X	PCMS()  permet de passer en mode espace papier, tous les ordres de
Xmouvement de plume seront consideres comme ayant des coordonnees x
Xet y en  cms sur le papier.
X
X	Les functions suivantes permetettent de dessiner dans l'espace
Xcourant: pmove deplace sans dessiner, draw deplace en dessinant, et
Xles coordonnees sont prises en absolu (suffixe a) ou relative
X(suffixe r).
X
XPMOVEA() se deplace au point x,y en absolu
X
XPMOVER() se deplace au point x,y en relatif
X
XPDRAWA() trace un trait jusqu'au point x,y en absolu
X
XPDRAWR() trace un trait jusqu'au point x,y en relatif
X
XPHOME() retourne au point absolu 0,0
X
X	Les fonctions suivantes ne devraient jamais etre appelees:
XElles permettent eventuellement de faire un deplacement dans un
Xautre espace que l'espace courant.
X
X	Routines de mouvement de la plume
X
X.nf
X
X	b -> espace papier (en cm)
X	s -> espace utilisateur c-a-d sujet (a l'echelle)
X	a -> mouvement en absolu
X	r -> mouvement en relatif
X
X
X	xxxxba	-> espace papier en absolu
X	xxxxsa	-> espace utilisateur en absolu
X	xxxxbr	-> espace benson en relatif
X	xxxxsr	-> espace utilisateur en relatif
X
X	P pour plume
X	MOV pour deplacement plume haute (sans trace)
X	LIN pour deplacement plume basse (trace de trait)
X.fi
X
Xpmovsa(x,y) se deplace au point x,y en absolu dans l'espace sujet
X
Xpmovba(x,y) se deplace au point x,y en absolu dans l'espace papier
X
Xpmovsr(x,y) se deplace au point x,y en relatif dans l'espace sujet
X
Xpmovbr(x,y) se deplace au point x,y en relatif dans l'espace papier
X
Xplinsa(x,y) trace jusqu'au point x,y en absolu dans l'espace sujet
X
Xplinba(x,y) trace jusqu'au point x,y en absolu dans l'espace papier
X
Xplinsr(x,y) trace jusqu'au point x,y en relatif dans l'espace sujet
X
Xplinbr(x,y) trace jusqu'au point x,y en relatif dans l'espace papier
X
X.ti -8
XAUTHOR:
X
XDr Jean-Francois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
Xplot0_ps, iniplot_ps, endplot_ps, newpage_ps
X
X
X.bp
X.tl 'PL_NEWPAGE' '       %'
X
X.ce
X**************
X.ce
X* PL_NEWPAGE *
X.ce
X**************
X
X
X
X
X.ti -8
XNAME:	PL_NEWPAGE -- Go to the next page
X
X.fi
X.ti -8
XSYNOPTIQUE:
X
X.nf
X#include <plot_ps.h>
X
Xpl_newpage()
X.fi
X
X.ti -8
XDESCRIPTION:
X
XPL_NEWPAGE go to the next page and redraw the banner and numbers the pages
X
X.ti -8
XAUTHOR:
X
XDr Jean-Francois Vibert
X
XCHU Saint-Antoine CNRS UA1162 Universite Paris VI
X
X.ti -8
XSEE ALSO:
X
X
*-*-END_of_plot_ps.nroff-*-*
echo x - plot_ps.ps
sed 's/^X//' >plot_ps.ps <<'*-*-END_of_plot_ps.ps-*-*'
X%! 
X% The following defines procedures assumed and used by program "dvi2ps"
X%
X% $Header: tex.ps,v 1.13 87/12/14 00:57:00 van Exp $
X%
X% Original By:  Neal Holtz, Carleton University, Ottawa, Canada
X%		<holtz@cascade.carleton.cdn>
X%		<holtz%cascade.carleton.cdn@ubc.csnet>
X%		June, 1985
X% Seriously hacked by Van Jacobson, LBL
X%		<van@lbl-csam.arpa>
X
X/TeXDict 200 dict def   % define a working dictionary
XTeXDict begin           % start using it.
X                        % units are in "dots" (300/inch)
X/Resolution 300 def
X/Inch  {Resolution mul} def  % converts inches to internal units
X
X/Mtrx 6 array def
X
X%%%%%%%%%%%%%%%%%%%%% Page setup (user) options %%%%%%%%%%%%%%%%%%%%%%%%
X
X% dvi2ps will output coordinates in the TeX system ([0,0] 1" down and in
X% from top left, with y +ive downward).  The default PostScript system
X% is [0,0] at bottom left, y +ive up.  The Many Matrix Machinations in
X% the following code are an attempt to reconcile that. The intent is to
X% specify the scaling as 1 and have only translations in the matrix to
X% properly position the text.  Caution: the default device matrices are
X% *not* the same in all PostScript devices; that should not matter in most 
X% of the code below (except for lanscape mode -- in that, rotations of
X% -90 degrees resulted in the the rotation matrix [ e 1 ]
X%                                                 [ 1 e ]
X% where the "e"s were almost exactly but not quite unlike zeros.
X
X/@letter
X  { letter initmatrix
X    72 Resolution div dup neg scale          % set scaling to 1.
X    310 -3005 translate      % move origin to top (these are not exactly 1"
X    Mtrx currentmatrix pop   % and -10" because margins aren't set exactly right)
X    /@TeXSave save def
X  } def
X        % note mode is like letter, except it uses less VM
X/@note
X  { note initmatrix
X    72 Resolution div dup neg scale          % set scaling to 1.
X    310 -3005 translate                      % move origin to top
X    Mtrx currentmatrix pop
X    /@TeXSave save def
X  } def
X
X/@landscape
X  { letter initmatrix
X    72 Resolution div dup neg scale          % set scaling to 1.
X    Mtrx currentmatrix 0 0.0 put
X    Mtrx 1 -1.0 put
X    Mtrx 2 1.0 put
X    Mtrx 3 0.0 put
X    Mtrx  setmatrix
X    300 310 translate                       % move origin to top
X    Mtrx currentmatrix pop
X    /@TeXSave save def
X  } def
X
X/@legal
X  { legal initmatrix
X    72 Resolution div dup neg scale          % set scaling to 1.
X    295 -3880 translate                      % move origin to top
X    Mtrx currentmatrix pop
X    /@TeXSave save def
X  } def
X
X/@manualfeed
X   { statusdict /manualfeed true put
X   } def
X
X% n @copies -   set number of copies
X/@copies
X   { /#copies exch def
X   } def
X
X%%%%%%%%%%%%%%%%%%%% Procedure Defintions %%%%%%%%%%%%%%%%%%%%%%%%%%
X
X% id @newfont -		initialize a new font dictionary
X/@newfont
X  { /newname exch def
X    newname 7 dict def          % allocate new font dictionary
X    newname load begin
X        /FontType 3 def
X        /FontMatrix [1 0 0 -1 0 0] def
X        /FontBBox [0 0 1 1] def
X        /BitMaps 128 array def
X        /BuildChar {CharBuilder} def
X        /Encoding 128 array def
X        0 1 127 {Encoding exch /.undef put} for
X        end
X    newname newname load definefont pop
X  } def
X
X
X% the following is the only character builder we need.  it looks up the
X% char data in the BitMaps array, and paints the character if possible.
X% char data  -- a bitmap descriptor -- is an array of length 6, of 
X%          which the various slots are:
X
X/ch-image {ch-data 0 get} def   % the hex string image
X/ch-width {ch-data 1 get} def   % the number of pixels across
X/ch-height {ch-data 2 get} def  % the number of pixels tall
X/ch-xoff  {ch-data 3 get} def   % number of pixels below origin
X/ch-yoff  {ch-data 4 get} def   % number of pixels to left of origin
X/ch-tfmw  {ch-data 5 get} def   % spacing to next character
X
X% fontdict ch Charbuilder -     -- image one character
X/CharBuilder
X  { /ch-code exch def           % save the char code
X    /font-dict exch def         % and the font dict.
X    /ch-data font-dict /BitMaps get ch-code get def   % get the bitmap
X    ch-data null eq not {
X	ch-tfmw 0 ch-xoff neg ch-yoff neg
X	ch-width ch-xoff sub ch-height ch-yoff sub
X	setcachedevice
X        ch-width ch-height true [1 0  0 1  ch-xoff ch-yoff]
X	{ch-image} imagemask
X    } if
X} def
X
X
X% fontdict @sf -        -- make that the current font
X/@sf { setfont } def
X
X% in the following, the font-cacheing mechanism requires that
X% a name unique in the particular font be generated
X
X% char-data ch @dc -    -- define a new character bitmap in current font
X/@dc
X  { /ch-code exch def
X    dup 0 get
X    length 2 lt
X      { pop [ <00> 1 1 0 0 8.00 ] } % replace <> with null
X    if
X    /ch-data exch def
X    currentfont /BitMaps get ch-code ch-data put
X    % generate a unique name simply from the character code
X    currentfont /Encoding get ch-code dup (   ) cvs cvn put
X  } def
X
X/@DRAFTF { gsave initmatrix newpath
X       /Helvetica-Bold findfont setfont
X       (Draft) dup stringwidth pop 8.875 exch div dup 72 mul dup scale
X       52.3 rotate 2.5 exch div -.35 translate
X       0.95 setgray
X       0 0 moveto show
X       grestore } def
X/@DRAFTM { gsave initmatrix newpath
X       /Helvetica-Bold findfont 72 scalefont setfont
X       0.95 setgray
X       576 702 moveto
X       (Draft) stringwidth exch neg exch neg rmoveto
X       (Draft) show
X       grestore } def
X
X% n @bop0 -              -- begin the char def section of a new page
X/@bop0 { pop } def
X
X% n @bop1 -              -- begin a brand new page
X/@bop1 { pop Mtrx setmatrix /SaveImage save def } def
X
X/@draft {
X    /@bop1
X	  { 1 le {@DRAFTF} {@DRAFTM} ifelse
X	    Mtrx setmatrix
X	    /SaveImage save def
X	  } def
X} def
X
X% - @eop -              -- end a page
X/@eop { showpage SaveImage restore } def
X
X% - @start -            -- start everything
X/@start { @letter /@TeXSave save def } def
X
X% - @end -              -- done the whole shebang
X/@end { end } def
X
X% x y p -               -- move to position
X/p { moveto } bind def
X
X% x r -                 -- move right
X/r { 0 rmoveto } bind def
X
X% string s -            -- show the string
X/s { show } bind def
X
X% x string m -            -- move right then show string
X/m { exch 0 rmoveto show } bind def
X
X% ch c -                -- show the character (code given)
X/c { c-string dup 0 4 -1 roll put show } bind def
X
X/c-string ( ) def
X
X% dx dy ru -   -- set a rule (rectangle)
X/ru
X  { /dy exch neg def    % because dy is height up from bottom
X    /dx exch def
X    /x currentpoint /y exch def def   % remember current point
X    newpath x y moveto
X    dx 0 rlineto
X    0 dy rlineto
X    dx neg 0 rlineto
X    closepath fill
X    x y moveto
X  } bind def
X
X/@MacSetUp
X  { userdict /md known  % if md is defined
X      { userdict /md get type /dicttype eq      % and if it is a dictionary
X	{
X	md begin                             % then redefine some stuff
X	/letter {} def
X	/note {} def
X	/legal {} def
X	/od{txpose
X	    1 0 mtx defaultmatrix dtransform exch atan/pa exch def
X	    newpath clippath mark
X	    {transform{itransform moveto}}
X	    {transform{itransform lineto}}
X	    { 6 -2 roll transform
X	      6 -2 roll transform
X	      6 -2 roll transform
X	      { itransform 6 2 roll
X		itransform 6 2 roll
X		itransform 6 2 roll
X		curveto
X	      }
X	    }
X	    {{closepath}}
X	    pathforall newpath counttomark array astore /gc xdf
X	    pop ct 39 0 put
X	    10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if
X	}def
X	/txpose{
X	    pxs pys scale ppr aload pop
X	    por {
X		noflips {
X		    pop exch neg exch translate pop 1 -1 scale
X		}if
X		xflip yflip and {
X		    pop exch neg exch translate 180 rotate 1 -1 scale
X		    ppr 3 get ppr 1 get neg sub neg ppr 2 get
X		    ppr 0 get neg sub neg translate
X		}if 
X		xflip yflip not and {
X		    pop exch neg exch translate pop 180 rotate
X		    ppr 3 get ppr 1 get neg sub neg 0 translate
X		}if
X		yflip xflip not and {
X		    ppr 1 get neg ppr 0 get neg translate
X		}if
X	    }
X	    {
X		noflips {
X		    translate pop pop 270 rotate 1 -1 scale
X		}if
X		xflip yflip and {
X		    translate pop pop 90 rotate 1 -1 scale
X		    ppr 3 get ppr 1 get neg sub neg ppr 2 get
X		    ppr 0 get neg sub neg translate
X		}if
X		xflip yflip not and {
X		    translate pop pop 90 rotate ppr 3 get
X		    ppr 1 get neg sub neg 0 translate
X		}if
X		yflip xflip not and {
X		    translate pop pop 270 rotate ppr 2 get
X		    ppr 0 get neg sub neg 0 exch translate
X		}if
X	    }ifelse
X	    scaleby96 {
X		ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy
X		translate .96 dup scale neg exch neg exch translate
X	    }if
X	}def
X	/cp {pop pop showpage pm restore}def
X        end
X      }if
X    } if    
X  } def
X
X
X%!
X% All software, documentation, and related files in this distribution of
X% psfig/tex are Copyright (c) 1987 Trevor J. Darrell
X%
X% Permission is granted for use and non-profit distribution of psfig/tex 
X% providing that this notice be clearly maintained, but the right to
X% distribute any portion of psfig/tex for profit or as part of any commercial
X% product is specifically reserved for the author.
X%
X%
X% psfigTeX PostScript Prolog
X% $Header: tex.ps,v 1.13 87/12/14 00:57:00 van Exp $
X%
X/psf$TeXscale { 65536 div } def
X
X/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
Xcurrentlinejoin currentdash currentgray currentmiterlimit ] cvx def
X
X%  x y bb-llx bb-lly bb-urx bb-ury startFig -
X/startTexFig {
X	/psf$SavedState save def
X	userdict maxlength dict begin
X	currentpoint transform
X
X	DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap
X		setlinewidth setmatrix
X
X	itransform moveto
X
X	/psf$ury exch psf$TeXscale def
X	/psf$urx exch psf$TeXscale def
X	/psf$lly exch psf$TeXscale def
X	/psf$llx exch psf$TeXscale def
X	/psf$y exch psf$TeXscale def
X	/psf$x exch psf$TeXscale def
X	
X	currentpoint /psf$cy exch def /psf$cx exch def
X
X	/psf$sx psf$x psf$urx psf$llx sub div def 	% scaling for x
X	/psf$sy psf$y psf$ury psf$lly sub div def	% scaling for y
X
X	psf$sx psf$sy scale			% scale by (sx,sy)
X
X	psf$cx psf$sx div psf$llx sub
X	psf$cy psf$sy div psf$ury sub translate
X	
X	/DefFigCTM matrix currentmatrix def
X
X	/initmatrix {
X		DefFigCTM setmatrix
X	} def
X	/defaultmatrix {
X		DefFigCTM exch copy
X	} def
X
X	/initgraphics {
X		DocumentInitState setmiterlimit setgray setdash 
X			setlinejoin setlinecap setlinewidth setmatrix
X		DefFigCTM setmatrix
X	} def
X
X	/showpage {
X		initgraphics
X	} def
X	@MacSetUp
X} def
X
X/clipFig {
X% llx lly urx ury clipFig -	(args in figure coordinates)
X	currentpoint 6 2 roll
X	newpath 4 copy
X	4 2 roll moveto
X	6 -1 roll exch lineto
X	exch lineto
X	exch lineto
X	closepath clip
X	newpath
X	moveto
X} def
X% doclip, if called, will always be just after a `startfig'
X/doclip { psf$llx psf$lly psf$urx psf$ury clipFig } def
X% - endTexFig -
X/endTexFig { end psf$SavedState restore } def
X
X
X%%%% Additions by LA Carr to reencode Adobe fonts as TeX fonts (almost)
X%%%% Based on routine in LaserWriter Cookbook
X/ReEncodeForTeX
X  { /newfontname exch def
X    /basefontname exch def
X    /TeXstr 30 string def
X
X    /basefontdict basefontname findfont def
X    /newfont basefontdict maxlength dict def
X    basefontdict
X      { exch dup /FID ne
X	  { dup /Encoding eq
X	    { exch dup length array copy
X	        newfont 3 1 roll put }
X	    { exch newfont 3 1 roll put }
X	    ifelse
X	  }
X	{ pop pop }
X	ifelse
X      } forall
X
X      basefontdict /MathFontName known not
X        { 
X	  /TeXvec basefontname TeXstr cvs (Courier) search
X	    { pop pop pop TeXcourvec }
X	    { pop TeXnormalvec }
X	  ifelse def
X          TeXvec aload pop
X
X          TeXvec length 2 idiv
X	    { newfont /Encoding get 3 1 roll put }
X	  repeat
X	}
X      if
X
X      newfontname newfont definefont pop
X  } def
X
X/TeXnormalvec
X	[ 8#014 /fi 8#015 /fl 8#020 /dotlessi 8#022 /grave 8#023 /acute
X	  8#024 /caron 8#025 /breve 8#026 /macron 8#027 /ring 8#030 /cedilla
X	  8#031 /germandbls 8#032 /ae 8#033 /oe 8#034 /oslash 8#035 /AE
X	  8#036 /OE 8#037 /Oslash 8#042 /quotedblright 8#074 /exclamdown
X	  8#076 /questiondown 8#134 /quotedblleft 8#136 /circumflex
X	  8#137 /dotaccent 8#173 /endash 8#174 /emdash 8#175 /hungarumlat
X	  8#176 /tilde 8#177 /dieresis ] def
X/TeXcourvec
X	[ 8#016 /exclamdown 8#017 /questiondown 8#020 /dotlessi 8#022 /grave
X	  8#023 /acute 8#024 /caron 8#025 /breve 8#026 /macron 8#027 /ring
X	  8#030 /cedilla 8#031 /germandbls 8#032 /ae 8#033 /oe 8#034 /oslash
X	  8#035 /AE 8#036 /OE 8#037 /Oslash 8#074 /less 8#076 /greater
X	  8#134 /backslash 8#136 /circumflex 8#137 /underscore 8#173 /braceleft
X	  8#174 /bar 8#175 /braceright 8#177 /dieresis ] def
X
X/TeXPSmakefont {	% defines a routine for generating PS fonts, fudged!
X	/TeXsize exch def findfont 
X	[ TeXsize 0 0 TeXsize neg 0 0 ] makefont
X} def
X
X% fontname basefontname angle ObliqueFont -
X% Create a General Oblique font
X/ObliqueFont {
X    /ObliqueAngle exch def
X    /ObliqueBaseName exch def
X    /ObliqueFontName exch def
X    /ObliqueTransform [1 0 ObliqueAngle sin ObliqueAngle cos div 1 0 0] def
X    /basefontdict ObliqueBaseName findfont ObliqueTransform makefont def
X    /newfont basefontdict maxlength dict def
X    basefontdict
X      { exch dup /FID ne
X	  { dup /Encoding eq
X	    { exch dup length array copy
X	        newfont 3 1 roll put }
X	    { exch newfont 3 1 roll put }
X	    ifelse
X	  }
X	{ pop pop }
X	ifelse
X      } forall
X
X     newfont /FontName ObliqueFontName put
X     ObliqueFontName newfont definefont
X     pop
X} def
X
X% Palatino-ItalicUnslanted? You must be joking!
X
X% fontname basename SmallCapsFont -	Create a General SmallCaps font
X/SmallCapsFont {
X    /SmallCapsBaseName exch def
X    /SmallCapsFontName exch def
X    /basefontdict SmallCapsBaseName findfont def
X    /newfont basefontdict maxlength 10 add dict def
X
X    newfont begin
X	/FontName SmallCapsFontName def
X	/FontBaseDict basefontdict 1000 scalefont def
X	/FontSCDict FontBaseDict .8 scalefont def
X	/FontType 3 def
X	/BuildChar {SmallCapChar} def
X	/FontMatrix dup basefontdict exch get def
X	/FontBBox dup basefontdict exch get def
X	/Encoding dup basefontdict exch get def
X    end
X    SmallCapsFontName newfont definefont pop
X} def
X
X% fontdict ch SmallCapChar -
X% It shouldn't be so damn hard to do this (make one font out
X% of two others) but I tried several dozen variations on this
X% theme until I found something that worked. -- vj
X/SmallCapChar {
X    /achar (A) def
X    achar exch 0 exch put
X    begin
X    achar 0 get dup 97 ge exch 122 le and {
X	% handle 'a' through 'z' specially
X	achar 0 achar 0 get 32 sub put
X	FontSCDict
X    } {
X	FontBaseDict
X    } ifelse
X    setfont achar stringwidth FontBBox setcachedevice
X    newpath 0 0 moveto achar show
X    end
X} def
X
X/MathEncodingVec [
X/Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon1
X/Phi /Psi /Omega /alpha /beta /gamma /delta /epsilon
X/zeta /nu /theta /iota /kappa /lambda /mu /nu
X/xi /pi /rho /sigma /tau /upsilon /phi /chi
X/psi /omega /epsilon /theta1 /omega1 /rho /sigma /phi1
X/arrowleft /arrowleft /arrowright /arrowright
X/suchthat /congruent /proportional /angle
X/zero /one /two /three /four /five /six /seven
X/eight /nine /period /comma /less /slash /greater /asteriskmath
X/partialdiff /A /B /C /D /E /F /G
X/H /I /J /K /L /M /N /O
X/P /Q /R /S /T /U /V /W
X/X /Y /Z /registerserif /copyrightserif /trademarkserif /logicalor /logicaland
X/section /a /b /c /d /e /f /g
X/h /i /j /k /l /m /n /o
X/p /q /r /s /t /u /v /w
X/x /y /z /dotlessi /j /weierstrass /macron /breve
X] def
X
X% the following gives the character codes of the above characters
X% in their font.  I.e., this is the character we have to hand "show"
X% to image the characters above.
X/MathCharVec [
X	71	68	81	76	88	80	83	161
X	70	89	87	97	98	103	100	101
X	122	110	113	105	107	108	109	110
X	120	112	114	115	116	117	102	99
X	121	119	101	74	118	114	115	106
X	172	172	174	174	39	64	181	208
X	48	49	50	51	52	53	54	55
X	56	57	46	44	60	47	62	42
X	182	65	66	67	68	69	70	71
X	72	73	74	75	76	77	78	79
X	80	81	82	83	84	85	86	87
X	88	89	90	210	211	212	218	217
X	167	97	98	99	100	101	102	103
X	104	105	106	107	108	109	110	111
X	112	113	114	115	116	117	118	119
X	120	121	122	245	106	195	197	198
X] def
X
X% this array tells which font dictionary holds each character above
X% (0 = basefont, 1 = symbol (maybe slanted), 2 = symbol (unslanted)).
X/MathDictVec [
X	1 1 1 1 1 1 1 1
X	1 1 1 1 1 1 1 1
X	1 1 1 1 1 1 1 1
X	1 1 1 1 1 1 1 1
X	1 1 1 1 1 1 1 1
X	2 2 2 2 2 2 2 2
X	0 0 0 0 0 0 0 0
X	0 0 0 0 2 2 2 2
X	2 0 0 0 0 0 0 0
X	0 0 0 0 0 0 0 0
X	0 0 0 0 0 0 0 0
X	0 0 0 2 2 2 2 2
X	2 0 0 0 0 0 0 0
X	0 0 0 0 0 0 0 0
X	0 0 0 0 0 0 0 0
X	0 0 0 0 0 2 0 0
X] def
X
X
X% fontname basename symbolname symbolbase angle MathOblique -
X% Create a "math" font with the symbol font characters slanted
X% by "angle"
X/MathOblique {
X    3 copy ObliqueFont
X    pop pop MathFont
X} def
X    
X
X% fontname basename symbolname MathFont -	Create a math italic font
X%
X% We build this font out of the base font & the symbol font
X% using an encoding vec as close as we can get to cmmi10 with
X% standard postscript characters.  An array parallel to the
X% encoding vector tells which font dictionary to use for a
X% particular character.
X/MathFont {
X    /MathSymName exch def
X    /MathBaseName exch def
X    /MathFontName exch def
X    /basefontdict MathBaseName findfont def
X    /newfont basefontdict maxlength 10 add dict def
X
X    newfont begin
X	/FontName MathFontName def
X	/FontDictArray [
X	    basefontdict 1000 scalefont
X	    MathSymName findfont 950 scalefont
X	    /Symbol findfont 950 scalefont
X	   ] def
X	/FontType 3 def
X	/BuildChar {MathFontChar} def
X	/FontMatrix dup basefontdict exch get def
X	/FontBBox dup basefontdict exch get def
X	% the encoding vector is a copy of the original font's
X	% encoding, modified "appropriately".
X	/Encoding dup basefontdict exch get dup length array copy def
X	/WhichFont MathDictVec def
X	/WhichChar MathCharVec def
X	MathEncodingVec Encoding copy pop
X	/achar (A) def
X    end
X    MathFontName newfont definefont pop
X} def
X
X% fontdict ch MathFontChar -
X% (there's some serious magic going on here:  see note on 
X% SmallCapChar above -- vj).
X/MathFontChar {
X    exch begin
X    achar exch 0 exch put
X    FontDictArray WhichFont achar 0 get get get setfont
X    achar dup 0 get WhichChar exch get 0 exch put
X    achar stringwidth FontBBox setcachedevice
X    newpath 0 0 moveto achar show
X    end
X} bind def
X
X/@flushfonts { @TeXSave restore /@TeXSave save def} def
X
Xend                     % revert to previous dictionary
XTeXDict begin @start
X%%Title: plot_ps.dvi
X%%Creator: dvi2ps
X%%EndProlog
X1 @bop0
X/NewCenturySchlbk-Bold /ncs-bol.750 ReEncodeForTeX /ncs-bol.750 /ncs-bol.750 104.166540 TeXPSmakefont def
X/NewCenturySchlbk-Bold /ncs-bol.510 ReEncodeForTeX /ncs-bol.510 /ncs-bol.510 70.833212 TeXPSmakefont def
X/NewCenturySchlbk-Bold /ncs-bol.420 ReEncodeForTeX /ncs-bol.420 /ncs-bol.420 58.333229 TeXPSmakefont def
X/NewCenturySchlbk-Roman /ncs-rom.360 ReEncodeForTeX /ncs-rom.360 /ncs-rom.360 49.999929 TeXPSmakefont def
X/NewCenturySchlbk-Bold /ncs-bol.360 ReEncodeForTeX /ncs-bol.360 /ncs-bol.360 49.999929 TeXPSmakefont def
X1 @bop1
Xncs-bol.750 @sf
X649 312 p (PLOT) s
X6 r 32 2 ru
X32 r (PS) s
Xncs-bol.510 @sf
X257 522 p (Bibliotheque) s
X19 r (graphique) s
X20 r (PostScript) s
Xncs-bol.420 @sf
X594 833 p (Manuel) s
X17 r (d'utilisati) s
X-1 r (on) s
Xncs-rom.360 @sf
X333 1013 p (Ce) s
X14 r (manuel) s
X13 r (correspond) s
X19 r 18 c
X-23 r 97 c
X14 r (la) s
X13 r (version) s
X14 r (1.0) s
X13 r (de) s
X14 r (plot) s
X3 r 15 2 ru
X15 r (ps.) s
X861 1312 p (par) s
Xncs-bol.360 @sf
X691 1492 p (Dr) s
X14 r (J.-F) s
X-5 r 46 c
X14 r (VIBERT) s
Xncs-rom.360 @sf
X592 1672 p (Laboratoire) s
X14 r (de) s
X14 r (Physiologie) s
X673 1735 p (CHU) s
X14 r (Saint) s
X13 r (Antoine) s
X502 1797 p (Universit) s
X4 r 19 c
X-21 r 101 c
X14 r (Pierre) s
X14 r (et) s
X14 r (Marie) s
X14 r (CURIE) s
X721 1859 p (CNRS) s
X15 r (UA) s
X13 r 49 c
X-2 r (162) s
X823 1921 p 80 c
X-3 r (ARIS) s
X791 1984 p (FRANCE) s
X15 2518 p (Pri) s
X4 r 18 c
X-21 r (ere) s
X14 r (de) s
X14 r (communiquer) s
X13 r (toute) s
X14 r (erreur) s
X-3 r 44 c
X14 r (ambiguit) s
X4 r 19 c
X-21 r (e,) s
X13 r (ou) s
X13 r (omission) s
X20 r 18 c
X-23 r 97 c
X14 r (l'auteur) s
X-3 r 46 c
X@eop
X2 @bop0
X/NewCenturySchlbk-BoldItalic /ncs-bolita.360 ReEncodeForTeX /ncs-bolita.360 /ncs-bolita.360 49.999929 TeXPSmakefont def
X/NewCenturySchlbk-Roman /ncs-rom.750 ReEncodeForTeX /ncs-rom.750 /ncs-rom.750 104.166540 TeXPSmakefont def
X/Courier /c-med.360 ReEncodeForTeX /c-med.360 /c-med.360 49.999929 TeXPSmakefont def
X2 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 50 c
Xncs-rom.750 @sf
X729 312 p (INIPLOT) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (INIPLOT) s
X15 r 123 c
X14 r (Initialize) s
X13 r (the) s
X14 r (PostScript) s
X16 r (plotter) s
Xncs-bol.360 @sf
X74 596 p (SYNOPTIQUE:) s
Xc-med.360 @sf
X389 720 p (#include) s
X30 r (<plot_ps.h>) s
X389 845 p (iniplot\(plot_file,paper\);) s
X389 907 p (char) s
X30 r (*plot_file;) s
X30 r (File) s
X30 r (for) s
X30 r (the) s
X30 r (plot) s
X389 969 p (float) s
X30 r (paper;) s
X30 r (Paper) s
X30 r (width) s
X30 r (in) s
X30 r (cm) s
Xncs-bol.360 @sf
X-43 1094 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1177 p (INIPLOT) s
X16 r (opens) s
X15 r (the) s
X15 r (PostScript) s
X17 r (\014le) s
X15 r (and) s
X14 r (draws) s
X15 r 97 c
X15 r (frame) s
X16 r (corresponding) s
X14 r (to) s
X16 r (the) s
X15 r (\015ag) s
X0 1239 p (page) s
X10 r (of) s
X12 r 97 c
X12 r (line-prin) s
X-1 r (ter) s
X-3 r 46 c
X16 r (The) s
X12 r (date) s
X12 r (and) s
X11 r (time) s
X12 r (of) s
X12 r (the) s
X12 r (\014le) s
X11 r (production,) s
X11 r (the) s
X12 r (\014le) s
X11 r (name) s
X12 r (and) s
X11 r (the) s
X0 1301 p (user) s
X15 r (name) s
X17 r (are) s
X16 r (indicated) s
X16 r (as) s
X16 r (well) s
X16 r (as) s
X17 r 97 c
X16 r (page) s
X16 r (number) s
X-3 r 46 c
X25 r (This) s
X16 r (banner) s
X16 r (is) s
X16 r (output) s
X16 r (on) s
X16 r (each) s
X0 1364 p (page) s
X12 r (by) s
X14 r (pl) s
X3 r 15 2 ru
X14 r (newpage\(\).) s
X17 r (It) s
X15 r (is) s
X13 r (drawn) s
X13 r (at) s
X15 r (the) s
X13 r (bottom) s
X15 r (of) s
X14 r (the) s
X14 r (page) s
X13 r (and) s
X13 r (is) s
X14 r 49 c
X14 r (cm) s
X14 r (wide.) s
Xncs-bol.360 @sf
X-43 1447 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1530 p (Dr) s
X14 r (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r 86 c
X-1 r (ibert) s
X74 1613 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1696 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1779 p (plopen\(\)) s
X12 r (and) s
X13 r (plclose\(\)) s
X@eop
X3 @bop0
X3 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 51 c
Xncs-rom.750 @sf
X694 312 p (ENDPLOT) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (ENDPLOT) s
X15 r 123 c
X13 r (Close) s
X14 r (and) s
X13 r (spools) s
X14 r (the) s
X14 r (PostScript) s
X15 r (\014le) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (endplot\(file,action\);) s
X389 920 p (char) s
X30 r (action;) s
X30 r (/*) s
X30 r (Action) s
X30 r (to) s
X30 r (take) s
X30 r (about) s
X30 r (the) s
X30 r (plot) s
X30 r (file) s
X779 982 p (s:) s
X30 r (spool) s
X30 r (and) s
X30 r (keep) s
X779 1044 p (d:) s
X30 r (spool) s
X30 r (and) s
X30 r (delete) s
X779 1106 p (f:) s
X30 r (freeze) s
X30 r (\(no) s
X30 r (spool\)) s
X779 1169 p (*/) s
Xncs-bol.360 @sf
X-43 1306 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1389 p (ENDPLOT) s
X16 r (closes) s
X16 r (the) s
X16 r (PostScript) s
X17 r (\014le) s
X15 r (and) s
X15 r (process) s
X16 r (it) s
X16 r (according) s
X15 r (to) s
X16 r (the) s
X16 r (action) s
X16 r (indi-) s
X0 1451 p (cated) s
X13 r (by) s
X14 r (the) s
X14 r (char) s
X13 r (argument:) s
X74 1534 p (s:) s
X18 r (spool) s
X14 r (and) s
X13 r (keep) s
X74 1617 p (d:) s
X18 r (spool) s
X13 r (and) s
X13 r (delete) s
X74 1700 p (f:) s
X18 r (freeze) s
X14 r (\(no) s
X13 r (spool\)) s
Xncs-bol.360 @sf
X-43 1783 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1866 p (Dr) s
X14 r (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r 86 c
X-1 r (ibert) s
X74 1949 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2032 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2115 p (plopen\(\)) s
X12 r (and) s
X13 r (plclose\(\)) s
X@eop
X4 @bop0
X4 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 52 c
Xncs-rom.750 @sf
X768 312 p (ECHEL) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (ECHEL) s
X14 r 123 c
X14 r (De\014ne) s
X13 r (scale) s
X14 r (of) s
X13 r (drawings) s
X13 r (\(subject) s
X13 r (versus) s
X14 r (postscript) s
X15 r (units\)) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (echel\(ex,ey,xs,ys,ca,sa\);) s
X389 920 p (float) s
X60 r (ex,) s
X30 r (ey,) s
X30 r (/*) s
X30 r (Number) s
X30 r (of) s
X30 r (cms) s
X30 r (by) s
X30 r (user) s
X30 r (unit) s
X30 r (*/) s
X599 982 p (xs,) s
X30 r (ys,) s
X30 r (/*) s
X30 r (Absolute) s
X30 r (\(en) s
X30 r (cm\)) s
X30 r (coordinates) s
X1169 1044 p (of) s
X30 r (user) s
X30 r (origine) s
X30 r (*/) s
X599 1106 p (ca,) s
X30 r (sa;) s
X30 r (/*) s
X30 r (Cos) s
X30 r (and) s
X30 r (Sin) s
X30 r (of) s
X30 r (the) s
X30 r (drawing) s
X1169 1169 p (\(rotation\)) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1306 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1389 p (ECHEL) s
X17 r (De\014ne) s
X16 r (the) s
X17 r (scale) s
X17 r (of) s
X17 r (the) s
X17 r (drawing,) s
X16 r (and) s
X16 r (its) s
X18 r (origine) s
X16 r (in) s
X16 r (the) s
X17 r (PostScript) s
X19 r (coor-) s
X0 1451 p (dinates) s
X18 r (\(relative) s
X18 r (to) s
X20 r (the) s
X20 r (last) s
X19 r (call) s
X19 r (to) s
X19 r (Pnuma\).) s
X34 r (Its) s
X21 r (allows) s
X18 r (also) s
X19 r (rotation) s
X20 r (of) s
X19 r (the) s
X19 r (entire) s
X0 1513 p (drawing.) s
X74 1596 p (The) s
X19 r (scales) s
X19 r (must) s
X20 r (be) s
X18 r (given) s
X18 r (in) s
X19 r (centimeters) s
X20 r (by) s
X19 r (user) s
X19 r (\(or) s
X19 r (subject\)) s
X18 r (unit.) s
X34 r (They) s
X18 r (must) s
X0 1658 p (have) s
X17 r 97 c
X18 r (value) s
X18 r (greater) s
X19 r (than) s
X18 r (0.008) s
X18 r (since) s
X19 r (the) s
X18 r (PostScript) s
X21 r (draws) s
X18 r (one) s
X18 r (centimeter) s
X20 r (using) s
X0 1721 p 49 c
X-2 r (18) s
X12 r (steps.) s
X18 r (If) s
X14 r (not,) s
X14 r (the) s
X14 r (function) s
X13 r (returns) s
X14 r 70 c
X-3 r (ALSE.) s
X74 1804 p (The) s
X20 r (coordinates) s
X21 r (of) s
X20 r (the) s
X21 r (new) s
X20 r (origine) s
X20 r (must) s
X21 r (be) s
X20 r (given) s
X20 r (in) s
X20 r (PostScript) s
X23 r (units,) s
X21 r (i.e.) s
X39 r (in) s
X0 1866 p (centimeters.) s
X74 1949 p (Cosinus) s
X12 r (and) s
X12 r (Sinus) s
X13 r (of) s
X13 r (the) s
X13 r (angle) s
X12 r (of) s
X13 r (the) s
X13 r (drawing) s
X12 r (relative) s
X13 r (to) s
X13 r (the) s
X13 r 88 c
X14 r (axis) s
X12 r (gives) s
X13 r 97 c
X13 r (rota-) s
X0 2011 p (tion) s
X13 r (possibility) s
X-5 r 46 c
X74 2094 p (Horizontal) s
X13 r (endroit:) s
X18 r (cosa=0.) s
X19 r (sina=-1.) s
X74 2177 p (Horizontal) s
X13 r (envers:) s
X18 r (cosa=0.) s
X19 r (sina=1.) s
X74 2260 p 86 c
X-4 r (erticalement) s
X14 r (ascendant:) s
X17 r (cosa=1.) s
X19 r (sina=0.) s
X74 2343 p 86 c
X-4 r (erticalement) s
X14 r (descendant:) s
X17 r (cosa=-1.) s
X19 r (sina=0.) s
Xncs-bol.360 @sf
X-43 2426 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 2509 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 2592 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2675 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2758 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X5 @bop0
X5 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 53 c
Xncs-rom.750 @sf
X753 312 p (PNUMA) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PNUMA) s
X14 r 123 c
X14 r (De\014nes) s
X13 r 97 c
X14 r (new) s
X13 r (origine) s
X13 r (and) s
X13 r (moves) s
X14 r (the) s
X14 r (pen) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (pnuma\(xf,yf,xa,ya\);) s
X389 920 p (float) s
X180 r (xf,) s
X30 r (yf,) s
X30 r (/*) s
X30 r (Absolute) s
X30 r (coordinates) s
X30 r (in) s
X30 r (cm) s
X30 r (*/) s
X719 982 p (xa,) s
X30 r (ya;) s
X30 r (/*) s
X30 r (Absolute) s
X30 r (\(en) s
X30 r (cm\)) s
X30 r (coordinates) s
X0 1044 p (of) s
X29 r (new) s
X30 r (position) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1181 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1264 p (PNUMA) s
X14 r (de\014nes) s
X13 r 97 c
X13 r (new) s
X13 r (absolute) s
X14 r (origine.) s
X17 r (The) s
X14 r (pen) s
X13 r (if) s
X13 r (\014rst) s
X14 r (moved) s
X14 r (to) s
X14 r (xf) s
X14 r (and) s
X13 r (yf) s
X13 r (coor-) s
X0 1326 p (dinates.) s
X17 r (xa) s
X13 r (and) s
X13 r (ya) s
X14 r (corespond) s
X13 r (to) s
X15 r (the) s
X14 r (new) s
X13 r (coordinates) s
X14 r (of) s
X13 r (the) s
X14 r (pen.) s
X74 1409 p (All) s
X13 r (coordinates) s
X14 r (are) s
X14 r (given) s
X13 r (in) s
X13 r (centimeters) s
X15 r (\(also) s
X13 r (refered) s
X14 r (as) s
X14 r (PostScript) s
X15 r (space\).) s
Xncs-bol.360 @sf
X-43 1492 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1575 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 1658 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1741 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1824 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X6 @bop0
X6 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 54 c
Xncs-rom.750 @sf
X760 312 p (PLUME) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLUME) s
X15 r 123 c
X13 r (Changes) s
X13 r (the) s
X14 r (drawing) s
X13 r (pen) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (plume\(k\);) s
X389 920 p (int) s
X30 r (k;) s
X60 r (/*) s
X30 r (pen) s
X30 r (number) s
X30 r (\(0,) s
X30 r 49 c
X30 r (or) s
X30 r (2\)) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1119 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1202 p (PLUME) s
X13 r (selects) s
X13 r (the) s
X12 r (drawing) s
X11 r (pen.) s
X17 r (If) s
X13 r (the) s
X12 r (pen) s
X11 r (number) s
X12 r (\(k\)) s
X12 r (is) s
X12 r (not) s
X12 r (one) s
X12 r (of) s
X12 r (0,) s
X12 r 49 c
X12 r (or) s
X13 r (2,) s
X12 r (the) s
X0 1264 p (function) s
X13 r (returns) s
X16 r 70 c
X-3 r (ALSE,) s
X16 r (else) s
X15 r (it) s
X16 r (returns) s
X15 r (TRUE.) s
X16 r (If) s
X16 r (plume\(\)) s
X14 r (is) s
X15 r (not) s
X16 r (called,) s
X15 r (the) s
X15 r (default) s
X0 1326 p (pen) s
X12 r (is) s
X14 r 48 c
X14 r (\(BLACK\).) s
X74 1409 p 49 c
X13 r (gives) s
X14 r 97 c
X14 r (gray) s
X13 r (at) s
X14 r (0.3,) s
X14 r 50 c
X13 r 97 c
X14 r (light) s
X13 r (gray) s
X14 r (at) s
X14 r (0.7.) s
X74 1492 p (PLOT) s
X3 r 15 2 ru
X16 r (PS.H) s
X14 r (includes) s
X13 r (the) s
X13 r (following) s
X13 r (#de\014nes:) s
X74 1658 p (#de\014ne) s
X12 r (BLACK) s
X15 r 48 c
X74 1741 p (#de\014ne) s
X12 r (NOIR) s
X14 r 48 c
X74 1824 p (#de\014ne) s
X12 r (RED) s
X14 r 49 c
X74 1908 p (#de\014ne) s
X12 r (ROUGE) s
X14 r 49 c
X74 1991 p (#de\014ne) s
X12 r (GREEN) s
X14 r 50 c
X74 2074 p (#de\014ne) s
X12 r (VERT) s
X15 r 50 c
X74 2157 p (#de\014ne) s
X12 r (BLUE) s
X14 r 50 c
X74 2240 p (#de\014ne) s
X12 r (BLEU) s
X14 r 50 c
X0 2323 p (in) s
X12 r (order) s
X14 r (to) s
X15 r (indicate) s
X13 r (named) s
X13 r (colours) s
X14 r (instead) s
X13 r (of) s
X14 r (coded) s
X13 r (values.) s
Xncs-bol.360 @sf
X-43 2406 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 2489 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 2572 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2655 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2738 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X7 @bop0
X7 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 55 c
Xncs-rom.750 @sf
X468 312 p (PEN) s
X30 r (MOVEMENTS) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLOT2) s
X3 r 15 2 ru
X16 r (PS) s
X15 r 123 c
X13 r (Jeu) s
X14 r (de) s
X13 r (fonctions) s
X13 r (de) s
X14 r (mouvements) s
X14 r (de) s
X14 r (plume) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 732 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (puser\(\)) s
X389 981 p (pcms\(\)) s
X389 1106 p (pmover\(x,y\)) s
X389 1168 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 1293 p (pmovea\(x,y\)) s
X389 1355 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 1480 p (pdrawr\(x,y\)) s
X389 1542 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 1666 p (pdrawa\(x,y\)) s
X389 1729 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 1853 p (phome\(\)) s
Xncs-rom.360 @sf
X74 1990 p (les) s
X14 r (fonctions) s
X13 r (suivantes) s
X13 r (ne) s
X13 r (devraient) s
X14 r (jamais) s
X13 r (etre) s
X15 r (appelees.) s
Xc-med.360 @sf
X389 2126 p (pmover\(x,y\)) s
X389 2188 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 2313 p (pmovea\(x,y\)) s
X389 2375 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 2500 p (plinsa\(x,y\)) s
X389 2562 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 2687 p (plinba\(x,y\)) s
X389 2749 p (float) s
X30 r (x,) s
X30 r (y;) s
X389 2873 p (plinsr\(x,y\)) s
X389 2936 p (float) s
X30 r (x,) s
X30 r (y;) s
X@eop
X8 @bop0
X/cmmi10.360 @newfont
Xcmmi10.360 @sf
X[<E0000000780000001E0000000780000001E0000000780000001F00000007C0000000F00000003C0000000F00000003C00000
X  00F00000003C0000003C000000F0000003C000000F0000003C000000F0000007C000001F00000078000001E0000007800000
X  1E00000078000000E0000000> 30 28 -4 2 39] 62 @dc
X8 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 56 c
Xc-med.360 @sf
X389 339 p (plinbr\(x,y\)) s
X389 402 p (float) s
X30 r (x,) s
X30 r (y;) s
Xncs-bol.360 @sf
X-43 539 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 622 p (PUSER) s
X12 r (permet) s
X13 r (de) s
X12 r (passer) s
X11 r (en) s
X12 r (mode) s
X12 r (espace) s
X12 r (sujet,) s
X12 r (tous) s
X12 r (les) s
X11 r (ordres) s
X13 r (de) s
X11 r (mouvement) s
X12 r (de) s
X0 684 p (plume) s
X11 r (seront) s
X13 r (consideres) s
X12 r (comme) s
X13 r (ayant) s
X12 r (des) s
X12 r (coordonnees) s
X12 r 120 c
X12 r (et) s
X13 r 121 c
X13 r (en) s
X12 r (unites) s
X11 r (sujet) s
X13 r (\(pas) s
X11 r (en) s
X0 746 p (cms!\).) s
X74 829 p (PCMS) s
X13 r (permet) s
X12 r (de) s
X12 r (passer) s
X11 r (en) s
X12 r (mode) s
X11 r (espace) s
X12 r (papier) s
X-3 r 44 c
X10 r (tous) s
X12 r (les) s
X12 r (ordres) s
X12 r (de) s
X11 r (mouvement) s
X12 r (de) s
X0 892 p (plume) s
X12 r (seront) s
X15 r (consideres) s
X13 r (comme) s
X15 r (ayant) s
X14 r (des) s
X13 r (coordonnees) s
X14 r 120 c
X13 r (et) s
X15 r 121 c
X13 r (en) s
X14 r (cms) s
X15 r (sur) s
X13 r (le) s
X14 r (papier) s
X-3 r 46 c
X74 975 p (Les) s
X10 r (functions) s
X8 r (suivantes) s
X8 r (permetehugeent) s
X9 r (de) s
X9 r (dessiner) s
X9 r (dans) s
X8 r (l'espace) s
X9 r (courant:) s
X16 r (pmove) s
X0 1037 p (deplace) s
X13 r (sans) s
X13 r (dessiner) s
X-3 r 44 c
X14 r (draw) s
X13 r (deplace) s
X14 r (en) s
X14 r (dessinant,) s
X13 r (et) s
X15 r (les) s
X14 r (coordonnees) s
X14 r (sont) s
X14 r (prises) s
X14 r (en) s
X0 1099 p (absolu) s
X12 r (\(suf\014xe) s
X12 r (a\)) s
X14 r (ou) s
X13 r (relative) s
X14 r (\(suf\014xe) s
X12 r (r\).) s
X74 1182 p (PMOVEA) s
X14 r (se) s
X14 r (deplace) s
X14 r (au) s
X13 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (absolu) s
X74 1265 p (PMOVER) s
X14 r (se) s
X14 r (deplace) s
X14 r (au) s
X13 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (relatif) s
X74 1348 p (PDRA) s
X-4 r 87 c
X-4 r 65 c
X13 r (trace) s
X15 r (un) s
X13 r (trait) s
X14 r (jusqu'au) s
X12 r (point) s
X14 r (x,y) s
X13 r (en) s
X14 r (absolu) s
X74 1431 p (PDRA) s
X-4 r (WR) s
X14 r (trace) s
X14 r (un) s
X13 r (trait) s
X15 r (jusqu'au) s
X12 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (relatif) s
X74 1514 p (PHOME) s
X14 r (retourne) s
X14 r (au) s
X13 r (point) s
X13 r (absolu) s
X13 r (0,0) s
X74 1597 p (Les) s
X10 r (fonctions) s
X8 r (suivantes) s
X9 r (ne) s
X8 r (devraient) s
X9 r (jamais) s
X9 r (etre) s
X10 r (appelees:) s
X15 r (Elles) s
X9 r (permettent) s
X11 r (eventuelle-) s
X0 1659 p (ment) s
X13 r (de) s
X14 r (faire) s
X13 r (un) s
X13 r (deplacement) s
X14 r (dans) s
X13 r (un) s
X13 r (autre) s
X14 r (espace) s
X14 r (que) s
X13 r (l'espace) s
X13 r (courant.) s
X74 1742 p (Routines) s
X13 r (de) s
X14 r (mouvement) s
X14 r (de) s
X14 r (la) s
X13 r (plume) s
X74 1909 p 98 c
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X14 r (espace) s
X14 r (papier) s
X13 r (\(en) s
X13 r (cm\)) s
X74 1992 p 115 c
X14 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X13 r (espace) s
X14 r (utilisateur) s
X13 r (c-a-d) s
X13 r (sujet) s
X14 r (\(a) s
X13 r (l'echelle\)) s
X74 2075 p 97 c
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X14 r (mouvement) s
X14 r (en) s
X13 r (absolu) s
X74 2158 p 114 c
X14 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X13 r (mouvement) s
X14 r (en) s
X14 r (relatif) s
X74 2241 p (xxxxba) s
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X13 r (espace) s
X14 r (papier) s
X13 r (en) s
X13 r (absolu) s
X74 2324 p (xxxxsa) s
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X13 r (espace) s
X14 r (utilisateur) s
X13 r (en) s
X14 r (absolu) s
X74 2407 p (xxxxbr) s
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X13 r (espace) s
X14 r (benson) s
X13 r (en) s
X14 r (relatif) s
X74 2490 p (xxxxsr) s
X13 r 45 c
Xcmmi10.360 @sf
X62 c
Xncs-rom.360 @sf
X14 r (espace) s
X13 r (utilisateur) s
X14 r (en) s
X13 r (relatif) s
X74 2573 p 80 c
X14 r (pour) s
X13 r (plume) s
X74 2656 p (MOV) s
X14 r (pour) s
X13 r (deplacement) s
X14 r (plume) s
X13 r (haute) s
X13 r (\(sans) s
X13 r (trace\)) s
X74 2739 p (LIN) s
X14 r (pour) s
X13 r (deplacement) s
X14 r (plume) s
X13 r (basse) s
X14 r (\(trace) s
X14 r (de) s
X14 r (trait\)) s
X74 2842 p (pmovsa\(x,y\)) s
X13 r (se) s
X14 r (deplace) s
X13 r (au) s
X13 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (absolu) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (sujet) s
X74 2926 p (pmovba\(x,y\)) s
X12 r (se) s
X14 r (deplace) s
X13 r (au) s
X14 r (point) s
X13 r (x,y) s
X13 r (en) s
X14 r (absolu) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (papier) s
X@eop
X9 @bop0
X9 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1712 r 57 c
X74 277 p (pmovsr\(x,y\)) s
X13 r (se) s
X14 r (deplace) s
X13 r (au) s
X13 r (point) s
X14 r (x,y) s
X13 r (en) s
X14 r (relatif) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (sujet) s
X74 360 p (pmovbr\(x,y\)) s
X13 r (se) s
X14 r (deplace) s
X13 r (au) s
X13 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (relatif) s
X14 r (dans) s
X13 r (l'espace) s
X13 r (papier) s
X74 443 p (plinsa\(x,y\)) s
X11 r (trace) s
X15 r (jusqu'au) s
X12 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (absolu) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (sujet) s
X74 526 p (plinba\(x,y) s
X-1 r 41 c
X12 r (trace) s
X14 r (jusqu'au) s
X13 r (point) s
X13 r (x,y) s
X14 r (en) s
X13 r (absolu) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (papier) s
X74 609 p (plinsr\(x,y\)) s
X12 r (trace) s
X14 r (jusqu'au) s
X13 r (point) s
X13 r (x,y) s
X13 r (en) s
X14 r (relatif) s
X13 r (dans) s
X13 r (l'espace) s
X14 r (sujet) s
X74 692 p (plinbr\(x,y\)) s
X11 r (trace) s
X15 r (jusqu'au) s
X12 r (point) s
X14 r (x,y) s
X13 r (en) s
X13 r (relatif) s
X14 r (dans) s
X13 r (l'espace) s
X14 r (papier) s
Xncs-bol.360 @sf
X-43 775 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 858 p (Dr) s
X14 r (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r 86 c
X-1 r (ibert) s
X74 941 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1024 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1107 p (plot0) s
X3 r 15 2 ru
X14 r (ps,) s
X14 r (iniplot) s
X3 r 15 2 ru
X14 r (ps,) s
X14 r (endplot) s
X3 r 15 2 ru
X14 r (ps,) s
X14 r (newpage) s
X3 r 15 2 ru
X13 r (ps) s
X@eop
X10 @bop0
X10 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (10) s
Xncs-rom.750 @sf
X774 312 p (PCARA) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PCARA) s
X15 r 123 c
X13 r 87 c
X-2 r (rites) s
X14 r 97 c
X14 r (string) s
X14 r (in) s
X13 r (postscript) s
X15 r (space,) s
X13 r (stays) s
X14 r (at) s
X15 r (the) s
X14 r (end) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (pcara\(x,y,j,str,hy,rot\);) s
X389 920 p (float) s
X30 r (x,) s
X30 r (y;) s
X60 r 120 c
X30 r (and) s
X30 r 121 c
X30 r (coordinates) s
X899 982 p (given) s
X30 r (in) s
X30 r (PostScript) s
X30 r (units) s
X30 r (\(cm\)) s
X389 1044 p (int) s
X30 r (j;) s
X60 r (the) s
X30 r (Benson) s
X30 r 106 c
X30 r (parameter) s
X389 1106 p (char) s
X30 r (*str;) s
X60 r (the) s
X30 r (string) s
X30 r (to) s
X30 r (write) s
X389 1169 p (float) s
X30 r (hy,) s
X60 r (character) s
X60 r (height) s
X30 r (\(hy\)) s
X779 1231 p (\(in) s
X30 r (cm\)) s
X389 1293 p (rot;) s
X60 r (rotation) s
X30 r (in) s
X30 r (degres) s
Xncs-bol.360 @sf
X-43 1430 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1513 p (PCARA) s
X17 r (writes) s
X17 r 97 c
X17 r (string) s
X17 r (at) s
X17 r (the) s
X16 r (position) s
X16 r (indicated) s
X16 r (by) s
X16 r (x,y) s
X17 r (and) s
X16 r (j,) s
X17 r (with) s
X16 r (the) s
X17 r (rotation) s
X0 1575 p (given) s
X12 r (by) s
X14 r (cosa) s
X14 r (and) s
X12 r (sina,) s
X14 r (and) s
X12 r (stays) s
X15 r (at) s
X14 r (the) s
X14 r (end) s
X13 r (of) s
X14 r (the) s
X13 r (string.) s
X74 1658 p (PCARA) s
X14 r (replicates) s
X14 r (the) s
X14 r (Benson) s
X13 r (pcara) s
X14 r (fortran) s
X14 r (routine.) s
X74 1741 p 88 c
X16 r (and) s
X15 r 89 c
X16 r (are) s
X16 r (the) s
X16 r (coordinates) s
X15 r (of) s
X16 r (the) s
X16 r (target) s
X16 r (given) s
X15 r (in) s
X15 r (PostScript) s
X18 r (units) s
X15 r (\(in) s
X15 r (centime-) s
X0 1804 p (ters\).) s
X74 1887 p (These) s
X15 r (coordinates) s
X15 r (are) s
X16 r (considered) s
X14 r (as) s
X15 r (absolute) s
X15 r (\(j=0) s
X15 r (or) s
X16 r (j=1\)) s
X14 r (or) s
X16 r (relative) s
X15 r (\(j=2) s
X15 r (or) s
X15 r (j=3\)) s
X0 1949 p (according) s
X12 r (to) s
X15 r (the) s
X13 r (value) s
X13 r (of) s
X14 r (j.) s
X74 2032 p (During) s
X13 r (the) s
X15 r (move,) s
X15 r (the) s
X15 r (pen) s
X13 r (is) s
X15 r (up) s
X14 r (\(j=0) s
X14 r (or) s
X15 r (j=2\)) s
X14 r (or) s
X15 r (down) s
X14 r (\(j=1) s
X14 r (or) s
X15 r (j=3\)) s
X14 r (according) s
X14 r (to) s
X15 r (the) s
X0 2094 p (value) s
X12 r (of) s
X13 r (j.) s
X74 2177 p (The) s
X14 r (following) s
X12 r (constants) s
X14 r (are) s
X14 r (de\014ned) s
X12 r (in) s
X13 r (PLOT) s
X3 r 15 2 ru
X16 r (PS.H:) s
X74 2260 p (Code) s
X13 r (des) s
X14 r (deplacements) s
X14 r (de) s
X13 r (la) s
X14 r (plume) s
X74 2426 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AH) s
X14 r 48 c
X13 r (Absolu) s
X14 r (Plume) s
X14 r (Haute) s
X74 2509 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AB) s
X14 r 49 c
X14 r (Abslou) s
X13 r (Plume) s
X14 r (Basse) s
X74 2592 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RH) s
X14 r 50 c
X13 r (Relatif) s
X14 r (Plume) s
X14 r (Haute) s
X74 2675 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RB) s
X14 r 51 c
X14 r (Relatif) s
X13 r (Plume) s
X14 r (Basse) s
X74 2779 p (The) s
X12 r (size) s
X12 r (of) s
X11 r (characters) s
X13 r (is) s
X12 r (given) s
X11 r (in) s
X11 r (centimeters) s
X14 r (by) s
X11 r (hx) s
X12 r (\(width\)) s
X10 r (and) s
X11 r (hy) s
X12 r (\(height\)) s
X10 r (of) s
X12 r (the) s
X0 2841 p (characters.) s
Xncs-bol.360 @sf
X-43 2925 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X@eop
X11 @bop0
X11 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1687 r 49 c
X-2 r 49 c
X74 277 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 360 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 443 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X@eop
X12 @bop0
X12 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (12) s
Xncs-rom.750 @sf
X779 312 p (PCARS) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PCARS) s
X15 r 123 c
X14 r 87 c
X-2 r (rites) s
X14 r 97 c
X13 r (string) s
X14 r (in) s
X13 r (user) s
X14 r (space,) s
X14 r (stays) s
X14 r (at) s
X14 r (the) s
X14 r (end) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 718 p (#include) s
X30 r (<plot_ps.h>) s
X389 842 p (pcars\(x,y,j,str,hy,rot\);) s
X389 904 p (float) s
X30 r (x,) s
X30 r (y;) s
X60 r 120 c
X30 r (and) s
X30 r 121 c
X30 r (coordinates) s
X779 967 p (given) s
X30 r (in) s
X30 r (user) s
X30 r (units) s
X30 r (\(not) s
X30 r (in) s
X30 r (cm\)) s
X389 1029 p (int) s
X30 r (j;) s
X60 r (the) s
X30 r (Benson) s
X30 r 106 c
X30 r (parameter) s
X389 1091 p (char) s
X30 r (*str;) s
X60 r (the) s
X30 r (string) s
X30 r (to) s
X30 r (write) s
X389 1153 p (float) s
X30 r (hy,) s
X60 r (character) s
X30 r (height) s
X30 r (\(hy\)) s
X779 1216 p (\(in) s
X30 r (cm\)) s
X389 1278 p (rot;) s
X60 r (rotation) s
Xncs-bol.360 @sf
X-43 1400 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1483 p (PCARS) s
X18 r (writes) s
X17 r 97 c
X17 r (string) s
X17 r (at) s
X18 r (the) s
X17 r (position) s
X16 r (indicated) s
X16 r (by) s
X17 r (x,y) s
X16 r (and) s
X17 r (j,) s
X17 r (with) s
X17 r (the) s
X17 r (rotation) s
X0 1545 p (given) s
X12 r (in) s
X13 r (degre,) s
X14 r (and) s
X13 r (stays) s
X14 r (at) s
X14 r (the) s
X14 r (end) s
X13 r (of) s
X14 r (the) s
X14 r (string.) s
X74 1628 p (PCARS) s
X15 r (almost) s
X14 r (replicates) s
X14 r (the) s
X14 r (Benson) s
X13 r (pcars) s
X14 r (fortran) s
X14 r (routine.) s
X74 1711 p 88 c
X10 r (and) s
X8 r 89 c
X10 r (are) s
X10 r (the) s
X10 r (coordinates) s
X9 r (of) s
X9 r (the) s
X10 r (target) s
X11 r (given) s
X8 r (in) s
X9 r (user) s
X10 r (units) s
X9 r (\(NOT) s
X9 r (in) s
X9 r (centimeters\).) s
X74 1794 p (These) s
X15 r (coordinates) s
X15 r (are) s
X16 r (considered) s
X14 r (as) s
X15 r (absolute) s
X15 r (\(j=0) s
X15 r (or) s
X16 r (j=1\)) s
X14 r (or) s
X16 r (relative) s
X15 r (\(j=2) s
X15 r (or) s
X15 r (j=3\)) s
X0 1856 p (according) s
X12 r (to) s
X15 r (the) s
X13 r (value) s
X13 r (of) s
X14 r (j.) s
X74 1939 p (During) s
X13 r (the) s
X15 r (move,) s
X15 r (the) s
X15 r (pen) s
X13 r (is) s
X15 r (up) s
X14 r (\(j=0) s
X14 r (or) s
X15 r (j=2\)) s
X14 r (or) s
X15 r (down) s
X14 r (\(j=1) s
X14 r (or) s
X15 r (j=3\)) s
X14 r (according) s
X14 r (to) s
X15 r (the) s
X0 2002 p (value) s
X12 r (of) s
X13 r (j.) s
X74 2085 p (The) s
X14 r (following) s
X12 r (constants) s
X14 r (are) s
X14 r (de\014ned) s
X12 r (in) s
X13 r (PLOT) s
X-4 r (.H:) s
X74 2168 p (Code) s
X13 r (des) s
X14 r (deplacements) s
X14 r (de) s
X13 r (la) s
X14 r (plume) s
X74 2334 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AH) s
X14 r 48 c
X13 r (Absolu) s
X14 r (Plume) s
X14 r (Haute) s
X74 2417 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AB) s
X14 r 49 c
X14 r (Abslou) s
X13 r (Plume) s
X14 r (Basse) s
X74 2500 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RH) s
X14 r 50 c
X13 r (Relatif) s
X14 r (Plume) s
X14 r (Haute) s
X74 2583 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RB) s
X14 r 51 c
X14 r (Relatif) s
X13 r (Plume) s
X14 r (Basse) s
X74 2687 p (The) s
X14 r (size) s
X13 r (of) s
X14 r (characters) s
X14 r (is) s
X14 r (given) s
X13 r (in) s
X13 r (centimeters) s
X15 r (by) s
X14 r (hy) s
X13 r (\(height\)) s
X13 r (of) s
X13 r (the) s
X14 r (characters.) s
Xncs-bol.360 @sf
X-43 2770 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 2853 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 2936 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
X@eop
X13 @bop0
X13 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (13) s
Xncs-bol.360 @sf
X-43 277 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X@eop
X14 @bop0
X14 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (14) s
Xncs-rom.750 @sf
X753 312 p (POLICE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (POLICE) s
X15 r 123 c
X14 r (Allows) s
X13 r (to) s
X15 r (change) s
X13 r (the) s
X13 r (PotScript) s
X16 r (font) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (police\(font,hy\);) s
X389 920 p (char) s
X30 r (*font;) s
X30 r (/*) s
X30 r (font) s
X30 r (name) s
X30 r (*/) s
X389 982 p (float) s
X30 r (hy;) s
X30 r (/*) s
X30 r (Rotation) s
X30 r (in) s
X30 r (degres) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1181 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1264 p (POLICE) s
X17 r (allows) s
X16 r (to) s
X17 r (choose) s
X16 r 97 c
X16 r (new) s
X16 r (font) s
X16 r (as) s
X16 r (the) s
X16 r (current) s
X17 r (font.) s
X25 r (The) s
X16 r (\014rst) s
X17 r (argument) s
X16 r (is) s
X0 1326 p (the) s
X13 r (PostScript) s
X16 r (build) s
X12 r (in) s
X13 r (font) s
X14 r (name.) s
X18 r (The) s
X14 r (size) s
X14 r (of) s
X13 r (the) s
X14 r (font) s
X14 r (is) s
X14 r (given) s
X13 r (in) s
X13 r (centimer) s
X14 r (by) s
X14 r (hy) s
X-5 r 46 c
X17 r (It) s
X0 1389 p (can) s
X13 r (be) s
X13 r (changed) s
X13 r (alone) s
X13 r (by) s
X13 r (plsize\(\).) s
Xncs-bol.360 @sf
X-43 1472 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1555 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X74 1638 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1721 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1804 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X15 @bop0
X15 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (15) s
Xncs-rom.750 @sf
X766 312 p (PLSIZE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLSIZE) s
X15 r 123 c
X14 r (De\014ne) s
X13 r (size) s
X14 r (\(in) s
X12 r (cm\)) s
X15 r (of) s
X13 r (characters) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X0 733 p (#include) s
X29 r (<plot_ps.h>) s
X389 857 p (plsize\(hy\);) s
X389 920 p (float) s
X30 r (hy;) s
X30 r (/*) s
X30 r (Size) s
X30 r (of) s
X30 r (height) s
X779 982 p (of) s
X30 r (characters) s
X30 r (given) s
X779 1044 p (in) s
X30 r (centimeters) s
X60 r (*/) s
Xncs-bol.360 @sf
X-43 1181 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1264 p (PLSIZE) s
X16 r (de\014nes) s
X14 r (the) s
X15 r (size) s
X15 r (of) s
X15 r (characters,) s
X16 r (given) s
X14 r (in) s
X14 r (centimeters,) s
X16 r (and) s
X15 r (acts) s
X15 r (on) s
X15 r (he) s
X14 r (cur-) s
X0 1326 p (rent) s
X13 r (font) s
X14 r (choosen) s
X13 r (by) s
X14 r (police\(\).) s
Xncs-bol.360 @sf
X-43 1409 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1492 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X74 1575 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1658 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1741 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X16 @bop0
X16 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (16) s
Xncs-rom.750 @sf
X688 312 p (SET) s
X6 r 32 2 ru
X31 r (GRA) s
X-9 r 89 c
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (SET) s
X3 r 15 2 ru
X16 r (GRA) s
X-4 r 89 c
X14 r 123 c
X13 r (De\014ne) s
X13 r 97 c
X14 r (new) s
X13 r (default) s
X13 r (gray) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (set_gray\(gray\);) s
X389 920 p (float) s
X30 r (gray;) s
X30 r (/*) s
X30 r (gray) s
X30 r (for) s
X30 r (the) s
X30 r (subsequent) s
X30 r (drawings) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1119 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1202 p (SET) s
X3 r 15 2 ru
X16 r (GRA) s
X-4 r 89 c
X13 r (de\014nes) s
X13 r 97 c
X13 r (new) s
X13 r (gray) s
X14 r (value) s
X12 r (for) s
X14 r (the) s
X14 r (subsequent) s
X12 r (drawings.) s
X18 r (It) s
X14 r (on) s
X13 r (the) s
X14 r (line) s
X0 1264 p (color) s
X-3 r 46 c
Xncs-bol.360 @sf
X-43 1347 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1430 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X74 1513 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1596 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1679 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X17 @bop0
X17 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (17) s
Xncs-rom.750 @sf
X613 312 p (LINE) s
X6 r 32 2 ru
X33 r (WIDTH) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (LINE) s
X3 r 15 2 ru
X16 r (WIDTH) s
X14 r 123 c
X14 r (De\014nes) s
X13 r 97 c
X13 r (new) s
X14 r (line) s
X13 r (width) s
X13 r (for) s
X14 r (the) s
X13 r (linesp) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (line_width\(width\);) s
X389 920 p (int) s
X30 r (width;) s
X30 r (/*) s
X30 r (PostScript) s
X30 r (width) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1119 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1202 p (LINE) s
X3 r 15 2 ru
X15 r (WIDTH) s
X18 r (de\014nes) s
X16 r 97 c
X17 r (new) s
X17 r (line) s
X17 r (width) s
X16 r (for) s
X17 r (the) s
X18 r (lines) s
X16 r (subsequently) s
X16 r (drawn.) s
X28 r (The) s
X0 1264 p (width) s
X12 r (is) s
X14 r (given) s
X13 r (in) s
X13 r (PostScript) s
X16 r (units) s
X13 r (\(picas\).) s
Xncs-bol.360 @sf
X-43 1347 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1430 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X74 1513 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1596 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1679 p (PLOT1) s
X14 r (et) s
X15 r (PLOT2) s
X@eop
X18 @bop0
X18 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (18) s
Xncs-rom.750 @sf
X526 312 p (CLOSED) s
X6 r 32 2 ru
X32 r (CUR) s
X-3 r (VE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (CLOSED) s
X3 r 15 2 ru
X16 r (CUR) s
X-1 r (VE) s
X13 r 123 c
X14 r (Draws) s
X14 r 97 c
X13 r (possibly) s
X13 r (\014lled) s
X13 r (surface) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (closed_curve\(x,y,nb_pts,contour,fill,gray\)) s
X389 920 p (float) s
X60 r (x[],) s
X120 r (/*) s
X30 r (array) s
X30 r (with) s
X30 r 120 c
X30 r (coordinates) s
X30 r (*/) s
X599 982 p (x[];) s
X120 r (/*) s
X30 r (array) s
X30 r (with) s
X30 r 121 c
X30 r (coordinates) s
X30 r (*/) s
X389 1044 p (int) s
X120 r (nb_pts,) s
X30 r (/*) s
X30 r (nb) s
X30 r (of) s
X30 r (values) s
X30 r (in) s
X30 r 120 c
X30 r (\(and) s
X30 r (y\)) s
X30 r (*/) s
X599 1106 p (contour,/*) s
X30 r 116 c
X30 r (or) s
X30 r 102 c
X30 r (line) s
X30 r (around) s
X30 r (or) s
X30 r (not) s
X30 r (*/) s
X599 1169 p (fill;) s
X90 r (/*) s
X30 r 116 c
X30 r (or) s
X30 r 102 c
X30 r (filled) s
X30 r (or) s
X30 r (not) s
X30 r (*/) s
X389 1231 p (float) s
X60 r (gray;) s
X90 r (/*) s
X30 r (gray) s
X30 r (filling) s
X30 r (color) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1430 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1513 p (CLOSED) s
X3 r 15 2 ru
X16 r (CUR) s
X-1 r (VE) s
X15 r (draws) s
X17 r (polygonal) s
X14 r (surface) s
X17 r (whose) s
X16 r (coordinates) s
X16 r (are) s
X16 r (in) s
X16 r 50 c
X17 r (arrays) s
X16 r 120 c
X0 1575 p (and) s
X13 r 121 c
X-5 r 44 c
X13 r (beginning) s
X12 r (and) s
X14 r (ending) s
X13 r (at) s
X14 r (the) s
X15 r (current) s
X14 r (position.) s
X19 r (it) s
X15 r (is) s
X14 r (possible) s
X14 r (to) s
X15 r (decide) s
X14 r (to) s
X14 r (draw) s
X0 1638 p 97 c
X13 r (contour) s
X14 r (around) s
X13 r (the) s
X14 r (surface.) s
X18 r (this) s
X14 r (surface) s
X14 r (can) s
X13 r (be) s
X14 r (\014lled) s
X13 r (in) s
X13 r (gray) s
X-5 r 44 c
X13 r (whose) s
X14 r (color) s
X14 r (is) s
X14 r (given) s
X0 1700 p (by) s
X13 r (grey) s
X-5 r 46 c
Xncs-bol.360 @sf
X-43 1783 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1866 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X74 1949 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2032 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2115 p (PLOT2) s
X@eop
X19 @bop0
X19 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (19) s
Xncs-rom.750 @sf
X593 312 p (PL) s
X6 r 32 2 ru
X33 r (NEWP) s
X-7 r (AGE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PL) s
X3 r 15 2 ru
X16 r (NEWP) s
X-3 r (AGE) s
X13 r 123 c
X14 r (Go) s
X14 r (to) s
X14 r (the) s
X14 r (next) s
X14 r (page) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (pl_newpage\(\)) s
Xncs-bol.360 @sf
X-43 994 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1077 p (PL) s
X3 r 15 2 ru
X15 r (NEWP) s
X-3 r (AGE) s
X13 r (outputs) s
X13 r (the) s
X14 r (current) s
X13 r (page,) s
X13 r (begins) s
X12 r (the) s
X13 r (next) s
X13 r (page) s
X13 r (by) s
X13 r (redrawing) s
X12 r (the) s
X0 1140 p (banner) s
X12 r (and) s
X13 r (the) s
X14 r (number) s
X13 r (of) s
X14 r (the) s
X14 r (page) s
Xncs-bol.360 @sf
X-43 1223 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1306 p (Dr) s
X14 r (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r 86 c
X-1 r (ibert) s
X74 1389 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1472 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X@eop
X20 @bop0
X20 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (20) s
Xncs-rom.750 @sf
X654 312 p (PL) s
X6 r 32 2 ru
X32 r (ROT) s
X-5 r 65 c
X-5 r (TE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PL) s
X3 r 15 2 ru
X16 r (ROT) s
X-2 r 65 c
X-2 r (TE) s
X13 r 123 c
X14 r (Allows) s
X13 r 97 c
X14 r (rotation) s
X14 r (in) s
X13 r (degres) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (pl_rotate\(rot\);) s
X389 920 p (float) s
X30 r (rot;) s
X30 r (/*) s
X30 r (Rotation) s
X30 r (in) s
X30 r (degres) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1119 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1202 p (PL) s
X3 r 15 2 ru
X15 r (ROT) s
X-2 r 65 c
X-2 r (TE) s
X14 r (Allows) s
X13 r 97 c
X14 r (rotation) s
X14 r (in) s
X13 r (degres) s
X14 r (of) s
X14 r (the) s
X14 r (previous) s
X13 r (graph.) s
Xncs-bol.360 @sf
X-43 1285 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1368 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X74 1451 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1534 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X@eop
X21 @bop0
X21 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (21) s
Xncs-rom.750 @sf
X753 312 p (PLOT0S) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLOT0S) s
X15 r 123 c
X14 r (Niveau) s
X13 r 48 c
X13 r (des) s
X14 r (routines) s
X13 r (PostScript) s
X16 r (pour) s
X13 r 67 c
Xncs-bol.360 @sf
X-43 596 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 679 p (Routines) s
X13 r (de) s
X14 r (dessin) s
X13 r (sur) s
X14 r (la) s
X13 r (Laser) s
X15 r (PostScript) s
X15 r (en) s
X14 r (mode) s
X14 r (symbolique.) s
X74 762 p (NIVEAU) s
X14 r 48 c
X14 r 58 c
X18 r (Ce) s
X14 r (jeu) s
X13 r (de) s
X14 r (routine) s
X13 r (regroupe) s
X14 r (les) s
X13 r (routines) s
X14 r (les) s
X14 r (plus) s
X74 845 p (elementaires) s
X9 r (qui) s
X8 r (controlent) s
X10 r (directement) s
X10 r (la) s
X9 r (laser) s
X9 r (sans) s
X9 r (pratiquement) s
X9 r (d'aide) s
X8 r 97 c
X9 r (l'utilisateur) s
X-3 r 46 c
X74 928 p 65 c
X-2 r (TTENTION) s
X14 r 58 c
X14 r 84 c
X-4 r (oute) s
X13 r (les) s
X14 r (variables) s
X13 r (de) s
X14 r (travail) s
X13 r (des) s
X14 r (modules) s
X13 r (commencent) s
X74 1011 p (par) s
X13 r ('pl) s
X3 r 15 2 ru
X15 r 39 c
X14 r 84 c
X-4 r (ous) s
X13 r (les) s
X14 r (sous) s
X14 r (programmes) s
X15 r (de) s
X13 r (travail) s
X14 r (commencent) s
X15 r (par) s
X13 r ('p) s
X3 r 15 2 ru
X15 r 39 c
Xncs-bol.360 @sf
X-43 1094 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1177 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 1260 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1343 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1426 p (PLOT2) s
X3 r 15 2 ru
X16 r (PS) s
X@eop
X22 @bop0
X22 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (22) s
Xncs-bol.360 @sf
X-43 277 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (ROUTINES) s
X3 r 15 2 ru
X16 r (INTERNES) s
X15 r (ROUTINES) s
X14 r (INTERNES) s
X15 r (DE) s
X14 r (TRA) s
X-5 r 86 c
X-5 r (AIL:) s
Xncs-bol.360 @sf
X-43 360 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 443 p (Routines) s
X13 r (internes) s
X14 r (de) s
X13 r (travail) s
X14 r (pour) s
X13 r (creer) s
X15 r (le) s
X13 r (\014chier) s
X13 r (de) s
X14 r (dessin) s
X13 r (pour) s
X14 r (la) s
X13 r (PostScript.) s
X74 526 p (NIVEAU) s
X18 r 48 c
X18 r 58 c
X27 r (Ce) s
X18 r (jeu) s
X17 r (de) s
X18 r (routine) s
X17 r (regroupe) s
X18 r (les) s
X18 r (routines) s
X18 r (les) s
X18 r (plus) s
X17 r (elementaires) s
X18 r (qui) s
X0 588 p (controlent) s
X13 r (directement) s
X15 r (le) s
X13 r (traceur) s
X15 r (sans) s
X13 r (pratiquement) s
X14 r (d'aide) s
X13 r 97 c
X14 r (l'utilisateur) s
X-3 r 46 c
X74 672 p 65 c
X-2 r (TTENTION) s
X14 r 58 c
X14 r 84 c
X-4 r (oute) s
X13 r (les) s
X14 r (variables) s
X13 r (de) s
X14 r (travail) s
X13 r (des) s
X14 r (modules) s
X13 r (commencent) s
X74 755 p (par) s
X13 r ('pl) s
X3 r 15 2 ru
X15 r 39 c
X14 r 84 c
X-4 r (ous) s
X13 r (les) s
X14 r (sous) s
X14 r (programmes) s
X15 r (de) s
X13 r (travail) s
X14 r (commencent) s
X15 r (par) s
X13 r ('p) s
X3 r 15 2 ru
X15 r 39 c
X74 838 p 80 c
X3 r 15 2 ru
X15 r (DEPL) s
X16 r (Envoi) s
X14 r (un) s
X15 r (groupe) s
X14 r (de) s
X15 r 50 c
X15 r (valeurs) s
X14 r (x,y) s
X15 r (au) s
X14 r (format) s
X16 r (PostScript) s
X17 r (avec) s
X15 r (gestion) s
X15 r (du) s
X0 900 p (deplacement) s
X13 r (et) s
X14 r (de) s
X13 r (la) s
X14 r (plume) s
X74 983 p 80 c
X3 r 15 2 ru
X15 r (PUTS) s
X16 r (Envoi) s
X13 r (une) s
X14 r (chaine) s
X13 r (de) s
X14 r (caracteres) s
X16 r (avec) s
X14 r (le) s
X14 r (dernier) s
X14 r (format) s
X15 r (\(hx,hy) s
X-5 r (,cosa,sina) s
X-1 r 41 c
X0 1045 p (utilise) s
X74 1128 p (PLOT) s
X15 r (Deplace) s
X13 r (la) s
X13 r (plume) s
X14 r (au) s
X13 r (point) s
X13 r (indique,) s
X12 r (actualise) s
X13 r (la) s
X14 r (position) s
X13 r (courante) s
Xncs-bol.360 @sf
X-43 1211 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1294 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 1377 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1460 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1543 p (PLOT2) s
X3 r 15 2 ru
X16 r (PS) s
X@eop
X23 @bop0
X23 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (23) s
Xncs-rom.750 @sf
X811 312 p (TRAA) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (TRAA) s
X15 r 123 c
X13 r (Moves) s
X14 r (the) s
X14 r (pen) s
X13 r (in) s
X14 r (PostScript) s
X15 r (space) s
X14 r (\(in) s
X13 r (cm\)) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (traa\(x,y,j\);) s
X389 920 p (float) s
X30 r (x,) s
X30 r (y;) s
X120 r 120 c
X30 r (and) s
X30 r 121 c
X30 r (coordinates) s
X839 982 p (given) s
X30 r (in) s
X30 r (cm) s
X389 1044 p (int) s
X30 r (j;) s
X30 r (the) s
X30 r (Benson) s
X30 r 106 c
X30 r (parameter) s
Xncs-bol.360 @sf
X-43 1181 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1264 p (TRAA) s
X14 r (replicates) s
X14 r (the) s
X14 r (Benson) s
X13 r (traa) s
X15 r (fortran) s
X13 r (routine.) s
X74 1347 p 88 c
X15 r (and) s
X15 r 89 c
X15 r (are) s
X16 r (the) s
X15 r (coordinates) s
X15 r (of) s
X15 r (the) s
X15 r (target) s
X16 r (given) s
X15 r (in) s
X14 r (PostScript) s
X17 r (space) s
X16 r (\(in) s
X14 r (centime-) s
X0 1409 p (ters\).) s
X74 1492 p (These) s
X15 r (coordinates) s
X15 r (are) s
X16 r (considered) s
X14 r (as) s
X15 r (absolute) s
X15 r (\(j=0) s
X15 r (or) s
X16 r (j=1\)) s
X14 r (or) s
X16 r (relative) s
X15 r (\(j=2) s
X15 r (or) s
X15 r (j=3\)) s
X0 1555 p (according) s
X12 r (to) s
X15 r (the) s
X13 r (value) s
X13 r (of) s
X14 r (j.) s
X74 1638 p (During) s
X13 r (the) s
X15 r (move,) s
X15 r (the) s
X15 r (pen) s
X13 r (is) s
X15 r (up) s
X14 r (\(j=0) s
X14 r (or) s
X15 r (j=2\)) s
X14 r (or) s
X15 r (down) s
X14 r (\(j=1) s
X14 r (or) s
X15 r (j=3\)) s
X14 r (according) s
X14 r (to) s
X15 r (the) s
X0 1700 p (value) s
X12 r (of) s
X13 r (j.) s
X74 1783 p (The) s
X14 r (following) s
X12 r (constants) s
X14 r (are) s
X14 r (de\014ned) s
X12 r (in) s
X13 r (PLOT) s
X3 r 15 2 ru
X16 r (PS.H:) s
X74 1866 p (Code) s
X13 r (des) s
X14 r (deplacements) s
X14 r (de) s
X13 r (la) s
X14 r (plume) s
X74 2032 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AH) s
X14 r 48 c
X13 r (Absolu) s
X14 r (Plume) s
X14 r (Haute) s
X74 2115 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AB) s
X14 r 49 c
X14 r (Absolu) s
X13 r (Plume) s
X14 r (Basse) s
X74 2198 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RH) s
X14 r 50 c
X13 r (Relatif) s
X14 r (Plume) s
X14 r (Haute) s
X74 2281 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RB) s
X14 r 51 c
X14 r (Relatif) s
X13 r (Plume) s
X14 r (Basse) s
X74 2385 p (Normally) s
X20 r (it) s
X21 r (is) s
X20 r (not) s
X21 r (necessary) s
X20 r (to) s
X21 r (call) s
X20 r (traa) s
X21 r (since) s
X20 r (puser) s
X-3 r 44 c
X21 r (pcms,) s
X23 r (pmover) s
X-3 r 44 c
X21 r (pmovwa,) s
X0 2447 p (pdrawr) s
X12 r (and) s
X13 r (pdrawa) s
X13 r (are) s
X14 r (also) s
X14 r (de\014ned) s
X12 r (and) s
X13 r (easier) s
X14 r (to) s
X14 r (use.) s
Xncs-bol.360 @sf
X-43 2530 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 2613 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 2696 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2779 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2862 p (PMOVBR) s
X14 r (and) s
X13 r (PMOVBA) s
X15 r (to) s
X14 r (move) s
X15 r (the) s
X13 r (pen) s
X14 r (PLINBR) s
X14 r (and) s
X13 r (PLINBA) s
X15 r (to) s
X15 r (draw) s
X13 r 97 c
X14 r (line) s
X@eop
X24 @bop0
X24 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (24) s
Xncs-rom.750 @sf
X816 312 p (TRAS) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (TRAS) s
X15 r 123 c
X14 r (Moves) s
X14 r (the) s
X14 r (pen) s
X13 r (in) s
X13 r (subject) s
X14 r (space) s
X14 r (\(not) s
X13 r (in) s
X13 r (cm\)) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (tras\(x,y,j\);) s
X389 920 p (float) s
X30 r (x,) s
X30 r (y;) s
X60 r 120 c
X30 r (and) s
X30 r 121 c
X30 r (coordinates) s
X779 982 p (given) s
X30 r (in) s
X30 r (subject) s
X30 r (units) s
X30 r 109 c
X389 1044 p (int) s
X30 r (j;) s
X90 r (the) s
X30 r (Benson) s
X30 r 106 c
X30 r (parameter) s
Xncs-bol.360 @sf
X-43 1181 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1264 p (TRAS) s
X15 r (replicates) s
X14 r (the) s
X14 r (Benson) s
X13 r (tras) s
X14 r (fortran) s
X14 r (routine.) s
X74 1347 p 88 c
X12 r (and) s
X12 r 89 c
X13 r (are) s
X12 r (the) s
X13 r (coordinates) s
X12 r (of) s
X12 r (the) s
X12 r (target) s
X14 r (given) s
X11 r (in) s
X12 r (subject) s
X12 r (units) s
X12 r (\(NOT) s
X12 r (in) s
X12 r (centime-) s
X0 1409 p (ters\).) s
X74 1492 p (These) s
X15 r (coordinates) s
X15 r (are) s
X16 r (considered) s
X14 r (as) s
X15 r (absolute) s
X15 r (\(j=0) s
X15 r (or) s
X16 r (j=1\)) s
X14 r (or) s
X16 r (relative) s
X15 r (\(j=2) s
X15 r (or) s
X15 r (j=3\)) s
X0 1555 p (according) s
X12 r (to) s
X15 r (the) s
X13 r (value) s
X13 r (of) s
X14 r (j.) s
X74 1638 p (During) s
X13 r (the) s
X15 r (move,) s
X15 r (the) s
X15 r (pen) s
X13 r (is) s
X15 r (up) s
X14 r (\(j=0) s
X14 r (or) s
X15 r (j=2\)) s
X14 r (or) s
X15 r (down) s
X14 r (\(j=1) s
X14 r (or) s
X15 r (j=3\)) s
X14 r (according) s
X14 r (to) s
X15 r (the) s
X0 1700 p (value) s
X12 r (of) s
X13 r (j.) s
X74 1783 p (The) s
X14 r (following) s
X12 r (constants) s
X14 r (are) s
X14 r (de\014ned) s
X12 r (in) s
X13 r (PLOT) s
X-4 r (.H:) s
X74 1866 p (Code) s
X13 r (des) s
X14 r (deplacements) s
X14 r (de) s
X13 r (la) s
X14 r (plume) s
X74 2032 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AH) s
X14 r 48 c
X13 r (Absolu) s
X14 r (Plume) s
X14 r (Haute) s
X74 2115 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (AB) s
X14 r 49 c
X14 r (Abslou) s
X13 r (Plume) s
X14 r (Basse) s
X74 2198 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RH) s
X14 r 50 c
X13 r (Relatif) s
X14 r (Plume) s
X14 r (Haute) s
X74 2281 p (#de\014ne) s
X12 r (PL) s
X3 r 15 2 ru
X16 r (RB) s
X14 r 51 c
X14 r (Relatif) s
X13 r (Plume) s
X14 r (Basse) s
X74 2385 p (Normally) s
X9 r (it) s
X11 r (is) s
X9 r (not) s
X10 r (necessary) s
X10 r (to) s
X11 r (call) s
X9 r (traa) s
X11 r (since) s
X9 r (puser) s
X-3 r 44 c
X10 r (pcms,) s
X11 r (pmovsr) s
X-3 r 44 c
X10 r (pmovsa,) s
X11 r (plinsr) s
X0 2447 p (and) s
X12 r (plinsa) s
X13 r (are) s
X13 r (also) s
X14 r (de\014ned) s
X12 r (and) s
X13 r (easier) s
X14 r (to) s
X15 r (use.) s
Xncs-bol.360 @sf
X-43 2530 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 2613 p (Jean-Noel) s
X12 r (Albert) s
X74 2696 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 2779 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 2862 p (PMOVSR) s
X15 r (and) s
X13 r (PMOVSA) s
X15 r (to) s
X14 r (move) s
X14 r (the) s
X14 r (pen) s
X13 r (PLINSR) s
X16 r (and) s
X13 r (PLINSA) s
X15 r (to) s
X14 r (draw) s
X14 r 97 c
X13 r (line) s
X@eop
X25 @bop0
X25 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (25) s
Xncs-rom.750 @sf
X734 312 p (PLOPEN) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLOPEN) s
X15 r 123 c
X13 r (Initialization) s
X13 r (of) s
X14 r (the) s
X14 r (PostScript) s
X15 r (\014le) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (plopen\(name\);) s
X389 920 p (char) s
X30 r (*name;) s
X60 r (/*) s
X30 r (File) s
X30 r (name) s
X30 r (of) s
X30 r (the) s
X30 r (PostScript) s
X30 r (file) s
X30 r (*/) s
Xncs-bol.360 @sf
X-43 1057 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1140 p (PLOPEN:) s
X14 r (Open) s
X13 r (the) s
X14 r (\014le) s
X14 r (in) s
X13 r (wich) s
X13 r (the) s
X14 r (plot) s
X14 r (will) s
X13 r (be) s
X13 r (send,) s
X14 r (and) s
X13 r (initialize) s
X12 r (the) s
X14 r (plotter) s
X-3 r 46 c
X74 1223 p (It) s
X11 r (must) s
X12 r (be) s
X11 r (called) s
X10 r (once) s
X10 r (at) s
X12 r (the) s
X10 r (very) s
X11 r (before) s
X11 r (using) s
X10 r (any) s
X10 r (plotter) s
X11 r (statement) s
X12 r (The) s
X11 r (working) s
X0 1285 p (buffer) s
X9 r (beginning) s
X10 r (is) s
X11 r (de\014ned) s
X10 r (in) s
X11 r (PLOT) s
X-4 r (.H) s
X12 r (and) s
X10 r (has) s
X11 r 97 c
X12 r (\014xed) s
X10 r (length,) s
X11 r (\(that) s
X12 r (can) s
X11 r (be) s
X11 r (modi\014ed\).) s
Xncs-bol.360 @sf
X-43 1368 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1451 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 1534 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1617 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1700 p (INIPLOT) s
X15 r (and) s
X13 r (PLCLOSE) s
X@eop
X26 @bop0
X26 @bop1
Xncs-bolita.360 @sf
X0 132 p (Plot) s
X3 r 15 2 ru
X15 r (ps) s
Xncs-rom.360 @sf
X1684 r (26) s
Xncs-rom.750 @sf
X706 312 p (PLCLOSE) s
Xncs-bol.360 @sf
X-43 513 p (NAME) s
Xncs-rom.360 @sf
X58 c
X12 r (PLCLOSE) s
X16 r 123 c
X13 r (Closes) s
X14 r (the) s
X14 r (PostScript) s
X16 r (\014le) s
Xncs-bol.360 @sf
X-43 596 p (SYNOPTIQUE) s
Xncs-rom.360 @sf
X58 c
Xc-med.360 @sf
X389 733 p (#include) s
X30 r (<plot_ps.h>) s
X389 857 p (plclose\(\);) s
Xncs-bol.360 @sf
X-43 994 p (DESCRIPTION) s
Xncs-rom.360 @sf
X58 c
X74 1077 p (PLCLOSE:) s
X15 r (Stops) s
X15 r (the) s
X14 r (plotter) s
X14 r (and) s
X13 r (closes) s
X14 r (the) s
X14 r (\014le) s
X13 r (in) s
X14 r (wich) s
X13 r (the) s
X14 r (plot) s
X14 r (has) s
X13 r (been) s
X13 r (send.) s
X74 1160 p (The) s
X13 r (PostScript) s
X16 r (\014le) s
X12 r (must) s
X15 r (be) s
X13 r (send) s
X13 r (to) s
X14 r (the) s
X14 r (plotter) s
X14 r (in) s
X13 r (order) s
X13 r (to) s
X14 r (be) s
X14 r (drawn.) s
X17 r (The) s
X14 r (\014le) s
X12 r (can) s
X0 1223 p (be) s
X13 r (spooled) s
X13 r (as) s
X14 r (for) s
X14 r (any) s
X13 r (ascii) s
X13 r (\014le.) s
Xncs-bol.360 @sf
X-43 1306 p (AUTHOR) s
Xncs-rom.360 @sf
X58 c
X74 1389 p (Jean-Fran) s
X3 r 24 c
X-20 r 99 c
X-1 r (ois) s
X13 r (VIBERT) s
X15 r 97 c
X14 r (partir) s
X14 r (de) s
X14 r (PLOT0.C) s
X14 r (de) s
X14 r (Jean-Noel) s
X12 r (Albert) s
X74 1472 p (CHU) s
X13 r (Saint-Antoine) s
X13 r (CNRS) s
X15 r (UA1) s
X-2 r (162) s
X12 r (Universite) s
X13 r (Paris) s
X14 r (VI) s
Xncs-bol.360 @sf
X-43 1555 p (SEE) s
X13 r (ALSO) s
Xncs-rom.360 @sf
X58 c
X74 1638 p (PLOPEN) s
X14 r (and) s
X13 r (ENDPLOT) s
X@eop
X@end
*-*-END_of_plot_ps.ps-*-*
exit