%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This is fig4tex.tex, version 1.7.7, July 5, 2004
%
%           Authors : Yvon Lafranche, Daniel Martin
%                     IRMAR, Universite de Rennes 1 - France
%
%           E-mail  : Yvon.Lafranche@univ-rennes1.fr
%                     Daniel.Martin@univ-rennes1.fr
%
%           Web     : http://perso.univ-rennes1.fr/yvon.lafranche/
%                     http://perso.univ-rennes1.fr/daniel.martin/
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\figfortexisloaded\relax\endinput\else\let\figfortexisloaded=\relax\fi
\message{version 1.7.7}
% CAUTION :
%   Some internal commands depend on the running environment.
%   This package has been tested with TeX and LaTeX on Mac OS X, UNIX, Windows,
%   and with TeXtures on MacOS 9.
%   In the latter case, the following \iftextures control sequence should be
%   initialized to "true".
\newif\iftextures
% Uncomment the following line for TeXtures on MacOS 9:
%\texturestrue
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% OBJECT
%
% Set of TeX macros allowing to :
%  . create a figure as a postscript file at compilation time of the TeX document,
%  . write text on the figure under total control of the user.
% For details, see the documentation file fig4texDOC.tex.
%
% PRINCIPLE
%
% With the help of adequate macros, the user defines some characteristic points.
% These points are used to build the figure which is generated as a postscript file.
% Each of them, and eventually other ones, can also be used as an attach point of a
% text printed on the figure. Thus, an interesting fact is to have the same geometric
% description both to draw the figure and to locate the text.
%
% USAGE
%
% The user macros are divided in two main groups:
% 1. Macros beginning with \ps are commands used to create the postscript file.
%    They have an effect only if a new postscript file is created.
% 2. Macros beginning with \fig can themselves be divided in two classes, so-called
%    mute and non-mute macros. Mute macros are mainly related to the definition of
%    the geometry. Non-mute macros are the only ones that write something on the
%    figure. Their names begin with \figwrite.
%
% EXAMPLE
%
% Put the following lines in a source file and compile it with TeX.
% The postscript file "demofig1.ps" will be created and used.
%
%     \input fig4tex.tex
%     \newbox\demo
% 1. Definition of characteristic points
%     \figinit{pt}
%     \figpt 2:(-10, -10)
%     \figpt 3:(130, 20)
%     \figpt 1:(80, 120)
%     \figptbary  5:c.g.[1,2,3 ; 1,1,1]
% 2. Creation of the postscript file
%     \def\MyPSfile{demofig1.ps}
%     \psbeginfig{\MyPSfile}
%     \pstrimesh 2 [1,2,3]
%     \psnormal 20,0.5 [3,1]
%     \psendfig
% 3. Writing text on the figure
%     \figvisu{\demo}{Example}{%
%     \figinsert{\MyPSfile}
%     \figwriten 1:(4)
%     \figwritew 2:(2)
%     \figwritee 3:(2)
%     \figptendnormal 4 :: 20,0.5 [3,1]\figwriten 4:$\vec{n}_2$(4)
%     \figsetmark{$\bullet$}\figwrites 5:$G$(4)
%     }
%     \box\demo
%     \bye
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%                      Geometrical macros - Mute macros
%                      --------------------------------
% --------- Control macros
% Initialization before the creation of a new figure. It is necessary to call this
% macro in case of successive figures. No check is performed on the arguments.
% First argument : Choice of the unit and the scale factor.
%  The unit can be one those defined in the TeX Book, namely: pt (TeX point),
%  pc (pica, 1pc = 12pt), in (inch, 1in = 72.27pt), bp (big point, 72bp = 1in),
%  cm (centimeter, 2.54cm = 1in), mm (millimeter, 10mm = 1cm), dd (point didot,
%  1157dd = 1238pt), cc (cicero, 1cc = 12dd), sp (scaled point, 65536sp = 1pt)
%  By default, pt is assumed and the scale factor is 1. For example, \figinit{in}
%  is equivalent to \figinit{2.54cm}.
% Second argument (optional) : Choice of the space dimension and, in 3D, the
%  projection type.
%  If this argument is equal to 2D or absent, then geometry in the plane is assumed,
%  otherwise geometry in three dimensions is performed.
%  Moreover, if this argument is equal to:
%   . orthogonal, then the orthogonal projection is used,
%   . realistic, then the realistic projection is used,
%   . 3D or cavalier (or anything else), then the cavalier projection is used.
%    \figinit{ScaleFactorUnit} or \figinit{ScaleFactorUnit, 2D}
%    \figinit{ScaleFactorUnit, X} with X in {3D, cavalier, orthogonal, realistic}
% Insertion of the postscript file FileName in the page, scaled by ScaleFactor
% which  by default equals to 1.
%    \figinsert{FileName} or \figinsert{FileName, ScaleFactor}
% Draws a rectangular grid with horizontal and vertical steps HX and HY, with
% numerical values corresponding to the bounding box read in the file FileName.
%    \figscan FileName(HX,HY)
% Setting parameters acting on the appearance of the figure, which are to be given
% as pairs of the form attribute = value. For each keyword, the attributes are given
% below, along with the possibles values, their default value and their definition:
% - keyword = projection
%  . depth (or lambda) = real in [0,1] (default = 0.5): depth reduction coefficient
%    (for the cavalier projection).
%  . distance = real in user coordinates (default = 5 x largest dimension of
%    the 3D bounding box): observation distance (for the realistic projection).
%  . latitude (or theta) = angle in degrees (default = 25): latitude of the
%    observation direction.
%  . longitude (or psi) = angle in degrees (default = 40): longitude of the
%    observation direction.
%  . targetpt = point number (default = center of the 3D bounding box): target
%    point (for the realistic projection).
%  Nota: These attributes must be set before step 2 (\psbeginfig) and 3 (\figvisu).
%        The cavalier projection is only defined by depth and psi. In this case,
%        values of psi lying in [0,180] correspond to a view from above and to
%        a view from beneath for values lying in [-180,0].
%        The orthogonal projection is only defined by theta and psi.
%        The realistic projection is defined by theta, psi, distance and targetpt.
%        For those two projections, the observation direction is defined by the
%        longitude psi and the latitude theta, with (psi, theta) = (0, 0)
%        corresponding to the Ox line.
%    \figset keyword (attribute1=value1, attribute2=value2,...)
% Prints to the terminal the current settings.
%    \figshowsettings
% Creation of a Vbox containing the figure and the legends defined by the Commands,
% with a Caption centered below. The box must be previously allocated by the user.
% Commands and Caption can be void.
%    \figvisu{Vbox}{Caption}{Commands}
%
% --------- Basic macros
% Definition of the point NewPt whose coordinates are (X,Y) or (X,Y,Z), with a joined Text.
% If Z is missing, then Z=0 is assumed.
% The default Text is $A_i$ where i is the number of the point (see \figsetptname).
%    \figpt NewPt :Text(X,Y)
%    \figpt NewPt :Text(X,Y,Z)
% Barycenter or centroid (with a joined Text) of N points bearing integer coefficients
%    \figptbary NewPt :Text[Pt1,... ,PtN ; Coef1,... ,CoefN]
% Barycenter or centroid (with a joined Text) of N points bearing real coefficients
%    \figptbaryR NewPt :Text[Pt1,... ,PtN ; Coef1,... ,CoefN]
% Definition of NewPt, with an associated Text, with the same coordinates as Pt.
%    \figptcopy NewPt :Text/Pt/
% Computation of the value \Value (in degrees) of the oriented angle (CP1, CP2), where
% C=Center, P1=Pt1, P2=Pt2. \Value is a macro whose name is chosen by the user and can
% then be used as a symbolic numerical constant.
% In 3D, the plane is oriented so that the angle is measured counterclockwise around the
% vector CP1 x CP3, where P3=Pt3. Notice that C, P1, P2 and P3 must be coplanar, but P3
% must not lie on the line (C,P1).
%    \figgetangle \Value [Center,Pt1,Pt2]
%    \figgetangle \Value [Center,Pt1,Pt2,Pt3]
% Computation of the euclidian distance \Value between the points Pt1 and Pt2.
% \Value is a macro whose name is chosen by the user and can then be used as a symbolic
% numerical constant.
%    \figgetdist\Value[Pt1,Pt2]
% Definition of the vector NewVect with components (X,Y) or (X,Y,Z).
% If Z is missing, then Z=0 is assumed.
%    \figvectC NewVect (X,Y)
%    \figvectC NewVect (X,Y,Z)
% Definition of the vector NewVect which is:
% . in 2D, the vector with origin point Pt1 and end point Pt2 rotated by pi/2
%   (so normal to [Pt1,Pt2]),
% . in 3D, the vector product P1P2 / ||P1P2|| x P1P3 / ||P1P3||, ie a vector normal to
%   the plane defined by the 3 points and so that (P1P2, P1P3, NewVect) is a positively
%   oriented basis.
%    \figvectN NewVect [Pt1,Pt2]
%    \figvectN NewVect [Pt1,Pt2,Pt3]
% Definition of the vector NewVect which is:
% . in 2D, the vector Vector rotated by pi/2
% . in 3D, the vector product Vector1 / ||Vector1|| x Vector2 / ||Vector2|| so that
% (Vector1, Vector2, NewVect) is a positively oriented basis.
%    \figvectNV NewVect [Vector]
%    \figvectNV NewVect [Vector1, Vector2]
% Definition of the vector NewVect with origin point Pt1 and end point Pt2.
%    \figvectP NewVect [Pt1,Pt2]
% Definition of the unitary vector NewVect which is Vector normalized according to
% the unit and the scale factor chosen by the user (see \figinit).
%    \figvectU NewVect [Vector]
%
% --------- Macros for elementary geometry
% --- Transformation macros (one result) ---
% Image NewPt (with a joined Text) of point Pt by the mapping defined by:
%  . an invariant point InvPt
%  . the matrix A whose coefficients are Aij, i,j in [1,d], d=2 in 2D or d=3 in 3D.
% If I=InvPt, P=Pt, P'=NewPt, P' is computed as IP' = A (IP).
%    \figptmap NewPt :Text= Pt /InvPt/A11,A12 ; A21,A22/
%    \figptmap NewPt :Text= Pt /InvPt/A11,A12,A13 ; A21,A22,A23 ; A31,A32,A33/
% Image NewPt of point Pt by the homothety of center Center and of ratio Ratio
% with a joined Text
%    \figpthom NewPt :Text= Pt /Center, Ratio/
% Image NewPt (with a joined Text) of point Pt by the rotation defined:
% . in 2D, by the center Center and the angle Angle (in degrees),
% . in 3D, by the axis (Center, Vector) and the angle Angle (in degrees).
%   Pt is rotated by Angle around the axis. The sense of rotation is such that
%   (CP, CP', Vector) is a positively oriented basis, where C=Center, P=Pt, P'=NewPt.
%    \figptrot NewPt :Text= Pt /Center, Angle/
%    \figptrot NewPt :Text= Pt /Center, Angle, Vector/
% Image NewPt (with a joined Text) of point Pt by the orthogonal symmetry
% with respect to:
% . in 2D, the line defined by the points LinePt1 and LinePt2,
% . in 3D, the plane defined by the point PlanePt and the vector NormalVector normal
% to the plane.
%    \figptsym NewPt :Text= Pt /LinePt1, LinePt2/
%    \figptsym NewPt :Text= Pt /PlanePt, NormalVector/
% Image NewPt of point Pt by the translation of vector Lambda * Vector
% with a joined Text.
%    \figpttra NewPt :Text= Pt /Lambda, Vector/
% Image NewPt of point Pt by the translation of vector (X,Y) in 2D, (X,Y,Z) in 3D
% with a joined Text.
%    \figpttraC NewPt :Text= Pt /X,Y/
%    \figpttraC NewPt :Text= Pt /X,Y,Z/
%
% Image NewPt of point Pt by the orthogonal projection onto the line (LinePt1,LinePt2),
% with a joined Text.
%    \figptorthoprojline NewPt :Text= Pt /LinePt1, LinePt2/
% Image NewPt of point Pt by the orthogonal projection onto the plane defined by
% the point PlanePt and the normal vector NormalVector, with a joined Text.
%    \figptorthoprojplane NewPt :Text= Pt /PlanePt, NormalVector/
%
% --- Transformation macros (multiple result) ---
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the mapping defined by:
%  . an invariant point InvPt
%  . the matrix A whose coefficients are Aij, i,j in [1,d], d=2 in 2D or d=3 in 3D.
% If I=InvPt, P=Pti, P'=NewPti, P' is computed as IP' = A (IP).
% See following information at \figptstra.
%    \figptsmap NewPt1 = Pt1, Pt2, ..., PtN /InvPt/A11,A12 ; A21,A22/
%    \figptsmap NewPt1 = Pt1, Pt2, ..., PtN /InvPt/A11,A12,A13; A21,A22,A23; A31,A32,A33/
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the homothety of center Center and of ratio Ratio.
% See following information at \figptstra.
%    \figptshom NewPt1 = Pt1, Pt2, ..., PtN /Center, Ratio/
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the rotation defined:
% . in 2D, by the center Center and the angle Angle (in degrees),
% . in 3D, by the axis (Center, Vector) and the angle Angle (in degrees). Each point
%   Pti is rotated by Angle around the axis. The sense of rotation is such that
%   (CP, CP', Vector) is a positively oriented basis, where C=Center, P=Pti, P'=NewPti.
% See following information at \figptstra.
%    \figptsrot NewPt1 = Pt1, Pt2, ..., PtN /Center, Angle/
%    \figptsrot NewPt1 = Pt1, Pt2, ..., PtN /Center, Angle, Vector/
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the orthogonal symmetry with respect to:
% . in 2D, the line defined by the points LinePt1 and LinePt2,
% . in 3D, the plane defined by the point PlanePt and the vector NormalVector normal
% to the plane. See following information at \figptstra.
%    \figptssym NewPt1 = Pt1, Pt2, ..., PtN /LinePt1, LinePt2/
%    \figptssym NewPt1 = Pt1, Pt2, ..., PtN /PlanePt, NormalVector/
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the translation of vector Lambda * Vector
% Text eventually previously associated with the result points is lost.
% The result points NewPti have successive numbers.
% The data points Pti can be given in any order.
% WARNING : Let Ir (resp. Id) the set of the result points numbers (resp. the set
% of the given points numbers). Let J the intersection of Ir and Id.
% 1) Ir = Id, or J is empty, or NewPt1 does not belong to J: no problem.
% 2) Otherwise, the result given by the macro MAY BE WRONG, at least partially:
%    this is because, in this case, NewPt1 belongs to J, and the given points are
%    taken into account sequentially, beginning from the first element in the list.
%    \figptstra NewPt1 = Pt1, Pt2, ..., PtN /Lambda, Vector/
%
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the orthogonal projection onto the line (LinePt1, LinePt2).
%    \figptsorthoprojline NewPt1 = Pt1, Pt2, ..., PtN /LinePt1, LinePt2/
% Images NewPt1, NewPt1+1,..., NewPt1+(N-1) of points Pt1, Pt2, ..., PtN
% by the orthogonal projection onto the plane defined by the point PlanePt and the
% normal vector NormalVector.
%    \figptsorthoprojplane NewPt1 = Pt1, Pt2, ..., PtN /PlanePt, NormalVector/
%
% --- Geometrical construction macros ---
% Intersection of the line defined by the point LinePt1 and the vector Vector1
%             and the line defined by the point LinePt2 and the vector Vector2
% with a joined Text
%    \figptinterlines NewPt :Text[LinePt1,Vector1; LinePt2,Vector2]
% Intersection of the line defined by the point LinePt and the vector Vector
%             and the plane defined by the point PlanePt and the normal vector NormalVector
% with a joined Text.
%    \figptinterlineplane NewPt :Text[LinePt,Vector; PlanePt,NormalVector]
% End points NewPt1, NewPt1+1 (and NewPt1+2 in 3D) of the arrows corresponding to
% the axes, drawn by the macro \psaxes. The text $x$, $y$ (and $z$ in 3D) is
% automatically joined to the points, so that writing the legend with the
% \figwriteX macros is more straightforward. For example, in 2D, one can write
% something like:  \figwrites NewPt1:(3pt) \figwritew NewPt1+1:(3pt)
% Remember that these macros can override the default text setting.
% The short form \figptsaxes NewPt1 : Origin(L) is equivalent to
% \figptsaxes NewPt1 : Origin(0,L, 0,L) in 2D and
% \figptsaxes NewPt1 : Origin(0,L, 0,L, 0,L) in 3D.
% NOTA: For simplicity of use, the arguments of this macro are deduced from
%       those of \psaxes.
%    \figptsaxes NewPt1 : Origin(X1,X2, Y1,Y2)
%    \figptsaxes NewPt1 : Origin(X1,X2, Y1,Y2, Z1,Z2)
%    \figptsaxes NewPt1 : Origin(L)
% End point (with a joined Text) of the "exterior normal" to the segment [Pt1, Pt2].
% The length of the normal vector is Length. Lambda is the barycentric coordinate
% of the origin of the normal with respect to the segment [Pt1, Pt2], which sets the
% position of the vector along [Pt1, Pt2]. In 3D-mode, it works only in the plane Z=0.
%    \figptendnormal NewPt :Text: Length,Lambda [Pt1,Pt2]
% Intersections NewPt1 and NewPt2 (=NewPt1+1) of the two circles defined by their
% center and radius, (Center1,Radius1) and (Center2,Radius2).
% NewPt1 and NewPt2 must be different from Center1 and Center2.
% NewPt1 and NewPt2 are ordered so that the angle (NewPt1, Center1, NewPt2) is positive.
% If the two circles do not intersect, then NewPt1=Center1 and NewPt2=Center2.
% In 3D, the plane containing the two circles is defined by the three points Center1,
% Center2 and PlanePt (which must not lie on the same line). The three points
% (NewPt1, Center1, NewPt2) defined the same orientation as (Center2, Center1, PlanePt).
%    \figptsintercirc NewPt1 [Center1,Radius1 ; Center2,Radius2]
%    \figptsintercirc NewPt1 [Center1,Radius1 ; Center2,Radius2 ; PlanePt]
% Intersections NewPt1 and NewPt2 (=NewPt1+1) of the line (LinePt1, LinePt2) and
% the ellipse defined by Center, XRad, YRad and Inclination (see \figptell).
% NewPt1 and NewPt2 must be different from LinePt1.
% NewPt1 and NewPt2 are ordered so that the vectors NewPt1NewPt2 and LinePt1LinePt2
% have the same direction.
% If the line does not intersect the ellipse, then NewPt1=LinePt1 and NewPt2=LinePt2.
% In 3D-mode, it works only in the plane Z=0.
%    \figptsinterlinell NewPt1 [Center,XRad,YRad,Inclination ; LinePt1,LinePt2]
% Intersections NewPt1 and NewPt2 (=NewPt1+1) of the line (LinePt1, LinePt2) and
% the ellipse defined by its Center, and the end points of its axes, A1=PtAxis1 and
% A2=PtAxis2. The local axes are then defined by the basis (CA1, CA2).
% NewPt1 and NewPt2 must be different from LinePt1.
% NewPt1 and NewPt2 are ordered so that the vectors NewPt1NewPt2 and LinePt1LinePt2
% have the same direction.
% If the line does not intersect the ellipse, then NewPt1=LinePt1 and NewPt2=LinePt2.
% In 3D, the 5 data points must lie in the same plane ; this is not checked.
%    \figptsinterlinellP NewPt1 [Center,PtAxis1,PtAxis2 ; LinePt1,LinePt2]
% Apparent intersection NewPt (with a joined Text) of the segment [SegPt1,SegPt2]
% and the line (LinePt1,LinePt2). NewPt is the visible limit of the segment hidden
% by an object an edge of which is lying on the line.
% If the projection of the line intersects the segment, the solution NewPt lies
% between SegPt1 and SegPt2, otherwise NewPt = SegPt1.
%    \figptvisilimSL NewPt:Text[SegPt1,SegPt2 ; LinePt1,LinePt2]
%
% --- Macros related to the triangle ---
% Center NewPt of the circumscribed circle to the triangle (Pt1,Pt2,Pt3) with a joined Text.
%    \figptcircumcenter NewPt :Text[Pt1,Pt2,Pt3]
% Center NewPt (with a joined Text) of the escribed circle to the triangle (Pt1,Pt2,Pt3)
% opposite to Pt1.
%    \figptexcenter NewPt :Text[Pt1,Pt2,Pt3]
% Center NewPt (with a joined Text) of the inscribed circle to the triangle (Pt1,Pt2,Pt3).
%    \figptincenter NewPt :Text[Pt1,Pt2,Pt3]
% Orthocenter NewPt of the triangle (Pt1,Pt2,Pt3) with a joined Text.
%    \figptorthocenter NewPt :Text[Pt1,Pt2,Pt3]
%
% --------- Macros related to arcs and curves
% Creation of the point NewPt, with an associated Text, on the circle defined by its Center,
% and its Radius. The position of the point is set by the Angle given in degrees.
% In 3D, the circle is lying in the plane (Center,Pt1,Pt2) = (C,P1,P2) and
% the Angle is measured counterclockwise around the vector CP1 x CP2, starting from
% the half-line (C,P1).
%    \figptcirc NewPt :Text: Center;Radius (Angle)
%    \figptcirc NewPt :Text: Center,Pt1,Pt2;Radius (Angle)
% Creation of the point NewPt, with an associated Text, on the ellipse defined by Center,
% XRad, YRad and Inclination. Inclination is the rotation angle of the local axes with
% respect to the paper sheet. The position of the point is set by the parametrization
% Angle given in local axes. The two angles are given in degrees.
% In 3D-mode, it works only in the plane Z=0.
%    \figptell NewPt :Text: Center;XRad,YRad (Angle,Inclination)
% Creation of the point NewPt, with an associated Text, on the ellipse defined by its Center,
% and the end points of its axes, A1=PtAxis1 and A2=PtAxis2. The local axes are then
% defined by the basis (CA1, CA2). The position of the point is set by the parametrization
% Angle given in degrees, starting from the half-line (C,A1) and measured counterclockwise
% around the vector CA1 x CA2.
%    \figptellP NewPt :Text: Center,PtAxis1,PtAxis2 (Angle)
% Computes the point NewPt (with a joined Text) lying on the cubic Bezier curve defined
% by the four control points Pt1, Pt2, Pt3 and Pt4, for the parameter value t.
% We recall that if t=0, NewPt=Pt1 and if t=1, NewPt=Pt4.
%    \figptBezier NewPt :Text: t [Pt1,Pt2,Pt3,Pt4]
% Computes the two control points NewPt1 and NewPt2 (=NewPt1+1) so that the cubic Bezier
% curve defined by the control points Pt1, NewPt1, NewPt2 and Pt4 interpolates the
% four points Pt1, Pt2, Pt3 and Pt4 with respective parameter values of 0, 1/3, 2/3 and 1.
% The result points numbers can be anyone including Pt1, Pt2, Pt3 and Pt4.
%    \figptscontrol NewPt1 [Pt1,Pt2,Pt3,Pt4]
% Computes the control points NewPt1, NewPt1+1,..., NewPt1+M used by the macro
% \pscurve when it is invoqued by  \pscurve [Pt0,Pt1,... ,PtN,PtN+1]
% which draws a curve that consists in N-1 cubic Bezier arcs.
% \NbArcs is a TeX macro whose name is chosen by the user. It can be considered
% as a variable and on output, its value is N-1 so that the calling sequence
%  \psBezier \NbArcs [NewPt1, NewPt1+1,..., NewPt1+M] draws exactly the same curve.
% As a consequence, the data points Pti are duplicated on output : indeed, we have
% NewPt1+J = Pti with J=3*(i-1), i=1,...N.
% The result points numbers must be different from any of Pt0,Pt1,... ,PtN,PtN+1.
% On output, a total of M+1 points are created, with M = 3 * \NbArcs. 
% NOTA : this macro uses the current value of curve roudness.
%    \figptscontrolcurve NewPt1, \NbArcs [Pt0,Pt1,... ,PtN,PtN+1]
% Curvature center NewPt (with a joined Text) at the point lying on the cubic Bezier curve
% defined by the four control points Pt1, Pt2, Pt3 and Pt4, for the parameter value t.
%    \figptcurvcenter NewPt :Text: t [Pt1,Pt2,Pt3,Pt4]
% Computes the vector NewVect corresponding to the derivative of order n of the cubic Bezier
% curve defined by the four control points Pt1, Pt2, Pt3 and Pt4, for the parameter value t.
% The order n must be equal to 1 or 2.
%    \figvectDBezier NewVect : n, t [Pt1,Pt2,Pt3,Pt4]
%
%
%                      Writing macros - Non-mute macros
%                      --------------------------------
% --------- Control macros
% To write the coordinates of a point. To be used in the joined text argument
% of the macros that create points and the non-mute macros \figwrit* .
% Only NDec decimals are printed. See also \figsetroundcoord.
%    \figcoord{NDec}
% Definition of the point marker to be written, for example a point (.) or $\bullet$.
% By default, nothing is written.
%    \figsetmark{Mark}
% Sets the new default name for the points created.
% The default name for the point i is $A_i$: \figsetptname{$X^{(#1)}$} changes it
% to $X^{(i)}$.
%    \figsetptname{Name}
% Switches on rounding of decimals printed with \figcoord.
%    \figsetroundcoord{yes/no}
% Shows on the figure the location of every point defined since the beginning
% of the session, whose number lies in the interval [Nmin, Nmax].
% Writes a bullet at each location point along with the number of the point or
% the joined text if any.
% CAUTION :
% If Nmax-Nmin is too large, an error message "! TeX capacity exceeded" may occur.
%    \figshowpts[Nmin, Nmax]
% --------- Writing macros
% Writing a Text after Pt1, Pt2, ..., PtN according to TeX's alignment.
%    \figwrite[Pt1, Pt2, ..., PtN]{Text}
% Writing a Text vertically and horizontally centered at Pt1, Pt2, ..., PtN.
%    \figwritec[Pt1, Pt2, ..., PtN]{Text}
% Writing the point marker at the locations defined by Pt1, Pt2, ..., PtN.
%    \figwritep[Pt1, Pt2, ..., PtN]
% Writing the point marker at the locations defined by Pt1, Pt2, ..., PtN, with a Text
% placed, with respect to each point, at a given Distance from each point towards
% the west, the east, the north or the south. Distance measures the shortest path
% between each Pti and the bounding box of the Text.
%    \figwritew Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritee Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwriten Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwrites Pt1, Pt2, ..., PtN :Text(Distance)
% Writing the point marker at the locations defined by Pt1, Pt2, ..., PtN, with a Text
% placed, with respect to each point, at a given Distance from each point towards
% the north-west, the south-west, the north-east or the south-east. Distance measures
% the shortest path between each Pti and the bounding box of the Text.
%    \figwritenw Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritesw Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritene Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritese Pt1, Pt2, ..., PtN :Text(Distance)
% Writing a point marker at the locations defined by Pt1, Pt2, ..., PtN, with a Text
% placed, with respect to each point, at a given Distance from each point towards
% the west, the east, the north or the south (BASELINE version).
% If X=w or e, Distance measures the length between Pti and the end (resp. the beginning)
% of the Text, while the baseline of the Text is set to Pti's ordinate.
% If X=n or s, the Text is horizontally centered and Distance measures the length between
% Pti and the baseline of the Text.
%    \figwritebw Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritebe Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritebn Pt1, Pt2, ..., PtN :Text(Distance)
%    \figwritebs Pt1, Pt2, ..., PtN :Text(Distance)
% Writing the point marker at the locations defined by Pt1, Pt2, ..., PtN, with a Text
% placed, with respect to each point, at a horizontal distance DistanceX (west or east)
% and a vertical distance DistanceY between the point and the mid-height of the text.
%    \figwritegcw Pt1, Pt2, ..., PtN :Text(DistanceX,DistanceY)
%    \figwritegce Pt1, Pt2, ..., PtN :Text(DistanceX,DistanceY)
% Writing the point marker at the locations defined by Pt1, Pt2, ..., PtN, with a Text
% placed, with respect to each point, at a horizontal distance DistanceX (west or east)
% and a vertical distance DistanceY from the bottom of the bounding box of the Text if
% DistanceY > 0, from its top if DistanceY < 0. If DistanceY = 0, the Text is vertically
% centered.
%    \figwritegw Pt1, Pt2, ..., PtN :Text(DistanceX,DistanceY)
%    \figwritege Pt1, Pt2, ..., PtN :Text(DistanceX,DistanceY)
%
%                      Macros for postscript generation
%                      --------------------------------
% --------- Control macros
% Starting the creation of a PostScript file whose name is FileName.
%    \psbeginfig{FileName}
% End of the current PostScript file.
%    \psendfig
% To reset one or several groups of graphical attributes to their default values.
% The groups of attributes are denoted with keywords which are:
%  - arrowhead to reset the arrow-head attributes,
%  - curve to reset the (\ps)curve attributes,
%  - first to reset the first-level (or primary) attributes,
%  - flowchart to reset the flow chart attributes,
%  - mesh to reset the (\ps)mesh attributes,
%  - second to reset the second-level (or secondary) attributes,
%  - third to reset the third-level (or ternary) attributes.
%    \psreset{keyword1, keyword2,...}
% Setting the graphical attributes, which are to be given as pairs of the form
% attribute = value. For each keyword, the attributes are given below, along with the
% possible values, their default name in parentheses and their definition.
% The current value can be obtained with the help of \figshowsettings.
% - NO keyword or keyword = first
%  . color = color definition (\defaultcolor): primary color in cmyk or rgb color code,
%    or in gray tone (real number between 0 (black) and 1 (white).
%  . dash = index or dash pattern (\defaultdash): line style given by Index (Index = 1
%    (solid) to 10) or by Pattern.
%  . fillmode = yes/no (\defaultfill): setting the filling mode to "no" tells the
%    drawing macros to draw lines ; setting the filling mode to "yes" tells the macros
%    to fill the appropriate area using the current color or gray shade.
%  . join = miter (V), round (U) or bevel (\_/) (\defaultjoin): line join parameter that
%    establishes the shape to be put at the corners of a polygonal line. Best rendering
%    is obtained with join=round when more than 2 segments meet at a corner.
%  . update = yes/no (\defaultupdate): setting the update mode to "yes" (resp. to "no")
%    before \psbeginfig enforces (resp. avoids) the postscript file to be recreated at
%    each compilation.
%  . width = dimension in PostScript units (\defaultwidth): line width.
%    Note : has no effect on a straight line after \psset (fillmode=yes).
% - keyword = arrowhead
%  . angle = real in degrees (\defaultarrowheadangle): arrow-head opening half-angle.
%  . fillmode = yes/no (\defaultarrowheadfill): arrow-head filling switch, which tells
%    whether the interior of the arrow-head must be filled or not.
%  . length = real in user coordinates (\defaultarrowheadlength): length of each edge
%    of the arrow-head.
%  . out = yes/no (\defaultarrowheadout): arrow-head "outside" switch, which tells
%    whether the arrow-head must be drawn outside the body of the arrow (as if it was
%    rotated by 180 degrees around the end point) or not.
%  . ratio = real in [0,1] (\defaultarrowheadratio): arrow-head ratio defining the
%    arrow-head length to be ratio x (body length).
%   Nota : The two attributes length and ratio are mutually exclusive ; the default is
%          to use the length.
% - keyword = curve
%  . roundness = real usually in [0,0.5] (\defaultroundness): roundness of a C1 curve.
% - keyword = flowchart
%  . arrowposition = real in [0,1] (\defaultfcarrowposition): arrow-head position along
%    the path, 0 corresponding to the beginning and 1 to the end of the path.
%  . arrowrefpt = start/end (\defaultfcarrowrefpt): reference point of the arrow-head
%    to its start point or to its end point ; the arrow-head position is computed with
%    respect to this point.
%  . line = polygon/curve (\defaultfcline): tells \psfcconnect to draw the path between
%    two nodes using polygonal lines or smooth curved lines.
%  . padding = real in user coordinates (see xpadding and ypadding): space surrounding
%    the text inside a frame. Both horizontal and vertical padding are set to the
%    same value. This attribute allows to reduce or enlarge the frames drawn at the
%    nodes of the flow chart, starting from the internal default dimensions.
%  . radius = positive real in user coordinates (\defaultfcradius): radius of the
%    circular arcs to be drawn at the corners of the path when the line is polygonal.
%  . shape = rectangle, ellipse or lozenge (\defaultfcshape): shape of the frames.
%  . thickness = real in user coordinates (\defaultfcthickness): thickness of the frames.
%  . xpadding = real in user coordinates (\defaultfcxpadding): horizontal space around the
%    text inside a frame.
%  . ypadding = real in user coordinates (\defaultfcypadding): vertical space around the
%    text inside a frame.
%  Notice that the frame color is set by the primary color, the thickness color is set by
%  the secondary color and the background color of the frame is set by the ternary color.
% - keyword = mesh
%  . diag = integer in {-1,0,1} (\defaultmeshdiag): controls the drawing of a grid mesh.
%    If diag=0, each cell is empty ; if diag=1 (resp. diag=-1), the SW-NE diagonal (resp.
%    the NW-SE diagonal) is drawn inside each cell.
% - keyword = second
%  . color = color definition (\defaultsecondcolor): secondary color (see primary one).
%  . dash = index or dash pattern (\defaultseconddash): secondary line style.
%  . width = dimension in PostScript units (\defaultsecondwidth): secondary line width.
% - keyword = third
%  . color = color definition (\defaultthirdcolor): ternary color (see primary one).
%    \psset keyword (attribute1=value1, attribute2=value2,...)
% Global setting of the default values of graphical attributes, which are to be given
% as pairs of the form attribute=NewDefaultValue.
% The attributes are set up to the end of the document or up to next call to this macro.
% For each keyword, the attributes are listed below ; see \psset for their definition
% (particular case : \pssetdefault arrowhead(length=DimWithUnit)).
% - NO keyword or keyword = first: color, dash, fillmode, join, update, width,
% - keyword = arrowhead: angle, fillmode, length, out, ratio,
% - keyword = curve: roundness,
% - keyword = flowchart: arrowposition, arrowrefpt, line, padding, shape,
%             thickness, xpadding, ypadding,
% - keyword = mesh: diag,
% - keyword = second: color, dash, width,
% - keyword = third: color.
%    \pssetdefault keyword (attribute1=value1, attribute2=value2,...)
%
% --------- Basic drawing macros
% Circle of center Center and of radius Radius.
% In 3D, the circle is in the plane defined the 3 points Center, Pt1 and Pt2 ;
% Pt1 and Pt2 do not need to lie on the circle.
%    \pscirc Center (Radius)
%    \pscirc Center,Pt1,Pt2 (Radius)
% Line defined by N points, closed if the last point number equals the first one.
%    \psline[Pt1,Pt2,... ,PtN]
% Line defined by N points, closed if the last point number equals the first one.
% The points are given by their coordinates, each of them separated by a white space.
%    \pslineC(X1 Y1, X2 Y2,..., XN YN)
%    \pslineC(X1 Y1 Z1, X2 Y2 Z2,..., XN YN ZN)
% Line defined by points read from the text file Filename, which contains the
% coordinates of the points, one point per line, given as  X Y  in 2D and as
% X Y Z  in 3D (the values must be separated by a white space and nothing else).
% The line is closed if the last point equals the first one.
%    \pslineF{Filename}
%
% --------- Other drawing macros
% --- Arc ---
% Circular arc of center Center and radius Radius limited by the angles
% Ang1 and Ang2 given in degrees.
% In 2D, the angles are measured counterclockwise.
% In 3D, the arc lies in the plane defined by the 3 points Center, Pt1 and Pt2.
% The angles are measured counterclockwise around the vector CP1 x CP2, starting
% from the half-line (C, P1), where C=Center, P1=Pt1, P2=Pt2.
%    \psarccirc Center ; Radius (Ang1,Ang2)
%    \psarccirc Center,Pt1,Pt2 ; Radius (Ang1,Ang2)
% Point version of \psarccirc
% Circular arc of center Center and of radius Radius limited by the two half-lines
% (Center, Pt1) and (Center, Pt2).
% Let N be the normal vector that orients the plane in which lies the arc.
% In 2D, N is defined as usual by N = Z = X x Y.
% In 3D, N = CP1 x CP3, where C=Center, P1=Pt1, P3=Pt3.
% The arc is drawn from Pt1 towards Pt2 turning counterclockwise around the axis (C; N).
% Notice that C, P1, P2 and P3 must be coplanar, but P3 must not lie on the line (C,P1).
%    \psarccircP Center ; Radius [Pt1,Pt2]
%    \psarccircP Center ; Radius [Pt1,Pt2,Pt3]
% Arc of ellipse of center Center, of axes XRad and YRad, limited by the parametrization
% angles Ang1 and Ang2. The major axis is turned by an angle Inclination from the
% horizontal line. The angles are given in degrees and measured counterclockwise.
% In 3D-mode, it works only in the plane Z=0.
%    \psarcell Center ; XRad,YRad (Ang1,Ang2, Inclination)
% Arc of ellipse of center Center limited by the parametrization angles Ang1 and Ang2.
% The end point of the major axis is PtAxis1 and the end point of the minor axis is PtAxis2.
% The angles are given in degrees and measured counterclockwise around the vector CA1 x CA2.
%    \psarcellPA Center,PtAxis1,PtAxis2 (Ang1, Ang2)
% Arc of ellipse of center Center limited by the two half-lines (Center,Pt1)
% and (Center,Pt2). The end point of the major axis is PtAxis1 and the end point
% of the minor axis is PtAxis2. The arc is drawn counterclockwise around the vector
% CA1 x CA2, where C=Center, A1=PtAxis1, A2=PtAxis2.
%    \psarcellPP Center,PtAxis1,PtAxis2 [Pt1,Pt2]
% --- Arrow ---
% Arrow from Pt1 to Pt2.
% The arrow-head is drawn according to the \psarrowhead macro settings.
%    \psarrow [Pt1,Pt2]
% Arrow that consists of the cubic Bezier curve defined by the four control points
% Pt1, Pt2, Pt3 and Pt4, and the arrow-head at point Pt4.
%    \psarrowBezier [Pt1,Pt2,Pt3,Pt4]
% Circular arrow such that the circular arc is centered at Center, has the radius Radius
% and is limited by the angles Ang1 and Ang2 given in degrees.
% If Ang2 > Ang1, the arrow is drawn counterclockwise, else it is drawn clockwise.
% The arrow-head is drawn according to the \psarrowhead macro settings.
% In 3D, the arc lies in the plane defined the 3 points Center, Pt1 and Pt2.
% The angles are measured counterclockwise around the vector CP1 x CP2, starting
% from the half-line (C, P1), where C=Center, P1=Pt1, P2=Pt2.
%    \psarrowcirc Center ; Radius (Ang1,Ang2)
%    \psarrowcirc Center,Pt1,Pt2 ; Radius (Ang1,Ang2)
% Point version of \psarrowcirc
% Circular arrow such that the circular arc is centered at Center, has the radius
% |Radius| and is limited by the two half-lines (Center, Pt1) and (Center, Pt2).
% Let N be the normal vector that orients the plane in which lies the arc.
% In 2D, N is defined as usual by N = Z = X x Y.
% In 3D, N = CP1 x CP3, where C=Center, P1=Pt1, P3=Pt3.
% The arrow is drawn from Pt1 towards Pt2 turning around the axis (Center; N):
%  . counterclockwise if Radius > 0,
%  . clockwise if Radius < 0.
% Notice that C, P1, P2 and P3 must be coplanar, but P3 must not lie on the line (C,P1).
%    \psarrowcircP Center ; Radius [Pt1,Pt2]
%    \psarrowcircP Center ; Radius [Pt1,Pt2,Pt3]
% Arrow-head of the arrow from Pt1 to Pt2. The segment [Pt1, Pt2] (body) is not drawn.
% The appearance of the arrow-head can be modified with the help of attributes set by
% the macro \psset arrowhead(...).
%    \psarrowhead [Pt1,Pt2]
% Axes defined by their Origin and coordinate ranges. Each axis is parallel to the
% corresponding absolute axis and is drawn as an oriented arrow from start value
% to stop value.
% The short form \psaxes Origin(L) is equivalent to \psaxes Origin(0,L, 0,L)
% in 2D and \psaxes Origin(0,L, 0,L, 0,L) in 3D.
% The end points of the axes are given by \figptsaxes.
%    \psaxes Origin(X1,X2, Y1,Y2)
%    \psaxes Origin(X1,X2, Y1,Y2, Z1,Z2)
%    \psaxes Origin(L)
% --- Curve ---
% Bezier curve defined by N cubic arcs. The arc number i is defined by the four
% control points P_{j}, P_{j+1}, P_{j+2}, P_{j+3} with j=3i-2.
% The curve interpolates each 3 points beginning with the first, i.e. at P_{3i-2},
% i=1,...N+1. At these points, the curve is only C0. To obtain G1 continuity at P_j,
% the points P_{j-1}, P_j and P_{j+1} must be aligned.
% The total number of points must be 3N+1 and is not checked.
%    \psBezier N [Pt_1, ..., Pt_{3N+1}]
% C1 curve that interpolates the points P1, P2,... ,Pn. The curve consists of
% n-1 Bezier cubic arcs. The direction of the tangent at Pi is given by Pi-1Pi+1,
% i=1,... ,n. To get a C1 closed curve, the last three points must be the same
% as the first three ones.
% The shape of the curve can be modified by a roundness coefficient to be
% set by the macro \psset curve(...). The best values for this coefficient are
% in the interval [0.15, 0.3] (0 gives a polygonal line).
%    \pscurve [Pt0,Pt1,... ,PtN,PtN+1]
% --- Flow chart ---
% Connections between nodes in a flow chart. Each connection path can be a polygonal
% line or a curved line. An arrow-head is drawn by default at the middle point of the
% path joining the points Pt1,Pt2,... ,PtN.
% The attributes of the path are set by the macro \psset flowchart(...).
% The frames at the nodes are drawn with the help of the macro \psfcnode.
%    \psfcconnect[Pt1,Pt2,... ,PtN]
% Frames containing Text at each node centered on points Pt1,Pt2,... ,PtN in a flow chart.
% If the Text argument is empty, the text joined to the points when they are defined
% is used ; otherwise, this Text is used for every point Pt1,Pt2,... ,PtN. The frame
% surrounding the text is reduced or enlarged according to the padding dimensions.
% This attribute along with the other ones is set by the macro \psset flowchart(...).
% The connections between the nodes are usually drawn by the macro \psfcconnect. If no
% arrows are wanted, the best is to say \psset arrowhead(length=0) ; the macros \psline or
% \pscurve can also be used.
%    \psfcnode[Pt1,Pt2,... ,PtN]{Text}
% --- Triangle related macros ---
% Altitude from Pt1 in the triangle (Pt1, Pt2, Pt3).
% Dim is the dimension of the square at the foot of the altitude, which is drawn on
% either side of the altitude according to the order of the 2 points Pt2 and Pt3.
%    \psaltitude Dim [Pt1,Pt2,Pt3]
% Exterior normal of length Length to the segment [Pt1, Pt2]. Lambda is the barycentric
% coordinate of the origin of the normal with respect to the segment [Pt1, Pt2], which
% sets the position of the vector along [Pt1, Pt2].
% In 3D-mode, it works only in the plane Z=0.
%    \psnormal Length,Lambda [Pt1,Pt2]
% --- Grid ---
% Mesh of N1 x N2 intervals on the quadrangle (Pt1, Pt2, Pt3, Pt4)
% (N1 along [Pt1, Pt2] and [Pt3, Pt4], N2 along the 2 other segments).
% A flag set by \psset mesh(...) allow to draw a diagonal inside each cell.
%    \psmesh N1,N2 [Pt1,Pt2,Pt3,Pt4]
% Mesh of the type Type triangle on the triangle (Pt1, Pt2, Pt3).
%    \pstrimesh Type [Pt1,Pt2,Pt3]
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\@=11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Points with numbers >= 0 are devoted to the user.
% Points with numbers <  0 are reserved to internal use.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newdimen\epsil@n\epsil@n=0.00005pt
\newdimen\Cepsil@n\Cepsil@n=0.005pt
\newdimen\dcq@\dcq@=254pt
\newdimen\PI@\PI@=3.141592pt
\newdimen\DemiPI@deg\DemiPI@deg=90pt
\newdimen\PI@deg\PI@deg=180pt
\newdimen\DePI@deg\DePI@deg=360pt
\chardef\t@n=10
\chardef\c@nt=100
\chardef\@lxxiv=74
\chardef\@xci=91
\mathchardef\@nMnCQn=9949
\chardef\@vi=6
\chardef\@xxx=30
\chardef\@lvi=56
\chardef\@lxxi=71
\chardef\@lxxxv=85
\mathchardef\@mmmmlxviii=4068
\mathchardef\@ccclx=360
\mathchardef\@dccxx=720
\newcount\p@rtent \newcount\f@ctech \newcount\result@tent
\newdimen\v@lmin \newdimen\v@lmax \newdimen\v@leur
\newdimen\result@t\newdimen\result@@t
\newdimen\mili@u \newdimen\c@rre \newdimen\delt@
\def\degT@rd{0.017453 }  % pi/180
\def\rdT@deg{57.295779 } % 180/pi
{\catcode`p=12 \catcode`t=12 \gdef\v@leurseule#1pt{#1}}
\def\repdecn@mb#1{\expandafter\v@leurseule\the#1\space}
\def\arct@n#1(#2,#3){{\v@lmin=#2\v@lmax=#3%
    \maxim@m{\mili@u}{-\v@lmin}{\v@lmin}\maxim@m{\c@rre}{-\v@lmax}{\v@lmax}%
    \delt@=\mili@u\m@ech\mili@u%
    \ifdim\c@rre>\@nMnCQn\mili@u\divide\v@lmax\tw@\c@lATAN\v@leur(\z@,\v@lmax)% DY > 9949 DX
    \else%
    \maxim@m{\mili@u}{-\v@lmin}{\v@lmin}\maxim@m{\c@rre}{-\v@lmax}{\v@lmax}%
    \m@ech\c@rre%
    \ifdim\mili@u>\@nMnCQn\c@rre\divide\v@lmin\tw@% DX > 9949 DY
    \maxim@m{\mili@u}{-\v@lmin}{\v@lmin}\c@lATAN\v@leur(\mili@u,\z@)%
    \else\c@lATAN\v@leur(\delt@,\v@lmax)\fi\fi%
    \ifdim\v@lmin<\z@\v@leur=-\v@leur\ifdim\v@lmax<\z@\advance\v@leur-\PI@%
    \else\advance\v@leur\PI@\fi\fi%
    \global\result@t=\v@leur}#1=\result@t}
\def\m@ech#1{\ifdim#1>1.646pt\divide\mili@u\t@n\divide\c@rre\t@n\m@ech#1\fi}
\def\c@lATAN#1(#2,#3){{\v@lmin=#2\v@lmax=#3\v@leur=\z@\delt@=\tw@ pt%
    \un@iter{0.785398}{\v@lmax<}%
    \un@iter{0.463648}{\v@lmax<}%
    \un@iter{0.244979}{\v@lmax<}%
    \un@iter{0.124355}{\v@lmax<}%
    \un@iter{0.062419}{\v@lmax<}%
    \un@iter{0.031240}{\v@lmax<}%
    \un@iter{0.015624}{\v@lmax<}%
    \un@iter{0.007812}{\v@lmax<}%
    \un@iter{0.003906}{\v@lmax<}%
    \un@iter{0.001953}{\v@lmax<}%
    \un@iter{0.000976}{\v@lmax<}%
    \un@iter{0.000488}{\v@lmax<}%
    \un@iter{0.000244}{\v@lmax<}%
    \un@iter{0.000122}{\v@lmax<}%
    \un@iter{0.000061}{\v@lmax<}%
    \un@iter{0.000030}{\v@lmax<}%
    \un@iter{0.000015}{\v@lmax<}%
    \global\result@t=\v@leur}#1=\result@t}
\def\un@iter#1#2{%
    \divide\delt@\tw@\edef\dpmn@{\repdecn@mb{\delt@}}%
    \mili@u=\v@lmin%
    \ifdim#2\z@%
      \advance\v@lmin-\dpmn@\v@lmax\advance\v@lmax\dpmn@\mili@u%
      \advance\v@leur-#1pt%
    \else%
      \advance\v@lmin\dpmn@\v@lmax\advance\v@lmax-\dpmn@\mili@u%
      \advance\v@leur#1pt%
    \fi}
\def\c@ssin#1#2#3{\expandafter\ifx\csname COS@\number#3\endcsname\relax\c@lCS{#3pt}%
    \expandafter\xdef\csname COS@\number#3\endcsname{\repdecn@mb\result@t}%
    \expandafter\xdef\csname SIN@\number#3\endcsname{\repdecn@mb\result@@t}\fi%
    \edef#1{\csname COS@\number#3\endcsname}\edef#2{\csname SIN@\number#3\endcsname}}
\def\c@lCS#1{{\mili@u=#1\p@rtent=\@ne%
    \relax\ifdim\mili@u<\z@\red@ng<-\else\red@ng>+\fi\f@ctech=\p@rtent%
    \relax\ifdim\mili@u<\z@\mili@u=-\mili@u\f@ctech=-\f@ctech\fi\c@@lCS}}
