;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
;+
; NAME:terminedessin
;
; PURPOSE:termnine le dessin si besion est qd c''est un postcsript.
;
; CATEGORY:mise en forme et allegement de l''ecrityre de plt, pltz et pltt
;
; CALLING SEQUENCE:terminedessin
;
; INPUTS:
;
; KEYWORD PARAMETERS:POST et PETITDESSIN cf l''aide de plt
;
; OUTPUTS:
;
; COMMON BLOCKS:
;	common.pro
;
; SIDE EFFECTS:
;
; RESTRICTIONS:
;
; EXAMPLE:
;
; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
;                       3/6/1999
;-
;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
PRO terminedessin, POST=post, PETITDESSIN=petitdessin, _EXTRA = ex
@common
   if keyword_set(post) then BEGIN
      if keyword_set(petitdessin) then $
      if total(petitdessin) NE (margescadre[2]+margescadre[0]+petitfeuille+grandfeuille $
                                -margescadre[1]-margescadre[3]) then return
      closeps
      imprime,_extra = ex
   endif
   return
end