subroutine inprfd(idum,latex,kadre,signe,hx,hy,angle
     &                 ,nomfich,longfich,icol)
c
c On garde idum comme premier argument pour compatibilite
c
      INCLUDE 'Parametres.f'
      real xpapier,ypapier
cc      parameter (ptcm=0.0283464566929134)
c---------- taille du papier standart ------------- 
      parameter (xpapier=21000.,ypapier=29700.)
c--------------------------------------------------
      logical*4 latex,kadre,signe
      real hx,hy,angle
      character strng*255,nomfich*512
c
 1    format(a)
 2    format(a,f6.0,' def')
 3    format(a,i6,' def')
      if (icol.eq.0) then
        ipostscript = -1
      else
        ipostscript = -2
      endif
c
ccc      ilaser_file = i
      k = ilaser_file
      taille_x = hx
      taille_y = hy
c
      write(k,1)'%% Fin des informations diverses ------------------'    
      write(k,1)'%'     
      write(k,1)'%%EndComments'
      write(k,1)'%%BeginProlog'
      write(k,1)'%'
      write(k,1)'300 dict begin'
c      write(k,1)'%  debut des variables postscript modifiables'
c      write(k,1)'%  ------------------------------------------'
c      write(k,1)'% - decxcm et decycm permettent de'
c      write(k,1)'%   decaler le dessin resp. vers la droite'
c      write(k,1)'%   et vers le haut (la feuille est verticale)'
c      write(k,1)' '
      write(k,1)'/decxcm 0. def'
      write(k,1)'/decycm 0. def'
c      write(k,1)' '
c      write(k,1)'% - angle permet de tourner le dessin'
c      write(k,1)'%   en degres'
c      write(k,1)' '
      write(k,2)'/angle',angle
c      write(k,1)' '
c      write(k,1)'% - zoomx zoomy permet de grossir le dessin'
c      write(k,1)'%   facteur d''agrandissement resp.'
c      write(k,1)'%   dans la direction x et y'
c      write(k,1)'%   du dessin initial'
c      write(k,1)' '
      write(k,1)'/zoomx 1. def'
      write(k,1)'/zoomy 1. def'
c      write(k,1)' '
c      write(k,1)'% tex permet d''inserer un dessin postscript'
c      write(k,1)'%'
c      write(k,1)'%  si latex est vrai => showdessin est faux '
c      write(k,1)'%  Pour utilisation avec dvi2ps faire :'
c      write(k,1)'%             latex faux et showdessin vrai'
c      write(k,1)'% -----------------------------------------'
      write(k,1)'/latex dup where {pop true}{false} ifelse def'
      write(k,1)'/showdessin latex not def'
c      write(k,1)' '
c      write(k,1)'% kadre permet d''encadrer le dessin'
c      write(k,1)' '
      if (kadre) then
        write(k,1)'/kadre true def'
      else
        write(k,1)'/kadre false def'
      endif
c      write(k,1)'%'
c      write(k,1)'%  fin des variables postscript modifiables'
c      write(k,1)'%  ----------------------------------------'
      call signat(strng,j)
      if (signe) then
        if (longfich.le.0) then
          write(k,1)'/texte ( '//strng(1:j)//' ) def'
        else
          if (albion) then
            write(k,1)'/texte ( '//strng(1:j)//
     &                 ', file: '//nomfich(1:longfich)//') def'
          else
            write(k,1)'/texte ( '//strng(1:j)//
     &                 ', fich: '//nomfich(1:longfich)//') def'
          endif
        endif
      else
        if (longfich.le.0) then
          write(k,1)'% /texte ( '//strng(1:j)//' ) def'
        else
          if (albion) then
            write(k,1)'% /texte ( '//strng(1:j)//
     &                 ', file: '//nomfich(1:longfich)//') def'
          else
            write(k,1)'% /texte ( '//strng(1:j)//
     &                 ', fich: '//nomfich(1:longfich)//') def'
          endif
        endif
      endif
      write(k,3)'/hx',nint(hx*1000.)
      write(k,3)'/hy',nint(hy*1000.)
      write(k,3)'/xpapier',nint(xpapier)
      write(k,3)'/ypapier',nint(ypapier)