\def\c@@lCS{\v@lmin=\mili@u\c@rre=-\mili@u\advance\c@rre\DemiPI@deg\v@lmax=\c@rre%
    \mili@u\@lxxi\mili@u\divide\mili@u\@mmmmlxviii%
    \edef\v@larg{\repdecn@mb{\mili@u}}\mili@u=-\v@larg\mili@u%
    \edef\v@lmxde{\repdecn@mb{\mili@u}}%
    \c@rre\@lxxi\c@rre\divide\c@rre\@mmmmlxviii%
    \edef\v@largC{\repdecn@mb{\c@rre}}\c@rre=-\v@largC\c@rre%
    \edef\v@lmxdeC{\repdecn@mb{\c@rre}}%
    \fctc@s\mili@u\v@lmin\global\result@t\p@rtent\v@leur%
    \let\t@mp=\v@larg\let\v@larg=\v@largC\let\v@largC=\t@mp%
    \let\t@mp=\v@lmxde\let\v@lmxde=\v@lmxdeC\let\v@lmxdeC=\t@mp%
    \fctc@s\c@rre\v@lmax\global\result@@t\f@ctech\v@leur}
\def\fctc@s#1#2{\v@leur=#1\relax\ifdim#2<\@lxxxv\p@\cosser@h\else\sinser@t\fi}
\def\cosser@h{\advance\v@leur\@lvi\p@\divide\v@leur\@lvi%
    \v@leur=\v@lmxde\v@leur\advance\v@leur\@xxx\p@%
    \v@leur=\v@lmxde\v@leur\advance\v@leur\@ccclx\p@%
    \v@leur=\v@lmxde\v@leur\advance\v@leur\@dccxx\p@\divide\v@leur\@dccxx}
\def\sinser@t{\v@leur=\v@lmxdeC\p@\advance\v@leur\@vi\p@%
    \v@leur=\v@largC\v@leur\divide\v@leur\@vi}
\def\red@ng#1#2{\relax\ifdim\mili@u#1#2\DemiPI@deg\advance\mili@u#2-\PI@deg%
    \p@rtent=-\p@rtent\red@ng#1#2\fi}
\def\invers@#1#2{{\v@leur=#2\maxim@m{\v@lmax}{-\v@leur}{\v@leur}%
    \f@ctech=\@ne\m@inv@rs%
    \multiply\v@leur\f@ctech\edef\v@lv@leur{\repdecn@mb{\v@leur}}%
    \p@rtentiere{\p@rtent}{\v@leur}\v@lmin=\p@\divide\v@lmin\p@rtent%
    \inv@rs@\multiply\v@lmax\f@ctech\global\result@t=\v@lmax}#1=\result@t}
\def\m@inv@rs{\ifdim\v@lmax<\p@\multiply\v@lmax\t@n\multiply\f@ctech\t@n\m@inv@rs\fi}
\def\inv@rs@{\v@lmax=-\v@lmin\v@lmax=\v@lv@leur\v@lmax%
    \advance\v@lmax\tw@ pt\v@lmax=\repdecn@mb{\v@lmin}\v@lmax%
    \delt@=\v@lmax\advance\delt@-\v@lmin\ifdim\delt@<\z@\delt@=-\delt@\fi%
    \ifdim\delt@>\epsil@n\v@lmin=\v@lmax\inv@rs@\fi}
\def\minim@m#1#2#3{\relax\ifdim#2<#3#1=#2\else#1=#3\fi}
\def\maxim@m#1#2#3{\relax\ifdim#2>#3#1=#2\else#1=#3\fi}
\def\p@rtentiere#1#2{#1=#2\divide#1by65536 }
\def\r@undint#1#2{{\v@leur=#2\divide\v@leur\t@n\p@rtentiere{\p@rtent}{\v@leur}%
    \v@leur=\p@rtent pt\global\result@t=\t@n\v@leur}#1=\result@t}
\def\sqrt@#1#2{{\v@leur=#2%
    \minim@m{\v@lmin}{\p@}{\v@leur}\maxim@m{\v@lmax}{\p@}{\v@leur}%
    \f@ctech=\@ne\m@sqrt@\sqrt@@%
    \mili@u=\v@lmin\advance\mili@u\v@lmax\divide\mili@u\tw@\multiply\mili@u\f@ctech%
    \global\result@t=\mili@u}#1=\result@t}
\def\m@sqrt@{\ifdim\v@leur>\dcq@\divide\v@leur\c@nt\v@lmax=\v@leur%
    \multiply\f@ctech\t@n\m@sqrt@\fi}
\def\sqrt@@{\mili@u=\v@lmin\advance\mili@u\v@lmax\divide\mili@u\tw@%
    \c@rre=\repdecn@mb{\mili@u}\mili@u%
    \ifdim\c@rre<\v@leur\v@lmin=\mili@u\else\v@lmax=\mili@u\fi%
    \delt@=\v@lmax\advance\delt@-\v@lmin\ifdim\delt@>\epsil@n\sqrt@@\fi}