c      write(k,1)'% -------- Debut des definition des macros ----------'
c      write(k,1)'%'
c      write(k,1)'% x2 y2 x1 y2 sg ;'
c      write(k,1)'%        trace le segment (x1,y1) (x2,y2)'
c      write(k,1)'% x2 y2 x1 y2 sge ;'
c      write(k,1)'%         efface et trace le segment (x1,y1) (x2,y2)'
c      write(k,1)'% d x1 y1 .... xn yn gris f ;'
c      write(k,1)'%        remplie le contour de la couleur gris'
c      write(k,1)'%'
c      write(k,1)'% jeux sens taille lf'
c      write(k,1)'%      load la font : jeux,sens,taille'
c      write(k,1)'%      sens en degres'
c      write(k,1)'%       0<jeux<36'
c      write(k,1)'% epais type dt ;'
c      write(k,1)'%        definit type trait et l''epaisseur en mm'
cc      write(k,1)'% newdessin'
cc      write(k,1)'%        imprime la page et redessine la banniere'
cc      write(k,1)'%        si le mode n''est pas latex '
c      write(k,1)'% inc :   met le clipping sur le rectangle 0 hx 0 hy'
c      write(k,1)'% xmin xmax ymin ymax hdc : met'
c      write(k,1)'%     le clipping sur le rectangle xmin xmax ymin ymax'
c      write(k,1)'% initf3d : initialise f3d'
c      write(k,1)'% finf3d  : termine f3d'
      write(k,1)'/ptcm 0.0283464566929134 def'
      write(k,1)'/cm {ptcm mul} def'
c      write(k,1)'%'
      write(k,1)'/rec {newpath 4 copy 8 1 roll moveto'
      write(k,1)'      3 -1 roll lineto 4 2 roll exch'
      write(k,1)'      lineto lineto closepath} bind def'
      write(k,1)'/police ['
      write(k,1)' (Courier)'
      write(k,1)' (NewCenturySchlbk-Italic)'
      write(k,1)' (Bookman-LightItalic)'
      write(k,1)' (Helvetica)'
      write(k,1)' (Courier-Bold)'
      write(k,1)' (Helvetica-Narrow-Bold)'
      write(k,1)' (Courier-BoldOblique)'
      write(k,1)' (Times-Italic)'
      write(k,1)' (Times-Bold)'
      write(k,1)' (NewCenturySchlbk-Roman)'
      write(k,1)' (Helvetica-Narrow-Oblique)'
      write(k,1)' (Bookman-DemiItalic)'
      write(k,1)' (Symbol)'
      write(k,1)' (Bookman-Demi)'
      write(k,1)' (Helvetica-BoldOblique)'
      write(k,1)' (Bookman-Light)'
      write(k,1)' (Helvetica-Oblique)'
      write(k,1)' (AvantGarde-Book)'
      write(k,1)' (AvantGarde-DemiOblique)'
      write(k,1)' (AvantGarde-BookOblique)'
      write(k,1)' (AvantGarde-Demi)'
      write(k,1)' (Helvetica-Narrow)'
      write(k,1)' (ZapfChancery-MediumItalic)'
      write(k,1)' (Courier-Oblique)'
      write(k,1)' (NewCenturySchlbk-BoldItalic)'
      write(k,1)' (Helvetica-Bold)'
      write(k,1)' (Times-Roman)'
      write(k,1)' (Times-BoldItalic)'
      write(k,1)' (Helvetica-Narrow-BoldOblique)'
      write(k,1)' (NewCenturySchlbk-Bold)'
      write(k,1)' (Palatino-Bold)'
      write(k,1)' (Courier)'
      write(k,1)' (Palatino-Italic)'
      write(k,1)' (Palatino-Roman)'
      write(k,1)' (Palatino-BoldItalic)'
      write(k,1)' (ZapfDingbats)'
      write(k,1)'  ] def'
      write(k,1)'/#findfont /findfont load def % save real findfont'
      write(k,1)
     &'% redefined findfont to make accented characters available'
      write(k,1)'/findfont {'
      write(k,1)
     &  'dup #findfont dup /Encoding get 8#340 get /.notdef eq {'
      write(k,1)'12 dict begin'
      write(k,1)'/newcodesandnames ['
      write(k,1)'8#200 /aacute'
      write(k,1)'8#201 /aring'
      write(k,1)'8#202 /atilde'
      write(k,1)'8#203 /iacute'
      write(k,1)'8#204 /igrave'
      write(k,1)'8#205 /ntilde'
      write(k,1)'8#206 /oacute'    
      write(k,1)'8#207 /ograve'       
      write(k,1)'8#210 /otilde'
      write(k,1)'8#211 /scaron'       
      write(k,1)'8#212 /uacute'     
      write(k,1)'8#213 /ydieresis'
      write(k,1)'8#214 /zcaron'
      write(k,1)'8#215 /Aacute'
      write(k,1)'8#216 /Aring'
      write(k,1)'8#217 /Atilde'
      write(k,1)'8#220 /Iacute'
      write(k,1)'8#221 /Igrave'
      write(k,1)'8#222 /Ntilde'
      write(k,1)'8#223 /Oacute'
      write(k,1)'8#224 /Ograve'
      write(k,1)'8#225 /Otilde'
      write(k,1)'8#226 /Scaron'
      write(k,1)'8#227 /Uacute'
      write(k,1)'8#230 /Ydieresis'
      write(k,1)'8#231 /Zcaron'
      write(k,1)'8#232 /plusminus'
      write(k,1)'8#233 /mu'
      write(k,1)'8#300 /Acircumflex'
      write(k,1)'8#311 /Adieresis'
      write(k,1)'8#314 /Agrave'
      write(k,1)'8#321 /Ccedilla'
      write(k,1)'8#322 /Eacute'
      write(k,1)'8#323 /Ecircumflex'
      write(k,1)'8#324 /Edieresis'
      write(k,1)'8#325 /Egrave'
      write(k,1)'8#326 /Icircumflex'
      write(k,1)'8#327 /Idieresis'
      write(k,1)'8#330 /Ocircumflex'
      write(k,1)'8#331 /Odieresis'
      write(k,1)'8#332 /Ucircumflex'
      write(k,1)'8#333 /Udieresis'
      write(k,1)'8#334 /Ugrave'
      write(k,1)'8#335 /acircumflex'
      write(k,1)'8#336 /adieresis'
      write(k,1)'8#337 /agrave'
      write(k,1)'8#340 /ccedilla'
      write(k,1)'8#342 /eacute'
      write(k,1)'8#344 /ecircumflex'
      write(k,1)'8#345 /edieresis'
      write(k,1)'8#346 /egrave'
      write(k,1)'8#347 /icircumflex'
      write(k,1)'8#354 /idieresis'
      write(k,1)'8#355 /ocircumflex'
      write(k,1)'8#356 /odieresis'
      write(k,1)'8#357 /ucircumflex'
      write(k,1)'8#360 /udieresis'
      write(k,1)'8#362 /ugrave'
      write(k,1)'] def'
      write(k,1)'/basefontdict exch def /newfontname exch def'
      write(k,1)'/newfont basefontdict maxlength dict def'
      write(k,1)'basefontdict { exch dup /FID ne {'
      write(k,1)'dup /Encoding eq {exch 256 array copy}{exch} ifelse'
      write(k,1)'newfont 3 1 roll put } { pop pop } ifelse } forall'
      write(k,1)'newfont /FontName newfontname put'
      write(k,1)'newcodesandnames aload pop'
      write(k,1)'newcodesandnames length 2 idiv'
      write(k,1)'{newfont /Encoding get 3 1 roll put}'
      write(k,1)'repeat newfontname newfont definefont end}{exch pop}'
      write(k,1)'ifelse'
      write(k,1)'} bind def'
      write(k,1)'/lf {dup matrix scale exch matrix rotate'
      write(k,1)'     matrix concatmatrix'
      write(k,1)'     exch police exch get findfont'
      write(k,1)'     exch makefont setfont} bind def'
      write(k,1)'/g {setgray} bind def'
      write(k,1)'/c {setrgbcolor} bind def'
      if (icol.eq.0) then
        write(k,1)'/B {1 setgray} bind def'
        write(k,1)'/N {0 setgray} bind def'
      else
        write(k,1)'/B {1 1 1 setrgbcolor} bind def'
        write(k,1)'/N {0 0 0 setrgbcolor} bind def'
        write(k,1)'/Ro {1 0 0 setrgbcolor} bind def'
        write(k,1)'/Ve {0 1 0 setrgbcolor} bind def'
        write(k,1)'/Bl {0 0 1 setrgbcolor} bind def'
        write(k,1)'/Cy {0 1 1 setrgbcolor} bind def'
        if (ipapercolor.eq.0) then
          write(k,1)'/Ja {1 1 0 setrgbcolor} bind def'
        else
          write(k,1)'/Ja {0.9 0.6 0 setrgbcolor} bind def'
        endif
        write(k,1)'/Ma {1 0 1 setrgbcolor} bind def'
      endif
      write(k,1)'/C {closepath} bind def'
      write(k,1)'/s {stroke} bind def'
      write(k,1)'/m {moveto} bind def'
      write(k,1)'/l {lineto} bind def'
      write(k,1)'/matrice1 {matini setmatrix ccx cm ccy cm translate'
      write(k,1)'           angle rotate echelle cm dup scale'
      write(k,1)'           hx 2 div neg'
      write(k,1)'           hy 2 div neg translate} def'
      write(k,1)'/matrice {matini setmatrix  '
      write(k,1)'          ccx decxcm add cm'
      write(k,1)'          ccy decycm add cm translate'
      write(k,1)'          angle rotate echelle cm dup scale'
      write(k,1)'          zoomx zoomy scale'
      write(k,1)'          hx 2 div neg hy 2 div neg translate} def'
      write(k,1)'/cadre {currentlinewidth 2 div neg dup'
      write(k,1)'        hx exch sub'
      write(k,1)'        currentlinewidth 2 div neg dup'
      write(k,1)'        hy exch sub rec} def'
      write(k,1)'/showcadre {gsave initclip matrice1 kadre'
      write(k,1)'             {.05 setlinewidth [] 0 setdash'
      if (icol.eq.0) then
        write(k,1)'              0. setgray cadre stroke}'
      else
        write(k,1)'              0. 0. 0. setrgbcolor cadre stroke}'
      endif
      write(k,1)'            if  grestore} def'
      write(k,1)'/S {moveto lineto stroke} bind def'