\def\extrairelepremi@r#1\de#2{\expandafter\lepremi@r#2@#1#2}
\def\lepremi@r#1,#2@#3#4{\def#3{#1}\def#4{#2}\ignorespaces}
\def\@cfor#1:=#2\do#3{%
  \edef\@fortemp{#2}%
  \ifx\@fortemp\empty\else\@cforloop#2,\@nil,\@nil\@@#1{#3}\fi}
\def\@cforloop#1,#2\@@#3#4{%
  \def#3{#1}%
  \ifx#3\Fig@nnil\let\@nextwhile=\Fig@fornoop\else#4\relax\let\@nextwhile=\@cforloop\fi%
  \@nextwhile#2\@@#3{#4}}

\def\@ecfor#1:=#2\do#3{%
  \def\@@cfor{\@cfor#1:=}%
  \edef\@@@cfor{#2}%
  \expandafter\@@cfor\@@@cfor\do{#3}}
\def\Fig@nnil{\@nil}
\def\Fig@fornoop#1\@@#2#3{}
\def\trtlis@rg#1#2{\def\list@@rg{#1}%
    \@ecfor\p@rv@l:=\list@@rg\do{\expandafter#2\p@rv@l|}}
\newbox\b@xvisu
\newtoks\let@xte
\newif\ifitis@K
\newcount\s@mme
\newcount\l@mbd@un \newcount\l@mbd@de
\newcount\superc@ntr@l\superc@ntr@l=\@ne        % Controle impose
\newcount\typec@ntr@l\typec@ntr@l=\superc@ntr@l % Controle souhaite
\newdimen\v@lX  \newdimen\v@lY  \newdimen\v@lZ
\newdimen\v@lXa \newdimen\v@lYa \newdimen\v@lZa
\newdimen\unit@\unit@=\p@ % Initialisation a la valeur par defaut.
\def\unit@util{pt}
\def\ptT@ptps{0.996264 }
\def\ptpsT@pt{1.00375 }
\def\ptT@unit@{1} % Initialisation correspondant a la valeur par defaut de \unit@
\def\setunit@#1{\def\unit@util{#1}\setunit@@#1:\invers@{\result@t}{\unit@}%
    \edef\ptT@unit@{\repdecn@mb\result@t}}
\def\setunit@@#1#2:{\ifcat#1a\unit@=\@ne#1#2\else\unit@=#1#2\fi}
\def\d@fm@cdim#1#2{{\v@leur=#2\v@leur=\ptT@unit@\v@leur\xdef#1{\repdecn@mb\v@leur}}}
\newif\ifBdingB@x\BdingB@xtrue
\newdimen\c@@rdXmin \newdimen\c@@rdYmin  % Dimensions de la BoundingBox
\newdimen\c@@rdXmax \newdimen\c@@rdYmax
\def\b@undb@x#1#2{\ifBdingB@x%
    \relax\ifdim#1<\c@@rdXmin\global\c@@rdXmin=#1\fi%
    \relax\ifdim#2<\c@@rdYmin\global\c@@rdYmin=#2\fi%
    \relax\ifdim#1>\c@@rdXmax\global\c@@rdXmax=#1\fi%
    \relax\ifdim#2>\c@@rdYmax\global\c@@rdYmax=#2\fi\fi}
\def\b@undb@xP#1{{\Figg@tXY{#1}\b@undb@x{\v@lX}{\v@lY}}}
\def\ellBB@x#1;#2,#3(#4,#5,#6){{\s@uvc@ntr@l\et@tellBB@x%
    \setc@ntr@l{2}\figptell-2::#1;#2,#3(#4,#6)\b@undb@xP{-2}%
    \figptell-2::#1;#2,#3(#5,#6)\b@undb@xP{-2}%
    \c@ssin{\C@}{\S@}{#6}\v@lmin=\C@ pt\v@lmax=\S@ pt%
    \mili@u=#3\v@lmin\delt@=#2\v@lmax\arct@n\v@leur(\delt@,\mili@u)%
    \mili@u=-#3\v@lmax\delt@=#2\v@lmin\arct@n\c@rre(\delt@,\mili@u)%
    \v@leur=\rdT@deg\v@leur\advance\v@leur-\DePI@deg%
    \c@rre=\rdT@deg\c@rre\advance\c@rre-\DePI@deg%
    \v@lmin=#4pt\v@lmax=#5pt%
    \loop\ifdim\v@leur<\v@lmax\ifdim\v@leur>\v@lmin%
    \edef\@ngle{\repdecn@mb\v@leur}\figptell-2::#1;#2,#3(\@ngle,#6)%
    \b@undb@xP{-2}\fi\advance\v@leur\PI@deg\repeat%
    \loop\ifdim\c@rre<\v@lmax\ifdim\c@rre>\v@lmin%
    \edef\@ngle{\repdecn@mb\c@rre}\figptell-2::#1;#2,#3(\@ngle,#6)%
    \b@undb@xP{-2}\fi\advance\c@rre\PI@deg\repeat%
    \resetc@ntr@l\et@tellBB@x}\ignorespaces}
\def\initb@undb@x{\c@@rdXmin=\maxdimen\c@@rdYmin=\maxdimen%
    \c@@rdXmax=-\maxdimen\c@@rdYmax=-\maxdimen}
\def\c@ntr@lnum#1{%
    \relax\ifnum\typec@ntr@l=\@ne%
    \ifnum#1<\z@%
    \immediate\write16{*** Forbidden point number (#1). Abort.}\end\fi\fi%
    \set@bjc@de{#1}}
\def\set@bjc@de#1{\edef\objc@de{@BJ\ifnum#1<\z@ M\romannumeral-#1\else\romannumeral#1\fi}}
\def\setc@ntr@l#1{\ifnum\superc@ntr@l>#1\typec@ntr@l=\superc@ntr@l%
    \else\typec@ntr@l=#1\fi}
\def\resetc@ntr@l#1{\global\superc@ntr@l=#1\setc@ntr@l{#1}}
\def\s@uvc@ntr@l#1{\edef#1{\the\superc@ntr@l}}
\def\c@lproscalDD#1[#2,#3]{{\Figg@tXY{#2}%
    \edef\Xu@{\repdecn@mb{\v@lX}}\edef\Yu@{\repdecn@mb{\v@lY}}\Figg@tXY{#3}%
    \global\result@t=\Xu@\v@lX\global\advance\result@t\Yu@\v@lY}#1=\result@t}
\def\c@lproscalTD#1[#2,#3]{{\Figg@tXY{#2}\edef\Xu@{\repdecn@mb{\v@lX}}%
    \edef\Yu@{\repdecn@mb{\v@lY}}\edef\Zu@{\repdecn@mb{\v@lZ}}%
    \Figg@tXY{#3}\global\result@t=\Xu@\v@lX\global\advance\result@t\Yu@\v@lY%
    \global\advance\result@t\Zu@\v@lZ}#1=\result@t}
\def\c@lprovec#1{%
    \det@rmC\v@lZa(\v@lX,\v@lY,\v@lmin,\v@lmax)%
    \det@rmC\v@lXa(\v@lY,\v@lZ,\v@lmax,\v@leur)%
    \det@rmC\v@lYa(\v@lZ,\v@lX,\v@leur,\v@lmin)%
    \Figv@ctCreg#1(\v@lXa,\v@lYa,\v@lZa)}
\def\det@rm#1[#2,#3]{{\Figg@tXY{#2}\Figg@tXYa{#3}%
    \delt@=\repdecn@mb{\v@lX}\v@lYa\advance\delt@-\repdecn@mb{\v@lY}\v@lXa%
    \global\result@t=\delt@}#1=\result@t}
\def\det@rmC#1(#2,#3,#4,#5){{\global\result@t=\repdecn@mb{#2}#5%
    \global\advance\result@t-\repdecn@mb{#3}#4}#1=\result@t}
\def\getredf@ctDD#1(#2,#3){{\maxim@m{\v@lXa}{-#2}{#2}\maxim@m{\v@lYa}{-#3}{#3}%
    \maxim@m{\v@lXa}{\v@lXa}{\v@lYa}% \v@lXa = ||X||inf
    \ifdim\v@lXa>\@xci pt\divide\v@lXa\@xci%
    \p@rtentiere{\p@rtent}{\v@lXa}\advance\p@rtent\@ne\else\p@rtent=\@ne\fi%
    \global\result@tent=\p@rtent}#1=\result@tent\ignorespaces}
\def\getredf@ctTD#1(#2,#3,#4){{\maxim@m{\v@lXa}{-#2}{#2}\maxim@m{\v@lYa}{-#3}{#3}%
    \maxim@m{\v@lZa}{-#4}{#4}\maxim@m{\v@lXa}{\v@lXa}{\v@lYa}%
    \maxim@m{\v@lXa}{\v@lXa}{\v@lZa}% \v@lXa = ||X||inf
    \ifdim\v@lXa>\@lxxiv pt\divide\v@lXa\@lxxiv%
    \p@rtentiere{\p@rtent}{\v@lXa}\advance\p@rtent\@ne\else\p@rtent=\@ne\fi%
    \global\result@tent=\p@rtent}#1=\result@tent\ignorespaces}
\def\FigptintercircB@zDD#1:#2:#3,#4[#5,#6,#7,#8]{{\s@uvc@ntr@l\et@tfigptintercircB@zDD%
    \setc@ntr@l{2}\figvectPDD-1[#5,#8]\Figg@tXY{-1}\getredf@ctDD\f@ctech(\v@lX,\v@lY)%
    \mili@u=#4\unit@\divide\mili@u\f@ctech\c@rre=\repdecn@mb{\mili@u}\mili@u%
    \figptBezierDD-5::#3[#5,#6,#7,#8]%
    \v@lmin=#3\p@\v@lmax=\v@lmin\advance\v@lmax0.1\p@%
    \loop\edef\T@{\repdecn@mb{\v@lmax}}\figptBezierDD-2::\T@[#5,#6,#7,#8]%
    \figvectPDD-1[-5,-2]\n@rmeucCDD{\delt@}{-1}\ifdim\delt@<\c@rre\v@lmin=\v@lmax%
    \advance\v@lmax0.1\p@\repeat%
    \loop\mili@u=\v@lmin\advance\mili@u\v@lmax%
    \divide\mili@u\tw@\edef\T@{\repdecn@mb{\mili@u}}\figptBezierDD-2::\T@[#5,#6,#7,#8]%
    \figvectPDD-1[-5,-2]\n@rmeucCDD{\delt@}{-1}\ifdim\delt@>\c@rre\v@lmax=\mili@u%
    \else\v@lmin=\mili@u\fi\v@leur=\v@lmax\advance\v@leur-\v@lmin%
    \ifdim\v@leur>\epsil@n\repeat\figptcopyDD#1:#2/-2/%
    \resetc@ntr@l\et@tfigptintercircB@zDD}\ignorespaces}
\def\inters@cDD#1:#2[#3,#4;#5,#6]{{\s@uvc@ntr@l\et@tinters@cDD%
    \setc@ntr@l{2}\vecunit@{-1}{#4}\vecunit@{-2}{#6}%
    \Figg@tXY{-1}\setc@ntr@l{1}\Figg@tXYa{#3}%
    \edef\A@{\repdecn@mb{\v@lX}}\edef\B@{\repdecn@mb{\v@lY}}%
    \v@lmin=\B@\v@lXa\advance\v@lmin-\A@\v@lYa%
    \Figg@tXYa{#5}\setc@ntr@l{2}\Figg@tXY{-2}%
    \edef\C@{\repdecn@mb{\v@lX}}\edef\D@{\repdecn@mb{\v@lY}}%
    \v@lmax=\D@\v@lXa\advance\v@lmax-\C@\v@lYa%
    \delt@=\A@\v@lY\advance\delt@-\B@\v@lX%
    \invers@{\v@leur}{\delt@}\edef\v@ldelta{\repdecn@mb{\v@leur}}%
    \v@lXa=\A@\v@lmax\advance\v@lXa-\C@\v@lmin%
    \v@lYa=\B@\v@lmax\advance\v@lYa-\D@\v@lmin%
    \v@lXa=\v@ldelta\v@lXa\v@lYa=\v@ldelta\v@lYa%
    \setc@ntr@l{1}\Figp@intregDD#1:{#2}(\v@lXa,\v@lYa)%
    \resetc@ntr@l\et@tinters@cDD}\ignorespaces}
\def\inters@cTD#1:#2[#3,#4;#5,#6]{{\s@uvc@ntr@l\et@tinters@cTD%
    \setc@ntr@l{2}\figvectNVTD-1[#4,#6]\figvectNVTD-2[#6,-1]\figvectPTD-1[#3,#5]%
    \r@pPSTD\v@leur[-2,-1,#4]\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD#1:{#2}=#3/\v@lcoef,#4/\resetc@ntr@l\et@tinters@cTD}\ignorespaces}
\def\r@pPSTD#1[#2,#3,#4]{{\Figg@tXY{#2}\edef\Xu@{\repdecn@mb{\v@lX}}%
    \edef\Yu@{\repdecn@mb{\v@lY}}\edef\Zu@{\repdecn@mb{\v@lZ}}%
    \Figg@tXY{#3}\v@lmin=\Xu@\v@lX\advance\v@lmin\Yu@\v@lY\advance\v@lmin\Zu@\v@lZ%
    \Figg@tXY{#4}\v@lmax=\Xu@\v@lX\advance\v@lmax\Yu@\v@lY\advance\v@lmax\Zu@\v@lZ%
    \invers@{\v@leur}{\v@lmax}\global\result@t=\repdecn@mb{\v@leur}\v@lmin}%
    #1=\result@t}
\def\n@rminfDD#1#2{{\Figg@tXY{#2}\maxim@m{\v@lX}{\v@lX}{-\v@lX}%
    \maxim@m{\v@lY}{\v@lY}{-\v@lY}\maxim@m{\global\result@t}{\v@lX}{\v@lY}}%
    #1=\result@t}
\def\n@rminfTD#1#2{{\Figg@tXY{#2}\maxim@m{\v@lX}{\v@lX}{-\v@lX}%
    \maxim@m{\v@lY}{\v@lY}{-\v@lY}\maxim@m{\v@lZ}{\v@lZ}{-\v@lZ}%
    \maxim@m{\v@lX}{\v@lX}{\v@lY}\maxim@m{\global\result@t}{\v@lX}{\v@lZ}}%
    #1=\result@t}
\def\n@rmeucCDD#1#2{\Figg@tXY{#2}\divide\v@lX\f@ctech\divide\v@lY\f@ctech%
    #1=\repdecn@mb{\v@lX}\v@lX\v@lX=\repdecn@mb{\v@lY}\v@lY\advance#1\v@lX}
\def\n@rmeucCTD#1#2{\Figg@tXY{#2}%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech\divide\v@lZ\f@ctech%
    #1=\repdecn@mb{\v@lX}\v@lX\v@lX=\repdecn@mb{\v@lY}\v@lY\advance#1\v@lX%
    \v@lX=\repdecn@mb{\v@lZ}\v@lZ\advance#1\v@lX}
\def\n@rmeucSVDD#1#2{{\Figg@tXY{#2}%
    \v@lXa=\repdecn@mb{\v@lX}\v@lX\v@lYa=\repdecn@mb{\v@lY}\v@lY%
    \advance\v@lXa\v@lYa\sqrt@{\global\result@t}{\v@lXa}}#1=\result@t}
\def\n@rmeucSVTD#1#2{{\Figg@tXY{#2}\v@lXa=\repdecn@mb{\v@lX}\v@lX%
    \v@lYa=\repdecn@mb{\v@lY}\v@lY\v@lZa=\repdecn@mb{\v@lZ}\v@lZ%
    \advance\v@lXa\v@lYa\advance\v@lXa\v@lZa\sqrt@{\global\result@t}{\v@lXa}}#1=\result@t}
\def\n@rmeucDD#1#2{{\Figg@tXY{#2}\getredf@ctDD\f@ctech(\v@lX,\v@lY)%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech%
    \v@lXa=\repdecn@mb{\v@lX}\v@lX\v@lYa=\repdecn@mb{\v@lY}\v@lY%
    \advance\v@lXa\v@lYa\sqrt@{\global\result@t}{\v@lXa}%
    \global\multiply\result@t\f@ctech}#1=\result@t}
\def\n@rmeucTD#1#2{{\Figg@tXY{#2}\getredf@ctTD\f@ctech(\v@lX,\v@lY,\v@lZ)%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech\divide\v@lZ\f@ctech%
    \v@lXa=\repdecn@mb{\v@lX}\v@lX%
    \v@lYa=\repdecn@mb{\v@lY}\v@lY\v@lZa=\repdecn@mb{\v@lZ}\v@lZ%
    \advance\v@lXa\v@lYa\advance\v@lXa\v@lZa\sqrt@{\global\result@t}{\v@lXa}%
    \global\multiply\result@t\f@ctech}#1=\result@t}
\def\vecunit@DD#1#2{{\Figg@tXY{#2}\getredf@ctDD\f@ctech(\v@lX,\v@lY)%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech%
    \Figv@ctCreg#1(\v@lX,\v@lY)\n@rmeucSV{\v@lYa}{#1}%
    \invers@{\v@lXa}{\v@lYa}\edef\v@lv@lXa{\repdecn@mb{\v@lXa}}%
    \v@lX=\v@lv@lXa\v@lX\v@lY=\v@lv@lXa\v@lY%
    \Figv@ctCreg#1(\v@lX,\v@lY)\multiply\v@lYa\f@ctech\global\result@t=\v@lYa}}
\def\vecunit@TD#1#2{{\Figg@tXY{#2}\getredf@ctTD\f@ctech(\v@lX,\v@lY,\v@lZ)%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech\divide\v@lZ\f@ctech%
    \Figv@ctCreg#1(\v@lX,\v@lY,\v@lZ)\n@rmeucSV{\v@lYa}{#1}%
    \invers@{\v@lXa}{\v@lYa}\edef\v@lv@lXa{\repdecn@mb{\v@lXa}}%
    \v@lX=\v@lv@lXa\v@lX\v@lY=\v@lv@lXa\v@lY\v@lZ=\v@lv@lXa\v@lZ%
    \Figv@ctCreg#1(\v@lX,\v@lY,\v@lZ)\multiply\v@lYa\f@ctech\global\result@t=\v@lYa}}
\def\vecunitC@TD[#1,#2]{\Figg@tXYa{#1}\Figg@tXY{#2}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa\advance\v@lZ-\v@lZa\c@lvecunitTD}
\def\vecunitCV@TD#1{\Figg@tXY{#1}\c@lvecunitTD}
\def\c@lvecunitTD{\getredf@ctTD\f@ctech(\v@lX,\v@lY,\v@lZ)%
    \divide\v@lX\f@ctech\divide\v@lY\f@ctech\divide\v@lZ\f@ctech%
    \v@lXa=\repdecn@mb{\v@lX}\v@lX%
    \v@lYa=\repdecn@mb{\v@lY}\v@lY\v@lZa=\repdecn@mb{\v@lZ}\v@lZ%
    \advance\v@lXa\v@lYa\advance\v@lXa\v@lZa\sqrt@{\v@lYa}{\v@lXa}%
    \invers@{\v@lXa}{\v@lYa}\edef\v@lv@lXa{\repdecn@mb{\v@lXa}}%
    \v@lX=\v@lv@lXa\v@lX\v@lY=\v@lv@lXa\v@lY\v@lZ=\v@lv@lXa\v@lZ}
\def\figgetangleDD#1[#2,#3,#4]{\ifps@cri{\s@uvc@ntr@l\et@tfiggetangleDD\setc@ntr@l{2}%
    \figvectPDD-1[#2,#3]\figvectPDD-2[#2,#4]\vecunit@{-1}{-1}%
    \c@lproscalDD\delt@[-2,-1]\figvectNVDD-1[-1]\c@lproscalDD\v@leur[-2,-1]%
    \arct@n\v@lmax(\delt@,\v@leur)\v@lmax=\rdT@deg\v@lmax%
    \ifdim\v@lmax<\z@\advance\v@lmax\DePI@deg\fi\xdef#1{\repdecn@mb{\v@lmax}}%
    \resetc@ntr@l\et@tfiggetangleDD}\ignorespaces\fi}
\def\figgetangleTD#1[#2,#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfiggetangleTD\setc@ntr@l{2}%
    \figvectPTD-1[#2,#3]\figvectPTD-2[#2,#5]\figvectNVTD-3[-1,-2]%
    \figvectPTD-2[#2,#4]\figvectNVTD-4[-3,-1]%
    \vecunit@{-1}{-1}\c@lproscalTD\delt@[-2,-1]\c@lproscalTD\v@leur[-2,-4]%
    \arct@n\v@lmax(\delt@,\v@leur)\v@lmax=\rdT@deg\v@lmax%
    \ifdim\v@lmax<\z@\advance\v@lmax\DePI@deg\fi\xdef#1{\repdecn@mb{\v@lmax}}%
    \resetc@ntr@l\et@tfiggetangleTD}\ignorespaces\fi}    
\def\figgetdist#1[#2,#3]{\ifps@cri{\s@uvc@ntr@l\et@tfiggetdist\setc@ntr@l{2}%
    \figvectP-1[#2,#3]\n@rmeuc{\v@lX}{-1}\v@lX=\ptT@unit@\v@lX\xdef#1{\repdecn@mb{\v@lX}}%
    \resetc@ntr@l\et@tfiggetdist}\ignorespaces\fi}
\def\Figg@tT#1{\c@ntr@lnum{#1}%
    {\expandafter\expandafter\expandafter\extr@ctT\csname\objc@de\endcsname:%
     \ifnum\B@@ltxt=\z@\ptn@me{#1}\else\csname\objc@de T\endcsname\fi}}
\def\extr@ctT#1,#2,#3/#4:{\def\B@@ltxt{#3}}
\def\Figg@tXY#1{\c@ntr@lnum{#1}%
    \expandafter\expandafter\expandafter\extr@ctC\csname\objc@de\endcsname:}
\def\extr@ctCDD#1/#2,#3,#4:{\v@lX=#2\v@lY=#3}
\def\extr@ctCTD#1/#2,#3,#4:{\v@lX=#2\v@lY=#3\v@lZ=#4}
\def\Figg@tXYa#1{\c@ntr@lnum{#1}%
    \expandafter\expandafter\expandafter\extr@ctCa\csname\objc@de\endcsname:}
\def\extr@ctCaDD#1/#2,#3,#4:{\v@lXa=#2\v@lYa=#3}
\def\extr@ctCaTD#1/#2,#3,#4:{\v@lXa=#2\v@lYa=#3\v@lZa=#4}
\def\figinit#1{\initpr@lim\Figinit@#1,:\initpss@ttings\ignorespaces}
\def\Figinit@#1,#2:{\setunit@{#1}\def\t@xt@{#2}\ifx\t@xt@\empty\else\Figinit@@#2:\fi}
\def\Figinit@@#1#2:{\if#12 \else\Figs@tproj{#1}\initTD@\fi}
\newif\ifTr@isDim
\def\UnD@fined{UNDEFINED}
\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
\def\initpr@lim{\initb@undb@x\figsetmark{}\figsetptname{$A_{##1}$}\def\Sc@leFact{1}%
    \initDD@\figsetroundcoord{yes}\ps@critrue\expandafter\setupd@te\defaultupdate:%
    \edef\disob@unit{\UnD@fined}\edef\t@rgetpt{\UnD@fined}}
\def\initDD@{\Tr@isDimfalse%
    \let\c@lDCUn=\c@lDCUnDD%
    \let\c@lDCDeux=\c@lDCDeuxDD%
    \let\c@ldefproj=\relax%
    \let\c@lproscal=\c@lproscalDD%
    \let\c@lprojSP=\relax%
    \let\extr@ctC=\extr@ctCDD%
    \let\extr@ctCa=\extr@ctCaDD%
    \let\extr@ctCF=\extr@ctCFDD%
    \let\Figp@intreg=\Figp@intregDD%
    \let\Figpts@xes=\Figpts@xesDD%
    \let\n@rmeucSV=\n@rmeucSVDD\let\n@rmeuc=\n@rmeucDD\let\n@rminf=\n@rminfDD%
    \let\pr@dMatV=\pr@dMatVDD%
    \let\ps@xes=\ps@xesDD%
    \let\vecunit@=\vecunit@DD%
    \let\figcoord=\figcoordDD%
    \let\figgetangle=\figgetangleDD%
    \let\figpt=\figptDD%
    \let\figptBezier=\figptBezierDD%
    \let\figptbary=\figptbaryDD%
    \let\figptcirc=\figptcircDD%
    \let\figptcircumcenter=\figptcircumcenterDD%
    \let\figptcopy=\figptcopyDD%
    \let\figptcurvcenter=\figptcurvcenterDD%
    \let\figptell=\figptellDD%
    \let\figptendnormal=\figptendnormalDD%
    \def\figptinterlineplane{\un@v@ilable{figptinterlineplane}}%
    \let\figptinterlines=\inters@cDD%
    \let\figptorthocenter=\figptorthocenterDD%
    \let\figptorthoprojline=\figptorthoprojlineDD%
    \def\figptorthoprojplane{\un@v@ilable{figptorthoprojplane}}%
    \let\figptrot=\figptrotDD%
    \let\figptscontrol=\figptscontrolDD%
    \let\figptsintercirc=\figptsintercircDD%
    \let\figptsinterlinell=\figptsinterlinellDD%
    \let\figptsorthoprojline=\figptsorthoprojlineDD%
    \let\figptsrot=\figptsrotDD%
    \let\figptssym=\figptssymDD%
    \let\figptstra=\figptstraDD%
    \let\figptsym=\figptsymDD%
    \let\figpttraC=\figpttraCDD%
    \let\figpttra=\figpttraDD%
    \def\figptvisilimSL{\un@v@ilable{figptvisilimSL}}%
    \def\figsetobdist{\un@v@ilable{figsetobdist}}%
    \def\figsettarget{\un@v@ilable{figsettarget}}%
    \def\figsetview{\un@v@ilable{figsetview}}%
    \let\figvectDBezier=\figvectDBezierDD%
    \let\figvectN=\figvectNDD%
    \let\figvectNV=\figvectNVDD%
    \let\figvectP=\figvectPDD%
    \let\figvectU=\figvectUDD%
    \let\psarccircP=\psarccircPDD%
    \let\psarccirc=\psarccircDD%
    \let\psarcell=\psarcellDD%
    \let\psarcellPA=\psarcellPADD%
    \let\psarrowBezier=\psarrowBezierDD%
    \let\psarrowcircP=\psarrowcircPDD%
    \let\psarrowcirc=\psarrowcircDD%
    \let\psarrowhead=\psarrowheadDD%
    \let\psarrow=\psarrowDD%
    \let\psBezier=\psBezierDD%
    \let\pscirc=\pscircDD%
    \let\pscurve=\pscurveDD%
    \let\psnormal=\psnormalDD%
    }
\def\initTD@{\Tr@isDimtrue\initb@undb@xTD\newt@rgetptfalse\newdis@bfalse%
    \let\c@lDCUn=\c@lDCUnTD%
    \let\c@lDCDeux=\c@lDCDeuxTD%
    \let\c@ldefproj=\c@ldefprojTD%
    \let\c@lproscal=\c@lproscalTD%
    \let\extr@ctC=\extr@ctCTD%
    \let\extr@ctCa=\extr@ctCaTD%
    \let\extr@ctCF=\extr@ctCFTD%
    \let\Figp@intreg=\Figp@intregTD%
    \let\Figpts@xes=\Figpts@xesTD%
    \let\n@rmeucSV=\n@rmeucSVTD\let\n@rmeuc=\n@rmeucTD\let\n@rminf=\n@rminfTD%
    \let\pr@dMatV=\pr@dMatVTD%
    \let\ps@xes=\ps@xesTD%
    \let\vecunit@=\vecunit@TD%
    \let\figcoord=\figcoordTD%
    \let\figgetangle=\figgetangleTD%
    \let\figpt=\figptTD%
    \let\figptBezier=\figptBezierTD%
    \let\figptbary=\figptbaryTD%
    \let\figptcirc=\figptcircTD%
    \let\figptcircumcenter=\figptcircumcenterTD%
    \let\figptcopy=\figptcopyTD%
    \let\figptcurvcenter=\figptcurvcenterTD%
    \let\figptinterlineplane=\figptinterlineplaneTD%
    \let\figptinterlines=\inters@cTD%
    \let\figptorthocenter=\figptorthocenterTD%
    \let\figptorthoprojline=\figptorthoprojlineTD%
    \let\figptorthoprojplane=\figptorthoprojplaneTD%
    \let\figptrot=\figptrotTD%
    \let\figptscontrol=\figptscontrolTD%
    \let\figptsintercirc=\figptsintercircTD%
    \let\figptsorthoprojline=\figptsorthoprojlineTD%
    \let\figptsorthoprojplane=\figptsorthoprojplaneTD%
    \let\figptsrot=\figptsrotTD%
    \let\figptssym=\figptssymTD%
    \let\figptstra=\figptstraTD%
    \let\figptsym=\figptsymTD%
    \let\figpttraC=\figpttraCTD%
    \let\figpttra=\figpttraTD%
    \let\figptvisilimSL=\figptvisilimSLTD%
    \let\figsetobdist=\figsetobdistTD%
    \let\figsettarget=\figsettargetTD%
    \let\figsetview=\figsetviewTD%
    \let\figvectDBezier=\figvectDBezierTD%
    \let\figvectN=\figvectNTD%
    \let\figvectNV=\figvectNVTD%
    \let\figvectP=\figvectPTD%
    \let\figvectU=\figvectUTD%
    \let\psarccircP=\psarccircPTD%
    \let\psarccirc=\psarccircTD%
    \let\psarcell=\psarcellTD%
    \let\psarcellPA=\psarcellPATD%
    \let\psarrowBezier=\psarrowBezierTD%
    \let\psarrowcircP=\psarrowcircPTD%
    \let\psarrowcirc=\psarrowcircTD%
    \let\psarrowhead=\psarrowheadTD%
    \let\psarrow=\psarrowTD%
    \let\psBezier=\psBezierTD%
    \let\pscirc=\pscircTD%
    \let\pscurve=\pscurveTD%
    }
\def\un@v@ilable#1{\immediate\write16{*** The macro #1 is not available in the current context.}}
\def\figinsert#1{\Figinsert@#1,:\ignorespaces}
\def\Figinsert@#1,#2:{{\def\t@xt@{#2}\ifx\t@xt@\empty\xdef\Sc@leFact{1}\else%
    \def\Xarg@##1,{\def\@rgdeux{##1}}\Xarg@#2\xdef\Sc@leFact{\@rgdeux}\fi\@psfgetbb{#1}%
    \v@lX=\@psfllx\p@\v@lX=\ptpsT@pt\v@lX\v@lX=\Sc@leFact\v@lX%
    \v@lY=\@psflly\p@\v@lY=\ptpsT@pt\v@lY\v@lY=\Sc@leFact\v@lY%
    \b@undb@x{\v@lX}{\v@lY}%
    \v@lX=\@psfurx\p@\v@lX=\ptpsT@pt\v@lX\v@lX=\Sc@leFact\v@lX%
    \v@lY=\@psfury\p@\v@lY=\ptpsT@pt\v@lY\v@lY=\Sc@leFact\v@lY%
    \b@undb@x{\v@lX}{\v@lY}%
    \v@lX=\c@nt pt\v@lX=\Sc@leFact\v@lX\edef\F@ct{\repdecn@mb{\v@lX}}%
    \iftextures\special{postscriptfile #1 vscale=\F@ct\space hscale=\F@ct}%
    \else\special{psfile=#1 vscale=\F@ct\space hscale=\F@ct}\fi% 
    \message{[#1]}}\ignorespaces}
\def\figptDD#1:#2(#3,#4){\ifps@cri\c@ntr@lnum{#1}%
    {\v@lX=#3\unit@\v@lY=#4\unit@\Fig@dmpt{#2}{\z@}}\ignorespaces\fi}
\def\Fig@dmpt#1#2{\def\t@xt@{#1}\ifx\t@xt@\empty\def\B@@ltxt{\z@}%
    \else\expandafter\gdef\csname\objc@de T\endcsname{#1}\def\B@@ltxt{\@ne}\fi%
    \expandafter\xdef\csname\objc@de\endcsname{\ifitis@vect@r\C@dCl@svect%
    \else\C@dCl@spt\fi,\z@,\B@@ltxt/\the\v@lX,\the\v@lY,#2}}
\def\C@dCl@spt{P}
\def\C@dCl@svect{V}
\def\figptTD#1:#2(#3,#4){\ifps@cri\c@ntr@lnum{#1}%
    \def\c@@rdYZ{#4,0,0}\extrairelepremi@r\c@@rdY\de\c@@rdYZ%
    \extrairelepremi@r\c@@rdZ\de\c@@rdYZ%
    {\v@lX=#3\unit@\v@lY=\c@@rdY\unit@\v@lZ=\c@@rdZ\unit@\Fig@dmpt{#2}{\the\v@lZ}%
    \b@undb@xTD{\v@lX}{\v@lY}{\v@lZ}}\ignorespaces\fi}
\def\Figp@intregDD#1:#2(#3,#4){\c@ntr@lnum{#1}%
    {\result@t=#4\v@lX=#3\v@lY=\result@t\Fig@dmpt{#2}{\z@}}\ignorespaces}
\def\Figp@intregTD#1:#2(#3,#4){\c@ntr@lnum{#1}%
    \def\c@@rdYZ{#4,\z@,\z@}\extrairelepremi@r\c@@rdY\de\c@@rdYZ%
    \extrairelepremi@r\c@@rdZ\de\c@@rdYZ%
    {\v@lX=#3\v@lY=\c@@rdY\v@lZ=\c@@rdZ\Fig@dmpt{#2}{\the\v@lZ}%
    \b@undb@xTD{\v@lX}{\v@lY}{\v@lZ}}\ignorespaces}
\def\figptBezierDD#1:#2:#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigptBezierDD%
    \FigptBezier@#3[#4,#5,#6,#7]\Figp@intregDD#1:{#2}(\v@lX,\v@lY)%
    \resetc@ntr@l\et@tfigptBezierDD}\ignorespaces\fi}
\def\figptBezierTD#1:#2:#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigptBezierTD%
    \FigptBezier@#3[#4,#5,#6,#7]\Figp@intregTD#1:{#2}(\v@lX,\v@lY,\v@lZ)%
    \resetc@ntr@l\et@tfigptBezierTD}\ignorespaces\fi}
\def\FigptBezier@#1[#2,#3,#4,#5]{\setc@ntr@l{2}%
    \edef\T@{#1}\v@leur=\p@\advance\v@leur-#1pt\edef\UNmT@{\repdecn@mb{\v@leur}}%
    \figptcopy-4:/#2/\figptcopy-3:/#3/\figptcopy-2:/#4/\figptcopy-1:/#5/%
    \l@mbd@un=-4 \l@mbd@de=-\thr@@\p@rtent=\m@ne\c@lDecast%
    \l@mbd@un=-4 \l@mbd@de=-\thr@@\p@rtent=-\tw@\c@lDecast%
    \l@mbd@un=-4 \l@mbd@de=-\thr@@\p@rtent=-\thr@@\c@lDecast\Figg@tXY{-4}}
\def\c@lDCUnDD#1#2{\Figg@tXY{#1}\v@lX=\UNmT@\v@lX\v@lY=\UNmT@\v@lY%
    \Figg@tXYa{#2}\advance\v@lX\T@\v@lXa\advance\v@lY\T@\v@lYa%
    \Figp@intregDD#1:(\v@lX,\v@lY)}
\def\c@lDCUnTD#1#2{\Figg@tXY{#1}\v@lX=\UNmT@\v@lX\v@lY=\UNmT@\v@lY\v@lZ=\UNmT@\v@lZ%
    \Figg@tXYa{#2}\advance\v@lX\T@\v@lXa\advance\v@lY\T@\v@lYa\advance\v@lZ\T@\v@lZa%
    \Figp@intregTD#1:(\v@lX,\v@lY,\v@lZ)}
\def\c@lDecast{\relax\ifnum\l@mbd@un<\p@rtent\c@lDCUn{\l@mbd@un}{\l@mbd@de}%
    \advance\l@mbd@un\@ne\advance\l@mbd@de\@ne\c@lDecast\fi}
\def\figptmap#1:#2=#3/#4/#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptmap%
    \setc@ntr@l{2}\figvectP-1[#4,#3]\Figg@tXY{-1}%
    \pr@dMatV/#5/\figpttra#1:{#2}=#4/1,-1/%
    \resetc@ntr@l\et@tfigptmap}\ignorespaces\fi}
\def\pr@dMatVDD/#1,#2;#3,#4/{\v@lXa=#1\v@lX\advance\v@lXa#2\v@lY%
    \v@lYa=#3\v@lX\advance\v@lYa#4\v@lY\Figv@ctCreg-1(\v@lXa,\v@lYa)}
\def\pr@dMatVTD/#1,#2,#3;#4,#5,#6;#7,#8,#9/{%
    \v@lXa=#1\v@lX\advance\v@lXa#2\v@lY\advance\v@lXa#3\v@lZ%
    \v@lYa=#4\v@lX\advance\v@lYa#5\v@lY\advance\v@lYa#6\v@lZ%
    \v@lZa=#7\v@lX\advance\v@lZa#8\v@lY\advance\v@lZa#9\v@lZ%
    \Figv@ctCreg-1(\v@lXa,\v@lYa,\v@lZa)}
\def\figptbaryDD#1:#2[#3;#4]{\ifps@cri{\edef\list@num{#3}\extrairelepremi@r\p@int\de\list@num%
    \s@mme=\z@\@ecfor\c@ef:=#4\do{\advance\s@mme\c@ef}%
    \edef\listec@ef{#4,0}\extrairelepremi@r\c@ef\de\listec@ef%
    \Figg@tXY{\p@int}\divide\v@lX\s@mme\divide\v@lY\s@mme%
    \multiply\v@lX\c@ef\multiply\v@lY\c@ef%
    \@ecfor\p@int:=\list@num\do{\extrairelepremi@r\c@ef\de\listec@ef%
           \Figg@tXYa{\p@int}\divide\v@lXa\s@mme\divide\v@lYa\s@mme%
           \multiply\v@lXa\c@ef\multiply\v@lYa\c@ef%
           \advance\v@lX\v@lXa\advance\v@lY\v@lYa}%
    \Figp@intregDD#1:{#2}(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figptbaryTD#1:#2[#3;#4]{\ifps@cri{\edef\list@num{#3}\extrairelepremi@r\p@int\de\list@num%
    \s@mme=\z@\@ecfor\c@ef:=#4\do{\advance\s@mme\c@ef}%
    \edef\listec@ef{#4,0}\extrairelepremi@r\c@ef\de\listec@ef%
    \Figg@tXY{\p@int}\divide\v@lX\s@mme\divide\v@lY\s@mme\divide\v@lZ\s@mme%
    \multiply\v@lX\c@ef\multiply\v@lY\c@ef\multiply\v@lZ\c@ef%
    \@ecfor\p@int:=\list@num\do{\extrairelepremi@r\c@ef\de\listec@ef%
           \Figg@tXYa{\p@int}\divide\v@lXa\s@mme\divide\v@lYa\s@mme\divide\v@lZa\s@mme%
           \multiply\v@lXa\c@ef\multiply\v@lYa\c@ef\multiply\v@lZa\c@ef%
           \advance\v@lX\v@lXa\advance\v@lY\v@lYa\advance\v@lZ\v@lZa}%
    \Figp@intregTD#1:{#2}(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figptbaryR#1:#2[#3;#4]{\ifps@cri{%
    \v@leur=\z@\@ecfor\c@ef:=#4\do{\maxim@m{\v@lmax}{\c@ef pt}{-\c@ef pt}%
    \ifdim\v@lmax>\v@leur\v@leur=\v@lmax\fi}%
    \ifdim\v@leur<\p@\f@ctech=\@M\else\ifdim\v@leur<\t@n\p@\f@ctech=\@m\else%
    \ifdim\v@leur<\c@nt\p@\f@ctech=\c@nt\else\ifdim\v@leur<\@m\p@\f@ctech=\t@n\else%
    \f@ctech=\@ne\fi\fi\fi\fi%
    \def\listec@ef{0}%
    \@ecfor\c@ef:=#4\do{\sc@lec@nvRI{\c@ef pt}\edef\listec@ef{\listec@ef,\the\s@mme}}%
    \extrairelepremi@r\c@ef\de\listec@ef\figptbary#1:#2[#3;\listec@ef]}\ignorespaces\fi}
\def\sc@lec@nvRI#1{\v@leur=#1\p@rtentiere{\s@mme}{\v@leur}\advance\v@leur-\s@mme\p@%
    \multiply\v@leur\f@ctech\p@rtentiere{\p@rtent}{\v@leur}%
    \multiply\s@mme\f@ctech\advance\s@mme\p@rtent}
\def\figptcircDD#1:#2:#3;#4(#5){\ifps@cri{\s@uvc@ntr@l\et@tfigptcircDD%
    \c@lptellDD#1:{#2}:#3;#4,#4(#5)\resetc@ntr@l\et@tfigptcircDD}\ignorespaces\fi}
\def\figptcircTD#1:#2:#3,#4,#5;#6(#7){\ifps@cri{\s@uvc@ntr@l\et@tfigptcircTD%
    \setc@ntr@l{2}\c@lExtAxes#3,#4,#5(#6)\figptellP#1:{#2}:#3,-4,-5(#7)%
    \resetc@ntr@l\et@tfigptcircTD}\ignorespaces\fi}
\def\figptcircumcenterDD#1:#2[#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptcircumcenterDD%
    \setc@ntr@l{2}\figvectNDD-5[#3,#4]\figptbaryDD-3:[#3,#4;1,1]%
                  \figvectNDD-6[#4,#5]\figptbaryDD-4:[#4,#5;1,1]%
    \resetc@ntr@l{2}\inters@cDD#1:{#2}[-3,-5;-4,-6]%
    \resetc@ntr@l\et@tfigptcircumcenterDD}\ignorespaces\fi}
\def\figptcircumcenterTD#1:#2[#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptcircumcenterTD%
    \setc@ntr@l{2}\figvectNTD-1[#3,#4,#5]%
    \figvectPTD-3[#3,#4]\figvectNVTD-5[-1,-3]\figptbaryTD-3:[#3,#4;1,1]%
    \figvectPTD-4[#4,#5]\figvectNVTD-6[-1,-4]\figptbaryTD-4:[#4,#5;1,1]%
    \resetc@ntr@l{2}\inters@cTD#1:{#2}[-3,-5;-4,-6]%
    \resetc@ntr@l\et@tfigptcircumcenterTD}\ignorespaces\fi}
\def\figptcopyDD#1:#2/#3/{\ifps@cri{\Figg@tXY{#3}%
    \Figp@intregDD#1:{#2}(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figptcopyTD#1:#2/#3/{\ifps@cri{\Figg@tXY{#3}%
    \Figp@intregTD#1:{#2}(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figptcurvcenterDD#1:#2:#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigptcurvcenterDD%
    \setc@ntr@l{2}\c@lcurvradDD#3[#4,#5,#6,#7]\edef\Sprim@{\repdecn@mb{\result@t}}%
    \figptBezierDD-1::#3[#4,#5,#6,#7]\figpttraDD#1:{#2}=-1/\Sprim@,-5/%
    \resetc@ntr@l\et@tfigptcurvcenterDD}\ignorespaces\fi}
\def\figptcurvcenterTD#1:#2:#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigptcurvcenterTD%
    \setc@ntr@l{2}\figvectDBezierTD -5:1,#3[#4,#5,#6,#7]%
    \figvectDBezierTD -6:2,#3[#4,#5,#6,#7]\vecunit@TD{-5}{-5}%
    \edef\Sprim@{\repdecn@mb{\result@t}}\figvectNVTD-1[-6,-5]%
    \figvectNVTD-5[-5,-1]\c@lproscalTD\v@leur[-6,-5]%
    \invers@{\v@leur}{\v@leur}\v@leur=\Sprim@\v@leur\v@leur=\Sprim@\v@leur%
    \figptBezierTD-1::#3[#4,#5,#6,#7]\edef\Sprim@{\repdecn@mb{\v@leur}}%
    \figpttraTD#1:{#2}=-1/\Sprim@,-5/\resetc@ntr@l\et@tfigptcurvcenterTD}\ignorespaces\fi}
\def\c@lcurvradDD#1[#2,#3,#4,#5]{{\figvectDBezierDD -5:1,#1[#2,#3,#4,#5]%
    \figvectDBezierDD -6:2,#1[#2,#3,#4,#5]\vecunit@DD{-5}{-5}%
    \edef\Sprim@{\repdecn@mb{\result@t}}\figvectNVDD-5[-5]\c@lproscalDD\v@leur[-6,-5]%
    \invers@{\v@leur}{\v@leur}\v@leur=\Sprim@\v@leur\v@leur=\Sprim@\v@leur%
    \global\result@t=\v@leur}}
\def\figptellDD#1:#2:#3;#4,#5(#6,#7){\ifps@cri{\s@uvc@ntr@l\et@tfigptell%
    \c@lptellDD#1::#3;#4,#5(#6)\figptrotDD#1:{#2}=#1/#3,#7/%
    \resetc@ntr@l\et@tfigptell}\ignorespaces\fi}
\def\c@lptellDD#1:#2:#3;#4,#5(#6){\c@ssin{\C@}{\S@}{#6}\v@lmin=\C@ pt\v@lmax=\S@ pt%
    \v@lmin=#4\v@lmin\v@lmax=#5\v@lmax%
    \edef\Xc@mp{\repdecn@mb{\v@lmin}}\edef\Yc@mp{\repdecn@mb{\v@lmax}}%
    \setc@ntr@l{2}\figvectC-1(\Xc@mp,\Yc@mp)\figpttraDD#1:{#2}=#3/1,-1/}
\def\figptellP#1:#2:#3,#4,#5(#6){\ifps@cri{\s@uvc@ntr@l\et@tfigptellP%
    \setc@ntr@l{2}\figvectP-1[#3,#4]\figvectP-2[#3,#5]%
    \v@leur=#6pt\c@lptellP{#3}{-1}{-2}\figptcopy#1:{#2}/-3/%
    \resetc@ntr@l\et@tfigptellP}\ignorespaces\fi}
\def\c@lptellP#1#2#3{\edef\@ngle{\repdecn@mb\v@leur}\c@ssin{\C@}{\S@}{\@ngle}%
    \figpttra-3:=#1/\C@,#2/\figpttra-3:=-3/\S@,#3/}
\def\figptendnormalDD#1:#2:#3,#4[#5,#6]{\ifps@cri{\s@uvc@ntr@l\et@tfigptendnormal%
    \Figg@tXYa{#5}\Figg@tXY{#6}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa%
    \setc@ntr@l{2}\Figv@ctCreg-1(\v@lX,\v@lY)\vecunit@{-1}{-1}\Figg@tXY{-1}%
    \delt@=#3\unit@\maxim@m{\delt@}{\delt@}{-\delt@}\edef\l@ngueur{\repdecn@mb{\delt@}}%
    \v@lX=\l@ngueur\v@lX\v@lY=\l@ngueur\v@lY%
    \delt@=\p@\advance\delt@-#4pt\edef\l@ngueur{\repdecn@mb{\delt@}}%
    \figptbaryR-1:[#5,#6;#4,\l@ngueur]\Figg@tXYa{-1}%
    \advance\v@lXa\v@lY\advance\v@lYa-\v@lX%
    \setc@ntr@l{1}\Figp@intregDD#1:{#2}(\v@lXa,\v@lYa)\resetc@ntr@l\et@tfigptendnormal}%
    \ignorespaces\fi}
\def\figptexcenter#1:#2[#3,#4,#5]{\ifps@cri{\let@xte={-}%
    \Figptexinsc@nter#1:#2[#3,#4,#5]}\ignorespaces\fi}
\def\figptincenter#1:#2[#3,#4,#5]{\ifps@cri{\let@xte={}%
    \Figptexinsc@nter#1:#2[#3,#4,#5]}\ignorespaces\fi}
\let\figptinscribedcenter=\figptincenter% pour compatibilite avec anciennes versions
\def\Figptexinsc@nter#1:#2[#3,#4,#5]{%
    \figgetdist\LA@[#4,#5]\figgetdist\LB@[#3,#5]\figgetdist\LC@[#3,#4]%
    \figptbaryR#1:{#2}[#3,#4,#5;\the\let@xte\LA@,\LB@,\LC@]}
\def\figptinterlineplaneTD#1:#2[#3,#4;#5,#6]{\ifps@cri{\s@uvc@ntr@l\et@tfigptinterlineplane%
    \setc@ntr@l{2}\figvectPTD-1[#3,#5]\vecunit@TD{-2}{#6}%
    \r@pPSTD\v@leur[-2,-1,#4]\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD#1:{#2}=#3/\v@lcoef,#4/\resetc@ntr@l\et@tfigptinterlineplane}\ignorespaces\fi}
\def\figptorthocenterDD#1:#2[#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptorthocenterDD%
    \setc@ntr@l{2}\figvectNDD-3[#3,#4]\figvectNDD-4[#4,#5]%
    \resetc@ntr@l{2}\inters@cDD#1:{#2}[#5,-3;#3,-4]%
    \resetc@ntr@l\et@tfigptorthocenterDD}\ignorespaces\fi}
\def\figptorthocenterTD#1:#2[#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptorthocenterTD%
    \setc@ntr@l{2}\figvectNTD-1[#3,#4,#5]%
    \figvectPTD-2[#3,#4]\figvectNVTD-3[-1,-2]%
    \figvectPTD-2[#4,#5]\figvectNVTD-4[-1,-2]%
    \resetc@ntr@l{2}\inters@cTD#1:{#2}[#5,-3;#3,-4]%
    \resetc@ntr@l\et@tfigptorthocenterTD}\ignorespaces\fi}
\def\figptorthoprojlineDD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptorthoprojlineDD%
    \setc@ntr@l{2}\figvectPDD-3[#4,#5]\figvectNVDD-4[-3]\resetc@ntr@l{2}%
    \inters@cDD#1:{#2}[#3,-4;#4,-3]\resetc@ntr@l\et@tfigptorthoprojlineDD}\ignorespaces\fi}
\def\figptorthoprojlineTD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptorthoprojlineTD%
    \setc@ntr@l{2}\figvectPTD-1[#4,#3]\figvectPTD-2[#4,#5]\vecunit@TD{-2}{-2}%
    \c@lproscalTD\v@leur[-1,-2]\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD#1:{#2}=#4/\v@lcoef,-2/\resetc@ntr@l\et@tfigptorthoprojlineTD}\ignorespaces\fi}
\def\figptorthoprojplaneTD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptorthoprojplane%
    \setc@ntr@l{2}\figvectPTD-1[#3,#4]\vecunit@TD{-2}{#5}%
    \c@lproscalTD\v@leur[-1,-2]\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD#1:{#2}=#3/\v@lcoef,-2/\resetc@ntr@l\et@tfigptorthoprojplane}\ignorespaces\fi}
\def\figpthom#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigpthom%
    \setc@ntr@l{2}\figvectP-1[#4,#3]\figpttra#1:{#2}=#4/#5,-1/%
    \resetc@ntr@l\et@tfigpthom}\ignorespaces\fi}
\def\figptrotDD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptrotDD%
    \c@ssin{\C@}{\S@}{#5}\setc@ntr@l{2}\figvectPDD-1[#4,#3]\Figg@tXY{-1}%
    \v@lXa=\C@\v@lX\advance\v@lXa-\S@\v@lY%
    \v@lYa=\S@\v@lX\advance\v@lYa\C@\v@lY%
    \Figv@ctCreg-1(\v@lXa,\v@lYa)\figpttraDD#1:{#2}=#4/1,-1/%
    \resetc@ntr@l\et@tfigptrotDD}\ignorespaces\fi}
\def\figptrotTD#1:#2=#3/#4,#5,#6/{\ifps@cri{\s@uvc@ntr@l\et@tfigptrotTD%
    \c@ssin{\C@}{\S@}{#5}%
    \setc@ntr@l{2}\figptorthoprojplaneTD-3:=#4/#3,#6/\figvectPTD-2[-3,#3]%
    \n@rmeucTD\v@leur{-2}\ifdim\v@leur<\Cepsil@n\Figg@tXYa{#3}\else%
    \edef\v@lcoef{\repdecn@mb{\v@leur}}\figvectNVTD-1[#6,-2]%
    \Figg@tXYa{-1}\v@lXa=\v@lcoef\v@lXa\v@lYa=\v@lcoef\v@lYa\v@lZa=\v@lcoef\v@lZa%
    \v@lXa=\S@\v@lXa\v@lYa=\S@\v@lYa\v@lZa=\S@\v@lZa\Figg@tXY{-2}%
    \advance\v@lXa\C@\v@lX\advance\v@lYa\C@\v@lY\advance\v@lZa\C@\v@lZ%
    \Figg@tXY{-3}\advance\v@lXa\v@lX\advance\v@lYa\v@lY\advance\v@lZa\v@lZ\fi%
    \Figp@intregTD#1:{#2}(\v@lXa,\v@lYa,\v@lZa)\resetc@ntr@l\et@tfigptrotTD}\ignorespaces\fi}
\def\figptsymDD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsymDD%
    \resetc@ntr@l{2}\figptorthoprojlineDD-5:=#3/#4,#5/\figvectPDD-2[#3,-5]%
    \figpttraDD#1:{#2}=#3/2,-2/\resetc@ntr@l\et@tfigptsymDD}\ignorespaces\fi}
\def\figptsymTD#1:#2=#3/#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsymTD%
    \resetc@ntr@l{2}\figptorthoprojplaneTD-3:=#3/#4,#5/\figvectPTD-2[#3,-3]%
    \figpttraTD#1:{#2}=#3/2,-2/\resetc@ntr@l\et@tfigptsymTD}\ignorespaces\fi}
\def\figpttraDD#1:#2=#3/#4,#5/{\ifps@cri{\Figg@tXYa{#5}\v@lXa=#4\v@lXa\v@lYa=#4\v@lYa%
    \Figg@tXY{#3}\advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \Figp@intregDD#1:{#2}(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figpttraTD#1:#2=#3/#4,#5/{\ifps@cri{\Figg@tXYa{#5}\v@lXa=#4\v@lXa\v@lYa=#4\v@lYa%
    \v@lZa=#4\v@lZa\Figg@tXY{#3}\advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \advance\v@lZ\v@lZa\Figp@intregTD#1:{#2}(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figpttraCDD#1:#2=#3/#4,#5/{\ifps@cri{\v@lXa=#4\unit@\v@lYa=#5\unit@%
    \Figg@tXY{#3}\advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \Figp@intregDD#1:{#2}(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figpttraCTD#1:#2=#3/#4,#5,#6/{\ifps@cri{\v@lXa=#4\unit@\v@lYa=#5\unit@\v@lZa=#6\unit@%
    \Figg@tXY{#3}\advance\v@lX\v@lXa\advance\v@lY\v@lYa\advance\v@lZ\v@lZa%
    \Figp@intregTD#1:{#2}(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figptsaxes#1:#2(#3){\ifps@cri{\an@lys@xes#3,:\ifx\t@xt@\empty%
    \ifTr@isDim\Figpts@xes#1:#2(0,#3,0,#3,0,#3)\else\Figpts@xes#1:#2(0,#3,0,#3)\fi%
    \else\Figpts@xes#1:#2(#3)\fi}\ignorespaces\fi}
\def\Figpts@xesDD#1:#2(#3,#4,#5,#6){%
    \s@mme=#1\figpttraC\the\s@mme:$x$=#2/#4,0/%
    \advance\s@mme\@ne\figpttraC\the\s@mme:$y$=#2/0,#6/}
\def\Figpts@xesTD#1:#2(#3,#4,#5,#6,#7,#8){%
    \s@mme=#1\figpttraC\the\s@mme:$x$=#2/#4,0,0/%
    \advance\s@mme\@ne\figpttraC\the\s@mme:$y$=#2/0,#6,0/%
    \advance\s@mme\@ne\figpttraC\the\s@mme:$z$=#2/0,0,#8/}
\def\figptsmap#1=#2/#3/#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsmap%
    \setc@ntr@l{2}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\figvectP-1[#3,\p@int]\Figg@tXY{-1}%
    \pr@dMatV/#4/\figpttra\the\s@mme:=#3/1,-1/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptsmap}\ignorespaces\fi}
\def\figptscontrolDD#1[#2,#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptscontrolDD%
    \setc@ntr@l{2}\figptcopyDD-2:/#2/\s@mme=#1\advance\s@mme\@ne%
    \Figg@tXY{-2}\v@lX=8\v@lX\v@lY=8\v@lY\Figp@intregDD-1:(\v@lX,\v@lY)%
    \figpttraDD-1:=-1/-27,#3/\figpttraDD-1:=-1/1,#5/%
    \figpttraDD-2:=-2/-27,#4/\figpttraDD-2:=-2/8,#5/%
    \c@lptCtrlDD#1[-2,-1]\c@lptCtrlDD\the\s@mme[-1,-2]%
    \resetc@ntr@l\et@tfigptscontrolDD}\ignorespaces\fi}
\def\figptscontrolTD#1[#2,#3,#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptscontrolTD%
    \setc@ntr@l{2}\figptcopyTD-2:/#2/\s@mme=#1\advance\s@mme\@ne%
    \Figg@tXY{-2}\v@lX=8\v@lX\v@lY=8\v@lY\v@lZ=8\v@lZ\Figp@intregTD-1:(\v@lX,\v@lY,\v@lZ)%
    \figpttraTD-1:=-1/-27,#3/\figpttraTD-1:=-1/1,#5/%
    \figpttraTD-2:=-2/-27,#4/\figpttraTD-2:=-2/8,#5/%
    \c@lptCtrlTD#1[-2,-1]\c@lptCtrlTD\the\s@mme[-1,-2]%
    \resetc@ntr@l\et@tfigptscontrolTD}\ignorespaces\fi}
\def\figptscontrolcurve#1,#2[#3]{\ifps@cri{\s@uvc@ntr@l\et@tfigptscontrolcurve%
    \def\list@num{#3}\extrairelepremi@r\Ak@\de\list@num%
    \extrairelepremi@r\Ai@\de\list@num\extrairelepremi@r\Aj@\de\list@num%
    \s@mme=#1\figptcopy\the\s@mme:/\Ai@/%
    \setc@ntr@l{2}\figvectP -1[\Ak@,\Aj@]%
    \@ecfor\Ak@:=\list@num\do{\advance\s@mme\@ne\figpttra\the\s@mme:=\Ai@/\curv@roundness,-1/%
       \figvectP -1[\Ai@,\Ak@]\advance\s@mme\@ne\figpttra\the\s@mme:=\Aj@/-\curv@roundness,-1/%
       \advance\s@mme\@ne\figptcopy\the\s@mme:/\Aj@/%
       \edef\Ai@{\Aj@}\edef\Aj@{\Ak@}}\advance\s@mme-#1\divide\s@mme\thr@@%
       \xdef#2{\the\s@mme}%
    \resetc@ntr@l\et@tfigptscontrolcurve}\ignorespaces\fi}
\def\figptsintercircDD#1[#2,#3;#4,#5]{\ifps@cri{\s@uvc@ntr@l\et@tfigptsintercircDD%
    \setc@ntr@l{2}\let\c@lNVintc=\c@lNVintcDD\Figptsintercirc@#1[#2,#3;#4,#5]%    
    \resetc@ntr@l\et@tfigptsintercircDD}\ignorespaces\fi}
\def\figptsintercircTD#1[#2,#3;#4,#5;#6]{\ifps@cri{\s@uvc@ntr@l\et@tfigptsintercircTD%
    \setc@ntr@l{2}\let\c@lNVintc=\c@lNVintcTD\vecunitC@TD[#2,#6]%
    \Figv@ctCreg-3(\v@lX,\v@lY,\v@lZ)\Figptsintercirc@#1[#2,#3;#4,#5]%
    \resetc@ntr@l\et@tfigptsintercircTD}\ignorespaces\fi}
\def\Figptsintercirc@#1[#2,#3;#4,#5]{\figvectP-1[#2,#4]%
    \vecunit@{-1}{-1}\delt@=\result@t\f@ctech=\result@tent%
    \s@mme=#1\advance\s@mme\@ne\figptcopy#1:/#2/\figptcopy\the\s@mme:/#4/%
    \ifdim\delt@=\z@\else%
    \v@lmin=#3\unit@\v@lmax=#5\unit@\v@leur=\v@lmin\advance\v@leur\v@lmax%
    \ifdim\v@leur>\delt@%
    \v@leur=\v@lmin\advance\v@leur-\v@lmax\maxim@m{\v@leur}{\v@leur}{-\v@leur}%
    \ifdim\v@leur<\delt@%
    \divide\v@lmin\f@ctech\divide\v@lmax\f@ctech\divide\delt@\f@ctech%
    \v@lmin=\repdecn@mb{\v@lmin}\v@lmin\v@lmax=\repdecn@mb{\v@lmax}\v@lmax%
    \invers@{\v@leur}{\delt@}\advance\v@lmax-\v@lmin%
    \v@lmax=-\repdecn@mb{\v@leur}\v@lmax\advance\delt@\v@lmax\delt@=.5\delt@%
    \v@lmax=\delt@\multiply\v@lmax\f@ctech%
    \edef\t@ille{\repdecn@mb{\v@lmax}}\figpttra-2:=#2/\t@ille,-1/%
    \delt@=\repdecn@mb{\delt@}\delt@\advance\v@lmin-\delt@%
    \sqrt@{\v@leur}{\v@lmin}\multiply\v@leur\f@ctech\edef\t@ille{\repdecn@mb{\v@leur}}%
    \c@lNVintc\figpttra#1:=-2/-\t@ille,-1/\figpttra\the\s@mme:=-2/\t@ille,-1/\fi\fi\fi}
\def\c@lNVintcDD{\Figg@tXY{-1}\Figv@ctCreg-1(-\v@lY,\v@lX)} % <=> \figvectNVDD-1[-1]
\def\c@lNVintcTD{{\Figg@tXY{-3}\v@lmin=\v@lX\v@lmax=\v@lY\v@leur=\v@lZ%
    \Figg@tXY{-1}\c@lprovec{-3}\vecunit@{-3}{-3}% <=> \figvectNVTD-3[-1,-3]\vecunit@{-3}{-3}
    \Figg@tXY{-1}\v@lmin=\v@lX\v@lmax=\v@lY%
    \v@leur=\v@lZ\Figg@tXY{-3}\c@lprovec{-1}}} % <=> \figvectNVTD-1[-3,-1]
\def\figptsinterlinellDD#1[#2,#3,#4,#5;#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigptsinterlinellDD%
    \figptcopy#1:/#6/\s@mme=#1\advance\s@mme\@ne\figptcopy\the\s@mme:/#7/%
    \v@lmin=#3\unit@\v@lmax=#4\unit@% a, b
    \setc@ntr@l{2}\figptbaryDD-4:[#6,#7;1,1]\figptsrotDD-3=-4,#7/#2,-#5/% D et rotation
    \Figg@tXY{-3}\Figg@tXYa{#2}\advance\v@lX-\v@lXa\advance\v@lY-\v@lYa% alpha, beta
    \figvectP-1[-3,-2]\Figg@tXYa{-1}\figvectP-3[-4,#7]\Figptsint@rLE{#1}% u1, u2
    \resetc@ntr@l\et@tfigptsinterlinellDD}\ignorespaces\fi}
\def\figptsinterlinellP#1[#2,#3,#4;#5,#6]{\ifps@cri{\s@uvc@ntr@l\et@tfigptsinterlinellP%
    \figptcopy#1:/#5/\s@mme=#1\advance\s@mme\@ne\figptcopy\the\s@mme:/#6/\setc@ntr@l{2}%
    \figvectP-1[#2,#3]\vecunit@{-1}{-1}\v@lmin=\result@t% a
    \figvectP-2[#2,#4]\vecunit@{-2}{-2}\v@lmax=\result@t% b
    \figptbary-4:[#5,#6;1,1]% D
    \figvectP-3[#2,-4]\c@lproscal\v@lX[-3,-1]\c@lproscal\v@lY[-3,-2]% alpha, beta
    \figvectP-3[-4,#6]\c@lproscal\v@lXa[-3,-1]\c@lproscal\v@lYa[-3,-2]% u1, u2
    \Figptsint@rLE{#1}\resetc@ntr@l\et@tfigptsinterlinellP}\ignorespaces\fi}
\def\Figptsint@rLE#1{%
    \getredf@ctDD\f@ctech(\v@lmin,\v@lmax)%
    \getredf@ctDD\p@rtent(\v@lX,\v@lY)\ifnum\p@rtent>\f@ctech\f@ctech=\p@rtent\fi%
    \getredf@ctDD\p@rtent(\v@lXa,\v@lYa)\ifnum\p@rtent>\f@ctech\f@ctech=\p@rtent\fi%
    \divide\v@lmin\f@ctech\divide\v@lmax\f@ctech\divide\v@lX\f@ctech\divide\v@lY\f@ctech%
    \divide\v@lXa\f@ctech\divide\v@lYa\f@ctech%
    \c@rre=\repdecn@mb\v@lXa\v@lmax\mili@u=\repdecn@mb\v@lYa\v@lmin%
    \getredf@ctDD\f@ctech(\c@rre,\mili@u)%
    \c@rre=\repdecn@mb\v@lX\v@lmax\mili@u=\repdecn@mb\v@lY\v@lmin%
    \getredf@ctDD\p@rtent(\c@rre,\mili@u)\ifnum\p@rtent>\f@ctech\f@ctech=\p@rtent\fi%
    \divide\v@lmin\f@ctech\divide\v@lmax\f@ctech\divide\v@lX\f@ctech\divide\v@lY\f@ctech%
    \divide\v@lXa\f@ctech\divide\v@lYa\f@ctech%
    \v@lmin=\repdecn@mb{\v@lmin}\v@lmin\v@lmax=\repdecn@mb{\v@lmax}\v@lmax%
    \edef\G@xde{\repdecn@mb\v@lmin}\edef\P@xde{\repdecn@mb\v@lmax}%
    \c@rre=-\v@lmax\v@leur=\repdecn@mb\v@lY\v@lY\advance\c@rre\v@leur\c@rre=\G@xde\c@rre%
    \v@leur=\repdecn@mb\v@lX\v@lX\v@leur=\P@xde\v@leur\advance\c@rre\v@leur% C
    \v@lmin=\repdecn@mb\v@lYa\v@lmin\v@lmax=\repdecn@mb\v@lXa\v@lmax%
    \mili@u=\repdecn@mb\v@lX\v@lmax\advance\mili@u\repdecn@mb\v@lY\v@lmin% B
    \v@lmax=\repdecn@mb\v@lXa\v@lmax\advance\v@lmax\repdecn@mb\v@lYa\v@lmin% A
    \ifdim\v@lmax>\epsil@n%
    \maxim@m{\v@leur}{\c@rre}{-\c@rre}\maxim@m{\v@lmin}{\mili@u}{-\mili@u}%
    \maxim@m{\v@leur}{\v@leur}{\v@lmin}\maxim@m{\v@lmin}{\v@lmax}{-\v@lmax}%
    \maxim@m{\v@leur}{\v@leur}{\v@lmin}\p@rtentiere{\p@rtent}{\v@leur}\advance\p@rtent\@ne%
    \divide\c@rre\p@rtent\divide\mili@u\p@rtent\divide\v@lmax\p@rtent%
    \delt@=\repdecn@mb{\mili@u}\mili@u\v@leur=\repdecn@mb{\v@lmax}\c@rre%
    \advance\delt@-\v@leur\ifdim\delt@<\z@\else\sqrt@\delt@\delt@%
    \invers@\v@lmax\v@lmax\edef\Uns@rAp{\repdecn@mb\v@lmax}%
    \v@leur=-\mili@u\advance\v@leur-\delt@\v@leur=\Uns@rAp\v@leur%
    \edef\t@ille{\repdecn@mb\v@leur}\figpttra#1:=-4/\t@ille,-3/\s@mme=#1\advance\s@mme\@ne%
    \v@leur=-\mili@u\advance\v@leur\delt@\v@leur=\Uns@rAp\v@leur%
    \edef\t@ille{\repdecn@mb\v@leur}\figpttra\the\s@mme:=-4/\t@ille,-3/\fi\fi}
\def\figptsorthoprojlineDD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsorthoprojlineDD%
    \setc@ntr@l{2}\figvectPDD-3[#3,#4]\figvectNVDD-4[-3]\resetc@ntr@l{2}%
    \def\list@num{#2}\s@mme=#1\@ecfor\p@int:=\list@num\do{%
    \inters@cDD\the\s@mme:[\p@int,-4;#3,-3]\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptsorthoprojlineDD}\ignorespaces\fi}
\def\figptsorthoprojlineTD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsorthoprojlineTD%
    \setc@ntr@l{2}\figvectPTD-2[#3,#4]\vecunit@TD{-2}{-2}%
    \def\list@num{#2}\s@mme=#1\@ecfor\p@int:=\list@num\do{%
    \figvectPTD-1[#3,\p@int]\c@lproscalTD\v@leur[-1,-2]%
    \edef\v@lcoef{\repdecn@mb{\v@leur}}\figpttraTD\the\s@mme:=#3/\v@lcoef,-2/%
    \advance\s@mme\@ne}\resetc@ntr@l\et@tfigptsorthoprojlineTD}\ignorespaces\fi}
\def\figptsorthoprojplaneTD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsorthoprojplane%
    \setc@ntr@l{2}\vecunit@TD{-2}{#4}%
    \def\list@num{#2}\s@mme=#1\@ecfor\p@int:=\list@num\do{\figvectPTD-1[\p@int,#3]%
    \c@lproscalTD\v@leur[-1,-2]\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD\the\s@mme:=\p@int/\v@lcoef,-2/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptsorthoprojplane}\ignorespaces\fi}
\def\figptshom#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptshom%
    \setc@ntr@l{2}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\figvectP-1[#3,\p@int]%
    \figpttra\the\s@mme:=#3/#4,-1/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptshom}\ignorespaces\fi}
\def\figptsrotDD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsrotDD%
    \c@ssin{\C@}{\S@}{#4}\setc@ntr@l{2}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\figvectPDD-1[#3,\p@int]\Figg@tXY{-1}%
    \v@lXa=\C@\v@lX\advance\v@lXa-\S@\v@lY%
    \v@lYa=\S@\v@lX\advance\v@lYa\C@\v@lY%
    \Figv@ctCreg-1(\v@lXa,\v@lYa)\figpttraDD\the\s@mme:=#3/1,-1/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptsrotDD}\ignorespaces\fi}
\def\figptsrotTD#1=#2/#3,#4,#5/{\ifps@cri{\s@uvc@ntr@l\et@tfigptsrotTD%
    \c@ssin{\C@}{\S@}{#4}%
    \setc@ntr@l{2}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\figptorthoprojplaneTD-3:=#3/\p@int,#5/%
    \figvectPTD-2[-3,\p@int]%
    \figvectNVTD-1[#5,-2]\n@rmeucTD\v@leur{-2}\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \Figg@tXYa{-1}\v@lXa=\v@lcoef\v@lXa\v@lYa=\v@lcoef\v@lYa\v@lZa=\v@lcoef\v@lZa%
    \v@lXa=\S@\v@lXa\v@lYa=\S@\v@lYa\v@lZa=\S@\v@lZa\Figg@tXY{-2}%
    \advance\v@lXa\C@\v@lX\advance\v@lYa\C@\v@lY\advance\v@lZa\C@\v@lZ%
    \Figg@tXY{-3}\advance\v@lXa\v@lX\advance\v@lYa\v@lY\advance\v@lZa\v@lZ%
    \Figp@intregTD\the\s@mme:(\v@lXa,\v@lYa,\v@lZa)\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptsrotTD}\ignorespaces\fi}
\def\figptssymDD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptssymDD%
    \setc@ntr@l{2}\figvectPDD-3[#3,#4]\Figg@tXY{-3}\Figv@ctCreg-4(-\v@lY,\v@lX)%
    \resetc@ntr@l{2}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\inters@cDD-5:[#3,-3;\p@int,-4]\figvectPDD-2[\p@int,-5]%
    \figpttraDD\the\s@mme:=\p@int/2,-2/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptssymDD}\ignorespaces\fi}
\def\figptssymTD#1=#2/#3,#4/{\ifps@cri{\s@uvc@ntr@l\et@tfigptssymTD%
    \setc@ntr@l{2}\vecunit@TD{-2}{#4}\def\list@num{#2}\s@mme=#1%
    \@ecfor\p@int:=\list@num\do{\figvectPTD-1[\p@int,#3]%
    \c@lproscalTD\v@leur[-1,-2]\v@leur=2\v@leur\edef\v@lcoef{\repdecn@mb{\v@leur}}%
    \figpttraTD\the\s@mme:=\p@int/\v@lcoef,-2/\advance\s@mme\@ne}%
    \resetc@ntr@l\et@tfigptssymTD}\ignorespaces\fi}
\def\figptstraDD#1=#2/#3,#4/{\ifps@cri{\Figg@tXYa{#4}\v@lXa=#3\v@lXa\v@lYa=#3\v@lYa%
    \def\list@num{#2}\s@mme=#1\@ecfor\p@int:=\list@num\do{\Figg@tXY{\p@int}%
    \advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \Figp@intregDD\the\s@mme:(\v@lX,\v@lY)\advance\s@mme\@ne}}\ignorespaces\fi}
\def\figptstraTD#1=#2/#3,#4/{\ifps@cri{\Figg@tXYa{#4}\v@lXa=#3\v@lXa\v@lYa=#3\v@lYa%
    \v@lZa=#3\v@lZa\def\list@num{#2}\s@mme=#1\@ecfor\p@int:=\list@num\do{\Figg@tXY{\p@int}%
    \advance\v@lX\v@lXa\advance\v@lY\v@lYa\advance\v@lZ\v@lZa%
    \Figp@intregTD\the\s@mme:(\v@lX,\v@lY,\v@lZ)\advance\s@mme\@ne}}\ignorespaces\fi}
\def\figptvisilimSLTD#1:#2[#3,#4;#5,#6]{\ifps@cri{\s@uvc@ntr@l\et@tfigptvisilimSLTD%
    \setc@ntr@l{2}\figvectP-1[#3,#4]\n@rminf{\delt@}{-1}%
    \ifcase\curr@ntproj\v@lX=\cxa@\p@\v@lY=-\p@\v@lZ=\cxb@\p@% Proj cav
    \Figv@ctCreg-2(\v@lX,\v@lY,\v@lZ)\figvectP-3[#5,#6]\figvectNV-1[-2,-3]%
    \or\figvectP-1[#5,#6]\vecunitCV@TD{-1}\v@lmin=\v@lX\v@lmax=\v@lY% Proj ortho
    \v@leur=\v@lZ\v@lX=\cza@\p@\v@lY=\czb@\p@\v@lZ=\czc@\p@\c@lprovec{-1}%
    \or\c@ley@pt{-2}\figvectN-1[#5,#6,-2]\fi% Proj rea
    \edef\Ai@{#3}\edef\Aj@{#4}\figvectP-2[#5,\Ai@]\c@lproscal\v@leur[-1,-2]%
    \ifdim\v@leur>\z@\p@rtent=\@ne\else\p@rtent=\m@ne\fi%
    \figvectP-2[#5,\Aj@]\c@lproscal\v@leur[-1,-2]%
    \ifdim\p@rtent\v@leur>\z@\figptcopy#1:#2/#3/%
    \message{*** \BS@ figptvisilimSL: points are on the same side.}\else%
    \figptcopy-3:/#3/\figptcopy-4:/#4/%
    \loop\figptbary-5:[-3,-4;1,1]\figvectP-2[#5,-5]\c@lproscal\v@leur[-1,-2]%
    \ifdim\p@rtent\v@leur>\z@\figptcopy-3:/-5/\else\figptcopy-4:/-5/\fi%
    \divide\delt@\tw@\ifdim\delt@>\epsil@n\repeat%
    \figptbary#1:#2[-3,-4;1,1]\fi\resetc@ntr@l\et@tfigptvisilimSLTD}\ignorespaces\fi}
\def\c@ley@pt#1{\t@stp@r\ifitis@K\v@lX=\cza@\p@\v@lY=\czb@\p@\v@lZ=\czc@\p@%
    \Figv@ctCreg-1(\v@lX,\v@lY,\v@lZ)\Figp@intreg-2:(\wd\Bt@rget,\ht\Bt@rget,\dp\Bt@rget)%
    \figpttra#1:=-2/-\disob@intern,-1/\else\end\fi}
\def\t@stp@r{\itis@Ktrue\ifnewt@rgetpt\else\itis@Kfalse%
    \message{*** \BS@ figptvisilimXX: target point undefined.}\fi\ifnewdis@b\else%
    \itis@Kfalse\message{*** \BS@ figptvisilimXX: observation distance undefined.}\fi%
    \ifitis@K\else\message{*** This macro must be called after \BS@ psbeginfig or after
    having set the missing parameter(s) with \BS@ figset proj()}\fi}
\def\figscan#1(#2,#3){{\s@uvc@ntr@l\et@tfigscan\@psfgetbb{#1}\if@psfbbfound\else%
    \def\@psfllx{0}\def\@psflly{20}\def\@psfurx{540}\def\@psfury{640}\fi%
    \unit@=\@ne bp\setc@ntr@l{2}\figsetmark{}%
    \def\minst@p{20pt}%
    \v@lX=\@psfllx\p@\v@lX=\Sc@leFact\v@lX\r@undint\v@lX\v@lX%
    \v@lY=\@psflly\p@\v@lY=\Sc@leFact\v@lY\ifdim\v@lY>\z@\r@undint\v@lY\v@lY\fi%
    \delt@=\@psfury\p@\delt@=\Sc@leFact\delt@%
    \advance\delt@-\v@lY\v@lXa=\@psfurx\p@\v@lXa=\Sc@leFact\v@lXa\v@leur=\minst@p%
    \edef\valv@lY{\repdecn@mb{\v@lY}}\edef\LgTr@it{\the\delt@}%
    \loop\ifdim\v@lX<\v@lXa\edef\valv@lX{\repdecn@mb{\v@lX}}%
    \figptDD -1:(\valv@lX,\valv@lY)\figwriten -1:\hbox{\vrule height\LgTr@it}(0)%
    \ifdim\v@leur<\minst@p\else\figsetmark{\raise-8bp\hbox{$\scriptscriptstyle\triangle$}}%
    \figwrites -1:\@ffichnb{0}{\valv@lX}(6)\v@leur=\z@\figsetmark{}\fi%
    \advance\v@leur#2pt\advance\v@lX#2pt\repeat%
    \def\minst@p{10pt}%
    \v@lX=\@psfllx\p@\v@lX=\Sc@leFact\v@lX\ifdim\v@lX>\z@\r@undint\v@lX\v@lX\fi%
    \v@lY=\@psflly\p@\v@lY=\Sc@leFact\v@lY\r@undint\v@lY\v@lY%
    \delt@=\@psfurx\p@\delt@=\Sc@leFact\delt@%
    \advance\delt@-\v@lX\v@lYa=\@psfury\p@\v@lYa=\Sc@leFact\v@lYa\v@leur=\minst@p%
    \edef\valv@lX{\repdecn@mb{\v@lX}}\edef\LgTr@it{\the\delt@}%
    \loop\ifdim\v@lY<\v@lYa\edef\valv@lY{\repdecn@mb{\v@lY}}%
    \figptDD -1:(\valv@lX,\valv@lY)\figwritee -1:\vbox{\hrule width\LgTr@it}(0)%
    \ifdim\v@leur<\minst@p\else\figsetmark{$\triangleright$\kern4bp}%
    \figwritew -1:\@ffichnb{0}{\valv@lY}(6)\v@leur=\z@\figsetmark{}\fi%
    \advance\v@leur#3pt\advance\v@lY#3pt\repeat%
    \resetc@ntr@l\et@tfigscan}\ignorespaces}
\def\figshowpts[#1,#2]{{\figsetmark{$\bullet$}\figsetptname{\bf ##1}%
    \p@rtent=#2\relax\ifnum\p@rtent<\z@\p@rtent=\z@\fi%
    \s@mme=#1\relax\ifnum\s@mme<\z@\s@mme=\z@\fi%
    \loop\ifnum\s@mme<\p@rtent\pt@rvect{\s@mme}%
    \ifitis@K\figwriten{\the\s@mme}:(4pt)\fi\advance\s@mme\@ne\repeat%
    \pt@rvect{\s@mme}\ifitis@K\figwriten{\the\s@mme}:(4pt)\fi}\ignorespaces}
\def\pt@rvect#1{\set@bjc@de{#1}%
    \expandafter\expandafter\expandafter\inqpt@rvec\csname\objc@de\endcsname:}
\def\inqpt@rvec#1#2:{\if#1\C@dCl@spt\itis@Ktrue\else\itis@Kfalse\fi}
\def\figshowsettings{{%
    \immediate\write16{====================================================================}%
    \immediate\write16{ Current settings about:}%
    \immediate\write16{ --- GENERAL ---}%
    \immediate\write16{Scale factor and Unit = \unit@util\space (\the\unit@)
     \space -> \BS@ figinit{ScaleFactorUnit}}%
    \immediate\write16{Update mode = \ifpstestm@de yes\else no\fi
     \space-> \BS@ psset(update=yes/no) or \BS@ pssetdefault(update=yes/no)}%
    \immediate\write16{ --- PRINTING ---}%
    \immediate\write16{Implicit point name = \ptn@me{i} \space-> \BS@ figsetptname{Name}}%
    \immediate\write16{Point marker = \the\c@nsymb \space -> \BS@ figsetmark{Mark}}%
    \immediate\write16{Print rounded coordinates = \ifr@undcoord yes\else no\fi
     \space-> \BS@ figsetroundcoord{yes/no}}%
    \immediate\write16{ --- POSTSCRIPT (general) ---}%
    \immediate\write16{First-level (or primary) settings:}%
    \immediate\write16{ Color = \curr@ntcolor \space-> \BS@ psset(color=ColorDefinition)}%
    \immediate\write16{ Filling mode = \iffillm@de yes\else no\fi
     \space-> \BS@ psset(fillmode=yes/no)}%
    \immediate\write16{ Line join = \curr@ntjoin \space-> \BS@ psset(join=miter/round/bevel)}%
    \immediate\write16{ Line style = \curr@ntdash \space-> \BS@ psset(dash=Index/Pattern)}%
    \immediate\write16{ Line width = \curr@ntwidth
     \space-> \BS@ psset(width=real in PostScript units)}%
    \immediate\write16{Second-level (or secondary) settings:}%
    \immediate\write16{ Color = \sec@ndcolor \space-> \BS@ psset second(color=ColorDefinition)}%
    \immediate\write16{ Line style = \curr@ntseconddash
     \space-> \BS@ psset second(dash=Index/Pattern)}%
    \immediate\write16{ Line width = \curr@ntsecondwidth
     \space-> \BS@ psset second(width=real in PostScript units)}%
    \immediate\write16{Third-level (or ternary) settings:}%
    \immediate\write16{ Color = \th@rdcolor \space-> \BS@ psset third(color=ColorDefinition)}%
    \immediate\write16{ --- POSTSCRIPT (specific) ---}%
    \immediate\write16{Arrow-head:}%
    \immediate\write16{ (half-)Angle = \@rrowheadangle
     \space-> \BS@ psset arrowhead(angle=real in degrees)}%
    \immediate\write16{ Filling mode = \if@rrowhfill yes\else no\fi
     \space-> \BS@ psset arrowhead(fillmode=yes/no)}%
    \immediate\write16{ "Outside" = \if@rrowhout yes\else no\fi
     \space-> \BS@ psset arrowhead(out=yes/no)}%
    \immediate\write16{ Length = \@rrowheadlength
     \if@rrowratio\space(not active)\else\space(active)\fi
     \space-> \BS@ psset arrowhead(length=real in user coord.)}%
    \immediate\write16{ Ratio = \@rrowheadratio
     \if@rrowratio\space(active)\else\space(not active)\fi
     \space-> \BS@ psset arrowhead(ratio=real in [0,1])}%
    \immediate\write16{Curve: Roundness = \curv@roundness
     \space-> \BS@ psset curve(roundness=real in [0,0.5])}%
    \immediate\write16{Mesh: Diagonal = \the\c@ntrolmesh
     \space-> \BS@ psset mesh(diag=integer in {-1,0,1})}%
    \immediate\write16{Flow chart:}%
    \immediate\write16{ Arrow position = \@rrowp@s
     \space-> \BS@ psset flowchart(arrowposition=real in [0,1])}%
    \immediate\write16{ Arrow reference point = \ifcase\@rrowr@fpt start\else end\fi
     \space-> \BS@ psset flowchart(arrowrefpt = start/end)}%     
    \immediate\write16{ Line type = \ifcase\fclin@typ@ curve\else polygon\fi
     \space-> \BS@ psset flowchart(line=polygon/curve)}%
    \immediate\write16{ Padding = (\Xp@dd, \Yp@dd)
     \space-> \BS@ psset flowchart(padding = real in user coord.)}%
    \immediate\write16{\space\space\space\space(or
     \BS@ psset flowchart(xpadding=real, ypadding=real) )}%
    \immediate\write16{ Radius = \fclin@r@d
     \space-> \BS@ psset flowchart(radius=positive real in user coord.)}%
    \immediate\write16{ Shape = \fcsh@pe
     \space-> \BS@ psset flowchart(shape = rectangle, ellipse or lozenge)}%
    \immediate\write16{ Thickness = \thickn@ss
     \space-> \BS@ psset flowchart(thickness = real in user coord.)}%
    \ifTr@isDim%
    \immediate\write16{ --- 3D to 2D PROJECTION ---}%
    \immediate\write16{Projection : \typ@proj \space-> \BS@ figinit{ScaleFactorUnit, ProjType}}%
    \immediate\write16{Longitude (psi) = \v@lPsi \space-> \BS@ figset proj(psi=real in degrees)}%
    \ifcase\curr@ntproj\immediate\write16{Depth coeff. (Lambda)
     \space = \v@lTheta \space-> \BS@ figset proj(lambda=real in [0,1])}%
    \else\immediate\write16{Latitude (theta)
     \space = \v@lTheta \space-> \BS@ figset proj(theta=real in degrees)}%
    \fi%
    \ifnum\curr@ntproj=\tw@%
    \immediate\write16{Observation distance = \disob@unit
     \space-> \BS@ figset proj(dist=real in user coord.)}%
    \immediate\write16{Target point = \t@rgetpt \space-> \BS@ figset proj(targetpt=pt number)}%
     \v@lX=\ptT@unit@\wd\Bt@rget\v@lY=\ptT@unit@\ht\Bt@rget\v@lZ=\ptT@unit@\dp\Bt@rget%
    \immediate\write16{ Its coordinates are
     (\repdecn@mb{\v@lX}, \repdecn@mb{\v@lY}, \repdecn@mb{\v@lZ})}%
    \fi%
    \fi%
    \immediate\write16{====================================================================}%
    \ignorespaces}}
{\catcode`\/=0 \catcode`/\=12 /gdef/BS@{\}}
\newif\ifitis@vect@r
\def\figvectC#1(#2,#3){{\itis@vect@rtrue\figpt#1:(#2,#3)}\ignorespaces}
\def\Figv@ctCreg#1(#2,#3){{\itis@vect@rtrue\Figp@intreg#1:(#2,#3)}\ignorespaces}
\def\figvectDBezierDD#1:#2,#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigvectDBezierDD%
    \FigvectDBezier@#2,#3[#4,#5,#6,#7]\v@lX=\c@ef\v@lX\v@lY=\c@ef\v@lY%
    \Figv@ctCreg#1(\v@lX,\v@lY)\resetc@ntr@l\et@tfigvectDBezierDD}\ignorespaces\fi}
\def\figvectDBezierTD#1:#2,#3[#4,#5,#6,#7]{\ifps@cri{\s@uvc@ntr@l\et@tfigvectDBezierTD%
    \FigvectDBezier@#2,#3[#4,#5,#6,#7]\v@lX=\c@ef\v@lX\v@lY=\c@ef\v@lY\v@lZ=\c@ef\v@lZ%
    \Figv@ctCreg#1(\v@lX,\v@lY,\v@lZ)\resetc@ntr@l\et@tfigvectDBezierTD}\ignorespaces\fi}
\def\FigvectDBezier@#1,#2[#3,#4,#5,#6]{\setc@ntr@l{2}%
    \edef\T@{#2}\v@leur=\p@\advance\v@leur-#2pt\edef\UNmT@{\repdecn@mb{\v@leur}}%
    \ifnum#1=\tw@\def\c@ef{6}\else\def\c@ef{3}\fi%
    \figptcopy-4:/#3/\figptcopy-3:/#4/\figptcopy-2:/#5/\figptcopy-1:/#6/%
    \l@mbd@un=-4 \l@mbd@de=-\thr@@\p@rtent=\m@ne\c@lDecast%
    \ifnum#1=\tw@\c@lDCDeux{-4}{-3}\c@lDCDeux{-3}{-2}\c@lDCDeux{-4}{-3}\else%
    \l@mbd@un=-4 \l@mbd@de=-\thr@@\p@rtent=-\tw@\c@lDecast%
    \c@lDCDeux{-4}{-3}\fi\Figg@tXY{-4}}
\def\c@lDCDeuxDD#1#2{\Figg@tXY{#2}\Figg@tXYa{#1}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa\Figp@intregDD#1:(\v@lX,\v@lY)}
\def\c@lDCDeuxTD#1#2{\Figg@tXY{#2}\Figg@tXYa{#1}\advance\v@lX-\v@lXa%
    \advance\v@lY-\v@lYa\advance\v@lZ-\v@lZa\Figp@intregTD#1:(\v@lX,\v@lY,\v@lZ)}
\def\figvectNDD#1[#2,#3]{\ifps@cri{\Figg@tXYa{#2}\Figg@tXY{#3}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa%
    \Figv@ctCreg#1(-\v@lY,\v@lX)}\ignorespaces\fi}
\def\figvectNTD#1[#2,#3,#4]{\ifps@cri{\vecunitC@TD[#2,#4]\v@lmin=\v@lX\v@lmax=\v@lY%
    \v@leur=\v@lZ\vecunitC@TD[#2,#3]\c@lprovec{#1}}\ignorespaces\fi}
\def\figvectNVDD#1[#2]{\ifps@cri{\Figg@tXY{#2}\Figv@ctCreg#1(-\v@lY,\v@lX)}\ignorespaces\fi}
\def\figvectNVTD#1[#2,#3]{\ifps@cri{\vecunitCV@TD{#3}\v@lmin=\v@lX\v@lmax=\v@lY%
    \v@leur=\v@lZ\vecunitCV@TD{#2}\c@lprovec{#1}}\ignorespaces\fi}
\def\figvectPDD#1[#2,#3]{\ifps@cri{\Figg@tXYa{#2}\Figg@tXY{#3}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa%
    \Figv@ctCreg#1(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figvectPTD#1[#2,#3]{\ifps@cri{\Figg@tXYa{#2}\Figg@tXY{#3}%
    \advance\v@lX-\v@lXa\advance\v@lY-\v@lYa\advance\v@lZ-\v@lZa%
    \Figv@ctCreg#1(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figvectUDD#1[#2]{\ifps@cri{\n@rmeuc\v@leur{#2}\invers@\v@leur\v@leur%
    \delt@=\repdecn@mb{\v@leur}\unit@\edef\v@ldelt@{\repdecn@mb{\delt@}}%
    \Figg@tXY{#2}\v@lX=\v@ldelt@\v@lX\v@lY=\v@ldelt@\v@lY%
    \Figv@ctCreg#1(\v@lX,\v@lY)}\ignorespaces\fi}
\def\figvectUTD#1[#2]{\ifps@cri{\n@rmeuc\v@leur{#2}\invers@\v@leur\v@leur%
    \delt@=\repdecn@mb{\v@leur}\unit@\edef\v@ldelt@{\repdecn@mb{\delt@}}%
    \Figg@tXY{#2}\v@lX=\v@ldelt@\v@lX\v@lY=\v@ldelt@\v@lY\v@lZ=\v@ldelt@\v@lZ%
    \Figv@ctCreg#1(\v@lX,\v@lY,\v@lZ)}\ignorespaces\fi}
\def\figvisu#1#2#3{\c@ldefproj\initb@undb@x\setbox\b@xvisu=\hbox{\ignorespaces#3}%
    \v@lXa=-\c@@rdYmin\v@lYa=\c@@rdYmax\advance\v@lYa-\c@@rdYmin%
    \v@lX=\c@@rdXmax\advance\v@lX-\c@@rdXmin%
    \setbox#1=\hbox{#2}\v@lY=-\v@lX\maxim@m{\v@lX}{\v@lX}{\wd#1}%
    \advance\v@lY\v@lX\divide\v@lY\tw@\advance\v@lY-\c@@rdXmin%
    \setbox#1=\vbox{\parindent0mm\hsize=\v@lX\vskip\v@lYa%
    \rlap{\hskip\v@lY\smash{\raise\v@lXa\box\b@xvisu}}%
    \def\t@xt@{#2}\ifx\t@xt@\empty\else\medskip\centerline{#2}\fi}\wd#1=\v@lX}
\newbox\Bt@rget\setbox\Bt@rget=\null
\newbox\BminTD@\setbox\BminTD@=\null
\newbox\BmaxTD@\setbox\BmaxTD@=\null
\newif\ifnewt@rgetpt\newif\ifnewdis@b
\def\b@undb@xTD#1#2#3{%
    \relax\ifdim#1<\wd\BminTD@\global\wd\BminTD@=#1\fi%
    \relax\ifdim#2<\ht\BminTD@\global\ht\BminTD@=#2\fi%
    \relax\ifdim#3<\dp\BminTD@\global\dp\BminTD@=#3\fi%
    \relax\ifdim#1>\wd\BmaxTD@\global\wd\BmaxTD@=#1\fi%
    \relax\ifdim#2>\ht\BmaxTD@\global\ht\BmaxTD@=#2\fi%
    \relax\ifdim#3>\dp\BmaxTD@\global\dp\BmaxTD@=#3\fi}
\def\c@ldefdisob{{\ifdim\wd\BminTD@<\maxdimen\v@leur=\wd\BmaxTD@\advance\v@leur-\wd\BminTD@%
    \delt@=\ht\BmaxTD@\advance\delt@-\ht\BminTD@\maxim@m{\v@leur}{\v@leur}{\delt@}%
    \delt@=\dp\BmaxTD@\advance\delt@-\dp\BminTD@\maxim@m{\v@leur}{\v@leur}{\delt@}%
    \v@leur=5\v@leur\else\v@leur=800pt\fi\c@ldefdisob@{\v@leur}}}
\def\c@ldefdisob@#1{{\v@leur=#1\ifdim\v@leur<\p@\v@leur=800pt\fi%
    \xdef\disob@intern{\repdecn@mb{\v@leur}}%
    \delt@=\ptT@unit@\v@leur\xdef\disob@unit{\repdecn@mb{\delt@}}%
    \f@ctech=\@ne\loop\ifdim\v@leur>\t@n pt\divide\v@leur\t@n\multiply\f@ctech\t@n\repeat%
    \xdef\disob@{\repdecn@mb{\v@leur}}\xdef\divf@ctproj{\the\f@ctech}}%
    \global\newdis@btrue}
\def\c@ldeft@rgetpt{\newt@rgetpttrue\def\t@rgetpt{CenterBoundBox}{%
    \delt@=\wd\BmaxTD@\advance\delt@-\wd\BminTD@\divide\delt@\tw@%
    \v@leur=\wd\BminTD@\advance\v@leur\delt@\global\wd\Bt@rget=\v@leur%
    \delt@=\ht\BmaxTD@\advance\delt@-\ht\BminTD@\divide\delt@\tw@%
    \v@leur=\ht\BminTD@\advance\v@leur\delt@\global\ht\Bt@rget=\v@leur%
    \delt@=\dp\BmaxTD@\advance\delt@-\dp\BminTD@\divide\delt@\tw@%
    \v@leur=\dp\BminTD@\advance\v@leur\delt@\global\dp\Bt@rget=\v@leur}}
\def\c@ldefprojTD{\ifnewt@rgetpt\else\c@ldeft@rgetpt\fi\ifnewdis@b\else\c@ldefdisob\fi}
\def\c@lprojcav{% Projection cavaliere : X = x + y L cos t, Y = z + y L sin t
    \v@lZa=\cxa@\v@lY\advance\v@lX\v@lZa%
    \v@lZa=\cxb@\v@lY\v@lY=\v@lZ\advance\v@lY\v@lZa\ignorespaces}
\def\c@lprojrea{% Projection realiste
    \advance\v@lX-\wd\Bt@rget\advance\v@lY-\ht\Bt@rget\advance\v@lZ-\dp\Bt@rget%
    \v@lZa=\cza@\v@lX\advance\v@lZa\czb@\v@lY\advance\v@lZa\czc@\v@lZ%
    \divide\v@lZa\divf@ctproj\advance\v@lZa\disob@ pt\invers@{\v@lZa}{\v@lZa}%
    \v@lZa=\disob@\v@lZa\edef\v@lcoef{\repdecn@mb{\v@lZa}}%
    \v@lXa=\cxa@\v@lX\advance\v@lXa\cxb@\v@lY\v@lXa=\v@lcoef\v@lXa%
    \v@lY=\cyb@\v@lY\advance\v@lY\cya@\v@lX\advance\v@lY\cyc@\v@lZ%
    \v@lY=\v@lcoef\v@lY\v@lX=\v@lXa\ignorespaces}
\def\c@lprojort{% Projection orthogonale
    \v@lXa=\cxa@\v@lX\advance\v@lXa\cxb@\v@lY%
    \v@lY=\cyb@\v@lY\advance\v@lY\cya@\v@lX\advance\v@lY\cyc@\v@lZ%
    \v@lX=\v@lXa\ignorespaces}
\def\Figptpr@j#1:#2/#3/{{\Figg@tXY{#3}\superc@lprojSP%
    \Figp@intregDD#1:{#2}(\v@lX,\v@lY)}\ignorespaces}
\def\figsetobdistTD(#1){{\ifcurr@ntPS%
    \immediate\write16{*** \BS@ figsetobdist is ignored inside a
     \BS@ psbeginfig-\BS@ psendfig block.}%
    \else\v@leur=#1\unit@\c@ldefdisob@{\v@leur}\fi}\ignorespaces}
\def\Figs@tproj#1{%
    \if#13 \d@faultproj\else\if#1c\d@faultproj%
    \else\if#1o\xdef\curr@ntproj{1}\xdef\typ@proj{orthogonal}%
         \figsetviewTD(\def@ultpsi,\def@ulttheta)%
         \global\let\c@lprojSP=\c@lprojort\global\let\superc@lprojSP=\c@lprojort%
    \else\if#1r\xdef\curr@ntproj{2}\xdef\typ@proj{realistic}%
         \figsetviewTD(\def@ultpsi,\def@ulttheta)%
         \global\let\c@lprojSP=\c@lprojrea\global\let\superc@lprojSP=\c@lprojrea%
    \else\d@faultproj\message{*** Unknown projection. Cavalier projection assumed.}%
    \fi\fi\fi\fi}
\def\d@faultproj{\xdef\curr@ntproj{0}\xdef\typ@proj{cavalier}\figsetviewTD(\def@ultpsi,0.5)%
         \global\let\c@lprojSP=\c@lprojcav\global\let\superc@lprojSP=\c@lprojcav}
\def\figsettargetTD[#1]{{\ifcurr@ntPS%
    \immediate\write16{*** \BS@ figsettarget is ignored inside a
     \BS@ psbeginfig-\BS@ psendfig block.}%
    \else\global\newt@rgetpttrue\xdef\t@rgetpt{#1}\Figg@tXY{#1}\global\wd\Bt@rget=\v@lX%
    \global\ht\Bt@rget=\v@lY\global\dp\Bt@rget=\v@lZ\fi}\ignorespaces}
\def\figsetviewTD(#1){\ifcurr@ntPS%
     \immediate\write16{*** \BS@ figsetview is ignored inside a
     \BS@ psbeginfig-\BS@ psendfig block.}\else\Figsetview@#1,:\fi\ignorespaces}
\def\Figsetview@#1,#2:{{\xdef\v@lPsi{#1}\def\t@xt@{#2}%
    \ifx\t@xt@\empty\def\@rgdeux{\v@lTheta}\else%
    \def\Xarg@##1,{\edef\@rgdeux{##1}}\Xarg@#2\fi%
    \c@ssin{\costhet@}{\sinthet@}{#1}\v@lmin=\costhet@ pt\v@lmax=\sinthet@ pt%
    \ifcase\curr@ntproj%
    \v@leur=\@rgdeux\v@lmin\xdef\cxa@{\repdecn@mb{\v@leur}}%
    \v@leur=\@rgdeux\v@lmax\xdef\cxb@{\repdecn@mb{\v@leur}}\v@leur=\@rgdeux pt%
    \relax\ifdim\v@leur>\p@\message{*** Lambda too large ! See \BS@ figset proj() !}\fi%
    \else%
    \v@lmax=-\v@lmax\xdef\cxa@{\repdecn@mb{\v@lmax}}\xdef\cxb@{\costhet@}%
    \ifx\t@xt@\empty\edef\@rgdeux{\def@ulttheta}\fi\c@ssin{\C@}{\S@}{\@rgdeux}%
    \v@lmax=-\S@ pt%
    \v@leur=\v@lmax\v@leur=\costhet@\v@leur\xdef\cya@{\repdecn@mb{\v@leur}}%
    \v@leur=\v@lmax\v@leur=\sinthet@\v@leur\xdef\cyb@{\repdecn@mb{\v@leur}}%
    \xdef\cyc@{\C@}\v@lmin=-\C@ pt%
    \v@leur=\v@lmin\v@leur=\costhet@\v@leur\xdef\cza@{\repdecn@mb{\v@leur}}%
    \v@leur=\v@lmin\v@leur=\sinthet@\v@leur\xdef\czb@{\repdecn@mb{\v@leur}}%
    \xdef\czc@{\repdecn@mb{\v@lmax}}\fi%
    \xdef\v@lTheta{\@rgdeux}}}
\def\def@ultpsi{40}
\def\def@ulttheta{25}
\def\figset#1(#2){\def\t@xt@{#1}\ifx\t@xt@\empty\trtlis@rg{#2}{\Figsetwr@te}% write
    \else\keln@mde#1|%
    \def\n@mref{pr}\ifx\l@debut\n@mref\ifcurr@ntPS% projection
     \immediate\write16{*** \BS@ figset proj(...) is ignored inside a
     \BS@ psbeginfig-\BS@ psendfig block.}\else\trtlis@rg{#2}{\Figsetpr@j}\fi\else%
    \def\n@mref{wr}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Figsetwr@te}\else% write
    \immediate\write16{*** Unknown keyword: \BS@ figset #1(...)}%
    \fi\fi\fi\ignorespaces}
\def\Figsetpr@j#1=#2|{\keln@mtr#1|%
    \def\n@mref{dep}\ifx\l@debut\n@mref\Figsetd@p{#2}\else% depth (lambda)
    \def\n@mref{dis}\ifx\l@debut\n@mref%
     \ifnum\curr@ntproj=\tw@\figsetobdist(#2)\else\Figset@rr\fi\else% dist
    \def\n@mref{lam}\ifx\l@debut\n@mref\Figsetd@p{#2}\else% depth (lambda)
    \def\n@mref{lat}\ifx\l@debut\n@mref\Figsetth@{#2}\else% latitude (theta)
    \def\n@mref{lon}\ifx\l@debut\n@mref\figsetview(#2)\else% longitude (psi)
    \def\n@mref{psi}\ifx\l@debut\n@mref\figsetview(#2)\else% longitude (psi)
    \def\n@mref{tar}\ifx\l@debut\n@mref%
     \ifnum\curr@ntproj=\tw@\figsettarget[#2]\else\Figset@rr\fi\else% target point
    \def\n@mref{the}\ifx\l@debut\n@mref\Figsetth@{#2}\else% latitude (theta)
    \immediate\write16{*** Unknown attribute: \BS@ figset proj(..., #1=...).}%
    \fi\fi\fi\fi\fi\fi\fi\fi}
\def\Figsetd@p#1{\ifnum\curr@ntproj=\z@\figsetview(\v@lPsi,#1)\else\Figset@rr\fi}
\def\Figsetth@#1{\ifnum\curr@ntproj=\z@\Figset@rr\else\figsetview(\v@lPsi,#1)\fi}
\def\Figset@rr{\message{*** \BS@ figset proj(): Attribute "\n@mref" ignored, incompatible
    with current projection}}
\def\initb@undb@xTD{\wd\BminTD@=\maxdimen\ht\BminTD@=\maxdimen\dp\BminTD@=\maxdimen%
    \wd\BmaxTD@=-\maxdimen\ht\BmaxTD@=-\maxdimen\dp\BmaxTD@=-\maxdimen}
\newbox\Gb@x      % boite a tout faire
\newbox\Gb@xSC    % boite qui contient le point marker
\newtoks\c@nsymb  % the point marker
\newif\ifr@undcoord\newif\ifunitpr@sent
\def\unssqrttw@{0.707106 }
\def\figAst{\raise-1.15ex\hbox{$\ast$}}
\def\figBullet{\raise-1.15ex\hbox{$\bullet$}}
\def\figCirc{\raise-1.15ex\hbox{$\circ$}}
\def\figDiamond{\raise-1.15ex\hbox{$\diamond$}}%
\def\boxit#1#2{\leavevmode\hbox{\vrule\vbox{\hrule\vglue#1%
    \vtop{\hbox{\kern#1{#2}\kern#1}\vglue#1\hrule}}\vrule}}
\def\centertext#1#2{\vbox{\hsize#1\parindent0cm%
  \leftskip=0pt plus 1fil\rightskip=0pt plus 1fil\parfillskip=0pt{#2}}}
\def\lefttext#1#2{\vbox{\hsize#1\parindent0cm\rightskip=0pt plus 1fil#2}}
\def\c@nterpt{\ignorespaces%
    \kern-.5\wd\Gb@xSC%
    \raise-.5\ht\Gb@xSC\rlap{\hbox{\raise.5\dp\Gb@xSC\hbox{\copy\Gb@xSC}}}%
    \kern .5\wd\Gb@xSC\ignorespaces}
\def\b@undb@xSC#1#2{{\v@lXa=#1\v@lYa=#2%
    \v@leur=\ht\Gb@xSC\advance\v@leur\dp\Gb@xSC%
    \advance\v@lXa-.5\wd\Gb@xSC\advance\v@lYa-.5\v@leur\b@undb@x{\v@lXa}{\v@lYa}%
    \advance\v@lXa\wd\Gb@xSC\advance\v@lYa\v@leur\b@undb@x{\v@lXa}{\v@lYa}}}
\def\@keldist#1#2{\edef\Dist@n{#2}\y@tiunit{\Dist@n}%
    \ifunitpr@sent#1=\Dist@n\else#1=\Dist@n\unit@\fi}
\def\y@tiunit#1{\unitpr@sentfalse\expandafter\y@tiunit@#1:}
\def\y@tiunit@#1#2:{\ifcat#1a\unitpr@senttrue\else\def\l@suite{#2}%
    \ifx\l@suite\empty\else\y@tiunit@#2:\fi\fi}
\def\figcoordDD#1{{\v@lX=\ptT@unit@\v@lX\v@lY=\ptT@unit@\v@lY%
    \ifr@undcoord\ifcase#1\v@leur=0.5pt\or\v@leur=0.05pt\or\v@leur=0.005pt%
    \or\v@leur=0.0005pt\else\v@leur=\z@\fi%
    \ifdim\v@lX<\z@\advance\v@lX-\v@leur\else\advance\v@lX\v@leur\fi%
    \ifdim\v@lY<\z@\advance\v@lY-\v@leur\else\advance\v@lY\v@leur\fi\fi%
    (\@ffichnb{#1}{\repdecn@mb{\v@lX}},\ifmmode\else\thinspace\fi%
    \@ffichnb{#1}{\repdecn@mb{\v@lY}})}}
\def\@ffichnb#1#2{\def\@@ffich{\@ffich#1(}\edef\n@mbre{#2}%
    \expandafter\@@ffich\n@mbre)}
\def\@ffich#1(#2.#3){{#2\ifnum#1>\z@.\fi\def\dig@ts{#3}\s@mme=\z@%
    \loop\ifnum\s@mme<#1\expandafter\@ffichdec\dig@ts:\advance\s@mme\@ne\repeat}}
\def\@ffichdec#1#2:{\relax#1\def\dig@ts{#20}}
\def\figcoordTD#1{{\v@lX=\ptT@unit@\v@lX\v@lY=\ptT@unit@\v@lY\v@lZ=\ptT@unit@\v@lZ%
    \ifr@undcoord\ifcase#1\v@leur=0.5pt\or\v@leur=0.05pt\or\v@leur=0.005pt%
    \or\v@leur=0.0005pt\else\v@leur=\z@\fi%
    \ifdim\v@lX<\z@\advance\v@lX-\v@leur\else\advance\v@lX\v@leur\fi%
    \ifdim\v@lY<\z@\advance\v@lY-\v@leur\else\advance\v@lY\v@leur\fi%
    \ifdim\v@lZ<\z@\advance\v@lZ-\v@leur\else\advance\v@lZ\v@leur\fi\fi%
    (\@ffichnb{#1}{\repdecn@mb{\v@lX}},\ifmmode\else\thinspace\fi%
     \@ffichnb{#1}{\repdecn@mb{\v@lY}},\ifmmode\else\thinspace\fi%
     \@ffichnb{#1}{\repdecn@mb{\v@lZ}})}}
\def\figsetroundcoord#1{\expandafter\Figsetr@undcoord#1:\ignorespaces}
\def\Figsetr@undcoord#1#2:{\if#1n\r@undcoordfalse\else\r@undcoordtrue\fi}
\def\Figsetwr@te#1=#2|{\keln@mun#1|%
    \def\n@mref{m}\ifx\l@debut\n@mref\figsetmark{#2}\else% mark
    \immediate\write16{*** Unknown attribute: \BS@ figset (..., #1=...)}%
    \fi}
\def\figsetmark#1{\c@nsymb={#1}\setbox\Gb@xSC=\hbox{\the\c@nsymb}\ignorespaces}
\def\figsetptname#1{\def\ptn@me##1{#1}\ignorespaces}
\def\FigWrit@L#1:#2(#3,#4){\ignorespaces\@keldist\v@leur{#3}\@keldist\delt@{#4}%
    \C@rp@r@m\def\list@num{#1}\@ecfor\p@int:=\list@num\do{\FigWrit@pt{\p@int}{#2}}}
\def\FigWrit@pt#1#2{\FigWp@r@m{#1}{#2}\Vc@rrect\figWp@si%
    \ifdim\wd\Gb@xSC>\z@\b@undb@xSC{\v@lX}{\v@lY}\fi\figWBB@x}
\def\FigWp@r@m#1#2{\Figg@tXY{#1}%
    \setbox\Gb@x=\hbox{\def\t@xt@{#2}\ifx\t@xt@\empty\Figg@tT{#1}\else#2\fi}\c@lprojSP}
\let\Vc@rrect=\relax
\let\C@rp@r@m=\relax
\def\figwrite[#1]#2{{\ignorespaces\def\list@num{#1}\@ecfor\p@int:=\list@num\do{%
    \setbox\Gb@x=\hbox{\def\t@xt@{#2}\ifx\t@xt@\empty\Figg@tT{\p@int}\else#2\fi}%
    \Figwrit@{\p@int}}}\ignorespaces}
\def\Figwrit@#1{\Figg@tXY{#1}\c@lprojSP%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\unhcopy\Gb@x}}\v@leur=\v@lY%
    \advance\v@lY\ht\Gb@x\b@undb@x{\v@lX}{\v@lY}\advance\v@lX\wd\Gb@x%
    \v@lY=\v@leur\advance\v@lY-\dp\Gb@x\b@undb@x{\v@lX}{\v@lY}}
\def\figwritec[#1]#2{{\ignorespaces\def\list@num{#1}%
    \@ecfor\p@int:=\list@num\do{\Figwrit@c{\p@int}{#2}}}\ignorespaces}
\def\Figwrit@c#1#2{\FigWp@r@m{#1}{#2}%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-.5\wd\Gb@x%
    \raise-.5\ht\Gb@x\hbox{\raise.5\dp\Gb@x\hbox{\unhcopy\Gb@x}}}}}%
    \v@leur=\ht\Gb@x\advance\v@leur\dp\Gb@x%
    \advance\v@lX-.5\wd\Gb@x\advance\v@lY-.5\v@leur\b@undb@x{\v@lX}{\v@lY}%
    \advance\v@lX\wd\Gb@x\advance\v@lY\v@leur\b@undb@x{\v@lX}{\v@lY}}
\def\figwritep[#1]{{\ignorespaces\def\list@num{#1}\setbox\Gb@x=\hbox{\c@nterpt}%
    \@ecfor\p@int:=\list@num\do{\Figwrit@{\p@int}}}\ignorespaces}
\def\figwritew#1:#2(#3){\figwritegcw#1:{#2}(#3,0pt)}
\def\figwritee#1:#2(#3){\figwritegce#1:{#2}(#3,0pt)}
\def\figwriten#1:#2(#3){{\def\Vc@rrect{\v@lZ=\v@leur\advance\v@lZ\dp\Gb@x}%
    \Figwrit@NS#1:{#2}(#3)}\ignorespaces}
\def\figwrites#1:#2(#3){{\def\Vc@rrect{\v@lZ=-\v@leur\advance\v@lZ-\ht\Gb@x}%
    \Figwrit@NS#1:{#2}(#3)}\ignorespaces}
\def\Figwrit@NS#1:#2(#3){\let\figWp@si=\FigWp@siNS\let\figWBB@x=\FigWBB@xNS%
    \FigWrit@L#1:{#2}(#3,0pt)}
\def\FigWp@siNS{\rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-.5\wd\Gb@x%
    \raise\v@lZ\hbox{\unhcopy\Gb@x}}\c@nterpt}}}
\def\FigWBB@xNS{\advance\v@lY\v@lZ%
    \advance\v@lY-\dp\Gb@x\advance\v@lX-.5\wd\Gb@x\b@undb@x{\v@lX}{\v@lY}%
    \advance\v@lY\ht\Gb@x\advance\v@lY\dp\Gb@x%
    \advance\v@lX\wd\Gb@x\b@undb@x{\v@lX}{\v@lY}}
\def\figwritenw#1:#2(#3){{\let\figWp@si=\FigWp@sigW\let\figWBB@x=\FigWBB@xgWE%
    \def\C@rp@r@m{\v@leur=\unssqrttw@\v@leur\delt@=\v@leur%
    \ifdim\delt@=\z@\delt@=\epsil@n\fi}\let@xte={-}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\figwritesw#1:#2(#3){{\let\figWp@si=\FigWp@sigW\let\figWBB@x=\FigWBB@xgWE%
    \def\C@rp@r@m{\v@leur=\unssqrttw@\v@leur\delt@=-\v@leur%
    \ifdim\delt@=\z@\delt@=-\epsil@n\fi}\let@xte={-}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\figwritene#1:#2(#3){{\let\figWp@si=\FigWp@sigE\let\figWBB@x=\FigWBB@xgWE%
    \def\C@rp@r@m{\v@leur=\unssqrttw@\v@leur\delt@=\v@leur%
    \ifdim\delt@=\z@\delt@=\epsil@n\fi}\let@xte={}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\figwritese#1:#2(#3){{\let\figWp@si=\FigWp@sigE\let\figWBB@x=\FigWBB@xgWE%
    \def\C@rp@r@m{\v@leur=\unssqrttw@\v@leur\delt@=-\v@leur%
    \ifdim\delt@=\z@\delt@=-\epsil@n\fi}\let@xte={}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\figwritegw#1:#2(#3,#4){{\let\figWp@si=\FigWp@sigW\let\figWBB@x=\FigWBB@xgWE%
    \let@xte={-}\FigWrit@L#1:{#2}(#3,#4)}\ignorespaces}
\def\figwritege#1:#2(#3,#4){{\let\figWp@si=\FigWp@sigE\let\figWBB@x=\FigWBB@xgWE%
    \let@xte={}\FigWrit@L#1:{#2}(#3,#4)}\ignorespaces}
\def\FigWp@sigW{\v@lXa=\z@\v@lYa=\ht\Gb@x\advance\v@lYa\dp\Gb@x%
    \ifdim\delt@>\z@\relax%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-\wd\Gb@x\kern-\v@leur%
          \raise\delt@\hbox{\raise\dp\Gb@x\hbox{\unhcopy\Gb@x}}}\c@nterpt}}%
    \else\ifdim\delt@<\z@\relax\v@lYa=-\v@lYa%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-\wd\Gb@x\kern-\v@leur%
          \raise\delt@\hbox{\raise-\ht\Gb@x\hbox{\unhcopy\Gb@x}}}\c@nterpt}}%
    \else\v@lXa=-.5\v@lYa%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-\wd\Gb@x\kern-\v@leur%
          \raise-.5\ht\Gb@x\hbox{\raise.5\dp\Gb@x\hbox{\unhcopy\Gb@x}}}\c@nterpt}}%
    \fi\fi}
\def\FigWp@sigE{\v@lXa=\z@\v@lYa=\ht\Gb@x\advance\v@lYa\dp\Gb@x%
    \ifdim\delt@>\z@\relax%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\c@nterpt\kern\v@leur%
          \raise\delt@\hbox{\raise\dp\Gb@x\hbox{\unhcopy\Gb@x}}}}%
    \else\ifdim\delt@<\z@\relax\v@lYa=-\v@lYa%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\c@nterpt\kern\v@leur%
          \raise\delt@\hbox{\raise-\ht\Gb@x\hbox{\unhcopy\Gb@x}}}}%
    \else\v@lXa=-.5\v@lYa%
    \rlap{\kern\v@lX\raise\v@lY\hbox{\c@nterpt\kern\v@leur%
          \raise-.5\ht\Gb@x\hbox{\raise.5\dp\Gb@x\hbox{\unhcopy\Gb@x}}}}%
    \fi\fi}
\def\FigWBB@xgWE{\advance\v@lY\delt@%
    \advance\v@lX\the\let@xte\v@leur\advance\v@lY\v@lXa\b@undb@x{\v@lX}{\v@lY}%
    \advance\v@lX\the\let@xte\wd\Gb@x\advance\v@lY\v@lYa\b@undb@x{\v@lX}{\v@lY}}
\def\figwritegcw#1:#2(#3,#4){{\let\figWp@si=\FigWp@sigcW\let\figWBB@x=\FigWBB@xgcWE%
    \let@xte={-}\FigWrit@L#1:{#2}(#3,#4)}\ignorespaces}
\def\figwritegce#1:#2(#3,#4){{\let\figWp@si=\FigWp@sigcE\let\figWBB@x=\FigWBB@xgcWE%
    \let@xte={}\FigWrit@L#1:{#2}(#3,#4)}\ignorespaces}
\def\FigWp@sigcW{\rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-\wd\Gb@x\kern-\v@leur%
     \raise-.5\ht\Gb@x\hbox{\raise\delt@\hbox{\raise.5\dp\Gb@x\hbox{\unhcopy\Gb@x}}}}%
     \c@nterpt}}}
\def\FigWp@sigcE{\rlap{\kern\v@lX\raise\v@lY\hbox{\c@nterpt\kern\v@leur%
    \raise-.5\ht\Gb@x\hbox{\raise\delt@\hbox{\raise.5\dp\Gb@x\hbox{\unhcopy\Gb@x}}}}}}
\def\FigWBB@xgcWE{\v@lZ=\ht\Gb@x\advance\v@lZ\dp\Gb@x%
    \advance\v@lX\the\let@xte\v@leur\advance\v@lY\delt@\advance\v@lY.5\v@lZ%
    \b@undb@x{\v@lX}{\v@lY}%
    \advance\v@lX\the\let@xte\wd\Gb@x\advance\v@lY-\v@lZ\b@undb@x{\v@lX}{\v@lY}}
\def\figwritebn#1:#2(#3){{\def\Vc@rrect{\v@lZ=\v@leur}\Figwrit@NS#1:{#2}(#3)}\ignorespaces}
\def\figwritebs#1:#2(#3){{\def\Vc@rrect{\v@lZ=-\v@leur}\Figwrit@NS#1:{#2}(#3)}\ignorespaces}
\def\figwritebw#1:#2(#3){{\let\figWp@si=\FigWp@sibW\let\figWBB@x=\FigWBB@xbWE%
    \let@xte={-}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\figwritebe#1:#2(#3){{\let\figWp@si=\FigWp@sibE\let\figWBB@x=\FigWBB@xbWE%
    \let@xte={}\FigWrit@L#1:{#2}(#3,0pt)}\ignorespaces}
\def\FigWp@sibW{\rlap{\kern\v@lX\raise\v@lY\hbox{\rlap{\kern-\wd\Gb@x\kern-\v@leur%
          \hbox{\unhcopy\Gb@x}}\c@nterpt}}}
\def\FigWp@sibE{\rlap{\kern\v@lX\raise\v@lY\hbox{\c@nterpt\kern\v@leur%
          \hbox{\unhcopy\Gb@x}}}}
\def\FigWBB@xbWE{\v@lZ=\ht\Gb@x\advance\v@lZ\dp\Gb@x%
    \advance\v@lX\the\let@xte\v@leur\advance\v@lY\ht\Gb@x\b@undb@x{\v@lX}{\v@lY}%
    \advance\v@lX\the\let@xte\wd\Gb@x\advance\v@lY-\v@lZ\b@undb@x{\v@lX}{\v@lY}}
\newread\frf@g  \newwrite\fwf@g
\newif\ifcurr@ntPS
\newif\ifps@cri
\newif\ifUse@llipse
\newif\ifpsdebugmode \psdebugmodefalse % Provoque l'ecriture de commentaires dans
\newif\ifmored@ta
\def\c@pypsfile#1#2{\def\blankline{\par}{\catcode`\%=12
    \loop\ifeof#2\mored@tafalse\else\mored@tatrue\immediate\read#2 to\tr@c
    \ifx\tr@c\blankline\else\immediate\write#1{\tr@c}\fi\fi\ifmored@ta\repeat}}
\def\keln@mun#1#2|{\def\l@debut{#1}\def\l@suite{#2}}
\def\keln@mde#1#2#3|{\def\l@debut{#1#2}\def\l@suite{#3}}
\def\keln@mtr#1#2#3#4|{\def\l@debut{#1#2#3}\def\l@suite{#4}}
\def\keln@mqu#1#2#3#4#5|{\def\l@debut{#1#2#3#4}\def\l@suite{#5}}
\let\@psffilein=\frf@g % file to \read
\newif\if@psffileok    % continue looking for the bounding box?
\newif\if@psfbbfound   % success?
\newif\if@psfverbose   % report what you're making?
\@psfverbosetrue
\def\@psfgetbb#1{\global\@psfbbfoundfalse%
\global\def\@psfllx{0}\global\def\@psflly{0}%
\global\def\@psfurx{30}\global\def\@psfury{30}%
\openin\@psffilein=#1
\ifeof\@psffilein\errmessage{I couldn't open #1, will ignore it}\else
   \edef\setcolonc@tcode{\catcode`\noexpand\:\the\catcode`\:\relax}%
   {\@psffileoktrue \chardef\other=12
    \def\do##1{\catcode`##1=\other}\dospecials \catcode`\ =10 \setcolonc@tcode
    \loop
       \read\@psffilein to \@psffileline
       \ifeof\@psffilein\@psffileokfalse\else
          \expandafter\@psfaux\@psffileline:. \\%
       \fi
   \if@psffileok\repeat
   \if@psfbbfound\else
    \if@psfverbose\message{No bounding box comment in #1; using defaults}\fi\fi
   }\closein\@psffilein\fi}%
{\catcode`\%=12 \global\let\@psfpercent=%\global\def\@psfbblit{%BoundingBox}}%
\long\def\@psfaux#1#2:#3\\{\ifx#1\@psfpercent
   \def\testit{#2}\ifx\testit\@psfbblit
      \@psfgrab #3 . . . \\%
      \@psffileokfalse
      \global\@psfbbfoundtrue
   \fi\else\ifx#1\par\else\@psffileokfalse\fi\fi}%
\def\@psfempty{}%
\def\@psfgrab #1 #2 #3 #4 #5\\{%
\global\def\@psfllx{#1}\ifx\@psfllx\@psfempty
      \@psfgrab #2 #3 #4 #5 .\\\else
   \global\def\@psflly{#2}%
   \global\def\@psfurx{#3}\global\def\@psfury{#4}\fi}%
\def\PSwrit@cmd#1#2#3{{\Figg@tXY{#1}\c@lprojSP\b@undb@x{\v@lX}{\v@lY}%
    \v@lX=\ptT@ptps\v@lX\v@lY=\ptT@ptps\v@lY%
    \immediate\write#3{\repdecn@mb{\v@lX}\space\repdecn@mb{\v@lY}\space#2}}}
\def\PSwrit@cmdS#1#2#3#4#5{{\Figg@tXY{#1}\c@lprojSP\b@undb@x{\v@lX}{\v@lY}%
    \global\result@t=\v@lX\global\result@@t=\v@lY%
    \v@lX=\ptT@ptps\v@lX\v@lY=\ptT@ptps\v@lY%
    \immediate\write#3{\repdecn@mb{\v@lX}\space\repdecn@mb{\v@lY}\space#2}}%
    \edef#4{\the\result@t}\edef#5{\the\result@@t}}
\def\psaltitude#1[#2,#3,#4]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psaltitude Square Dim=#1, Triangle=[#2 / #3,#4]}%
    \s@uvc@ntr@l\et@tpsaltitude\resetc@ntr@l{2}\figptorthoprojline-5:=#2/#3,#4/%
    \figvectP -1[#3,#4]\n@rminf{\v@leur}{-1}\vecunit@{-3}{-1}%
    \figvectP -1[-5,#3]\n@rminf{\v@lmin}{-1}\figvectP -2[-5,#4]\n@rminf{\v@lmax}{-2}%
    \ifdim\v@lmin<\v@lmax\s@mme=#3\else\v@lmax=\v@lmin\s@mme=#4\fi%
    \figvectP -4[-5,#2]\vecunit@{-4}{-4}\delt@=#1\unit@%
    \edef\t@ille{\repdecn@mb{\delt@}}\figpttra-1:=-5/\t@ille,-3/%
    \figptstra-3=-5,-1/\t@ille,-4/\psline[#2,-5]\psline[-1,-2,-3]%
    \ifdim\v@leur<\v@lmax\Pss@tsecondSt\psline[-5,\the\s@mme]\Psrest@reSt\fi%
    \PSc@mment{End psaltitude}\resetc@ntr@l\et@tpsaltitude\fi\fi}}
\def\Ps@rcerc#1;#2(#3,#4){\ellBB@x#1;#2,#2(#3,#4,0)%
    \immediate\write\fwf@g{newpath}{\delt@=#2\unit@\delt@=\ptT@ptps\delt@%
    \BdingB@xfalse%
    \PSwrit@cmd{#1}{\repdecn@mb{\delt@}\space #3\space #4\space arc}{\fwf@g}}}
\def\psarccircDD#1;#2(#3,#4){\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psarccircDD Center=#1 ; Radius=#2 (Ang1=#3, Ang2=#4)}%
    \iffillm@de\Ps@rcerc#1;#2(#3,#4)%
    \immediate\write\fwf@g{\fillc@md}%
    \else\Ps@rcerc#1;#2(#3,#4)\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End psarccircDD}\fi\fi}
\def\psarccircTD#1,#2,#3;#4(#5,#6){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarccircTD%
    \PSc@mment{psarccircTD Center=#1,P1=#2,P2=#3 ; Radius=#4 (Ang1=#5, Ang2=#6)}%
    \setc@ntr@l{2}\c@lExtAxes#1,#2,#3(#4)\psarcellPATD#1,-4,-5(#5,#6)%
    \PSc@mment{End psarccircTD}\resetc@ntr@l\et@tpsarccircTD\fi\fi}}
\def\c@lExtAxes#1,#2,#3(#4){%
    \figvectPTD-5[#1,#2]\vecunit@{-5}{-5}\figvectNTD-4[#1,#2,#3]\vecunit@{-4}{-4}%
    \figvectNVTD-3[-4,-5]\delt@=#4\unit@\edef\r@yon{\repdecn@mb{\delt@}}%
    \figpttra-4:=#1/\r@yon,-5/\figpttra-5:=#1/\r@yon,-3/}
\def\psarccircPDD#1;#2[#3,#4]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarccircPDD%
    \PSc@mment{psarccircPDD Center=#1; Radius=#2, [P1=#3, P2=#4]}%
    \Ps@ngleparam#1;#2[#3,#4]\ifdim\v@lmin>\v@lmax\advance\v@lmax\DePI@deg\fi%
    \edef\@ngdeb{\repdecn@mb{\v@lmin}}\edef\@ngfin{\repdecn@mb{\v@lmax}}%
    \psarccirc#1;\r@dius(\@ngdeb,\@ngfin)%
    \PSc@mment{End psarccircPDD}\resetc@ntr@l\et@tpsarccircPDD\fi\fi}}
\def\psarccircPTD#1;#2[#3,#4,#5]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarccircPTD%
    \PSc@mment{psarccircPTD Center=#1; Radius=#2, [P1=#3, P2=#4, P3=#5]}%
    \setc@ntr@l{2}\c@lExtAxes#1,#3,#5(#2)\psarcellPP#1,-4,-5[#3,#4]%
    \PSc@mment{End psarccircPTD}\resetc@ntr@l\et@tpsarccircPTD\fi\fi}}
\def\Ps@ngleparam#1;#2[#3,#4]{\setc@ntr@l{2}%
    \figvectPDD-1[#1,#3]\vecunit@{-1}{-1}\Figg@tXY{-1}\arct@n\v@lmin(\v@lX,\v@lY)%
    \figvectPDD-2[#1,#4]\vecunit@{-2}{-2}\Figg@tXY{-2}\arct@n\v@lmax(\v@lX,\v@lY)%
    \v@lmin=\rdT@deg\v@lmin\v@lmax=\rdT@deg\v@lmax%
    \v@leur=#2pt\maxim@m{\mili@u}{-\v@leur}{\v@leur}%
    \edef\r@dius{\repdecn@mb{\mili@u}}}
\def\Ps@rell#1;#2,#3(#4,#5,#6){\ellBB@x#1;#2,#3(#4,#5,#6)%
    \immediate\write\fwf@g{newpath}{\v@lmin=#2\unit@\v@lmin=\ptT@ptps\v@lmin%
    \v@lmax=#3\unit@\v@lmax=\ptT@ptps\v@lmax\BdingB@xfalse%
    \PSwrit@cmd{#1}%
    {#6\space\repdecn@mb{\v@lmin}\space\repdecn@mb{\v@lmax}\space #4\space #5\space ellipse}{\fwf@g}}%
    \global\Use@llipsetrue}
\def\psarcellDD#1;#2,#3(#4,#5,#6){{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psarcellDD Center=#1 ; XRad=#2, YRad=#3 (Ang1=#4, Ang2=#5, Inclination=#6)}%
    \iffillm@de\Ps@rell#1;#2,#3(#4,#5,#6)%
    \immediate\write\fwf@g{\fillc@md}%
    \else\Ps@rell#1;#2,#3(#4,#5,#6)\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End psarcellDD}\fi\fi}}
\def\psarcellTD#1;#2,#3(#4,#5,#6){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarcellTD%
    \PSc@mment{psarcellTD Center=#1 ; XRad=#2, YRad=#3 (Ang1=#4, Ang2=#5, Inclination=#6)}%
    \setc@ntr@l{2}\figpttraC -8:=#1/#2,0,0/\figpttraC -7:=#1/0,#3,0/%
    \figvectC -4(0,0,1)\figptsrot -8=-8,-7/#1,#6,-4/\psarcellPATD#1,-8,-7(#4,#5)%
    \PSc@mment{End psarcellTD}\resetc@ntr@l\et@tpsarcellTD\fi\fi}}
\def\psarcellPADD#1,#2,#3(#4,#5){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarcellPADD%
    \PSc@mment{psarcellPADD Center=#1,PtAxis1=#2,PtAxis2=#3 (Ang1=#4, Ang2=#5)}%
    \setc@ntr@l{2}\figvectPDD-1[#1,#2]\vecunit@DD{-1}{-1}\v@lX=\ptT@unit@\result@t%
    \edef\XR@d{\repdecn@mb{\v@lX}}\Figg@tXY{-1}\arct@n\v@lmin(\v@lX,\v@lY)%
    \v@lmin=\rdT@deg\v@lmin\edef\Inclin@{\repdecn@mb{\v@lmin}}%
    \figgetdist\YR@d[#1,#3]\psarcellDD#1;\XR@d,\YR@d(#4,#5,\Inclin@)%
    \PSc@mment{End psarcellPADD}\resetc@ntr@l\et@tpsarcellPADD\fi\fi}}
\def\psarcellPATD#1,#2,#3(#4,#5){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarcellPATD%
    \PSc@mment{psarcellPATD Center=#1,PtAxis1=#2,PtAxis2=#3 (Ang1=#4, Ang2=#5)}%
    \iffillm@de\Ps@rellPATD#1,#2,#3(#4,#5)%
    \immediate\write\fwf@g{\fillc@md}%
    \else\Ps@rellPATD#1,#2,#3(#4,#5)\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End psarcellPATD}\resetc@ntr@l\et@tpsarcellPATD\fi\fi}}
\def\Ps@rellPATD#1,#2,#3(#4,#5){\let\c@lprojSP=\relax%
    \setc@ntr@l{2}\figvectPTD-1[#1,#2]\figvectPTD-2[#1,#3]\c@lNbarcs{#4}{#5}%
    \v@leur=#4pt\c@lptellP{#1}{-1}{-2}\Figptpr@j-5:/-3/%
    \immediate\write\fwf@g{newpath}\PSwrit@cmdS{-5}{moveto}{\fwf@g}{\X@un}{\Y@un}%
    \edef\C@nt@r{#1}\s@mme=\z@\bcl@rellPATD}
\def\bcl@rellPATD{\relax%
    \ifnum\s@mme<\p@rtent\advance\s@mme\@ne%
    \Figg@tXY{-5}\v@lX=8\v@lX\v@lY=8\v@lY\Figp@intregDD-4:(\v@lX,\v@lY)%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-1}{-2}\Figptpr@j-6:/-3/\figpttraDD-4:=-4/-27,-6/%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-1}{-2}\Figptpr@j-6:/-3/\figpttraDD-5:=-5/-27,-6/%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-1}{-2}\Figptpr@j-6:/-3/%
    \figpttraDD-4:=-4/1,-6/\figpttraDD-5:=-5/8,-6/\BdingB@xfalse%
    \c@lptCtrlDD-3[-5,-4]\PSwrit@cmdS{-3}{}{\fwf@g}{\X@de}{\Y@de}%
    \c@lptCtrlDD-3[-4,-5]\PSwrit@cmdS{-3}{}{\fwf@g}{\X@tr}{\Y@tr}%
    \BdingB@xtrue\PSwrit@cmdS{-6}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
    \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
    \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
    \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\figptcopyDD-5:/-6/\bcl@rellPATD\fi}
\def\c@lNbarcs#1#2{%
    \delt@=#2pt\advance\delt@-#1pt\maxim@m{\v@lmax}{\delt@}{-\delt@}%
    \v@leur=\v@lmax\divide\v@leur45 \p@rtentiere{\p@rtent}{\v@leur}\advance\p@rtent\@ne%
    \s@mme=\p@rtent\multiply\s@mme\thr@@\divide\delt@\s@mme}
\def\c@lptCtrlDD#1[#2,#3]{\figptcopyDD#1:/#2/\figpttraDD#1:=#1/-2,#3/%
    \Figg@tXY{#1}\divide\v@lX18 \divide\v@lY18 \Figp@intregDD#1:(\v@lX,\v@lY)}
\def\c@lptCtrlTD#1[#2,#3]{\figptcopyTD#1:/#2/\figpttraTD#1:=#1/-2,#3/%
    \Figg@tXY{#1}\divide\v@lX18 \divide\v@lY18 \divide\v@lZ18 %
    \Figp@intregTD#1:(\v@lX,\v@lY,\v@lZ)}
\def\psarcellPP#1,#2,#3[#4,#5]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarcellPP%
    \PSc@mment{psarcellPP Center=#1,PtAxis1=#2,PtAxis2=#3 [Point1=#4, Point2=#5]}%
    \setc@ntr@l{2}\figvectP-2[#1,#3]\vecunit@{-2}{-2}\v@lmin=\result@t%
    \invers@{\v@lmax}{\v@lmin}%
    \figvectP-1[#1,#2]\vecunit@{-1}{-1}\v@leur=\result@t%
    \v@leur=\repdecn@mb{\v@lmax}\v@leur\edef\AsB@{\repdecn@mb{\v@leur}}% a/b
    \c@lAngle{#1}{#4}{\v@lmin}\edef\@ngdeb{\repdecn@mb{\v@lmin}}%
    \c@lAngle{#1}{#5}{\v@lmax}\ifdim\v@lmin>\v@lmax\advance\v@lmax\DePI@deg\fi%
    \edef\@ngfin{\repdecn@mb{\v@lmax}}\psarcellPA#1,#2,#3(\@ngdeb,\@ngfin)%
    \PSc@mment{End psarcellPP}\resetc@ntr@l\et@tpsarcellPP\fi\fi}}
\def\c@lAngle#1#2#3{\figvectP-3[#1,#2]%
    \c@lproscal\delt@[-3,-1]\c@lproscal\v@leur[-3,-2]%
    \v@leur=\AsB@\v@leur\arct@n#3(\delt@,\v@leur)#3=\rdT@deg#3}
\newif\if@rrowratio\@rrowratiotrue
\newif\if@rrowhfill
\newif\if@rrowhout
\def\Psset@rrowhe@d#1=#2|{\keln@mun#1|%
    \def\n@mref{a}\ifx\l@debut\n@mref\pssetarrowheadangle{#2}\else% angle
    \def\n@mref{f}\ifx\l@debut\n@mref\pssetarrowheadfill{#2}\else% fillmode
    \def\n@mref{l}\ifx\l@debut\n@mref\pssetarrowheadlength{#2}\else% length
    \def\n@mref{o}\ifx\l@debut\n@mref\pssetarrowheadout{#2}\else% out
    \def\n@mref{r}\ifx\l@debut\n@mref\pssetarrowheadratio{#2}\else% ratio
    \immediate\write16{*** Unknown attribute: \BS@ psset arrowhead(..., #1=...)}%
    \fi\fi\fi\fi\fi}
\def\pssetarrowheadangle#1{\edef\@rrowheadangle{#1}{\c@ssin{\C@}{\S@}{#1}%
    \xdef\C@AHANG{\C@}\xdef\S@AHANG{\S@}\v@lmax=\S@ pt%
    \invers@{\v@leur}{\v@lmax}\maxim@m{\v@leur}{\v@leur}{-\v@leur}%
    \xdef\UNSS@N{\the\v@leur}}}
\def\pssetarrowheadfill#1{\expandafter\set@rrowhfill#1:}
\def\set@rrowhfill#1#2:{\if#1n\@rrowhfillfalse\else\@rrowhfilltrue\fi}
\def\pssetarrowheadout#1{\expandafter\set@rrowhout#1:}
\def\set@rrowhout#1#2:{\if#1n\@rrowhoutfalse\else\@rrowhouttrue\fi}
\def\pssetarrowheadlength#1{\edef\@rrowheadlength{#1}\@rrowratiofalse}
\def\pssetarrowheadratio#1{\edef\@rrowheadratio{#1}\@rrowratiotrue}
\def\psresetarrowhead{%
    \pssetarrowheadangle{\defaultarrowheadangle}%
    \pssetarrowheadfill{\defaultarrowheadfill}%
    \pssetarrowheadout{\defaultarrowheadout}%
    \pssetarrowheadratio{\defaultarrowheadratio}%
    \d@fm@cdim\defaultarrowheadlength{\defaulth@rdahlength}% Valeur par defaut...
    \pssetarrowheadlength{\defaultarrowheadlength}}
\def\defaultarrowheadratio{0.1}
\def\defaultarrowheadangle{20}
\def\defaultarrowheadfill{no}
\def\defaultarrowheadout{no}
\def\defaulth@rdahlength{8pt}
\def\psarrowDD[#1,#2]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrow%
    \PSc@mment{psarrowDD [Pt1,Pt2]=[#1,#2]}\pssetfillmode{no}%
    \psarrowheadDD[#1,#2]\setc@ntr@l{2}\psline[#1,-3]%
    \PSc@mment{End psarrowDD}\resetc@ntr@l\et@tpsarrow\fi\fi}}
\def\psarrowTD[#1,#2]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowTD%
    \PSc@mment{psarrowTD [Pt1,Pt2]=[#1,#2]}\resetc@ntr@l{2}%
    \Figptpr@j-5:/#1/\Figptpr@j-6:/#2/\let\c@lprojSP=\relax\psarrowDD[-5,-6]%
    \PSc@mment{End psarrowTD}\resetc@ntr@l\et@tpsarrowTD\fi\fi}}
\def\psarrowheadDD[#1,#2]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowheadDD%
    \if@rrowhfill\def\@hangle{-\@rrowheadangle}\else\def\@hangle{\@rrowheadangle}\fi%
    \if@rrowratio%
    \if@rrowhout\def\@hratio{-\@rrowheadratio}\else\def\@hratio{\@rrowheadratio}\fi%
    \PSc@mment{psarrowheadDD Ratio=\@hratio, Angle=\@hangle, [Pt1,Pt2]=[#1,#2]}%
    \Ps@rrowhead\@hratio,\@hangle[#1,#2]%
    \else%
    \if@rrowhout\def\@hlength{-\@rrowheadlength}\else\def\@hlength{\@rrowheadlength}\fi%
    \PSc@mment{psarrowheadDD Length=\@hlength, Angle=\@hangle, [Pt1,Pt2]=[#1,#2]}%
    \Ps@rrowheadfd\@hlength,\@hangle[#1,#2]%
    \fi%
    \PSc@mment{End psarrowheadDD}\resetc@ntr@l\et@tpsarrowheadDD\fi\fi}}
\def\psarrowheadTD[#1,#2]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowheadTD%
    \PSc@mment{psarrowheadTD [Pt1,Pt2]=[#1,#2]}\resetc@ntr@l{2}%
    \Figptpr@j-5:/#1/\Figptpr@j-6:/#2/\let\c@lprojSP=\relax\psarrowheadDD[-5,-6]%
    \PSc@mment{End psarrowheadTD}\resetc@ntr@l\et@tpsarrowheadTD\fi\fi}}
\def\Ps@rrowhead#1,#2[#3,#4]{\v@leur=#1\p@\maxim@m{\v@leur}{\v@leur}{-\v@leur}%
    \ifdim\v@leur>\Cepsil@n{% Arrow is not degenerated
    \PSc@mment{ps@rrowhead Ratio=#1, Angle=#2, [Pt1,Pt2]=[#3,#4]}\v@leur=\UNSS@N%
    \v@leur=\curr@ntwidth\v@leur\v@leur=\ptpsT@pt\v@leur\delt@=.5\v@leur% = width / (2 sin(Angle))
    \setc@ntr@l{2}\figvectPDD-3[#4,#3]%
    \Figg@tXY{-3}\v@lX=#1\v@lX\v@lY=#1\v@lY\Figv@ctCreg-3(\v@lX,\v@lY)%
    \vecunit@{-4}{-3}\mili@u=\result@t%
    \ifdim#2pt>\z@\v@lXa=-\C@AHANG\delt@%
     \edef\c@ef{\repdecn@mb{\v@lXa}}\figpttraDD-3:=-3/\c@ef,-4/\fi%
    \edef\c@ef{\repdecn@mb{\delt@}}%
    \v@lXa=\mili@u\v@lXa=\C@AHANG\v@lXa%
    \v@lYa=\ptpsT@pt\p@\v@lYa=\curr@ntwidth\v@lYa\v@lYa=\sDcc@ngle\v@lYa%
    \advance\v@lXa-\v@lYa\gdef\sDcc@ngle{0}%
    \ifdim\v@lXa>\v@leur\edef\c@efendpt{\repdecn@mb{\v@leur}}%
    \else\edef\c@efendpt{\repdecn@mb{\v@lXa}}\fi%
    \Figg@tXY{-3}\v@lmin=\v@lX\v@lmax=\v@lY%
    \v@lXa=\C@AHANG\v@lmin\v@lYa=\S@AHANG\v@lmax\advance\v@lXa\v@lYa%
    \v@lYa=-\S@AHANG\v@lmin\v@lX=\C@AHANG\v@lmax\advance\v@lYa\v@lX%
    \setc@ntr@l{1}\Figg@tXY{#4}\advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \setc@ntr@l{2}\Figp@intregDD-2:(\v@lX,\v@lY)%
    \v@lXa=\C@AHANG\v@lmin\v@lYa=-\S@AHANG\v@lmax\advance\v@lXa\v@lYa%
    \v@lYa=\S@AHANG\v@lmin\v@lX=\C@AHANG\v@lmax\advance\v@lYa\v@lX%
    \setc@ntr@l{1}\Figg@tXY{#4}\advance\v@lX\v@lXa\advance\v@lY\v@lYa%
    \setc@ntr@l{2}\Figp@intregDD-1:(\v@lX,\v@lY)%
    \ifdim#2pt<\z@\fillm@detrue\psline[-2,#4,-1]% fill
    \else\figptstraDD-3=#4,-2,-1/\c@ef,-4/\psline[-2,-3,-1]\fi% no fill
    \ifdim#1pt>\z@\figpttraDD-3:=#4/\c@efendpt,-4/\else\figptcopyDD-3:/#4/\fi%
    \PSc@mment{End ps@rrowhead}}\fi}
\def\sDcc@ngle{0}% Initialisation
\def\Ps@rrowheadfd#1,#2[#3,#4]{{%
    \PSc@mment{ps@rrowheadfd Length=#1, Angle=#2, [Pt1,Pt2]=[#3,#4]}%
    \setc@ntr@l{2}\figvectPDD-1[#3,#4]\n@rmeucDD{\v@leur}{-1}\v@leur=\ptT@unit@\v@leur%
    \invers@{\v@leur}{\v@leur}\v@leur=#1\v@leur\edef\R@tio{\repdecn@mb{\v@leur}}%
    \Ps@rrowhead\R@tio,#2[#3,#4]\PSc@mment{End ps@rrowheadfd}}}
\def\psarrowBezierDD[#1,#2,#3,#4]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowBezierDD%
    \PSc@mment{psarrowBezierDD Control points=#1,#2,#3,#4}\setc@ntr@l{2}%
    \if@rrowratio\c@larclengthDD\v@leur,10[#1,#2,#3,#4]\else\v@leur=\z@\fi%
    \Ps@rrowB@zDD\v@leur[#1,#2,#3,#4]%
    \PSc@mment{End psarrowBezierDD}\resetc@ntr@l\et@tpsarrowBezierDD\fi\fi}}
\def\psarrowBezierTD[#1,#2,#3,#4]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowBezierTD%
    \PSc@mment{psarrowBezierTD Control points=#1,#2,#3,#4}\resetc@ntr@l{2}%
    \Figptpr@j-7:/#1/\Figptpr@j-8:/#2/\Figptpr@j-9:/#3/\Figptpr@j-10:/#4/%
    \let\c@lprojSP=\relax\ifnum\curr@ntproj<\tw@\psarrowBezierDD[-7,-8,-9,-10]%
    \else\immediate\write\fwf@g{newpath}\PSwrit@cmd{-7}{moveto}{\fwf@g}%
    \if@rrowratio\c@larclengthDD\mili@u,10[-7,-8,-9,-10]\else\mili@u=\z@\fi%
    \p@rtent=\NBz@rcs\advance\p@rtent\m@ne\subB@zierTD\p@rtent[#1,#2,#3,#4]%
    \immediate\write\fwf@g{stroke}%
    \advance\v@lmin\p@rtent\delt@% Initialized in \subB@zierTD
    \v@leur=\v@lmin\advance\v@leur0.33333 \delt@\edef\unti@rs{\repdecn@mb{\v@leur}}%
    \v@leur=\v@lmin\advance\v@leur0.66666 \delt@\edef\deti@rs{\repdecn@mb{\v@leur}}%
    \figptcopyDD-8:/-10/\c@lsubBzarc\unti@rs,\deti@rs[#1,#2,#3,#4]%
    \figptcopyDD-8:/-4/\figptcopyDD-9:/-3/\Ps@rrowB@zDD\mili@u[-7,-8,-9,-10]\fi%
    \PSc@mment{End psarrowBezierTD}\resetc@ntr@l\et@tpsarrowBezierTD\fi\fi}}
\def\c@larclengthDD#1,#2[#3,#4,#5,#6]{{\p@rtent=#2\figptcopyDD-5:/#3/%
    \delt@=\p@\divide\delt@\p@rtent\c@rre=\z@\v@leur=\z@\s@mme=\z@%
    \loop\ifnum\s@mme<\p@rtent\advance\s@mme\@ne\advance\v@leur\delt@%
    \edef\T@{\repdecn@mb{\v@leur}}\figptBezierDD-6::\T@[#3,#4,#5,#6]%
    \figvectPDD-1[-5,-6]\n@rmeucDD{\mili@u}{-1}\advance\c@rre\mili@u%
    \figptcopyDD-5:/-6/\repeat\global\result@t=\ptT@unit@\c@rre}#1=\result@t}
\def\Ps@rrowB@zDD#1[#2,#3,#4,#5]{{\pssetfillmode{no}%
    \if@rrowratio\delt@=\@rrowheadratio#1\else\delt@=\@rrowheadlength pt\fi%
    \v@leur=\C@AHANG\delt@\edef\R@dius{\repdecn@mb{\v@leur}}%
    \FigptintercircB@zDD-5::0,\R@dius[#5,#4,#3,#2]%
    \pssetarrowheadlength{\repdecn@mb{\delt@}}\psarrowheadDD[-5,#5]%
    \let\n@rmeuc=\n@rmeucDD\figgetdist\R@dius[#5,-3]%
    \FigptintercircB@zDD-6::0,\R@dius[#5,#4,#3,#2]%
    \figptBezierDD-5::0.33333[#5,#4,#3,#2]\figptBezierDD-3::0.66666[#5,#4,#3,#2]%
    \figptscontrolDD-5[-6,-5,-3,#2]\psBezierDD1[-6,-5,-4,#2]}}
\def\psarrowcircDD#1;#2(#3,#4){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowcircDD%
    \PSc@mment{psarrowcircDD Center=#1 ; Radius=#2 (Ang1=#3,Ang2=#4)}%
    \pssetfillmode{no}\Pscirc@rrowhead#1;#2(#3,#4)%
    \setc@ntr@l{2}\figvectPDD -4[#1,-3]\vecunit@{-4}{-4}%
    \Figg@tXY{-4}\arct@n\v@lmin(\v@lX,\v@lY)%
    \v@lmin=\rdT@deg\v@lmin\v@leur=#4pt\advance\v@leur-\v@lmin%
    \maxim@m{\v@leur}{\v@leur}{-\v@leur}%
    \ifdim\v@leur>\DemiPI@deg\relax\ifdim\v@lmin<#4pt\advance\v@lmin\DePI@deg%
    \else\advance\v@lmin-\DePI@deg\fi\fi\edef\ar@ngle{\repdecn@mb{\v@lmin}}%
    \ifdim#3pt<#4pt\psarccirc#1;#2(#3,\ar@ngle)\else\psarccirc#1;#2(\ar@ngle,#3)\fi%
    \PSc@mment{End psarrowcircDD}\resetc@ntr@l\et@tpsarrowcircDD\fi\fi}}
\def\psarrowcircTD#1,#2,#3;#4(#5,#6){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowcircTD%
    \PSc@mment{psarrowcircTD Center=#1,P1=#2,P2=#3 ; Radius=#4 (Ang1=#5, Ang2=#6)}%
    \resetc@ntr@l{2}\c@lExtAxes#1,#2,#3(#4)\let\c@lprojSP=\relax%
    \figvectPTD-11[#1,-4]\figvectPTD-12[#1,-5]\c@lNbarcs{#5}{#6}%
    \if@rrowratio\v@lmax=\degT@rd\v@lmax\edef\D@lpha{\repdecn@mb{\v@lmax}}\fi%
    \advance\p@rtent\m@ne\mili@u=\z@%
    \v@leur=#5pt\c@lptellP{#1}{-11}{-12}\Figptpr@j-9:/-3/%
    \immediate\write\fwf@g{newpath}\PSwrit@cmdS{-9}{moveto}{\fwf@g}{\X@un}{\Y@un}%
    \edef\C@nt@r{#1}\s@mme=\z@\bcl@rcircTD\immediate\write\fwf@g{stroke}%
    \advance\v@leur\delt@\c@lptellP{#1}{-11}{-12}\Figptpr@j-5:/-3/%
    \advance\v@leur\delt@\c@lptellP{#1}{-11}{-12}\Figptpr@j-6:/-3/%
    \advance\v@leur\delt@\c@lptellP{#1}{-11}{-12}\Figptpr@j-10:/-3/%
    \figptscontrolDD-8[-9,-5,-6,-10]%
    \if@rrowratio\c@lcurvradDD0.5[-9,-8,-7,-10]\advance\mili@u\result@t%
    \maxim@m{\mili@u}{\mili@u}{-\mili@u}\mili@u=\ptT@unit@\mili@u%
    \mili@u=\D@lpha\mili@u\advance\p@rtent\@ne\divide\mili@u\p@rtent\fi%
    \Ps@rrowB@zDD\mili@u[-9,-8,-7,-10]%
    \PSc@mment{End psarrowcircTD}\resetc@ntr@l\et@tpsarrowcircTD\fi\fi}}
\def\bcl@rcircTD{\relax%
    \ifnum\s@mme<\p@rtent\advance\s@mme\@ne%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-11}{-12}\Figptpr@j-5:/-3/%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-11}{-12}\Figptpr@j-6:/-3/%
    \advance\v@leur\delt@\c@lptellP{\C@nt@r}{-11}{-12}\Figptpr@j-10:/-3/%
    \figptscontrolDD-8[-9,-5,-6,-10]\BdingB@xfalse%
    \PSwrit@cmdS{-8}{}{\fwf@g}{\X@de}{\Y@de}\PSwrit@cmdS{-7}{}{\fwf@g}{\X@tr}{\Y@tr}%
    \BdingB@xtrue\PSwrit@cmdS{-10}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
    \if@rrowratio\c@lcurvradDD0.5[-9,-8,-7,-10]\advance\mili@u\result@t\fi%
    \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
    \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
    \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\figptcopyDD-9:/-10/\bcl@rcircTD\fi}
\def\Pscirc@rrowhead#1;#2(#3,#4){{%
    \PSc@mment{pscirc@rrowhead Center=#1 ; Radius=#2 (Ang1=#3,Ang2=#4)}%
    \v@leur=#2\unit@\edef\s@glen{\repdecn@mb{\v@leur}}\v@lY=\z@\v@lX=\v@leur%
    \resetc@ntr@l{2}\Figv@ctCreg-3(\v@lX,\v@lY)\figpttraDD-5:=#1/1,-3/%
    \figptrotDD-5:=-5/#1,#4/%
    \figvectPDD-3[#1,-5]\Figg@tXY{-3}\v@leur=\v@lX%
    \ifdim#3pt<#4pt\v@lX=\v@lY\v@lY=-\v@leur\else\v@lX=-\v@lY\v@lY=\v@leur\fi%
    \Figv@ctCreg-3(\v@lX,\v@lY)\vecunit@{-3}{-3}%
    \if@rrowratio\v@leur=#4pt\advance\v@leur-#3pt\maxim@m{\mili@u}{-\v@leur}{\v@leur}%
    \mili@u=\degT@rd\mili@u\v@leur=\s@glen\mili@u\edef\s@glen{\repdecn@mb{\v@leur}}%
    \mili@u=#2\mili@u\mili@u=\@rrowheadratio\mili@u\else\mili@u=\@rrowheadlength pt\fi%
    \figpttraDD-6:=-5/\s@glen,-3/\v@leur=#2pt\v@leur=2\v@leur%
    \invers@{\v@leur}{\v@leur}\c@rre=\repdecn@mb{\v@leur}\mili@u% = sin = L/(2R)
    \mili@u=\c@rre\mili@u=\repdecn@mb{\c@rre}\mili@u%
    \v@leur=\p@\advance\v@leur-\mili@u% \v@leur = cos*cos
    \invers@{\mili@u}{2\v@leur}\delt@=\c@rre\delt@=\repdecn@mb{\mili@u}\delt@%
    \xdef\sDcc@ngle{\repdecn@mb{\delt@}}% sin/(2*cos*cos) used in \Ps@rrowhead
    \sqrt@{\mili@u}{\v@leur}\arct@n\v@leur(\mili@u,\c@rre)%
    \v@leur=\rdT@deg\v@leur% \cor@ngle = atan(L/sqrt(4R*R-L*L))
    \ifdim#3pt<#4pt\v@leur=-\v@leur\fi%
    \if@rrowhout\v@leur=-\v@leur\fi\edef\cor@ngle{\repdecn@mb{\v@leur}}%
    \figptrotDD-6:=-6/-5,\cor@ngle/\psarrowheadDD[-6,-5]%
    \PSc@mment{End pscirc@rrowhead}}}
\def\psarrowcircPDD#1;#2[#3,#4]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psarrowcircPDD Center=#1; Radius=#2, [P1=#3,P2=#4]}%
    \s@uvc@ntr@l\et@tpsarrowcircPDD\Ps@ngleparam#1;#2[#3,#4]%
    \ifdim\v@leur>\z@\ifdim\v@lmin>\v@lmax\advance\v@lmax\DePI@deg\fi%
    \else\ifdim\v@lmin<\v@lmax\advance\v@lmin\DePI@deg\fi\fi%
    \edef\@ngdeb{\repdecn@mb{\v@lmin}}\edef\@ngfin{\repdecn@mb{\v@lmax}}%
    \psarrowcirc#1;\r@dius(\@ngdeb,\@ngfin)%
    \PSc@mment{End psarrowcircPDD}\resetc@ntr@l\et@tpsarrowcircPDD\fi\fi}}
\def\psarrowcircPTD#1;#2[#3,#4,#5]{{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsarrowcircPTD%
    \PSc@mment{psarrowcircPTD Center=#1; Radius=#2, [P1=#3,P2=#4,P3=#5]}%
    \figgetangleTD\@ngfin[#1,#3,#4,#5]\v@leur=#2pt%
    \maxim@m{\mili@u}{-\v@leur}{\v@leur}\edef\r@dius{\repdecn@mb{\mili@u}}%
    \ifdim\v@leur<\z@\v@lmax=\@ngfin pt\advance\v@lmax-\DePI@deg%
    \edef\@ngfin{\repdecn@mb{\v@lmax}}\fi\psarrowcircTD#1,#3,#5;\r@dius(0,\@ngfin)%
    \PSc@mment{End psarrowcircPTD}\resetc@ntr@l\et@tpsarrowcircPTD\fi\fi}}
\def\psaxes#1(#2){{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsaxes%
    \PSc@mment{psaxes Origin=#1 Range=(#2)}\an@lys@xes#2,:\resetc@ntr@l{2}%
    \ifx\t@xt@\empty\ifTr@isDim\ps@xes#1(0,#2,0,#2,0,#2)\else\ps@xes#1(0,#2,0,#2)\fi%
    \else\ps@xes#1(#2)\fi\PSc@mment{End psaxes}\resetc@ntr@l\et@tpsaxes\fi\fi}}
\def\an@lys@xes#1,#2:{\def\t@xt@{#2}}
\def\ps@xesDD#1(#2,#3,#4,#5){%
    \figpttraC-5:=#1/#2,0/\figpttraC-6:=#1/#3,0/\psarrowDD[-5,-6]%
    \figpttraC-5:=#1/0,#4/\figpttraC-6:=#1/0,#5/\psarrowDD[-5,-6]}
\def\ps@xesTD#1(#2,#3,#4,#5,#6,#7){%
    \figpttraC-7:=#1/#2,0,0/\figpttraC-8:=#1/#3,0,0/\psarrowTD[-7,-8]%
    \figpttraC-7:=#1/0,#4,0/\figpttraC-8:=#1/0,#5,0/\psarrowTD[-7,-8]%
    \figpttraC-7:=#1/0,0,#6/\figpttraC-8:=#1/0,0,#7/\psarrowTD[-7,-8]}
\def\psbeginfig#1{\ifcurr@ntPS\else%
    \edef\PSfilen@me{#1}\edef\auxfilen@me{\jobname.anx}%
    \ifpstestm@de\ps@critrue\else\openin\frf@g=\PSfilen@me\relax%
    \ifeof\frf@g\ps@critrue\else\ps@crifalse\fi\closein\frf@g\fi%
    \curr@ntPStrue\c@ldefproj\expandafter\setupd@te\defaultupdate:%
    \ifps@cri\initb@undb@x%
    \immediate\openout\fwf@g=\auxfilen@me\initpss@ttings\fi%
    \fi}
\def\initpss@ttings{\psreset{arrowhead,curve,first,flowchart,mesh,second,third}%
    \Use@llipsefalse}
\def\B@zierBB@x#1#2(#3,#4,#5,#6){{\c@rre=\t@n\epsil@n% Do not reduce this value
    \v@lmax=#4\advance\v@lmax-#5\v@lmax=\thr@@\v@lmax\advance\v@lmax#6\advance\v@lmax-#3%
    \mili@u=#4\mili@u=-\tw@\mili@u\advance\mili@u#3\advance\mili@u#5%
    \v@lmin=#4\advance\v@lmin-#3\maxim@m{\v@leur}{-\v@lmax}{\v@lmax}%
    \maxim@m{\delt@}{-\mili@u}{\mili@u}\maxim@m{\v@leur}{\v@leur}{\delt@}%
    \maxim@m{\delt@}{-\v@lmin}{\v@lmin}\maxim@m{\v@leur}{\v@leur}{\delt@}%
    \ifdim\v@leur>\c@rre\invers@{\v@leur}{\v@leur}\edef\Uns@rM@x{\repdecn@mb{\v@leur}}%
    \v@lmax=\Uns@rM@x\v@lmax\mili@u=\Uns@rM@x\mili@u\v@lmin=\Uns@rM@x\v@lmin%
    \maxim@m{\v@leur}{-\v@lmax}{\v@lmax}\ifdim\v@leur<\c@rre%
    \maxim@m{\v@leur}{-\mili@u}{\mili@u}\ifdim\v@leur<\c@rre\else%
    \invers@{\mili@u}{\mili@u}\v@leur=-0.5\v@lmin%
    \v@leur=\repdecn@mb{\mili@u}\v@leur\m@jBBB@x{\v@leur}{#1}{#2}(#3,#4,#5,#6)\fi%
    \else\delt@=\repdecn@mb{\mili@u}\mili@u\v@leur=\repdecn@mb{\v@lmax}\v@lmin%
    \advance\delt@-\v@leur\ifdim\delt@<\z@\else\invers@{\v@lmax}{\v@lmax}%
    \edef\Uns@rAp{\repdecn@mb{\v@lmax}}\sqrt@{\delt@}{\delt@}%
    \v@leur=-\mili@u\advance\v@leur\delt@\v@leur=\Uns@rAp\v@leur%
    \m@jBBB@x{\v@leur}{#1}{#2}(#3,#4,#5,#6)%
    \v@leur=-\mili@u\advance\v@leur-\delt@\v@leur=\Uns@rAp\v@leur%
    \m@jBBB@x{\v@leur}{#1}{#2}(#3,#4,#5,#6)\fi\fi\fi}}
\def\m@jBBB@x#1#2#3(#4,#5,#6,#7){{\relax\ifdim#1>\z@\ifdim#1<\p@%
    \edef\T@{\repdecn@mb{#1}}\v@lX=\p@\advance\v@lX-#1\edef\UNmT@{\repdecn@mb{\v@lX}}%
    \v@lX=#4\v@lY=#5\v@lZ=#6\v@lXa=#7\v@lX=\UNmT@\v@lX\advance\v@lX\T@\v@lY%
    \v@lY=\UNmT@\v@lY\advance\v@lY\T@\v@lZ\v@lZ=\UNmT@\v@lZ\advance\v@lZ\T@\v@lXa%
    \v@lX=\UNmT@\v@lX\advance\v@lX\T@\v@lY\v@lY=\UNmT@\v@lY\advance\v@lY\T@\v@lZ%
    \v@lX=\UNmT@\v@lX\advance\v@lX\T@\v@lY%
    \ifcase#2\or\v@lY=#3\or\v@lY=\v@lX\v@lX=#3\fi\b@undb@x{\v@lX}{\v@lY}\fi\fi}}
\def\PsB@zier#1[#2]{{\immediate\write\fwf@g{newpath}%
    \s@mme=\z@\def\list@num{#2,0}\extrairelepremi@r\p@int\de\list@num%
    \PSwrit@cmdS{\p@int}{moveto}{\fwf@g}{\X@un}{\Y@un}\p@rtent=#1\bclB@zier}}
\def\bclB@zier{\relax%
    \ifnum\s@mme<\p@rtent\advance\s@mme\@ne\BdingB@xfalse%
    \extrairelepremi@r\p@int\de\list@num\PSwrit@cmdS{\p@int}{}{\fwf@g}{\X@de}{\Y@de}%
    \extrairelepremi@r\p@int\de\list@num\PSwrit@cmdS{\p@int}{}{\fwf@g}{\X@tr}{\Y@tr}%
    \BdingB@xtrue%
    \extrairelepremi@r\p@int\de\list@num\PSwrit@cmdS{\p@int}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
    \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
    \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
    \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\bclB@zier\fi}
\def\psBezierDD#1[#2]{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psBezierDD N arcs=#1, Control points=#2}%
    \iffillm@de\PsB@zier#1[#2]%
    \immediate\write\fwf@g{\fillc@md}%
    \else\PsB@zier#1[#2]\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End psBezierDD}\fi\fi}
\def\psBezierTD#1[#2]{\ifcurr@ntPS\ifps@cri\s@uvc@ntr@l\et@tpsBezierTD%
    \PSc@mment{psBezierTD N arcs=#1, Control points=#2}%
    \iffillm@de\PsB@zierTD#1[#2]%
    \immediate\write\fwf@g{\fillc@md}%
    \else\PsB@zierTD#1[#2]\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End psBezierTD}\resetc@ntr@l\et@tpsBezierTD\fi\fi}
\def\PsB@zierTD#1[#2]{\ifnum\curr@ntproj<\tw@\PsB@zier#1[#2]\else\PsB@zier@TD#1[#2]\fi}
\def\PsB@zier@TD#1[#2]{{\immediate\write\fwf@g{newpath}%
    \s@mme=\z@\def\list@num{#2,0}\extrairelepremi@r\p@int\de\list@num%
    \let\c@lprojSP=\relax\setc@ntr@l{2}\Figptpr@j-7:/\p@int/%
    \PSwrit@cmd{-7}{moveto}{\fwf@g}%
    \loop\ifnum\s@mme<#1\advance\s@mme\@ne\extrairelepremi@r\p@intun\de\list@num%
    \extrairelepremi@r\p@intde\de\list@num\extrairelepremi@r\p@inttr\de\list@num%
    \subB@zierTD\NBz@rcs[\p@int,\p@intun,\p@intde,\p@inttr]\edef\p@int{\p@inttr}\repeat}}
\def\subB@zierTD#1[#2,#3,#4,#5]{\delt@=\p@\divide\delt@\NBz@rcs\v@lmin=\z@%
    {\Figg@tXY{-7}\edef\X@un{\the\v@lX}\edef\Y@un{\the\v@lY}%
    \s@mme=\z@\loop\ifnum\s@mme<#1\advance\s@mme\@ne%
    \v@leur=\v@lmin\advance\v@leur0.33333 \delt@\edef\unti@rs{\repdecn@mb{\v@leur}}%
    \v@leur=\v@lmin\advance\v@leur0.66666 \delt@\edef\deti@rs{\repdecn@mb{\v@leur}}%
    \advance\v@lmin\delt@\edef\trti@rs{\repdecn@mb{\v@lmin}}%
    \figptBezierTD-8::\trti@rs[#2,#3,#4,#5]\Figptpr@j-8:/-8/%
    \c@lsubBzarc\unti@rs,\deti@rs[#2,#3,#4,#5]\BdingB@xfalse%
    \PSwrit@cmdS{-4}{}{\fwf@g}{\X@de}{\Y@de}\PSwrit@cmdS{-3}{}{\fwf@g}{\X@tr}{\Y@tr}%
    \BdingB@xtrue\PSwrit@cmdS{-8}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
    \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
    \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
    \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\figptcopyDD-7:/-8/\repeat}}
\def\NBz@rcs{2}
\def\c@lsubBzarc#1,#2[#3,#4,#5,#6]{\figptBezierTD-5::#1[#3,#4,#5,#6]%
    \figptBezierTD-6::#2[#3,#4,#5,#6]\Figptpr@j-4:/-5/\Figptpr@j-5:/-6/%
    \figptscontrolDD-4[-7,-4,-5,-8]}
\def\pscircDD#1(#2){\ifcurr@ntPS\ifps@cri\PSc@mment{pscircDD Center=#1 (Radius=#2)}%
    \psarccircDD#1;#2(0,360)\PSc@mment{End pscircDD}\fi\fi}
\def\pscircTD#1,#2,#3(#4){\ifcurr@ntPS\ifps@cri%
    \PSc@mment{pscircTD Center=#1,P1=#2,P2=#3 (Radius=#4)}%
    \psarccircTD#1,#2,#3;#4(0,360)\PSc@mment{End pscircTD}\fi\fi}
{\catcode`\%=12\gdef\p@urcent{%}}
\def\PSc@mment#1{\ifpsdebugmode\immediate\write\fwf@g{\p@urcent\space#1}\fi}
{\catcode`\[=1\catcode`\{=12\gdef\acc@louv[{}}
{\catcode`\]=2\catcode`\}=12\gdef\acc@lfer{}]]
\def\PSdict@{\ifUse@llipse%
    \immediate\write\fwf@g{/ellipsedict 9 dict def ellipsedict /mtrx matrix put}%
    \immediate\write\fwf@g{/ellipse \acc@louv ellipsedict begin}%
    \immediate\write\fwf@g{ /endangle exch def /startangle exch def}%
    \immediate\write\fwf@g{ /yrad exch def /xrad exch def}%
    \immediate\write\fwf@g{ /rotangle exch def /y exch def /x exch def}%
    \immediate\write\fwf@g{ /savematrix mtrx currentmatrix def}%
    \immediate\write\fwf@g{ x y translate rotangle rotate xrad yrad scale}%
    \immediate\write\fwf@g{ 0 0 1 startangle endangle arc}%
    \immediate\write\fwf@g{ savematrix setmatrix end\acc@lfer def}%
    \fi\PShe@der{EndProlog}}
\def\Pssetc@rve#1=#2|{\keln@mun#1|%
    \def\n@mref{r}\ifx\l@debut\n@mref\pssetroundness{#2}\else% roundness
    \immediate\write16{*** Unknown attribute: \BS@ psset curve(..., #1=...)}%
    \fi}
\def\pssetroundness#1{\edef\curv@roundness{#1}}
\def\defaultroundness{0.2} % Valeur par defaut
\def\pscurveDD[#1]{{\ifcurr@ntPS\ifps@cri\PSc@mment{pscurveDD Points=#1}%
    \s@uvc@ntr@l\et@tpscurveDD%
    \iffillm@de\Psc@rveDD\curv@roundness[#1]%
    \immediate\write\fwf@g{\fillc@md}%
    \else\Psc@rveDD\curv@roundness[#1]\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End pscurveDD}\resetc@ntr@l\et@tpscurveDD\fi\fi}}
\def\pscurveTD[#1]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{pscurveTD Points=#1}\s@uvc@ntr@l\et@tpscurveTD\let\c@lprojSP=\relax%
    \iffillm@de\Psc@rveTD\curv@roundness[#1]%
    \immediate\write\fwf@g{\fillc@md}%
    \else\Psc@rveTD\curv@roundness[#1]\immediate\write\fwf@g{stroke}\fi%
    \PSc@mment{End pscurveTD}\resetc@ntr@l\et@tpscurveTD\fi\fi}}
\def\Psc@rveDD#1[#2]{%
    \def\list@num{#2}\extrairelepremi@r\Ak@\de\list@num%
    \extrairelepremi@r\Ai@\de\list@num\extrairelepremi@r\Aj@\de\list@num%
    \immediate\write\fwf@g{newpath}\PSwrit@cmdS{\Ai@}{moveto}{\fwf@g}{\X@un}{\Y@un}%
    \setc@ntr@l{2}\figvectPDD -1[\Ak@,\Aj@]%
    \@ecfor\Ak@:=\list@num\do{\figpttraDD-2:=\Ai@/#1,-1/\BdingB@xfalse%
       \PSwrit@cmdS{-2}{}{\fwf@g}{\X@de}{\Y@de}%
       \figvectPDD -1[\Ai@,\Ak@]\figpttraDD-2:=\Aj@/-#1,-1/%
       \PSwrit@cmdS{-2}{}{\fwf@g}{\X@tr}{\Y@tr}\BdingB@xtrue%
       \PSwrit@cmdS{\Aj@}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
       \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
       \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
       \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\edef\Ai@{\Aj@}\edef\Aj@{\Ak@}}}
\def\Psc@rveTD#1[#2]{\ifnum\curr@ntproj<\tw@\Psc@rvePPTD#1[#2]\else\Psc@rveCPTD#1[#2]\fi}
\def\Psc@rvePPTD#1[#2]{\setc@ntr@l{2}%
    \def\list@num{#2}\extrairelepremi@r\Ak@\de\list@num\Figptpr@j-5:/\Ak@/%
    \extrairelepremi@r\Ai@\de\list@num\Figptpr@j-3:/\Ai@/%
    \extrairelepremi@r\Aj@\de\list@num\Figptpr@j-4:/\Aj@/%
    \immediate\write\fwf@g{newpath}\PSwrit@cmdS{-3}{moveto}{\fwf@g}{\X@un}{\Y@un}%
    \figvectPDD -1[-5,-4]%
    \@ecfor\Ak@:=\list@num\do{\Figptpr@j-5:/\Ak@/\figpttraDD-2:=-3/#1,-1/%
       \BdingB@xfalse\PSwrit@cmdS{-2}{}{\fwf@g}{\X@de}{\Y@de}%
       \figvectPDD -1[-3,-5]\figpttraDD-2:=-4/-#1,-1/%
       \PSwrit@cmdS{-2}{}{\fwf@g}{\X@tr}{\Y@tr}\BdingB@xtrue%
       \PSwrit@cmdS{-4}{curveto}{\fwf@g}{\X@qu}{\Y@qu}%
       \B@zierBB@x{1}{\Y@un}(\X@un,\X@de,\X@tr,\X@qu)%
       \B@zierBB@x{2}{\X@un}(\Y@un,\Y@de,\Y@tr,\Y@qu)%
       \edef\X@un{\X@qu}\edef\Y@un{\Y@qu}\figptcopyDD-3:/-4/\figptcopyDD-4:/-5/}}
\def\Psc@rveCPTD#1[#2]{\setc@ntr@l{2}%
    \def\list@num{#2}\extrairelepremi@r\Ak@\de\list@num%
    \extrairelepremi@r\Ai@\de\list@num\extrairelepremi@r\Aj@\de\list@num%
    \Figptpr@j-7:/\Ai@/%
    \immediate\write\fwf@g{newpath}\PSwrit@cmd{-7}{moveto}{\fwf@g}%
    \figvectPTD -9[\Ak@,\Aj@]%
    \@ecfor\Ak@:=\list@num\do{\figpttraTD-10:=\Ai@/#1,-9/%
       \figvectPTD -9[\Ai@,\Ak@]\figpttraTD-11:=\Aj@/-#1,-9/%
       \subB@zierTD\NBz@rcs[\Ai@,-10,-11,\Aj@]\edef\Ai@{\Aj@}\edef\Aj@{\Ak@}}}
\def\psendfig{\ifcurr@ntPS\ifps@cri\immediate\closeout\fwf@g%
    \immediate\openout\fwf@g=\PSfilen@me%
    \immediate\write\fwf@g{\p@urcent\string!PS-Adobe-2.0 EPSF-2.0}%
    \PShe@der{Creator\string: TeX (fig4tex.tex)}%
    \PShe@der{Title\string: \PSfilen@me}%
    \PShe@der{CreationDate\string: \the\day/\the\month/\the\year}%
    {\v@lX=\ptT@ptps\c@@rdXmin\v@lY=\ptT@ptps\c@@rdYmin%
     \v@lXa=\ptT@ptps\c@@rdXmax\v@lYa=\ptT@ptps\c@@rdYmax%
    \PShe@der{BoundingBox\string: \repdecn@mb{\v@lX}\space\repdecn@mb{\v@lY}%
              \space\repdecn@mb{\v@lXa}\space\repdecn@mb{\v@lYa}}}%
    \PShe@der{EndComments}\PSdict@%
    %
    \openin\frf@g=\auxfilen@me\c@pypsfile\fwf@g\frf@g\closein\frf@g%
    \PSc@mment{End of file.}\immediate\closeout\fwf@g%
    \immediate\openout\fwf@g=\auxfilen@me\immediate\closeout\fwf@g%
    \immediate\write16{File \PSfilen@me\space created.}\fi\fi\curr@ntPSfalse\ps@critrue}
\def\PShe@der#1{\immediate\write\fwf@g{\p@urcent\p@urcent#1}}
\def\psfcconnect[#1]{{\ifcurr@ntPS\ifps@cri\PSc@mment{psfcconnect Points=#1}%
    \pssetfillmode{no}\s@uvc@ntr@l\et@tpsfcconnect\resetc@ntr@l{2}%
    \fcc@nnect@[#1]\resetc@ntr@l\et@tpsfcconnect\PSc@mment{End psfcconnect}\fi\fi}}
\def\fcc@nnect@[#1]{\let\N@rm=\n@rmeucDD\def\list@num{#1}%
    \extrairelepremi@r\Ai@\de\list@num\edef\pr@m{\Ai@}\v@leur=\z@\p@rtent=\@ne\c@llgtot%
    \ifcase\fclin@typ@\edef\list@num{[\pr@m,#1,\Ai@}\expandafter\pscurve\list@num]%
    \else\ifdim\fclin@r@d\p@>\z@\Pslin@conge[#1]\else\psline[#1]\fi\fi%
    \v@leur=\@rrowp@s\v@leur\edef\list@num{#1,\Ai@,0}%
    \extrairelepremi@r\Ai@\de\list@num\mili@u=\epsil@n\c@llgpart%
    \advance\mili@u-\epsil@n\advance\mili@u-\delt@\advance\v@leur-\mili@u%
    \ifcase\fclin@typ@\invers@\mili@u\delt@%
    \ifnum\@rrowr@fpt>\z@\advance\delt@-\v@leur\v@leur=\delt@\fi%
    \v@leur=\repdecn@mb\v@leur\mili@u\edef\v@lt{\repdecn@mb\v@leur}%
    \extrairelepremi@r\Ak@\de\list@num%
    \figvectPDD-1[\pr@m,\Aj@]\figpttraDD-6:=\Ai@/\curv@roundness,-1/%
    \figvectPDD-1[\Ak@,\Ai@]\figpttraDD-7:=\Aj@/\curv@roundness,-1/%
    \delt@=\@rrowheadlength\p@\delt@=\C@AHANG\delt@\edef\R@dius{\repdecn@mb{\delt@}}%
    \ifcase\@rrowr@fpt%
    \FigptintercircB@zDD-8::\v@lt,\R@dius[\Ai@,-6,-7,\Aj@]\psarrowheadDD[-5,-8]\else%
    \FigptintercircB@zDD-8::\v@lt,\R@dius[\Aj@,-7,-6,\Ai@]\psarrowheadDD[-8,-5]\fi%
    \else\advance\delt@-\v@leur%
    \p@rtentiere{\p@rtent}{\delt@}\edef\C@efun{\the\p@rtent}%
    \p@rtentiere{\p@rtent}{\v@leur}\edef\C@efde{\the\p@rtent}%
    \figptbaryDD-5:[\Ai@,\Aj@;\C@efun,\C@efde]\ifcase\@rrowr@fpt%
    \delt@=\@rrowheadlength\unit@\delt@=\C@AHANG\delt@\edef\t@ille{\repdecn@mb{\delt@}}%
    \figvectPDD-2[\Ai@,\Aj@]\vecunit@{-2}{-2}\figpttraDD-5:=-5/\t@ille,-2/\fi%
    \psarrowheadDD[\Ai@,-5]\fi}
\def\c@llgtot{\@ecfor\Aj@:=\list@num\do{\figvectP-1[\Ai@,\Aj@]\N@rm\delt@{-1}%
    \advance\v@leur\delt@\advance\p@rtent\@ne\edef\Ai@{\Aj@}}}
\def\c@llgpart{\extrairelepremi@r\Aj@\de\list@num\figvectP-1[\Ai@,\Aj@]\N@rm\delt@{-1}%
    \advance\mili@u\delt@\ifdim\mili@u<\v@leur\edef\pr@m{\Ai@}\edef\Ai@{\Aj@}\c@llgpart\fi}
\def\Pslin@conge[#1]{\ifnum\p@rtent>\tw@{\def\list@num{#1}%
    \extrairelepremi@r\Ai@\de\list@num\extrairelepremi@r\Aj@\de\list@num%
    \figptcopy-6:/\Ai@/\figvectP-3[\Ai@,\Aj@]\vecunit@{-3}{-3}\v@lmax=\result@t%
    \@ecfor\Ak@:=\list@num\do{\figvectP-4[\Aj@,\Ak@]\vecunit@{-4}{-4}%
    \minim@m\v@lmin\v@lmax\result@t\v@lmax=\result@t%
    \det@rm\delt@[-3,-4]\maxim@m\mili@u{\delt@}{-\delt@}\ifdim\mili@u>\Cepsil@n%
    \ifdim\delt@>\z@\figgetangleDD\Angl@[\Aj@,\Ak@,\Ai@]\else%
    \figgetangleDD\Angl@[\Aj@,\Ai@,\Ak@]\fi%
    \v@leur=\PI@deg\advance\v@leur-\Angl@\p@\divide\v@leur\tw@%
    \edef\Angl@{\repdecn@mb\v@leur}\c@ssin{\C@}{\S@}{\Angl@}\v@leur=\fclin@r@d\unit@%
    \v@leur=\S@\v@leur\mili@u=\C@\p@\invers@\mili@u\mili@u%
    \v@leur=\repdecn@mb{\mili@u}\v@leur%
    \minim@m\v@leur\v@leur\v@lmin\edef\t@ille{\repdecn@mb{\v@leur}}%
    \figpttra-5:=\Aj@/-\t@ille,-3/\psline[-6,-5]\figpttra-6:=\Aj@/\t@ille,-4/%
    \figvectNVDD-3[-3]\figvectNVDD-8[-4]\inters@cDD-7:[-5,-3;-6,-8]%
    \ifdim\delt@>\z@\psarccircP-7;\fclin@r@d[-5,-6]\else\psarccircP-7;\fclin@r@d[-6,-5]\fi%
    \else\psline[-6,\Aj@]\figptcopy-6:/\Aj@/\fi% Points alignes
    \edef\Ai@{\Aj@}\edef\Aj@{\Ak@}\figptcopy-3:/-4/}\psline[-6,\Aj@]}\else\psline[#1]\fi}
\def\psfcnode[#1]#2{{\ifcurr@ntPS\ifps@cri\PSc@mment{psfcnode Points=#1}%
    \s@uvc@ntr@l\et@tpsfcnode\resetc@ntr@l{2}%
    \def\t@xt@{#2}\ifx\t@xt@\empty\def\g@tt@xt{\setbox\Gb@x=\hbox{\Figg@tT{\p@int}}}%
    \else\def\g@tt@xt{\setbox\Gb@x=\hbox{#2}}\fi%
    \v@lmin=\h@rdfcXp@dd\advance\v@lmin\Xp@dd\unit@\multiply\v@lmin\tw@%
    \v@lmax=\h@rdfcYp@dd\advance\v@lmax\Yp@dd\unit@\multiply\v@lmax\tw@%
    \Figv@ctCreg-8(\unit@,-\unit@)\def\list@num{#1}%
    \delt@=\curr@ntwidth bp\divide\delt@\tw@%
    \fcn@de\PSc@mment{End psfcnode}\resetc@ntr@l\et@tpsfcnode\fi\fi}}
\def\d@butn@de{\g@tt@xt\v@lX=\wd\Gb@x%
    \v@lY=\ht\Gb@x\advance\v@lY\dp\Gb@x\advance\v@lX\v@lmin\advance\v@lY\v@lmax}
\def\fcn@deE{%
    \@ecfor\p@int:=\list@num\do{\d@butn@de\v@lX=\unssqrttw@\v@lX\v@lY=\unssqrttw@\v@lY%
    \ifdim\thickn@ss\p@>\z@% Shadow
    \v@lXa=\v@lX\advance\v@lXa\delt@\v@lXa=\ptT@unit@\v@lXa\edef\XR@d{\repdecn@mb\v@lXa}%
    \v@lYa=\v@lY\advance\v@lYa\delt@\v@lYa=\ptT@unit@\v@lYa\edef\YR@d{\repdecn@mb\v@lYa}%
    \arct@n\v@leur(\v@lXa,\v@lYa)\v@leur=\rdT@deg\v@leur\edef\@nglde{\repdecn@mb\v@leur}%
    {\c@lptellDD-2::\p@int;\XR@d,\YR@d(\@nglde)}% \v@lmin & \v@lmax modified in \c@lptellDD
    \advance\v@leur-\PI@deg\edef\@nglun{\repdecn@mb\v@leur}%
    {\c@lptellDD-3::\p@int;\XR@d,\YR@d(\@nglun)}%
    \figptstra-6=-3,-2,\p@int/\thickn@ss,-8/\pssetfillmode{yes}\us@secondC@lor%
    \psline[-2,-3,-6,-5]\psarcell-4;\XR@d,\YR@d(\@nglun,\@nglde,0)\fi% End shadow
    \v@lX=\ptT@unit@\v@lX\v@lY=\ptT@unit@\v@lY%
    \edef\XR@d{\repdecn@mb\v@lX}\edef\YR@d{\repdecn@mb\v@lY}%
    \pssetfillmode{yes}\us@thirdC@lor\psarcell\p@int;\XR@d,\YR@d(0,360,0)%
    \pssetfillmode{no}\us@primarC@lor\psarcell\p@int;\XR@d,\YR@d(0,360,0)}}
\def\fcn@deL{\delt@=\ptT@unit@\delt@\edef\t@ille{\repdecn@mb\delt@}%
    \@ecfor\p@int:=\list@num\do{\Figg@tXYa{\p@int}\d@butn@de%
    \ifdim\v@lX>\v@lY\itis@Ktrue\else\itis@Kfalse\fi%
    \advance\v@lXa-\v@lX\Figp@intreg-1:(\v@lXa,\v@lYa)%
    \advance\v@lXa\v@lX\advance\v@lYa-\v@lY\Figp@intreg-2:(\v@lXa,\v@lYa)%
    \advance\v@lXa\v@lX\advance\v@lYa\v@lY\Figp@intreg-3:(\v@lXa,\v@lYa)%
    \advance\v@lXa-\v@lX\advance\v@lYa\v@lY\Figp@intreg-4:(\v@lXa,\v@lYa)%
    \ifdim\thickn@ss\p@>\z@\Figg@tXYa{\p@int}\pssetfillmode{yes}\us@secondC@lor% Shadow
    \c@lpt@xt{-1}{-4}\c@lpt@xt@\v@lXa\v@lYa\v@lX\v@lY\c@rre\delt@%
    \Figp@intregDD-9:(\v@lZ,\v@lYa)\Figp@intregDD-11:(\v@lZa,\v@lYa)%
    \c@lpt@xt{-4}{-3}\c@lpt@xt@\v@lYa\v@lXa\v@lY\v@lX\delt@\c@rre%
    \Figp@intregDD-12:(\v@lXa,\v@lZ)\Figp@intregDD-10:(\v@lXa,\v@lZa)%
    \ifitis@K\figptstra-7=-9,-10,-11/\thickn@ss,-8/\psline[-9,-11,-5,-6,-7]\else%
    \figptstra-7=-10,-11,-12/\thickn@ss,-8/\psline[-10,-12,-5,-6,-7]\fi\fi% End shadow
    \pssetfillmode{yes}\us@thirdC@lor\psline[-1,-2,-3,-4]%
    \pssetfillmode{no}\us@primarC@lor\psline[-1,-2,-3,-4,-1]}}
\def\c@lpt@xt#1#2{\figvectN-7[#1,#2]\vecunit@{-7}{-7}\figpttra-5:=#1/\t@ille,-7/%
    \figvectP-7[#1,#2]\Figg@tXY{-7}\c@rre=\v@lX\delt@=\v@lY\Figg@tXY{-5}}
\def\c@lpt@xt@#1#2#3#4#5#6{\v@lZ=#6\invers@{\v@lZ}{\v@lZ}\v@leur=\repdecn@mb{#5}\v@lZ%
    \v@lZ=#2\advance\v@lZ-#4\mili@u=\repdecn@mb{\v@leur}\v@lZ%
    \v@lZ=#3\advance\v@lZ\mili@u\v@lZa=-\v@lZ\advance\v@lZa\tw@#1}
\def\fcn@deR{\@ecfor\p@int:=\list@num\do{\Figg@tXYa{\p@int}\d@butn@de%
    \advance\v@lXa-0.5\v@lX\advance\v@lYa-0.5\v@lY\Figp@intreg-1:(\v@lXa,\v@lYa)%
    \advance\v@lXa\v@lX\Figp@intreg-2:(\v@lXa,\v@lYa)%
    \advance\v@lYa\v@lY\Figp@intreg-3:(\v@lXa,\v@lYa)%
    \advance\v@lXa-\v@lX\Figp@intreg-4:(\v@lXa,\v@lYa)%
    \ifdim\thickn@ss\p@>\z@\pssetfillmode{yes}\us@secondC@lor% Shadow
    \Figv@ctCreg-5(-\delt@,-\delt@)\figpttra-9:=-1/1,-5/%
    \Figv@ctCreg-5(\delt@,-\delt@)\figpttra-10:=-2/1,-5/%
    \Figv@ctCreg-5(\delt@,\delt@)\figpttra-11:=-3/1,-5/%
    \figptstra-7=-9,-10,-11/\thickn@ss,-8/\psline[-9,-11,-5,-6,-7]\fi% End shadow
    \pssetfillmode{yes}\us@thirdC@lor\psline[-1,-2,-3,-4]%
    \pssetfillmode{no}\us@primarC@lor\psline[-1,-2,-3,-4,-1]}}
\def\Pssetfl@wchart#1=#2|{\keln@mtr#1|%
    \def\n@mref{arr}\ifx\l@debut\n@mref\expandafter\keln@mtr\l@suite|%
     \def\n@mref{owp}\ifx\l@debut\n@mref\edef\@rrowp@s{#2}\else% arrowposition
     \def\n@mref{owr}\ifx\l@debut\n@mref\setfcr@fpt#2|\else% arrowrefpt
     \immediate\write16{*** Unknown attribute: \BS@ psset flowchart(..., #1=...)}%
     \fi\fi\else%
    \def\n@mref{lin}\ifx\l@debut\n@mref\setfccurv@#2|\else% line
    \def\n@mref{pad}\ifx\l@debut\n@mref\edef\Xp@dd{#2}\edef\Yp@dd{#2}\else% padding
    \def\n@mref{rad}\ifx\l@debut\n@mref\edef\fclin@r@d{#2}\else% connection radius
    \def\n@mref{sha}\ifx\l@debut\n@mref\setfcshap@#2|\else% shape
    \def\n@mref{thi}\ifx\l@debut\n@mref\edef\thickn@ss{#2}\else% thickness
    \def\n@mref{xpa}\ifx\l@debut\n@mref\edef\Xp@dd{#2}\else% xpadding
    \def\n@mref{ypa}\ifx\l@debut\n@mref\edef\Yp@dd{#2}\else% ypadding
    \immediate\write16{*** Unknown attribute: \BS@ psset flowchart(..., #1=...)}%
    \fi\fi\fi\fi\fi\fi\fi\fi}
\def\setfcr@fpt#1#2|{\if#1e\def\@rrowr@fpt{1}\else\def\@rrowr@fpt{0}\fi}
\def\setfccurv@#1#2|{\if#1c\def\fclin@typ@{0}\else\def\fclin@typ@{1}\fi}
\def\setfcshap@#1#2|{%
    \if#1e\let\fcn@de=\fcn@deE\def\h@rdfcXp@dd{4pt}\def\h@rdfcYp@dd{4pt}%
     \edef\fcsh@pe{ellipse}\else%
    \if#1l\let\fcn@de=\fcn@deL\def\h@rdfcXp@dd{4pt}\def\h@rdfcYp@dd{4pt}%
     \edef\fcsh@pe{lozenge}\else%
          \let\fcn@de=\fcn@deR\def\h@rdfcXp@dd{6pt}\def\h@rdfcYp@dd{6pt}%
     \edef\fcsh@pe{rectangle}\fi\fi}
\def\psline[#1]{{\ifcurr@ntPS\ifps@cri\PSc@mment{psline Points=#1}%
    \let\pslign@=\Pslign@P\Pslin@{#1}\PSc@mment{End psline}\fi\fi}}
\def\pslineF#1{{\ifcurr@ntPS\ifps@cri\PSc@mment{pslineF Filename=#1}%
    \let\pslign@=\Pslign@F\Pslin@{#1}\PSc@mment{End pslineF}\fi\fi}}
\def\pslineC(#1){{\ifcurr@ntPS\ifps@cri\PSc@mment{pslineC}%
    \let\pslign@=\Pslign@C\Pslin@{#1}\PSc@mment{End pslineC}\fi\fi}}
\def\Pslin@#1{\iffillm@de\pslign@{#1}%
    \immediate\write\fwf@g{\fillc@md}%
    \else\pslign@{#1}\ifx\derp@int\premp@int%
    \immediate\write\fwf@g{closepath\space stroke}%
    \else\immediate\write\fwf@g{stroke}\fi\fi}
\def\Pslign@P#1{\def\list@num{#1}\extrairelepremi@r\p@int\de\list@num%
    \edef\premp@int{\p@int}\immediate\write\fwf@g{newpath}%
    \PSwrit@cmd{\p@int}{moveto}{\fwf@g}%
    \@ecfor\p@int:=\list@num\do{\PSwrit@cmd{\p@int}{lineto}{\fwf@g}%
    \edef\derp@int{\p@int}}}
\def\Pslign@F#1{\s@uvc@ntr@l\et@tPslign@F\setc@ntr@l{2}\openin\frf@g=#1\relax%
    \ifeof\frf@g\message{*** File #1 not found !}\end\else%
    \read\frf@g to\tr@c\edef\premp@int{\tr@c}\expandafter\extr@ctCF\tr@c:%
    \immediate\write\fwf@g{newpath}\PSwrit@cmd{-1}{moveto}{\fwf@g}%
    \loop\read\frf@g to\tr@c\ifeof\frf@g\mored@tafalse\else\mored@tatrue\fi%
    \ifmored@ta\expandafter\extr@ctCF\tr@c:\PSwrit@cmd{-1}{lineto}{\fwf@g}%
    \edef\derp@int{\tr@c}\repeat\fi\closein\frf@g\resetc@ntr@l\et@tPslign@F}
\def\extr@ctCFDD#1 #2:{\v@lX=#1\unit@\v@lY=#2\unit@\Figp@intregDD-1:(\v@lX,\v@lY)}
\def\extr@ctCFTD#1 #2 #3:{\v@lX=#1\unit@\v@lY=#2\unit@\v@lZ=#3\unit@%
    \Figp@intregTD-1:(\v@lX,\v@lY,\v@lZ)}
\def\Pslign@C#1{\s@uvc@ntr@l\et@tPslign@C\setc@ntr@l{2}%
    \def\list@num{#1}\extrairelepremi@r\p@int\de\list@num%
    \edef\premp@int{\p@int}\immediate\write\fwf@g{newpath}%
    \expandafter\Pslign@C@\p@int:\PSwrit@cmd{-1}{moveto}{\fwf@g}%
    \@ecfor\p@int:=\list@num\do{\expandafter\Pslign@C@\p@int:%
    \PSwrit@cmd{-1}{lineto}{\fwf@g}\edef\derp@int{\p@int}}%
    \resetc@ntr@l\et@tPslign@C}
\def\Pslign@C@#1 #2:{{\def\t@xt@{#1}\ifx\t@xt@\empty\Pslign@C@#2:% Discard leading spaces
    \else\extr@ctCF#1 #2:\fi}}
\newcount\c@ntrolmesh
\def\Pssetm@sh#1=#2|{\keln@mun#1|%
    \def\n@mref{d}\ifx\l@debut\n@mref\pssetmeshdiag{#2}\else% diag
    \immediate\write16{*** Unknown attribute: \BS@ psset mesh(..., #1=...)}%
    \fi}
\def\pssetmeshdiag#1{\c@ntrolmesh=#1}
\def\defaultmeshdiag{0}    % Valeur par defaut
\def\psmesh#1,#2[#3,#4,#5,#6]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psmesh N1=#1, N2=#2, Quadrangle=[#3,#4,#5,#6]}%
    \s@uvc@ntr@l\et@tpsmesh\Pss@tsecondSt\setc@ntr@l{2}%
    \ifnum#1>\@ne\Psmeshp@rt#1[#3,#4,#5,#6]\fi%
    \ifnum#2>\@ne\Psmeshp@rt#2[#4,#5,#6,#3]\fi%
    \ifnum\c@ntrolmesh>\z@\Psmeshdi@g#1,#2[#3,#4,#5,#6]\fi%
    \ifnum\c@ntrolmesh<\z@\Psmeshdi@g#2,#1[#4,#5,#6,#3]\fi\Psrest@reSt%
    \psline[#3,#4,#5,#6,#3]\PSc@mment{End psmesh}\resetc@ntr@l\et@tpsmesh\fi\fi}}
\def\Psmeshp@rt#1[#2,#3,#4,#5]{{\l@mbd@un=\@ne\l@mbd@de=#1\loop%
    \ifnum\l@mbd@un<#1\advance\l@mbd@de\m@ne\figptbary-1:[#2,#3;\l@mbd@de,\l@mbd@un]%
    \figptbary-2:[#5,#4;\l@mbd@de,\l@mbd@un]\psline[-1,-2]\advance\l@mbd@un\@ne\repeat}}
\def\Psmeshdi@g#1,#2[#3,#4,#5,#6]{\figptcopy-2:/#3/\figptcopy-3:/#6/%
    \l@mbd@un=\z@\l@mbd@de=#1\loop\ifnum\l@mbd@un<#1%
    \advance\l@mbd@un\@ne\advance\l@mbd@de\m@ne\figptcopy-1:/-2/\figptcopy-4:/-3/%
    \figptbary-2:[#3,#4;\l@mbd@de,\l@mbd@un]%
    \figptbary-3:[#6,#5;\l@mbd@de,\l@mbd@un]\Psmeshdi@gp@rt#2[-1,-2,-3,-4]\repeat}
\def\Psmeshdi@gp@rt#1[#2,#3,#4,#5]{{\l@mbd@un=\z@\l@mbd@de=#1\loop%
    \ifnum\l@mbd@un<#1\figptbary-5:[#2,#5;\l@mbd@de,\l@mbd@un]%
    \advance\l@mbd@de\m@ne\advance\l@mbd@un\@ne%
    \figptbary-6:[#3,#4;\l@mbd@de,\l@mbd@un]\psline[-5,-6]\repeat}}
\def\psnormalDD#1,#2[#3,#4]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{psnormal Length=#1, Lambda=#2 [Pt1,Pt2]=[#3,#4]}%
    \s@uvc@ntr@l\et@tpsnormal\resetc@ntr@l{2}\figptendnormal-6::#1,#2[#3,#4]%
    \figptcopyDD-5:/-1/\psarrow[-5,-6]%
    \PSc@mment{End psnormal}\resetc@ntr@l\et@tpsnormal\fi\fi}}
\def\psreset#1{\trtlis@rg{#1}{\Psreset@}}
\def\Psreset@#1|{\keln@mde#1|%
    \def\n@mref{ar}\ifx\l@debut\n@mref\psresetarrowhead\else% arrowhead
    \def\n@mref{cu}\ifx\l@debut\n@mref\psset curve(roundness=\defaultroundness)\else% curve
    \def\n@mref{fi}\ifx\l@debut\n@mref\psset (color=\defaultcolor,dash=\defaultdash,%
         fill=\defaultfill,join=\defaultjoin,width=\defaultwidth)\else% primary settings
    \def\n@mref{fl}\ifx\l@debut\n@mref\psset flowchart(arrowp=\defaultfcarrowposition,%
	arrowr=\defaultfcarrowrefpt,line=\defaultfcline,xpadd=\defaultfcxpadding,%
	ypadd=\defaultfcypadding,radius=\defaultfcradius,shape=\defaultfcshape,%
	thick=\defaultfcthickness)\else% flow chart
    \def\n@mref{me}\ifx\l@debut\n@mref\psset mesh(diag=\defaultmeshdiag)\else% mesh
    \def\n@mref{se}\ifx\l@debut\n@mref\psresetsecondsettings\else% secondary
    \def\n@mref{th}\ifx\l@debut\n@mref\psset third(color=\defaultthirdcolor)\else% ternary
    \immediate\write16{*** Unknown keyword #1 (\BS@ psreset).}%
    \fi\fi\fi\fi\fi\fi\fi}
\def\psset#1(#2){\def\t@xt@{#1}\ifx\t@xt@\empty\trtlis@rg{#2}{\Pssetf@rst}% primary settings
    \else\keln@mde#1|%
    \def\n@mref{ar}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Psset@rrowhe@d}\else% arrow-head
    \def\n@mref{cu}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssetc@rve}\else% curve
    \def\n@mref{fi}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssetf@rst}\else% primary settings
    \def\n@mref{fl}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssetfl@wchart}\else% flow chart
    \def\n@mref{me}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssetm@sh}\else% mesh
    \def\n@mref{se}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssets@cond}\else% secondary settings
    \def\n@mref{th}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssetth@rd}\else% ternary settings
    \immediate\write16{*** Unknown keyword: \BS@ psset #1(...)}%
    \fi\fi\fi\fi\fi\fi\fi\fi}
\def\pssetdefault#1(#2){\ifcurr@ntPS\immediate\write16{*** \BS@ pssetdefault is ignored
    inside a \BS@ psbeginfig-\BS@ psendfig block.}%
    \immediate\write16{*** It must be called before \BS@ psbeginfig.}\else%
    \def\t@xt@{#1}\ifx\t@xt@\empty\trtlis@rg{#2}{\Pssd@f@rst}\else\keln@mde#1|%
    \def\n@mref{ar}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@@rrowhe@d}\else% arrow-head
    \def\n@mref{cu}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@c@rve}\else% curve
    \def\n@mref{fi}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@f@rst}\else% primary settings
    \def\n@mref{fl}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@fl@wchart}\else% flow chart
    \def\n@mref{me}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@m@sh}\else% mesh
    \def\n@mref{se}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@s@cond}\else% secondary settings
    \def\n@mref{th}\ifx\l@debut\n@mref\trtlis@rg{#2}{\Pssd@th@rd}\else% ternary settings
    \immediate\write16{*** Unknown keyword: \BS@ pssetdefault #1(...)}%
    \fi\fi\fi\fi\fi\fi\fi\fi\initpss@ttings\fi}
\def\Pssd@f@rst#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\edef\defaultcolor{#2}\else% color
    \def\n@mref{d}\ifx\l@debut\n@mref\edef\defaultdash{#2}\else% dash
    \def\n@mref{f}\ifx\l@debut\n@mref\edef\defaultfill{#2}\else% fillmode
    \def\n@mref{j}\ifx\l@debut\n@mref\edef\defaultjoin{#2}\else% line join
    \def\n@mref{u}\ifx\l@debut\n@mref\edef\defaultupdate{#2}\pssetupdate{#2}\else% update
    \def\n@mref{w}\ifx\l@debut\n@mref\edef\defaultwidth{#2}\else% line width
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault (..., #1=...)}%
    \fi\fi\fi\fi\fi\fi}
\def\Pssd@@rrowhe@d#1=#2|{\keln@mun#1|%
    \def\n@mref{a}\ifx\l@debut\n@mref\edef\defaultarrowheadangle{#2}\else% angle
    \def\n@mref{f}\ifx\l@debut\n@mref\edef\defaultarrowheadangle{#2}\else% fillmode
    \def\n@mref{l}\ifx\l@debut\n@mref\y@tiunit{#2}\ifunitpr@sent%
     \edef\defaulth@rdahlength{#2}\else\edef\defaulth@rdahlength{#2pt}%
     \message{*** \BS@ pssetdefault (..., #1=#2, ...) : unit is missing, pt is assumed.}%
     \fi\else% length
    \def\n@mref{o}\ifx\l@debut\n@mref\edef\defaultarrowheadout{#2}\else% out
    \def\n@mref{r}\ifx\l@debut\n@mref\edef\defaultarrowheadratio{#2}\else% ratio
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault arrowhead(..., #1=...)}%
    \fi\fi\fi\fi\fi}
\def\Pssd@c@rve#1=#2|{\keln@mun#1|%
    \def\n@mref{r}\ifx\l@debut\n@mref\edef\defaultroundness{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault curve(..., #1=...)}%
    \fi}
\def\Pssd@fl@wchart#1=#2|{\keln@mtr#1|%
    \def\n@mref{arr}\ifx\l@debut\n@mref\expandafter\keln@mtr\l@suite|%
     \def\n@mref{owp}\ifx\l@debut\n@mref\edef\defaultfcarrowposition{#2}\else% arrowposition
     \def\n@mref{owr}\ifx\l@debut\n@mref\edef\defaultfcarrowrefpt{#2}\else% arrowrefpt
     \immediate\write16{*** Unknown attribute: \BS@ pssetdefault flowchart(..., #1=...)}%
     \fi\fi\else%
    \def\n@mref{lin}\ifx\l@debut\n@mref\edef\defaultfcline{#2}\else% line
    \def\n@mref{pad}\ifx\l@debut\n@mref\edef\defaultfcxpadding{#2}%
                    \edef\defaultfcypadding{#2}\else% padding
    \def\n@mref{rad}\ifx\l@debut\n@mref\edef\defaultfcradius{#2}\else% connection radius
    \def\n@mref{sha}\ifx\l@debut\n@mref\edef\defaultfcshape{#2}\else% shape
    \def\n@mref{thi}\ifx\l@debut\n@mref\edef\defaultfcthickness{#2}\else% thickness
    \def\n@mref{xpa}\ifx\l@debut\n@mref\edef\defaultfcxpadding{#2}\else% xpadding
    \def\n@mref{ypa}\ifx\l@debut\n@mref\edef\defaultfcypadding{#2}\else% ypadding
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault flowchart(..., #1=...)}%
    \fi\fi\fi\fi\fi\fi\fi\fi}
\def\defaultfcarrowposition{0.5}\let\defaultfcarrowpos=\defaultfcarrowposition
\def\defaultfcarrowrefpt{start}
\def\defaultfcline{polygon}
\def\defaultfcradius{0}
\def\defaultfcshape{rectangle}
\def\defaultfcthickness{0}\let\defaultfcthick=\defaultfcthickness
\def\defaultfcxpadding{0}\let\defaultfcxpad=\defaultfcxpadding
\def\defaultfcypadding{0}\let\defaultfcypad=\defaultfcypadding
\def\Pssd@m@sh#1=#2|{\keln@mun#1|%
    \def\n@mref{d}\ifx\l@debut\n@mref\edef\defaultmeshdiag{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault mesh(..., #1=...)}%
    \fi}
\def\Pssd@s@cond#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\edef\defaultsecondcolor{#2}\else%
    \def\n@mref{d}\ifx\l@debut\n@mref\edef\defaultseconddash{#2}\else%
    \def\n@mref{w}\ifx\l@debut\n@mref\edef\defaultsecondwidth{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault second(..., #1=...)}%
    \fi\fi\fi}
\def\Pssd@th@rd#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\edef\defaultthirdcolor{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ pssetdefault third(..., #1=...)}%
    \fi}
\newif\iffillm@de
\def\pssetfillmode#1{\expandafter\setfillm@de#1:}
\def\setfillm@de#1#2:{\if#1n\fillm@defalse\else\fillm@detrue\fi}
\def\defaultfill{no}     % Valeur par defaut
\newif\ifpstestm@de
\def\pssetupdate#1{\ifcurr@ntPS\immediate\write16{*** \BS@ pssetupdate is ignored inside a
     \BS@ psbeginfig-\BS@ psendfig block.}%
    \immediate\write16{*** It must be called before \BS@ psbeginfig.}%
    \else\expandafter\setupd@te#1:\fi}
\def\setupd@te#1#2:{\if#1n\pstestm@defalse\else\pstestm@detrue\fi}
\def\defaultupdate{no}     % Valeur par defaut
\def\Pssetc@lor#1{\ifps@cri\result@tent=\@ne\expandafter\c@lnbV@l#1 :%
    \def\curr@ntcolor{}\def\curr@ntcolorc@md{}%
    \ifcase\result@tent\or\pssetgray{#1}\or\or\pssetrgb{#1}\or\pssetcmyk{#1}\fi\fi}
\def\pssetcmyk#1{\ifps@cri\def\curr@ntcolor{#1}\def\curr@ntcolorc@md{setcmykcolor}%
    \ifcurr@ntPS\PSc@mment{pssetcmyk Color=#1}\us@primarC@lor\fi\fi}
\def\pssetrgb#1{\ifps@cri\def\curr@ntcolor{#1}\def\curr@ntcolorc@md{setrgbcolor}%
    \ifcurr@ntPS\PSc@mment{pssetrgb Color=#1}\us@primarC@lor\fi\fi}
\def\pssetgray#1{\ifps@cri\def\curr@ntcolor{#1}\def\curr@ntcolorc@md{setgray}%
    \ifcurr@ntPS\PSc@mment{pssetgray Gray level=#1}\us@primarC@lor\fi\fi}
\def\us@primarC@lor{\immediate\write\fwf@g{\curr@ntcolor\space\curr@ntcolorc@md}%
    \let\fillc@md=\prfillc@md}
\def\prfillc@md{\curr@ntcolor\space\curr@ntcolorc@md\space fill}
\def\defaultcolor{0}       % Valeur par defaut
\def\c@lnbV@l#1 #2:{\def\t@xt@{#1}\relax\ifx\t@xt@\empty\c@lnbV@l#2:% Discard leading spaces
    \else\c@lnbV@l@#1 #2:\fi}
\def\c@lnbV@l@#1 #2:{\def\t@xt@{#2}\ifx\t@xt@\empty%
    \def\t@xt@{#1}\ifx\t@xt@\empty\advance\result@tent\m@ne\fi% Discard trailing spaces
    \else\advance\result@tent\@ne\c@lnbV@l@#2:\fi}
\def\Blackcmyk{0 0 0 1}
\def\Whitecmyk{0 0 0 0}
\def\Cyancmyk{1 0 0 0}
\def\Magentacmyk{0 1 0 0}
\def\Yellowcmyk{0 0 1 0}
\def\Redcmyk{0 1 1 0}
\def\Greencmyk{1 0 1 0}
\def\Bluecmyk{1 1 0 0}
\def\Graycmyk{0 0 0 0.50}
\def\BrickRedcmyk{0 0.89 0.94 0.28} % PANTONE 1805
\def\Browncmyk{0 0.81 1 0.60} % PANTONE 1615
\def\ForestGreencmyk{0.91 0 0.88 0.12} % PANTONE 349
\def\Goldenrodcmyk{ 0 0.10 0.84 0} % PANTONE 109
\def\Marooncmyk{0 0.87 0.68 0.32} % PANTONE 201
\def\Orangecmyk{0 0.61 0.87 0} % PANTONE ORANGE-021
\def\Purplecmyk{0.45 0.86 0 0} % PANTONE PURPLE
\def\RoyalBluecmyk{1. 0.50 0 0} % No PANTONE match
\def\Violetcmyk{0.79 0.88 0 0} % PANTONE VIOLET
\def\Blackrgb{0 0 0}
\def\Whitergb{1 1 1}
\def\Redrgb{1 0 0}
\def\Greenrgb{0 1 0}
\def\Bluergb{0 0 1}
\def\Cyanrgb{0 1 1}
\def\Magentargb{1 0 1}
\def\Yellowrgb{1 1 0}
\def\Grayrgb{0.5 0.5 0.5}
\def\Chocolatergb{0.824 0.412 0.118}
\def\DarkGoldenrodrgb{0.722 0.525 0.043}
\def\DarkOrangergb{1 0.549 0}
\def\Firebrickrgb{0.698 0.133 0.133}
\def\ForestGreenrgb{0.133 0.545 0.133}
\def\Goldrgb{1 0.843 0}
\def\HotPinkrgb{1 0.412 0.706}
\def\Maroonrgb{0.690 0.188 0.376}
\def\Pinkrgb{1 0.753 0.796}
\def\RoyalBluergb{0.255 0.412 0.882}
\def\Pssetf@rst#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\Pssetc@lor{#2}\else% color
    \def\n@mref{d}\ifx\l@debut\n@mref\pssetdash{#2}\else% dash
    \def\n@mref{f}\ifx\l@debut\n@mref\pssetfillmode{#2}\else% fillmode
    \def\n@mref{j}\ifx\l@debut\n@mref\pssetjoin{#2}\else% line join
    \def\n@mref{u}\ifx\l@debut\n@mref\pssetupdate{#2}\else% update
    \def\n@mref{w}\ifx\l@debut\n@mref\pssetwidth{#2}\else% line width
    \immediate\write16{*** Unknown attribute: \BS@ psset (..., #1=...)}%
    \fi\fi\fi\fi\fi\fi}
\def\s@uvdash#1{\edef#1{\curr@ntdash}}
\def\defaultdash{1}        % Valeur par defaut
\def\pssetdash#1{\ifps@cri\edef\curr@ntdash{#1}\ifcurr@ntPS\expandafter\Pssetd@sh#1 :\fi\fi}
\def\Pssetd@shI#1{\PSc@mment{pssetdash Index=#1}\ifcase#1%
    \or\immediate\write\fwf@g{[] 0 setdash}%         Index=1
    \or\immediate\write\fwf@g{[6 2] 0 setdash}%      Index=2
    \or\immediate\write\fwf@g{[4 2] 0 setdash}%      Index=3
    \or\immediate\write\fwf@g{[2 2] 0 setdash}%      Index=4
    \or\immediate\write\fwf@g{[1 2] 0 setdash}%      Index=5
    \or\immediate\write\fwf@g{[2 4] 0 setdash}%      Index=6
    \or\immediate\write\fwf@g{[3 5] 0 setdash}%      Index=7
    \or\immediate\write\fwf@g{[3 3] 0 setdash}%      Index=8
    \or\immediate\write\fwf@g{[3 5 1 5] 0 setdash}%  Index=9
    \or\immediate\write\fwf@g{[6 4 2 4] 0 setdash}%  Index=10
    \fi}
\def\Pssetd@sh#1 #2:{{\def\t@xt@{#1}\ifx\t@xt@\empty\Pssetd@sh#2:% Discard leading spaces
    \else\def\t@xt@{#2}\ifx\t@xt@\empty\Pssetd@shI{#1}\else\s@mme=\@ne\def\debutp@t{#1}%
    \an@lysd@sh#2:\ifodd\s@mme\edef\debutp@t{\debutp@t\space\finp@t}\def\finp@t{0}\fi%
    \PSc@mment{pssetdash Pattern=#1 #2}%
    \immediate\write\fwf@g{[\debutp@t] \finp@t\space setdash}\fi\fi}}
\def\an@lysd@sh#1 #2:{\def\t@xt@{#2}\ifx\t@xt@\empty\def\finp@t{#1}\else%
    \edef\debutp@t{\debutp@t\space#1}\advance\s@mme\@ne\an@lysd@sh#2:\fi}
\def\s@uvwidth#1{\edef#1{\curr@ntwidth}}
\def\defaultwidth{0.4}     % Valeur par defaut
\def\pssetwidth#1{\ifps@cri\edef\curr@ntwidth{#1}\ifcurr@ntPS%
    \PSc@mment{pssetwidth Width=#1}\immediate\write\fwf@g{#1 setlinewidth}\fi\fi}
\def\pssetjoin#1{\ifps@cri\edef\curr@ntjoin{#1}\ifcurr@ntPS\expandafter\Pssetj@in#1:\fi\fi}
\def\Pssetj@in#1#2:{\PSc@mment{pssetjoin join=#1}%
    \if#1r\def\t@xt@{1}\else\if#1b\def\t@xt@{2}\else\def\t@xt@{0}\fi\fi%
    \immediate\write\fwf@g{\t@xt@\space setlinejoin}}
\def\defaultjoin{miter}   % Valeur par defaut
\def\Pssets@cond#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\Pssets@condcolor{#2}\else%
    \def\n@mref{d}\ifx\l@debut\n@mref\pssetseconddash{#2}\else%
    \def\n@mref{w}\ifx\l@debut\n@mref\pssetsecondwidth{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ psset second(..., #1=...)}%
    \fi\fi\fi}
\def\pssetseconddash#1{\edef\curr@ntseconddash{#1}}
\def\defaultseconddash{4}  % Valeur par defaut
\def\pssetsecondwidth#1{\edef\curr@ntsecondwidth{#1}}
\edef\defaultsecondwidth{\defaultwidth} % Valeur par defaut
\def\psresetsecondsettings{%
    \pssetseconddash{\defaultseconddash}\pssetsecondwidth{\defaultsecondwidth}%
    \Pssets@condcolor{\defaultsecondcolor}}
\def\Pssets@condcolor#1{\ifps@cri\result@tent=\@ne\expandafter\c@lnbV@l#1 :%
    \def\sec@ndcolor{}\def\sec@ndcolorc@md{}%
    \ifcase\result@tent\or\pssetsecondgray{#1}\or\or\pssetsecondrgb{#1}%
    \or\pssetsecondcmyk{#1}\fi\fi}
\def\pssetsecondcmyk#1{\def\sec@ndcolor{#1}\def\sec@ndcolorc@md{setcmykcolor}}
\def\pssetsecondrgb#1{\def\sec@ndcolor{#1}\def\sec@ndcolorc@md{setrgbcolor}}
\def\pssetsecondgray#1{\def\sec@ndcolor{#1}\def\sec@ndcolorc@md{setgray}}
\def\us@secondC@lor{\immediate\write\fwf@g{\sec@ndcolor\space\sec@ndcolorc@md}%
    \let\fillc@md=\sdfillc@md}
\def\sdfillc@md{\sec@ndcolor\space\sec@ndcolorc@md\space fill}
\edef\defaultsecondcolor{\defaultcolor} % Valeur par defaut
\def\Pss@tsecondSt{%
    \s@uvdash{\typ@dash}\pssetdash{\curr@ntseconddash}%
    \s@uvwidth{\typ@width}\pssetwidth{\curr@ntsecondwidth}\us@secondC@lor}
\def\Psrest@reSt{\pssetwidth{\typ@width}\pssetdash{\typ@dash}\us@primarC@lor}
\def\Pssetth@rd#1=#2|{\keln@mun#1|%
    \def\n@mref{c}\ifx\l@debut\n@mref\Pssetth@rdcolor{#2}\else%
    \immediate\write16{*** Unknown attribute: \BS@ psset third(..., #1=...)}%
    \fi}
\def\Pssetth@rdcolor#1{\ifps@cri\result@tent=\@ne\expandafter\c@lnbV@l#1 :%
    \def\th@rdcolor{}\def\th@rdcolorc@md{}%
    \ifcase\result@tent\or\Pssetth@rdgray{#1}\or\or\Pssetth@rdrgb{#1}%
    \or\Pssetth@rdcmyk{#1}\fi\fi}
\def\Pssetth@rdcmyk#1{\def\th@rdcolor{#1}\def\th@rdcolorc@md{setcmykcolor}}
\def\Pssetth@rdrgb#1{\def\th@rdcolor{#1}\def\th@rdcolorc@md{setrgbcolor}}
\def\Pssetth@rdgray#1{\def\th@rdcolor{#1}\def\th@rdcolorc@md{setgray}}
\def\us@thirdC@lor{\immediate\write\fwf@g{\th@rdcolor\space\th@rdcolorc@md}%
    \let\fillc@md=\thfillc@md}
\def\thfillc@md{\th@rdcolor\space\th@rdcolorc@md\space fill}
\def\defaultthirdcolor{1}  % Valeur par defaut
\def\pstrimesh#1[#2,#3,#4]{{\ifcurr@ntPS\ifps@cri%
    \PSc@mment{pstrimesh Type=#1, Triangle=[#2,#3,#4]}%
    \s@uvc@ntr@l\et@tpstrimesh\ifnum#1>\@ne\Pss@tsecondSt\setc@ntr@l{2}%
    \Pstrimeshp@rt#1[#2,#3,#4]\Pstrimeshp@rt#1[#3,#4,#2]%
    \Pstrimeshp@rt#1[#4,#2,#3]\Psrest@reSt\fi\psline[#2,#3,#4,#2]%
    \PSc@mment{End pstrimesh}\resetc@ntr@l\et@tpstrimesh\fi\fi}}
\def\Pstrimeshp@rt#1[#2,#3,#4]{{\l@mbd@un=\@ne\l@mbd@de=#1\loop\ifnum\l@mbd@de>\@ne%
    \advance\l@mbd@de\m@ne\figptbary-1:[#2,#3;\l@mbd@de,\l@mbd@un]%
    \figptbary-2:[#2,#4;\l@mbd@de,\l@mbd@un]\psline[-1,-2]%
    \advance\l@mbd@un\@ne\repeat}}
\initpr@lim\initpss@ttings% Initialisation preliminaire
\catcode`\@=12