c      if (icol.eq.0) then
c        write(k,1)'/sge {moveto lineto gsave 1. setgray'
c      else
c        write(k,1)'/sge {moveto lineto gsave 1. 1. 1. setrgbcolor'
c      endif
c      write(k,1)'      [] 0 setdash stroke grestore stroke} def'
      if (icol.eq.0) then
        write(k,1)'/d {currentgray mark} bind def'
        write(k,1)'/f {setgray newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath fill cleartomark setgray} bind def'
        write(k,1)'/F {setgray newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath gsave fill grestore cleartomark'
        write(k,1)'    setgray stroke} bind def'
        write(k,1)'/q {setgray'
        write(k,1)'    4 copy'
        write(k,1)'    3 1 roll exch 4 2 roll 5 2 roll 3 -1 roll exch'
        write(k,1)'    5 1 roll 4 2 roll'
        write(k,1)'    newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath fill cleartomark setgray} bind def'
        write(k,1)'/Q {setgray'
        write(k,1)'    4 copy'
        write(k,1)'    3 1 roll exch 4 2 roll 5 2 roll 3 -1 roll exch'
        write(k,1)'    5 1 roll 4 2 roll'
        write(k,1)'    newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath gsave fill grestore cleartomark'
        write(k,1)'    setgray stroke} bind def'
      else
        write(k,1)'/d {currentrgbcolor mark} bind def'
        write(k,1)'/f {setrgbcolor newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath fill cleartomark setrgbcolor} bind def'
        write(k,1)'/F {setrgbcolor newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath gsave fill grestore cleartomark'
        write(k,1)'    setrgbcolor stroke} bind def'
        write(k,1)'/q {setrgbcolor'
        write(k,1)'    4 copy'
        write(k,1)'    3 1 roll exch 4 2 roll 5 2 roll 3 -1 roll exch'
        write(k,1)'    5 1 roll 4 2 roll'
        write(k,1)'    newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath fill cleartomark setrgbcolor} bind def'
        write(k,1)'/Q {setrgbcolor'
        write(k,1)'    4 copy'
        write(k,1)'    3 1 roll exch 4 2 roll 5 2 roll 3 -1 roll exch'
        write(k,1)'    5 1 roll 4 2 roll'
        write(k,1)'    newpath moveto'
        write(k,1)'    counttomark 2 idiv {lineto} repeat'
        write(k,1)'    closepath gsave fill grestore cleartomark'
        write(k,1)'    setrgbcolor stroke} bind def'
      endif
      write(k,1)'/inc {matrice1 initclip 0 hx 0 hy rec'
      write(k,1)'      clip newpath matrice} bind def'
      write(k,1)'/hdc {inc rec clip newpath} bind def'
      write(k,1)'/aller {3 copy 3 1 roll moveto currentlinewidth'
      write(k,1)'        exch dup .1 mul setlinewidth} bind def'
      write(k,1)'/seg0 {aller dup neg 0 exch 0 rmoveto rlineto'
      write(k,1)'       stroke setlinewidth} bind def'
      write(k,1)'/seg1 {aller .70711 mul dup dup neg dup rmoveto'
      write(k,1)'       rlineto stroke setlinewidth} bind def'
      write(k,1)'/seg2 {aller dup neg 0 exch 0 4 1 roll rmoveto'
      write(k,1)'       rlineto stroke setlinewidth} bind def'
      write(k,1)'/seg3 {aller .70711 mul neg dup neg dup dup neg'
      write(k,1)'       rmoveto rlineto stroke setlinewidth} bind def'
      write(k,1) 
     &'/seg4 {aller 1.414213 mul dup dup neg .5 mul dup rmoveto'
      write(k,1) '      rlineto stroke setlinewidth} bind def'
      write(k,1) 
     &'/seg5 {aller 1.414213 mul neg dup neg dup .5 mul dup neg'
      write(k,1) '      rmoveto rlineto stroke setlinewidth} bind def'
      write(k,1) '/seg6 {aller 2 mul dup neg 0 exch .5 mul 0'
      write(k,1) '      rmoveto rlineto stroke setlinewidth} bind def'
      write(k,1) 
     &'/seg7 {aller 2 mul dup neg 0 exch .5 mul 0 4 1 roll'
      write(k,1) '      rmoveto rlineto stroke setlinewidth} bind def'
      write(k,1) '/Mc {aller 1.77245 mul neg dup 0 exch 0 exch dup neg'
      write(k,1) '     dup 0 exch 0 exch dup .5 mul neg dup'
      write(k,1) '     rmoveto rlineto rlineto rlineto rlineto' 
      write(k,1) '     stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/MC {aller 1.77245 mul neg dup 0 exch 0 exch dup neg'
      write(k,1) '     dup 0 exch 0 exch dup .5 mul neg dup'
      write(k,1) '     rmoveto rlineto rlineto rlineto rlineto' 
      write(k,1) '     fill stroke setlinewidth pop pop pop} bind def'
      write(k,1) 
     &'/Ml {aller 1.25331 mul neg dup neg dup neg dup dup neg'
      write(k,1) '     dup neg dup neg dup dup neg 0' 
      write(k,1) '     rmoveto rlineto rlineto rlineto rlineto'
      write(k,1) '     stroke setlinewidth pop pop pop} bind def'
      write(k,1) 
     &'/ML {aller 1.25331 mul neg dup neg dup neg dup dup neg'
      write(k,1) '     dup neg dup neg dup dup neg 0'
      write(k,1) '     rmoveto rlineto rlineto rlineto rlineto'
      write(k,1) '     fill stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/Mt {aller 2.2 mul neg dup neg .5 mul 0 exch dup dup'
      write(k,1) 
     &'     1.73205 mul neg exch dup dup 1.73205 mul exch neg dup'
      write(k,1) '     .57735 mul rmoveto rlineto rlineto rlineto'
      write(k,1) '     stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/MT {aller 2.2 mul neg dup neg .5 mul 0 exch dup dup' 
      write(k,1) 
     &'     1.73205 mul neg exch dup dup 1.73205 mul exch neg dup'
      write(k,1) '     .57735 mul rmoveto rlineto rlineto rlineto'
      write(k,1) '     fill stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/Mt2 {aller 2.2 mul dup neg .5 mul 0 exch dup dup' 
      write(k,1) 
     &'1.73205 mul neg exch dup dup 1.73205 mul exch neg dup .57735 mul'
      write(k,1) '      rmoveto rlineto rlineto rlineto'
      write(k,1) '      stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/MT2 {aller 2.2 mul dup neg .5 mul 0 exch dup dup' 
      write(k,1) 
     &'1.73205 mul neg exch dup dup 1.73205 mul exch neg dup'
      write(k,1) '      .57735 mul rmoveto rlineto rlineto rlineto'
      write(k,1) '      fill stroke setlinewidth pop pop pop} bind def'
      write(k,1) '/Mp {seg6 seg7 pop pop pop} bind def'
      write(k,1) '/Mx {seg4 seg5 pop pop pop} bind def'     
      write(k,1)'/Ms {3 copy Mp Mx} bind def'
      write(k,1)'/MV {pop pop pop} bind def'
      write(k,1)'/R {currentlinewidth 4 1 roll dup .1 mul'
      write(k,1)'    setlinewidth 0 360 arc stroke'
      write(k,1)'    setlinewidth} bind def'
      write(k,1)'/R2 {0 360 arc stroke} bind def'
      write(k,1)'/r {0 360 arc fill} bind def'
      write(k,1)'/E {dup 5 1 roll stringwidth'
      write(k,1)'    2 index neg mul 3 index add exch'
      write(k,1)'    2 index neg mul 4 index add exch'
      write(k,1)'    moveto pop pop pop show newpath} bind def'
      write(k,1)'/cartouche{/dessin dessin 1 add def latex not'
      write(k,1)'          {gsave initgraphics 1 cm 1 cm scale'
      if (signe) then
        if (longfich.gt.256) then
          write(k,1)'           24 0 80 lf'
          write(k,1)'           500 500 moveto'
        elseif (longfich.gt.64) then
          write(k,1)'           24 0 150 lf'
          if (longfich.le.96) then
            write(k,1)'           4000 500 moveto'
          else
            write(k,1)'           500 500 moveto'
          endif
        else
          write(k,1)'           24 0 350 lf'
          if (longfich.eq.0) then
            write(k,1)'           7000 500 moveto'
          elseif (longfich.le.16) then
            write(k,1)'           6000 500 moveto'
          elseif (longfich.le.32) then
            write(k,1)'           5000 500 moveto'
          elseif (longfich.le.48) then
            write(k,1)'           3000 500 moveto'
          else
            write(k,1)'           500 500 moveto'
          endif
        endif
        write(k,1)'           texte show'
      endif
      write(k,1)'           grestore} if} def'
      write(k,1)'/typetrait [[]'
      write(k,1)'            [30 70]'
      write(k,1)'            [100]'
      write(k,1)'            [50 70 200 70]'
      write(k,1)'            [150 70]'
      write(k,1)'            [30 30 30 80]'
      write(k,1)'            [30 50 30 50 150 50]'
      write(k,1)'            [250 70]] bind def'
      write(k,1)'/dt {dup 0 lt {pop pop}'
      write(k,1)'      {exch dup 0.1 mul setlinewidth /LW exch def'
      write(k,1)'       8 mod typetrait exch get /tt exch def'
      write(k,1)
     &'[ 0 1 tt length 1 sub {tt exch get LW mul 0.005 mul} for ]'
      write(k,1)'       0 setdash} ifelse} def'
cc      write(k,1)
cc     &'/dt {dup 0 lt {pop}{8 mod typetrait exch get 0 setdash}'
cc      write(k,1)'     ifelse'
cc      write(k,1)'     dup 0 lt {pop}{.1 mul setlinewidth}'
cc      write(k,1)'     ifelse} bind def'
cc      write(k,1)'/newdessin {showdessin '
cc      write(k,1)'           {gsave showpage grestore'
cc      write(k,1)'            showcadre cartouche} if} def'
      write(k,1)'/initialise {gsave /initCPU usertime def'
      write(k,1)'    /dessin 1 def /matini matrix currentmatrix def'
      write(k,1)'    latex'
      write(k,1)'    {/echelle'
      write(k,1)'      hhx hx angle cos mul abs'
      write(k,1)'          hy angle sin mul abs add div'
      write(k,1)'      hhy hx angle sin mul abs'
      write(k,1)'          hy angle cos mul abs add div'
      write(k,1)'      2 copy'
      write(k,1)'      gt {exch} if pop'
      write(k,1)'      def'
      write(k,1)'      /xmin 0. def'
      write(k,1)'      /xmax hx def'
      write(k,1)'      /ymin 0. def'
      write(k,1)'      /ymax hy def'
c      write(k,1)'%-- position du cadre dans le rectangle'
      write(k,1)'      currentpoint'
      write(k,1)'      /ccy exch ptcm div def'
      write(k,1)'      /ccx exch ptcm div def'
      write(k,1)'    }'
      write(k,1)'    {/echelle 1 def'
      write(k,1)'     /xmin 0. def'
      write(k,1)'     /xmax hx def'
      write(k,1)'     /ymin 0. def'
      write(k,1)'     /ymax hy def'
      write(k,1)'     /ccx xpapier 2 div def'
      write(k,1)'     /ccy ypapier 2 div def'
c      write(k,1)'% position du centre du rectangle'
c      write(k,1)'% sur la feuille en cm'
      write(k,1)'    }'
      write(k,1)'    ifelse'
      write(k,1)'    /dessin 0 def'
      write(k,1)'    matrice'
      write(k,1)'    showcadre'
      write(k,1)'    cartouche'
      write(k,1)'    inc'
      write(k,1)'    } def'
cc      write(k,1)'/finf3d {grestore} def'
cc      write(k,1)' '
Cfj      write(k,1)'% fin des definitions PostScript'
Cfj      write(k,1)'% ----------------------------------------------------'
Cfj      write(k,1)'% Programmeurs: Hecht, Saltel, Josserond (INRIA) 88-91'
Cfj      write(k,1)'%               F.Jouve (CMAP-X) plein de modifs 91-95'
Cfj      write(k,1)'% ----------------------------------------------------'
      write(k,1)'%%EndProlog'
      write(k,1)'initialise'
      write(k,1)'%%Pages: 1'
c
      ifonte_courante_ps = 8
      angle_texte = 0.
      taille_texte = .65*amin1(taille_x,taille_y)/19.
      ityp_ligne = 0
      epais_ligne = .2*amin1(taille_x,taille_y)/19.
      write(ilaser_file,1000) ifonte_courante_ps,angle_texte
     &                       ,nint(taille_texte*1000)
 1000 format(i2,f6.2,i6,' lf')
cc 1000 format(i2,2f6.2,' lf')
      if (icol.eq.0) then
        write(ilaser_file,'(a1)') 'N'
      else
        write(ilaser_file,'(a2)') 'Ro'
        icoul_eff = 1
      endif
      write(ilaser_file,'(a)') '0 setlinecap'
      write(ilaser_file,'(a)') '1 setlinejoin'
      write(ilaser_file,'(i4,a)') nint(1000*epais_ligne),' 0 dt'
      ityp_ligne_pend = 0
      epais_ligne_pend = epais_ligne
c
      end